Branch data Line data Source code
1 : : /*
2 : : * hicumL0V1p2g.core.cpp - device implementations for hicumL0V1p2g module
3 : : *
4 : : * This is free software; you can redistribute it and/or modify
5 : : * it under the terms of the GNU General Public License as published by
6 : : * the Free Software Foundation; either version 2, or (at your option)
7 : : * any later version.
8 : : *
9 : : */
10 : :
11 : : #if HAVE_CONFIG_H
12 : : #include <config.h>
13 : : #endif
14 : :
15 : : #include "hicumL0V1p2g.analogfunction.h"
16 : : #include "component.h"
17 : : #include "device.h"
18 : : #include "hicumL0V1p2g.core.h"
19 : :
20 : : #ifndef CIR_hicumL0V1p2g
21 : : #define CIR_hicumL0V1p2g -1
22 : : #endif
23 : :
24 : : // external nodes
25 : : #define c 0
26 : : #define b 1
27 : : #define e 2
28 : : #define s 3
29 : : #define tnode 4
30 : : // internal nodes
31 : : #define ci 5
32 : : #define bi 6
33 : : #define ei 7
34 : :
35 : : // useful macro definitions
36 : : #define NP(node) real (getV (node))
37 : : #define BP(pnode,nnode) (NP(pnode) - NP(nnode))
38 : : #define _load_static_residual2(pnode,nnode,current)\
39 : : _rhs[pnode] -= current;\
40 : : _rhs[nnode] += current;
41 : : #define _load_static_augmented_residual2(pnode,nnode,current)\
42 : : _rhs[pnode] -= current;\
43 : : _rhs[nnode] += current;
44 : : #define _load_static_residual1(node,current)\
45 : : _rhs[node] -= current;
46 : : #define _load_static_augmented_residual1(node,current)\
47 : : _rhs[node] -= current;
48 : : #define _load_static_jacobian4(pnode,nnode,vpnode,vnnode,conductance)\
49 : : _jstat[pnode][vpnode] += conductance;\
50 : : _jstat[nnode][vnnode] += conductance;\
51 : : _jstat[pnode][vnnode] -= conductance;\
52 : : _jstat[nnode][vpnode] -= conductance;\
53 : : if (doHB) {\
54 : : _ghs[pnode] += conductance * BP(vpnode,vnnode);\
55 : : _ghs[nnode] -= conductance * BP(vpnode,vnnode);\
56 : : } else {\
57 : : _rhs[pnode] += conductance * BP(vpnode,vnnode);\
58 : : _rhs[nnode] -= conductance * BP(vpnode,vnnode);\
59 : : }
60 : : #define _load_static_jacobian2p(node,vpnode,vnnode,conductance)\
61 : : _jstat[node][vpnode] += conductance;\
62 : : _jstat[node][vnnode] -= conductance;\
63 : : if (doHB) {\
64 : : _ghs[node] += conductance * BP(vpnode,vnnode);\
65 : : } else {\
66 : : _rhs[node] += conductance * BP(vpnode,vnnode);\
67 : : }
68 : : #define _load_static_jacobian2s(pnode,nnode,node,conductance)\
69 : : _jstat[pnode][node] += conductance;\
70 : : _jstat[nnode][node] -= conductance;\
71 : : if (doHB) {\
72 : : _ghs[pnode] += conductance * NP(node);\
73 : : _ghs[nnode] -= conductance * NP(node);\
74 : : } else {\
75 : : _rhs[pnode] += conductance * NP(node);\
76 : : _rhs[nnode] -= conductance * NP(node);\
77 : : }
78 : : #define _load_static_jacobian1(node,vnode,conductance)\
79 : : _jstat[node][vnode] += conductance;\
80 : : if (doHB) {\
81 : : _ghs[node] += conductance * NP(vnode);\
82 : : } else {\
83 : : _rhs[node] += conductance * NP(vnode);\
84 : : }
85 : : #define _load_dynamic_residual2(pnode,nnode,charge)\
86 : : if (doTR) _charges[pnode][nnode] += charge;\
87 : : if (doHB) {\
88 : : _qhs[pnode] -= charge;\
89 : : _qhs[nnode] += charge;\
90 : : }
91 : : #define _load_dynamic_residual1(node,charge)\
92 : : if (doTR) _charges[node][node] += charge;\
93 : : if (doHB) {\
94 : : _qhs[node] -= charge;\
95 : : }
96 : : #define _load_dynamic_jacobian4(pnode,nnode,vpnode,vnnode,capacitance)\
97 : : if (doAC) {\
98 : : _jdyna[pnode][vpnode] += capacitance;\
99 : : _jdyna[nnode][vnnode] += capacitance;\
100 : : _jdyna[pnode][vnnode] -= capacitance;\
101 : : _jdyna[nnode][vpnode] -= capacitance;\
102 : : }\
103 : : if (doTR) {\
104 : : _caps[pnode][nnode][vpnode][vnnode] += capacitance;\
105 : : }\
106 : : if (doHB) {\
107 : : _chs[pnode] += capacitance * BP(vpnode,vnnode);\
108 : : _chs[nnode] -= capacitance * BP(vpnode,vnnode);\
109 : : }
110 : : #define _load_dynamic_jacobian2s(pnode,nnode,vnode,capacitance)\
111 : : if (doAC) {\
112 : : _jdyna[pnode][vnode] += capacitance;\
113 : : _jdyna[nnode][vnode] -= capacitance;\
114 : : }\
115 : : if (doTR) {\
116 : : _caps[pnode][nnode][vnode][vnode] += capacitance;\
117 : : }\
118 : : if (doHB) {\
119 : : _chs[pnode] += capacitance * NP(vnode);\
120 : : _chs[nnode] -= capacitance * NP(vnode);\
121 : : }
122 : : #define _load_dynamic_jacobian2p(node,vpnode,vnnode,capacitance)\
123 : : if (doAC) {\
124 : : _jdyna[node][vpnode] += capacitance;\
125 : : _jdyna[node][vnnode] -= capacitance;\
126 : : }\
127 : : if (doTR) {\
128 : : _caps[node][node][vpnode][vnnode] += capacitance;\
129 : : }\
130 : : if (doHB) {\
131 : : _chs[node] += capacitance * BP(vpnode,vnnode);\
132 : : }
133 : : #define _load_dynamic_jacobian1(node,vnode,capacitance)\
134 : : if (doAC) {\
135 : : _jdyna[node][vnode] += capacitance;\
136 : : }\
137 : : if (doTR) {\
138 : : _caps[node][node][vnode][vnode] += capacitance;\
139 : : }\
140 : : if (doHB) {\
141 : : _chs[node] += capacitance * NP(vnode);\
142 : : }
143 : :
144 : : #define _save_whitenoise1(n1,pwr,type)\
145 : : _white_pwr[n1][n1] += pwr;
146 : : #define _save_whitenoise2(n1,n2,pwr,type)\
147 : : _white_pwr[n1][n2] += pwr;
148 : : #define _save_flickernoise1(n1,pwr,exp,type)\
149 : : _flicker_pwr[n1][n1] += pwr;\
150 : : _flicker_exp[n1][n1] += exp;
151 : : #define _save_flickernoise2(n1,n2,pwr,exp,type)\
152 : : _flicker_pwr[n1][n2] += pwr;\
153 : : _flicker_exp[n1][n2] += exp;
154 : : #define _load_whitenoise2(n1,n2,pwr)\
155 : : cy (n1,n2) -= pwr/kB/T0; cy (n2,n1) -= pwr/kB/T0;\
156 : : cy (n1,n1) += pwr/kB/T0; cy (n2,n2) += pwr/kB/T0;
157 : : #define _load_whitenoise1(n1,pwr)\
158 : : cy (n1,n1) += pwr/kB/T0;
159 : : #define _load_flickernoise2(n1,n2,pwr,exp)\
160 : : cy (n1,n2) -= pwr*pow(_freq,-exp)/kB/T0;\
161 : : cy (n2,n1) -= pwr*pow(_freq,-exp)/kB/T0;\
162 : : cy (n1,n1) += pwr*pow(_freq,-exp)/kB/T0;\
163 : : cy (n2,n2) += pwr*pow(_freq,-exp)/kB/T0;
164 : : #define _load_flickernoise1(n1,pwr,exp)\
165 : : cy (n1,n1) += pwr*pow(_freq,-exp)/kB/T0;
166 : :
167 : : // derivative helper macros
168 : : // transcendental LRM p. 59
169 : : #define m00_cos(v00,x) v00 = cos(x);
170 : : #define m10_cos(v10,v00,x) v10 = (-sin(x));
171 : : #define m00_sin(v00,x) v00 = sin(x);
172 : : #define m10_sin(v10,v00,x) v10 = (cos(x));
173 : : #define m00_tan(v00,x) v00 = tan(x);
174 : : #define m10_tan(v10,v00,x) v10 = (1.0/cos(x)/cos(x));
175 : : #define m00_cosh(v00,x) v00 = cosh(x);
176 : : #define m10_cosh(v10,v00,x) v10 = (sinh(x));
177 : : #define m00_sinh(v00,x) v00 = sinh(x);
178 : : #define m10_sinh(v10,v00,x) v10 = (cosh(x));
179 : : #define m00_tanh(v00,x) v00 = tanh(x);
180 : : #define m10_tanh(v10,v00,x) v10 = (1.0/cosh(x)/cosh(x));
181 : : #define m00_acos(v00,x) v00 = acos(x);
182 : : #define m10_acos(v10,v00,x) v10 = (-1.0/sqrt(1-x*x));
183 : : #define m00_asin(v00,x) v00 = asin(x);
184 : : #define m10_asin(v10,v00,x) v10 = (+1.0/sqrt(1-x*x));
185 : : #define m00_atan(v00,x) v00 = atan(x);
186 : : #define m10_atan(v10,v00,x) v10 = (+1.0/(1+x*x));
187 : : #define m00_hypot(v00,x,y) v00 = sqrt((x)*(x)+(y)*(y));
188 : : #define m10_hypot(v10,v00,x,y) v10 = (x)/(v00);
189 : : #define m11_hypot(v11,v00,x,y) v11 = (y)/(v00);
190 : : #define m00_atan2(v00,x,y) v00 = atan2(x,y);
191 : : // TODO atan2 derivatives ?
192 : : #define m00_acosh(v00,x) v00 = acosh(x);
193 : : #define m10_acosh(v10,v00,x) v10 = (1.0/(sqrt(x-1)*sqrt(x+1)));
194 : : #define m00_asinh(v00,x) v00 = asinh(x);
195 : : #define m10_asinh(v10,v00,x) v10 = (1.0/(sqrt(x*x+1)));
196 : : #define m00_atanh(v00,x) v00 = atanh(x);
197 : : #define m10_atanh(v10,v00,x) v10 = (1.0/(1-x*x));
198 : :
199 : :
200 : : // standard functions LRM p.58
201 : : #define m00_logE(v00,x) v00 = log(x);
202 : : #define m10_logE(v10,v00,x) v10 = (1.0/x);
203 : : #define m00_log10(v00,x) v00 = log10(x);
204 : : #define m10_log10(v10,v00,x) v10 = (1.0/x/M_LN10);
205 : : #define m00_exp(v00,x) v00 = exp(x);
206 : : #define m10_exp(v10,v00,x) v10 = v00;
207 : : #define m00_sqrt(v00,x) v00 = sqrt(x);
208 : : #define m10_sqrt(v10,v00,x) v10 = (0.5/v00);
209 : : #define m00_min(v00,x,y) v00 = ((x)<(y))?(x):(y);
210 : : #define m10_min(v10,v00,x,y) v10 = ((x)<(y))?1.0:0.0;
211 : : #define m11_min(v11,v00,x,y) v11 = ((x)<(y))?0.0:1.0;
212 : : #define m00_max(v00,x,y) v00 = ((x)>(y))?(x):(y);
213 : : #define m10_max(v10,v00,x,y) v10 = ((x)>(y))?1.0:0.0;
214 : : #define m11_max(v11,v00,x,y) v11 = ((x)>(y))?0.0:1.0;
215 : : #define m00_pow(v00,x,y) v00 = pow(x,y);
216 : : #define m10_pow(v10,v00,x,y) v10 = (x==0.0)?0.0:(v00)*(y)/(x);
217 : : #define m11_pow(v11,v00,x,y) v11 = (x==0.0)?0.0:(log(x)*(v00));
218 : : #define m00_abs(v00,x) v00 = ((x)<(0)?(-(x)):(x));
219 : : #define m10_abs(v10,v00,x) v10 = (((x)>=0)?(+1.0):(-1.0));
220 : : #define m00_floor(v00,x) v00 = floor(x);
221 : : #define m10_floor(v10,v00,x) v10 = 1.0;
222 : :
223 : : #define m00_ceil(v00,x) v00 = ceil(x);
224 : : // TODO ceil derivative, needed?
225 : :
226 : : // analog operator, LRM p.61
227 : : #define m00_limexp(v00,x) v00 = ((x)<80.0?exp(x):exp(80.0)*(x-79.0));
228 : : #define m10_limexp(v10,v00,x) v10 = ((x)<80.0?(v00):exp(80.0));
229 : :
230 : : // analog kernel parameter system functions, LRM p.215
231 : : #define m00_vt(x) (kBoverQ*(x))
232 : : #define m10_vt(x) (kBoverQ)
233 : :
234 : : // extra functions (?)
235 : : #define m00_div(v00,v10,x,y) double v10=1/(y); double v00=(x)*v10;
236 : : #define m10_div(v10,v00,vv,x,y)
237 : : #define m11_div(v11,v00,vv,x,y) double v11 = -v00*vv;
238 : : #define m00_mult(v00,v10,v11,x,y) double v10=(x); double v11=(y); double v00=v10*v11;
239 : : #define m00_add(v00,x,y) double v00=(x)+(y);
240 : :
241 : : // second derivatives
242 : : #define m20_logE(v00) (-1.0/v00/v00)
243 : : #define m20_exp(v00) exp(v00)
244 : : #define m20_limexp(v00) ((v00)<80.0?exp(v00):0.0)
245 : : #define m20_sqrt(v00) (-0.25/(v00)/sqrt(v00))
246 : : #define m20_abs(v00) 0.0
247 : : #define m20_pow(x,y) ((y)*((y)-1.0)*pow(x,y)/(x)/(x))
248 : :
249 : :
250 : : // simulator specific definitions
251 : : #define _modelname "hicumL0V1p2g"
252 : : #define _instancename getName()
253 : : #define _circuit_temp (getPropertyDouble("Temp")+273.15)
254 : : #define _param_given(p) (isPropertyGiven(p)?1:0)
255 : :
256 : :
257 : : // $vt and $vt() functions
258 : : #define _vt_nom (kBoverQ*_circuit_temp)
259 : :
260 : : using namespace qucs::device;
261 : : using qucs::matrix;
262 : :
263 : : /* Device constructor. */
264 : 0 : hicumL0V1p2g::hicumL0V1p2g() : circuit (8)
265 : : {
266 : 0 : type = CIR_hicumL0V1p2g;
267 : 0 : }
268 : :
269 : : /* Initialization of model. */
270 : 0 : void hicumL0V1p2g::initModel (void)
271 : : {
272 : : // create internal nodes
273 : 0 : setInternalNode (ci, "ci");
274 : 0 : setInternalNode (bi, "bi");
275 : 0 : setInternalNode (ei, "ei");
276 : :
277 : : // get device model parameters
278 : 0 : loadVariables ();
279 : : // evaluate global model equations
280 : 0 : initializeModel ();
281 : : // evaluate initial step equations
282 : 0 : initialStep ();
283 : : // evaluate global instance equations
284 : 0 : initializeInstance ();
285 : 0 : }
286 : :
287 : : /* Initialization of DC analysis. */
288 : 0 : void hicumL0V1p2g::initDC (void)
289 : : {
290 : 0 : allocMatrixMNA ();
291 : 0 : initModel ();
292 : 0 : pol = 1;
293 : 0 : restartDC ();
294 : 0 : doAC = 1;
295 : 0 : doTR = 0;
296 : 0 : doHB = 0;
297 : 0 : }
298 : :
299 : : /* Run when DC is restarted (fallback algorithms). */
300 : 0 : void hicumL0V1p2g::restartDC (void)
301 : : {
302 : 0 : }
303 : :
304 : : /* Initialize Verilog-AMS code. */
305 : 0 : void hicumL0V1p2g::initVerilog (void)
306 : : {
307 : : // initialization of noise variables
308 : 0 : _white_pwr[ci][ei] = 0.0;
309 : 0 : _white_pwr[b][bi] = 0.0;
310 : 0 : _white_pwr[ci][c] = 0.0;
311 : 0 : _white_pwr[ei][e] = 0.0;
312 : 0 : _white_pwr[bi][ei] = 0.0;
313 : 0 : _flicker_pwr[bi][ei] = 0.0;
314 : 0 : _flicker_exp[bi][ei] = 0.0;
315 : :
316 : : int i1, i2, i3, i4;
317 : :
318 : : // zero charges
319 [ # # ]: 0 : for (i1 = 0; i1 < 8; i1++) {
320 [ # # ]: 0 : for (i2 = 0; i2 < 8; i2++) {
321 : 0 : _charges[i1][i2] = 0.0;
322 : : } }
323 : :
324 : : // zero capacitances
325 [ # # ]: 0 : for (i1 = 0; i1 < 8; i1++) {
326 [ # # ]: 0 : for (i2 = 0; i2 < 8; i2++) {
327 [ # # ]: 0 : for (i3 = 0; i3 < 8; i3++) {
328 [ # # ]: 0 : for (i4 = 0; i4 < 8; i4++) {
329 : 0 : _caps[i1][i2][i3][i4] = 0.0;
330 : : } } } }
331 : :
332 : : // zero right hand side, static and dynamic jacobian
333 [ # # ]: 0 : for (i1 = 0; i1 < 8; i1++) {
334 : 0 : _rhs[i1] = 0.0;
335 : 0 : _qhs[i1] = 0.0;
336 : 0 : _chs[i1] = 0.0;
337 : 0 : _ghs[i1] = 0.0;
338 [ # # ]: 0 : for (i2 = 0; i2 < 8; i2++) {
339 : 0 : _jstat[i1][i2] = 0.0;
340 : 0 : _jdyna[i1][i2] = 0.0;
341 : : }
342 : : }
343 : 0 : }
344 : :
345 : : /* Load device model input parameters. */
346 : 0 : void hicumL0V1p2g::loadVariables (void)
347 : : {
348 : 0 : is = getPropertyDouble ("is");
349 : 0 : mcf = getPropertyDouble ("mcf");
350 : 0 : mcr = getPropertyDouble ("mcr");
351 : 0 : vef = getPropertyDouble ("vef");
352 : 0 : ver = getPropertyDouble ("ver");
353 : 0 : iqf = getPropertyDouble ("iqf");
354 : 0 : fiqf = getPropertyInteger ("fiqf");
355 : 0 : iqr = getPropertyDouble ("iqr");
356 : 0 : iqfh = getPropertyDouble ("iqfh");
357 : 0 : iqfe = getPropertyDouble ("iqfe");
358 : 0 : ahq = getPropertyDouble ("ahq");
359 : 0 : ibes = getPropertyDouble ("ibes");
360 : 0 : mbe = getPropertyDouble ("mbe");
361 : 0 : ires = getPropertyDouble ("ires");
362 : 0 : mre = getPropertyDouble ("mre");
363 : 0 : ibcs = getPropertyDouble ("ibcs");
364 : 0 : mbc = getPropertyDouble ("mbc");
365 : 0 : cje0 = getPropertyDouble ("cje0");
366 : 0 : vde = getPropertyDouble ("vde");
367 : 0 : ze = getPropertyDouble ("ze");
368 : 0 : aje = getPropertyDouble ("aje");
369 : 0 : vdedc = getPropertyDouble ("vdedc");
370 : 0 : zedc = getPropertyDouble ("zedc");
371 : 0 : ajedc = getPropertyDouble ("ajedc");
372 : 0 : t0 = getPropertyDouble ("t0");
373 : 0 : dt0h = getPropertyDouble ("dt0h");
374 : 0 : tbvl = getPropertyDouble ("tbvl");
375 : 0 : tef0 = getPropertyDouble ("tef0");
376 : 0 : gte = getPropertyDouble ("gte");
377 : 0 : thcs = getPropertyDouble ("thcs");
378 : 0 : ahc = getPropertyDouble ("ahc");
379 : 0 : tr = getPropertyDouble ("tr");
380 : 0 : rci0 = getPropertyDouble ("rci0");
381 : 0 : vlim = getPropertyDouble ("vlim");
382 : 0 : vpt = getPropertyDouble ("vpt");
383 : 0 : vces = getPropertyDouble ("vces");
384 : 0 : cjci0 = getPropertyDouble ("cjci0");
385 : 0 : vdci = getPropertyDouble ("vdci");
386 : 0 : zci = getPropertyDouble ("zci");
387 : 0 : vptci = getPropertyDouble ("vptci");
388 : 0 : cjcx0 = getPropertyDouble ("cjcx0");
389 : 0 : vdcx = getPropertyDouble ("vdcx");
390 : 0 : zcx = getPropertyDouble ("zcx");
391 : 0 : vptcx = getPropertyDouble ("vptcx");
392 : 0 : fbc = getPropertyDouble ("fbc");
393 : 0 : rbi0 = getPropertyDouble ("rbi0");
394 : 0 : vr0e = getPropertyDouble ("vr0e");
395 : 0 : vr0c = getPropertyDouble ("vr0c");
396 : 0 : fgeo = getPropertyDouble ("fgeo");
397 : 0 : rbx = getPropertyDouble ("rbx");
398 : 0 : rcx = getPropertyDouble ("rcx");
399 : 0 : re = getPropertyDouble ("re");
400 : 0 : itss = getPropertyDouble ("itss");
401 : 0 : msf = getPropertyDouble ("msf");
402 : 0 : iscs = getPropertyDouble ("iscs");
403 : 0 : msc = getPropertyDouble ("msc");
404 : 0 : cjs0 = getPropertyDouble ("cjs0");
405 : 0 : vds = getPropertyDouble ("vds");
406 : 0 : zs = getPropertyDouble ("zs");
407 : 0 : vpts = getPropertyDouble ("vpts");
408 : 0 : cbcpar = getPropertyDouble ("cbcpar");
409 : 0 : cbepar = getPropertyDouble ("cbepar");
410 : 0 : eavl = getPropertyDouble ("eavl");
411 : 0 : kavl = getPropertyDouble ("kavl");
412 : 0 : kf = getPropertyDouble ("kf");
413 : 0 : af = getPropertyDouble ("af");
414 : 0 : vgb = getPropertyDouble ("vgb");
415 : 0 : vge = getPropertyDouble ("vge");
416 : 0 : vgc = getPropertyDouble ("vgc");
417 : 0 : vgs = getPropertyDouble ("vgs");
418 : 0 : f1vg = getPropertyDouble ("f1vg");
419 : 0 : f2vg = getPropertyDouble ("f2vg");
420 : 0 : alt0 = getPropertyDouble ("alt0");
421 : 0 : kt0 = getPropertyDouble ("kt0");
422 : 0 : zetact = getPropertyDouble ("zetact");
423 : 0 : zetabet = getPropertyDouble ("zetabet");
424 : 0 : zetaci = getPropertyDouble ("zetaci");
425 : 0 : alvs = getPropertyDouble ("alvs");
426 : 0 : alces = getPropertyDouble ("alces");
427 : 0 : zetarbi = getPropertyDouble ("zetarbi");
428 : 0 : zetarbx = getPropertyDouble ("zetarbx");
429 : 0 : zetarcx = getPropertyDouble ("zetarcx");
430 : 0 : zetare = getPropertyDouble ("zetare");
431 : 0 : zetaiqf = getPropertyDouble ("zetaiqf");
432 : 0 : alkav = getPropertyDouble ("alkav");
433 : 0 : aleav = getPropertyDouble ("aleav");
434 : 0 : flsh = getPropertyInteger ("flsh");
435 : 0 : rth = getPropertyDouble ("rth");
436 : 0 : zetarth = getPropertyDouble ("zetarth");
437 : 0 : cth = getPropertyDouble ("cth");
438 : 0 : npn = getPropertyInteger ("npn");
439 : 0 : pnp = getPropertyInteger ("pnp");
440 : 0 : tnom = getPropertyDouble ("tnom");
441 : 0 : dt = getPropertyDouble ("dt");
442 : 0 : delte = getPropertyDouble ("delte");
443 : 0 : deltc = getPropertyDouble ("deltc");
444 : 0 : zetaver = getPropertyDouble ("zetaver");
445 : 0 : zetavef = getPropertyDouble ("zetavef");
446 : 0 : ibhrec = getPropertyDouble ("ibhrec");
447 : 0 : }
448 : :
449 : : /* #define's for translated code */
450 : : #undef _DDT
451 : : #define _DDT(q) q
452 : : #define _DYNAMIC
453 : : #define _DERIVATE
454 : : #define _DDX
455 : : #define _DERIVATEFORDDX
456 : :
457 : : /* Evaluate Verilog-AMS equations in model initialization. */
458 : 0 : void hicumL0V1p2g::initializeModel (void)
459 : : {
460 : : {
461 [ # # ]: 0 : if
462 : 0 : _param_given("npn")
463 : : {
464 : 0 : HICUMtype=(+1);
465 : : }
466 : : else
467 : : {
468 [ # # ]: 0 : if
469 : 0 : _param_given("pnp")
470 : : {
471 : 0 : HICUMtype=(-1);
472 : : }
473 : : else
474 : : {
475 : 0 : HICUMtype=(+1);
476 : : }
477 : : }
478 : : }
479 : 0 : }
480 : :
481 : : /* Evaluate Verilog-AMS equations in instance initialization. */
482 : 0 : void hicumL0V1p2g::initializeInstance (void)
483 : : {
484 : 0 : }
485 : :
486 : : /* Evaluate Verilog-AMS equations in initial step. */
487 : 0 : void hicumL0V1p2g::initialStep (void)
488 : : {
489 : 0 : }
490 : :
491 : : /* Evaluate Verilog-AMS equations in final step. */
492 : 0 : void hicumL0V1p2g::finalStep (void)
493 : : {
494 : 0 : }
495 : :
496 : : /* Evaluate Verilog-AMS equations in analog block. */
497 : 0 : void hicumL0V1p2g::calcVerilog (void)
498 : : {
499 : :
500 : : /* ----------------- evaluate verilog analog equations -------------------- */
501 : : double flicker_Pwr;
502 : : #if defined(_DERIVATE)
503 : : double flicker_Pwr_Vtnode_GND;
504 : : double flicker_Pwr_Vbi_ei;
505 : : double flicker_Pwr_Vci_ei;
506 : : double flicker_Pwr_Vbi_ci;
507 : : double flicker_Pwr_Vb_ci;
508 : : #endif
509 : : double twoq;
510 : : double fourkt;
511 : : #if defined(_DERIVATE)
512 : : double fourkt_Vtnode_GND;
513 : : #endif
514 : : #if defined(_DYNAMIC)
515 : : double Qbiei;
516 : : #if defined(_DERIVATE)
517 : : double Qbiei_Vtnode_GND;
518 : : double Qbiei_Vci_ei;
519 : : double Qbiei_Vbi_ei;
520 : : double Qbiei_Vbi_ci;
521 : : double Qbiei_Vb_ci;
522 : : #endif
523 : : #endif
524 : : #if defined(_DYNAMIC)
525 : : double Qbici;
526 : : #if defined(_DERIVATE)
527 : : double Qbici_Vbi_ci;
528 : : double Qbici_Vtnode_GND;
529 : : double Qbici_Vb_ci;
530 : : double Qbici_Vbi_ei;
531 : : double Qbici_Vci_ei;
532 : : #endif
533 : : #endif
534 : : #if defined(_DYNAMIC)
535 : : double Qbe;
536 : : #if defined(_DERIVATE)
537 : : double Qbe_Vb_e;
538 : : #endif
539 : : #endif
540 : : #if defined(_DYNAMIC)
541 : : double Qbci;
542 : : #if defined(_DERIVATE)
543 : : double Qbci_Vb_ci;
544 : : #endif
545 : : #endif
546 : : #if defined(_DERIVATE)
547 : : double Ibici_Vtnode_GND;
548 : : double Ibici_Vbi_ci;
549 : : double Ibici_Vbi_ei;
550 : : double Ibici_Vb_ci;
551 : : double Ibici_Vci_ei;
552 : : #endif
553 : : double pterm;
554 : : #if defined(_DERIVATE)
555 : : double pterm_Vci_c;
556 : : double pterm_Vei_e;
557 : : double pterm_Vb_bi;
558 : : double pterm_Vs_ci;
559 : : double pterm_Vtnode_GND;
560 : : double pterm_Vbi_ei;
561 : : double pterm_Vbi_ci;
562 : : double pterm_Vb_ci;
563 : : double pterm_Vci_ei;
564 : : #endif
565 : : #if defined(_DYNAMIC)
566 : : double qjs;
567 : : #if defined(_DERIVATE)
568 : : double qjs_Vci_ei;
569 : : double qjs_Vbi_ei;
570 : : double qjs_Vs_ci;
571 : : double qjs_Vbi_ci;
572 : : double qjs_Vtnode_GND;
573 : : double qjs_Vb_ci;
574 : : #endif
575 : : #endif
576 : : #if defined(_DERIVATE)
577 : : double ijsc_Vtnode_GND;
578 : : double ijsc_Vs_ci;
579 : : double ijsc_Vbi_ci;
580 : : double ijsc_Vbi_ei;
581 : : #endif
582 : : double HSI_Tsu;
583 : : #if defined(_DERIVATE)
584 : : double HSI_Tsu_Vtnode_GND;
585 : : double HSI_Tsu_Vb_ci;
586 : : double HSI_Tsu_Vs_ci;
587 : : #endif
588 : : double HSb;
589 : : #if defined(_DERIVATE)
590 : : double HSb_Vs_ci;
591 : : double HSb_Vtnode_GND;
592 : : #endif
593 : : double HSa;
594 : : #if defined(_DERIVATE)
595 : : double HSa_Vb_ci;
596 : : double HSa_Vtnode_GND;
597 : : #endif
598 : : double HSUM;
599 : : #if defined(_DERIVATE)
600 : : double HSUM_Vtnode_GND;
601 : : #endif
602 : : double rb;
603 : : #if defined(_DERIVATE)
604 : : double rb_Vtnode_GND;
605 : : double rb_Vci_ei;
606 : : double rb_Vbi_ei;
607 : : double rb_Vbi_ci;
608 : : double rb_Vb_ci;
609 : : #endif
610 : : double eta;
611 : : #if defined(_DERIVATE)
612 : : double eta_Vtnode_GND;
613 : : double eta_Vci_ei;
614 : : double eta_Vbi_ei;
615 : : double eta_Vbi_ci;
616 : : double eta_Vb_ci;
617 : : #endif
618 : : double rbi;
619 : : #if defined(_DERIVATE)
620 : : double rbi_Vtnode_GND;
621 : : double rbi_Vci_ei;
622 : : double rbi_Vbi_ei;
623 : : double rbi_Vbi_ci;
624 : : double rbi_Vb_ci;
625 : : #endif
626 : : double fQz;
627 : : #if defined(_DERIVATE)
628 : : double fQz_Vtnode_GND;
629 : : double fQz_Vci_ei;
630 : : double fQz_Vbi_ei;
631 : : double fQz_Vbi_ci;
632 : : double fQz_Vb_ci;
633 : : #endif
634 : : double Qz_nom;
635 : : #if defined(_DERIVATE)
636 : : double Qz_nom_Vtnode_GND;
637 : : double Qz_nom_Vci_ei;
638 : : double Qz_nom_Vbi_ei;
639 : : double Qz_nom_Vbi_ci;
640 : : double Qz_nom_Vb_ci;
641 : : #endif
642 : : double qje;
643 : : #if defined(_DERIVATE)
644 : : double qje_Vtnode_GND;
645 : : double qje_Vci_ei;
646 : : double qje_Vbi_ei;
647 : : double qje_Vbi_ci;
648 : : double qje_Vb_ci;
649 : : #endif
650 : : #if defined(_DERIVATE)
651 : : double qjei_Vtnode_GND;
652 : : double qjei_Vci_ei;
653 : : double qjei_Vbi_ei;
654 : : double qjei_Vbi_ci;
655 : : double qjei_Vb_ci;
656 : : #endif
657 : : double lncc;
658 : : #if defined(_DERIVATE)
659 : : double lncc_Vbi_ci;
660 : : double lncc_Vtnode_GND;
661 : : double lncc_Vb_ci;
662 : : #endif
663 : : #if defined(_DERIVATE)
664 : : double iavl_Vtnode_GND;
665 : : double iavl_Vbi_ei;
666 : : double iavl_Vbi_ci;
667 : : double iavl_Vb_ci;
668 : : double iavl_Vci_ei;
669 : : #endif
670 : : double a_iavl;
671 : : #if defined(_DERIVATE)
672 : : double a_iavl_Vtnode_GND;
673 : : double a_iavl_Vbi_ci;
674 : : double a_iavl_Vb_ci;
675 : : #endif
676 : : double v_bord;
677 : : #if defined(_DERIVATE)
678 : : double v_bord_Vtnode_GND;
679 : : #endif
680 : : double ibi;
681 : : #if defined(_DERIVATE)
682 : : double ibi_Vtnode_GND;
683 : : double ibi_Vbi_ei;
684 : : double ibi_Vci_ei;
685 : : double ibi_Vbi_ci;
686 : : double ibi_Vb_ci;
687 : : #endif
688 : : #if defined(_DERIVATE)
689 : : double ijbc_Vtnode_GND;
690 : : double ijbc_Vbi_ci;
691 : : double ijbc_Vbi_ei;
692 : : #endif
693 : : #if defined(_DERIVATE)
694 : : double ijbe_Vtnode_GND;
695 : : double ijbe_Vbi_ei;
696 : : double ijbe_Vci_ei;
697 : : double ijbe_Vbi_ci;
698 : : double ijbe_Vb_ci;
699 : : #endif
700 : : double ire;
701 : : #if defined(_DERIVATE)
702 : : double ire_Vtnode_GND;
703 : : double ire_Vbi_ei;
704 : : #endif
705 : : double ibe;
706 : : #if defined(_DERIVATE)
707 : : double ibe_Vtnode_GND;
708 : : double ibe_Vbi_ei;
709 : : #endif
710 : : double le;
711 : : #if defined(_DERIVATE)
712 : : double le_Vs_ci;
713 : : double le_Vbi_ci;
714 : : double le_Vbi_ei;
715 : : double le_Vtnode_GND;
716 : : #endif
717 : : double DIOY;
718 : : #if defined(_DERIVATE)
719 : : double DIOY_Vs_ci;
720 : : double DIOY_Vbi_ci;
721 : : double DIOY_Vbi_ei;
722 : : double DIOY_Vtnode_GND;
723 : : #endif
724 : : double ibrec;
725 : : #if defined(_DERIVATE)
726 : : double ibrec_Vtnode_GND;
727 : : double ibrec_Vbi_ei;
728 : : double ibrec_Vci_ei;
729 : : double ibrec_Vbi_ci;
730 : : double ibrec_Vb_ci;
731 : : #endif
732 : : #if defined(_DYNAMIC)
733 : : double qr;
734 : : #if defined(_DERIVATE)
735 : : double qr_Vtnode_GND;
736 : : double qr_Vbi_ci;
737 : : double qr_Vbi_ei;
738 : : double qr_Vb_ci;
739 : : double qr_Vci_ei;
740 : : #endif
741 : : #endif
742 : : double tf;
743 : : #if defined(_DYNAMIC)
744 : : double qf;
745 : : #if defined(_DERIVATE)
746 : : double qf_Vtnode_GND;
747 : : double qf_Vbi_ci;
748 : : double qf_Vb_ci;
749 : : double qf_Vbi_ei;
750 : : double qf_Vci_ei;
751 : : #endif
752 : : #endif
753 : : #if defined(_DYNAMIC)
754 : : double dqef;
755 : : #if defined(_DERIVATE)
756 : : double dqef_Vtnode_GND;
757 : : double dqef_Vbi_ei;
758 : : double dqef_Vbi_ci;
759 : : double dqef_Vb_ci;
760 : : double dqef_Vci_ei;
761 : : #endif
762 : : #endif
763 : : #if defined(_DYNAMIC)
764 : : double dtef;
765 : : #if defined(_DERIVATE)
766 : : double dtef_Vtnode_GND;
767 : : double dtef_Vbi_ei;
768 : : double dtef_Vbi_ci;
769 : : double dtef_Vb_ci;
770 : : double dtef_Vci_ei;
771 : : #endif
772 : : #endif
773 : : double dtfh;
774 : : #if defined(_DYNAMIC)
775 : : double dqfh;
776 : : #if defined(_DERIVATE)
777 : : double dqfh_Vtnode_GND;
778 : : double dqfh_Vci_ei;
779 : : double dqfh_Vbi_ei;
780 : : double dqfh_Vbi_ci;
781 : : double dqfh_Vb_ci;
782 : : #endif
783 : : #endif
784 : : #if defined(_DYNAMIC)
785 : : double tww;
786 : : #if defined(_DERIVATE)
787 : : double tww_Vtnode_GND;
788 : : double tww_Vci_ei;
789 : : double tww_Vbi_ei;
790 : : double tww_Vbi_ci;
791 : : double tww_Vb_ci;
792 : : #endif
793 : : #endif
794 : : #if defined(_DYNAMIC)
795 : : double s3;
796 : : #if defined(_DERIVATE)
797 : : double s3_Vci_ei;
798 : : double s3_Vbi_ei;
799 : : double s3_Vbi_ci;
800 : : double s3_Vb_ci;
801 : : double s3_Vtnode_GND;
802 : : #endif
803 : : #endif
804 : : #if defined(_DYNAMIC)
805 : : double qf0;
806 : : #if defined(_DERIVATE)
807 : : double qf0_Vtnode_GND;
808 : : double qf0_Vbi_ci;
809 : : double qf0_Vb_ci;
810 : : double qf0_Vbi_ei;
811 : : double qf0_Vci_ei;
812 : : #endif
813 : : #endif
814 : : #if defined(_DERIVATE)
815 : : double it_Vtnode_GND;
816 : : double it_Vbi_ei;
817 : : double it_Vbi_ci;
818 : : double it_Vb_ci;
819 : : double it_Vci_ei;
820 : : #endif
821 : : double itr;
822 : : #if defined(_DERIVATE)
823 : : double itr_Vtnode_GND;
824 : : double itr_Vbi_ci;
825 : : double itr_Vbi_ei;
826 : : double itr_Vb_ci;
827 : : double itr_Vci_ei;
828 : : #endif
829 : : double itf;
830 : : #if defined(_DERIVATE)
831 : : double itf_Vtnode_GND;
832 : : double itf_Vbi_ei;
833 : : double itf_Vbi_ci;
834 : : double itf_Vb_ci;
835 : : double itf_Vci_ei;
836 : : #endif
837 : : double qpt;
838 : : #if defined(_DERIVATE)
839 : : double qpt_Vtnode_GND;
840 : : double qpt_Vbi_ei;
841 : : double qpt_Vbi_ci;
842 : : double qpt_Vb_ci;
843 : : double qpt_Vci_ei;
844 : : #endif
845 : : double qm;
846 : : #if defined(_DERIVATE)
847 : : double qm_Vtnode_GND;
848 : : double qm_Vbi_ei;
849 : : double qm_Vbi_ci;
850 : : double qm_Vb_ci;
851 : : double qm_Vci_ei;
852 : : #endif
853 : : double qmBw;
854 : : #if defined(_DERIVATE)
855 : : double qmBw_Vtnode_GND;
856 : : double qmBw_Vbi_ei;
857 : : double qmBw_Vci_ei;
858 : : double qmBw_Vbi_ci;
859 : : double qmBw_Vb_ci;
860 : : #endif
861 : : double w;
862 : : #if defined(_DERIVATE)
863 : : double w_Vci_ei;
864 : : double w_Vbi_ei;
865 : : double w_Vbi_ci;
866 : : double w_Vb_ci;
867 : : double w_Vtnode_GND;
868 : : #endif
869 : : double a2;
870 : : #if defined(_DERIVATE)
871 : : double a2_Vtnode_GND;
872 : : double a2_Vci_ei;
873 : : double a2_Vbi_ei;
874 : : double a2_Vbi_ci;
875 : : double a2_Vb_ci;
876 : : #endif
877 : : double a1;
878 : : #if defined(_DERIVATE)
879 : : double a1_Vtnode_GND;
880 : : double a1_Vci_ei;
881 : : double a1_Vbi_ei;
882 : : double a1_Vbi_ci;
883 : : double a1_Vb_ci;
884 : : #endif
885 : : double qpt_h;
886 : : #if defined(_DERIVATE)
887 : : double qpt_h_Vtnode_GND;
888 : : double qpt_h_Vbi_ei;
889 : : double qpt_h_Vbi_ci;
890 : : double qpt_h_Vb_ci;
891 : : double qpt_h_Vci_ei;
892 : : #endif
893 : : double qpt_l;
894 : : #if defined(_DERIVATE)
895 : : double qpt_l_Vtnode_GND;
896 : : double qpt_l_Vbi_ei;
897 : : double qpt_l_Vbi_ci;
898 : : double qpt_l_Vb_ci;
899 : : double qpt_l_Vci_ei;
900 : : #endif
901 : : double qmh;
902 : : #if defined(_DERIVATE)
903 : : double qmh_Vtnode_GND;
904 : : double qmh_Vbi_ei;
905 : : double qmh_Vbi_ci;
906 : : double qmh_Vb_ci;
907 : : double qmh_Vci_ei;
908 : : #endif
909 : : double qml;
910 : : #if defined(_DERIVATE)
911 : : double qml_Vtnode_GND;
912 : : double qml_Vbi_ei;
913 : : double qml_Vbi_ci;
914 : : double qml_Vb_ci;
915 : : double qml_Vci_ei;
916 : : #endif
917 : : double qmB;
918 : : #if defined(_DERIVATE)
919 : : double qmB_Vtnode_GND;
920 : : double qmB_Vbi_ei;
921 : : #endif
922 : : double qm0;
923 : : #if defined(_DERIVATE)
924 : : double qm0_Vtnode_GND;
925 : : double qm0_Vbi_ei;
926 : : double qm0_Vbi_ci;
927 : : double qm0_Vb_ci;
928 : : #endif
929 : : double qmE;
930 : : #if defined(_DERIVATE)
931 : : double qmE_Vtnode_GND;
932 : : double qmE_Vbi_ei;
933 : : double qmE_Vci_ei;
934 : : double qmE_Vbi_ci;
935 : : double qmE_Vb_ci;
936 : : #endif
937 : : double ick;
938 : : #if defined(_DERIVATE)
939 : : double ick_Vtnode_GND;
940 : : double ick_Vci_ei;
941 : : double ick_Vbi_ei;
942 : : double ick_Vbi_ci;
943 : : double ick_Vb_ci;
944 : : #endif
945 : : double vceff;
946 : : #if defined(_DERIVATE)
947 : : double vceff_Vtnode_GND;
948 : : double vceff_Vci_ei;
949 : : #endif
950 : : double uvc;
951 : : #if defined(_DERIVATE)
952 : : double uvc_Vci_ei;
953 : : double uvc_Vtnode_GND;
954 : : #endif
955 : : double vc;
956 : : #if defined(_DERIVATE)
957 : : double vc_Vci_ei;
958 : : double vc_Vtnode_GND;
959 : : #endif
960 : : double ickr;
961 : : #if defined(_DERIVATE)
962 : : double ickr_Vtnode_GND;
963 : : #endif
964 : : double ickf;
965 : : #if defined(_DERIVATE)
966 : : double ickf_Vtnode_GND;
967 : : double ickf_Vbi_ci;
968 : : double ickf_Vb_ci;
969 : : #endif
970 : : double denom_iqf;
971 : : #if defined(_DERIVATE)
972 : : double denom_iqf_Vtnode_GND;
973 : : double denom_iqf_Vbi_ci;
974 : : double denom_iqf_Vb_ci;
975 : : #endif
976 : : double itri;
977 : : #if defined(_DERIVATE)
978 : : double itri_Vtnode_GND;
979 : : double itri_Vbi_ci;
980 : : #endif
981 : : double le2;
982 : : #if defined(_DERIVATE)
983 : : double le2_Vbi_ci;
984 : : double le2_Vtnode_GND;
985 : : #endif
986 : : double arg2;
987 : : #if defined(_DERIVATE)
988 : : double arg2_Vbi_ci;
989 : : double arg2_Vtnode_GND;
990 : : #endif
991 : : double itfi;
992 : : #if defined(_DERIVATE)
993 : : double itfi_Vtnode_GND;
994 : : double itfi_Vbi_ei;
995 : : #endif
996 : : double le1;
997 : : #if defined(_DERIVATE)
998 : : double le1_Vbi_ei;
999 : : double le1_Vtnode_GND;
1000 : : #endif
1001 : : double arg1;
1002 : : #if defined(_DERIVATE)
1003 : : double arg1_Vbi_ei;
1004 : : double arg1_Vtnode_GND;
1005 : : #endif
1006 : : double b_q;
1007 : : #if defined(_DERIVATE)
1008 : : double b_q_Vtnode_GND;
1009 : : double b_q_Vbi_ei;
1010 : : double b_q_Vbi_ci;
1011 : : double b_q_Vb_ci;
1012 : : #endif
1013 : : double qj_2;
1014 : : #if defined(_DERIVATE)
1015 : : double qj_2_Vtnode_GND;
1016 : : double qj_2_Vbi_ei;
1017 : : double qj_2_Vbi_ci;
1018 : : double qj_2_Vb_ci;
1019 : : #endif
1020 : : double Gjci;
1021 : : #if defined(_DERIVATE)
1022 : : double Gjci_Vtnode_GND;
1023 : : double Gjci_Vbi_ei;
1024 : : double Gjci_Vbi_ci;
1025 : : double Gjci_Vb_ci;
1026 : : #endif
1027 : : double Dfic;
1028 : : #if defined(_DERIVATE)
1029 : : double Dfic_Vtnode_GND;
1030 : : #endif
1031 : : double qjcidc;
1032 : : #if defined(_DERIVATE)
1033 : : double qjcidc_Vbi_ei;
1034 : : double qjcidc_Vbi_ci;
1035 : : double qjcidc_Vtnode_GND;
1036 : : double qjcidc_Vb_ci;
1037 : : #endif
1038 : : double Gjei;
1039 : : #if defined(_DERIVATE)
1040 : : double Gjei_Vtnode_GND;
1041 : : double Gjei_Vbi_ei;
1042 : : double Gjei_Vbi_ci;
1043 : : double Gjei_Vb_ci;
1044 : : #endif
1045 : : double Dfie;
1046 : : #if defined(_DERIVATE)
1047 : : double Dfie_Vtnode_GND;
1048 : : #endif
1049 : : double qjedc;
1050 : : #if defined(_DERIVATE)
1051 : : double qjedc_Vtnode_GND;
1052 : : double qjedc_Vbi_ei;
1053 : : double qjedc_Vbi_ci;
1054 : : double qjedc_Vb_ci;
1055 : : #endif
1056 : : double Vbiei_l;
1057 : : #if defined(_DERIVATE)
1058 : : double Vbiei_l_Vbi_ci;
1059 : : double Vbiei_l_Vtnode_GND;
1060 : : double Vbiei_l_Vb_ci;
1061 : : double Vbiei_l_Vbi_ei;
1062 : : #endif
1063 : : double sqx;
1064 : : #if defined(_DERIVATE)
1065 : : double sqx_Vbi_ei;
1066 : : double sqx_Vbi_ci;
1067 : : double sqx_Vtnode_GND;
1068 : : double sqx_Vb_ci;
1069 : : #endif
1070 : : double aa;
1071 : : #if defined(_DERIVATE)
1072 : : double aa_Vci_ei;
1073 : : double aa_Vbi_ei;
1074 : : double aa_Vbi_ci;
1075 : : double aa_Vb_ci;
1076 : : double aa_Vtnode_GND;
1077 : : #endif
1078 : : double expv;
1079 : : #if defined(_DERIVATE)
1080 : : double expv_Vtnode_GND;
1081 : : #endif
1082 : : double a_bpt;
1083 : : double ajedc_t;
1084 : : #if defined(_DERIVATE)
1085 : : double ajedc_t_Vtnode_GND;
1086 : : #endif
1087 : : double cT_cT0;
1088 : : #if defined(_DERIVATE)
1089 : : double cT_cT0_Vtnode_GND;
1090 : : #endif
1091 : : double vdedc_t;
1092 : : #if defined(_DERIVATE)
1093 : : double vdedc_t_Vtnode_GND;
1094 : : #endif
1095 : : double tf0;
1096 : : #if defined(_DERIVATE)
1097 : : double tf0_Vtnode_GND;
1098 : : double tf0_Vbi_ci;
1099 : : double tf0_Vb_ci;
1100 : : #endif
1101 : : double cc;
1102 : : #if defined(_DERIVATE)
1103 : : double cc_Vbi_ci;
1104 : : double cc_Vtnode_GND;
1105 : : double cc_Vb_ci;
1106 : : #endif
1107 : : double occ;
1108 : : #if defined(_DERIVATE)
1109 : : double occ_Vbi_ci;
1110 : : double occ_Vtnode_GND;
1111 : : double occ_Vb_ci;
1112 : : #endif
1113 : : double dvj;
1114 : : #if defined(_DERIVATE)
1115 : : double dvj_Vbi_ci;
1116 : : double dvj_Vtnode_GND;
1117 : : double dvj_Vb_ci;
1118 : : #endif
1119 : : #if defined(_DYNAMIC)
1120 : : double qjcii;
1121 : : #if defined(_DERIVATE)
1122 : : double qjcii_Vbi_ci;
1123 : : double qjcii_Vtnode_GND;
1124 : : double qjcii_Vb_ci;
1125 : : #endif
1126 : : #endif
1127 : : #if defined(_DERIVATE)
1128 : : double qjci_Vbi_ci;
1129 : : double qjci_Vtnode_GND;
1130 : : double qjci_Vb_ci;
1131 : : #endif
1132 : : double cjcx0_t_ii;
1133 : : #if defined(_DERIVATE)
1134 : : double cjcx0_t_ii_Vtnode_GND;
1135 : : #endif
1136 : : double y;
1137 : : #if defined(_DERIVATE)
1138 : : double y_Vs_ci;
1139 : : double y_Vci_ei;
1140 : : double y_Vbi_ei;
1141 : : double y_Vbi_ci;
1142 : : double y_Vtnode_GND;
1143 : : double y_Vb_ci;
1144 : : #endif
1145 : : double x;
1146 : : #if defined(_DERIVATE)
1147 : : double x_Vci_ei;
1148 : : double x_Vbi_ei;
1149 : : double x_Vbi_ci;
1150 : : double x_Vtnode_GND;
1151 : : double x_Vb_ci;
1152 : : #endif
1153 : : double v_j;
1154 : : #if defined(_DERIVATE)
1155 : : double v_j_Vs_ci;
1156 : : double v_j_Vbi_ei;
1157 : : double v_j_Vbi_ci;
1158 : : double v_j_Vtnode_GND;
1159 : : double v_j_Vb_ci;
1160 : : #endif
1161 : : double xvf2;
1162 : : #if defined(_DERIVATE)
1163 : : double xvf2_Vs_ci;
1164 : : double xvf2_Vbi_ei;
1165 : : double xvf2_Vbi_ci;
1166 : : double xvf2_Vtnode_GND;
1167 : : double xvf2_Vb_ci;
1168 : : #endif
1169 : : double xvf;
1170 : : #if defined(_DERIVATE)
1171 : : double xvf_Vs_ci;
1172 : : double xvf_Vbi_ei;
1173 : : double xvf_Vbi_ci;
1174 : : double xvf_Vtnode_GND;
1175 : : double xvf_Vb_ci;
1176 : : #endif
1177 : : #if defined(_DYNAMIC)
1178 : : double qjcx;
1179 : : #if defined(_DERIVATE)
1180 : : double qjcx_Vbi_ci;
1181 : : double qjcx_Vtnode_GND;
1182 : : double qjcx_Vb_ci;
1183 : : #endif
1184 : : #endif
1185 : : double qj3;
1186 : : #if defined(_DERIVATE)
1187 : : double qj3_Vci_ei;
1188 : : double qj3_Vbi_ei;
1189 : : double qj3_Vs_ci;
1190 : : double qj3_Vbi_ci;
1191 : : double qj3_Vtnode_GND;
1192 : : double qj3_Vb_ci;
1193 : : #endif
1194 : : double qj2;
1195 : : #if defined(_DERIVATE)
1196 : : double qj2_Vci_ei;
1197 : : double qj2_Vbi_ei;
1198 : : double qj2_Vs_ci;
1199 : : double qj2_Vbi_ci;
1200 : : double qj2_Vtnode_GND;
1201 : : double qj2_Vb_ci;
1202 : : #endif
1203 : : double qj1;
1204 : : #if defined(_DERIVATE)
1205 : : double qj1_Vci_ei;
1206 : : double qj1_Vbi_ei;
1207 : : double qj1_Vs_ci;
1208 : : double qj1_Vbi_ci;
1209 : : double qj1_Vtnode_GND;
1210 : : double qj1_Vb_ci;
1211 : : #endif
1212 : : double vdj2;
1213 : : #if defined(_DERIVATE)
1214 : : double vdj2_Vci_ei;
1215 : : double vdj2_Vbi_ei;
1216 : : double vdj2_Vs_ci;
1217 : : double vdj2_Vbi_ci;
1218 : : double vdj2_Vtnode_GND;
1219 : : double vdj2_Vb_ci;
1220 : : #endif
1221 : : double vdj1;
1222 : : #if defined(_DERIVATE)
1223 : : double vdj1_Vci_ei;
1224 : : double vdj1_Vbi_ei;
1225 : : double vdj1_Vs_ci;
1226 : : double vdj1_Vbi_ci;
1227 : : double vdj1_Vtnode_GND;
1228 : : double vdj1_Vb_ci;
1229 : : #endif
1230 : : double ezr;
1231 : : double ez;
1232 : : double vj4;
1233 : : #if defined(_DERIVATE)
1234 : : double vj4_Vs_ci;
1235 : : double vj4_Vci_ei;
1236 : : double vj4_Vbi_ei;
1237 : : double vj4_Vbi_ci;
1238 : : double vj4_Vb_ci;
1239 : : double vj4_Vtnode_GND;
1240 : : #endif
1241 : : double vj2;
1242 : : #if defined(_DERIVATE)
1243 : : double vj2_Vci_ei;
1244 : : double vj2_Vbi_ei;
1245 : : double vj2_Vs_ci;
1246 : : double vj2_Vbi_ci;
1247 : : double vj2_Vtnode_GND;
1248 : : double vj2_Vb_ci;
1249 : : #endif
1250 : : double vr;
1251 : : #if defined(_DERIVATE)
1252 : : double vr_Vci_ei;
1253 : : double vr_Vbi_ei;
1254 : : double vr_Vs_ci;
1255 : : double vr_Vbi_ci;
1256 : : double vr_Vtnode_GND;
1257 : : double vr_Vb_ci;
1258 : : #endif
1259 : : double vj1;
1260 : : #if defined(_DERIVATE)
1261 : : double vj1_Vci_ei;
1262 : : double vj1_Vbi_ei;
1263 : : double vj1_Vs_ci;
1264 : : double vj1_Vbi_ci;
1265 : : double vj1_Vtnode_GND;
1266 : : double vj1_Vb_ci;
1267 : : #endif
1268 : : double ee1;
1269 : : #if defined(_DERIVATE)
1270 : : double ee1_Vs_ci;
1271 : : double ee1_Vci_ei;
1272 : : double ee1_Vbi_ei;
1273 : : double ee1_Vbi_ci;
1274 : : double ee1_Vtnode_GND;
1275 : : double ee1_Vb_ci;
1276 : : #endif
1277 : : double ex1;
1278 : : #if defined(_DERIVATE)
1279 : : double ex1_Vs_ci;
1280 : : double ex1_Vci_ei;
1281 : : double ex1_Vbi_ei;
1282 : : double ex1_Vbi_ci;
1283 : : double ex1_Vtnode_GND;
1284 : : double ex1_Vb_ci;
1285 : : #endif
1286 : : double ve;
1287 : : #if defined(_DERIVATE)
1288 : : double ve_Vs_ci;
1289 : : double ve_Vci_ei;
1290 : : double ve_Vbi_ei;
1291 : : double ve_Vbi_ci;
1292 : : double ve_Vtnode_GND;
1293 : : double ve_Vb_ci;
1294 : : #endif
1295 : : double a;
1296 : : #if defined(_DERIVATE)
1297 : : double a_Vci_ei;
1298 : : double a_Vbi_ei;
1299 : : double a_Vbi_ci;
1300 : : double a_Vb_ci;
1301 : : double a_Vtnode_GND;
1302 : : #endif
1303 : : double cr;
1304 : : #if defined(_DERIVATE)
1305 : : double cr_Vtnode_GND;
1306 : : #endif
1307 : : double cmax;
1308 : : #if defined(_DERIVATE)
1309 : : double cmax_Vtnode_GND;
1310 : : #endif
1311 : : double vf;
1312 : : #if defined(_DERIVATE)
1313 : : double vf_Vtnode_GND;
1314 : : #endif
1315 : : double vp;
1316 : : #if defined(_DERIVATE)
1317 : : double vp_Vtnode_GND;
1318 : : #endif
1319 : : double zr;
1320 : : double cjcx0_t_i;
1321 : : #if defined(_DERIVATE)
1322 : : double cjcx0_t_i_Vtnode_GND;
1323 : : #endif
1324 : : #if defined(_DYNAMIC)
1325 : : double qjcxi;
1326 : : #if defined(_DERIVATE)
1327 : : double qjcxi_Vbi_ci;
1328 : : double qjcxi_Vtnode_GND;
1329 : : double qjcxi_Vb_ci;
1330 : : #endif
1331 : : #endif
1332 : : double cjci0_t_ii;
1333 : : #if defined(_DERIVATE)
1334 : : double cjci0_t_ii_Vtnode_GND;
1335 : : #endif
1336 : : double rth_t;
1337 : : #if defined(_DERIVATE)
1338 : : double rth_t_Vtnode_GND;
1339 : : #endif
1340 : : double eavl_t;
1341 : : #if defined(_DERIVATE)
1342 : : double eavl_t_Vtnode_GND;
1343 : : #endif
1344 : : double kavl_t;
1345 : : #if defined(_DERIVATE)
1346 : : double kavl_t_Vtnode_GND;
1347 : : #endif
1348 : : double qavl_t;
1349 : : #if defined(_DERIVATE)
1350 : : double qavl_t_Vtnode_GND;
1351 : : #endif
1352 : : double favl_t;
1353 : : #if defined(_DERIVATE)
1354 : : double favl_t_Vtnode_GND;
1355 : : #endif
1356 : : double qavl;
1357 : : double favl;
1358 : : double re_t;
1359 : : #if defined(_DERIVATE)
1360 : : double re_t_Vtnode_GND;
1361 : : #endif
1362 : : double rbi0_t;
1363 : : #if defined(_DERIVATE)
1364 : : double rbi0_t_Vtnode_GND;
1365 : : #endif
1366 : : double rcx_t;
1367 : : #if defined(_DERIVATE)
1368 : : double rcx_t_Vtnode_GND;
1369 : : #endif
1370 : : double rbx_t;
1371 : : #if defined(_DERIVATE)
1372 : : double rbx_t_Vtnode_GND;
1373 : : #endif
1374 : : #if defined(_DYNAMIC)
1375 : : double tef0_t;
1376 : : #if defined(_DERIVATE)
1377 : : double tef0_t_Vtnode_GND;
1378 : : #endif
1379 : : #endif
1380 : : #if defined(_DYNAMIC)
1381 : : double dvg;
1382 : : #endif
1383 : : #if defined(_DYNAMIC)
1384 : : double zetatef;
1385 : : #endif
1386 : : #if defined(_DYNAMIC)
1387 : : double thcs_t;
1388 : : #if defined(_DERIVATE)
1389 : : double thcs_t_Vtnode_GND;
1390 : : #endif
1391 : : #endif
1392 : : double t0_t;
1393 : : #if defined(_DERIVATE)
1394 : : double t0_t_Vtnode_GND;
1395 : : #endif
1396 : : double vces_t;
1397 : : #if defined(_DERIVATE)
1398 : : double vces_t_Vtnode_GND;
1399 : : #endif
1400 : : double vlim_t;
1401 : : #if defined(_DERIVATE)
1402 : : double vlim_t_Vtnode_GND;
1403 : : #endif
1404 : : double rci0_t;
1405 : : #if defined(_DERIVATE)
1406 : : double rci0_t_Vtnode_GND;
1407 : : #endif
1408 : : #if defined(_DYNAMIC)
1409 : : double cjs0_t;
1410 : : #if defined(_DERIVATE)
1411 : : double cjs0_t_Vtnode_GND;
1412 : : #endif
1413 : : #endif
1414 : : #if defined(_DYNAMIC)
1415 : : double vds_t;
1416 : : #if defined(_DERIVATE)
1417 : : double vds_t_Vtnode_GND;
1418 : : #endif
1419 : : #endif
1420 : : double cjcx0_t;
1421 : : #if defined(_DERIVATE)
1422 : : double cjcx0_t_Vtnode_GND;
1423 : : #endif
1424 : : double vdcx_t;
1425 : : #if defined(_DERIVATE)
1426 : : double vdcx_t_Vtnode_GND;
1427 : : #endif
1428 : : double cjci0_t;
1429 : : #if defined(_DERIVATE)
1430 : : double cjci0_t_Vtnode_GND;
1431 : : #endif
1432 : : double vdci_t;
1433 : : #if defined(_DERIVATE)
1434 : : double vdci_t_Vtnode_GND;
1435 : : #endif
1436 : : double aje_t;
1437 : : #if defined(_DERIVATE)
1438 : : double aje_t_Vtnode_GND;
1439 : : #endif
1440 : : double cje0_t;
1441 : : #if defined(_DERIVATE)
1442 : : double cje0_t_Vtnode_GND;
1443 : : #endif
1444 : : double vde_t;
1445 : : #if defined(_DERIVATE)
1446 : : double vde_t_Vtnode_GND;
1447 : : #endif
1448 : : double vdjt;
1449 : : #if defined(_DERIVATE)
1450 : : double vdjt_Vtnode_GND;
1451 : : #endif
1452 : : double vdj0;
1453 : : double arg;
1454 : : double is_t;
1455 : : #if defined(_DERIVATE)
1456 : : double is_t_Vtnode_GND;
1457 : : #endif
1458 : : double vef_t;
1459 : : #if defined(_DERIVATE)
1460 : : double vef_t_Vtnode_GND;
1461 : : #endif
1462 : : double ver_t;
1463 : : #if defined(_DERIVATE)
1464 : : double ver_t_Vtnode_GND;
1465 : : #endif
1466 : : double iqfe_t;
1467 : : #if defined(_DERIVATE)
1468 : : double iqfe_t_Vtnode_GND;
1469 : : #endif
1470 : : double iqfh_t;
1471 : : #if defined(_DERIVATE)
1472 : : double iqfh_t_Vtnode_GND;
1473 : : #endif
1474 : : double iqr_t;
1475 : : #if defined(_DERIVATE)
1476 : : double iqr_t_Vtnode_GND;
1477 : : #endif
1478 : : double iqf_t;
1479 : : #if defined(_DERIVATE)
1480 : : double iqf_t_Vtnode_GND;
1481 : : #endif
1482 : : double expiqf;
1483 : : #if defined(_DERIVATE)
1484 : : double expiqf_Vtnode_GND;
1485 : : #endif
1486 : : double mrgt;
1487 : : #if defined(_DERIVATE)
1488 : : double mrgt_Vtnode_GND;
1489 : : #endif
1490 : : double iscs_t;
1491 : : #if defined(_DERIVATE)
1492 : : double iscs_t_Vtnode_GND;
1493 : : #endif
1494 : : double itss_t;
1495 : : #if defined(_DERIVATE)
1496 : : double itss_t_Vtnode_GND;
1497 : : #endif
1498 : : double ibcs_t;
1499 : : #if defined(_DERIVATE)
1500 : : double ibcs_t_Vtnode_GND;
1501 : : #endif
1502 : : double ires_t;
1503 : : #if defined(_DERIVATE)
1504 : : double ires_t_Vtnode_GND;
1505 : : #endif
1506 : : double ibes_t;
1507 : : #if defined(_DERIVATE)
1508 : : double ibes_t_Vtnode_GND;
1509 : : #endif
1510 : : double zetasct;
1511 : : double zetabci;
1512 : : double mg;
1513 : : double vgsc;
1514 : : double vgbc;
1515 : : double vgbe;
1516 : : double avs;
1517 : : double k2;
1518 : : double k1;
1519 : : double ln_qtt0;
1520 : : #if defined(_DERIVATE)
1521 : : double ln_qtt0_Vtnode_GND;
1522 : : #endif
1523 : : double qtt0;
1524 : : #if defined(_DERIVATE)
1525 : : double qtt0_Vtnode_GND;
1526 : : #endif
1527 : : double dT;
1528 : : #if defined(_DERIVATE)
1529 : : double dT_Vtnode_GND;
1530 : : #endif
1531 : : double VT;
1532 : : #if defined(_DERIVATE)
1533 : : double VT_Vtnode_GND;
1534 : : #endif
1535 : : double vt0;
1536 : : double Tdev;
1537 : : #if defined(_DERIVATE)
1538 : : double Tdev_Vtnode_GND;
1539 : : #endif
1540 : : double Tamb;
1541 : : double Tnom;
1542 : : double Vrth;
1543 : : #if defined(_DERIVATE)
1544 : : double Vrth_Vtnode_GND;
1545 : : #endif
1546 : : #if defined(_DYNAMIC)
1547 : : double Vbe;
1548 : : #if defined(_DERIVATE)
1549 : : double Vbe_Vb_e;
1550 : : #endif
1551 : : #endif
1552 : : double Vbbi;
1553 : : #if defined(_DERIVATE)
1554 : : double Vbbi_Vb_bi;
1555 : : #endif
1556 : : double Vcic;
1557 : : #if defined(_DERIVATE)
1558 : : double Vcic_Vci_c;
1559 : : #endif
1560 : : double Veie;
1561 : : #if defined(_DERIVATE)
1562 : : double Veie_Vei_e;
1563 : : #endif
1564 : : double Vsci;
1565 : : #if defined(_DERIVATE)
1566 : : double Vsci_Vs_ci;
1567 : : #endif
1568 : : double Vciei;
1569 : : #if defined(_DERIVATE)
1570 : : double Vciei_Vci_ei;
1571 : : #endif
1572 : : double Vbiei;
1573 : : #if defined(_DERIVATE)
1574 : : double Vbiei_Vbi_ei;
1575 : : #endif
1576 : : double Vbici;
1577 : : #if defined(_DERIVATE)
1578 : : double Vbici_Vbi_ci;
1579 : : #endif
1580 : : double Vbci;
1581 : : #if defined(_DERIVATE)
1582 : : double Vbci_Vb_ci;
1583 : : #endif
1584 : : #if defined(_DERIVATE)
1585 : 0 : Vbci_Vb_ci=(HICUMtype);
1586 : : #endif
1587 [ # # ]: 0 : Vbci=(HICUMtype*BP(b,ci));
1588 : : #if defined(_DERIVATE)
1589 : 0 : Vbici_Vbi_ci=(HICUMtype);
1590 : : #endif
1591 [ # # ]: 0 : Vbici=(HICUMtype*BP(bi,ci));
1592 : : #if defined(_DERIVATE)
1593 : 0 : Vbiei_Vbi_ei=(HICUMtype);
1594 : : #endif
1595 [ # # ]: 0 : Vbiei=(HICUMtype*BP(bi,ei));
1596 : : #if defined(_DERIVATE)
1597 : 0 : Vciei_Vci_ei=(HICUMtype);
1598 : : #endif
1599 [ # # ]: 0 : Vciei=(HICUMtype*BP(ci,ei));
1600 : : #if defined(_DERIVATE)
1601 : 0 : Vsci_Vs_ci=(HICUMtype);
1602 : : #endif
1603 [ # # ]: 0 : Vsci=(HICUMtype*BP(s,ci));
1604 : : #if defined(_DERIVATE)
1605 : 0 : Veie_Vei_e=1.0;
1606 : : #endif
1607 [ # # ]: 0 : Veie=BP(ei,e);
1608 : : #if defined(_DERIVATE)
1609 : 0 : Vcic_Vci_c=1.0;
1610 : : #endif
1611 [ # # ]: 0 : Vcic=BP(ci,c);
1612 : : #if defined(_DERIVATE)
1613 : 0 : Vbbi_Vb_bi=1.0;
1614 : : #endif
1615 [ # # ]: 0 : Vbbi=BP(b,bi);
1616 : : #if defined(_DYNAMIC)
1617 : : #if defined(_DERIVATE)
1618 : 0 : Vbe_Vb_e=(HICUMtype);
1619 : : #endif
1620 [ # # ]: 0 : Vbe=(HICUMtype*BP(b,e));
1621 : : #endif
1622 : : #if defined(_DERIVATE)
1623 : 0 : Vrth_Vtnode_GND=1.0;
1624 : : #endif
1625 : 0 : Vrth=NP(tnode);
1626 : 0 : Tnom=(tnom+273.15);
1627 : 0 : Tamb=_circuit_temp;
1628 : : #if defined(_DERIVATE)
1629 : 0 : Tdev_Vtnode_GND=Vrth_Vtnode_GND;
1630 : : #endif
1631 : 0 : Tdev=((Tamb+dt)+Vrth);
1632 [ # # ]: 0 : if
1633 : : (Tdev<((-100.00)+273.15))
1634 : : {
1635 : : #if defined(_DERIVATE)
1636 : 0 : Tdev_Vtnode_GND=0.0;
1637 : : #endif
1638 : 0 : Tdev=((-100.00)+273.15);
1639 : : }
1640 : : else
1641 : : {
1642 [ # # ]: 0 : if
1643 : : (Tdev>(326.85+273.15))
1644 : : {
1645 : : #if defined(_DERIVATE)
1646 : 0 : Tdev_Vtnode_GND=0.0;
1647 : : #endif
1648 : 0 : Tdev=(326.85+273.15);
1649 : : }
1650 : : }
1651 : 0 : vt0=((1.3806503e-23*Tnom)/1.602176462e-19);
1652 : : #if defined(_DERIVATE)
1653 : 0 : VT_Vtnode_GND=((1.3806503e-23*Tdev_Vtnode_GND)/1.602176462e-19);
1654 : : #endif
1655 : 0 : VT=((1.3806503e-23*Tdev)/1.602176462e-19);
1656 : : #if defined(_DERIVATE)
1657 : 0 : dT_Vtnode_GND=Tdev_Vtnode_GND;
1658 : : #endif
1659 : 0 : dT=(Tdev-Tnom);
1660 : : #if defined(_DERIVATE)
1661 : 0 : qtt0_Vtnode_GND=(Tdev_Vtnode_GND/Tnom);
1662 : : #endif
1663 : 0 : qtt0=(Tdev/Tnom);
1664 : : {
1665 : 0 : double m00_logE(d00_logE0,qtt0)
1666 : : #if defined(_DERIVATE)
1667 : 0 : double m10_logE(d10_logE0,d00_logE0,qtt0)
1668 : : #endif
1669 : : #if defined(_DERIVATE)
1670 : 0 : ln_qtt0_Vtnode_GND=qtt0_Vtnode_GND*d10_logE0;
1671 : : #endif
1672 : 0 : ln_qtt0=d00_logE0;
1673 : : }
1674 : : #if defined(_DYNAMIC)
1675 : 0 : k1=(f1vg*Tnom);
1676 : : #endif
1677 : : #if defined(_DYNAMIC)
1678 : : {
1679 : 0 : double m00_logE(d00_logE0,Tnom)
1680 : 0 : k2=((f2vg*Tnom)+(k1*d00_logE0));
1681 : : }
1682 : : #endif
1683 : 0 : avs=(alvs*Tnom);
1684 : 0 : vgbe=((vgb+vge)/2);
1685 : 0 : vgbc=((vgb+vgc)/2);
1686 : 0 : vgsc=((vgs+vgc)/2);
1687 : 0 : mg=(3-((1.602176462e-19*f1vg)/1.3806503e-23));
1688 : 0 : zetabci=((mg+1)-zetaci);
1689 : 0 : zetasct=(mg-1.5);
1690 : : {
1691 : 0 : double m00_exp(d00_exp0,((zetabet*ln_qtt0)+((vge/VT)*(qtt0-1))))
1692 : : #if defined(_DERIVATE)
1693 : : #define d10_exp0 d00_exp0
1694 : : #endif
1695 : : #if defined(_DERIVATE)
1696 : 0 : ibes_t_Vtnode_GND=(ibes*((zetabet*ln_qtt0_Vtnode_GND)+(((-vge*VT_Vtnode_GND/VT/VT)*(qtt0-1))+((vge/VT)*qtt0_Vtnode_GND)))*d10_exp0);
1697 : : #endif
1698 : 0 : ibes_t=(ibes*d00_exp0);
1699 : : }
1700 : : {
1701 : 0 : double m00_exp(d00_exp0,(((0.5*mg)*ln_qtt0)+(((0.5*vgbe)/VT)*(qtt0-1))))
1702 : : #if defined(_DERIVATE)
1703 : : #define d10_exp0 d00_exp0
1704 : : #endif
1705 : : #if defined(_DERIVATE)
1706 : 0 : ires_t_Vtnode_GND=(ires*(((0.5*mg)*ln_qtt0_Vtnode_GND)+(((-(0.5*vgbe)*VT_Vtnode_GND/VT/VT)*(qtt0-1))+(((0.5*vgbe)/VT)*qtt0_Vtnode_GND)))*d10_exp0);
1707 : : #endif
1708 : 0 : ires_t=(ires*d00_exp0);
1709 : : }
1710 : : {
1711 : 0 : double m00_exp(d00_exp0,((zetabci*ln_qtt0)+((vgc/VT)*(qtt0-1))))
1712 : : #if defined(_DERIVATE)
1713 : : #define d10_exp0 d00_exp0
1714 : : #endif
1715 : : #if defined(_DERIVATE)
1716 : 0 : ibcs_t_Vtnode_GND=(ibcs*((zetabci*ln_qtt0_Vtnode_GND)+(((-vgc*VT_Vtnode_GND/VT/VT)*(qtt0-1))+((vgc/VT)*qtt0_Vtnode_GND)))*d10_exp0);
1717 : : #endif
1718 : 0 : ibcs_t=(ibcs*d00_exp0);
1719 : : }
1720 : : {
1721 : 0 : double m00_exp(d00_exp0,((zetasct*ln_qtt0)+((vgc/VT)*(qtt0-1))))
1722 : : #if defined(_DERIVATE)
1723 : : #define d10_exp0 d00_exp0
1724 : : #endif
1725 : : #if defined(_DERIVATE)
1726 : 0 : itss_t_Vtnode_GND=(itss*((zetasct*ln_qtt0_Vtnode_GND)+(((-vgc*VT_Vtnode_GND/VT/VT)*(qtt0-1))+((vgc/VT)*qtt0_Vtnode_GND)))*d10_exp0);
1727 : : #endif
1728 : 0 : itss_t=(itss*d00_exp0);
1729 : : }
1730 : : {
1731 : 0 : double m00_exp(d00_exp0,((zetasct*ln_qtt0)+((vgs/VT)*(qtt0-1))))
1732 : : #if defined(_DERIVATE)
1733 : : #define d10_exp0 d00_exp0
1734 : : #endif
1735 : : #if defined(_DERIVATE)
1736 : 0 : iscs_t_Vtnode_GND=(iscs*((zetasct*ln_qtt0_Vtnode_GND)+(((-vgs*VT_Vtnode_GND/VT/VT)*(qtt0-1))+((vgs/VT)*qtt0_Vtnode_GND)))*d10_exp0);
1737 : : #endif
1738 : 0 : iscs_t=(iscs*d00_exp0);
1739 : : }
1740 : : #if defined(_DERIVATE)
1741 : 0 : mrgt_Vtnode_GND=(-(-Tnom*Tdev_Vtnode_GND/Tdev/Tdev));
1742 : : #endif
1743 : 0 : mrgt=(1-(Tnom/Tdev));
1744 : : {
1745 : 0 : double m00_exp(d00_exp0,(mrgt*zetaiqf))
1746 : : #if defined(_DERIVATE)
1747 : : #define d10_exp0 d00_exp0
1748 : : #endif
1749 : : #if defined(_DERIVATE)
1750 : 0 : expiqf_Vtnode_GND=mrgt_Vtnode_GND*zetaiqf*d10_exp0;
1751 : : #endif
1752 : 0 : expiqf=d00_exp0;
1753 : : }
1754 : : #if defined(_DERIVATE)
1755 : 0 : iqf_t_Vtnode_GND=(iqf*expiqf_Vtnode_GND);
1756 : : #endif
1757 : 0 : iqf_t=(iqf*expiqf);
1758 : : #if defined(_DERIVATE)
1759 : 0 : iqr_t_Vtnode_GND=(iqr*expiqf_Vtnode_GND);
1760 : : #endif
1761 : 0 : iqr_t=(iqr*expiqf);
1762 : : #if defined(_DERIVATE)
1763 : 0 : iqfh_t_Vtnode_GND=(iqfh*expiqf_Vtnode_GND);
1764 : : #endif
1765 : 0 : iqfh_t=(iqfh*expiqf);
1766 : : #if defined(_DERIVATE)
1767 : 0 : iqfe_t_Vtnode_GND=(iqfe*expiqf_Vtnode_GND);
1768 : : #endif
1769 : 0 : iqfe_t=(iqfe*expiqf);
1770 : : {
1771 : 0 : double m00_exp(d00_exp0,(mrgt*zetaver))
1772 : : #if defined(_DERIVATE)
1773 : : #define d10_exp0 d00_exp0
1774 : : #endif
1775 : : #if defined(_DERIVATE)
1776 : 0 : ver_t_Vtnode_GND=(ver*mrgt_Vtnode_GND*zetaver*d10_exp0);
1777 : : #endif
1778 : 0 : ver_t=(ver*d00_exp0);
1779 : : }
1780 : : {
1781 : 0 : double m00_exp(d00_exp0,(mrgt*zetavef))
1782 : : #if defined(_DERIVATE)
1783 : : #define d10_exp0 d00_exp0
1784 : : #endif
1785 : : #if defined(_DERIVATE)
1786 : 0 : vef_t_Vtnode_GND=(vef*mrgt_Vtnode_GND*zetavef*d10_exp0);
1787 : : #endif
1788 : 0 : vef_t=(vef*d00_exp0);
1789 : : }
1790 : : {
1791 : 0 : double m00_exp(d00_exp0,((zetact*ln_qtt0)+(((vgb/vt0)-zetaiqf)*mrgt)))
1792 : : #if defined(_DERIVATE)
1793 : : #define d10_exp0 d00_exp0
1794 : : #endif
1795 : : #if defined(_DERIVATE)
1796 : 0 : is_t_Vtnode_GND=(is*((zetact*ln_qtt0_Vtnode_GND)+(((vgb/vt0)-zetaiqf)*mrgt_Vtnode_GND))*d10_exp0);
1797 : : #endif
1798 : 0 : is_t=(is*d00_exp0);
1799 : : }
1800 : 0 : arg=((0.5*vde)/vt0);
1801 : : {
1802 : 0 : double m00_exp(d00_exp0,arg)
1803 : 0 : double m00_exp(d00_exp1,(-arg))
1804 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
1805 : 0 : vdj0=((2*vt0)*d00_logE2);
1806 : : }
1807 : : #if defined(_DERIVATE)
1808 : 0 : vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgbe*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
1809 : : #endif
1810 : 0 : vdjt=(((vdj0*qtt0)+(vgbe*(1-qtt0)))-((mg*VT)*ln_qtt0));
1811 : : {
1812 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
1813 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
1814 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
1815 : : #if defined(_DERIVATE)
1816 : : #define d10_exp0 d00_exp0
1817 : 0 : double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
1818 : 0 : double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
1819 : : #endif
1820 : : #if defined(_DERIVATE)
1821 : 0 : vde_t_Vtnode_GND=(vdjt_Vtnode_GND+(((2*VT_Vtnode_GND)*d00_logE2)+((2*VT)*(0.5*(4*(((-vdjt_Vtnode_GND)*VT-(-vdjt)*VT_Vtnode_GND)/VT/VT)*d10_exp0)*d10_sqrt1)*d10_logE2)));
1822 : : #endif
1823 : 0 : vde_t=(vdjt+((2*VT)*d00_logE2));
1824 : : }
1825 : : {
1826 : 0 : double m00_logE(d00_logE0,(vde/vde_t))
1827 : 0 : double m00_exp(d00_exp1,(ze*d00_logE0))
1828 : : #if defined(_DERIVATE)
1829 : 0 : double m10_logE(d10_logE0,d00_logE0,(vde/vde_t))
1830 : : #define d10_exp1 d00_exp1
1831 : : #endif
1832 : : #if defined(_DERIVATE)
1833 : 0 : cje0_t_Vtnode_GND=(cje0*(ze*(-vde*vde_t_Vtnode_GND/vde_t/vde_t)*d10_logE0)*d10_exp1);
1834 : : #endif
1835 : 0 : cje0_t=(cje0*d00_exp1);
1836 : : }
1837 : : #if defined(_DERIVATE)
1838 : 0 : aje_t_Vtnode_GND=((aje*vde_t_Vtnode_GND)/vde);
1839 : : #endif
1840 : 0 : aje_t=((aje*vde_t)/vde);
1841 : 0 : arg=((0.5*vdci)/vt0);
1842 : : {
1843 : 0 : double m00_exp(d00_exp0,arg)
1844 : 0 : double m00_exp(d00_exp1,(-arg))
1845 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
1846 : 0 : vdj0=((2*vt0)*d00_logE2);
1847 : : }
1848 : : #if defined(_DERIVATE)
1849 : 0 : vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgbc*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
1850 : : #endif
1851 : 0 : vdjt=(((vdj0*qtt0)+(vgbc*(1-qtt0)))-((mg*VT)*ln_qtt0));
1852 : : {
1853 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
1854 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
1855 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
1856 : : #if defined(_DERIVATE)
1857 : : #define d10_exp0 d00_exp0
1858 : 0 : double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
1859 : 0 : double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
1860 : : #endif
1861 : : #if defined(_DERIVATE)
1862 : 0 : vdci_t_Vtnode_GND=(vdjt_Vtnode_GND+(((2*VT_Vtnode_GND)*d00_logE2)+((2*VT)*(0.5*(4*(((-vdjt_Vtnode_GND)*VT-(-vdjt)*VT_Vtnode_GND)/VT/VT)*d10_exp0)*d10_sqrt1)*d10_logE2)));
1863 : : #endif
1864 : 0 : vdci_t=(vdjt+((2*VT)*d00_logE2));
1865 : : }
1866 : : {
1867 : 0 : double m00_logE(d00_logE0,(vdci/vdci_t))
1868 : 0 : double m00_exp(d00_exp1,(zci*d00_logE0))
1869 : : #if defined(_DERIVATE)
1870 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdci/vdci_t))
1871 : : #define d10_exp1 d00_exp1
1872 : : #endif
1873 : : #if defined(_DERIVATE)
1874 : 0 : cjci0_t_Vtnode_GND=(cjci0*(zci*(-vdci*vdci_t_Vtnode_GND/vdci_t/vdci_t)*d10_logE0)*d10_exp1);
1875 : : #endif
1876 : 0 : cjci0_t=(cjci0*d00_exp1);
1877 : : }
1878 : 0 : arg=((0.5*vdcx)/vt0);
1879 : : {
1880 : 0 : double m00_exp(d00_exp0,arg)
1881 : 0 : double m00_exp(d00_exp1,(-arg))
1882 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
1883 : 0 : vdj0=((2*vt0)*d00_logE2);
1884 : : }
1885 : : #if defined(_DERIVATE)
1886 : 0 : vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgbc*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
1887 : : #endif
1888 : 0 : vdjt=(((vdj0*qtt0)+(vgbc*(1-qtt0)))-((mg*VT)*ln_qtt0));
1889 : : {
1890 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
1891 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
1892 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
1893 : : #if defined(_DERIVATE)
1894 : : #define d10_exp0 d00_exp0
1895 : 0 : double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
1896 : 0 : double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
1897 : : #endif
1898 : : #if defined(_DERIVATE)
1899 : 0 : vdcx_t_Vtnode_GND=(vdjt_Vtnode_GND+(((2*VT_Vtnode_GND)*d00_logE2)+((2*VT)*(0.5*(4*(((-vdjt_Vtnode_GND)*VT-(-vdjt)*VT_Vtnode_GND)/VT/VT)*d10_exp0)*d10_sqrt1)*d10_logE2)));
1900 : : #endif
1901 : 0 : vdcx_t=(vdjt+((2*VT)*d00_logE2));
1902 : : }
1903 : : {
1904 : 0 : double m00_logE(d00_logE0,(vdcx/vdcx_t))
1905 : 0 : double m00_exp(d00_exp1,(zcx*d00_logE0))
1906 : : #if defined(_DERIVATE)
1907 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdcx/vdcx_t))
1908 : : #define d10_exp1 d00_exp1
1909 : : #endif
1910 : : #if defined(_DERIVATE)
1911 : 0 : cjcx0_t_Vtnode_GND=(cjcx0*(zcx*(-vdcx*vdcx_t_Vtnode_GND/vdcx_t/vdcx_t)*d10_logE0)*d10_exp1);
1912 : : #endif
1913 : 0 : cjcx0_t=(cjcx0*d00_exp1);
1914 : : }
1915 : 0 : arg=((0.5*vds)/vt0);
1916 : : {
1917 : 0 : double m00_exp(d00_exp0,arg)
1918 : 0 : double m00_exp(d00_exp1,(-arg))
1919 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
1920 : 0 : vdj0=((2*vt0)*d00_logE2);
1921 : : }
1922 : : #if defined(_DERIVATE)
1923 : 0 : vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgsc*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
1924 : : #endif
1925 : 0 : vdjt=(((vdj0*qtt0)+(vgsc*(1-qtt0)))-((mg*VT)*ln_qtt0));
1926 : : #if defined(_DYNAMIC)
1927 : : {
1928 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
1929 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
1930 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
1931 : : #if defined(_DERIVATE)
1932 : : #define d10_exp0 d00_exp0
1933 : 0 : double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
1934 : 0 : double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
1935 : : #endif
1936 : : #if defined(_DERIVATE)
1937 : 0 : vds_t_Vtnode_GND=(vdjt_Vtnode_GND+(((2*VT_Vtnode_GND)*d00_logE2)+((2*VT)*(0.5*(4*(((-vdjt_Vtnode_GND)*VT-(-vdjt)*VT_Vtnode_GND)/VT/VT)*d10_exp0)*d10_sqrt1)*d10_logE2)));
1938 : : #endif
1939 : 0 : vds_t=(vdjt+((2*VT)*d00_logE2));
1940 : : }
1941 : : #endif
1942 : : #if defined(_DYNAMIC)
1943 : : {
1944 : 0 : double m00_logE(d00_logE0,(vds/vds_t))
1945 : 0 : double m00_exp(d00_exp1,(zs*d00_logE0))
1946 : : #if defined(_DERIVATE)
1947 : 0 : double m10_logE(d10_logE0,d00_logE0,(vds/vds_t))
1948 : : #define d10_exp1 d00_exp1
1949 : : #endif
1950 : : #if defined(_DERIVATE)
1951 : 0 : cjs0_t_Vtnode_GND=(cjs0*(zs*(-vds*vds_t_Vtnode_GND/vds_t/vds_t)*d10_logE0)*d10_exp1);
1952 : : #endif
1953 : 0 : cjs0_t=(cjs0*d00_exp1);
1954 : : }
1955 : : #endif
1956 : : {
1957 : 0 : double m00_exp(d00_exp0,(zetaci*ln_qtt0))
1958 : : #if defined(_DERIVATE)
1959 : : #define d10_exp0 d00_exp0
1960 : : #endif
1961 : : #if defined(_DERIVATE)
1962 : 0 : rci0_t_Vtnode_GND=(rci0*(zetaci*ln_qtt0_Vtnode_GND)*d10_exp0);
1963 : : #endif
1964 : 0 : rci0_t=(rci0*d00_exp0);
1965 : : }
1966 : : {
1967 : 0 : double m00_exp(d00_exp0,((zetaci-avs)*ln_qtt0))
1968 : : #if defined(_DERIVATE)
1969 : : #define d10_exp0 d00_exp0
1970 : : #endif
1971 : : #if defined(_DERIVATE)
1972 : 0 : vlim_t_Vtnode_GND=(vlim*((zetaci-avs)*ln_qtt0_Vtnode_GND)*d10_exp0);
1973 : : #endif
1974 : 0 : vlim_t=(vlim*d00_exp0);
1975 : : }
1976 : : #if defined(_DERIVATE)
1977 : 0 : vces_t_Vtnode_GND=(vces*(alces*dT_Vtnode_GND));
1978 : : #endif
1979 : 0 : vces_t=(vces*(1+(alces*dT)));
1980 : : #if defined(_DERIVATE)
1981 : 0 : t0_t_Vtnode_GND=(t0*((alt0*dT_Vtnode_GND)+(((kt0*dT_Vtnode_GND)*dT)+((kt0*dT)*dT_Vtnode_GND))));
1982 : : #endif
1983 : 0 : t0_t=(t0*((1+(alt0*dT))+((kt0*dT)*dT)));
1984 : : #if defined(_DYNAMIC)
1985 : : {
1986 : 0 : double m00_exp(d00_exp0,((zetaci-1)*ln_qtt0))
1987 : : #if defined(_DERIVATE)
1988 : : #define d10_exp0 d00_exp0
1989 : : #endif
1990 : : #if defined(_DERIVATE)
1991 : 0 : thcs_t_Vtnode_GND=(thcs*((zetaci-1)*ln_qtt0_Vtnode_GND)*d10_exp0);
1992 : : #endif
1993 : 0 : thcs_t=(thcs*d00_exp0);
1994 : : }
1995 : : #endif
1996 : : #if defined(_DYNAMIC)
1997 : 0 : zetatef=((zetabet-zetact)-0.5);
1998 : : #endif
1999 : : #if defined(_DYNAMIC)
2000 : 0 : dvg=(vgb-vge);
2001 : : #endif
2002 : : #if defined(_DYNAMIC)
2003 : : {
2004 : 0 : double m00_exp(d00_exp0,((zetatef*ln_qtt0)-((dvg/VT)*(qtt0-1))))
2005 : : #if defined(_DERIVATE)
2006 : : #define d10_exp0 d00_exp0
2007 : : #endif
2008 : : #if defined(_DERIVATE)
2009 : 0 : tef0_t_Vtnode_GND=(tef0*((zetatef*ln_qtt0_Vtnode_GND)-(((-dvg*VT_Vtnode_GND/VT/VT)*(qtt0-1))+((dvg/VT)*qtt0_Vtnode_GND)))*d10_exp0);
2010 : : #endif
2011 : 0 : tef0_t=(tef0*d00_exp0);
2012 : : }
2013 : : #endif
2014 : : {
2015 : 0 : double m00_exp(d00_exp0,(zetarbx*ln_qtt0))
2016 : : #if defined(_DERIVATE)
2017 : : #define d10_exp0 d00_exp0
2018 : : #endif
2019 : : #if defined(_DERIVATE)
2020 : 0 : rbx_t_Vtnode_GND=(rbx*(zetarbx*ln_qtt0_Vtnode_GND)*d10_exp0);
2021 : : #endif
2022 : 0 : rbx_t=(rbx*d00_exp0);
2023 : : }
2024 : : {
2025 : 0 : double m00_exp(d00_exp0,(zetarcx*ln_qtt0))
2026 : : #if defined(_DERIVATE)
2027 : : #define d10_exp0 d00_exp0
2028 : : #endif
2029 : : #if defined(_DERIVATE)
2030 : 0 : rcx_t_Vtnode_GND=(rcx*(zetarcx*ln_qtt0_Vtnode_GND)*d10_exp0);
2031 : : #endif
2032 : 0 : rcx_t=(rcx*d00_exp0);
2033 : : }
2034 : : {
2035 : 0 : double m00_exp(d00_exp0,(zetarbi*ln_qtt0))
2036 : : #if defined(_DERIVATE)
2037 : : #define d10_exp0 d00_exp0
2038 : : #endif
2039 : : #if defined(_DERIVATE)
2040 : 0 : rbi0_t_Vtnode_GND=(rbi0*(zetarbi*ln_qtt0_Vtnode_GND)*d10_exp0);
2041 : : #endif
2042 : 0 : rbi0_t=(rbi0*d00_exp0);
2043 : : }
2044 : : {
2045 : 0 : double m00_exp(d00_exp0,(zetare*ln_qtt0))
2046 : : #if defined(_DERIVATE)
2047 : : #define d10_exp0 d00_exp0
2048 : : #endif
2049 : : #if defined(_DERIVATE)
2050 : 0 : re_t_Vtnode_GND=(re*(zetare*ln_qtt0_Vtnode_GND)*d10_exp0);
2051 : : #endif
2052 : 0 : re_t=(re*d00_exp0);
2053 : : }
2054 : 0 : favl=(kavl/vdci);
2055 : 0 : qavl=(eavl*(cjci0*vdci));
2056 : : {
2057 : 0 : double m00_exp(d00_exp0,(alkav*dT))
2058 : : #if defined(_DERIVATE)
2059 : : #define d10_exp0 d00_exp0
2060 : : #endif
2061 : : #if defined(_DERIVATE)
2062 : 0 : favl_t_Vtnode_GND=(favl*(alkav*dT_Vtnode_GND)*d10_exp0);
2063 : : #endif
2064 : 0 : favl_t=(favl*d00_exp0);
2065 : : }
2066 : : {
2067 : 0 : double m00_exp(d00_exp0,(aleav*dT))
2068 : : #if defined(_DERIVATE)
2069 : : #define d10_exp0 d00_exp0
2070 : : #endif
2071 : : #if defined(_DERIVATE)
2072 : 0 : qavl_t_Vtnode_GND=(qavl*(aleav*dT_Vtnode_GND)*d10_exp0);
2073 : : #endif
2074 : 0 : qavl_t=(qavl*d00_exp0);
2075 : : }
2076 : : #if defined(_DERIVATE)
2077 : 0 : kavl_t_Vtnode_GND=((favl_t_Vtnode_GND*vdci_t)+(favl_t*vdci_t_Vtnode_GND));
2078 : : #endif
2079 : 0 : kavl_t=(favl_t*vdci_t);
2080 : : #if defined(_DERIVATE)
2081 : 0 : eavl_t_Vtnode_GND=((qavl_t_Vtnode_GND*(cjci0_t*vdci_t)-qavl_t*((cjci0_t_Vtnode_GND*vdci_t)+(cjci0_t*vdci_t_Vtnode_GND)))/(cjci0_t*vdci_t)/(cjci0_t*vdci_t));
2082 : : #endif
2083 : 0 : eavl_t=(qavl_t/(cjci0_t*vdci_t));
2084 [ # # ]: 0 : if
2085 : : (zetarth!=0)
2086 : : {
2087 : : {
2088 : 0 : double m00_logE(d00_logE0,(Tdev/Tnom))
2089 : 0 : double m00_exp(d00_exp1,(zetarth*d00_logE0))
2090 : : #if defined(_DERIVATE)
2091 : 0 : double m10_logE(d10_logE0,d00_logE0,(Tdev/Tnom))
2092 : : #define d10_exp1 d00_exp1
2093 : : #endif
2094 : : #if defined(_DERIVATE)
2095 : 0 : rth_t_Vtnode_GND=(rth*(zetarth*(Tdev_Vtnode_GND/Tnom)*d10_logE0)*d10_exp1);
2096 : : #endif
2097 : 0 : rth_t=(rth*d00_exp1);
2098 : : }
2099 : : }
2100 : : else
2101 : : {
2102 : : #if defined(_DERIVATE)
2103 : 0 : rth_t_Vtnode_GND=0.0;
2104 : : #endif
2105 : 0 : rth_t=rth;
2106 : : }
2107 [ # # ]: 0 : if
2108 : : (cjcx0_t==0)
2109 : : {
2110 : : #if defined(_DERIVATE)
2111 : 0 : cjci0_t_ii_Vtnode_GND=cjci0_t_Vtnode_GND*fbc;
2112 : : #endif
2113 : 0 : cjci0_t_ii=(cjci0_t*fbc);
2114 : : #if defined(_DYNAMIC)
2115 : : #if defined(_DERIVATE)
2116 : 0 : qjcxi_Vbi_ci=0.0;
2117 : 0 : qjcxi_Vtnode_GND=0.0;
2118 : 0 : qjcxi_Vb_ci=0.0;
2119 : : #endif
2120 : 0 : qjcxi=0;
2121 : : #endif
2122 : : #if defined(_DERIVATE)
2123 : 0 : cjcx0_t_i_Vtnode_GND=cjci0_t_Vtnode_GND*(1-fbc);
2124 : : #endif
2125 : 0 : cjcx0_t_i=(cjci0_t*(1-fbc));
2126 [ # # ]: 0 : if
2127 : : (vptci<1.0e2)
2128 : : {
2129 [ # # ]: 0 : if
2130 : : (cjcx0_t_i>0.0)
2131 : : {
2132 : 0 : zr=(zci/4.0);
2133 : : #if defined(_DERIVATE)
2134 : 0 : vp_Vtnode_GND=(-vdci_t_Vtnode_GND);
2135 : : #endif
2136 : 0 : vp=(vptci-vdci_t);
2137 : : {
2138 : 0 : double m00_logE(d00_logE0,2.4)
2139 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zci))
2140 : : #if defined(_DERIVATE)
2141 : 0 : vf_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
2142 : : #endif
2143 : 0 : vf=(vdci_t*(1.0-d00_exp1));
2144 : : }
2145 : : #if defined(_DERIVATE)
2146 : 0 : cmax_Vtnode_GND=(2.4*cjcx0_t_i_Vtnode_GND);
2147 : : #endif
2148 : 0 : cmax=(2.4*cjcx0_t_i);
2149 : : {
2150 : 0 : double m00_logE(d00_logE0,(vdci_t/vptci))
2151 : 0 : double m00_exp(d00_exp1,((zci-zr)*d00_logE0))
2152 : : #if defined(_DERIVATE)
2153 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdci_t/vptci))
2154 : : #define d10_exp1 d00_exp1
2155 : : #endif
2156 : : #if defined(_DERIVATE)
2157 : 0 : cr_Vtnode_GND=((cjcx0_t_i_Vtnode_GND*d00_exp1)+(cjcx0_t_i*((zci-zr)*(vdci_t_Vtnode_GND/vptci)*d10_logE0)*d10_exp1));
2158 : : #endif
2159 : 0 : cr=(cjcx0_t_i*d00_exp1);
2160 : : }
2161 : : #if defined(_DERIVATE)
2162 : 0 : a_Vci_ei=0.0;
2163 : 0 : a_Vbi_ei=0.0;
2164 : 0 : a_Vbi_ci=0.0;
2165 : 0 : a_Vb_ci=0.0;
2166 : 0 : a_Vtnode_GND=VT_Vtnode_GND;
2167 : : #endif
2168 : 0 : a=VT;
2169 : : #if defined(_DERIVATE)
2170 : 0 : ve_Vs_ci=0.0;
2171 : 0 : ve_Vci_ei=0.0;
2172 : 0 : ve_Vbi_ei=0.0;
2173 : 0 : ve_Vbi_ci=0.0;
2174 : 0 : ve_Vtnode_GND=((vf_Vtnode_GND*a-(vf-Vbci)*a_Vtnode_GND)/a/a);
2175 : 0 : ve_Vb_ci=(((-Vbci_Vb_ci)*a-(vf-Vbci)*a_Vb_ci)/a/a);
2176 : : #endif
2177 : 0 : ve=((vf-Vbci)/a);
2178 [ # # ]: 0 : if
2179 : : (ve<=80.0)
2180 : : {
2181 : : {
2182 : 0 : double m00_exp(d00_exp0,ve)
2183 : : #if defined(_DERIVATE)
2184 : : #define d10_exp0 d00_exp0
2185 : : #endif
2186 : : #if defined(_DERIVATE)
2187 : 0 : ex1_Vs_ci=0.0;
2188 : 0 : ex1_Vci_ei=0.0;
2189 : 0 : ex1_Vbi_ei=0.0;
2190 : 0 : ex1_Vbi_ci=0.0;
2191 : 0 : ex1_Vtnode_GND=ve_Vtnode_GND*d10_exp0;
2192 : 0 : ex1_Vb_ci=ve_Vb_ci*d10_exp0;
2193 : : #endif
2194 : 0 : ex1=d00_exp0;
2195 : : }
2196 : : #if defined(_DERIVATE)
2197 : 0 : ee1_Vs_ci=0.0;
2198 : 0 : ee1_Vci_ei=0.0;
2199 : 0 : ee1_Vbi_ei=0.0;
2200 : 0 : ee1_Vbi_ci=0.0;
2201 : 0 : ee1_Vtnode_GND=ex1_Vtnode_GND;
2202 : 0 : ee1_Vb_ci=ex1_Vb_ci;
2203 : : #endif
2204 : 0 : ee1=(1.0+ex1);
2205 : : {
2206 : 0 : double m00_logE(d00_logE0,ee1)
2207 : : #if defined(_DERIVATE)
2208 : 0 : double m10_logE(d10_logE0,d00_logE0,ee1)
2209 : : #endif
2210 : : #if defined(_DERIVATE)
2211 : 0 : vj1_Vci_ei=0.0;
2212 : 0 : vj1_Vbi_ei=0.0;
2213 : 0 : vj1_Vs_ci=0.0;
2214 : 0 : vj1_Vbi_ci=0.0;
2215 : 0 : vj1_Vtnode_GND=(vf_Vtnode_GND-((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
2216 : 0 : vj1_Vb_ci=(-((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0)));
2217 : : #endif
2218 : 0 : vj1=(vf-(a*d00_logE0));
2219 : : }
2220 : : }
2221 : : else
2222 : : {
2223 : : #if defined(_DERIVATE)
2224 : 0 : vj1_Vci_ei=0.0;
2225 : 0 : vj1_Vbi_ei=0.0;
2226 : 0 : vj1_Vs_ci=0.0;
2227 : 0 : vj1_Vbi_ci=0.0;
2228 : 0 : vj1_Vtnode_GND=0.0;
2229 : 0 : vj1_Vb_ci=Vbci_Vb_ci;
2230 : : #endif
2231 : 0 : vj1=Vbci;
2232 : : }
2233 : : #if defined(_DERIVATE)
2234 : 0 : a_Vci_ei=0.0;
2235 : 0 : a_Vbi_ei=0.0;
2236 : 0 : a_Vbi_ci=0.0;
2237 : 0 : a_Vb_ci=0.0;
2238 : 0 : a_Vtnode_GND=((0.1*vp_Vtnode_GND)+(4.0*VT_Vtnode_GND));
2239 : : #endif
2240 : 0 : a=((0.1*vp)+(4.0*VT));
2241 : : #if defined(_DERIVATE)
2242 : 0 : vr_Vci_ei=0.0;
2243 : 0 : vr_Vbi_ei=0.0;
2244 : 0 : vr_Vs_ci=0.0;
2245 : 0 : vr_Vbi_ci=0.0;
2246 : 0 : vr_Vtnode_GND=(((vp_Vtnode_GND+vj1_Vtnode_GND)*a-(vp+vj1)*a_Vtnode_GND)/a/a);
2247 : 0 : vr_Vb_ci=((vj1_Vb_ci*a-(vp+vj1)*a_Vb_ci)/a/a);
2248 : : #endif
2249 : 0 : vr=((vp+vj1)/a);
2250 [ # # ]: 0 : if
2251 : : (vr<=80.0)
2252 : : {
2253 : : {
2254 : 0 : double m00_exp(d00_exp0,vr)
2255 : : #if defined(_DERIVATE)
2256 : : #define d10_exp0 d00_exp0
2257 : : #endif
2258 : : #if defined(_DERIVATE)
2259 : 0 : ex1_Vs_ci=0.0;
2260 : 0 : ex1_Vci_ei=0.0;
2261 : 0 : ex1_Vbi_ei=0.0;
2262 : 0 : ex1_Vbi_ci=0.0;
2263 : 0 : ex1_Vtnode_GND=vr_Vtnode_GND*d10_exp0;
2264 : 0 : ex1_Vb_ci=vr_Vb_ci*d10_exp0;
2265 : : #endif
2266 : 0 : ex1=d00_exp0;
2267 : : }
2268 : : #if defined(_DERIVATE)
2269 : 0 : ee1_Vs_ci=0.0;
2270 : 0 : ee1_Vci_ei=0.0;
2271 : 0 : ee1_Vbi_ei=0.0;
2272 : 0 : ee1_Vbi_ci=0.0;
2273 : 0 : ee1_Vtnode_GND=ex1_Vtnode_GND;
2274 : 0 : ee1_Vb_ci=ex1_Vb_ci;
2275 : : #endif
2276 : 0 : ee1=(1.0+ex1);
2277 : : {
2278 : 0 : double m00_logE(d00_logE0,ee1)
2279 : : #if defined(_DERIVATE)
2280 : 0 : double m10_logE(d10_logE0,d00_logE0,ee1)
2281 : : #endif
2282 : : #if defined(_DERIVATE)
2283 : 0 : vj2_Vci_ei=0.0;
2284 : 0 : vj2_Vbi_ei=0.0;
2285 : 0 : vj2_Vs_ci=0.0;
2286 : 0 : vj2_Vbi_ci=0.0;
2287 : 0 : vj2_Vtnode_GND=((-vp_Vtnode_GND)+((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
2288 : 0 : vj2_Vb_ci=((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0));
2289 : : #endif
2290 : 0 : vj2=((-vp)+(a*d00_logE0));
2291 : : }
2292 : : }
2293 : : else
2294 : : {
2295 : : #if defined(_DERIVATE)
2296 : 0 : vj2_Vci_ei=0.0;
2297 : 0 : vj2_Vbi_ei=0.0;
2298 : 0 : vj2_Vs_ci=0.0;
2299 : 0 : vj2_Vbi_ci=0.0;
2300 : 0 : vj2_Vtnode_GND=vj1_Vtnode_GND;
2301 : 0 : vj2_Vb_ci=vj1_Vb_ci;
2302 : : #endif
2303 : 0 : vj2=vj1;
2304 : : }
2305 : : #if defined(_DERIVATE)
2306 : 0 : vj4_Vs_ci=0.0;
2307 : 0 : vj4_Vci_ei=0.0;
2308 : 0 : vj4_Vbi_ei=0.0;
2309 : 0 : vj4_Vbi_ci=0.0;
2310 : 0 : vj4_Vb_ci=(Vbci_Vb_ci-vj1_Vb_ci);
2311 : 0 : vj4_Vtnode_GND=(-vj1_Vtnode_GND);
2312 : : #endif
2313 : 0 : vj4=(Vbci-vj1);
2314 : 0 : ez=(1.0-zci);
2315 : 0 : ezr=(1.0-zr);
2316 : : {
2317 : 0 : double m00_logE(d00_logE0,(1.0-(vj1/vdci_t)))
2318 : : #if defined(_DERIVATE)
2319 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(vj1/vdci_t)))
2320 : : #endif
2321 : : #if defined(_DERIVATE)
2322 : 0 : vdj1_Vci_ei=0.0;
2323 : 0 : vdj1_Vbi_ei=0.0;
2324 : 0 : vdj1_Vs_ci=0.0;
2325 : 0 : vdj1_Vbi_ci=0.0;
2326 : 0 : vdj1_Vtnode_GND=(-((vj1_Vtnode_GND*vdci_t-vj1*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
2327 : 0 : vdj1_Vb_ci=(-(vj1_Vb_ci/vdci_t))*d10_logE0;
2328 : : #endif
2329 : 0 : vdj1=d00_logE0;
2330 : : }
2331 : : {
2332 : 0 : double m00_logE(d00_logE0,(1.0-(vj2/vdci_t)))
2333 : : #if defined(_DERIVATE)
2334 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(vj2/vdci_t)))
2335 : : #endif
2336 : : #if defined(_DERIVATE)
2337 : 0 : vdj2_Vci_ei=0.0;
2338 : 0 : vdj2_Vbi_ei=0.0;
2339 : 0 : vdj2_Vs_ci=0.0;
2340 : 0 : vdj2_Vbi_ci=0.0;
2341 : 0 : vdj2_Vtnode_GND=(-((vj2_Vtnode_GND*vdci_t-vj2*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
2342 : 0 : vdj2_Vb_ci=(-(vj2_Vb_ci/vdci_t))*d10_logE0;
2343 : : #endif
2344 : 0 : vdj2=d00_logE0;
2345 : : }
2346 : : {
2347 : 0 : double m00_exp(d00_exp0,(vdj2*ez))
2348 : : #if defined(_DERIVATE)
2349 : : #define d10_exp0 d00_exp0
2350 : : #endif
2351 : : #if defined(_DERIVATE)
2352 : 0 : qj1_Vci_ei=0.0;
2353 : 0 : qj1_Vbi_ei=0.0;
2354 : 0 : qj1_Vs_ci=0.0;
2355 : 0 : qj1_Vbi_ci=0.0;
2356 : 0 : qj1_Vtnode_GND=(((cjcx0_t_i_Vtnode_GND*(1.0-d00_exp0))+(cjcx0_t_i*(-vdj2_Vtnode_GND*ez*d10_exp0)))/ez);
2357 : 0 : qj1_Vb_ci=((cjcx0_t_i*(-vdj2_Vb_ci*ez*d10_exp0))/ez);
2358 : : #endif
2359 : 0 : qj1=((cjcx0_t_i*(1.0-d00_exp0))/ez);
2360 : : }
2361 : : {
2362 : 0 : double m00_exp(d00_exp0,(vdj1*ezr))
2363 : : #if defined(_DERIVATE)
2364 : : #define d10_exp0 d00_exp0
2365 : : #endif
2366 : : #if defined(_DERIVATE)
2367 : 0 : qj2_Vci_ei=0.0;
2368 : 0 : qj2_Vbi_ei=0.0;
2369 : 0 : qj2_Vs_ci=0.0;
2370 : 0 : qj2_Vbi_ci=0.0;
2371 : 0 : qj2_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj1_Vtnode_GND*ezr*d10_exp0)))/ezr);
2372 : 0 : qj2_Vb_ci=((cr*(-vdj1_Vb_ci*ezr*d10_exp0))/ezr);
2373 : : #endif
2374 : 0 : qj2=((cr*(1.0-d00_exp0))/ezr);
2375 : : }
2376 : : {
2377 : 0 : double m00_exp(d00_exp0,(vdj2*ezr))
2378 : : #if defined(_DERIVATE)
2379 : : #define d10_exp0 d00_exp0
2380 : : #endif
2381 : : #if defined(_DERIVATE)
2382 : 0 : qj3_Vci_ei=0.0;
2383 : 0 : qj3_Vbi_ei=0.0;
2384 : 0 : qj3_Vs_ci=0.0;
2385 : 0 : qj3_Vbi_ci=0.0;
2386 : 0 : qj3_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj2_Vtnode_GND*ezr*d10_exp0)))/ezr);
2387 : 0 : qj3_Vb_ci=((cr*(-vdj2_Vb_ci*ezr*d10_exp0))/ezr);
2388 : : #endif
2389 : 0 : qj3=((cr*(1.0-d00_exp0))/ezr);
2390 : : }
2391 : : #if defined(_DYNAMIC)
2392 : : #if defined(_DERIVATE)
2393 : 0 : qjcx_Vbi_ci=0.0;
2394 : 0 : qjcx_Vtnode_GND=(((((qj1_Vtnode_GND+qj2_Vtnode_GND)-qj3_Vtnode_GND)*vdci_t)+(((qj1+qj2)-qj3)*vdci_t_Vtnode_GND))+((cmax_Vtnode_GND*vj4)+(cmax*vj4_Vtnode_GND)));
2395 : 0 : qjcx_Vb_ci=(((qj1_Vb_ci+qj2_Vb_ci)-qj3_Vb_ci)*vdci_t+(cmax*vj4_Vb_ci));
2396 : : #endif
2397 : 0 : qjcx=((((qj1+qj2)-qj3)*vdci_t)+(cmax*vj4));
2398 : : #endif
2399 : : }
2400 : : else
2401 : : {
2402 : : #if defined(_DYNAMIC)
2403 : : #if defined(_DERIVATE)
2404 : 0 : qjcx_Vbi_ci=0.0;
2405 : 0 : qjcx_Vtnode_GND=0.0;
2406 : 0 : qjcx_Vb_ci=0.0;
2407 : : #endif
2408 : 0 : qjcx=0.0;
2409 : : #endif
2410 : : }
2411 : : }
2412 : : else
2413 : : {
2414 [ # # ]: 0 : if
2415 : : (cjcx0_t_i>0.0)
2416 : : {
2417 : : {
2418 : 0 : double m00_logE(d00_logE0,2.4)
2419 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zci))
2420 : : #if defined(_DERIVATE)
2421 : 0 : vf_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
2422 : : #endif
2423 : 0 : vf=(vdci_t*(1.0-d00_exp1));
2424 : : }
2425 : : #if defined(_DERIVATE)
2426 : 0 : xvf_Vs_ci=0.0;
2427 : 0 : xvf_Vbi_ei=0.0;
2428 : 0 : xvf_Vbi_ci=0.0;
2429 : 0 : xvf_Vtnode_GND=((vf_Vtnode_GND*VT-(vf-Vbci)*VT_Vtnode_GND)/VT/VT);
2430 : 0 : xvf_Vb_ci=((-Vbci_Vb_ci)/VT);
2431 : : #endif
2432 : 0 : xvf=((vf-Vbci)/VT);
2433 : : {
2434 : 0 : double m00_sqrt(d00_sqrt0,((xvf*xvf)+1.921812))
2435 : : #if defined(_DERIVATE)
2436 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((xvf*xvf)+1.921812))
2437 : : #endif
2438 : : #if defined(_DERIVATE)
2439 : 0 : xvf2_Vs_ci=0.0;
2440 : 0 : xvf2_Vbi_ei=0.0;
2441 : 0 : xvf2_Vbi_ci=0.0;
2442 : 0 : xvf2_Vtnode_GND=((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND))*d10_sqrt0;
2443 : 0 : xvf2_Vb_ci=((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci))*d10_sqrt0;
2444 : : #endif
2445 : 0 : xvf2=d00_sqrt0;
2446 : : }
2447 : : #if defined(_DERIVATE)
2448 : 0 : v_j_Vs_ci=0.0;
2449 : 0 : v_j_Vbi_ei=0.0;
2450 : 0 : v_j_Vbi_ci=0.0;
2451 : 0 : v_j_Vtnode_GND=(vf_Vtnode_GND-((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND)))*0.5);
2452 : 0 : v_j_Vb_ci=(-(VT*(xvf_Vb_ci+xvf2_Vb_ci))*0.5);
2453 : : #endif
2454 : 0 : v_j=(vf-((VT*(xvf+xvf2))*0.5));
2455 : : #if defined(_DERIVATE)
2456 : 0 : x_Vci_ei=0.0;
2457 : 0 : x_Vbi_ei=0.0;
2458 : 0 : x_Vbi_ci=0.0;
2459 : 0 : x_Vtnode_GND=0.0;
2460 : 0 : x_Vb_ci=0.0;
2461 : : #endif
2462 : 0 : x=(1.0-zci);
2463 : : {
2464 : 0 : double m00_logE(d00_logE0,(1.0-(v_j/vdci_t)))
2465 : 0 : double m00_exp(d00_exp1,(x*d00_logE0))
2466 : : #if defined(_DERIVATE)
2467 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(v_j/vdci_t)))
2468 : : #define d10_exp1 d00_exp1
2469 : : #endif
2470 : : #if defined(_DERIVATE)
2471 : 0 : y_Vs_ci=0.0;
2472 : 0 : y_Vci_ei=0.0;
2473 : 0 : y_Vbi_ei=0.0;
2474 : 0 : y_Vbi_ci=0.0;
2475 : 0 : y_Vtnode_GND=(-((x_Vtnode_GND*d00_logE0)+(x*(-((v_j_Vtnode_GND*vdci_t-v_j*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0))*d10_exp1);
2476 : 0 : y_Vb_ci=(-((x_Vb_ci*d00_logE0)+(x*(-(v_j_Vb_ci/vdci_t))*d10_logE0))*d10_exp1);
2477 : : #endif
2478 : 0 : y=(1.0-d00_exp1);
2479 : : }
2480 : : #if defined(_DYNAMIC)
2481 : : #if defined(_DERIVATE)
2482 : 0 : qjcx_Vbi_ci=0.0;
2483 : 0 : qjcx_Vtnode_GND=(((((((cjcx0_t_i_Vtnode_GND*vdci_t)+(cjcx0_t_i*vdci_t_Vtnode_GND))*y)+((cjcx0_t_i*vdci_t)*y_Vtnode_GND))*x-((cjcx0_t_i*vdci_t)*y)*x_Vtnode_GND)/x/x)+(((2.4*cjcx0_t_i_Vtnode_GND)*(Vbci-v_j))+((2.4*cjcx0_t_i)*(-v_j_Vtnode_GND))));
2484 : 0 : qjcx_Vb_ci=(((((cjcx0_t_i*vdci_t)*y_Vb_ci)*x-((cjcx0_t_i*vdci_t)*y)*x_Vb_ci)/x/x)+((2.4*cjcx0_t_i)*(Vbci_Vb_ci-v_j_Vb_ci)));
2485 : : #endif
2486 : 0 : qjcx=((((cjcx0_t_i*vdci_t)*y)/x)+((2.4*cjcx0_t_i)*(Vbci-v_j)));
2487 : : #endif
2488 : : }
2489 : : else
2490 : : {
2491 : : #if defined(_DYNAMIC)
2492 : : #if defined(_DERIVATE)
2493 : 0 : qjcx_Vbi_ci=0.0;
2494 : 0 : qjcx_Vtnode_GND=0.0;
2495 : 0 : qjcx_Vb_ci=0.0;
2496 : : #endif
2497 : 0 : qjcx=0.00;
2498 : : #endif
2499 : : }
2500 : : }
2501 : : }
2502 : : else
2503 : : {
2504 : : #if defined(_DERIVATE)
2505 : 0 : cjci0_t_ii_Vtnode_GND=cjci0_t_Vtnode_GND;
2506 : : #endif
2507 : 0 : cjci0_t_ii=cjci0_t;
2508 : : #if defined(_DERIVATE)
2509 : 0 : cjcx0_t_ii_Vtnode_GND=cjcx0_t_Vtnode_GND*fbc;
2510 : : #endif
2511 : 0 : cjcx0_t_ii=(cjcx0_t*fbc);
2512 [ # # ]: 0 : if
2513 : : (vptcx<1.0e2)
2514 : : {
2515 [ # # ]: 0 : if
2516 : : (cjcx0_t_ii>0.0)
2517 : : {
2518 : 0 : zr=(zcx/4.0);
2519 : : #if defined(_DERIVATE)
2520 : 0 : vp_Vtnode_GND=(-vdcx_t_Vtnode_GND);
2521 : : #endif
2522 : 0 : vp=(vptcx-vdcx_t);
2523 : : {
2524 : 0 : double m00_logE(d00_logE0,2.4)
2525 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zcx))
2526 : : #if defined(_DERIVATE)
2527 : 0 : vf_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
2528 : : #endif
2529 : 0 : vf=(vdcx_t*(1.0-d00_exp1));
2530 : : }
2531 : : #if defined(_DERIVATE)
2532 : 0 : cmax_Vtnode_GND=(2.4*cjcx0_t_ii_Vtnode_GND);
2533 : : #endif
2534 : 0 : cmax=(2.4*cjcx0_t_ii);
2535 : : {
2536 : 0 : double m00_logE(d00_logE0,(vdcx_t/vptcx))
2537 : 0 : double m00_exp(d00_exp1,((zcx-zr)*d00_logE0))
2538 : : #if defined(_DERIVATE)
2539 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdcx_t/vptcx))
2540 : : #define d10_exp1 d00_exp1
2541 : : #endif
2542 : : #if defined(_DERIVATE)
2543 : 0 : cr_Vtnode_GND=((cjcx0_t_ii_Vtnode_GND*d00_exp1)+(cjcx0_t_ii*((zcx-zr)*(vdcx_t_Vtnode_GND/vptcx)*d10_logE0)*d10_exp1));
2544 : : #endif
2545 : 0 : cr=(cjcx0_t_ii*d00_exp1);
2546 : : }
2547 : : #if defined(_DERIVATE)
2548 : 0 : a_Vci_ei=0.0;
2549 : 0 : a_Vbi_ei=0.0;
2550 : 0 : a_Vbi_ci=0.0;
2551 : 0 : a_Vb_ci=0.0;
2552 : 0 : a_Vtnode_GND=VT_Vtnode_GND;
2553 : : #endif
2554 : 0 : a=VT;
2555 : : #if defined(_DERIVATE)
2556 : 0 : ve_Vs_ci=0.0;
2557 : 0 : ve_Vci_ei=0.0;
2558 : 0 : ve_Vbi_ei=0.0;
2559 : 0 : ve_Vbi_ci=(((-Vbici_Vbi_ci)*a-(vf-Vbici)*a_Vbi_ci)/a/a);
2560 : 0 : ve_Vtnode_GND=((vf_Vtnode_GND*a-(vf-Vbici)*a_Vtnode_GND)/a/a);
2561 : 0 : ve_Vb_ci=0.0;
2562 : : #endif
2563 : 0 : ve=((vf-Vbici)/a);
2564 [ # # ]: 0 : if
2565 : : (ve<=80.0)
2566 : : {
2567 : : {
2568 : 0 : double m00_exp(d00_exp0,ve)
2569 : : #if defined(_DERIVATE)
2570 : : #define d10_exp0 d00_exp0
2571 : : #endif
2572 : : #if defined(_DERIVATE)
2573 : 0 : ex1_Vs_ci=0.0;
2574 : 0 : ex1_Vci_ei=0.0;
2575 : 0 : ex1_Vbi_ei=0.0;
2576 : 0 : ex1_Vbi_ci=ve_Vbi_ci*d10_exp0;
2577 : 0 : ex1_Vtnode_GND=ve_Vtnode_GND*d10_exp0;
2578 : 0 : ex1_Vb_ci=ve_Vb_ci*d10_exp0;
2579 : : #endif
2580 : 0 : ex1=d00_exp0;
2581 : : }
2582 : : #if defined(_DERIVATE)
2583 : 0 : ee1_Vs_ci=0.0;
2584 : 0 : ee1_Vci_ei=0.0;
2585 : 0 : ee1_Vbi_ei=0.0;
2586 : 0 : ee1_Vbi_ci=ex1_Vbi_ci;
2587 : 0 : ee1_Vtnode_GND=ex1_Vtnode_GND;
2588 : 0 : ee1_Vb_ci=ex1_Vb_ci;
2589 : : #endif
2590 : 0 : ee1=(1.0+ex1);
2591 : : {
2592 : 0 : double m00_logE(d00_logE0,ee1)
2593 : : #if defined(_DERIVATE)
2594 : 0 : double m10_logE(d10_logE0,d00_logE0,ee1)
2595 : : #endif
2596 : : #if defined(_DERIVATE)
2597 : 0 : vj1_Vci_ei=0.0;
2598 : 0 : vj1_Vbi_ei=0.0;
2599 : 0 : vj1_Vs_ci=0.0;
2600 : 0 : vj1_Vbi_ci=(-((a_Vbi_ci*d00_logE0)+(a*ee1_Vbi_ci*d10_logE0)));
2601 : 0 : vj1_Vtnode_GND=(vf_Vtnode_GND-((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
2602 : 0 : vj1_Vb_ci=(-((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0)));
2603 : : #endif
2604 : 0 : vj1=(vf-(a*d00_logE0));
2605 : : }
2606 : : }
2607 : : else
2608 : : {
2609 : : #if defined(_DERIVATE)
2610 : 0 : vj1_Vci_ei=0.0;
2611 : 0 : vj1_Vbi_ei=0.0;
2612 : 0 : vj1_Vs_ci=0.0;
2613 : 0 : vj1_Vbi_ci=Vbici_Vbi_ci;
2614 : 0 : vj1_Vtnode_GND=0.0;
2615 : 0 : vj1_Vb_ci=0.0;
2616 : : #endif
2617 : 0 : vj1=Vbici;
2618 : : }
2619 : : #if defined(_DERIVATE)
2620 : 0 : a_Vci_ei=0.0;
2621 : 0 : a_Vbi_ei=0.0;
2622 : 0 : a_Vbi_ci=0.0;
2623 : 0 : a_Vb_ci=0.0;
2624 : 0 : a_Vtnode_GND=((0.1*vp_Vtnode_GND)+(4.0*VT_Vtnode_GND));
2625 : : #endif
2626 : 0 : a=((0.1*vp)+(4.0*VT));
2627 : : #if defined(_DERIVATE)
2628 : 0 : vr_Vci_ei=0.0;
2629 : 0 : vr_Vbi_ei=0.0;
2630 : 0 : vr_Vs_ci=0.0;
2631 : 0 : vr_Vbi_ci=((vj1_Vbi_ci*a-(vp+vj1)*a_Vbi_ci)/a/a);
2632 : 0 : vr_Vtnode_GND=(((vp_Vtnode_GND+vj1_Vtnode_GND)*a-(vp+vj1)*a_Vtnode_GND)/a/a);
2633 : 0 : vr_Vb_ci=((vj1_Vb_ci*a-(vp+vj1)*a_Vb_ci)/a/a);
2634 : : #endif
2635 : 0 : vr=((vp+vj1)/a);
2636 [ # # ]: 0 : if
2637 : : (vr<=80.0)
2638 : : {
2639 : : {
2640 : 0 : double m00_exp(d00_exp0,vr)
2641 : : #if defined(_DERIVATE)
2642 : : #define d10_exp0 d00_exp0
2643 : : #endif
2644 : : #if defined(_DERIVATE)
2645 : 0 : ex1_Vs_ci=0.0;
2646 : 0 : ex1_Vci_ei=0.0;
2647 : 0 : ex1_Vbi_ei=0.0;
2648 : 0 : ex1_Vbi_ci=vr_Vbi_ci*d10_exp0;
2649 : 0 : ex1_Vtnode_GND=vr_Vtnode_GND*d10_exp0;
2650 : 0 : ex1_Vb_ci=vr_Vb_ci*d10_exp0;
2651 : : #endif
2652 : 0 : ex1=d00_exp0;
2653 : : }
2654 : : #if defined(_DERIVATE)
2655 : 0 : ee1_Vs_ci=0.0;
2656 : 0 : ee1_Vci_ei=0.0;
2657 : 0 : ee1_Vbi_ei=0.0;
2658 : 0 : ee1_Vbi_ci=ex1_Vbi_ci;
2659 : 0 : ee1_Vtnode_GND=ex1_Vtnode_GND;
2660 : 0 : ee1_Vb_ci=ex1_Vb_ci;
2661 : : #endif
2662 : 0 : ee1=(1.0+ex1);
2663 : : {
2664 : 0 : double m00_logE(d00_logE0,ee1)
2665 : : #if defined(_DERIVATE)
2666 : 0 : double m10_logE(d10_logE0,d00_logE0,ee1)
2667 : : #endif
2668 : : #if defined(_DERIVATE)
2669 : 0 : vj2_Vci_ei=0.0;
2670 : 0 : vj2_Vbi_ei=0.0;
2671 : 0 : vj2_Vs_ci=0.0;
2672 : 0 : vj2_Vbi_ci=((a_Vbi_ci*d00_logE0)+(a*ee1_Vbi_ci*d10_logE0));
2673 : 0 : vj2_Vtnode_GND=((-vp_Vtnode_GND)+((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
2674 : 0 : vj2_Vb_ci=((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0));
2675 : : #endif
2676 : 0 : vj2=((-vp)+(a*d00_logE0));
2677 : : }
2678 : : }
2679 : : else
2680 : : {
2681 : : #if defined(_DERIVATE)
2682 : 0 : vj2_Vci_ei=0.0;
2683 : 0 : vj2_Vbi_ei=0.0;
2684 : 0 : vj2_Vs_ci=0.0;
2685 : 0 : vj2_Vbi_ci=vj1_Vbi_ci;
2686 : 0 : vj2_Vtnode_GND=vj1_Vtnode_GND;
2687 : 0 : vj2_Vb_ci=vj1_Vb_ci;
2688 : : #endif
2689 : 0 : vj2=vj1;
2690 : : }
2691 : : #if defined(_DERIVATE)
2692 : 0 : vj4_Vs_ci=0.0;
2693 : 0 : vj4_Vci_ei=0.0;
2694 : 0 : vj4_Vbi_ei=0.0;
2695 : 0 : vj4_Vbi_ci=(Vbici_Vbi_ci-vj1_Vbi_ci);
2696 : 0 : vj4_Vb_ci=(-vj1_Vb_ci);
2697 : 0 : vj4_Vtnode_GND=(-vj1_Vtnode_GND);
2698 : : #endif
2699 : 0 : vj4=(Vbici-vj1);
2700 : 0 : ez=(1.0-zcx);
2701 : 0 : ezr=(1.0-zr);
2702 : : {
2703 : 0 : double m00_logE(d00_logE0,(1.0-(vj1/vdcx_t)))
2704 : : #if defined(_DERIVATE)
2705 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(vj1/vdcx_t)))
2706 : : #endif
2707 : : #if defined(_DERIVATE)
2708 : 0 : vdj1_Vci_ei=0.0;
2709 : 0 : vdj1_Vbi_ei=0.0;
2710 : 0 : vdj1_Vs_ci=0.0;
2711 : 0 : vdj1_Vbi_ci=(-(vj1_Vbi_ci/vdcx_t))*d10_logE0;
2712 : 0 : vdj1_Vtnode_GND=(-((vj1_Vtnode_GND*vdcx_t-vj1*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
2713 : 0 : vdj1_Vb_ci=(-(vj1_Vb_ci/vdcx_t))*d10_logE0;
2714 : : #endif
2715 : 0 : vdj1=d00_logE0;
2716 : : }
2717 : : {
2718 : 0 : double m00_logE(d00_logE0,(1.0-(vj2/vdcx_t)))
2719 : : #if defined(_DERIVATE)
2720 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(vj2/vdcx_t)))
2721 : : #endif
2722 : : #if defined(_DERIVATE)
2723 : 0 : vdj2_Vci_ei=0.0;
2724 : 0 : vdj2_Vbi_ei=0.0;
2725 : 0 : vdj2_Vs_ci=0.0;
2726 : 0 : vdj2_Vbi_ci=(-(vj2_Vbi_ci/vdcx_t))*d10_logE0;
2727 : 0 : vdj2_Vtnode_GND=(-((vj2_Vtnode_GND*vdcx_t-vj2*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
2728 : 0 : vdj2_Vb_ci=(-(vj2_Vb_ci/vdcx_t))*d10_logE0;
2729 : : #endif
2730 : 0 : vdj2=d00_logE0;
2731 : : }
2732 : : {
2733 : 0 : double m00_exp(d00_exp0,(vdj2*ez))
2734 : : #if defined(_DERIVATE)
2735 : : #define d10_exp0 d00_exp0
2736 : : #endif
2737 : : #if defined(_DERIVATE)
2738 : 0 : qj1_Vci_ei=0.0;
2739 : 0 : qj1_Vbi_ei=0.0;
2740 : 0 : qj1_Vs_ci=0.0;
2741 : 0 : qj1_Vbi_ci=((cjcx0_t_ii*(-vdj2_Vbi_ci*ez*d10_exp0))/ez);
2742 : 0 : qj1_Vtnode_GND=(((cjcx0_t_ii_Vtnode_GND*(1.0-d00_exp0))+(cjcx0_t_ii*(-vdj2_Vtnode_GND*ez*d10_exp0)))/ez);
2743 : 0 : qj1_Vb_ci=((cjcx0_t_ii*(-vdj2_Vb_ci*ez*d10_exp0))/ez);
2744 : : #endif
2745 : 0 : qj1=((cjcx0_t_ii*(1.0-d00_exp0))/ez);
2746 : : }
2747 : : {
2748 : 0 : double m00_exp(d00_exp0,(vdj1*ezr))
2749 : : #if defined(_DERIVATE)
2750 : : #define d10_exp0 d00_exp0
2751 : : #endif
2752 : : #if defined(_DERIVATE)
2753 : 0 : qj2_Vci_ei=0.0;
2754 : 0 : qj2_Vbi_ei=0.0;
2755 : 0 : qj2_Vs_ci=0.0;
2756 : 0 : qj2_Vbi_ci=((cr*(-vdj1_Vbi_ci*ezr*d10_exp0))/ezr);
2757 : 0 : qj2_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj1_Vtnode_GND*ezr*d10_exp0)))/ezr);
2758 : 0 : qj2_Vb_ci=((cr*(-vdj1_Vb_ci*ezr*d10_exp0))/ezr);
2759 : : #endif
2760 : 0 : qj2=((cr*(1.0-d00_exp0))/ezr);
2761 : : }
2762 : : {
2763 : 0 : double m00_exp(d00_exp0,(vdj2*ezr))
2764 : : #if defined(_DERIVATE)
2765 : : #define d10_exp0 d00_exp0
2766 : : #endif
2767 : : #if defined(_DERIVATE)
2768 : 0 : qj3_Vci_ei=0.0;
2769 : 0 : qj3_Vbi_ei=0.0;
2770 : 0 : qj3_Vs_ci=0.0;
2771 : 0 : qj3_Vbi_ci=((cr*(-vdj2_Vbi_ci*ezr*d10_exp0))/ezr);
2772 : 0 : qj3_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj2_Vtnode_GND*ezr*d10_exp0)))/ezr);
2773 : 0 : qj3_Vb_ci=((cr*(-vdj2_Vb_ci*ezr*d10_exp0))/ezr);
2774 : : #endif
2775 : 0 : qj3=((cr*(1.0-d00_exp0))/ezr);
2776 : : }
2777 : : #if defined(_DYNAMIC)
2778 : : #if defined(_DERIVATE)
2779 : 0 : qjcxi_Vbi_ci=(((qj1_Vbi_ci+qj2_Vbi_ci)-qj3_Vbi_ci)*vdcx_t+(cmax*vj4_Vbi_ci));
2780 : 0 : qjcxi_Vtnode_GND=(((((qj1_Vtnode_GND+qj2_Vtnode_GND)-qj3_Vtnode_GND)*vdcx_t)+(((qj1+qj2)-qj3)*vdcx_t_Vtnode_GND))+((cmax_Vtnode_GND*vj4)+(cmax*vj4_Vtnode_GND)));
2781 : 0 : qjcxi_Vb_ci=(((qj1_Vb_ci+qj2_Vb_ci)-qj3_Vb_ci)*vdcx_t+(cmax*vj4_Vb_ci));
2782 : : #endif
2783 : 0 : qjcxi=((((qj1+qj2)-qj3)*vdcx_t)+(cmax*vj4));
2784 : : #endif
2785 : : }
2786 : : else
2787 : : {
2788 : : #if defined(_DYNAMIC)
2789 : : #if defined(_DERIVATE)
2790 : 0 : qjcxi_Vbi_ci=0.0;
2791 : 0 : qjcxi_Vtnode_GND=0.0;
2792 : 0 : qjcxi_Vb_ci=0.0;
2793 : : #endif
2794 : 0 : qjcxi=0.0;
2795 : : #endif
2796 : : }
2797 : : }
2798 : : else
2799 : : {
2800 [ # # ]: 0 : if
2801 : : (cjcx0_t_ii>0.0)
2802 : : {
2803 : : {
2804 : 0 : double m00_logE(d00_logE0,2.4)
2805 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zcx))
2806 : : #if defined(_DERIVATE)
2807 : 0 : vf_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
2808 : : #endif
2809 : 0 : vf=(vdcx_t*(1.0-d00_exp1));
2810 : : }
2811 : : #if defined(_DERIVATE)
2812 : 0 : xvf_Vs_ci=0.0;
2813 : 0 : xvf_Vbi_ei=0.0;
2814 : 0 : xvf_Vbi_ci=((-Vbici_Vbi_ci)/VT);
2815 : 0 : xvf_Vtnode_GND=((vf_Vtnode_GND*VT-(vf-Vbici)*VT_Vtnode_GND)/VT/VT);
2816 : 0 : xvf_Vb_ci=0.0;
2817 : : #endif
2818 : 0 : xvf=((vf-Vbici)/VT);
2819 : : {
2820 : 0 : double m00_sqrt(d00_sqrt0,((xvf*xvf)+1.921812))
2821 : : #if defined(_DERIVATE)
2822 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((xvf*xvf)+1.921812))
2823 : : #endif
2824 : : #if defined(_DERIVATE)
2825 : 0 : xvf2_Vs_ci=0.0;
2826 : 0 : xvf2_Vbi_ei=0.0;
2827 : 0 : xvf2_Vbi_ci=((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))*d10_sqrt0;
2828 : 0 : xvf2_Vtnode_GND=((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND))*d10_sqrt0;
2829 : 0 : xvf2_Vb_ci=((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci))*d10_sqrt0;
2830 : : #endif
2831 : 0 : xvf2=d00_sqrt0;
2832 : : }
2833 : : #if defined(_DERIVATE)
2834 : 0 : v_j_Vs_ci=0.0;
2835 : 0 : v_j_Vbi_ei=0.0;
2836 : 0 : v_j_Vbi_ci=(-(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.5);
2837 : 0 : v_j_Vtnode_GND=(vf_Vtnode_GND-((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND)))*0.5);
2838 : 0 : v_j_Vb_ci=(-(VT*(xvf_Vb_ci+xvf2_Vb_ci))*0.5);
2839 : : #endif
2840 : 0 : v_j=(vf-((VT*(xvf+xvf2))*0.5));
2841 : : #if defined(_DERIVATE)
2842 : 0 : x_Vci_ei=0.0;
2843 : 0 : x_Vbi_ei=0.0;
2844 : 0 : x_Vbi_ci=0.0;
2845 : 0 : x_Vtnode_GND=0.0;
2846 : 0 : x_Vb_ci=0.0;
2847 : : #endif
2848 : 0 : x=(1.0-zcx);
2849 : : {
2850 : 0 : double m00_logE(d00_logE0,(1.0-(v_j/vdcx_t)))
2851 : 0 : double m00_exp(d00_exp1,(x*d00_logE0))
2852 : : #if defined(_DERIVATE)
2853 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(v_j/vdcx_t)))
2854 : : #define d10_exp1 d00_exp1
2855 : : #endif
2856 : : #if defined(_DERIVATE)
2857 : 0 : y_Vs_ci=0.0;
2858 : 0 : y_Vci_ei=0.0;
2859 : 0 : y_Vbi_ei=0.0;
2860 : 0 : y_Vbi_ci=(-((x_Vbi_ci*d00_logE0)+(x*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0))*d10_exp1);
2861 : 0 : y_Vtnode_GND=(-((x_Vtnode_GND*d00_logE0)+(x*(-((v_j_Vtnode_GND*vdcx_t-v_j*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0))*d10_exp1);
2862 : 0 : y_Vb_ci=(-((x_Vb_ci*d00_logE0)+(x*(-(v_j_Vb_ci/vdcx_t))*d10_logE0))*d10_exp1);
2863 : : #endif
2864 : 0 : y=(1.0-d00_exp1);
2865 : : }
2866 : : #if defined(_DYNAMIC)
2867 : : #if defined(_DERIVATE)
2868 : 0 : qjcxi_Vbi_ci=(((((cjcx0_t_ii*vdcx_t)*y_Vbi_ci)*x-((cjcx0_t_ii*vdcx_t)*y)*x_Vbi_ci)/x/x)+((2.4*cjcx0_t_ii)*(Vbici_Vbi_ci-v_j_Vbi_ci)));
2869 : 0 : qjcxi_Vtnode_GND=(((((((cjcx0_t_ii_Vtnode_GND*vdcx_t)+(cjcx0_t_ii*vdcx_t_Vtnode_GND))*y)+((cjcx0_t_ii*vdcx_t)*y_Vtnode_GND))*x-((cjcx0_t_ii*vdcx_t)*y)*x_Vtnode_GND)/x/x)+(((2.4*cjcx0_t_ii_Vtnode_GND)*(Vbici-v_j))+((2.4*cjcx0_t_ii)*(-v_j_Vtnode_GND))));
2870 : 0 : qjcxi_Vb_ci=(((((cjcx0_t_ii*vdcx_t)*y_Vb_ci)*x-((cjcx0_t_ii*vdcx_t)*y)*x_Vb_ci)/x/x)+((2.4*cjcx0_t_ii)*(-v_j_Vb_ci)));
2871 : : #endif
2872 : 0 : qjcxi=((((cjcx0_t_ii*vdcx_t)*y)/x)+((2.4*cjcx0_t_ii)*(Vbici-v_j)));
2873 : : #endif
2874 : : }
2875 : : else
2876 : : {
2877 : : #if defined(_DYNAMIC)
2878 : : #if defined(_DERIVATE)
2879 : 0 : qjcxi_Vbi_ci=0.0;
2880 : 0 : qjcxi_Vtnode_GND=0.0;
2881 : 0 : qjcxi_Vb_ci=0.0;
2882 : : #endif
2883 : 0 : qjcxi=0.00;
2884 : : #endif
2885 : : }
2886 : : }
2887 : : #if defined(_DERIVATE)
2888 : 0 : cjcx0_t_i_Vtnode_GND=cjcx0_t_Vtnode_GND*(1-fbc);
2889 : : #endif
2890 : 0 : cjcx0_t_i=(cjcx0_t*(1-fbc));
2891 [ # # ]: 0 : if
2892 : : (vptcx<1.0e2)
2893 : : {
2894 [ # # ]: 0 : if
2895 : : (cjcx0_t_i>0.0)
2896 : : {
2897 : 0 : zr=(zcx/4.0);
2898 : : #if defined(_DERIVATE)
2899 : 0 : vp_Vtnode_GND=(-vdcx_t_Vtnode_GND);
2900 : : #endif
2901 : 0 : vp=(vptcx-vdcx_t);
2902 : : {
2903 : 0 : double m00_logE(d00_logE0,2.4)
2904 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zcx))
2905 : : #if defined(_DERIVATE)
2906 : 0 : vf_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
2907 : : #endif
2908 : 0 : vf=(vdcx_t*(1.0-d00_exp1));
2909 : : }
2910 : : #if defined(_DERIVATE)
2911 : 0 : cmax_Vtnode_GND=(2.4*cjcx0_t_i_Vtnode_GND);
2912 : : #endif
2913 : 0 : cmax=(2.4*cjcx0_t_i);
2914 : : {
2915 : 0 : double m00_logE(d00_logE0,(vdcx_t/vptcx))
2916 : 0 : double m00_exp(d00_exp1,((zcx-zr)*d00_logE0))
2917 : : #if defined(_DERIVATE)
2918 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdcx_t/vptcx))
2919 : : #define d10_exp1 d00_exp1
2920 : : #endif
2921 : : #if defined(_DERIVATE)
2922 : 0 : cr_Vtnode_GND=((cjcx0_t_i_Vtnode_GND*d00_exp1)+(cjcx0_t_i*((zcx-zr)*(vdcx_t_Vtnode_GND/vptcx)*d10_logE0)*d10_exp1));
2923 : : #endif
2924 : 0 : cr=(cjcx0_t_i*d00_exp1);
2925 : : }
2926 : : #if defined(_DERIVATE)
2927 : 0 : a_Vci_ei=0.0;
2928 : 0 : a_Vbi_ei=0.0;
2929 : 0 : a_Vbi_ci=0.0;
2930 : 0 : a_Vb_ci=0.0;
2931 : 0 : a_Vtnode_GND=VT_Vtnode_GND;
2932 : : #endif
2933 : 0 : a=VT;
2934 : : #if defined(_DERIVATE)
2935 : 0 : ve_Vs_ci=0.0;
2936 : 0 : ve_Vci_ei=0.0;
2937 : 0 : ve_Vbi_ei=0.0;
2938 : 0 : ve_Vbi_ci=0.0;
2939 : 0 : ve_Vtnode_GND=((vf_Vtnode_GND*a-(vf-Vbci)*a_Vtnode_GND)/a/a);
2940 : 0 : ve_Vb_ci=(((-Vbci_Vb_ci)*a-(vf-Vbci)*a_Vb_ci)/a/a);
2941 : : #endif
2942 : 0 : ve=((vf-Vbci)/a);
2943 [ # # ]: 0 : if
2944 : : (ve<=80.0)
2945 : : {
2946 : : {
2947 : 0 : double m00_exp(d00_exp0,ve)
2948 : : #if defined(_DERIVATE)
2949 : : #define d10_exp0 d00_exp0
2950 : : #endif
2951 : : #if defined(_DERIVATE)
2952 : 0 : ex1_Vs_ci=0.0;
2953 : 0 : ex1_Vci_ei=0.0;
2954 : 0 : ex1_Vbi_ei=0.0;
2955 : 0 : ex1_Vbi_ci=ve_Vbi_ci*d10_exp0;
2956 : 0 : ex1_Vtnode_GND=ve_Vtnode_GND*d10_exp0;
2957 : 0 : ex1_Vb_ci=ve_Vb_ci*d10_exp0;
2958 : : #endif
2959 : 0 : ex1=d00_exp0;
2960 : : }
2961 : : #if defined(_DERIVATE)
2962 : 0 : ee1_Vs_ci=0.0;
2963 : 0 : ee1_Vci_ei=0.0;
2964 : 0 : ee1_Vbi_ei=0.0;
2965 : 0 : ee1_Vbi_ci=ex1_Vbi_ci;
2966 : 0 : ee1_Vtnode_GND=ex1_Vtnode_GND;
2967 : 0 : ee1_Vb_ci=ex1_Vb_ci;
2968 : : #endif
2969 : 0 : ee1=(1.0+ex1);
2970 : : {
2971 : 0 : double m00_logE(d00_logE0,ee1)
2972 : : #if defined(_DERIVATE)
2973 : 0 : double m10_logE(d10_logE0,d00_logE0,ee1)
2974 : : #endif
2975 : : #if defined(_DERIVATE)
2976 : 0 : vj1_Vci_ei=0.0;
2977 : 0 : vj1_Vbi_ei=0.0;
2978 : 0 : vj1_Vs_ci=0.0;
2979 : 0 : vj1_Vbi_ci=(-((a_Vbi_ci*d00_logE0)+(a*ee1_Vbi_ci*d10_logE0)));
2980 : 0 : vj1_Vtnode_GND=(vf_Vtnode_GND-((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
2981 : 0 : vj1_Vb_ci=(-((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0)));
2982 : : #endif
2983 : 0 : vj1=(vf-(a*d00_logE0));
2984 : : }
2985 : : }
2986 : : else
2987 : : {
2988 : : #if defined(_DERIVATE)
2989 : 0 : vj1_Vci_ei=0.0;
2990 : 0 : vj1_Vbi_ei=0.0;
2991 : 0 : vj1_Vs_ci=0.0;
2992 : 0 : vj1_Vbi_ci=0.0;
2993 : 0 : vj1_Vtnode_GND=0.0;
2994 : 0 : vj1_Vb_ci=Vbci_Vb_ci;
2995 : : #endif
2996 : 0 : vj1=Vbci;
2997 : : }
2998 : : #if defined(_DERIVATE)
2999 : 0 : a_Vci_ei=0.0;
3000 : 0 : a_Vbi_ei=0.0;
3001 : 0 : a_Vbi_ci=0.0;
3002 : 0 : a_Vb_ci=0.0;
3003 : 0 : a_Vtnode_GND=((0.1*vp_Vtnode_GND)+(4.0*VT_Vtnode_GND));
3004 : : #endif
3005 : 0 : a=((0.1*vp)+(4.0*VT));
3006 : : #if defined(_DERIVATE)
3007 : 0 : vr_Vci_ei=0.0;
3008 : 0 : vr_Vbi_ei=0.0;
3009 : 0 : vr_Vs_ci=0.0;
3010 : 0 : vr_Vbi_ci=((vj1_Vbi_ci*a-(vp+vj1)*a_Vbi_ci)/a/a);
3011 : 0 : vr_Vtnode_GND=(((vp_Vtnode_GND+vj1_Vtnode_GND)*a-(vp+vj1)*a_Vtnode_GND)/a/a);
3012 : 0 : vr_Vb_ci=((vj1_Vb_ci*a-(vp+vj1)*a_Vb_ci)/a/a);
3013 : : #endif
3014 : 0 : vr=((vp+vj1)/a);
3015 [ # # ]: 0 : if
3016 : : (vr<=80.0)
3017 : : {
3018 : : {
3019 : 0 : double m00_exp(d00_exp0,vr)
3020 : : #if defined(_DERIVATE)
3021 : : #define d10_exp0 d00_exp0
3022 : : #endif
3023 : : #if defined(_DERIVATE)
3024 : 0 : ex1_Vs_ci=0.0;
3025 : 0 : ex1_Vci_ei=0.0;
3026 : 0 : ex1_Vbi_ei=0.0;
3027 : 0 : ex1_Vbi_ci=vr_Vbi_ci*d10_exp0;
3028 : 0 : ex1_Vtnode_GND=vr_Vtnode_GND*d10_exp0;
3029 : 0 : ex1_Vb_ci=vr_Vb_ci*d10_exp0;
3030 : : #endif
3031 : 0 : ex1=d00_exp0;
3032 : : }
3033 : : #if defined(_DERIVATE)
3034 : 0 : ee1_Vs_ci=0.0;
3035 : 0 : ee1_Vci_ei=0.0;
3036 : 0 : ee1_Vbi_ei=0.0;
3037 : 0 : ee1_Vbi_ci=ex1_Vbi_ci;
3038 : 0 : ee1_Vtnode_GND=ex1_Vtnode_GND;
3039 : 0 : ee1_Vb_ci=ex1_Vb_ci;
3040 : : #endif
3041 : 0 : ee1=(1.0+ex1);
3042 : : {
3043 : 0 : double m00_logE(d00_logE0,ee1)
3044 : : #if defined(_DERIVATE)
3045 : 0 : double m10_logE(d10_logE0,d00_logE0,ee1)
3046 : : #endif
3047 : : #if defined(_DERIVATE)
3048 : 0 : vj2_Vci_ei=0.0;
3049 : 0 : vj2_Vbi_ei=0.0;
3050 : 0 : vj2_Vs_ci=0.0;
3051 : 0 : vj2_Vbi_ci=((a_Vbi_ci*d00_logE0)+(a*ee1_Vbi_ci*d10_logE0));
3052 : 0 : vj2_Vtnode_GND=((-vp_Vtnode_GND)+((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
3053 : 0 : vj2_Vb_ci=((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0));
3054 : : #endif
3055 : 0 : vj2=((-vp)+(a*d00_logE0));
3056 : : }
3057 : : }
3058 : : else
3059 : : {
3060 : : #if defined(_DERIVATE)
3061 : 0 : vj2_Vci_ei=0.0;
3062 : 0 : vj2_Vbi_ei=0.0;
3063 : 0 : vj2_Vs_ci=0.0;
3064 : 0 : vj2_Vbi_ci=vj1_Vbi_ci;
3065 : 0 : vj2_Vtnode_GND=vj1_Vtnode_GND;
3066 : 0 : vj2_Vb_ci=vj1_Vb_ci;
3067 : : #endif
3068 : 0 : vj2=vj1;
3069 : : }
3070 : : #if defined(_DERIVATE)
3071 : 0 : vj4_Vs_ci=0.0;
3072 : 0 : vj4_Vci_ei=0.0;
3073 : 0 : vj4_Vbi_ei=0.0;
3074 : 0 : vj4_Vbi_ci=(-vj1_Vbi_ci);
3075 : 0 : vj4_Vb_ci=(Vbci_Vb_ci-vj1_Vb_ci);
3076 : 0 : vj4_Vtnode_GND=(-vj1_Vtnode_GND);
3077 : : #endif
3078 : 0 : vj4=(Vbci-vj1);
3079 : 0 : ez=(1.0-zcx);
3080 : 0 : ezr=(1.0-zr);
3081 : : {
3082 : 0 : double m00_logE(d00_logE0,(1.0-(vj1/vdcx_t)))
3083 : : #if defined(_DERIVATE)
3084 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(vj1/vdcx_t)))
3085 : : #endif
3086 : : #if defined(_DERIVATE)
3087 : 0 : vdj1_Vci_ei=0.0;
3088 : 0 : vdj1_Vbi_ei=0.0;
3089 : 0 : vdj1_Vs_ci=0.0;
3090 : 0 : vdj1_Vbi_ci=(-(vj1_Vbi_ci/vdcx_t))*d10_logE0;
3091 : 0 : vdj1_Vtnode_GND=(-((vj1_Vtnode_GND*vdcx_t-vj1*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
3092 : 0 : vdj1_Vb_ci=(-(vj1_Vb_ci/vdcx_t))*d10_logE0;
3093 : : #endif
3094 : 0 : vdj1=d00_logE0;
3095 : : }
3096 : : {
3097 : 0 : double m00_logE(d00_logE0,(1.0-(vj2/vdcx_t)))
3098 : : #if defined(_DERIVATE)
3099 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(vj2/vdcx_t)))
3100 : : #endif
3101 : : #if defined(_DERIVATE)
3102 : 0 : vdj2_Vci_ei=0.0;
3103 : 0 : vdj2_Vbi_ei=0.0;
3104 : 0 : vdj2_Vs_ci=0.0;
3105 : 0 : vdj2_Vbi_ci=(-(vj2_Vbi_ci/vdcx_t))*d10_logE0;
3106 : 0 : vdj2_Vtnode_GND=(-((vj2_Vtnode_GND*vdcx_t-vj2*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
3107 : 0 : vdj2_Vb_ci=(-(vj2_Vb_ci/vdcx_t))*d10_logE0;
3108 : : #endif
3109 : 0 : vdj2=d00_logE0;
3110 : : }
3111 : : {
3112 : 0 : double m00_exp(d00_exp0,(vdj2*ez))
3113 : : #if defined(_DERIVATE)
3114 : : #define d10_exp0 d00_exp0
3115 : : #endif
3116 : : #if defined(_DERIVATE)
3117 : 0 : qj1_Vci_ei=0.0;
3118 : 0 : qj1_Vbi_ei=0.0;
3119 : 0 : qj1_Vs_ci=0.0;
3120 : 0 : qj1_Vbi_ci=((cjcx0_t_i*(-vdj2_Vbi_ci*ez*d10_exp0))/ez);
3121 : 0 : qj1_Vtnode_GND=(((cjcx0_t_i_Vtnode_GND*(1.0-d00_exp0))+(cjcx0_t_i*(-vdj2_Vtnode_GND*ez*d10_exp0)))/ez);
3122 : 0 : qj1_Vb_ci=((cjcx0_t_i*(-vdj2_Vb_ci*ez*d10_exp0))/ez);
3123 : : #endif
3124 : 0 : qj1=((cjcx0_t_i*(1.0-d00_exp0))/ez);
3125 : : }
3126 : : {
3127 : 0 : double m00_exp(d00_exp0,(vdj1*ezr))
3128 : : #if defined(_DERIVATE)
3129 : : #define d10_exp0 d00_exp0
3130 : : #endif
3131 : : #if defined(_DERIVATE)
3132 : 0 : qj2_Vci_ei=0.0;
3133 : 0 : qj2_Vbi_ei=0.0;
3134 : 0 : qj2_Vs_ci=0.0;
3135 : 0 : qj2_Vbi_ci=((cr*(-vdj1_Vbi_ci*ezr*d10_exp0))/ezr);
3136 : 0 : qj2_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj1_Vtnode_GND*ezr*d10_exp0)))/ezr);
3137 : 0 : qj2_Vb_ci=((cr*(-vdj1_Vb_ci*ezr*d10_exp0))/ezr);
3138 : : #endif
3139 : 0 : qj2=((cr*(1.0-d00_exp0))/ezr);
3140 : : }
3141 : : {
3142 : 0 : double m00_exp(d00_exp0,(vdj2*ezr))
3143 : : #if defined(_DERIVATE)
3144 : : #define d10_exp0 d00_exp0
3145 : : #endif
3146 : : #if defined(_DERIVATE)
3147 : 0 : qj3_Vci_ei=0.0;
3148 : 0 : qj3_Vbi_ei=0.0;
3149 : 0 : qj3_Vs_ci=0.0;
3150 : 0 : qj3_Vbi_ci=((cr*(-vdj2_Vbi_ci*ezr*d10_exp0))/ezr);
3151 : 0 : qj3_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj2_Vtnode_GND*ezr*d10_exp0)))/ezr);
3152 : 0 : qj3_Vb_ci=((cr*(-vdj2_Vb_ci*ezr*d10_exp0))/ezr);
3153 : : #endif
3154 : 0 : qj3=((cr*(1.0-d00_exp0))/ezr);
3155 : : }
3156 : : #if defined(_DYNAMIC)
3157 : : #if defined(_DERIVATE)
3158 : 0 : qjcx_Vbi_ci=(((qj1_Vbi_ci+qj2_Vbi_ci)-qj3_Vbi_ci)*vdcx_t+(cmax*vj4_Vbi_ci));
3159 : 0 : qjcx_Vtnode_GND=(((((qj1_Vtnode_GND+qj2_Vtnode_GND)-qj3_Vtnode_GND)*vdcx_t)+(((qj1+qj2)-qj3)*vdcx_t_Vtnode_GND))+((cmax_Vtnode_GND*vj4)+(cmax*vj4_Vtnode_GND)));
3160 : 0 : qjcx_Vb_ci=(((qj1_Vb_ci+qj2_Vb_ci)-qj3_Vb_ci)*vdcx_t+(cmax*vj4_Vb_ci));
3161 : : #endif
3162 : 0 : qjcx=((((qj1+qj2)-qj3)*vdcx_t)+(cmax*vj4));
3163 : : #endif
3164 : : }
3165 : : else
3166 : : {
3167 : : #if defined(_DYNAMIC)
3168 : : #if defined(_DERIVATE)
3169 : 0 : qjcx_Vbi_ci=0.0;
3170 : 0 : qjcx_Vtnode_GND=0.0;
3171 : 0 : qjcx_Vb_ci=0.0;
3172 : : #endif
3173 : 0 : qjcx=0.0;
3174 : : #endif
3175 : : }
3176 : : }
3177 : : else
3178 : : {
3179 [ # # ]: 0 : if
3180 : : (cjcx0_t_i>0.0)
3181 : : {
3182 : : {
3183 : 0 : double m00_logE(d00_logE0,2.4)
3184 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zcx))
3185 : : #if defined(_DERIVATE)
3186 : 0 : vf_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
3187 : : #endif
3188 : 0 : vf=(vdcx_t*(1.0-d00_exp1));
3189 : : }
3190 : : #if defined(_DERIVATE)
3191 : 0 : xvf_Vs_ci=0.0;
3192 : 0 : xvf_Vbi_ei=0.0;
3193 : 0 : xvf_Vbi_ci=0.0;
3194 : 0 : xvf_Vtnode_GND=((vf_Vtnode_GND*VT-(vf-Vbci)*VT_Vtnode_GND)/VT/VT);
3195 : 0 : xvf_Vb_ci=((-Vbci_Vb_ci)/VT);
3196 : : #endif
3197 : 0 : xvf=((vf-Vbci)/VT);
3198 : : {
3199 : 0 : double m00_sqrt(d00_sqrt0,((xvf*xvf)+1.921812))
3200 : : #if defined(_DERIVATE)
3201 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((xvf*xvf)+1.921812))
3202 : : #endif
3203 : : #if defined(_DERIVATE)
3204 : 0 : xvf2_Vs_ci=0.0;
3205 : 0 : xvf2_Vbi_ei=0.0;
3206 : 0 : xvf2_Vbi_ci=((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))*d10_sqrt0;
3207 : 0 : xvf2_Vtnode_GND=((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND))*d10_sqrt0;
3208 : 0 : xvf2_Vb_ci=((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci))*d10_sqrt0;
3209 : : #endif
3210 : 0 : xvf2=d00_sqrt0;
3211 : : }
3212 : : #if defined(_DERIVATE)
3213 : 0 : v_j_Vs_ci=0.0;
3214 : 0 : v_j_Vbi_ei=0.0;
3215 : 0 : v_j_Vbi_ci=(-(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.5);
3216 : 0 : v_j_Vtnode_GND=(vf_Vtnode_GND-((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND)))*0.5);
3217 : 0 : v_j_Vb_ci=(-(VT*(xvf_Vb_ci+xvf2_Vb_ci))*0.5);
3218 : : #endif
3219 : 0 : v_j=(vf-((VT*(xvf+xvf2))*0.5));
3220 : : #if defined(_DERIVATE)
3221 : 0 : x_Vci_ei=0.0;
3222 : 0 : x_Vbi_ei=0.0;
3223 : 0 : x_Vbi_ci=0.0;
3224 : 0 : x_Vtnode_GND=0.0;
3225 : 0 : x_Vb_ci=0.0;
3226 : : #endif
3227 : 0 : x=(1.0-zcx);
3228 : : {
3229 : 0 : double m00_logE(d00_logE0,(1.0-(v_j/vdcx_t)))
3230 : 0 : double m00_exp(d00_exp1,(x*d00_logE0))
3231 : : #if defined(_DERIVATE)
3232 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(v_j/vdcx_t)))
3233 : : #define d10_exp1 d00_exp1
3234 : : #endif
3235 : : #if defined(_DERIVATE)
3236 : 0 : y_Vs_ci=0.0;
3237 : 0 : y_Vci_ei=0.0;
3238 : 0 : y_Vbi_ei=0.0;
3239 : 0 : y_Vbi_ci=(-((x_Vbi_ci*d00_logE0)+(x*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0))*d10_exp1);
3240 : 0 : y_Vtnode_GND=(-((x_Vtnode_GND*d00_logE0)+(x*(-((v_j_Vtnode_GND*vdcx_t-v_j*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0))*d10_exp1);
3241 : 0 : y_Vb_ci=(-((x_Vb_ci*d00_logE0)+(x*(-(v_j_Vb_ci/vdcx_t))*d10_logE0))*d10_exp1);
3242 : : #endif
3243 : 0 : y=(1.0-d00_exp1);
3244 : : }
3245 : : #if defined(_DYNAMIC)
3246 : : #if defined(_DERIVATE)
3247 : 0 : qjcx_Vbi_ci=(((((cjcx0_t_i*vdcx_t)*y_Vbi_ci)*x-((cjcx0_t_i*vdcx_t)*y)*x_Vbi_ci)/x/x)+((2.4*cjcx0_t_i)*(-v_j_Vbi_ci)));
3248 : 0 : qjcx_Vtnode_GND=(((((((cjcx0_t_i_Vtnode_GND*vdcx_t)+(cjcx0_t_i*vdcx_t_Vtnode_GND))*y)+((cjcx0_t_i*vdcx_t)*y_Vtnode_GND))*x-((cjcx0_t_i*vdcx_t)*y)*x_Vtnode_GND)/x/x)+(((2.4*cjcx0_t_i_Vtnode_GND)*(Vbci-v_j))+((2.4*cjcx0_t_i)*(-v_j_Vtnode_GND))));
3249 : 0 : qjcx_Vb_ci=(((((cjcx0_t_i*vdcx_t)*y_Vb_ci)*x-((cjcx0_t_i*vdcx_t)*y)*x_Vb_ci)/x/x)+((2.4*cjcx0_t_i)*(Vbci_Vb_ci-v_j_Vb_ci)));
3250 : : #endif
3251 : 0 : qjcx=((((cjcx0_t_i*vdcx_t)*y)/x)+((2.4*cjcx0_t_i)*(Vbci-v_j)));
3252 : : #endif
3253 : : }
3254 : : else
3255 : : {
3256 : : #if defined(_DYNAMIC)
3257 : : #if defined(_DERIVATE)
3258 : 0 : qjcx_Vbi_ci=0.0;
3259 : 0 : qjcx_Vtnode_GND=0.0;
3260 : 0 : qjcx_Vb_ci=0.0;
3261 : : #endif
3262 : 0 : qjcx=0.00;
3263 : : #endif
3264 : : }
3265 : : }
3266 : : }
3267 [ # # ]: 0 : if
3268 : : (vptci<1.0e2)
3269 : : {
3270 [ # # ]: 0 : if
3271 : : (cjci0_t_ii>0.0)
3272 : : {
3273 : 0 : zr=(zci/4.0);
3274 : : #if defined(_DERIVATE)
3275 : 0 : vp_Vtnode_GND=(-vdci_t_Vtnode_GND);
3276 : : #endif
3277 : 0 : vp=(vptci-vdci_t);
3278 : : {
3279 : 0 : double m00_logE(d00_logE0,2.4)
3280 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zci))
3281 : : #if defined(_DERIVATE)
3282 : 0 : vf_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
3283 : : #endif
3284 : 0 : vf=(vdci_t*(1.0-d00_exp1));
3285 : : }
3286 : : #if defined(_DERIVATE)
3287 : 0 : cmax_Vtnode_GND=(2.4*cjci0_t_ii_Vtnode_GND);
3288 : : #endif
3289 : 0 : cmax=(2.4*cjci0_t_ii);
3290 : : {
3291 : 0 : double m00_logE(d00_logE0,(vdci_t/vptci))
3292 : 0 : double m00_exp(d00_exp1,((zci-zr)*d00_logE0))
3293 : : #if defined(_DERIVATE)
3294 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdci_t/vptci))
3295 : : #define d10_exp1 d00_exp1
3296 : : #endif
3297 : : #if defined(_DERIVATE)
3298 : 0 : cr_Vtnode_GND=((cjci0_t_ii_Vtnode_GND*d00_exp1)+(cjci0_t_ii*((zci-zr)*(vdci_t_Vtnode_GND/vptci)*d10_logE0)*d10_exp1));
3299 : : #endif
3300 : 0 : cr=(cjci0_t_ii*d00_exp1);
3301 : : }
3302 : : #if defined(_DERIVATE)
3303 : 0 : a_Vci_ei=0.0;
3304 : 0 : a_Vbi_ei=0.0;
3305 : 0 : a_Vbi_ci=0.0;
3306 : 0 : a_Vb_ci=0.0;
3307 : 0 : a_Vtnode_GND=VT_Vtnode_GND;
3308 : : #endif
3309 : 0 : a=VT;
3310 : : #if defined(_DERIVATE)
3311 : 0 : ve_Vs_ci=0.0;
3312 : 0 : ve_Vci_ei=0.0;
3313 : 0 : ve_Vbi_ei=0.0;
3314 : 0 : ve_Vbi_ci=(((-Vbici_Vbi_ci)*a-(vf-Vbici)*a_Vbi_ci)/a/a);
3315 : 0 : ve_Vtnode_GND=((vf_Vtnode_GND*a-(vf-Vbici)*a_Vtnode_GND)/a/a);
3316 : 0 : ve_Vb_ci=0.0;
3317 : : #endif
3318 : 0 : ve=((vf-Vbici)/a);
3319 [ # # ]: 0 : if
3320 : : (ve<=80.0)
3321 : : {
3322 : : {
3323 : 0 : double m00_exp(d00_exp0,ve)
3324 : : #if defined(_DERIVATE)
3325 : : #define d10_exp0 d00_exp0
3326 : : #endif
3327 : : #if defined(_DERIVATE)
3328 : 0 : ex1_Vs_ci=0.0;
3329 : 0 : ex1_Vci_ei=0.0;
3330 : 0 : ex1_Vbi_ei=0.0;
3331 : 0 : ex1_Vbi_ci=ve_Vbi_ci*d10_exp0;
3332 : 0 : ex1_Vtnode_GND=ve_Vtnode_GND*d10_exp0;
3333 : 0 : ex1_Vb_ci=ve_Vb_ci*d10_exp0;
3334 : : #endif
3335 : 0 : ex1=d00_exp0;
3336 : : }
3337 : : #if defined(_DERIVATE)
3338 : 0 : ee1_Vs_ci=0.0;
3339 : 0 : ee1_Vci_ei=0.0;
3340 : 0 : ee1_Vbi_ei=0.0;
3341 : 0 : ee1_Vbi_ci=ex1_Vbi_ci;
3342 : 0 : ee1_Vtnode_GND=ex1_Vtnode_GND;
3343 : 0 : ee1_Vb_ci=ex1_Vb_ci;
3344 : : #endif
3345 : 0 : ee1=(1.0+ex1);
3346 : : {
3347 : 0 : double m00_logE(d00_logE0,ee1)
3348 : : #if defined(_DERIVATE)
3349 : 0 : double m10_logE(d10_logE0,d00_logE0,ee1)
3350 : : #endif
3351 : : #if defined(_DERIVATE)
3352 : 0 : vj1_Vci_ei=0.0;
3353 : 0 : vj1_Vbi_ei=0.0;
3354 : 0 : vj1_Vs_ci=0.0;
3355 : 0 : vj1_Vbi_ci=(-((a_Vbi_ci*d00_logE0)+(a*ee1_Vbi_ci*d10_logE0)));
3356 : 0 : vj1_Vtnode_GND=(vf_Vtnode_GND-((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
3357 : 0 : vj1_Vb_ci=(-((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0)));
3358 : : #endif
3359 : 0 : vj1=(vf-(a*d00_logE0));
3360 : : }
3361 : : }
3362 : : else
3363 : : {
3364 : : #if defined(_DERIVATE)
3365 : 0 : vj1_Vci_ei=0.0;
3366 : 0 : vj1_Vbi_ei=0.0;
3367 : 0 : vj1_Vs_ci=0.0;
3368 : 0 : vj1_Vbi_ci=Vbici_Vbi_ci;
3369 : 0 : vj1_Vtnode_GND=0.0;
3370 : 0 : vj1_Vb_ci=0.0;
3371 : : #endif
3372 : 0 : vj1=Vbici;
3373 : : }
3374 : : #if defined(_DERIVATE)
3375 : 0 : a_Vci_ei=0.0;
3376 : 0 : a_Vbi_ei=0.0;
3377 : 0 : a_Vbi_ci=0.0;
3378 : 0 : a_Vb_ci=0.0;
3379 : 0 : a_Vtnode_GND=((0.1*vp_Vtnode_GND)+(4.0*VT_Vtnode_GND));
3380 : : #endif
3381 : 0 : a=((0.1*vp)+(4.0*VT));
3382 : : #if defined(_DERIVATE)
3383 : 0 : vr_Vci_ei=0.0;
3384 : 0 : vr_Vbi_ei=0.0;
3385 : 0 : vr_Vs_ci=0.0;
3386 : 0 : vr_Vbi_ci=((vj1_Vbi_ci*a-(vp+vj1)*a_Vbi_ci)/a/a);
3387 : 0 : vr_Vtnode_GND=(((vp_Vtnode_GND+vj1_Vtnode_GND)*a-(vp+vj1)*a_Vtnode_GND)/a/a);
3388 : 0 : vr_Vb_ci=((vj1_Vb_ci*a-(vp+vj1)*a_Vb_ci)/a/a);
3389 : : #endif
3390 : 0 : vr=((vp+vj1)/a);
3391 [ # # ]: 0 : if
3392 : : (vr<=80.0)
3393 : : {
3394 : : {
3395 : 0 : double m00_exp(d00_exp0,vr)
3396 : : #if defined(_DERIVATE)
3397 : : #define d10_exp0 d00_exp0
3398 : : #endif
3399 : : #if defined(_DERIVATE)
3400 : 0 : ex1_Vs_ci=0.0;
3401 : 0 : ex1_Vci_ei=0.0;
3402 : 0 : ex1_Vbi_ei=0.0;
3403 : 0 : ex1_Vbi_ci=vr_Vbi_ci*d10_exp0;
3404 : 0 : ex1_Vtnode_GND=vr_Vtnode_GND*d10_exp0;
3405 : 0 : ex1_Vb_ci=vr_Vb_ci*d10_exp0;
3406 : : #endif
3407 : 0 : ex1=d00_exp0;
3408 : : }
3409 : : #if defined(_DERIVATE)
3410 : 0 : ee1_Vs_ci=0.0;
3411 : 0 : ee1_Vci_ei=0.0;
3412 : 0 : ee1_Vbi_ei=0.0;
3413 : 0 : ee1_Vbi_ci=ex1_Vbi_ci;
3414 : 0 : ee1_Vtnode_GND=ex1_Vtnode_GND;
3415 : 0 : ee1_Vb_ci=ex1_Vb_ci;
3416 : : #endif
3417 : 0 : ee1=(1.0+ex1);
3418 : : {
3419 : 0 : double m00_logE(d00_logE0,ee1)
3420 : : #if defined(_DERIVATE)
3421 : 0 : double m10_logE(d10_logE0,d00_logE0,ee1)
3422 : : #endif
3423 : : #if defined(_DERIVATE)
3424 : 0 : vj2_Vci_ei=0.0;
3425 : 0 : vj2_Vbi_ei=0.0;
3426 : 0 : vj2_Vs_ci=0.0;
3427 : 0 : vj2_Vbi_ci=((a_Vbi_ci*d00_logE0)+(a*ee1_Vbi_ci*d10_logE0));
3428 : 0 : vj2_Vtnode_GND=((-vp_Vtnode_GND)+((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
3429 : 0 : vj2_Vb_ci=((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0));
3430 : : #endif
3431 : 0 : vj2=((-vp)+(a*d00_logE0));
3432 : : }
3433 : : }
3434 : : else
3435 : : {
3436 : : #if defined(_DERIVATE)
3437 : 0 : vj2_Vci_ei=0.0;
3438 : 0 : vj2_Vbi_ei=0.0;
3439 : 0 : vj2_Vs_ci=0.0;
3440 : 0 : vj2_Vbi_ci=vj1_Vbi_ci;
3441 : 0 : vj2_Vtnode_GND=vj1_Vtnode_GND;
3442 : 0 : vj2_Vb_ci=vj1_Vb_ci;
3443 : : #endif
3444 : 0 : vj2=vj1;
3445 : : }
3446 : : #if defined(_DERIVATE)
3447 : 0 : vj4_Vs_ci=0.0;
3448 : 0 : vj4_Vci_ei=0.0;
3449 : 0 : vj4_Vbi_ei=0.0;
3450 : 0 : vj4_Vbi_ci=(Vbici_Vbi_ci-vj1_Vbi_ci);
3451 : 0 : vj4_Vb_ci=(-vj1_Vb_ci);
3452 : 0 : vj4_Vtnode_GND=(-vj1_Vtnode_GND);
3453 : : #endif
3454 : 0 : vj4=(Vbici-vj1);
3455 : 0 : ez=(1.0-zci);
3456 : 0 : ezr=(1.0-zr);
3457 : : {
3458 : 0 : double m00_logE(d00_logE0,(1.0-(vj1/vdci_t)))
3459 : : #if defined(_DERIVATE)
3460 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(vj1/vdci_t)))
3461 : : #endif
3462 : : #if defined(_DERIVATE)
3463 : 0 : vdj1_Vci_ei=0.0;
3464 : 0 : vdj1_Vbi_ei=0.0;
3465 : 0 : vdj1_Vs_ci=0.0;
3466 : 0 : vdj1_Vbi_ci=(-(vj1_Vbi_ci/vdci_t))*d10_logE0;
3467 : 0 : vdj1_Vtnode_GND=(-((vj1_Vtnode_GND*vdci_t-vj1*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
3468 : 0 : vdj1_Vb_ci=(-(vj1_Vb_ci/vdci_t))*d10_logE0;
3469 : : #endif
3470 : 0 : vdj1=d00_logE0;
3471 : : }
3472 : : {
3473 : 0 : double m00_logE(d00_logE0,(1.0-(vj2/vdci_t)))
3474 : : #if defined(_DERIVATE)
3475 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(vj2/vdci_t)))
3476 : : #endif
3477 : : #if defined(_DERIVATE)
3478 : 0 : vdj2_Vci_ei=0.0;
3479 : 0 : vdj2_Vbi_ei=0.0;
3480 : 0 : vdj2_Vs_ci=0.0;
3481 : 0 : vdj2_Vbi_ci=(-(vj2_Vbi_ci/vdci_t))*d10_logE0;
3482 : 0 : vdj2_Vtnode_GND=(-((vj2_Vtnode_GND*vdci_t-vj2*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
3483 : 0 : vdj2_Vb_ci=(-(vj2_Vb_ci/vdci_t))*d10_logE0;
3484 : : #endif
3485 : 0 : vdj2=d00_logE0;
3486 : : }
3487 : : {
3488 : 0 : double m00_exp(d00_exp0,(vdj2*ez))
3489 : : #if defined(_DERIVATE)
3490 : : #define d10_exp0 d00_exp0
3491 : : #endif
3492 : : #if defined(_DERIVATE)
3493 : 0 : qj1_Vci_ei=0.0;
3494 : 0 : qj1_Vbi_ei=0.0;
3495 : 0 : qj1_Vs_ci=0.0;
3496 : 0 : qj1_Vbi_ci=((cjci0_t_ii*(-vdj2_Vbi_ci*ez*d10_exp0))/ez);
3497 : 0 : qj1_Vtnode_GND=(((cjci0_t_ii_Vtnode_GND*(1.0-d00_exp0))+(cjci0_t_ii*(-vdj2_Vtnode_GND*ez*d10_exp0)))/ez);
3498 : 0 : qj1_Vb_ci=((cjci0_t_ii*(-vdj2_Vb_ci*ez*d10_exp0))/ez);
3499 : : #endif
3500 : 0 : qj1=((cjci0_t_ii*(1.0-d00_exp0))/ez);
3501 : : }
3502 : : {
3503 : 0 : double m00_exp(d00_exp0,(vdj1*ezr))
3504 : : #if defined(_DERIVATE)
3505 : : #define d10_exp0 d00_exp0
3506 : : #endif
3507 : : #if defined(_DERIVATE)
3508 : 0 : qj2_Vci_ei=0.0;
3509 : 0 : qj2_Vbi_ei=0.0;
3510 : 0 : qj2_Vs_ci=0.0;
3511 : 0 : qj2_Vbi_ci=((cr*(-vdj1_Vbi_ci*ezr*d10_exp0))/ezr);
3512 : 0 : qj2_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj1_Vtnode_GND*ezr*d10_exp0)))/ezr);
3513 : 0 : qj2_Vb_ci=((cr*(-vdj1_Vb_ci*ezr*d10_exp0))/ezr);
3514 : : #endif
3515 : 0 : qj2=((cr*(1.0-d00_exp0))/ezr);
3516 : : }
3517 : : {
3518 : 0 : double m00_exp(d00_exp0,(vdj2*ezr))
3519 : : #if defined(_DERIVATE)
3520 : : #define d10_exp0 d00_exp0
3521 : : #endif
3522 : : #if defined(_DERIVATE)
3523 : 0 : qj3_Vci_ei=0.0;
3524 : 0 : qj3_Vbi_ei=0.0;
3525 : 0 : qj3_Vs_ci=0.0;
3526 : 0 : qj3_Vbi_ci=((cr*(-vdj2_Vbi_ci*ezr*d10_exp0))/ezr);
3527 : 0 : qj3_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj2_Vtnode_GND*ezr*d10_exp0)))/ezr);
3528 : 0 : qj3_Vb_ci=((cr*(-vdj2_Vb_ci*ezr*d10_exp0))/ezr);
3529 : : #endif
3530 : 0 : qj3=((cr*(1.0-d00_exp0))/ezr);
3531 : : }
3532 : : #if defined(_DERIVATE)
3533 : 0 : qjci_Vbi_ci=(((qj1_Vbi_ci+qj2_Vbi_ci)-qj3_Vbi_ci)*vdci_t+(cmax*vj4_Vbi_ci));
3534 : 0 : qjci_Vtnode_GND=(((((qj1_Vtnode_GND+qj2_Vtnode_GND)-qj3_Vtnode_GND)*vdci_t)+(((qj1+qj2)-qj3)*vdci_t_Vtnode_GND))+((cmax_Vtnode_GND*vj4)+(cmax*vj4_Vtnode_GND)));
3535 : 0 : qjci_Vb_ci=(((qj1_Vb_ci+qj2_Vb_ci)-qj3_Vb_ci)*vdci_t+(cmax*vj4_Vb_ci));
3536 : : #endif
3537 : 0 : qjci=((((qj1+qj2)-qj3)*vdci_t)+(cmax*vj4));
3538 : : }
3539 : : else
3540 : : {
3541 : : #if defined(_DERIVATE)
3542 : 0 : qjci_Vbi_ci=0.0;
3543 : 0 : qjci_Vtnode_GND=0.0;
3544 : 0 : qjci_Vb_ci=0.0;
3545 : : #endif
3546 : 0 : qjci=0.0;
3547 : : }
3548 : : }
3549 : : else
3550 : : {
3551 [ # # ]: 0 : if
3552 : : (cjci0_t_ii>0.0)
3553 : : {
3554 : : {
3555 : 0 : double m00_logE(d00_logE0,2.4)
3556 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zci))
3557 : : #if defined(_DERIVATE)
3558 : 0 : vf_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
3559 : : #endif
3560 : 0 : vf=(vdci_t*(1.0-d00_exp1));
3561 : : }
3562 : : #if defined(_DERIVATE)
3563 : 0 : xvf_Vs_ci=0.0;
3564 : 0 : xvf_Vbi_ei=0.0;
3565 : 0 : xvf_Vbi_ci=((-Vbici_Vbi_ci)/VT);
3566 : 0 : xvf_Vtnode_GND=((vf_Vtnode_GND*VT-(vf-Vbici)*VT_Vtnode_GND)/VT/VT);
3567 : 0 : xvf_Vb_ci=0.0;
3568 : : #endif
3569 : 0 : xvf=((vf-Vbici)/VT);
3570 : : {
3571 : 0 : double m00_sqrt(d00_sqrt0,((xvf*xvf)+1.921812))
3572 : : #if defined(_DERIVATE)
3573 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((xvf*xvf)+1.921812))
3574 : : #endif
3575 : : #if defined(_DERIVATE)
3576 : 0 : xvf2_Vs_ci=0.0;
3577 : 0 : xvf2_Vbi_ei=0.0;
3578 : 0 : xvf2_Vbi_ci=((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))*d10_sqrt0;
3579 : 0 : xvf2_Vtnode_GND=((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND))*d10_sqrt0;
3580 : 0 : xvf2_Vb_ci=((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci))*d10_sqrt0;
3581 : : #endif
3582 : 0 : xvf2=d00_sqrt0;
3583 : : }
3584 : : #if defined(_DERIVATE)
3585 : 0 : v_j_Vs_ci=0.0;
3586 : 0 : v_j_Vbi_ei=0.0;
3587 : 0 : v_j_Vbi_ci=(-(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.5);
3588 : 0 : v_j_Vtnode_GND=(vf_Vtnode_GND-((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND)))*0.5);
3589 : 0 : v_j_Vb_ci=(-(VT*(xvf_Vb_ci+xvf2_Vb_ci))*0.5);
3590 : : #endif
3591 : 0 : v_j=(vf-((VT*(xvf+xvf2))*0.5));
3592 : : #if defined(_DERIVATE)
3593 : 0 : x_Vci_ei=0.0;
3594 : 0 : x_Vbi_ei=0.0;
3595 : 0 : x_Vbi_ci=0.0;
3596 : 0 : x_Vtnode_GND=0.0;
3597 : 0 : x_Vb_ci=0.0;
3598 : : #endif
3599 : 0 : x=(1.0-zci);
3600 : : {
3601 : 0 : double m00_logE(d00_logE0,(1.0-(v_j/vdci_t)))
3602 : 0 : double m00_exp(d00_exp1,(x*d00_logE0))
3603 : : #if defined(_DERIVATE)
3604 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(v_j/vdci_t)))
3605 : : #define d10_exp1 d00_exp1
3606 : : #endif
3607 : : #if defined(_DERIVATE)
3608 : 0 : y_Vs_ci=0.0;
3609 : 0 : y_Vci_ei=0.0;
3610 : 0 : y_Vbi_ei=0.0;
3611 : 0 : y_Vbi_ci=(-((x_Vbi_ci*d00_logE0)+(x*(-(v_j_Vbi_ci/vdci_t))*d10_logE0))*d10_exp1);
3612 : 0 : y_Vtnode_GND=(-((x_Vtnode_GND*d00_logE0)+(x*(-((v_j_Vtnode_GND*vdci_t-v_j*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0))*d10_exp1);
3613 : 0 : y_Vb_ci=(-((x_Vb_ci*d00_logE0)+(x*(-(v_j_Vb_ci/vdci_t))*d10_logE0))*d10_exp1);
3614 : : #endif
3615 : 0 : y=(1.0-d00_exp1);
3616 : : }
3617 : : #if defined(_DERIVATE)
3618 : 0 : qjci_Vbi_ci=(((((cjci0_t_ii*vdci_t)*y_Vbi_ci)*x-((cjci0_t_ii*vdci_t)*y)*x_Vbi_ci)/x/x)+((2.4*cjci0_t_ii)*(Vbici_Vbi_ci-v_j_Vbi_ci)));
3619 : 0 : qjci_Vtnode_GND=(((((((cjci0_t_ii_Vtnode_GND*vdci_t)+(cjci0_t_ii*vdci_t_Vtnode_GND))*y)+((cjci0_t_ii*vdci_t)*y_Vtnode_GND))*x-((cjci0_t_ii*vdci_t)*y)*x_Vtnode_GND)/x/x)+(((2.4*cjci0_t_ii_Vtnode_GND)*(Vbici-v_j))+((2.4*cjci0_t_ii)*(-v_j_Vtnode_GND))));
3620 : 0 : qjci_Vb_ci=(((((cjci0_t_ii*vdci_t)*y_Vb_ci)*x-((cjci0_t_ii*vdci_t)*y)*x_Vb_ci)/x/x)+((2.4*cjci0_t_ii)*(-v_j_Vb_ci)));
3621 : : #endif
3622 : 0 : qjci=((((cjci0_t_ii*vdci_t)*y)/x)+((2.4*cjci0_t_ii)*(Vbici-v_j)));
3623 : : }
3624 : : else
3625 : : {
3626 : : #if defined(_DERIVATE)
3627 : 0 : qjci_Vbi_ci=0.0;
3628 : 0 : qjci_Vtnode_GND=0.0;
3629 : 0 : qjci_Vb_ci=0.0;
3630 : : #endif
3631 : 0 : qjci=0.00;
3632 : : }
3633 : : }
3634 : : #if defined(_DYNAMIC)
3635 : : #if defined(_DERIVATE)
3636 : 0 : qjcii_Vbi_ci=(qjci_Vbi_ci+qjcxi_Vbi_ci);
3637 : 0 : qjcii_Vtnode_GND=(qjci_Vtnode_GND+qjcxi_Vtnode_GND);
3638 : 0 : qjcii_Vb_ci=(qjci_Vb_ci+qjcxi_Vb_ci);
3639 : : #endif
3640 : 0 : qjcii=(qjci+qjcxi);
3641 : : #endif
3642 : : if
3643 : : (1>0.0)
3644 : : {
3645 : : {
3646 : 0 : double m00_logE(d00_logE0,2.4)
3647 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zci))
3648 : : #if defined(_DERIVATE)
3649 : 0 : vf_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
3650 : : #endif
3651 : 0 : vf=(vdci_t*(1.0-d00_exp1));
3652 : : }
3653 : : #if defined(_DERIVATE)
3654 : 0 : xvf_Vs_ci=0.0;
3655 : 0 : xvf_Vbi_ei=0.0;
3656 : 0 : xvf_Vbi_ci=((-Vbici_Vbi_ci)/VT);
3657 : 0 : xvf_Vtnode_GND=((vf_Vtnode_GND*VT-(vf-Vbici)*VT_Vtnode_GND)/VT/VT);
3658 : 0 : xvf_Vb_ci=0.0;
3659 : : #endif
3660 : 0 : xvf=((vf-Vbici)/VT);
3661 : : {
3662 : 0 : double m00_sqrt(d00_sqrt0,((xvf*xvf)+1.921812))
3663 : : #if defined(_DERIVATE)
3664 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((xvf*xvf)+1.921812))
3665 : : #endif
3666 : : #if defined(_DERIVATE)
3667 : 0 : xvf2_Vs_ci=0.0;
3668 : 0 : xvf2_Vbi_ei=0.0;
3669 : 0 : xvf2_Vbi_ci=((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))*d10_sqrt0;
3670 : 0 : xvf2_Vtnode_GND=((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND))*d10_sqrt0;
3671 : 0 : xvf2_Vb_ci=((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci))*d10_sqrt0;
3672 : : #endif
3673 : 0 : xvf2=d00_sqrt0;
3674 : : }
3675 : : #if defined(_DERIVATE)
3676 : 0 : v_j_Vs_ci=0.0;
3677 : 0 : v_j_Vbi_ei=0.0;
3678 : 0 : v_j_Vbi_ci=(-(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.5);
3679 : 0 : v_j_Vtnode_GND=(vf_Vtnode_GND-((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND)))*0.5);
3680 : 0 : v_j_Vb_ci=(-(VT*(xvf_Vb_ci+xvf2_Vb_ci))*0.5);
3681 : : #endif
3682 : 0 : v_j=(vf-((VT*(xvf+xvf2))*0.5));
3683 : : #if defined(_DERIVATE)
3684 : 0 : dvj_Vbi_ci=(((0.5*(xvf_Vbi_ci+xvf2_Vbi_ci))*xvf2-(0.5*(xvf+xvf2))*xvf2_Vbi_ci)/xvf2/xvf2);
3685 : 0 : dvj_Vtnode_GND=(((0.5*(xvf_Vtnode_GND+xvf2_Vtnode_GND))*xvf2-(0.5*(xvf+xvf2))*xvf2_Vtnode_GND)/xvf2/xvf2);
3686 : 0 : dvj_Vb_ci=(((0.5*(xvf_Vb_ci+xvf2_Vb_ci))*xvf2-(0.5*(xvf+xvf2))*xvf2_Vb_ci)/xvf2/xvf2);
3687 : : #endif
3688 : 0 : dvj=((0.5*(xvf+xvf2))/xvf2);
3689 : : {
3690 : 0 : double m00_logE(d00_logE0,(1-(v_j/vdci_t)))
3691 : 0 : double m00_exp(d00_exp1,((-zci)*d00_logE0))
3692 : : #if defined(_DERIVATE)
3693 : 0 : double m10_logE(d10_logE0,d00_logE0,(1-(v_j/vdci_t)))
3694 : : #define d10_exp1 d00_exp1
3695 : : #endif
3696 : : #if defined(_DERIVATE)
3697 : 0 : occ_Vbi_ci=((((1*((-zci)*(-(v_j_Vbi_ci/vdci_t))*d10_logE0)*d10_exp1)*dvj)+((1*d00_exp1)*dvj_Vbi_ci))+((2.4*1)*(-dvj_Vbi_ci)));
3698 : 0 : occ_Vtnode_GND=((((1*((-zci)*(-((v_j_Vtnode_GND*vdci_t-v_j*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0)*d10_exp1)*dvj)+((1*d00_exp1)*dvj_Vtnode_GND))+((2.4*1)*(-dvj_Vtnode_GND)));
3699 : 0 : occ_Vb_ci=((((1*((-zci)*(-(v_j_Vb_ci/vdci_t))*d10_logE0)*d10_exp1)*dvj)+((1*d00_exp1)*dvj_Vb_ci))+((2.4*1)*(-dvj_Vb_ci)));
3700 : : #endif
3701 : 0 : occ=(((1*d00_exp1)*dvj)+((2.4*1)*(1-dvj)));
3702 : : }
3703 : : }
3704 : : else
3705 : : {
3706 : : #if defined(_DERIVATE)
3707 : : occ_Vbi_ci=0.0;
3708 : : occ_Vtnode_GND=0.0;
3709 : : occ_Vb_ci=0.0;
3710 : : #endif
3711 : : occ=0.0;
3712 : : }
3713 : : #if defined(_DERIVATE)
3714 : 0 : cc_Vbi_ci=(-1*occ_Vbi_ci/occ/occ);
3715 : 0 : cc_Vtnode_GND=(-1*occ_Vtnode_GND/occ/occ);
3716 : 0 : cc_Vb_ci=(-1*occ_Vb_ci/occ/occ);
3717 : : #endif
3718 : 0 : cc=(1/occ);
3719 : : #if defined(_DERIVATE)
3720 : 0 : tf0_Vtnode_GND=((t0_t_Vtnode_GND+(dt0h*cc_Vtnode_GND))+(tbvl*occ_Vtnode_GND));
3721 : 0 : tf0_Vbi_ci=((dt0h*cc_Vbi_ci)+(tbvl*occ_Vbi_ci));
3722 : 0 : tf0_Vb_ci=((dt0h*cc_Vb_ci)+(tbvl*occ_Vb_ci));
3723 : : #endif
3724 : 0 : tf0=((t0_t+(dt0h*(cc-1)))+(tbvl*(occ-1)));
3725 : 0 : arg=((0.5*vdedc)/vt0);
3726 : : {
3727 : 0 : double m00_exp(d00_exp0,arg)
3728 : 0 : double m00_exp(d00_exp1,(-arg))
3729 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
3730 : 0 : vdj0=((2*vt0)*d00_logE2);
3731 : : }
3732 : : #if defined(_DERIVATE)
3733 : 0 : vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgbe*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
3734 : : #endif
3735 : 0 : vdjt=(((vdj0*qtt0)+(vgbe*(1-qtt0)))-((mg*VT)*ln_qtt0));
3736 : : {
3737 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
3738 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
3739 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
3740 : : #if defined(_DERIVATE)
3741 : : #define d10_exp0 d00_exp0
3742 : 0 : double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
3743 : 0 : double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
3744 : : #endif
3745 : : #if defined(_DERIVATE)
3746 : 0 : vdedc_t_Vtnode_GND=(vdjt_Vtnode_GND+(((2*VT_Vtnode_GND)*d00_logE2)+((2*VT)*(0.5*(4*(((-vdjt_Vtnode_GND)*VT-(-vdjt)*VT_Vtnode_GND)/VT/VT)*d10_exp0)*d10_sqrt1)*d10_logE2)));
3747 : : #endif
3748 : 0 : vdedc_t=(vdjt+((2*VT)*d00_logE2));
3749 : : }
3750 : : {
3751 : 0 : double m00_logE(d00_logE0,(vdedc/vdedc_t))
3752 : 0 : double m00_exp(d00_exp1,(zedc*d00_logE0))
3753 : : #if defined(_DERIVATE)
3754 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdedc/vdedc_t))
3755 : : #define d10_exp1 d00_exp1
3756 : : #endif
3757 : : #if defined(_DERIVATE)
3758 : 0 : cT_cT0_Vtnode_GND=(1*(zedc*(-vdedc*vdedc_t_Vtnode_GND/vdedc_t/vdedc_t)*d10_logE0)*d10_exp1);
3759 : : #endif
3760 : 0 : cT_cT0=(1*d00_exp1);
3761 : : }
3762 : : #if defined(_DERIVATE)
3763 : 0 : ajedc_t_Vtnode_GND=((ajedc*vdedc_t_Vtnode_GND)/vdedc);
3764 : : #endif
3765 : 0 : ajedc_t=((ajedc*vdedc_t)/vdedc);
3766 : 0 : a_bpt=0.05;
3767 [ # # ]: 0 : if
3768 : : (Tdev<Tnom)
3769 : : {
3770 : : {
3771 : 0 : double m00_logE(d00_logE0,(vdedc/vdedc_t))
3772 : 0 : double m00_exp(d00_exp1,((1-zedc)*d00_logE0))
3773 : : #if defined(_DERIVATE)
3774 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdedc/vdedc_t))
3775 : : #define d10_exp1 d00_exp1
3776 : : #endif
3777 : : #if defined(_DERIVATE)
3778 : 0 : expv_Vtnode_GND=((1-zedc)*(-vdedc*vdedc_t_Vtnode_GND/vdedc_t/vdedc_t)*d10_logE0)*d10_exp1;
3779 : : #endif
3780 : 0 : expv=d00_exp1;
3781 : : }
3782 : : #if defined(_DERIVATE)
3783 : 0 : aa_Vci_ei=0.0;
3784 : 0 : aa_Vbi_ei=0.0;
3785 : 0 : aa_Vbi_ci=0.0;
3786 : 0 : aa_Vb_ci=0.0;
3787 : 0 : aa_Vtnode_GND=(-(delte*(-expv_Vtnode_GND)));
3788 : : #endif
3789 : 0 : aa=(1-(delte*(1-expv)));
3790 : : #if defined(_DERIVATE)
3791 : 0 : aa_Vci_ei=0.0;
3792 : 0 : aa_Vbi_ei=0.0;
3793 : 0 : aa_Vbi_ci=0.0;
3794 : 0 : aa_Vb_ci=0.0;
3795 : 0 : aa_Vtnode_GND=(aa_Vtnode_GND+(((((1-a_bpt)*(1-zedc))*ver_t_Vtnode_GND)*expv)+((((1-a_bpt)*(1-zedc))*ver_t)*expv_Vtnode_GND)));
3796 : : #endif
3797 : 0 : aa=(aa+((((1-a_bpt)*(1-zedc))*ver_t)*expv));
3798 : : {
3799 [ # # ]: 0 : double m00_abs(d00_abs0,aa)
3800 : 0 : double m00_logE(d00_logE1,d00_abs0)
3801 : 0 : double m00_exp(d00_exp2,(d00_logE1/(1-zedc)))
3802 : : #if defined(_DERIVATE)
3803 [ # # ]: 0 : double m10_abs(d10_abs0,d00_abs0,aa)
3804 : 0 : double m10_logE(d10_logE1,d00_logE1,d00_abs0)
3805 : : #define d10_exp2 d00_exp2
3806 : : #endif
3807 : : #if defined(_DERIVATE)
3808 : 0 : aa_Vci_ei=0.0;
3809 : 0 : aa_Vbi_ei=0.0;
3810 : 0 : aa_Vbi_ci=0.0;
3811 : 0 : aa_Vb_ci=0.0;
3812 : 0 : aa_Vtnode_GND=(aa_Vtnode_GND*d10_abs0*d10_logE1/(1-zedc))*d10_exp2;
3813 : : #endif
3814 : 0 : aa=d00_exp2;
3815 : : }
3816 : : #if defined(_DERIVATE)
3817 : 0 : vr_Vci_ei=0.0;
3818 : 0 : vr_Vbi_ei=0.0;
3819 : 0 : vr_Vs_ci=0.0;
3820 : 0 : vr_Vbi_ci=0.0;
3821 : 0 : vr_Vtnode_GND=((vdedc_t_Vtnode_GND*(1-aa))+(vdedc_t*(-aa_Vtnode_GND)));
3822 : 0 : vr_Vb_ci=0.0;
3823 : : #endif
3824 : 0 : vr=(vdedc_t*(1-aa));
3825 : : #if defined(_DERIVATE)
3826 : 0 : x_Vci_ei=0.0;
3827 : 0 : x_Vbi_ei=((Vbiei_Vbi_ei-vr_Vbi_ei)/a_bpt);
3828 : 0 : x_Vbi_ci=((-vr_Vbi_ci)/a_bpt);
3829 : 0 : x_Vtnode_GND=((-vr_Vtnode_GND)/a_bpt);
3830 : 0 : x_Vb_ci=((-vr_Vb_ci)/a_bpt);
3831 : : #endif
3832 : 0 : x=((Vbiei-vr)/a_bpt);
3833 : : {
3834 : 0 : double m00_sqrt(d00_sqrt0,((x*x)+1.921812))
3835 : : #if defined(_DERIVATE)
3836 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((x*x)+1.921812))
3837 : : #endif
3838 : : #if defined(_DERIVATE)
3839 : 0 : sqx_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei))*d10_sqrt0;
3840 : 0 : sqx_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci))*d10_sqrt0;
3841 : 0 : sqx_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND))*d10_sqrt0;
3842 : 0 : sqx_Vb_ci=((x_Vb_ci*x)+(x*x_Vb_ci))*d10_sqrt0;
3843 : : #endif
3844 : 0 : sqx=d00_sqrt0;
3845 : : }
3846 : : #if defined(_DERIVATE)
3847 : 0 : Vbiei_l_Vbi_ci=(vr_Vbi_ci+((0.5*a_bpt)*(x_Vbi_ci+sqx_Vbi_ci)));
3848 : 0 : Vbiei_l_Vtnode_GND=(vr_Vtnode_GND+((0.5*a_bpt)*(x_Vtnode_GND+sqx_Vtnode_GND)));
3849 : 0 : Vbiei_l_Vb_ci=(vr_Vb_ci+((0.5*a_bpt)*(x_Vb_ci+sqx_Vb_ci)));
3850 : 0 : Vbiei_l_Vbi_ei=(vr_Vbi_ei+((0.5*a_bpt)*(x_Vbi_ei+sqx_Vbi_ei)));
3851 : : #endif
3852 : 0 : Vbiei_l=(vr+((0.5*a_bpt)*(x+sqx)));
3853 : : }
3854 : : else
3855 : : {
3856 : : #if defined(_DERIVATE)
3857 : 0 : Vbiei_l_Vbi_ci=0.0;
3858 : 0 : Vbiei_l_Vtnode_GND=0.0;
3859 : 0 : Vbiei_l_Vb_ci=0.0;
3860 : 0 : Vbiei_l_Vbi_ei=Vbiei_Vbi_ei;
3861 : : #endif
3862 : 0 : Vbiei_l=Vbiei;
3863 : : }
3864 [ # # ]: 0 : if
3865 : : (cT_cT0>0.0)
3866 : : {
3867 : : {
3868 : 0 : double m00_logE(d00_logE0,ajedc_t)
3869 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zedc))
3870 : : #if defined(_DERIVATE)
3871 : 0 : double m10_logE(d10_logE0,d00_logE0,ajedc_t)
3872 : : #define d10_exp1 d00_exp1
3873 : : #endif
3874 : : #if defined(_DERIVATE)
3875 : 0 : vf_Vtnode_GND=((vdedc_t_Vtnode_GND*(1.0-d00_exp1))+(vdedc_t*(-((-ajedc_t_Vtnode_GND*d10_logE0)/zedc)*d10_exp1)));
3876 : : #endif
3877 : 0 : vf=(vdedc_t*(1.0-d00_exp1));
3878 : : }
3879 : : #if defined(_DERIVATE)
3880 : 0 : xvf_Vs_ci=0.0;
3881 : 0 : xvf_Vbi_ei=((-Vbiei_l_Vbi_ei)/VT);
3882 : 0 : xvf_Vbi_ci=((-Vbiei_l_Vbi_ci)/VT);
3883 : 0 : xvf_Vtnode_GND=(((vf_Vtnode_GND-Vbiei_l_Vtnode_GND)*VT-(vf-Vbiei_l)*VT_Vtnode_GND)/VT/VT);
3884 : 0 : xvf_Vb_ci=((-Vbiei_l_Vb_ci)/VT);
3885 : : #endif
3886 : 0 : xvf=((vf-Vbiei_l)/VT);
3887 : : {
3888 : 0 : double m00_sqrt(d00_sqrt0,((xvf*xvf)+1.921812))
3889 : : #if defined(_DERIVATE)
3890 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((xvf*xvf)+1.921812))
3891 : : #endif
3892 : : #if defined(_DERIVATE)
3893 : 0 : xvf2_Vs_ci=0.0;
3894 : 0 : xvf2_Vbi_ei=((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei))*d10_sqrt0;
3895 : 0 : xvf2_Vbi_ci=((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))*d10_sqrt0;
3896 : 0 : xvf2_Vtnode_GND=((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND))*d10_sqrt0;
3897 : 0 : xvf2_Vb_ci=((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci))*d10_sqrt0;
3898 : : #endif
3899 : 0 : xvf2=d00_sqrt0;
3900 : : }
3901 : : #if defined(_DERIVATE)
3902 : 0 : v_j_Vs_ci=0.0;
3903 : 0 : v_j_Vbi_ei=(-(VT*(xvf_Vbi_ei+xvf2_Vbi_ei))*0.5);
3904 : 0 : v_j_Vbi_ci=(-(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.5);
3905 : 0 : v_j_Vtnode_GND=(vf_Vtnode_GND-((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND)))*0.5);
3906 : 0 : v_j_Vb_ci=(-(VT*(xvf_Vb_ci+xvf2_Vb_ci))*0.5);
3907 : : #endif
3908 : 0 : v_j=(vf-((VT*(xvf+xvf2))*0.5));
3909 : : #if defined(_DERIVATE)
3910 : 0 : x_Vci_ei=0.0;
3911 : 0 : x_Vbi_ei=0.0;
3912 : 0 : x_Vbi_ci=0.0;
3913 : 0 : x_Vtnode_GND=0.0;
3914 : 0 : x_Vb_ci=0.0;
3915 : : #endif
3916 : 0 : x=(1.0-zedc);
3917 : : {
3918 : 0 : double m00_logE(d00_logE0,(1.0-(v_j/vdedc_t)))
3919 : 0 : double m00_exp(d00_exp1,(x*d00_logE0))
3920 : : #if defined(_DERIVATE)
3921 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(v_j/vdedc_t)))
3922 : : #define d10_exp1 d00_exp1
3923 : : #endif
3924 : : #if defined(_DERIVATE)
3925 : 0 : y_Vs_ci=0.0;
3926 : 0 : y_Vci_ei=0.0;
3927 : 0 : y_Vbi_ei=(-((x_Vbi_ei*d00_logE0)+(x*(-(v_j_Vbi_ei/vdedc_t))*d10_logE0))*d10_exp1);
3928 : 0 : y_Vbi_ci=(-((x_Vbi_ci*d00_logE0)+(x*(-(v_j_Vbi_ci/vdedc_t))*d10_logE0))*d10_exp1);
3929 : 0 : y_Vtnode_GND=(-((x_Vtnode_GND*d00_logE0)+(x*(-((v_j_Vtnode_GND*vdedc_t-v_j*vdedc_t_Vtnode_GND)/vdedc_t/vdedc_t))*d10_logE0))*d10_exp1);
3930 : 0 : y_Vb_ci=(-((x_Vb_ci*d00_logE0)+(x*(-(v_j_Vb_ci/vdedc_t))*d10_logE0))*d10_exp1);
3931 : : #endif
3932 : 0 : y=(1.0-d00_exp1);
3933 : : }
3934 : : #if defined(_DERIVATE)
3935 : 0 : qjedc_Vtnode_GND=(((((((cT_cT0_Vtnode_GND*vdedc_t)+(cT_cT0*vdedc_t_Vtnode_GND))*y)+((cT_cT0*vdedc_t)*y_Vtnode_GND))*x-((cT_cT0*vdedc_t)*y)*x_Vtnode_GND)/x/x)+((((ajedc_t_Vtnode_GND*cT_cT0)+(ajedc_t*cT_cT0_Vtnode_GND))*(Vbiei_l-v_j))+((ajedc_t*cT_cT0)*(Vbiei_l_Vtnode_GND-v_j_Vtnode_GND))));
3936 : 0 : qjedc_Vbi_ei=(((((cT_cT0*vdedc_t)*y_Vbi_ei)*x-((cT_cT0*vdedc_t)*y)*x_Vbi_ei)/x/x)+((ajedc_t*cT_cT0)*(Vbiei_l_Vbi_ei-v_j_Vbi_ei)));
3937 : 0 : qjedc_Vbi_ci=(((((cT_cT0*vdedc_t)*y_Vbi_ci)*x-((cT_cT0*vdedc_t)*y)*x_Vbi_ci)/x/x)+((ajedc_t*cT_cT0)*(Vbiei_l_Vbi_ci-v_j_Vbi_ci)));
3938 : 0 : qjedc_Vb_ci=(((((cT_cT0*vdedc_t)*y_Vb_ci)*x-((cT_cT0*vdedc_t)*y)*x_Vb_ci)/x/x)+((ajedc_t*cT_cT0)*(Vbiei_l_Vb_ci-v_j_Vb_ci)));
3939 : : #endif
3940 : 0 : qjedc=((((cT_cT0*vdedc_t)*y)/x)+((ajedc_t*cT_cT0)*(Vbiei_l-v_j)));
3941 : : }
3942 : : else
3943 : : {
3944 : : #if defined(_DERIVATE)
3945 : 0 : qjedc_Vtnode_GND=0.0;
3946 : 0 : qjedc_Vbi_ei=0.0;
3947 : 0 : qjedc_Vbi_ci=0.0;
3948 : 0 : qjedc_Vb_ci=0.0;
3949 : : #endif
3950 : 0 : qjedc=0.00;
3951 : : }
3952 : : {
3953 : 0 : double m00_logE(d00_logE0,(vdedc_t/vdedc))
3954 : 0 : double m00_exp(d00_exp1,((1-zedc)*d00_logE0))
3955 : : #if defined(_DERIVATE)
3956 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdedc_t/vdedc))
3957 : : #define d10_exp1 d00_exp1
3958 : : #endif
3959 : : #if defined(_DERIVATE)
3960 : 0 : Dfie_Vtnode_GND=((delte*(-((1-zedc)*(vdedc_t_Vtnode_GND/vdedc)*d10_logE0)*d10_exp1))/(1-zedc));
3961 : : #endif
3962 : 0 : Dfie=((delte*(1-d00_exp1))/(1-zedc));
3963 : : }
3964 : : #if defined(_DERIVATE)
3965 : 0 : Gjei_Vtnode_GND=(Dfie_Vtnode_GND+(qjedc_Vtnode_GND/vdedc));
3966 : 0 : Gjei_Vbi_ei=(qjedc_Vbi_ei/vdedc);
3967 : 0 : Gjei_Vbi_ci=(qjedc_Vbi_ci/vdedc);
3968 : 0 : Gjei_Vb_ci=(qjedc_Vb_ci/vdedc);
3969 : : #endif
3970 : 0 : Gjei=(Dfie+(qjedc/vdedc));
3971 : : {
3972 : 0 : double m00_logE(d00_logE0,(vdci_t/vdci))
3973 : 0 : double m00_exp(d00_exp1,((-zci)*d00_logE0))
3974 : : #if defined(_DERIVATE)
3975 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdci_t/vdci))
3976 : : #define d10_exp1 d00_exp1
3977 : : #endif
3978 : : #if defined(_DERIVATE)
3979 : 0 : cT_cT0_Vtnode_GND=((-zci)*(vdci_t_Vtnode_GND/vdci)*d10_logE0)*d10_exp1;
3980 : : #endif
3981 : 0 : cT_cT0=d00_exp1;
3982 : : }
3983 [ # # ]: 0 : if
3984 : : (vptci<1.0e2)
3985 : : {
3986 [ # # ]: 0 : if
3987 : : (cT_cT0>0.0)
3988 : : {
3989 : 0 : zr=(zci/4.0);
3990 : : #if defined(_DERIVATE)
3991 : 0 : vp_Vtnode_GND=(-vdci_t_Vtnode_GND);
3992 : : #endif
3993 : 0 : vp=(vptci-vdci_t);
3994 : : {
3995 : 0 : double m00_logE(d00_logE0,2.4)
3996 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zci))
3997 : : #if defined(_DERIVATE)
3998 : 0 : vf_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
3999 : : #endif
4000 : 0 : vf=(vdci_t*(1.0-d00_exp1));
4001 : : }
4002 : : #if defined(_DERIVATE)
4003 : 0 : cmax_Vtnode_GND=(2.4*cT_cT0_Vtnode_GND);
4004 : : #endif
4005 : 0 : cmax=(2.4*cT_cT0);
4006 : : {
4007 : 0 : double m00_logE(d00_logE0,(vdci_t/vptci))
4008 : 0 : double m00_exp(d00_exp1,((zci-zr)*d00_logE0))
4009 : : #if defined(_DERIVATE)
4010 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdci_t/vptci))
4011 : : #define d10_exp1 d00_exp1
4012 : : #endif
4013 : : #if defined(_DERIVATE)
4014 : 0 : cr_Vtnode_GND=((cT_cT0_Vtnode_GND*d00_exp1)+(cT_cT0*((zci-zr)*(vdci_t_Vtnode_GND/vptci)*d10_logE0)*d10_exp1));
4015 : : #endif
4016 : 0 : cr=(cT_cT0*d00_exp1);
4017 : : }
4018 : : #if defined(_DERIVATE)
4019 : 0 : a_Vci_ei=0.0;
4020 : 0 : a_Vbi_ei=0.0;
4021 : 0 : a_Vbi_ci=0.0;
4022 : 0 : a_Vb_ci=0.0;
4023 : 0 : a_Vtnode_GND=VT_Vtnode_GND;
4024 : : #endif
4025 : 0 : a=VT;
4026 : : #if defined(_DERIVATE)
4027 : 0 : ve_Vs_ci=0.0;
4028 : 0 : ve_Vci_ei=0.0;
4029 : 0 : ve_Vbi_ei=0.0;
4030 : 0 : ve_Vbi_ci=(((-Vbici_Vbi_ci)*a-(vf-Vbici)*a_Vbi_ci)/a/a);
4031 : 0 : ve_Vtnode_GND=((vf_Vtnode_GND*a-(vf-Vbici)*a_Vtnode_GND)/a/a);
4032 : 0 : ve_Vb_ci=0.0;
4033 : : #endif
4034 : 0 : ve=((vf-Vbici)/a);
4035 [ # # ]: 0 : if
4036 : : (ve<=80.0)
4037 : : {
4038 : : {
4039 : 0 : double m00_exp(d00_exp0,ve)
4040 : : #if defined(_DERIVATE)
4041 : : #define d10_exp0 d00_exp0
4042 : : #endif
4043 : : #if defined(_DERIVATE)
4044 : 0 : ex1_Vs_ci=0.0;
4045 : 0 : ex1_Vci_ei=0.0;
4046 : 0 : ex1_Vbi_ei=0.0;
4047 : 0 : ex1_Vbi_ci=ve_Vbi_ci*d10_exp0;
4048 : 0 : ex1_Vtnode_GND=ve_Vtnode_GND*d10_exp0;
4049 : 0 : ex1_Vb_ci=ve_Vb_ci*d10_exp0;
4050 : : #endif
4051 : 0 : ex1=d00_exp0;
4052 : : }
4053 : : #if defined(_DERIVATE)
4054 : 0 : ee1_Vs_ci=0.0;
4055 : 0 : ee1_Vci_ei=0.0;
4056 : 0 : ee1_Vbi_ei=0.0;
4057 : 0 : ee1_Vbi_ci=ex1_Vbi_ci;
4058 : 0 : ee1_Vtnode_GND=ex1_Vtnode_GND;
4059 : 0 : ee1_Vb_ci=ex1_Vb_ci;
4060 : : #endif
4061 : 0 : ee1=(1.0+ex1);
4062 : : {
4063 : 0 : double m00_logE(d00_logE0,ee1)
4064 : : #if defined(_DERIVATE)
4065 : 0 : double m10_logE(d10_logE0,d00_logE0,ee1)
4066 : : #endif
4067 : : #if defined(_DERIVATE)
4068 : 0 : vj1_Vci_ei=0.0;
4069 : 0 : vj1_Vbi_ei=0.0;
4070 : 0 : vj1_Vs_ci=0.0;
4071 : 0 : vj1_Vbi_ci=(-((a_Vbi_ci*d00_logE0)+(a*ee1_Vbi_ci*d10_logE0)));
4072 : 0 : vj1_Vtnode_GND=(vf_Vtnode_GND-((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
4073 : 0 : vj1_Vb_ci=(-((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0)));
4074 : : #endif
4075 : 0 : vj1=(vf-(a*d00_logE0));
4076 : : }
4077 : : }
4078 : : else
4079 : : {
4080 : : #if defined(_DERIVATE)
4081 : 0 : vj1_Vci_ei=0.0;
4082 : 0 : vj1_Vbi_ei=0.0;
4083 : 0 : vj1_Vs_ci=0.0;
4084 : 0 : vj1_Vbi_ci=Vbici_Vbi_ci;
4085 : 0 : vj1_Vtnode_GND=0.0;
4086 : 0 : vj1_Vb_ci=0.0;
4087 : : #endif
4088 : 0 : vj1=Vbici;
4089 : : }
4090 : : #if defined(_DERIVATE)
4091 : 0 : a_Vci_ei=0.0;
4092 : 0 : a_Vbi_ei=0.0;
4093 : 0 : a_Vbi_ci=0.0;
4094 : 0 : a_Vb_ci=0.0;
4095 : 0 : a_Vtnode_GND=((0.1*vp_Vtnode_GND)+(4.0*VT_Vtnode_GND));
4096 : : #endif
4097 : 0 : a=((0.1*vp)+(4.0*VT));
4098 : : #if defined(_DERIVATE)
4099 : 0 : vr_Vci_ei=0.0;
4100 : 0 : vr_Vbi_ei=0.0;
4101 : 0 : vr_Vs_ci=0.0;
4102 : 0 : vr_Vbi_ci=((vj1_Vbi_ci*a-(vp+vj1)*a_Vbi_ci)/a/a);
4103 : 0 : vr_Vtnode_GND=(((vp_Vtnode_GND+vj1_Vtnode_GND)*a-(vp+vj1)*a_Vtnode_GND)/a/a);
4104 : 0 : vr_Vb_ci=((vj1_Vb_ci*a-(vp+vj1)*a_Vb_ci)/a/a);
4105 : : #endif
4106 : 0 : vr=((vp+vj1)/a);
4107 [ # # ]: 0 : if
4108 : : (vr<=80.0)
4109 : : {
4110 : : {
4111 : 0 : double m00_exp(d00_exp0,vr)
4112 : : #if defined(_DERIVATE)
4113 : : #define d10_exp0 d00_exp0
4114 : : #endif
4115 : : #if defined(_DERIVATE)
4116 : 0 : ex1_Vs_ci=0.0;
4117 : 0 : ex1_Vci_ei=0.0;
4118 : 0 : ex1_Vbi_ei=0.0;
4119 : 0 : ex1_Vbi_ci=vr_Vbi_ci*d10_exp0;
4120 : 0 : ex1_Vtnode_GND=vr_Vtnode_GND*d10_exp0;
4121 : 0 : ex1_Vb_ci=vr_Vb_ci*d10_exp0;
4122 : : #endif
4123 : 0 : ex1=d00_exp0;
4124 : : }
4125 : : #if defined(_DERIVATE)
4126 : 0 : ee1_Vs_ci=0.0;
4127 : 0 : ee1_Vci_ei=0.0;
4128 : 0 : ee1_Vbi_ei=0.0;
4129 : 0 : ee1_Vbi_ci=ex1_Vbi_ci;
4130 : 0 : ee1_Vtnode_GND=ex1_Vtnode_GND;
4131 : 0 : ee1_Vb_ci=ex1_Vb_ci;
4132 : : #endif
4133 : 0 : ee1=(1.0+ex1);
4134 : : {
4135 : 0 : double m00_logE(d00_logE0,ee1)
4136 : : #if defined(_DERIVATE)
4137 : 0 : double m10_logE(d10_logE0,d00_logE0,ee1)
4138 : : #endif
4139 : : #if defined(_DERIVATE)
4140 : 0 : vj2_Vci_ei=0.0;
4141 : 0 : vj2_Vbi_ei=0.0;
4142 : 0 : vj2_Vs_ci=0.0;
4143 : 0 : vj2_Vbi_ci=((a_Vbi_ci*d00_logE0)+(a*ee1_Vbi_ci*d10_logE0));
4144 : 0 : vj2_Vtnode_GND=((-vp_Vtnode_GND)+((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
4145 : 0 : vj2_Vb_ci=((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0));
4146 : : #endif
4147 : 0 : vj2=((-vp)+(a*d00_logE0));
4148 : : }
4149 : : }
4150 : : else
4151 : : {
4152 : : #if defined(_DERIVATE)
4153 : 0 : vj2_Vci_ei=0.0;
4154 : 0 : vj2_Vbi_ei=0.0;
4155 : 0 : vj2_Vs_ci=0.0;
4156 : 0 : vj2_Vbi_ci=vj1_Vbi_ci;
4157 : 0 : vj2_Vtnode_GND=vj1_Vtnode_GND;
4158 : 0 : vj2_Vb_ci=vj1_Vb_ci;
4159 : : #endif
4160 : 0 : vj2=vj1;
4161 : : }
4162 : : #if defined(_DERIVATE)
4163 : 0 : vj4_Vs_ci=0.0;
4164 : 0 : vj4_Vci_ei=0.0;
4165 : 0 : vj4_Vbi_ei=0.0;
4166 : 0 : vj4_Vbi_ci=(Vbici_Vbi_ci-vj1_Vbi_ci);
4167 : 0 : vj4_Vb_ci=(-vj1_Vb_ci);
4168 : 0 : vj4_Vtnode_GND=(-vj1_Vtnode_GND);
4169 : : #endif
4170 : 0 : vj4=(Vbici-vj1);
4171 : 0 : ez=(1.0-zci);
4172 : 0 : ezr=(1.0-zr);
4173 : : {
4174 : 0 : double m00_logE(d00_logE0,(1.0-(vj1/vdci_t)))
4175 : : #if defined(_DERIVATE)
4176 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(vj1/vdci_t)))
4177 : : #endif
4178 : : #if defined(_DERIVATE)
4179 : 0 : vdj1_Vci_ei=0.0;
4180 : 0 : vdj1_Vbi_ei=0.0;
4181 : 0 : vdj1_Vs_ci=0.0;
4182 : 0 : vdj1_Vbi_ci=(-(vj1_Vbi_ci/vdci_t))*d10_logE0;
4183 : 0 : vdj1_Vtnode_GND=(-((vj1_Vtnode_GND*vdci_t-vj1*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
4184 : 0 : vdj1_Vb_ci=(-(vj1_Vb_ci/vdci_t))*d10_logE0;
4185 : : #endif
4186 : 0 : vdj1=d00_logE0;
4187 : : }
4188 : : {
4189 : 0 : double m00_logE(d00_logE0,(1.0-(vj2/vdci_t)))
4190 : : #if defined(_DERIVATE)
4191 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(vj2/vdci_t)))
4192 : : #endif
4193 : : #if defined(_DERIVATE)
4194 : 0 : vdj2_Vci_ei=0.0;
4195 : 0 : vdj2_Vbi_ei=0.0;
4196 : 0 : vdj2_Vs_ci=0.0;
4197 : 0 : vdj2_Vbi_ci=(-(vj2_Vbi_ci/vdci_t))*d10_logE0;
4198 : 0 : vdj2_Vtnode_GND=(-((vj2_Vtnode_GND*vdci_t-vj2*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
4199 : 0 : vdj2_Vb_ci=(-(vj2_Vb_ci/vdci_t))*d10_logE0;
4200 : : #endif
4201 : 0 : vdj2=d00_logE0;
4202 : : }
4203 : : {
4204 : 0 : double m00_exp(d00_exp0,(vdj2*ez))
4205 : : #if defined(_DERIVATE)
4206 : : #define d10_exp0 d00_exp0
4207 : : #endif
4208 : : #if defined(_DERIVATE)
4209 : 0 : qj1_Vci_ei=0.0;
4210 : 0 : qj1_Vbi_ei=0.0;
4211 : 0 : qj1_Vs_ci=0.0;
4212 : 0 : qj1_Vbi_ci=((cT_cT0*(-vdj2_Vbi_ci*ez*d10_exp0))/ez);
4213 : 0 : qj1_Vtnode_GND=(((cT_cT0_Vtnode_GND*(1.0-d00_exp0))+(cT_cT0*(-vdj2_Vtnode_GND*ez*d10_exp0)))/ez);
4214 : 0 : qj1_Vb_ci=((cT_cT0*(-vdj2_Vb_ci*ez*d10_exp0))/ez);
4215 : : #endif
4216 : 0 : qj1=((cT_cT0*(1.0-d00_exp0))/ez);
4217 : : }
4218 : : {
4219 : 0 : double m00_exp(d00_exp0,(vdj1*ezr))
4220 : : #if defined(_DERIVATE)
4221 : : #define d10_exp0 d00_exp0
4222 : : #endif
4223 : : #if defined(_DERIVATE)
4224 : 0 : qj2_Vci_ei=0.0;
4225 : 0 : qj2_Vbi_ei=0.0;
4226 : 0 : qj2_Vs_ci=0.0;
4227 : 0 : qj2_Vbi_ci=((cr*(-vdj1_Vbi_ci*ezr*d10_exp0))/ezr);
4228 : 0 : qj2_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj1_Vtnode_GND*ezr*d10_exp0)))/ezr);
4229 : 0 : qj2_Vb_ci=((cr*(-vdj1_Vb_ci*ezr*d10_exp0))/ezr);
4230 : : #endif
4231 : 0 : qj2=((cr*(1.0-d00_exp0))/ezr);
4232 : : }
4233 : : {
4234 : 0 : double m00_exp(d00_exp0,(vdj2*ezr))
4235 : : #if defined(_DERIVATE)
4236 : : #define d10_exp0 d00_exp0
4237 : : #endif
4238 : : #if defined(_DERIVATE)
4239 : 0 : qj3_Vci_ei=0.0;
4240 : 0 : qj3_Vbi_ei=0.0;
4241 : 0 : qj3_Vs_ci=0.0;
4242 : 0 : qj3_Vbi_ci=((cr*(-vdj2_Vbi_ci*ezr*d10_exp0))/ezr);
4243 : 0 : qj3_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj2_Vtnode_GND*ezr*d10_exp0)))/ezr);
4244 : 0 : qj3_Vb_ci=((cr*(-vdj2_Vb_ci*ezr*d10_exp0))/ezr);
4245 : : #endif
4246 : 0 : qj3=((cr*(1.0-d00_exp0))/ezr);
4247 : : }
4248 : : #if defined(_DERIVATE)
4249 : 0 : qjcidc_Vbi_ei=0.0;
4250 : 0 : qjcidc_Vbi_ci=(((qj1_Vbi_ci+qj2_Vbi_ci)-qj3_Vbi_ci)*vdci_t+(cmax*vj4_Vbi_ci));
4251 : 0 : qjcidc_Vtnode_GND=(((((qj1_Vtnode_GND+qj2_Vtnode_GND)-qj3_Vtnode_GND)*vdci_t)+(((qj1+qj2)-qj3)*vdci_t_Vtnode_GND))+((cmax_Vtnode_GND*vj4)+(cmax*vj4_Vtnode_GND)));
4252 : 0 : qjcidc_Vb_ci=(((qj1_Vb_ci+qj2_Vb_ci)-qj3_Vb_ci)*vdci_t+(cmax*vj4_Vb_ci));
4253 : : #endif
4254 : 0 : qjcidc=((((qj1+qj2)-qj3)*vdci_t)+(cmax*vj4));
4255 : : }
4256 : : else
4257 : : {
4258 : : #if defined(_DERIVATE)
4259 : 0 : qjcidc_Vbi_ei=0.0;
4260 : 0 : qjcidc_Vbi_ci=0.0;
4261 : 0 : qjcidc_Vtnode_GND=0.0;
4262 : 0 : qjcidc_Vb_ci=0.0;
4263 : : #endif
4264 : 0 : qjcidc=0.0;
4265 : : }
4266 : : }
4267 : : else
4268 : : {
4269 [ # # ]: 0 : if
4270 : : (cT_cT0>0.0)
4271 : : {
4272 : : {
4273 : 0 : double m00_logE(d00_logE0,2.4)
4274 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zci))
4275 : : #if defined(_DERIVATE)
4276 : 0 : vf_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
4277 : : #endif
4278 : 0 : vf=(vdci_t*(1.0-d00_exp1));
4279 : : }
4280 : : #if defined(_DERIVATE)
4281 : 0 : xvf_Vs_ci=0.0;
4282 : 0 : xvf_Vbi_ei=0.0;
4283 : 0 : xvf_Vbi_ci=((-Vbici_Vbi_ci)/VT);
4284 : 0 : xvf_Vtnode_GND=((vf_Vtnode_GND*VT-(vf-Vbici)*VT_Vtnode_GND)/VT/VT);
4285 : 0 : xvf_Vb_ci=0.0;
4286 : : #endif
4287 : 0 : xvf=((vf-Vbici)/VT);
4288 : : {
4289 : 0 : double m00_sqrt(d00_sqrt0,((xvf*xvf)+1.921812))
4290 : : #if defined(_DERIVATE)
4291 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((xvf*xvf)+1.921812))
4292 : : #endif
4293 : : #if defined(_DERIVATE)
4294 : 0 : xvf2_Vs_ci=0.0;
4295 : 0 : xvf2_Vbi_ei=((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei))*d10_sqrt0;
4296 : 0 : xvf2_Vbi_ci=((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))*d10_sqrt0;
4297 : 0 : xvf2_Vtnode_GND=((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND))*d10_sqrt0;
4298 : 0 : xvf2_Vb_ci=((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci))*d10_sqrt0;
4299 : : #endif
4300 : 0 : xvf2=d00_sqrt0;
4301 : : }
4302 : : #if defined(_DERIVATE)
4303 : 0 : v_j_Vs_ci=0.0;
4304 : 0 : v_j_Vbi_ei=(-(VT*(xvf_Vbi_ei+xvf2_Vbi_ei))*0.5);
4305 : 0 : v_j_Vbi_ci=(-(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.5);
4306 : 0 : v_j_Vtnode_GND=(vf_Vtnode_GND-((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND)))*0.5);
4307 : 0 : v_j_Vb_ci=(-(VT*(xvf_Vb_ci+xvf2_Vb_ci))*0.5);
4308 : : #endif
4309 : 0 : v_j=(vf-((VT*(xvf+xvf2))*0.5));
4310 : : #if defined(_DERIVATE)
4311 : 0 : x_Vci_ei=0.0;
4312 : 0 : x_Vbi_ei=0.0;
4313 : 0 : x_Vbi_ci=0.0;
4314 : 0 : x_Vtnode_GND=0.0;
4315 : 0 : x_Vb_ci=0.0;
4316 : : #endif
4317 : 0 : x=(1.0-zci);
4318 : : {
4319 : 0 : double m00_logE(d00_logE0,(1.0-(v_j/vdci_t)))
4320 : 0 : double m00_exp(d00_exp1,(x*d00_logE0))
4321 : : #if defined(_DERIVATE)
4322 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(v_j/vdci_t)))
4323 : : #define d10_exp1 d00_exp1
4324 : : #endif
4325 : : #if defined(_DERIVATE)
4326 : 0 : y_Vs_ci=0.0;
4327 : 0 : y_Vci_ei=0.0;
4328 : 0 : y_Vbi_ei=(-((x_Vbi_ei*d00_logE0)+(x*(-(v_j_Vbi_ei/vdci_t))*d10_logE0))*d10_exp1);
4329 : 0 : y_Vbi_ci=(-((x_Vbi_ci*d00_logE0)+(x*(-(v_j_Vbi_ci/vdci_t))*d10_logE0))*d10_exp1);
4330 : 0 : y_Vtnode_GND=(-((x_Vtnode_GND*d00_logE0)+(x*(-((v_j_Vtnode_GND*vdci_t-v_j*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0))*d10_exp1);
4331 : 0 : y_Vb_ci=(-((x_Vb_ci*d00_logE0)+(x*(-(v_j_Vb_ci/vdci_t))*d10_logE0))*d10_exp1);
4332 : : #endif
4333 : 0 : y=(1.0-d00_exp1);
4334 : : }
4335 : : #if defined(_DERIVATE)
4336 : 0 : qjcidc_Vbi_ei=(((((cT_cT0*vdci_t)*y_Vbi_ei)*x-((cT_cT0*vdci_t)*y)*x_Vbi_ei)/x/x)+((2.4*cT_cT0)*(-v_j_Vbi_ei)));
4337 : 0 : qjcidc_Vbi_ci=(((((cT_cT0*vdci_t)*y_Vbi_ci)*x-((cT_cT0*vdci_t)*y)*x_Vbi_ci)/x/x)+((2.4*cT_cT0)*(Vbici_Vbi_ci-v_j_Vbi_ci)));
4338 : 0 : qjcidc_Vtnode_GND=(((((((cT_cT0_Vtnode_GND*vdci_t)+(cT_cT0*vdci_t_Vtnode_GND))*y)+((cT_cT0*vdci_t)*y_Vtnode_GND))*x-((cT_cT0*vdci_t)*y)*x_Vtnode_GND)/x/x)+(((2.4*cT_cT0_Vtnode_GND)*(Vbici-v_j))+((2.4*cT_cT0)*(-v_j_Vtnode_GND))));
4339 : 0 : qjcidc_Vb_ci=(((((cT_cT0*vdci_t)*y_Vb_ci)*x-((cT_cT0*vdci_t)*y)*x_Vb_ci)/x/x)+((2.4*cT_cT0)*(-v_j_Vb_ci)));
4340 : : #endif
4341 : 0 : qjcidc=((((cT_cT0*vdci_t)*y)/x)+((2.4*cT_cT0)*(Vbici-v_j)));
4342 : : }
4343 : : else
4344 : : {
4345 : : #if defined(_DERIVATE)
4346 : 0 : qjcidc_Vbi_ei=0.0;
4347 : 0 : qjcidc_Vbi_ci=0.0;
4348 : 0 : qjcidc_Vtnode_GND=0.0;
4349 : 0 : qjcidc_Vb_ci=0.0;
4350 : : #endif
4351 : 0 : qjcidc=0.00;
4352 : : }
4353 : : }
4354 : : {
4355 : 0 : double m00_logE(d00_logE0,(vdci_t/vdci))
4356 : 0 : double m00_exp(d00_exp1,((1-zci)*d00_logE0))
4357 : : #if defined(_DERIVATE)
4358 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdci_t/vdci))
4359 : : #define d10_exp1 d00_exp1
4360 : : #endif
4361 : : #if defined(_DERIVATE)
4362 : 0 : Dfic_Vtnode_GND=((deltc*(-((1-zci)*(vdci_t_Vtnode_GND/vdci)*d10_logE0)*d10_exp1))/(1-zci));
4363 : : #endif
4364 : 0 : Dfic=((deltc*(1-d00_exp1))/(1-zci));
4365 : : }
4366 : : #if defined(_DERIVATE)
4367 : 0 : Gjci_Vtnode_GND=(Dfic_Vtnode_GND+(qjcidc_Vtnode_GND/vdci));
4368 : 0 : Gjci_Vbi_ei=(qjcidc_Vbi_ei/vdci);
4369 : 0 : Gjci_Vbi_ci=(qjcidc_Vbi_ci/vdci);
4370 : 0 : Gjci_Vb_ci=(qjcidc_Vb_ci/vdci);
4371 : : #endif
4372 : 0 : Gjci=(Dfic+(qjcidc/vdci));
4373 : : #if defined(_DERIVATE)
4374 : 0 : qj_2_Vtnode_GND=(((Gjci_Vtnode_GND*vef_t-Gjci*vef_t_Vtnode_GND)/vef_t/vef_t)+((Gjei_Vtnode_GND*ver_t-Gjei*ver_t_Vtnode_GND)/ver_t/ver_t));
4375 : 0 : qj_2_Vbi_ei=((Gjci_Vbi_ei/vef_t)+(Gjei_Vbi_ei/ver_t));
4376 : 0 : qj_2_Vbi_ci=((Gjci_Vbi_ci/vef_t)+(Gjei_Vbi_ci/ver_t));
4377 : 0 : qj_2_Vb_ci=((Gjci_Vb_ci/vef_t)+(Gjei_Vb_ci/ver_t));
4378 : : #endif
4379 : 0 : qj_2=((1+(Gjci/vef_t))+(Gjei/ver_t));
4380 : : #if defined(_DERIVATE)
4381 : 0 : b_q_Vtnode_GND=(20*qj_2_Vtnode_GND);
4382 : 0 : b_q_Vbi_ei=(20*qj_2_Vbi_ei);
4383 : 0 : b_q_Vbi_ci=(20*qj_2_Vbi_ci);
4384 : 0 : b_q_Vb_ci=(20*qj_2_Vb_ci);
4385 : : #endif
4386 : 0 : b_q=((20*qj_2)-1);
4387 : : {
4388 : 0 : double m00_sqrt(d00_sqrt0,((b_q*b_q)+1.921812))
4389 : : #if defined(_DERIVATE)
4390 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((b_q*b_q)+1.921812))
4391 : : #endif
4392 : : #if defined(_DERIVATE)
4393 : 0 : qj_2_Vtnode_GND=(0.025*((b_q_Vtnode_GND+((b_q_Vtnode_GND*b_q)+(b_q*b_q_Vtnode_GND))*d10_sqrt0)/2));
4394 : 0 : qj_2_Vbi_ei=(0.025*((b_q_Vbi_ei+((b_q_Vbi_ei*b_q)+(b_q*b_q_Vbi_ei))*d10_sqrt0)/2));
4395 : 0 : qj_2_Vbi_ci=(0.025*((b_q_Vbi_ci+((b_q_Vbi_ci*b_q)+(b_q*b_q_Vbi_ci))*d10_sqrt0)/2));
4396 : 0 : qj_2_Vb_ci=(0.025*((b_q_Vb_ci+((b_q_Vb_ci*b_q)+(b_q*b_q_Vb_ci))*d10_sqrt0)/2));
4397 : : #endif
4398 : 0 : qj_2=(0.025*(1+((b_q+d00_sqrt0)/2)));
4399 : : }
4400 : : #if defined(_DERIVATE)
4401 : 0 : arg1_Vbi_ei=(Vbiei_Vbi_ei/(mcf*VT));
4402 : 0 : arg1_Vtnode_GND=(-Vbiei*(mcf*VT_Vtnode_GND)/(mcf*VT)/(mcf*VT));
4403 : : #endif
4404 : 0 : arg1=(Vbiei/(mcf*VT));
4405 [ # # ]: 0 : if
4406 : : (arg1>80)
4407 : : {
4408 : : #if defined(_DERIVATE)
4409 : 0 : le1_Vbi_ei=arg1_Vbi_ei;
4410 : 0 : le1_Vtnode_GND=arg1_Vtnode_GND;
4411 : : #endif
4412 : 0 : le1=(1+(arg1-80));
4413 : : #if defined(_DERIVATE)
4414 : 0 : arg1_Vbi_ei=0.0;
4415 : 0 : arg1_Vtnode_GND=0.0;
4416 : : #endif
4417 : 0 : arg1=80;
4418 : : }
4419 : : else
4420 : : {
4421 : : #if defined(_DERIVATE)
4422 : 0 : le1_Vbi_ei=0.0;
4423 : 0 : le1_Vtnode_GND=0.0;
4424 : : #endif
4425 : 0 : le1=1;
4426 : : }
4427 : : {
4428 [ # # ]: 0 : double m00_limexp(d00_limexp0,arg1)
4429 : : #if defined(_DERIVATE)
4430 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,arg1)
4431 : : #endif
4432 : : #if defined(_DERIVATE)
4433 : 0 : le1_Vbi_ei=((le1_Vbi_ei*d00_limexp0)+(le1*arg1_Vbi_ei*d10_limexp0));
4434 : 0 : le1_Vtnode_GND=((le1_Vtnode_GND*d00_limexp0)+(le1*arg1_Vtnode_GND*d10_limexp0));
4435 : : #endif
4436 : 0 : le1=(le1*d00_limexp0);
4437 : : }
4438 : : #if defined(_DERIVATE)
4439 : 0 : itfi_Vtnode_GND=((is_t_Vtnode_GND*le1)+(is_t*le1_Vtnode_GND));
4440 : 0 : itfi_Vbi_ei=(is_t*le1_Vbi_ei);
4441 : : #endif
4442 : 0 : itfi=(is_t*le1);
4443 : : #if defined(_DERIVATE)
4444 : 0 : arg2_Vbi_ci=(Vbici_Vbi_ci/(mcr*VT));
4445 : 0 : arg2_Vtnode_GND=(-Vbici*(mcr*VT_Vtnode_GND)/(mcr*VT)/(mcr*VT));
4446 : : #endif
4447 : 0 : arg2=(Vbici/(mcr*VT));
4448 [ # # ]: 0 : if
4449 : : (arg2>80)
4450 : : {
4451 : : #if defined(_DERIVATE)
4452 : 0 : le2_Vbi_ci=arg2_Vbi_ci;
4453 : 0 : le2_Vtnode_GND=arg2_Vtnode_GND;
4454 : : #endif
4455 : 0 : le2=(1+(arg2-80));
4456 : : #if defined(_DERIVATE)
4457 : 0 : arg2_Vbi_ci=0.0;
4458 : 0 : arg2_Vtnode_GND=0.0;
4459 : : #endif
4460 : 0 : arg2=80;
4461 : : }
4462 : : else
4463 : : {
4464 : : #if defined(_DERIVATE)
4465 : 0 : le2_Vbi_ci=0.0;
4466 : 0 : le2_Vtnode_GND=0.0;
4467 : : #endif
4468 : 0 : le2=1;
4469 : : }
4470 : : {
4471 [ # # ]: 0 : double m00_limexp(d00_limexp0,arg2)
4472 : : #if defined(_DERIVATE)
4473 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,arg2)
4474 : : #endif
4475 : : #if defined(_DERIVATE)
4476 : 0 : le2_Vbi_ci=((le2_Vbi_ci*d00_limexp0)+(le2*arg2_Vbi_ci*d10_limexp0));
4477 : 0 : le2_Vtnode_GND=((le2_Vtnode_GND*d00_limexp0)+(le2*arg2_Vtnode_GND*d10_limexp0));
4478 : : #endif
4479 : 0 : le2=(le2*d00_limexp0);
4480 : : }
4481 : : #if defined(_DERIVATE)
4482 : 0 : itri_Vtnode_GND=((is_t_Vtnode_GND*le2)+(is_t*le2_Vtnode_GND));
4483 : 0 : itri_Vbi_ci=(is_t*le2_Vbi_ci);
4484 : : #endif
4485 : 0 : itri=(is_t*le2);
4486 [ # # ]: 0 : if
4487 : : (fiqf==1)
4488 : : {
4489 : : #if defined(_DERIVATE)
4490 : 0 : denom_iqf_Vtnode_GND=(fiqf*((tf0_Vtnode_GND*t0_t-tf0*t0_t_Vtnode_GND)/t0_t/t0_t));
4491 : 0 : denom_iqf_Vbi_ci=(fiqf*(tf0_Vbi_ci/t0_t));
4492 : 0 : denom_iqf_Vb_ci=(fiqf*(tf0_Vb_ci/t0_t));
4493 : : #endif
4494 : 0 : denom_iqf=(fiqf*((tf0/t0_t)-1));
4495 : : #if defined(_DERIVATE)
4496 : 0 : ickf_Vtnode_GND=((iqf_t_Vtnode_GND*(1+denom_iqf)-iqf_t*denom_iqf_Vtnode_GND)/(1+denom_iqf)/(1+denom_iqf));
4497 : 0 : ickf_Vbi_ci=(-iqf_t*denom_iqf_Vbi_ci/(1+denom_iqf)/(1+denom_iqf));
4498 : 0 : ickf_Vb_ci=(-iqf_t*denom_iqf_Vb_ci/(1+denom_iqf)/(1+denom_iqf));
4499 : : #endif
4500 : 0 : ickf=(iqf_t/(1+denom_iqf));
4501 : : }
4502 : : else
4503 : : {
4504 : : #if defined(_DERIVATE)
4505 : 0 : ickf_Vtnode_GND=iqf_t_Vtnode_GND;
4506 : 0 : ickf_Vbi_ci=0.0;
4507 : 0 : ickf_Vb_ci=0.0;
4508 : : #endif
4509 : 0 : ickf=iqf_t;
4510 : : }
4511 : : #if defined(_DERIVATE)
4512 : 0 : ickr_Vtnode_GND=iqr_t_Vtnode_GND;
4513 : : #endif
4514 : 0 : ickr=iqr_t;
4515 : : #if defined(_DERIVATE)
4516 : 0 : vc_Vci_ei=Vciei_Vci_ei;
4517 : 0 : vc_Vtnode_GND=(-vces_t_Vtnode_GND);
4518 : : #endif
4519 : 0 : vc=(Vciei-vces_t);
4520 : : #if defined(_DERIVATE)
4521 : 0 : uvc_Vci_ei=(vc_Vci_ei/VT);
4522 : 0 : uvc_Vtnode_GND=((vc_Vtnode_GND*VT-vc*VT_Vtnode_GND)/VT/VT);
4523 : : #endif
4524 : 0 : uvc=((vc/VT)-1);
4525 : : {
4526 : 0 : double m00_sqrt(d00_sqrt0,((uvc*uvc)+1.921812))
4527 : : #if defined(_DERIVATE)
4528 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((uvc*uvc)+1.921812))
4529 : : #endif
4530 : : #if defined(_DERIVATE)
4531 : 0 : vceff_Vtnode_GND=((VT_Vtnode_GND*(1+(0.5*(uvc+d00_sqrt0))))+(VT*(0.5*(uvc_Vtnode_GND+((uvc_Vtnode_GND*uvc)+(uvc*uvc_Vtnode_GND))*d10_sqrt0))));
4532 : 0 : vceff_Vci_ei=(VT*(0.5*(uvc_Vci_ei+((uvc_Vci_ei*uvc)+(uvc*uvc_Vci_ei))*d10_sqrt0)));
4533 : : #endif
4534 : 0 : vceff=(VT*(1+(0.5*(uvc+d00_sqrt0))));
4535 : : }
4536 : : #if defined(_DERIVATE)
4537 : 0 : x_Vci_ei=(vceff_Vci_ei/vpt);
4538 : 0 : x_Vbi_ei=0.0;
4539 : 0 : x_Vbi_ci=0.0;
4540 : 0 : x_Vtnode_GND=((vceff_Vtnode_GND-vlim_t_Vtnode_GND)/vpt);
4541 : 0 : x_Vb_ci=0.0;
4542 : : #endif
4543 : 0 : x=((vceff-vlim_t)/vpt);
4544 : : {
4545 : 0 : double m00_sqrt(d00_sqrt0,((x*x)+1e-3))
4546 : 0 : double m00_sqrt(d00_sqrt1,(1+(((vceff*vceff)/vlim_t)/vlim_t)))
4547 : : #if defined(_DERIVATE)
4548 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((x*x)+1e-3))
4549 : 0 : double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(((vceff*vceff)/vlim_t)/vlim_t)))
4550 : : #endif
4551 : : #if defined(_DERIVATE)
4552 : 0 : ick_Vtnode_GND=((((((vceff_Vtnode_GND*(1+(0.5*(x+d00_sqrt0))))+(vceff*(0.5*(x_Vtnode_GND+((x_Vtnode_GND*x)+(x*x_Vtnode_GND))*d10_sqrt0))))*rci0_t-(vceff*(1+(0.5*(x+d00_sqrt0))))*rci0_t_Vtnode_GND)/rci0_t/rci0_t)*d00_sqrt1-((vceff*(1+(0.5*(x+d00_sqrt0))))/rci0_t)*((((((vceff_Vtnode_GND*vceff)+(vceff*vceff_Vtnode_GND))*vlim_t-(vceff*vceff)*vlim_t_Vtnode_GND)/vlim_t/vlim_t)*vlim_t-((vceff*vceff)/vlim_t)*vlim_t_Vtnode_GND)/vlim_t/vlim_t)*d10_sqrt1)/d00_sqrt1/d00_sqrt1);
4553 : 0 : ick_Vci_ei=(((((vceff_Vci_ei*(1+(0.5*(x+d00_sqrt0))))+(vceff*(0.5*(x_Vci_ei+((x_Vci_ei*x)+(x*x_Vci_ei))*d10_sqrt0))))/rci0_t)*d00_sqrt1-((vceff*(1+(0.5*(x+d00_sqrt0))))/rci0_t)*((((vceff_Vci_ei*vceff)+(vceff*vceff_Vci_ei))/vlim_t)/vlim_t)*d10_sqrt1)/d00_sqrt1/d00_sqrt1);
4554 : 0 : ick_Vbi_ei=(((vceff*(0.5*(x_Vbi_ei+((x_Vbi_ei*x)+(x*x_Vbi_ei))*d10_sqrt0)))/rci0_t)/d00_sqrt1);
4555 : 0 : ick_Vbi_ci=(((vceff*(0.5*(x_Vbi_ci+((x_Vbi_ci*x)+(x*x_Vbi_ci))*d10_sqrt0)))/rci0_t)/d00_sqrt1);
4556 : 0 : ick_Vb_ci=(((vceff*(0.5*(x_Vb_ci+((x_Vb_ci*x)+(x*x_Vb_ci))*d10_sqrt0)))/rci0_t)/d00_sqrt1);
4557 : : #endif
4558 : 0 : ick=(((vceff*(1+(0.5*(x+d00_sqrt0))))/rci0_t)/d00_sqrt1);
4559 : : }
4560 [ # # ]: 0 : if
4561 : : (iqfe!=0)
4562 : : {
4563 : : {
4564 : 0 : double m00_logE(d00_logE0,((itfi*(itfi/ick))/iqfe_t))
4565 : 0 : double m00_exp(d00_exp1,(0.6666*d00_logE0))
4566 : : #if defined(_DERIVATE)
4567 : 0 : double m10_logE(d10_logE0,d00_logE0,((itfi*(itfi/ick))/iqfe_t))
4568 : : #define d10_exp1 d00_exp1
4569 : : #endif
4570 : : #if defined(_DERIVATE)
4571 : 0 : qmE_Vtnode_GND=(0.6666*((((itfi_Vtnode_GND*(itfi/ick))+(itfi*((itfi_Vtnode_GND*ick-itfi*ick_Vtnode_GND)/ick/ick)))*iqfe_t-(itfi*(itfi/ick))*iqfe_t_Vtnode_GND)/iqfe_t/iqfe_t)*d10_logE0)*d10_exp1;
4572 : 0 : qmE_Vbi_ei=(0.6666*(((itfi_Vbi_ei*(itfi/ick))+(itfi*((itfi_Vbi_ei*ick-itfi*ick_Vbi_ei)/ick/ick)))/iqfe_t)*d10_logE0)*d10_exp1;
4573 : 0 : qmE_Vci_ei=(0.6666*((itfi*(-itfi*ick_Vci_ei/ick/ick))/iqfe_t)*d10_logE0)*d10_exp1;
4574 : 0 : qmE_Vbi_ci=(0.6666*((itfi*(-itfi*ick_Vbi_ci/ick/ick))/iqfe_t)*d10_logE0)*d10_exp1;
4575 : 0 : qmE_Vb_ci=(0.6666*((itfi*(-itfi*ick_Vb_ci/ick/ick))/iqfe_t)*d10_logE0)*d10_exp1;
4576 : : #endif
4577 : 0 : qmE=d00_exp1;
4578 : : }
4579 : : }
4580 : : else
4581 : : {
4582 : : #if defined(_DERIVATE)
4583 : 0 : qmE_Vtnode_GND=0.0;
4584 : 0 : qmE_Vbi_ei=0.0;
4585 : 0 : qmE_Vci_ei=0.0;
4586 : 0 : qmE_Vbi_ci=0.0;
4587 : 0 : qmE_Vb_ci=0.0;
4588 : : #endif
4589 : 0 : qmE=0.0;
4590 : : }
4591 : : #if defined(_DERIVATE)
4592 : 0 : qm0_Vtnode_GND=(((itfi_Vtnode_GND*ickf-itfi*ickf_Vtnode_GND)/ickf/ickf)+((itri_Vtnode_GND*ickr-itri*ickr_Vtnode_GND)/ickr/ickr));
4593 : 0 : qm0_Vbi_ei=(itfi_Vbi_ei/ickf);
4594 : 0 : qm0_Vbi_ci=((-itfi*ickf_Vbi_ci/ickf/ickf)+(itri_Vbi_ci/ickr));
4595 : 0 : qm0_Vb_ci=(-itfi*ickf_Vb_ci/ickf/ickf);
4596 : : #endif
4597 : 0 : qm0=((itfi/ickf)+(itri/ickr));
4598 : : #if defined(_DERIVATE)
4599 : 0 : qmB_Vtnode_GND=((itfi_Vtnode_GND*iqfh_t-itfi*iqfh_t_Vtnode_GND)/iqfh_t/iqfh_t);
4600 : 0 : qmB_Vbi_ei=(itfi_Vbi_ei/iqfh_t);
4601 : : #endif
4602 : 0 : qmB=(itfi/iqfh_t);
4603 : : #if defined(_DERIVATE)
4604 : 0 : qml_Vtnode_GND=(qm0_Vtnode_GND+qmE_Vtnode_GND);
4605 : 0 : qml_Vbi_ei=(qm0_Vbi_ei+qmE_Vbi_ei);
4606 : 0 : qml_Vbi_ci=(qm0_Vbi_ci+qmE_Vbi_ci);
4607 : 0 : qml_Vb_ci=(qm0_Vb_ci+qmE_Vb_ci);
4608 : 0 : qml_Vci_ei=qmE_Vci_ei;
4609 : : #endif
4610 : 0 : qml=(qm0+qmE);
4611 : : #if defined(_DERIVATE)
4612 : 0 : qmh_Vtnode_GND=(qml_Vtnode_GND+qmB_Vtnode_GND);
4613 : 0 : qmh_Vbi_ei=(qml_Vbi_ei+qmB_Vbi_ei);
4614 : 0 : qmh_Vbi_ci=qml_Vbi_ci;
4615 : 0 : qmh_Vb_ci=qml_Vb_ci;
4616 : 0 : qmh_Vci_ei=qml_Vci_ei;
4617 : : #endif
4618 : 0 : qmh=(qml+qmB);
4619 : : {
4620 : 0 : double m00_sqrt(d00_sqrt0,((qj_2*qj_2)+qml))
4621 : : #if defined(_DERIVATE)
4622 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((qj_2*qj_2)+qml))
4623 : : #endif
4624 : : #if defined(_DERIVATE)
4625 : 0 : qpt_l_Vtnode_GND=(qj_2_Vtnode_GND+(((qj_2_Vtnode_GND*qj_2)+(qj_2*qj_2_Vtnode_GND))+qml_Vtnode_GND)*d10_sqrt0);
4626 : 0 : qpt_l_Vbi_ei=(qj_2_Vbi_ei+(((qj_2_Vbi_ei*qj_2)+(qj_2*qj_2_Vbi_ei))+qml_Vbi_ei)*d10_sqrt0);
4627 : 0 : qpt_l_Vbi_ci=(qj_2_Vbi_ci+(((qj_2_Vbi_ci*qj_2)+(qj_2*qj_2_Vbi_ci))+qml_Vbi_ci)*d10_sqrt0);
4628 : 0 : qpt_l_Vb_ci=(qj_2_Vb_ci+(((qj_2_Vb_ci*qj_2)+(qj_2*qj_2_Vb_ci))+qml_Vb_ci)*d10_sqrt0);
4629 : 0 : qpt_l_Vci_ei=qml_Vci_ei*d10_sqrt0;
4630 : : #endif
4631 : 0 : qpt_l=(qj_2+d00_sqrt0);
4632 : : }
4633 : : {
4634 : 0 : double m00_sqrt(d00_sqrt0,((qj_2*qj_2)+qmh))
4635 : : #if defined(_DERIVATE)
4636 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((qj_2*qj_2)+qmh))
4637 : : #endif
4638 : : #if defined(_DERIVATE)
4639 : 0 : qpt_h_Vtnode_GND=(qj_2_Vtnode_GND+(((qj_2_Vtnode_GND*qj_2)+(qj_2*qj_2_Vtnode_GND))+qmh_Vtnode_GND)*d10_sqrt0);
4640 : 0 : qpt_h_Vbi_ei=(qj_2_Vbi_ei+(((qj_2_Vbi_ei*qj_2)+(qj_2*qj_2_Vbi_ei))+qmh_Vbi_ei)*d10_sqrt0);
4641 : 0 : qpt_h_Vbi_ci=(qj_2_Vbi_ci+(((qj_2_Vbi_ci*qj_2)+(qj_2*qj_2_Vbi_ci))+qmh_Vbi_ci)*d10_sqrt0);
4642 : 0 : qpt_h_Vb_ci=(qj_2_Vb_ci+(((qj_2_Vb_ci*qj_2)+(qj_2*qj_2_Vb_ci))+qmh_Vb_ci)*d10_sqrt0);
4643 : 0 : qpt_h_Vci_ei=qmh_Vci_ei*d10_sqrt0;
4644 : : #endif
4645 : 0 : qpt_h=(qj_2+d00_sqrt0);
4646 : : }
4647 : : #if defined(_DERIVATE)
4648 : 0 : a1_Vtnode_GND=(-(((((ick_Vtnode_GND/(1+ahq))*itfi-(ick/(1+ahq))*itfi_Vtnode_GND)/itfi/itfi)*qpt_l)+(((ick/(1+ahq))/itfi)*qpt_l_Vtnode_GND)));
4649 : 0 : a1_Vci_ei=(-((((ick_Vci_ei/(1+ahq))/itfi)*qpt_l)+(((ick/(1+ahq))/itfi)*qpt_l_Vci_ei)));
4650 : 0 : a1_Vbi_ei=(-(((((ick_Vbi_ei/(1+ahq))*itfi-(ick/(1+ahq))*itfi_Vbi_ei)/itfi/itfi)*qpt_l)+(((ick/(1+ahq))/itfi)*qpt_l_Vbi_ei)));
4651 : 0 : a1_Vbi_ci=(-((((ick_Vbi_ci/(1+ahq))/itfi)*qpt_l)+(((ick/(1+ahq))/itfi)*qpt_l_Vbi_ci)));
4652 : 0 : a1_Vb_ci=(-((((ick_Vb_ci/(1+ahq))/itfi)*qpt_l)+(((ick/(1+ahq))/itfi)*qpt_l_Vb_ci)));
4653 : : #endif
4654 : 0 : a1=(1-(((ick/(1+ahq))/itfi)*qpt_l));
4655 : : #if defined(_DERIVATE)
4656 : 0 : a2_Vtnode_GND=(((((ick_Vtnode_GND/(1+ahq))*itfi-(ick/(1+ahq))*itfi_Vtnode_GND)/itfi/itfi)*(qpt_h-qpt_l))+(((ick/(1+ahq))/itfi)*(qpt_h_Vtnode_GND-qpt_l_Vtnode_GND)));
4657 : 0 : a2_Vci_ei=((((ick_Vci_ei/(1+ahq))/itfi)*(qpt_h-qpt_l))+(((ick/(1+ahq))/itfi)*(qpt_h_Vci_ei-qpt_l_Vci_ei)));
4658 : 0 : a2_Vbi_ei=(((((ick_Vbi_ei/(1+ahq))*itfi-(ick/(1+ahq))*itfi_Vbi_ei)/itfi/itfi)*(qpt_h-qpt_l))+(((ick/(1+ahq))/itfi)*(qpt_h_Vbi_ei-qpt_l_Vbi_ei)));
4659 : 0 : a2_Vbi_ci=((((ick_Vbi_ci/(1+ahq))/itfi)*(qpt_h-qpt_l))+(((ick/(1+ahq))/itfi)*(qpt_h_Vbi_ci-qpt_l_Vbi_ci)));
4660 : 0 : a2_Vb_ci=((((ick_Vb_ci/(1+ahq))/itfi)*(qpt_h-qpt_l))+(((ick/(1+ahq))/itfi)*(qpt_h_Vb_ci-qpt_l_Vb_ci)));
4661 : : #endif
4662 : 0 : a2=(1+(((ick/(1+ahq))/itfi)*(qpt_h-qpt_l)));
4663 : : #if defined(_DERIVATE)
4664 : 0 : aa_Vci_ei=((a1_Vci_ei*a2-a1*a2_Vci_ei)/a2/a2);
4665 : 0 : aa_Vbi_ei=((a1_Vbi_ei*a2-a1*a2_Vbi_ei)/a2/a2);
4666 : 0 : aa_Vbi_ci=((a1_Vbi_ci*a2-a1*a2_Vbi_ci)/a2/a2);
4667 : 0 : aa_Vb_ci=((a1_Vb_ci*a2-a1*a2_Vb_ci)/a2/a2);
4668 : 0 : aa_Vtnode_GND=((a1_Vtnode_GND*a2-a1*a2_Vtnode_GND)/a2/a2);
4669 : : #endif
4670 : 0 : aa=(a1/a2);
4671 : : {
4672 : 0 : double m00_sqrt(d00_sqrt0,((aa*aa)+0.01))
4673 : 0 : double m00_sqrt(d00_sqrt1,(1+0.01))
4674 : : #if defined(_DERIVATE)
4675 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((aa*aa)+0.01))
4676 : : #endif
4677 : : #if defined(_DERIVATE)
4678 : 0 : w_Vci_ei=((((aa_Vci_ei*aa)+(aa*aa_Vci_ei))*d10_sqrt0+aa_Vci_ei)/(1+d00_sqrt1));
4679 : 0 : w_Vbi_ei=((((aa_Vbi_ei*aa)+(aa*aa_Vbi_ei))*d10_sqrt0+aa_Vbi_ei)/(1+d00_sqrt1));
4680 : 0 : w_Vbi_ci=((((aa_Vbi_ci*aa)+(aa*aa_Vbi_ci))*d10_sqrt0+aa_Vbi_ci)/(1+d00_sqrt1));
4681 : 0 : w_Vb_ci=((((aa_Vb_ci*aa)+(aa*aa_Vb_ci))*d10_sqrt0+aa_Vb_ci)/(1+d00_sqrt1));
4682 : 0 : w_Vtnode_GND=((((aa_Vtnode_GND*aa)+(aa*aa_Vtnode_GND))*d10_sqrt0+aa_Vtnode_GND)/(1+d00_sqrt1));
4683 : : #endif
4684 : 0 : w=((d00_sqrt0+aa)/(1+d00_sqrt1));
4685 : : }
4686 : : #if defined(_DERIVATE)
4687 : 0 : qmBw_Vtnode_GND=((((qmB_Vtnode_GND*w)+(qmB*w_Vtnode_GND))*w)+((qmB*w)*w_Vtnode_GND));
4688 : 0 : qmBw_Vbi_ei=((((qmB_Vbi_ei*w)+(qmB*w_Vbi_ei))*w)+((qmB*w)*w_Vbi_ei));
4689 : 0 : qmBw_Vci_ei=(((qmB*w_Vci_ei)*w)+((qmB*w)*w_Vci_ei));
4690 : 0 : qmBw_Vbi_ci=(((qmB*w_Vbi_ci)*w)+((qmB*w)*w_Vbi_ci));
4691 : 0 : qmBw_Vb_ci=(((qmB*w_Vb_ci)*w)+((qmB*w)*w_Vb_ci));
4692 : : #endif
4693 : 0 : qmBw=((qmB*w)*w);
4694 : : #if defined(_DERIVATE)
4695 : 0 : qm_Vtnode_GND=(qml_Vtnode_GND+qmBw_Vtnode_GND);
4696 : 0 : qm_Vbi_ei=(qml_Vbi_ei+qmBw_Vbi_ei);
4697 : 0 : qm_Vbi_ci=(qml_Vbi_ci+qmBw_Vbi_ci);
4698 : 0 : qm_Vb_ci=(qml_Vb_ci+qmBw_Vb_ci);
4699 : 0 : qm_Vci_ei=(qml_Vci_ei+qmBw_Vci_ei);
4700 : : #endif
4701 : 0 : qm=(qml+qmBw);
4702 : : {
4703 : 0 : double m00_sqrt(d00_sqrt0,((qj_2*qj_2)+qm))
4704 : : #if defined(_DERIVATE)
4705 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((qj_2*qj_2)+qm))
4706 : : #endif
4707 : : #if defined(_DERIVATE)
4708 : 0 : qpt_Vtnode_GND=(qj_2_Vtnode_GND+(((qj_2_Vtnode_GND*qj_2)+(qj_2*qj_2_Vtnode_GND))+qm_Vtnode_GND)*d10_sqrt0);
4709 : 0 : qpt_Vbi_ei=(qj_2_Vbi_ei+(((qj_2_Vbi_ei*qj_2)+(qj_2*qj_2_Vbi_ei))+qm_Vbi_ei)*d10_sqrt0);
4710 : 0 : qpt_Vbi_ci=(qj_2_Vbi_ci+(((qj_2_Vbi_ci*qj_2)+(qj_2*qj_2_Vbi_ci))+qm_Vbi_ci)*d10_sqrt0);
4711 : 0 : qpt_Vb_ci=(qj_2_Vb_ci+(((qj_2_Vb_ci*qj_2)+(qj_2*qj_2_Vb_ci))+qm_Vb_ci)*d10_sqrt0);
4712 : 0 : qpt_Vci_ei=qm_Vci_ei*d10_sqrt0;
4713 : : #endif
4714 : 0 : qpt=(qj_2+d00_sqrt0);
4715 : : }
4716 : : #if defined(_DERIVATE)
4717 : 0 : itf_Vtnode_GND=((itfi_Vtnode_GND*qpt-itfi*qpt_Vtnode_GND)/qpt/qpt);
4718 : 0 : itf_Vbi_ei=((itfi_Vbi_ei*qpt-itfi*qpt_Vbi_ei)/qpt/qpt);
4719 : 0 : itf_Vbi_ci=(-itfi*qpt_Vbi_ci/qpt/qpt);
4720 : 0 : itf_Vb_ci=(-itfi*qpt_Vb_ci/qpt/qpt);
4721 : 0 : itf_Vci_ei=(-itfi*qpt_Vci_ei/qpt/qpt);
4722 : : #endif
4723 : 0 : itf=(itfi/qpt);
4724 : : #if defined(_DERIVATE)
4725 : 0 : itr_Vtnode_GND=((itri_Vtnode_GND*qpt-itri*qpt_Vtnode_GND)/qpt/qpt);
4726 : 0 : itr_Vbi_ci=((itri_Vbi_ci*qpt-itri*qpt_Vbi_ci)/qpt/qpt);
4727 : 0 : itr_Vbi_ei=(-itri*qpt_Vbi_ei/qpt/qpt);
4728 : 0 : itr_Vb_ci=(-itri*qpt_Vb_ci/qpt/qpt);
4729 : 0 : itr_Vci_ei=(-itri*qpt_Vci_ei/qpt/qpt);
4730 : : #endif
4731 : 0 : itr=(itri/qpt);
4732 [ # # ]: 0 : if
4733 : : (itf<=1e-20)
4734 : : {
4735 : : #if defined(_DERIVATE)
4736 : 0 : itf_Vtnode_GND=0.0;
4737 : 0 : itf_Vbi_ei=0.0;
4738 : 0 : itf_Vbi_ci=0.0;
4739 : 0 : itf_Vb_ci=0.0;
4740 : 0 : itf_Vci_ei=0.0;
4741 : : #endif
4742 : 0 : itf=1e-20;
4743 : : }
4744 : : #if defined(_DERIVATE)
4745 : 0 : it_Vtnode_GND=(itf_Vtnode_GND-itr_Vtnode_GND);
4746 : 0 : it_Vbi_ei=(itf_Vbi_ei-itr_Vbi_ei);
4747 : 0 : it_Vbi_ci=(itf_Vbi_ci-itr_Vbi_ci);
4748 : 0 : it_Vb_ci=(itf_Vb_ci-itr_Vb_ci);
4749 : 0 : it_Vci_ei=(itf_Vci_ei-itr_Vci_ei);
4750 : : #endif
4751 : 0 : it=(itf-itr);
4752 : : #if defined(_DYNAMIC)
4753 : : #if defined(_DERIVATE)
4754 : 0 : qf0_Vtnode_GND=((tf0_Vtnode_GND*itf)+(tf0*itf_Vtnode_GND));
4755 : 0 : qf0_Vbi_ci=((tf0_Vbi_ci*itf)+(tf0*itf_Vbi_ci));
4756 : 0 : qf0_Vb_ci=((tf0_Vb_ci*itf)+(tf0*itf_Vb_ci));
4757 : 0 : qf0_Vbi_ei=(tf0*itf_Vbi_ei);
4758 : 0 : qf0_Vci_ei=(tf0*itf_Vci_ei);
4759 : : #endif
4760 : 0 : qf0=(tf0*itf);
4761 : : #endif
4762 : : #if defined(_DYNAMIC)
4763 : : #if defined(_DERIVATE)
4764 : 0 : a_Vci_ei=(-((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf));
4765 : 0 : a_Vbi_ei=(-((ick_Vbi_ei*itf-ick*itf_Vbi_ei)/itf/itf));
4766 : 0 : a_Vbi_ci=(-((ick_Vbi_ci*itf-ick*itf_Vbi_ci)/itf/itf));
4767 : 0 : a_Vb_ci=(-((ick_Vb_ci*itf-ick*itf_Vb_ci)/itf/itf));
4768 : 0 : a_Vtnode_GND=(-((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf));
4769 : : #endif
4770 : 0 : a=(1-(ick/itf));
4771 : : #endif
4772 : : #if defined(_DYNAMIC)
4773 : : {
4774 : 0 : double m00_sqrt(d00_sqrt0,((a*a)+ahc))
4775 : : #if defined(_DERIVATE)
4776 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((a*a)+ahc))
4777 : : #endif
4778 : : #if defined(_DERIVATE)
4779 : 0 : s3_Vci_ei=((a_Vci_ei*a)+(a*a_Vci_ei))*d10_sqrt0;
4780 : 0 : s3_Vbi_ei=((a_Vbi_ei*a)+(a*a_Vbi_ei))*d10_sqrt0;
4781 : 0 : s3_Vbi_ci=((a_Vbi_ci*a)+(a*a_Vbi_ci))*d10_sqrt0;
4782 : 0 : s3_Vb_ci=((a_Vb_ci*a)+(a*a_Vb_ci))*d10_sqrt0;
4783 : 0 : s3_Vtnode_GND=((a_Vtnode_GND*a)+(a*a_Vtnode_GND))*d10_sqrt0;
4784 : : #endif
4785 : 0 : s3=d00_sqrt0;
4786 : : }
4787 : : #endif
4788 : : #if defined(_DYNAMIC)
4789 : : {
4790 : 0 : double m00_sqrt(d00_sqrt0,(1+ahc))
4791 : : #if defined(_DERIVATE)
4792 : 0 : w_Vci_ei=((a_Vci_ei+s3_Vci_ei)/(1+d00_sqrt0));
4793 : 0 : w_Vbi_ei=((a_Vbi_ei+s3_Vbi_ei)/(1+d00_sqrt0));
4794 : 0 : w_Vbi_ci=((a_Vbi_ci+s3_Vbi_ci)/(1+d00_sqrt0));
4795 : 0 : w_Vb_ci=((a_Vb_ci+s3_Vb_ci)/(1+d00_sqrt0));
4796 : 0 : w_Vtnode_GND=((a_Vtnode_GND+s3_Vtnode_GND)/(1+d00_sqrt0));
4797 : : #endif
4798 : 0 : w=((a+s3)/(1+d00_sqrt0));
4799 : : }
4800 : : #endif
4801 : : #if defined(_DYNAMIC)
4802 : : #if defined(_DERIVATE)
4803 : 0 : tww_Vtnode_GND=((((thcs_t_Vtnode_GND*w)+(thcs_t*w_Vtnode_GND))*w)+((thcs_t*w)*w_Vtnode_GND));
4804 : 0 : tww_Vci_ei=(((thcs_t*w_Vci_ei)*w)+((thcs_t*w)*w_Vci_ei));
4805 : 0 : tww_Vbi_ei=(((thcs_t*w_Vbi_ei)*w)+((thcs_t*w)*w_Vbi_ei));
4806 : 0 : tww_Vbi_ci=(((thcs_t*w_Vbi_ci)*w)+((thcs_t*w)*w_Vbi_ci));
4807 : 0 : tww_Vb_ci=(((thcs_t*w_Vb_ci)*w)+((thcs_t*w)*w_Vb_ci));
4808 : : #endif
4809 : 0 : tww=((thcs_t*w)*w);
4810 : : #endif
4811 : : #if defined(_DYNAMIC)
4812 : : #if defined(_DERIVATE)
4813 : 0 : dqfh_Vtnode_GND=((tww_Vtnode_GND*itf)+(tww*itf_Vtnode_GND));
4814 : 0 : dqfh_Vci_ei=((tww_Vci_ei*itf)+(tww*itf_Vci_ei));
4815 : 0 : dqfh_Vbi_ei=((tww_Vbi_ei*itf)+(tww*itf_Vbi_ei));
4816 : 0 : dqfh_Vbi_ci=((tww_Vbi_ci*itf)+(tww*itf_Vbi_ci));
4817 : 0 : dqfh_Vb_ci=((tww_Vb_ci*itf)+(tww*itf_Vb_ci));
4818 : : #endif
4819 : 0 : dqfh=(tww*itf);
4820 : : #endif
4821 : : #if defined(_DYNAMIC)
4822 : 0 : dtfh=(tww*(1+(((2*ick)/itf)/s3)));
4823 : : #endif
4824 : : #if defined(_DYNAMIC)
4825 : : {
4826 : 0 : double m00_logE(d00_logE0,(itf/ick))
4827 : 0 : double m00_exp(d00_exp1,(gte*d00_logE0))
4828 : : #if defined(_DERIVATE)
4829 : 0 : double m10_logE(d10_logE0,d00_logE0,(itf/ick))
4830 : : #define d10_exp1 d00_exp1
4831 : : #endif
4832 : : #if defined(_DERIVATE)
4833 : 0 : dtef_Vtnode_GND=((tef0_t_Vtnode_GND*d00_exp1)+(tef0_t*(gte*((itf_Vtnode_GND*ick-itf*ick_Vtnode_GND)/ick/ick)*d10_logE0)*d10_exp1));
4834 : 0 : dtef_Vbi_ei=(tef0_t*(gte*((itf_Vbi_ei*ick-itf*ick_Vbi_ei)/ick/ick)*d10_logE0)*d10_exp1);
4835 : 0 : dtef_Vbi_ci=(tef0_t*(gte*((itf_Vbi_ci*ick-itf*ick_Vbi_ci)/ick/ick)*d10_logE0)*d10_exp1);
4836 : 0 : dtef_Vb_ci=(tef0_t*(gte*((itf_Vb_ci*ick-itf*ick_Vb_ci)/ick/ick)*d10_logE0)*d10_exp1);
4837 : 0 : dtef_Vci_ei=(tef0_t*(gte*((itf_Vci_ei*ick-itf*ick_Vci_ei)/ick/ick)*d10_logE0)*d10_exp1);
4838 : : #endif
4839 : 0 : dtef=(tef0_t*d00_exp1);
4840 : : }
4841 : : #endif
4842 : : #if defined(_DYNAMIC)
4843 : : #if defined(_DERIVATE)
4844 : 0 : dqef_Vtnode_GND=(((dtef_Vtnode_GND*itf)+(dtef*itf_Vtnode_GND))/(gte+1.0));
4845 : 0 : dqef_Vbi_ei=(((dtef_Vbi_ei*itf)+(dtef*itf_Vbi_ei))/(gte+1.0));
4846 : 0 : dqef_Vbi_ci=(((dtef_Vbi_ci*itf)+(dtef*itf_Vbi_ci))/(gte+1.0));
4847 : 0 : dqef_Vb_ci=(((dtef_Vb_ci*itf)+(dtef*itf_Vb_ci))/(gte+1.0));
4848 : 0 : dqef_Vci_ei=(((dtef_Vci_ei*itf)+(dtef*itf_Vci_ei))/(gte+1.0));
4849 : : #endif
4850 : 0 : dqef=((dtef*itf)/(gte+1.0));
4851 : : #endif
4852 : : #if defined(_DYNAMIC)
4853 : : #if defined(_DERIVATE)
4854 : 0 : qf_Vtnode_GND=((qf0_Vtnode_GND+dqef_Vtnode_GND)+dqfh_Vtnode_GND);
4855 : 0 : qf_Vbi_ci=((qf0_Vbi_ci+dqef_Vbi_ci)+dqfh_Vbi_ci);
4856 : 0 : qf_Vb_ci=((qf0_Vb_ci+dqef_Vb_ci)+dqfh_Vb_ci);
4857 : 0 : qf_Vbi_ei=((qf0_Vbi_ei+dqef_Vbi_ei)+dqfh_Vbi_ei);
4858 : 0 : qf_Vci_ei=((qf0_Vci_ei+dqef_Vci_ei)+dqfh_Vci_ei);
4859 : : #endif
4860 : 0 : qf=((qf0+dqef)+dqfh);
4861 : : #endif
4862 : : #if defined(_DYNAMIC)
4863 : 0 : tf=((tf0+dtfh)+dtef);
4864 : : #endif
4865 : : #if defined(_DYNAMIC)
4866 : : #if defined(_DERIVATE)
4867 : 0 : qr_Vtnode_GND=(tr*itr_Vtnode_GND);
4868 : 0 : qr_Vbi_ci=(tr*itr_Vbi_ci);
4869 : 0 : qr_Vbi_ei=(tr*itr_Vbi_ei);
4870 : 0 : qr_Vb_ci=(tr*itr_Vb_ci);
4871 : 0 : qr_Vci_ei=(tr*itr_Vci_ei);
4872 : : #endif
4873 : 0 : qr=(tr*itr);
4874 : : #endif
4875 : : #if defined(_DERIVATE)
4876 : 0 : ibrec_Vtnode_GND=(ibhrec*qmBw_Vtnode_GND);
4877 : 0 : ibrec_Vbi_ei=(ibhrec*qmBw_Vbi_ei);
4878 : 0 : ibrec_Vci_ei=(ibhrec*qmBw_Vci_ei);
4879 : 0 : ibrec_Vbi_ci=(ibhrec*qmBw_Vbi_ci);
4880 : 0 : ibrec_Vb_ci=(ibhrec*qmBw_Vb_ci);
4881 : : #endif
4882 : 0 : ibrec=(ibhrec*qmBw);
4883 : : #if defined(_DERIVATE)
4884 : 0 : DIOY_Vs_ci=0.0;
4885 : 0 : DIOY_Vbi_ci=0.0;
4886 : 0 : DIOY_Vbi_ei=(Vbiei_Vbi_ei/(mbe*VT));
4887 : 0 : DIOY_Vtnode_GND=(-Vbiei*(mbe*VT_Vtnode_GND)/(mbe*VT)/(mbe*VT));
4888 : : #endif
4889 : 0 : DIOY=(Vbiei/(mbe*VT));
4890 [ # # ]: 0 : if
4891 : : (ibes>0.0)
4892 : : {
4893 [ # # ]: 0 : if
4894 : : (DIOY>80)
4895 : : {
4896 : : #if defined(_DERIVATE)
4897 : 0 : le_Vs_ci=0.0;
4898 : 0 : le_Vbi_ci=0.0;
4899 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
4900 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
4901 : : #endif
4902 : 0 : le=(1+(DIOY-80));
4903 : : #if defined(_DERIVATE)
4904 : 0 : DIOY_Vs_ci=0.0;
4905 : 0 : DIOY_Vbi_ci=0.0;
4906 : 0 : DIOY_Vbi_ei=0.0;
4907 : 0 : DIOY_Vtnode_GND=0.0;
4908 : : #endif
4909 : 0 : DIOY=80;
4910 : : }
4911 : : else
4912 : : {
4913 : : #if defined(_DERIVATE)
4914 : 0 : le_Vs_ci=0.0;
4915 : 0 : le_Vbi_ci=0.0;
4916 : 0 : le_Vbi_ei=0.0;
4917 : 0 : le_Vtnode_GND=0.0;
4918 : : #endif
4919 : 0 : le=1;
4920 : : }
4921 : : {
4922 [ # # ]: 0 : double m00_limexp(d00_limexp0,DIOY)
4923 : : #if defined(_DERIVATE)
4924 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
4925 : : #endif
4926 : : #if defined(_DERIVATE)
4927 : 0 : le_Vs_ci=0.0;
4928 : 0 : le_Vbi_ci=0.0;
4929 : 0 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
4930 : 0 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
4931 : : #endif
4932 : 0 : le=(le*d00_limexp0);
4933 : : }
4934 : : #if defined(_DERIVATE)
4935 : 0 : ibe_Vtnode_GND=((ibes_t_Vtnode_GND*(le-1.0))+(ibes_t*le_Vtnode_GND));
4936 : 0 : ibe_Vbi_ei=(ibes_t*le_Vbi_ei);
4937 : : #endif
4938 : 0 : ibe=(ibes_t*(le-1.0));
4939 [ # # ]: 0 : if
4940 : : (DIOY<=(-14.0))
4941 : : {
4942 : : #if defined(_DERIVATE)
4943 : 0 : ibe_Vtnode_GND=(-ibes_t_Vtnode_GND);
4944 : 0 : ibe_Vbi_ei=0.0;
4945 : : #endif
4946 : 0 : ibe=(-ibes_t);
4947 : : }
4948 : : }
4949 : : else
4950 : : {
4951 : : #if defined(_DERIVATE)
4952 : 0 : ibe_Vtnode_GND=0.0;
4953 : 0 : ibe_Vbi_ei=0.0;
4954 : : #endif
4955 : 0 : ibe=0.0;
4956 : : }
4957 : : #if defined(_DERIVATE)
4958 : 0 : DIOY_Vs_ci=0.0;
4959 : 0 : DIOY_Vbi_ci=0.0;
4960 : 0 : DIOY_Vbi_ei=(Vbiei_Vbi_ei/(mre*VT));
4961 : 0 : DIOY_Vtnode_GND=(-Vbiei*(mre*VT_Vtnode_GND)/(mre*VT)/(mre*VT));
4962 : : #endif
4963 : 0 : DIOY=(Vbiei/(mre*VT));
4964 [ # # ]: 0 : if
4965 : : (ires>0.0)
4966 : : {
4967 [ # # ]: 0 : if
4968 : : (DIOY>80)
4969 : : {
4970 : : #if defined(_DERIVATE)
4971 : 0 : le_Vs_ci=0.0;
4972 : 0 : le_Vbi_ci=0.0;
4973 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
4974 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
4975 : : #endif
4976 : 0 : le=(1+(DIOY-80));
4977 : : #if defined(_DERIVATE)
4978 : 0 : DIOY_Vs_ci=0.0;
4979 : 0 : DIOY_Vbi_ci=0.0;
4980 : 0 : DIOY_Vbi_ei=0.0;
4981 : 0 : DIOY_Vtnode_GND=0.0;
4982 : : #endif
4983 : 0 : DIOY=80;
4984 : : }
4985 : : else
4986 : : {
4987 : : #if defined(_DERIVATE)
4988 : 0 : le_Vs_ci=0.0;
4989 : 0 : le_Vbi_ci=0.0;
4990 : 0 : le_Vbi_ei=0.0;
4991 : 0 : le_Vtnode_GND=0.0;
4992 : : #endif
4993 : 0 : le=1;
4994 : : }
4995 : : {
4996 [ # # ]: 0 : double m00_limexp(d00_limexp0,DIOY)
4997 : : #if defined(_DERIVATE)
4998 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
4999 : : #endif
5000 : : #if defined(_DERIVATE)
5001 : 0 : le_Vs_ci=0.0;
5002 : 0 : le_Vbi_ci=0.0;
5003 : 0 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
5004 : 0 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
5005 : : #endif
5006 : 0 : le=(le*d00_limexp0);
5007 : : }
5008 : : #if defined(_DERIVATE)
5009 : 0 : ire_Vtnode_GND=((ires_t_Vtnode_GND*(le-1.0))+(ires_t*le_Vtnode_GND));
5010 : 0 : ire_Vbi_ei=(ires_t*le_Vbi_ei);
5011 : : #endif
5012 : 0 : ire=(ires_t*(le-1.0));
5013 [ # # ]: 0 : if
5014 : : (DIOY<=(-14.0))
5015 : : {
5016 : : #if defined(_DERIVATE)
5017 : 0 : ire_Vtnode_GND=(-ires_t_Vtnode_GND);
5018 : 0 : ire_Vbi_ei=0.0;
5019 : : #endif
5020 : 0 : ire=(-ires_t);
5021 : : }
5022 : : }
5023 : : else
5024 : : {
5025 : : #if defined(_DERIVATE)
5026 : 0 : ire_Vtnode_GND=0.0;
5027 : 0 : ire_Vbi_ei=0.0;
5028 : : #endif
5029 : 0 : ire=0.0;
5030 : : }
5031 : : #if defined(_DERIVATE)
5032 : 0 : ijbe_Vtnode_GND=((ibe_Vtnode_GND+ire_Vtnode_GND)+ibrec_Vtnode_GND);
5033 : 0 : ijbe_Vbi_ei=((ibe_Vbi_ei+ire_Vbi_ei)+ibrec_Vbi_ei);
5034 : 0 : ijbe_Vci_ei=ibrec_Vci_ei;
5035 : 0 : ijbe_Vbi_ci=ibrec_Vbi_ci;
5036 : 0 : ijbe_Vb_ci=ibrec_Vb_ci;
5037 : : #endif
5038 : 0 : ijbe=((ibe+ire)+ibrec);
5039 : : #if defined(_DERIVATE)
5040 : 0 : DIOY_Vs_ci=0.0;
5041 : 0 : DIOY_Vbi_ci=(Vbici_Vbi_ci/(mbc*VT));
5042 : 0 : DIOY_Vbi_ei=0.0;
5043 : 0 : DIOY_Vtnode_GND=(-Vbici*(mbc*VT_Vtnode_GND)/(mbc*VT)/(mbc*VT));
5044 : : #endif
5045 : 0 : DIOY=(Vbici/(mbc*VT));
5046 [ # # ]: 0 : if
5047 : : (ibcs>0.0)
5048 : : {
5049 [ # # ]: 0 : if
5050 : : (DIOY>80)
5051 : : {
5052 : : #if defined(_DERIVATE)
5053 : 0 : le_Vs_ci=0.0;
5054 : 0 : le_Vbi_ci=DIOY_Vbi_ci;
5055 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
5056 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
5057 : : #endif
5058 : 0 : le=(1+(DIOY-80));
5059 : : #if defined(_DERIVATE)
5060 : 0 : DIOY_Vs_ci=0.0;
5061 : 0 : DIOY_Vbi_ci=0.0;
5062 : 0 : DIOY_Vbi_ei=0.0;
5063 : 0 : DIOY_Vtnode_GND=0.0;
5064 : : #endif
5065 : 0 : DIOY=80;
5066 : : }
5067 : : else
5068 : : {
5069 : : #if defined(_DERIVATE)
5070 : 0 : le_Vs_ci=0.0;
5071 : 0 : le_Vbi_ci=0.0;
5072 : 0 : le_Vbi_ei=0.0;
5073 : 0 : le_Vtnode_GND=0.0;
5074 : : #endif
5075 : 0 : le=1;
5076 : : }
5077 : : {
5078 [ # # ]: 0 : double m00_limexp(d00_limexp0,DIOY)
5079 : : #if defined(_DERIVATE)
5080 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
5081 : : #endif
5082 : : #if defined(_DERIVATE)
5083 : 0 : le_Vs_ci=0.0;
5084 : 0 : le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
5085 : 0 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
5086 : 0 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
5087 : : #endif
5088 : 0 : le=(le*d00_limexp0);
5089 : : }
5090 : : #if defined(_DERIVATE)
5091 : 0 : ijbc_Vtnode_GND=((ibcs_t_Vtnode_GND*(le-1.0))+(ibcs_t*le_Vtnode_GND));
5092 : 0 : ijbc_Vbi_ci=(ibcs_t*le_Vbi_ci);
5093 : 0 : ijbc_Vbi_ei=(ibcs_t*le_Vbi_ei);
5094 : : #endif
5095 : 0 : ijbc=(ibcs_t*(le-1.0));
5096 [ # # ]: 0 : if
5097 : : (DIOY<=(-14.0))
5098 : : {
5099 : : #if defined(_DERIVATE)
5100 : 0 : ijbc_Vtnode_GND=(-ibcs_t_Vtnode_GND);
5101 : 0 : ijbc_Vbi_ci=0.0;
5102 : 0 : ijbc_Vbi_ei=0.0;
5103 : : #endif
5104 : 0 : ijbc=(-ibcs_t);
5105 : : }
5106 : : }
5107 : : else
5108 : : {
5109 : : #if defined(_DERIVATE)
5110 : 0 : ijbc_Vtnode_GND=0.0;
5111 : 0 : ijbc_Vbi_ci=0.0;
5112 : 0 : ijbc_Vbi_ei=0.0;
5113 : : #endif
5114 : 0 : ijbc=0.0;
5115 : : }
5116 : : #if defined(_DERIVATE)
5117 : 0 : ibi_Vtnode_GND=(ijbe_Vtnode_GND+ijbc_Vtnode_GND);
5118 : 0 : ibi_Vbi_ei=(ijbe_Vbi_ei+ijbc_Vbi_ei);
5119 : 0 : ibi_Vci_ei=ijbe_Vci_ei;
5120 : 0 : ibi_Vbi_ci=(ijbe_Vbi_ci+ijbc_Vbi_ci);
5121 : 0 : ibi_Vb_ci=ijbe_Vb_ci;
5122 : : #endif
5123 : 0 : ibi=(ijbe+ijbc);
5124 [ # # ]: 0 : if
5125 : : (Vbici<0)
5126 : : {
5127 : : #if defined(_DERIVATE)
5128 : 0 : v_bord_Vtnode_GND=((eavl_t_Vtnode_GND*vdci_t)+(eavl_t*vdci_t_Vtnode_GND));
5129 : : #endif
5130 : 0 : v_bord=(eavl_t*vdci_t);
5131 [ # # ]: 0 : if
5132 : : ((vdci_t-Vbici)>v_bord)
5133 : : {
5134 : : {
5135 : 0 : double m00_exp(d00_exp0,(-cc))
5136 : : #if defined(_DERIVATE)
5137 : : #define d10_exp0 d00_exp0
5138 : : #endif
5139 : : #if defined(_DERIVATE)
5140 : 0 : a_iavl_Vtnode_GND=((((kavl_t_Vtnode_GND*vdci_t-kavl_t*vdci_t_Vtnode_GND)/vdci_t/vdci_t)*d00_exp0)+((kavl_t/vdci_t)*(-cc_Vtnode_GND)*d10_exp0));
5141 : 0 : a_iavl_Vbi_ci=((kavl_t/vdci_t)*(-cc_Vbi_ci)*d10_exp0);
5142 : 0 : a_iavl_Vb_ci=((kavl_t/vdci_t)*(-cc_Vb_ci)*d10_exp0);
5143 : : #endif
5144 : 0 : a_iavl=((kavl_t/vdci_t)*d00_exp0);
5145 : : }
5146 : : #if defined(_DERIVATE)
5147 : 0 : iavl_Vtnode_GND=((((itf_Vtnode_GND*a_iavl)+(itf*a_iavl_Vtnode_GND))*(v_bord+((1+cc)*((vdci_t-Vbici)-v_bord))))+((itf*a_iavl)*(v_bord_Vtnode_GND+((cc_Vtnode_GND*((vdci_t-Vbici)-v_bord))+((1+cc)*(vdci_t_Vtnode_GND-v_bord_Vtnode_GND))))));
5148 : 0 : iavl_Vbi_ei=itf_Vbi_ei*a_iavl*(v_bord+((1+cc)*((vdci_t-Vbici)-v_bord)));
5149 : 0 : iavl_Vbi_ci=((((itf_Vbi_ci*a_iavl)+(itf*a_iavl_Vbi_ci))*(v_bord+((1+cc)*((vdci_t-Vbici)-v_bord))))+((itf*a_iavl)*((cc_Vbi_ci*((vdci_t-Vbici)-v_bord))+((1+cc)*(-Vbici_Vbi_ci)))));
5150 : 0 : iavl_Vb_ci=((((itf_Vb_ci*a_iavl)+(itf*a_iavl_Vb_ci))*(v_bord+((1+cc)*((vdci_t-Vbici)-v_bord))))+((itf*a_iavl)*cc_Vb_ci*((vdci_t-Vbici)-v_bord)));
5151 : 0 : iavl_Vci_ei=itf_Vci_ei*a_iavl*(v_bord+((1+cc)*((vdci_t-Vbici)-v_bord)));
5152 : : #endif
5153 : 0 : iavl=((itf*a_iavl)*(v_bord+((1+cc)*((vdci_t-Vbici)-v_bord))));
5154 : : }
5155 : : else
5156 : : {
5157 : : {
5158 : 0 : double m00_logE(d00_logE0,(1/cc))
5159 : : #if defined(_DERIVATE)
5160 : 0 : double m10_logE(d10_logE0,d00_logE0,(1/cc))
5161 : : #endif
5162 : : #if defined(_DERIVATE)
5163 : 0 : lncc_Vbi_ci=(-1*cc_Vbi_ci/cc/cc)*d10_logE0;
5164 : 0 : lncc_Vtnode_GND=(-1*cc_Vtnode_GND/cc/cc)*d10_logE0;
5165 : 0 : lncc_Vb_ci=(-1*cc_Vb_ci/cc/cc)*d10_logE0;
5166 : : #endif
5167 : 0 : lncc=d00_logE0;
5168 : : }
5169 : : {
5170 : 0 : double m00_exp(d00_exp0,(((1/zci)-1)*lncc))
5171 : 0 : double m00_exp(d00_exp1,((((-1)/zci)*lncc)-(eavl_t*d00_exp0)))
5172 : : #if defined(_DERIVATE)
5173 : : #define d10_exp0 d00_exp0
5174 : : #define d10_exp1 d00_exp1
5175 : : #endif
5176 : : #if defined(_DERIVATE)
5177 : 0 : iavl_Vtnode_GND=((((kavl_t_Vtnode_GND*itf)+(kavl_t*itf_Vtnode_GND))*d00_exp1)+((kavl_t*itf)*((((-1)/zci)*lncc_Vtnode_GND)-((eavl_t_Vtnode_GND*d00_exp0)+(eavl_t*(((1/zci)-1)*lncc_Vtnode_GND)*d10_exp0)))*d10_exp1));
5178 : 0 : iavl_Vbi_ei=(kavl_t*itf_Vbi_ei)*d00_exp1;
5179 : 0 : iavl_Vbi_ci=(((kavl_t*itf_Vbi_ci)*d00_exp1)+((kavl_t*itf)*((((-1)/zci)*lncc_Vbi_ci)-(eavl_t*(((1/zci)-1)*lncc_Vbi_ci)*d10_exp0))*d10_exp1));
5180 : 0 : iavl_Vb_ci=(((kavl_t*itf_Vb_ci)*d00_exp1)+((kavl_t*itf)*((((-1)/zci)*lncc_Vb_ci)-(eavl_t*(((1/zci)-1)*lncc_Vb_ci)*d10_exp0))*d10_exp1));
5181 : 0 : iavl_Vci_ei=(kavl_t*itf_Vci_ei)*d00_exp1;
5182 : : #endif
5183 : 0 : iavl=((kavl_t*itf)*d00_exp1);
5184 : : }
5185 : : }
5186 : : }
5187 : : else
5188 : : {
5189 : : #if defined(_DERIVATE)
5190 : 0 : iavl_Vtnode_GND=0.0;
5191 : 0 : iavl_Vbi_ei=0.0;
5192 : 0 : iavl_Vbi_ci=0.0;
5193 : 0 : iavl_Vb_ci=0.0;
5194 : 0 : iavl_Vci_ei=0.0;
5195 : : #endif
5196 : 0 : iavl=0;
5197 : : }
5198 [ # # ]: 0 : if
5199 : : (cje0_t>0.0)
5200 : : {
5201 : : {
5202 : 0 : double m00_logE(d00_logE0,aje_t)
5203 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/ze))
5204 : : #if defined(_DERIVATE)
5205 : 0 : double m10_logE(d10_logE0,d00_logE0,aje_t)
5206 : : #define d10_exp1 d00_exp1
5207 : : #endif
5208 : : #if defined(_DERIVATE)
5209 : 0 : vf_Vtnode_GND=((vde_t_Vtnode_GND*(1.0-d00_exp1))+(vde_t*(-((-aje_t_Vtnode_GND*d10_logE0)/ze)*d10_exp1)));
5210 : : #endif
5211 : 0 : vf=(vde_t*(1.0-d00_exp1));
5212 : : }
5213 : : #if defined(_DERIVATE)
5214 : 0 : xvf_Vs_ci=0.0;
5215 : 0 : xvf_Vbi_ei=((-Vbiei_Vbi_ei)/VT);
5216 : 0 : xvf_Vbi_ci=0.0;
5217 : 0 : xvf_Vtnode_GND=((vf_Vtnode_GND*VT-(vf-Vbiei)*VT_Vtnode_GND)/VT/VT);
5218 : 0 : xvf_Vb_ci=0.0;
5219 : : #endif
5220 : 0 : xvf=((vf-Vbiei)/VT);
5221 : : {
5222 : 0 : double m00_sqrt(d00_sqrt0,((xvf*xvf)+1.921812))
5223 : : #if defined(_DERIVATE)
5224 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((xvf*xvf)+1.921812))
5225 : : #endif
5226 : : #if defined(_DERIVATE)
5227 : 0 : xvf2_Vs_ci=0.0;
5228 : 0 : xvf2_Vbi_ei=((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei))*d10_sqrt0;
5229 : 0 : xvf2_Vbi_ci=((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))*d10_sqrt0;
5230 : 0 : xvf2_Vtnode_GND=((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND))*d10_sqrt0;
5231 : 0 : xvf2_Vb_ci=((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci))*d10_sqrt0;
5232 : : #endif
5233 : 0 : xvf2=d00_sqrt0;
5234 : : }
5235 : : #if defined(_DERIVATE)
5236 : 0 : v_j_Vs_ci=0.0;
5237 : 0 : v_j_Vbi_ei=(-(VT*(xvf_Vbi_ei+xvf2_Vbi_ei))*0.5);
5238 : 0 : v_j_Vbi_ci=(-(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.5);
5239 : 0 : v_j_Vtnode_GND=(vf_Vtnode_GND-((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND)))*0.5);
5240 : 0 : v_j_Vb_ci=(-(VT*(xvf_Vb_ci+xvf2_Vb_ci))*0.5);
5241 : : #endif
5242 : 0 : v_j=(vf-((VT*(xvf+xvf2))*0.5));
5243 : : #if defined(_DERIVATE)
5244 : 0 : x_Vci_ei=0.0;
5245 : 0 : x_Vbi_ei=0.0;
5246 : 0 : x_Vbi_ci=0.0;
5247 : 0 : x_Vtnode_GND=0.0;
5248 : 0 : x_Vb_ci=0.0;
5249 : : #endif
5250 : 0 : x=(1.0-ze);
5251 : : {
5252 : 0 : double m00_logE(d00_logE0,(1.0-(v_j/vde_t)))
5253 : 0 : double m00_exp(d00_exp1,(x*d00_logE0))
5254 : : #if defined(_DERIVATE)
5255 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(v_j/vde_t)))
5256 : : #define d10_exp1 d00_exp1
5257 : : #endif
5258 : : #if defined(_DERIVATE)
5259 : 0 : y_Vs_ci=0.0;
5260 : 0 : y_Vci_ei=(-x_Vci_ei*d00_logE0*d10_exp1);
5261 : 0 : y_Vbi_ei=(-((x_Vbi_ei*d00_logE0)+(x*(-(v_j_Vbi_ei/vde_t))*d10_logE0))*d10_exp1);
5262 : 0 : y_Vbi_ci=(-((x_Vbi_ci*d00_logE0)+(x*(-(v_j_Vbi_ci/vde_t))*d10_logE0))*d10_exp1);
5263 : 0 : y_Vtnode_GND=(-((x_Vtnode_GND*d00_logE0)+(x*(-((v_j_Vtnode_GND*vde_t-v_j*vde_t_Vtnode_GND)/vde_t/vde_t))*d10_logE0))*d10_exp1);
5264 : 0 : y_Vb_ci=(-((x_Vb_ci*d00_logE0)+(x*(-(v_j_Vb_ci/vde_t))*d10_logE0))*d10_exp1);
5265 : : #endif
5266 : 0 : y=(1.0-d00_exp1);
5267 : : }
5268 : : #if defined(_DERIVATE)
5269 : 0 : qjei_Vtnode_GND=(((((((cje0_t_Vtnode_GND*vde_t)+(cje0_t*vde_t_Vtnode_GND))*y)+((cje0_t*vde_t)*y_Vtnode_GND))*x-((cje0_t*vde_t)*y)*x_Vtnode_GND)/x/x)+((((aje_t_Vtnode_GND*cje0_t)+(aje_t*cje0_t_Vtnode_GND))*(Vbiei-v_j))+((aje_t*cje0_t)*(-v_j_Vtnode_GND))));
5270 : 0 : qjei_Vci_ei=((((cje0_t*vde_t)*y_Vci_ei)*x-((cje0_t*vde_t)*y)*x_Vci_ei)/x/x);
5271 : 0 : qjei_Vbi_ei=(((((cje0_t*vde_t)*y_Vbi_ei)*x-((cje0_t*vde_t)*y)*x_Vbi_ei)/x/x)+((aje_t*cje0_t)*(Vbiei_Vbi_ei-v_j_Vbi_ei)));
5272 : 0 : qjei_Vbi_ci=(((((cje0_t*vde_t)*y_Vbi_ci)*x-((cje0_t*vde_t)*y)*x_Vbi_ci)/x/x)+((aje_t*cje0_t)*(-v_j_Vbi_ci)));
5273 : 0 : qjei_Vb_ci=(((((cje0_t*vde_t)*y_Vb_ci)*x-((cje0_t*vde_t)*y)*x_Vb_ci)/x/x)+((aje_t*cje0_t)*(-v_j_Vb_ci)));
5274 : : #endif
5275 : 0 : qjei=((((cje0_t*vde_t)*y)/x)+((aje_t*cje0_t)*(Vbiei-v_j)));
5276 : : }
5277 : : else
5278 : : {
5279 : : #if defined(_DERIVATE)
5280 : 0 : qjei_Vtnode_GND=0.0;
5281 : 0 : qjei_Vci_ei=0.0;
5282 : 0 : qjei_Vbi_ei=0.0;
5283 : 0 : qjei_Vbi_ci=0.0;
5284 : 0 : qjei_Vb_ci=0.0;
5285 : : #endif
5286 : 0 : qjei=0.00;
5287 : : }
5288 : : #if defined(_DERIVATE)
5289 : 0 : qje_Vtnode_GND=((qjei_Vtnode_GND*cje0_t-qjei*cje0_t_Vtnode_GND)/cje0_t/cje0_t);
5290 : 0 : qje_Vci_ei=(qjei_Vci_ei/cje0_t);
5291 : 0 : qje_Vbi_ei=(qjei_Vbi_ei/cje0_t);
5292 : 0 : qje_Vbi_ci=(qjei_Vbi_ci/cje0_t);
5293 : 0 : qje_Vb_ci=(qjei_Vb_ci/cje0_t);
5294 : : #endif
5295 : 0 : qje=(qjei/cje0_t);
5296 [ # # ]: 0 : if
5297 : : (cjci0_t_ii>0.0)
5298 : : {
5299 : : #if defined(_DERIVATE)
5300 : 0 : qjci_Vbi_ci=(qjci_Vbi_ci/cjci0_t_ii);
5301 : 0 : qjci_Vtnode_GND=((qjci_Vtnode_GND*cjci0_t_ii-qjci*cjci0_t_ii_Vtnode_GND)/cjci0_t_ii/cjci0_t_ii);
5302 : 0 : qjci_Vb_ci=(qjci_Vb_ci/cjci0_t_ii);
5303 : : #endif
5304 : 0 : qjci=(qjci/cjci0_t_ii);
5305 : : }
5306 : : else
5307 : : {
5308 : : #if defined(_DERIVATE)
5309 : 0 : qjci_Vbi_ci=0.0;
5310 : 0 : qjci_Vtnode_GND=0.0;
5311 : 0 : qjci_Vb_ci=0.0;
5312 : : #endif
5313 : 0 : qjci=0.0;
5314 : : }
5315 [ # # ]: 0 : if
5316 : : (rbi0_t>0.0)
5317 : : {
5318 : : #if defined(_DERIVATE)
5319 : 0 : Qz_nom_Vtnode_GND=(((qje_Vtnode_GND/vr0e)+(qjci_Vtnode_GND/vr0c))+qm0_Vtnode_GND);
5320 : 0 : Qz_nom_Vci_ei=(qje_Vci_ei/vr0e);
5321 : 0 : Qz_nom_Vbi_ei=((qje_Vbi_ei/vr0e)+qm0_Vbi_ei);
5322 : 0 : Qz_nom_Vbi_ci=(((qje_Vbi_ci/vr0e)+(qjci_Vbi_ci/vr0c))+qm0_Vbi_ci);
5323 : 0 : Qz_nom_Vb_ci=(((qje_Vb_ci/vr0e)+(qjci_Vb_ci/vr0c))+qm0_Vb_ci);
5324 : : #endif
5325 : 0 : Qz_nom=(((1+(qje/vr0e))+(qjci/vr0c))+qm0);
5326 : : {
5327 : 0 : double m00_sqrt(d00_sqrt0,((Qz_nom*Qz_nom)+0.01))
5328 : : #if defined(_DERIVATE)
5329 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((Qz_nom*Qz_nom)+0.01))
5330 : : #endif
5331 : : #if defined(_DERIVATE)
5332 : 0 : fQz_Vtnode_GND=(0.5*(Qz_nom_Vtnode_GND+((Qz_nom_Vtnode_GND*Qz_nom)+(Qz_nom*Qz_nom_Vtnode_GND))*d10_sqrt0));
5333 : 0 : fQz_Vci_ei=(0.5*(Qz_nom_Vci_ei+((Qz_nom_Vci_ei*Qz_nom)+(Qz_nom*Qz_nom_Vci_ei))*d10_sqrt0));
5334 : 0 : fQz_Vbi_ei=(0.5*(Qz_nom_Vbi_ei+((Qz_nom_Vbi_ei*Qz_nom)+(Qz_nom*Qz_nom_Vbi_ei))*d10_sqrt0));
5335 : 0 : fQz_Vbi_ci=(0.5*(Qz_nom_Vbi_ci+((Qz_nom_Vbi_ci*Qz_nom)+(Qz_nom*Qz_nom_Vbi_ci))*d10_sqrt0));
5336 : 0 : fQz_Vb_ci=(0.5*(Qz_nom_Vb_ci+((Qz_nom_Vb_ci*Qz_nom)+(Qz_nom*Qz_nom_Vb_ci))*d10_sqrt0));
5337 : : #endif
5338 : 0 : fQz=(0.5*(Qz_nom+d00_sqrt0));
5339 : : }
5340 : : #if defined(_DERIVATE)
5341 : 0 : rbi_Vtnode_GND=((rbi0_t_Vtnode_GND*fQz-rbi0_t*fQz_Vtnode_GND)/fQz/fQz);
5342 : 0 : rbi_Vci_ei=(-rbi0_t*fQz_Vci_ei/fQz/fQz);
5343 : 0 : rbi_Vbi_ei=(-rbi0_t*fQz_Vbi_ei/fQz/fQz);
5344 : 0 : rbi_Vbi_ci=(-rbi0_t*fQz_Vbi_ci/fQz/fQz);
5345 : 0 : rbi_Vb_ci=(-rbi0_t*fQz_Vb_ci/fQz/fQz);
5346 : : #endif
5347 : 0 : rbi=(rbi0_t/fQz);
5348 [ # # ]: 0 : if
5349 : : (ibi>0.0)
5350 : : {
5351 : : #if defined(_DERIVATE)
5352 : 0 : eta_Vtnode_GND=(((((fgeo*rbi_Vtnode_GND)*ibi)+((fgeo*rbi)*ibi_Vtnode_GND))*VT-((fgeo*rbi)*ibi)*VT_Vtnode_GND)/VT/VT);
5353 : 0 : eta_Vci_ei=((((fgeo*rbi_Vci_ei)*ibi)+((fgeo*rbi)*ibi_Vci_ei))/VT);
5354 : 0 : eta_Vbi_ei=((((fgeo*rbi_Vbi_ei)*ibi)+((fgeo*rbi)*ibi_Vbi_ei))/VT);
5355 : 0 : eta_Vbi_ci=((((fgeo*rbi_Vbi_ci)*ibi)+((fgeo*rbi)*ibi_Vbi_ci))/VT);
5356 : 0 : eta_Vb_ci=((((fgeo*rbi_Vb_ci)*ibi)+((fgeo*rbi)*ibi_Vb_ci))/VT);
5357 : : #endif
5358 : 0 : eta=(((fgeo*rbi)*ibi)/VT);
5359 [ # # ]: 0 : if
5360 : : (eta<1e-6)
5361 : : {
5362 : : #if defined(_DERIVATE)
5363 : 0 : rbi_Vtnode_GND=((rbi_Vtnode_GND*(1-(0.5*eta)))+(rbi*(-(0.5*eta_Vtnode_GND))));
5364 : 0 : rbi_Vci_ei=((rbi_Vci_ei*(1-(0.5*eta)))+(rbi*(-(0.5*eta_Vci_ei))));
5365 : 0 : rbi_Vbi_ei=((rbi_Vbi_ei*(1-(0.5*eta)))+(rbi*(-(0.5*eta_Vbi_ei))));
5366 : 0 : rbi_Vbi_ci=((rbi_Vbi_ci*(1-(0.5*eta)))+(rbi*(-(0.5*eta_Vbi_ci))));
5367 : 0 : rbi_Vb_ci=((rbi_Vb_ci*(1-(0.5*eta)))+(rbi*(-(0.5*eta_Vb_ci))));
5368 : : #endif
5369 : 0 : rbi=(rbi*(1-(0.5*eta)));
5370 : : }
5371 : : else
5372 : : {
5373 : : {
5374 : 0 : double m00_logE(d00_logE0,(eta+1))
5375 : : #if defined(_DERIVATE)
5376 : 0 : double m10_logE(d10_logE0,d00_logE0,(eta+1))
5377 : : #endif
5378 : : #if defined(_DERIVATE)
5379 : 0 : rbi_Vtnode_GND=((((rbi_Vtnode_GND*d00_logE0)+(rbi*eta_Vtnode_GND*d10_logE0))*eta-(rbi*d00_logE0)*eta_Vtnode_GND)/eta/eta);
5380 : 0 : rbi_Vci_ei=((((rbi_Vci_ei*d00_logE0)+(rbi*eta_Vci_ei*d10_logE0))*eta-(rbi*d00_logE0)*eta_Vci_ei)/eta/eta);
5381 : 0 : rbi_Vbi_ei=((((rbi_Vbi_ei*d00_logE0)+(rbi*eta_Vbi_ei*d10_logE0))*eta-(rbi*d00_logE0)*eta_Vbi_ei)/eta/eta);
5382 : 0 : rbi_Vbi_ci=((((rbi_Vbi_ci*d00_logE0)+(rbi*eta_Vbi_ci*d10_logE0))*eta-(rbi*d00_logE0)*eta_Vbi_ci)/eta/eta);
5383 : 0 : rbi_Vb_ci=((((rbi_Vb_ci*d00_logE0)+(rbi*eta_Vb_ci*d10_logE0))*eta-(rbi*d00_logE0)*eta_Vb_ci)/eta/eta);
5384 : : #endif
5385 : 0 : rbi=((rbi*d00_logE0)/eta);
5386 : : }
5387 : : }
5388 : : }
5389 : : }
5390 : : else
5391 : : {
5392 : : #if defined(_DERIVATE)
5393 : 0 : rbi_Vtnode_GND=0.0;
5394 : 0 : rbi_Vci_ei=0.0;
5395 : 0 : rbi_Vbi_ei=0.0;
5396 : 0 : rbi_Vbi_ci=0.0;
5397 : 0 : rbi_Vb_ci=0.0;
5398 : : #endif
5399 : 0 : rbi=0.0;
5400 : : }
5401 : : #if defined(_DERIVATE)
5402 : 0 : rb_Vtnode_GND=(rbi_Vtnode_GND+rbx_t_Vtnode_GND);
5403 : 0 : rb_Vci_ei=rbi_Vci_ei;
5404 : 0 : rb_Vbi_ei=rbi_Vbi_ei;
5405 : 0 : rb_Vbi_ci=rbi_Vbi_ci;
5406 : 0 : rb_Vb_ci=rbi_Vb_ci;
5407 : : #endif
5408 : 0 : rb=(rbi+rbx_t);
5409 [ # # ]: 0 : if
5410 : : (itss>0.0)
5411 : : {
5412 : : #if defined(_DERIVATE)
5413 : 0 : HSUM_Vtnode_GND=(msf*VT_Vtnode_GND);
5414 : : #endif
5415 : 0 : HSUM=(msf*VT);
5416 : : {
5417 [ # # ]: 0 : double m00_limexp(d00_limexp0,(Vbci/HSUM))
5418 : : #if defined(_DERIVATE)
5419 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,(Vbci/HSUM))
5420 : : #endif
5421 : : #if defined(_DERIVATE)
5422 : 0 : HSa_Vb_ci=(Vbci_Vb_ci/HSUM)*d10_limexp0;
5423 : 0 : HSa_Vtnode_GND=(-Vbci*HSUM_Vtnode_GND/HSUM/HSUM)*d10_limexp0;
5424 : : #endif
5425 : 0 : HSa=d00_limexp0;
5426 : : }
5427 : : {
5428 [ # # ]: 0 : double m00_limexp(d00_limexp0,(Vsci/HSUM))
5429 : : #if defined(_DERIVATE)
5430 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,(Vsci/HSUM))
5431 : : #endif
5432 : : #if defined(_DERIVATE)
5433 : 0 : HSb_Vs_ci=(Vsci_Vs_ci/HSUM)*d10_limexp0;
5434 : 0 : HSb_Vtnode_GND=(-Vsci*HSUM_Vtnode_GND/HSUM/HSUM)*d10_limexp0;
5435 : : #endif
5436 : 0 : HSb=d00_limexp0;
5437 : : }
5438 : : #if defined(_DERIVATE)
5439 : 0 : HSI_Tsu_Vtnode_GND=((itss_t_Vtnode_GND*(HSa-HSb))+(itss_t*(HSa_Vtnode_GND-HSb_Vtnode_GND)));
5440 : 0 : HSI_Tsu_Vb_ci=(itss_t*HSa_Vb_ci);
5441 : 0 : HSI_Tsu_Vs_ci=(itss_t*(-HSb_Vs_ci));
5442 : : #endif
5443 : 0 : HSI_Tsu=(itss_t*(HSa-HSb));
5444 : : }
5445 : : else
5446 : : {
5447 : : #if defined(_DERIVATE)
5448 : 0 : HSI_Tsu_Vtnode_GND=0.0;
5449 : 0 : HSI_Tsu_Vb_ci=0.0;
5450 : 0 : HSI_Tsu_Vs_ci=0.0;
5451 : : #endif
5452 : 0 : HSI_Tsu=0.0;
5453 : : }
5454 : : #if defined(_DERIVATE)
5455 : 0 : DIOY_Vs_ci=(Vsci_Vs_ci/(msc*VT));
5456 : 0 : DIOY_Vbi_ci=0.0;
5457 : 0 : DIOY_Vbi_ei=0.0;
5458 : 0 : DIOY_Vtnode_GND=(-Vsci*(msc*VT_Vtnode_GND)/(msc*VT)/(msc*VT));
5459 : : #endif
5460 : 0 : DIOY=(Vsci/(msc*VT));
5461 [ # # ]: 0 : if
5462 : : (iscs>0.0)
5463 : : {
5464 [ # # ]: 0 : if
5465 : : (DIOY>80)
5466 : : {
5467 : : #if defined(_DERIVATE)
5468 : 0 : le_Vs_ci=DIOY_Vs_ci;
5469 : 0 : le_Vbi_ci=DIOY_Vbi_ci;
5470 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
5471 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
5472 : : #endif
5473 : 0 : le=(1+(DIOY-80));
5474 : : #if defined(_DERIVATE)
5475 : 0 : DIOY_Vs_ci=0.0;
5476 : 0 : DIOY_Vbi_ci=0.0;
5477 : 0 : DIOY_Vbi_ei=0.0;
5478 : 0 : DIOY_Vtnode_GND=0.0;
5479 : : #endif
5480 : 0 : DIOY=80;
5481 : : }
5482 : : else
5483 : : {
5484 : : #if defined(_DERIVATE)
5485 : 0 : le_Vs_ci=0.0;
5486 : 0 : le_Vbi_ci=0.0;
5487 : 0 : le_Vbi_ei=0.0;
5488 : 0 : le_Vtnode_GND=0.0;
5489 : : #endif
5490 : 0 : le=1;
5491 : : }
5492 : : {
5493 [ # # ]: 0 : double m00_limexp(d00_limexp0,DIOY)
5494 : : #if defined(_DERIVATE)
5495 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
5496 : : #endif
5497 : : #if defined(_DERIVATE)
5498 : 0 : le_Vs_ci=((le_Vs_ci*d00_limexp0)+(le*DIOY_Vs_ci*d10_limexp0));
5499 : 0 : le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
5500 : 0 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
5501 : 0 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
5502 : : #endif
5503 : 0 : le=(le*d00_limexp0);
5504 : : }
5505 : : #if defined(_DERIVATE)
5506 : 0 : ijsc_Vtnode_GND=((iscs_t_Vtnode_GND*(le-1.0))+(iscs_t*le_Vtnode_GND));
5507 : 0 : ijsc_Vs_ci=(iscs_t*le_Vs_ci);
5508 : 0 : ijsc_Vbi_ci=(iscs_t*le_Vbi_ci);
5509 : 0 : ijsc_Vbi_ei=(iscs_t*le_Vbi_ei);
5510 : : #endif
5511 : 0 : ijsc=(iscs_t*(le-1.0));
5512 [ # # ]: 0 : if
5513 : : (DIOY<=(-14.0))
5514 : : {
5515 : : #if defined(_DERIVATE)
5516 : 0 : ijsc_Vtnode_GND=(-iscs_t_Vtnode_GND);
5517 : 0 : ijsc_Vs_ci=0.0;
5518 : 0 : ijsc_Vbi_ci=0.0;
5519 : 0 : ijsc_Vbi_ei=0.0;
5520 : : #endif
5521 : 0 : ijsc=(-iscs_t);
5522 : : }
5523 : : }
5524 : : else
5525 : : {
5526 : : #if defined(_DERIVATE)
5527 : 0 : ijsc_Vtnode_GND=0.0;
5528 : 0 : ijsc_Vs_ci=0.0;
5529 : 0 : ijsc_Vbi_ci=0.0;
5530 : 0 : ijsc_Vbi_ei=0.0;
5531 : : #endif
5532 : 0 : ijsc=0.0;
5533 : : }
5534 : : #ifdef _DYNAMIC
5535 [ # # ]: 0 : if
5536 : : (vpts<1.0e2)
5537 : : {
5538 : : #ifdef _DYNAMIC
5539 [ # # ]: 0 : if
5540 : : (cjs0_t>0.0)
5541 : : {
5542 : : #if defined(_DYNAMIC)
5543 : 0 : zr=(zs/4.0);
5544 : : #endif
5545 : : #if defined(_DYNAMIC)
5546 : : #if defined(_DERIVATE)
5547 : 0 : vp_Vtnode_GND=(-vds_t_Vtnode_GND);
5548 : : #endif
5549 : 0 : vp=(vpts-vds_t);
5550 : : #endif
5551 : : #if defined(_DYNAMIC)
5552 : : {
5553 : 0 : double m00_logE(d00_logE0,2.4)
5554 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zs))
5555 : : #if defined(_DERIVATE)
5556 : 0 : vf_Vtnode_GND=vds_t_Vtnode_GND*(1.0-d00_exp1);
5557 : : #endif
5558 : 0 : vf=(vds_t*(1.0-d00_exp1));
5559 : : }
5560 : : #endif
5561 : : #if defined(_DYNAMIC)
5562 : : #if defined(_DERIVATE)
5563 : 0 : cmax_Vtnode_GND=(2.4*cjs0_t_Vtnode_GND);
5564 : : #endif
5565 : 0 : cmax=(2.4*cjs0_t);
5566 : : #endif
5567 : : #if defined(_DYNAMIC)
5568 : : {
5569 : 0 : double m00_logE(d00_logE0,(vds_t/vpts))
5570 : 0 : double m00_exp(d00_exp1,((zs-zr)*d00_logE0))
5571 : : #if defined(_DERIVATE)
5572 : 0 : double m10_logE(d10_logE0,d00_logE0,(vds_t/vpts))
5573 : : #define d10_exp1 d00_exp1
5574 : : #endif
5575 : : #if defined(_DERIVATE)
5576 : 0 : cr_Vtnode_GND=((cjs0_t_Vtnode_GND*d00_exp1)+(cjs0_t*((zs-zr)*(vds_t_Vtnode_GND/vpts)*d10_logE0)*d10_exp1));
5577 : : #endif
5578 : 0 : cr=(cjs0_t*d00_exp1);
5579 : : }
5580 : : #endif
5581 : : #if defined(_DYNAMIC)
5582 : : #if defined(_DERIVATE)
5583 : 0 : a_Vci_ei=0.0;
5584 : 0 : a_Vbi_ei=0.0;
5585 : 0 : a_Vbi_ci=0.0;
5586 : 0 : a_Vb_ci=0.0;
5587 : 0 : a_Vtnode_GND=VT_Vtnode_GND;
5588 : : #endif
5589 : 0 : a=VT;
5590 : : #endif
5591 : : #if defined(_DYNAMIC)
5592 : : #if defined(_DERIVATE)
5593 : 0 : ve_Vs_ci=((-Vsci_Vs_ci)/a);
5594 : 0 : ve_Vci_ei=(-(vf-Vsci)*a_Vci_ei/a/a);
5595 : 0 : ve_Vbi_ei=(-(vf-Vsci)*a_Vbi_ei/a/a);
5596 : 0 : ve_Vbi_ci=(-(vf-Vsci)*a_Vbi_ci/a/a);
5597 : 0 : ve_Vtnode_GND=((vf_Vtnode_GND*a-(vf-Vsci)*a_Vtnode_GND)/a/a);
5598 : 0 : ve_Vb_ci=(-(vf-Vsci)*a_Vb_ci/a/a);
5599 : : #endif
5600 : 0 : ve=((vf-Vsci)/a);
5601 : : #endif
5602 : : #ifdef _DYNAMIC
5603 [ # # ]: 0 : if
5604 : : (ve<=80.0)
5605 : : {
5606 : : #if defined(_DYNAMIC)
5607 : : {
5608 : 0 : double m00_exp(d00_exp0,ve)
5609 : : #if defined(_DERIVATE)
5610 : : #define d10_exp0 d00_exp0
5611 : : #endif
5612 : : #if defined(_DERIVATE)
5613 : 0 : ex1_Vs_ci=ve_Vs_ci*d10_exp0;
5614 : 0 : ex1_Vci_ei=ve_Vci_ei*d10_exp0;
5615 : 0 : ex1_Vbi_ei=ve_Vbi_ei*d10_exp0;
5616 : 0 : ex1_Vbi_ci=ve_Vbi_ci*d10_exp0;
5617 : 0 : ex1_Vtnode_GND=ve_Vtnode_GND*d10_exp0;
5618 : 0 : ex1_Vb_ci=ve_Vb_ci*d10_exp0;
5619 : : #endif
5620 : 0 : ex1=d00_exp0;
5621 : : }
5622 : : #endif
5623 : : #if defined(_DYNAMIC)
5624 : : #if defined(_DERIVATE)
5625 : 0 : ee1_Vs_ci=ex1_Vs_ci;
5626 : 0 : ee1_Vci_ei=ex1_Vci_ei;
5627 : 0 : ee1_Vbi_ei=ex1_Vbi_ei;
5628 : 0 : ee1_Vbi_ci=ex1_Vbi_ci;
5629 : 0 : ee1_Vtnode_GND=ex1_Vtnode_GND;
5630 : 0 : ee1_Vb_ci=ex1_Vb_ci;
5631 : : #endif
5632 : 0 : ee1=(1.0+ex1);
5633 : : #endif
5634 : : #if defined(_DYNAMIC)
5635 : : {
5636 : 0 : double m00_logE(d00_logE0,ee1)
5637 : : #if defined(_DERIVATE)
5638 : 0 : double m10_logE(d10_logE0,d00_logE0,ee1)
5639 : : #endif
5640 : : #if defined(_DERIVATE)
5641 : 0 : vj1_Vci_ei=(-((a_Vci_ei*d00_logE0)+(a*ee1_Vci_ei*d10_logE0)));
5642 : 0 : vj1_Vbi_ei=(-((a_Vbi_ei*d00_logE0)+(a*ee1_Vbi_ei*d10_logE0)));
5643 : 0 : vj1_Vs_ci=(-(a*ee1_Vs_ci*d10_logE0));
5644 : 0 : vj1_Vbi_ci=(-((a_Vbi_ci*d00_logE0)+(a*ee1_Vbi_ci*d10_logE0)));
5645 : 0 : vj1_Vtnode_GND=(vf_Vtnode_GND-((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
5646 : 0 : vj1_Vb_ci=(-((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0)));
5647 : : #endif
5648 : 0 : vj1=(vf-(a*d00_logE0));
5649 : : }
5650 : : #endif
5651 : : }
5652 : : else
5653 : : {
5654 : : #if defined(_DYNAMIC)
5655 : : #if defined(_DERIVATE)
5656 : 0 : vj1_Vci_ei=0.0;
5657 : 0 : vj1_Vbi_ei=0.0;
5658 : 0 : vj1_Vs_ci=Vsci_Vs_ci;
5659 : 0 : vj1_Vbi_ci=0.0;
5660 : 0 : vj1_Vtnode_GND=0.0;
5661 : 0 : vj1_Vb_ci=0.0;
5662 : : #endif
5663 : 0 : vj1=Vsci;
5664 : : #endif
5665 : : }
5666 : : #endif /* if (...) */
5667 : : #if defined(_DYNAMIC)
5668 : : #if defined(_DERIVATE)
5669 : 0 : a_Vci_ei=0.0;
5670 : 0 : a_Vbi_ei=0.0;
5671 : 0 : a_Vbi_ci=0.0;
5672 : 0 : a_Vb_ci=0.0;
5673 : 0 : a_Vtnode_GND=((0.1*vp_Vtnode_GND)+(4.0*VT_Vtnode_GND));
5674 : : #endif
5675 : 0 : a=((0.1*vp)+(4.0*VT));
5676 : : #endif
5677 : : #if defined(_DYNAMIC)
5678 : : #if defined(_DERIVATE)
5679 : 0 : vr_Vci_ei=((vj1_Vci_ei*a-(vp+vj1)*a_Vci_ei)/a/a);
5680 : 0 : vr_Vbi_ei=((vj1_Vbi_ei*a-(vp+vj1)*a_Vbi_ei)/a/a);
5681 : 0 : vr_Vs_ci=(vj1_Vs_ci/a);
5682 : 0 : vr_Vbi_ci=((vj1_Vbi_ci*a-(vp+vj1)*a_Vbi_ci)/a/a);
5683 : 0 : vr_Vtnode_GND=(((vp_Vtnode_GND+vj1_Vtnode_GND)*a-(vp+vj1)*a_Vtnode_GND)/a/a);
5684 : 0 : vr_Vb_ci=((vj1_Vb_ci*a-(vp+vj1)*a_Vb_ci)/a/a);
5685 : : #endif
5686 : 0 : vr=((vp+vj1)/a);
5687 : : #endif
5688 : : #ifdef _DYNAMIC
5689 [ # # ]: 0 : if
5690 : : (vr<=80.0)
5691 : : {
5692 : : #if defined(_DYNAMIC)
5693 : : {
5694 : 0 : double m00_exp(d00_exp0,vr)
5695 : : #if defined(_DERIVATE)
5696 : : #define d10_exp0 d00_exp0
5697 : : #endif
5698 : : #if defined(_DERIVATE)
5699 : 0 : ex1_Vs_ci=vr_Vs_ci*d10_exp0;
5700 : 0 : ex1_Vci_ei=vr_Vci_ei*d10_exp0;
5701 : 0 : ex1_Vbi_ei=vr_Vbi_ei*d10_exp0;
5702 : 0 : ex1_Vbi_ci=vr_Vbi_ci*d10_exp0;
5703 : 0 : ex1_Vtnode_GND=vr_Vtnode_GND*d10_exp0;
5704 : 0 : ex1_Vb_ci=vr_Vb_ci*d10_exp0;
5705 : : #endif
5706 : 0 : ex1=d00_exp0;
5707 : : }
5708 : : #endif
5709 : : #if defined(_DYNAMIC)
5710 : : #if defined(_DERIVATE)
5711 : 0 : ee1_Vs_ci=ex1_Vs_ci;
5712 : 0 : ee1_Vci_ei=ex1_Vci_ei;
5713 : 0 : ee1_Vbi_ei=ex1_Vbi_ei;
5714 : 0 : ee1_Vbi_ci=ex1_Vbi_ci;
5715 : 0 : ee1_Vtnode_GND=ex1_Vtnode_GND;
5716 : 0 : ee1_Vb_ci=ex1_Vb_ci;
5717 : : #endif
5718 : 0 : ee1=(1.0+ex1);
5719 : : #endif
5720 : : #if defined(_DYNAMIC)
5721 : : {
5722 : 0 : double m00_logE(d00_logE0,ee1)
5723 : : #if defined(_DERIVATE)
5724 : 0 : double m10_logE(d10_logE0,d00_logE0,ee1)
5725 : : #endif
5726 : : #if defined(_DERIVATE)
5727 : 0 : vj2_Vci_ei=((a_Vci_ei*d00_logE0)+(a*ee1_Vci_ei*d10_logE0));
5728 : 0 : vj2_Vbi_ei=((a_Vbi_ei*d00_logE0)+(a*ee1_Vbi_ei*d10_logE0));
5729 : 0 : vj2_Vs_ci=(a*ee1_Vs_ci*d10_logE0);
5730 : 0 : vj2_Vbi_ci=((a_Vbi_ci*d00_logE0)+(a*ee1_Vbi_ci*d10_logE0));
5731 : 0 : vj2_Vtnode_GND=((-vp_Vtnode_GND)+((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
5732 : 0 : vj2_Vb_ci=((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0));
5733 : : #endif
5734 : 0 : vj2=((-vp)+(a*d00_logE0));
5735 : : }
5736 : : #endif
5737 : : }
5738 : : else
5739 : : {
5740 : : #if defined(_DYNAMIC)
5741 : : #if defined(_DERIVATE)
5742 : 0 : vj2_Vci_ei=vj1_Vci_ei;
5743 : 0 : vj2_Vbi_ei=vj1_Vbi_ei;
5744 : 0 : vj2_Vs_ci=vj1_Vs_ci;
5745 : 0 : vj2_Vbi_ci=vj1_Vbi_ci;
5746 : 0 : vj2_Vtnode_GND=vj1_Vtnode_GND;
5747 : 0 : vj2_Vb_ci=vj1_Vb_ci;
5748 : : #endif
5749 : 0 : vj2=vj1;
5750 : : #endif
5751 : : }
5752 : : #endif /* if (...) */
5753 : : #if defined(_DYNAMIC)
5754 : : #if defined(_DERIVATE)
5755 : 0 : vj4_Vs_ci=(Vsci_Vs_ci-vj1_Vs_ci);
5756 : 0 : vj4_Vci_ei=(-vj1_Vci_ei);
5757 : 0 : vj4_Vbi_ei=(-vj1_Vbi_ei);
5758 : 0 : vj4_Vbi_ci=(-vj1_Vbi_ci);
5759 : 0 : vj4_Vb_ci=(-vj1_Vb_ci);
5760 : 0 : vj4_Vtnode_GND=(-vj1_Vtnode_GND);
5761 : : #endif
5762 : 0 : vj4=(Vsci-vj1);
5763 : : #endif
5764 : : #if defined(_DYNAMIC)
5765 : 0 : ez=(1.0-zs);
5766 : : #endif
5767 : : #if defined(_DYNAMIC)
5768 : 0 : ezr=(1.0-zr);
5769 : : #endif
5770 : : #if defined(_DYNAMIC)
5771 : : {
5772 : 0 : double m00_logE(d00_logE0,(1.0-(vj1/vds_t)))
5773 : : #if defined(_DERIVATE)
5774 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(vj1/vds_t)))
5775 : : #endif
5776 : : #if defined(_DERIVATE)
5777 : 0 : vdj1_Vci_ei=(-(vj1_Vci_ei/vds_t))*d10_logE0;
5778 : 0 : vdj1_Vbi_ei=(-(vj1_Vbi_ei/vds_t))*d10_logE0;
5779 : 0 : vdj1_Vs_ci=(-(vj1_Vs_ci/vds_t))*d10_logE0;
5780 : 0 : vdj1_Vbi_ci=(-(vj1_Vbi_ci/vds_t))*d10_logE0;
5781 : 0 : vdj1_Vtnode_GND=(-((vj1_Vtnode_GND*vds_t-vj1*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0;
5782 : 0 : vdj1_Vb_ci=(-(vj1_Vb_ci/vds_t))*d10_logE0;
5783 : : #endif
5784 : 0 : vdj1=d00_logE0;
5785 : : }
5786 : : #endif
5787 : : #if defined(_DYNAMIC)
5788 : : {
5789 : 0 : double m00_logE(d00_logE0,(1.0-(vj2/vds_t)))
5790 : : #if defined(_DERIVATE)
5791 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(vj2/vds_t)))
5792 : : #endif
5793 : : #if defined(_DERIVATE)
5794 : 0 : vdj2_Vci_ei=(-(vj2_Vci_ei/vds_t))*d10_logE0;
5795 : 0 : vdj2_Vbi_ei=(-(vj2_Vbi_ei/vds_t))*d10_logE0;
5796 : 0 : vdj2_Vs_ci=(-(vj2_Vs_ci/vds_t))*d10_logE0;
5797 : 0 : vdj2_Vbi_ci=(-(vj2_Vbi_ci/vds_t))*d10_logE0;
5798 : 0 : vdj2_Vtnode_GND=(-((vj2_Vtnode_GND*vds_t-vj2*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0;
5799 : 0 : vdj2_Vb_ci=(-(vj2_Vb_ci/vds_t))*d10_logE0;
5800 : : #endif
5801 : 0 : vdj2=d00_logE0;
5802 : : }
5803 : : #endif
5804 : : #if defined(_DYNAMIC)
5805 : : {
5806 : 0 : double m00_exp(d00_exp0,(vdj2*ez))
5807 : : #if defined(_DERIVATE)
5808 : : #define d10_exp0 d00_exp0
5809 : : #endif
5810 : : #if defined(_DERIVATE)
5811 : 0 : qj1_Vci_ei=((cjs0_t*(-vdj2_Vci_ei*ez*d10_exp0))/ez);
5812 : 0 : qj1_Vbi_ei=((cjs0_t*(-vdj2_Vbi_ei*ez*d10_exp0))/ez);
5813 : 0 : qj1_Vs_ci=((cjs0_t*(-vdj2_Vs_ci*ez*d10_exp0))/ez);
5814 : 0 : qj1_Vbi_ci=((cjs0_t*(-vdj2_Vbi_ci*ez*d10_exp0))/ez);
5815 : 0 : qj1_Vtnode_GND=(((cjs0_t_Vtnode_GND*(1.0-d00_exp0))+(cjs0_t*(-vdj2_Vtnode_GND*ez*d10_exp0)))/ez);
5816 : 0 : qj1_Vb_ci=((cjs0_t*(-vdj2_Vb_ci*ez*d10_exp0))/ez);
5817 : : #endif
5818 : 0 : qj1=((cjs0_t*(1.0-d00_exp0))/ez);
5819 : : }
5820 : : #endif
5821 : : #if defined(_DYNAMIC)
5822 : : {
5823 : 0 : double m00_exp(d00_exp0,(vdj1*ezr))
5824 : : #if defined(_DERIVATE)
5825 : : #define d10_exp0 d00_exp0
5826 : : #endif
5827 : : #if defined(_DERIVATE)
5828 : 0 : qj2_Vci_ei=((cr*(-vdj1_Vci_ei*ezr*d10_exp0))/ezr);
5829 : 0 : qj2_Vbi_ei=((cr*(-vdj1_Vbi_ei*ezr*d10_exp0))/ezr);
5830 : 0 : qj2_Vs_ci=((cr*(-vdj1_Vs_ci*ezr*d10_exp0))/ezr);
5831 : 0 : qj2_Vbi_ci=((cr*(-vdj1_Vbi_ci*ezr*d10_exp0))/ezr);
5832 : 0 : qj2_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj1_Vtnode_GND*ezr*d10_exp0)))/ezr);
5833 : 0 : qj2_Vb_ci=((cr*(-vdj1_Vb_ci*ezr*d10_exp0))/ezr);
5834 : : #endif
5835 : 0 : qj2=((cr*(1.0-d00_exp0))/ezr);
5836 : : }
5837 : : #endif
5838 : : #if defined(_DYNAMIC)
5839 : : {
5840 : 0 : double m00_exp(d00_exp0,(vdj2*ezr))
5841 : : #if defined(_DERIVATE)
5842 : : #define d10_exp0 d00_exp0
5843 : : #endif
5844 : : #if defined(_DERIVATE)
5845 : 0 : qj3_Vci_ei=((cr*(-vdj2_Vci_ei*ezr*d10_exp0))/ezr);
5846 : 0 : qj3_Vbi_ei=((cr*(-vdj2_Vbi_ei*ezr*d10_exp0))/ezr);
5847 : 0 : qj3_Vs_ci=((cr*(-vdj2_Vs_ci*ezr*d10_exp0))/ezr);
5848 : 0 : qj3_Vbi_ci=((cr*(-vdj2_Vbi_ci*ezr*d10_exp0))/ezr);
5849 : 0 : qj3_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj2_Vtnode_GND*ezr*d10_exp0)))/ezr);
5850 : 0 : qj3_Vb_ci=((cr*(-vdj2_Vb_ci*ezr*d10_exp0))/ezr);
5851 : : #endif
5852 : 0 : qj3=((cr*(1.0-d00_exp0))/ezr);
5853 : : }
5854 : : #endif
5855 : : #if defined(_DYNAMIC)
5856 : : #if defined(_DERIVATE)
5857 : 0 : qjs_Vci_ei=(((qj1_Vci_ei+qj2_Vci_ei)-qj3_Vci_ei)*vds_t+(cmax*vj4_Vci_ei));
5858 : 0 : qjs_Vbi_ei=(((qj1_Vbi_ei+qj2_Vbi_ei)-qj3_Vbi_ei)*vds_t+(cmax*vj4_Vbi_ei));
5859 : 0 : qjs_Vs_ci=(((qj1_Vs_ci+qj2_Vs_ci)-qj3_Vs_ci)*vds_t+(cmax*vj4_Vs_ci));
5860 : 0 : qjs_Vbi_ci=(((qj1_Vbi_ci+qj2_Vbi_ci)-qj3_Vbi_ci)*vds_t+(cmax*vj4_Vbi_ci));
5861 : 0 : qjs_Vtnode_GND=(((((qj1_Vtnode_GND+qj2_Vtnode_GND)-qj3_Vtnode_GND)*vds_t)+(((qj1+qj2)-qj3)*vds_t_Vtnode_GND))+((cmax_Vtnode_GND*vj4)+(cmax*vj4_Vtnode_GND)));
5862 : 0 : qjs_Vb_ci=(((qj1_Vb_ci+qj2_Vb_ci)-qj3_Vb_ci)*vds_t+(cmax*vj4_Vb_ci));
5863 : : #endif
5864 : 0 : qjs=((((qj1+qj2)-qj3)*vds_t)+(cmax*vj4));
5865 : : #endif
5866 : : }
5867 : : else
5868 : : {
5869 : : #if defined(_DYNAMIC)
5870 : : #if defined(_DERIVATE)
5871 : 0 : qjs_Vci_ei=0.0;
5872 : 0 : qjs_Vbi_ei=0.0;
5873 : 0 : qjs_Vs_ci=0.0;
5874 : 0 : qjs_Vbi_ci=0.0;
5875 : 0 : qjs_Vtnode_GND=0.0;
5876 : 0 : qjs_Vb_ci=0.0;
5877 : : #endif
5878 : 0 : qjs=0.0;
5879 : : #endif
5880 : : }
5881 : : #endif /* if (...) */
5882 : : }
5883 : : else
5884 : : {
5885 : : #ifdef _DYNAMIC
5886 [ # # ]: 0 : if
5887 : : (cjs0_t>0.0)
5888 : : {
5889 : : #if defined(_DYNAMIC)
5890 : : {
5891 : 0 : double m00_logE(d00_logE0,2.4)
5892 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zs))
5893 : : #if defined(_DERIVATE)
5894 : 0 : vf_Vtnode_GND=vds_t_Vtnode_GND*(1.0-d00_exp1);
5895 : : #endif
5896 : 0 : vf=(vds_t*(1.0-d00_exp1));
5897 : : }
5898 : : #endif
5899 : : #if defined(_DYNAMIC)
5900 : : #if defined(_DERIVATE)
5901 : 0 : xvf_Vs_ci=((-Vsci_Vs_ci)/VT);
5902 : 0 : xvf_Vbi_ei=0.0;
5903 : 0 : xvf_Vbi_ci=0.0;
5904 : 0 : xvf_Vtnode_GND=((vf_Vtnode_GND*VT-(vf-Vsci)*VT_Vtnode_GND)/VT/VT);
5905 : 0 : xvf_Vb_ci=0.0;
5906 : : #endif
5907 : 0 : xvf=((vf-Vsci)/VT);
5908 : : #endif
5909 : : #if defined(_DYNAMIC)
5910 : : {
5911 : 0 : double m00_sqrt(d00_sqrt0,((xvf*xvf)+1.921812))
5912 : : #if defined(_DERIVATE)
5913 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((xvf*xvf)+1.921812))
5914 : : #endif
5915 : : #if defined(_DERIVATE)
5916 : 0 : xvf2_Vs_ci=((xvf_Vs_ci*xvf)+(xvf*xvf_Vs_ci))*d10_sqrt0;
5917 : 0 : xvf2_Vbi_ei=((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei))*d10_sqrt0;
5918 : 0 : xvf2_Vbi_ci=((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))*d10_sqrt0;
5919 : 0 : xvf2_Vtnode_GND=((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND))*d10_sqrt0;
5920 : 0 : xvf2_Vb_ci=((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci))*d10_sqrt0;
5921 : : #endif
5922 : 0 : xvf2=d00_sqrt0;
5923 : : }
5924 : : #endif
5925 : : #if defined(_DYNAMIC)
5926 : : #if defined(_DERIVATE)
5927 : 0 : v_j_Vs_ci=(-(VT*(xvf_Vs_ci+xvf2_Vs_ci))*0.5);
5928 : 0 : v_j_Vbi_ei=(-(VT*(xvf_Vbi_ei+xvf2_Vbi_ei))*0.5);
5929 : 0 : v_j_Vbi_ci=(-(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.5);
5930 : 0 : v_j_Vtnode_GND=(vf_Vtnode_GND-((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND)))*0.5);
5931 : 0 : v_j_Vb_ci=(-(VT*(xvf_Vb_ci+xvf2_Vb_ci))*0.5);
5932 : : #endif
5933 : 0 : v_j=(vf-((VT*(xvf+xvf2))*0.5));
5934 : : #endif
5935 : : #if defined(_DYNAMIC)
5936 : : #if defined(_DERIVATE)
5937 : 0 : x_Vci_ei=0.0;
5938 : 0 : x_Vbi_ei=0.0;
5939 : 0 : x_Vbi_ci=0.0;
5940 : 0 : x_Vtnode_GND=0.0;
5941 : 0 : x_Vb_ci=0.0;
5942 : : #endif
5943 : 0 : x=(1.0-zs);
5944 : : #endif
5945 : : #if defined(_DYNAMIC)
5946 : : {
5947 : 0 : double m00_logE(d00_logE0,(1.0-(v_j/vds_t)))
5948 : 0 : double m00_exp(d00_exp1,(x*d00_logE0))
5949 : : #if defined(_DERIVATE)
5950 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(v_j/vds_t)))
5951 : : #define d10_exp1 d00_exp1
5952 : : #endif
5953 : : #if defined(_DERIVATE)
5954 : 0 : y_Vs_ci=(-(x*(-(v_j_Vs_ci/vds_t))*d10_logE0)*d10_exp1);
5955 : 0 : y_Vci_ei=(-x_Vci_ei*d00_logE0*d10_exp1);
5956 : 0 : y_Vbi_ei=(-((x_Vbi_ei*d00_logE0)+(x*(-(v_j_Vbi_ei/vds_t))*d10_logE0))*d10_exp1);
5957 : 0 : y_Vbi_ci=(-((x_Vbi_ci*d00_logE0)+(x*(-(v_j_Vbi_ci/vds_t))*d10_logE0))*d10_exp1);
5958 : 0 : y_Vtnode_GND=(-((x_Vtnode_GND*d00_logE0)+(x*(-((v_j_Vtnode_GND*vds_t-v_j*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0))*d10_exp1);
5959 : 0 : y_Vb_ci=(-((x_Vb_ci*d00_logE0)+(x*(-(v_j_Vb_ci/vds_t))*d10_logE0))*d10_exp1);
5960 : : #endif
5961 : 0 : y=(1.0-d00_exp1);
5962 : : }
5963 : : #endif
5964 : : #if defined(_DYNAMIC)
5965 : : #if defined(_DERIVATE)
5966 : 0 : qjs_Vci_ei=((((cjs0_t*vds_t)*y_Vci_ei)*x-((cjs0_t*vds_t)*y)*x_Vci_ei)/x/x);
5967 : 0 : qjs_Vbi_ei=(((((cjs0_t*vds_t)*y_Vbi_ei)*x-((cjs0_t*vds_t)*y)*x_Vbi_ei)/x/x)+((2.4*cjs0_t)*(-v_j_Vbi_ei)));
5968 : 0 : qjs_Vs_ci=((((cjs0_t*vds_t)*y_Vs_ci)/x)+((2.4*cjs0_t)*(Vsci_Vs_ci-v_j_Vs_ci)));
5969 : 0 : qjs_Vbi_ci=(((((cjs0_t*vds_t)*y_Vbi_ci)*x-((cjs0_t*vds_t)*y)*x_Vbi_ci)/x/x)+((2.4*cjs0_t)*(-v_j_Vbi_ci)));
5970 : 0 : qjs_Vtnode_GND=(((((((cjs0_t_Vtnode_GND*vds_t)+(cjs0_t*vds_t_Vtnode_GND))*y)+((cjs0_t*vds_t)*y_Vtnode_GND))*x-((cjs0_t*vds_t)*y)*x_Vtnode_GND)/x/x)+(((2.4*cjs0_t_Vtnode_GND)*(Vsci-v_j))+((2.4*cjs0_t)*(-v_j_Vtnode_GND))));
5971 : 0 : qjs_Vb_ci=(((((cjs0_t*vds_t)*y_Vb_ci)*x-((cjs0_t*vds_t)*y)*x_Vb_ci)/x/x)+((2.4*cjs0_t)*(-v_j_Vb_ci)));
5972 : : #endif
5973 : 0 : qjs=((((cjs0_t*vds_t)*y)/x)+((2.4*cjs0_t)*(Vsci-v_j)));
5974 : : #endif
5975 : : }
5976 : : else
5977 : : {
5978 : : #if defined(_DYNAMIC)
5979 : : #if defined(_DERIVATE)
5980 : 0 : qjs_Vci_ei=0.0;
5981 : 0 : qjs_Vbi_ei=0.0;
5982 : 0 : qjs_Vs_ci=0.0;
5983 : 0 : qjs_Vbi_ci=0.0;
5984 : 0 : qjs_Vtnode_GND=0.0;
5985 : 0 : qjs_Vb_ci=0.0;
5986 : : #endif
5987 : 0 : qjs=0.00;
5988 : : #endif
5989 : : }
5990 : : #endif /* if (...) */
5991 : : }
5992 : : #endif /* if (...) */
5993 [ # # ][ # # ]: 0 : if
5994 : : ((flsh==1)&&(rth_t>=0.001))
5995 : : {
5996 : : #if defined(_DERIVATE)
5997 : 0 : pterm_Vci_c=0.0;
5998 : 0 : pterm_Vei_e=0.0;
5999 : 0 : pterm_Vb_bi=0.0;
6000 : 0 : pterm_Vs_ci=0.0;
6001 : 0 : pterm_Vtnode_GND=(it_Vtnode_GND*Vciei+((iavl_Vtnode_GND*(vdci_t-Vbici))+(iavl*vdci_t_Vtnode_GND)));
6002 : 0 : pterm_Vbi_ei=(it_Vbi_ei*Vciei+iavl_Vbi_ei*(vdci_t-Vbici));
6003 : 0 : pterm_Vbi_ci=(it_Vbi_ci*Vciei+((iavl_Vbi_ci*(vdci_t-Vbici))+(iavl*(-Vbici_Vbi_ci))));
6004 : 0 : pterm_Vb_ci=(it_Vb_ci*Vciei+iavl_Vb_ci*(vdci_t-Vbici));
6005 : 0 : pterm_Vci_ei=(((it_Vci_ei*Vciei)+(it*Vciei_Vci_ei))+iavl_Vci_ei*(vdci_t-Vbici));
6006 : : #endif
6007 : 0 : pterm=((it*Vciei)+(iavl*(vdci_t-Vbici)));
6008 : : }
6009 : : else
6010 : : {
6011 [ # # ][ # # ]: 0 : if
6012 : : ((flsh==2)&&(rth_t>=0.001))
6013 : : {
6014 : : #if defined(_DERIVATE)
6015 : 0 : pterm_Vci_c=0.0;
6016 : 0 : pterm_Vei_e=0.0;
6017 : 0 : pterm_Vb_bi=0.0;
6018 : 0 : pterm_Vs_ci=((ijsc_Vs_ci*Vsci)+(ijsc*Vsci_Vs_ci));
6019 : 0 : pterm_Vtnode_GND=(((((Vciei*it_Vtnode_GND)+((vdci_t_Vtnode_GND*iavl)+((vdci_t-Vbici)*iavl_Vtnode_GND)))+ijbe_Vtnode_GND*Vbiei)+ijbc_Vtnode_GND*Vbici)+ijsc_Vtnode_GND*Vsci);
6020 : 0 : pterm_Vbi_ei=(((((Vciei*it_Vbi_ei)+((vdci_t-Vbici)*iavl_Vbi_ei))+((ijbe_Vbi_ei*Vbiei)+(ijbe*Vbiei_Vbi_ei)))+ijbc_Vbi_ei*Vbici)+ijsc_Vbi_ei*Vsci);
6021 : 0 : pterm_Vbi_ci=(((((Vciei*it_Vbi_ci)+(((-Vbici_Vbi_ci)*iavl)+((vdci_t-Vbici)*iavl_Vbi_ci)))+ijbe_Vbi_ci*Vbiei)+((ijbc_Vbi_ci*Vbici)+(ijbc*Vbici_Vbi_ci)))+ijsc_Vbi_ci*Vsci);
6022 : 0 : pterm_Vb_ci=(((Vciei*it_Vb_ci)+((vdci_t-Vbici)*iavl_Vb_ci))+ijbe_Vb_ci*Vbiei);
6023 : 0 : pterm_Vci_ei=((((Vciei_Vci_ei*it)+(Vciei*it_Vci_ei))+((vdci_t-Vbici)*iavl_Vci_ei))+ijbe_Vci_ei*Vbiei);
6024 : : #endif
6025 : 0 : pterm=(((((Vciei*it)+((vdci_t-Vbici)*iavl))+(ijbe*Vbiei))+(ijbc*Vbici))+(ijsc*Vsci));
6026 [ # # ]: 0 : if
6027 : : (rb>=0.001)
6028 : : {
6029 : : #if defined(_DERIVATE)
6030 : 0 : pterm_Vci_c=0.0;
6031 : 0 : pterm_Vei_e=0.0;
6032 : 0 : pterm_Vb_bi=(pterm_Vb_bi+(((Vbbi_Vb_bi*Vbbi)+(Vbbi*Vbbi_Vb_bi))/rb));
6033 : 0 : pterm_Vs_ci=pterm_Vs_ci;
6034 : 0 : pterm_Vtnode_GND=(pterm_Vtnode_GND+(-(Vbbi*Vbbi)*rb_Vtnode_GND/rb/rb));
6035 : 0 : pterm_Vbi_ei=(pterm_Vbi_ei+(-(Vbbi*Vbbi)*rb_Vbi_ei/rb/rb));
6036 : 0 : pterm_Vbi_ci=(pterm_Vbi_ci+(-(Vbbi*Vbbi)*rb_Vbi_ci/rb/rb));
6037 : 0 : pterm_Vb_ci=(pterm_Vb_ci+(-(Vbbi*Vbbi)*rb_Vb_ci/rb/rb));
6038 : 0 : pterm_Vci_ei=(pterm_Vci_ei+(-(Vbbi*Vbbi)*rb_Vci_ei/rb/rb));
6039 : : #endif
6040 : 0 : pterm=(pterm+((Vbbi*Vbbi)/rb));
6041 : : }
6042 [ # # ]: 0 : if
6043 : : (re_t>=0.001)
6044 : : {
6045 : : #if defined(_DERIVATE)
6046 : 0 : pterm_Vci_c=0.0;
6047 : 0 : pterm_Vei_e=(pterm_Vei_e+(((Veie_Vei_e*Veie)+(Veie*Veie_Vei_e))/re_t));
6048 : 0 : pterm_Vb_bi=pterm_Vb_bi;
6049 : 0 : pterm_Vs_ci=pterm_Vs_ci;
6050 : 0 : pterm_Vtnode_GND=(pterm_Vtnode_GND+(-(Veie*Veie)*re_t_Vtnode_GND/re_t/re_t));
6051 : 0 : pterm_Vbi_ei=pterm_Vbi_ei;
6052 : 0 : pterm_Vbi_ci=pterm_Vbi_ci;
6053 : 0 : pterm_Vb_ci=pterm_Vb_ci;
6054 : 0 : pterm_Vci_ei=pterm_Vci_ei;
6055 : : #endif
6056 : 0 : pterm=(pterm+((Veie*Veie)/re_t));
6057 : : }
6058 [ # # ]: 0 : if
6059 : : (rcx_t>=0.001)
6060 : : {
6061 : : #if defined(_DERIVATE)
6062 : 0 : pterm_Vci_c=(pterm_Vci_c+(((Vcic_Vci_c*Vcic)+(Vcic*Vcic_Vci_c))/rcx_t));
6063 : 0 : pterm_Vei_e=pterm_Vei_e;
6064 : 0 : pterm_Vb_bi=pterm_Vb_bi;
6065 : 0 : pterm_Vs_ci=pterm_Vs_ci;
6066 : 0 : pterm_Vtnode_GND=(pterm_Vtnode_GND+(-(Vcic*Vcic)*rcx_t_Vtnode_GND/rcx_t/rcx_t));
6067 : 0 : pterm_Vbi_ei=pterm_Vbi_ei;
6068 : 0 : pterm_Vbi_ci=pterm_Vbi_ci;
6069 : 0 : pterm_Vb_ci=pterm_Vb_ci;
6070 : 0 : pterm_Vci_ei=pterm_Vci_ei;
6071 : : #endif
6072 : 0 : pterm=(pterm+((Vcic*Vcic)/rcx_t));
6073 : : }
6074 : : }
6075 : : }
6076 : : #if defined(_DERIVATE)
6077 : 0 : Ibici_Vtnode_GND=(ijbc_Vtnode_GND-iavl_Vtnode_GND);
6078 : 0 : Ibici_Vbi_ci=(ijbc_Vbi_ci-iavl_Vbi_ci);
6079 : 0 : Ibici_Vbi_ei=(ijbc_Vbi_ei-iavl_Vbi_ei);
6080 : 0 : Ibici_Vb_ci=(-iavl_Vb_ci);
6081 : 0 : Ibici_Vci_ei=(-iavl_Vci_ei);
6082 : : #endif
6083 : 0 : Ibici=(ijbc-iavl);
6084 : : #if defined(_DYNAMIC)
6085 : : #if defined(_DERIVATE)
6086 : 0 : Qbci_Vb_ci=(cbcpar*Vbci_Vb_ci);
6087 : : #endif
6088 : 0 : Qbci=(cbcpar*Vbci);
6089 : : #endif
6090 : : #if defined(_DYNAMIC)
6091 : : #if defined(_DERIVATE)
6092 : 0 : Qbe_Vb_e=(cbepar*Vbe_Vb_e);
6093 : : #endif
6094 : 0 : Qbe=(cbepar*Vbe);
6095 : : #endif
6096 : : #if defined(_DYNAMIC)
6097 : : #if defined(_DERIVATE)
6098 : 0 : Qbici_Vbi_ci=(qjcii_Vbi_ci+qr_Vbi_ci);
6099 : 0 : Qbici_Vtnode_GND=(qjcii_Vtnode_GND+qr_Vtnode_GND);
6100 : 0 : Qbici_Vb_ci=(qjcii_Vb_ci+qr_Vb_ci);
6101 : 0 : Qbici_Vbi_ei=qr_Vbi_ei;
6102 : 0 : Qbici_Vci_ei=qr_Vci_ei;
6103 : : #endif
6104 : 0 : Qbici=(qjcii+qr);
6105 : : #endif
6106 : : #if defined(_DYNAMIC)
6107 : : #if defined(_DERIVATE)
6108 : 0 : Qbiei_Vtnode_GND=(qjei_Vtnode_GND+qf_Vtnode_GND);
6109 : 0 : Qbiei_Vci_ei=(qjei_Vci_ei+qf_Vci_ei);
6110 : 0 : Qbiei_Vbi_ei=(qjei_Vbi_ei+qf_Vbi_ei);
6111 : 0 : Qbiei_Vbi_ci=(qjei_Vbi_ci+qf_Vbi_ci);
6112 : 0 : Qbiei_Vb_ci=(qjei_Vb_ci+qf_Vb_ci);
6113 : : #endif
6114 : 0 : Qbiei=(qjei+qf);
6115 : : #endif
6116 : : #if defined(_DERIVATE)
6117 : 0 : ijsc_Vtnode_GND=(HICUMtype*ijsc_Vtnode_GND);
6118 : 0 : ijsc_Vs_ci=(HICUMtype*ijsc_Vs_ci);
6119 : 0 : ijsc_Vbi_ci=(HICUMtype*ijsc_Vbi_ci);
6120 : 0 : ijsc_Vbi_ei=(HICUMtype*ijsc_Vbi_ei);
6121 : : #endif
6122 : 0 : ijsc=(HICUMtype*ijsc);
6123 : : #if defined(_DYNAMIC)
6124 : : #if defined(_DERIVATE)
6125 : 0 : qjs_Vci_ei=(HICUMtype*qjs_Vci_ei);
6126 : 0 : qjs_Vbi_ei=(HICUMtype*qjs_Vbi_ei);
6127 : 0 : qjs_Vs_ci=(HICUMtype*qjs_Vs_ci);
6128 : 0 : qjs_Vbi_ci=(HICUMtype*qjs_Vbi_ci);
6129 : 0 : qjs_Vtnode_GND=(HICUMtype*qjs_Vtnode_GND);
6130 : 0 : qjs_Vb_ci=(HICUMtype*qjs_Vb_ci);
6131 : : #endif
6132 : 0 : qjs=(HICUMtype*qjs);
6133 : : #endif
6134 : : #if defined(_DYNAMIC)
6135 : : #if defined(_DERIVATE)
6136 : 0 : qjcx_Vbi_ci=(HICUMtype*qjcx_Vbi_ci);
6137 : 0 : qjcx_Vtnode_GND=(HICUMtype*qjcx_Vtnode_GND);
6138 : 0 : qjcx_Vb_ci=(HICUMtype*qjcx_Vb_ci);
6139 : : #endif
6140 : 0 : qjcx=(HICUMtype*qjcx);
6141 : : #endif
6142 : : #if defined(_DYNAMIC)
6143 : : #if defined(_DERIVATE)
6144 : 0 : Qbci_Vb_ci=(HICUMtype*Qbci_Vb_ci);
6145 : : #endif
6146 : 0 : Qbci=(HICUMtype*Qbci);
6147 : : #endif
6148 : : #if defined(_DYNAMIC)
6149 : : #if defined(_DERIVATE)
6150 : 0 : Qbe_Vb_e=(HICUMtype*Qbe_Vb_e);
6151 : : #endif
6152 : 0 : Qbe=(HICUMtype*Qbe);
6153 : : #endif
6154 : : #if defined(_DERIVATE)
6155 : 0 : Ibici_Vtnode_GND=(HICUMtype*Ibici_Vtnode_GND);
6156 : 0 : Ibici_Vbi_ci=(HICUMtype*Ibici_Vbi_ci);
6157 : 0 : Ibici_Vbi_ei=(HICUMtype*Ibici_Vbi_ei);
6158 : 0 : Ibici_Vb_ci=(HICUMtype*Ibici_Vb_ci);
6159 : 0 : Ibici_Vci_ei=(HICUMtype*Ibici_Vci_ei);
6160 : : #endif
6161 : 0 : Ibici=(HICUMtype*Ibici);
6162 : : #if defined(_DYNAMIC)
6163 : : #if defined(_DERIVATE)
6164 : 0 : Qbici_Vbi_ci=(HICUMtype*Qbici_Vbi_ci);
6165 : 0 : Qbici_Vtnode_GND=(HICUMtype*Qbici_Vtnode_GND);
6166 : 0 : Qbici_Vb_ci=(HICUMtype*Qbici_Vb_ci);
6167 : 0 : Qbici_Vbi_ei=(HICUMtype*Qbici_Vbi_ei);
6168 : 0 : Qbici_Vci_ei=(HICUMtype*Qbici_Vci_ei);
6169 : : #endif
6170 : 0 : Qbici=(HICUMtype*Qbici);
6171 : : #endif
6172 : : #if defined(_DERIVATE)
6173 : 0 : ijbe_Vtnode_GND=(HICUMtype*ijbe_Vtnode_GND);
6174 : 0 : ijbe_Vbi_ei=(HICUMtype*ijbe_Vbi_ei);
6175 : 0 : ijbe_Vci_ei=(HICUMtype*ijbe_Vci_ei);
6176 : 0 : ijbe_Vbi_ci=(HICUMtype*ijbe_Vbi_ci);
6177 : 0 : ijbe_Vb_ci=(HICUMtype*ijbe_Vb_ci);
6178 : : #endif
6179 : 0 : ijbe=(HICUMtype*ijbe);
6180 : : #if defined(_DYNAMIC)
6181 : : #if defined(_DERIVATE)
6182 : 0 : Qbiei_Vtnode_GND=(HICUMtype*Qbiei_Vtnode_GND);
6183 : 0 : Qbiei_Vci_ei=(HICUMtype*Qbiei_Vci_ei);
6184 : 0 : Qbiei_Vbi_ei=(HICUMtype*Qbiei_Vbi_ei);
6185 : 0 : Qbiei_Vbi_ci=(HICUMtype*Qbiei_Vbi_ci);
6186 : 0 : Qbiei_Vb_ci=(HICUMtype*Qbiei_Vb_ci);
6187 : : #endif
6188 : 0 : Qbiei=(HICUMtype*Qbiei);
6189 : : #endif
6190 : : #if defined(_DERIVATE)
6191 : 0 : it_Vtnode_GND=(HICUMtype*it_Vtnode_GND);
6192 : 0 : it_Vbi_ei=(HICUMtype*it_Vbi_ei);
6193 : 0 : it_Vbi_ci=(HICUMtype*it_Vbi_ci);
6194 : 0 : it_Vb_ci=(HICUMtype*it_Vb_ci);
6195 : 0 : it_Vci_ei=(HICUMtype*it_Vci_ei);
6196 : : #endif
6197 : 0 : it=(HICUMtype*it);
6198 [ # # ][ # # ]: 0 : _load_static_residual2(bi,ei,(1.0e-12*BP(bi,ei)));
6199 : : #if defined(_DERIVATE)
6200 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,bi,ei,(1.0e-12));
[ # # ][ # # ]
[ # # ]
6201 : : #endif
6202 [ # # ][ # # ]: 0 : _load_static_residual2(bi,ci,(1.0e-12*BP(bi,ci)));
6203 : : #if defined(_DERIVATE)
6204 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ci,bi,ci,(1.0e-12));
[ # # ][ # # ]
[ # # ]
6205 : : #endif
6206 : 0 : _load_static_residual2(b,s,HSI_Tsu);
6207 : : #if defined(_DERIVATE)
6208 [ # # ][ # # ]: 0 : _load_static_jacobian4(b,s,s,ci,HSI_Tsu_Vs_ci);
[ # # ][ # # ]
[ # # ]
6209 [ # # ][ # # ]: 0 : _load_static_jacobian4(b,s,b,ci,HSI_Tsu_Vb_ci);
[ # # ][ # # ]
[ # # ]
6210 [ # # ]: 0 : _load_static_jacobian2s(b,s,tnode,HSI_Tsu_Vtnode_GND);
6211 : : #endif
6212 : 0 : _load_static_residual2(s,ci,ijsc);
6213 : : #if defined(_DERIVATE)
6214 [ # # ][ # # ]: 0 : _load_static_jacobian4(s,ci,bi,ei,ijsc_Vbi_ei);
[ # # ][ # # ]
[ # # ]
6215 [ # # ][ # # ]: 0 : _load_static_jacobian4(s,ci,bi,ci,ijsc_Vbi_ci);
[ # # ][ # # ]
[ # # ]
6216 [ # # ][ # # ]: 0 : _load_static_jacobian4(s,ci,s,ci,ijsc_Vs_ci);
[ # # ][ # # ]
[ # # ]
6217 [ # # ]: 0 : _load_static_jacobian2s(s,ci,tnode,ijsc_Vtnode_GND);
6218 : : #endif
6219 : : #if defined(_DYNAMIC)
6220 [ # # ][ # # ]: 0 : _load_dynamic_residual2(s,ci,_DDT(qjs));
6221 : : #if defined(_DERIVATE)
6222 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(s,ci,b,ci,qjs_Vb_ci);
[ # # ][ # # ]
[ # # ]
6223 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(s,ci,tnode,qjs_Vtnode_GND);
[ # # ]
6224 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(s,ci,bi,ci,qjs_Vbi_ci);
[ # # ][ # # ]
[ # # ]
6225 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(s,ci,s,ci,qjs_Vs_ci);
[ # # ][ # # ]
[ # # ]
6226 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(s,ci,bi,ei,qjs_Vbi_ei);
[ # # ][ # # ]
[ # # ]
6227 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(s,ci,ci,ei,qjs_Vci_ei);
[ # # ][ # # ]
[ # # ]
6228 : : #endif
6229 : : #endif
6230 : : #if defined(_DYNAMIC)
6231 [ # # ][ # # ]: 0 : _load_dynamic_residual2(b,ci,_DDT(qjcx));
6232 : : #if defined(_DERIVATE)
6233 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(b,ci,b,ci,qjcx_Vb_ci);
[ # # ][ # # ]
[ # # ]
6234 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(b,ci,tnode,qjcx_Vtnode_GND);
[ # # ]
6235 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(b,ci,bi,ci,qjcx_Vbi_ci);
[ # # ][ # # ]
[ # # ]
6236 : : #endif
6237 : : #endif
6238 : : #if defined(_DYNAMIC)
6239 [ # # ][ # # ]: 0 : _load_dynamic_residual2(b,ci,_DDT(Qbci));
6240 : : #if defined(_DERIVATE)
6241 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(b,ci,b,ci,Qbci_Vb_ci);
[ # # ][ # # ]
[ # # ]
6242 : : #endif
6243 : : #endif
6244 : : #if defined(_DYNAMIC)
6245 [ # # ][ # # ]: 0 : _load_dynamic_residual2(b,e,_DDT(Qbe));
6246 : : #if defined(_DERIVATE)
6247 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(b,e,b,e,Qbe_Vb_e);
[ # # ][ # # ]
[ # # ]
6248 : : #endif
6249 : : #endif
6250 [ # # ]: 0 : if
6251 : : (re>=0.001)
6252 : : {
6253 : 0 : _load_static_residual2(ei,e,(Veie/re_t));
6254 : : #if defined(_DERIVATE)
6255 [ # # ]: 0 : _load_static_jacobian2s(ei,e,tnode,(-Veie*re_t_Vtnode_GND/re_t/re_t));
6256 [ # # ][ # # ]: 0 : _load_static_jacobian4(ei,e,ei,e,(Veie_Vei_e/re_t));
[ # # ][ # # ]
[ # # ]
6257 : : #endif
6258 : : }
6259 : : else
6260 : : {
6261 [ # # ][ # # ]: 0 : _load_static_residual2(ei,e,(BP(ei,e)/1e-6));
6262 : : #if defined(_DERIVATE)
6263 [ # # ][ # # ]: 0 : _load_static_jacobian4(ei,e,ei,e,(1/1e-6));
[ # # ][ # # ]
[ # # ]
6264 : : #endif
6265 : : }
6266 [ # # ]: 0 : if
6267 : : (rcx>=0.001)
6268 : : {
6269 : 0 : _load_static_residual2(ci,c,(Vcic/rcx_t));
6270 : : #if defined(_DERIVATE)
6271 [ # # ]: 0 : _load_static_jacobian2s(ci,c,tnode,(-Vcic*rcx_t_Vtnode_GND/rcx_t/rcx_t));
6272 [ # # ][ # # ]: 0 : _load_static_jacobian4(ci,c,ci,c,(Vcic_Vci_c/rcx_t));
[ # # ][ # # ]
[ # # ]
6273 : : #endif
6274 : : }
6275 : : else
6276 : : {
6277 [ # # ][ # # ]: 0 : _load_static_residual2(ci,c,(BP(ci,c)/1e-6));
6278 : : #if defined(_DERIVATE)
6279 [ # # ][ # # ]: 0 : _load_static_jacobian4(ci,c,ci,c,(1/1e-6));
[ # # ][ # # ]
[ # # ]
6280 : : #endif
6281 : : }
6282 [ # # ][ # # ]: 0 : if
6283 : : ((rbi0>=0.001)||(rbx>=0.001))
6284 : : {
6285 : 0 : _load_static_residual2(b,bi,(Vbbi/rb));
6286 : : #if defined(_DERIVATE)
6287 [ # # ][ # # ]: 0 : _load_static_jacobian4(b,bi,b,ci,(-Vbbi*rb_Vb_ci/rb/rb));
[ # # ][ # # ]
[ # # ]
6288 [ # # ][ # # ]: 0 : _load_static_jacobian4(b,bi,bi,ci,(-Vbbi*rb_Vbi_ci/rb/rb));
[ # # ][ # # ]
[ # # ]
6289 [ # # ][ # # ]: 0 : _load_static_jacobian4(b,bi,bi,ei,(-Vbbi*rb_Vbi_ei/rb/rb));
[ # # ][ # # ]
[ # # ]
6290 [ # # ][ # # ]: 0 : _load_static_jacobian4(b,bi,ci,ei,(-Vbbi*rb_Vci_ei/rb/rb));
[ # # ][ # # ]
[ # # ]
6291 [ # # ]: 0 : _load_static_jacobian2s(b,bi,tnode,(-Vbbi*rb_Vtnode_GND/rb/rb));
6292 [ # # ][ # # ]: 0 : _load_static_jacobian4(b,bi,b,bi,(Vbbi_Vb_bi/rb));
[ # # ][ # # ]
[ # # ]
6293 : : #endif
6294 : : }
6295 : : else
6296 : : {
6297 [ # # ][ # # ]: 0 : _load_static_residual2(b,bi,(BP(b,bi)/1e-6));
6298 : : #if defined(_DERIVATE)
6299 [ # # ][ # # ]: 0 : _load_static_jacobian4(b,bi,b,bi,(1/1e-6));
[ # # ][ # # ]
[ # # ]
6300 : : #endif
6301 : : }
6302 : 0 : _load_static_residual2(bi,ci,Ibici);
6303 : : #if defined(_DERIVATE)
6304 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ci,ci,ei,Ibici_Vci_ei);
[ # # ][ # # ]
[ # # ]
6305 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ci,b,ci,Ibici_Vb_ci);
[ # # ][ # # ]
[ # # ]
6306 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ci,bi,ei,Ibici_Vbi_ei);
[ # # ][ # # ]
[ # # ]
6307 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ci,bi,ci,Ibici_Vbi_ci);
[ # # ][ # # ]
[ # # ]
6308 [ # # ]: 0 : _load_static_jacobian2s(bi,ci,tnode,Ibici_Vtnode_GND);
6309 : : #endif
6310 : : #if defined(_DYNAMIC)
6311 [ # # ][ # # ]: 0 : _load_dynamic_residual2(bi,ci,_DDT(Qbici));
6312 : : #if defined(_DERIVATE)
6313 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ci,ci,ei,Qbici_Vci_ei);
[ # # ][ # # ]
[ # # ]
6314 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ci,bi,ei,Qbici_Vbi_ei);
[ # # ][ # # ]
[ # # ]
6315 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ci,b,ci,Qbici_Vb_ci);
[ # # ][ # # ]
[ # # ]
6316 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(bi,ci,tnode,Qbici_Vtnode_GND);
[ # # ]
6317 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ci,bi,ci,Qbici_Vbi_ci);
[ # # ][ # # ]
[ # # ]
6318 : : #endif
6319 : : #endif
6320 : 0 : _load_static_residual2(bi,ei,ijbe);
6321 : : #if defined(_DERIVATE)
6322 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,b,ci,ijbe_Vb_ci);
[ # # ][ # # ]
[ # # ]
6323 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,bi,ci,ijbe_Vbi_ci);
[ # # ][ # # ]
[ # # ]
6324 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,ci,ei,ijbe_Vci_ei);
[ # # ][ # # ]
[ # # ]
6325 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,bi,ei,ijbe_Vbi_ei);
[ # # ][ # # ]
[ # # ]
6326 [ # # ]: 0 : _load_static_jacobian2s(bi,ei,tnode,ijbe_Vtnode_GND);
6327 : : #endif
6328 : : #if defined(_DYNAMIC)
6329 [ # # ][ # # ]: 0 : _load_dynamic_residual2(bi,ei,_DDT(Qbiei));
6330 : : #if defined(_DERIVATE)
6331 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ei,b,ci,Qbiei_Vb_ci);
[ # # ][ # # ]
[ # # ]
6332 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ei,bi,ci,Qbiei_Vbi_ci);
[ # # ][ # # ]
[ # # ]
6333 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ei,bi,ei,Qbiei_Vbi_ei);
[ # # ][ # # ]
[ # # ]
6334 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ei,ci,ei,Qbiei_Vci_ei);
[ # # ][ # # ]
[ # # ]
6335 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(bi,ei,tnode,Qbiei_Vtnode_GND);
[ # # ]
6336 : : #endif
6337 : : #endif
6338 : 0 : _load_static_residual2(ci,ei,it);
6339 : : #if defined(_DERIVATE)
6340 [ # # ][ # # ]: 0 : _load_static_jacobian4(ci,ei,ci,ei,it_Vci_ei);
[ # # ][ # # ]
[ # # ]
6341 [ # # ][ # # ]: 0 : _load_static_jacobian4(ci,ei,b,ci,it_Vb_ci);
[ # # ][ # # ]
[ # # ]
6342 [ # # ][ # # ]: 0 : _load_static_jacobian4(ci,ei,bi,ci,it_Vbi_ci);
[ # # ][ # # ]
[ # # ]
6343 [ # # ][ # # ]: 0 : _load_static_jacobian4(ci,ei,bi,ei,it_Vbi_ei);
[ # # ][ # # ]
[ # # ]
6344 [ # # ]: 0 : _load_static_jacobian2s(ci,ei,tnode,it_Vtnode_GND);
6345 : : #endif
6346 [ # # ][ # # ]: 0 : if
6347 : : ((flsh==0)||(rth<0.001))
6348 : : {
6349 : 0 : _load_static_residual1(tnode,(Vrth/0.001));
6350 : : #if defined(_DERIVATE)
6351 [ # # ]: 0 : _load_static_jacobian1(tnode,tnode,(Vrth_Vtnode_GND/0.001));
6352 : : #endif
6353 : : }
6354 : : else
6355 : : {
6356 : 0 : _load_static_residual1(tnode,((Vrth/rth_t)-pterm));
6357 : : #if defined(_DERIVATE)
6358 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,ci,ei,(-pterm_Vci_ei));
[ # # ]
6359 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,b,ci,(-pterm_Vb_ci));
[ # # ]
6360 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,bi,ci,(-pterm_Vbi_ci));
[ # # ]
6361 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,bi,ei,(-pterm_Vbi_ei));
[ # # ]
6362 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,s,ci,(-pterm_Vs_ci));
[ # # ]
6363 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,b,bi,(-pterm_Vb_bi));
[ # # ]
6364 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,ei,e,(-pterm_Vei_e));
[ # # ]
6365 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,ci,c,(-pterm_Vci_c));
[ # # ]
6366 [ # # ]: 0 : _load_static_jacobian1(tnode,tnode,(((Vrth_Vtnode_GND*rth_t-Vrth*rth_t_Vtnode_GND)/rth_t/rth_t)-pterm_Vtnode_GND));
6367 : : #endif
6368 : : #if defined(_DYNAMIC)
6369 [ # # ][ # # ]: 0 : _load_dynamic_residual1(tnode,_DDT((cth*Vrth)));
6370 : : #if defined(_DERIVATE)
6371 [ # # ][ # # ]: 0 : _load_dynamic_jacobian1(tnode,tnode,(cth*Vrth_Vtnode_GND));
[ # # ]
6372 : : #endif
6373 : : #endif
6374 : : }
6375 : : #if defined(_DERIVATE)
6376 : 0 : fourkt_Vtnode_GND=((4.0*1.3806503e-23)*Tdev_Vtnode_GND);
6377 : : #endif
6378 : 0 : fourkt=((4.0*1.3806503e-23)*Tdev);
6379 [ # # ][ # # ]: 0 : if
6380 : : ((rbx>=0.001)||(rbi0>=0.001))
6381 : : {
6382 : 0 : _save_whitenoise2(b,bi,(fourkt/rb),NULL);
6383 : : }
6384 [ # # ]: 0 : if
6385 : : (rcx>=0.001)
6386 : : {
6387 : 0 : _save_whitenoise2(ci,c,(fourkt/rcx_t),NULL);
6388 : : }
6389 [ # # ]: 0 : if
6390 : : (re>=0.001)
6391 : : {
6392 : 0 : _save_whitenoise2(ei,e,(fourkt/re_t),NULL);
6393 : : }
6394 : 0 : twoq=(2.0*1.602176462e-19);
6395 : 0 : _save_whitenoise2(bi,ei,(twoq*ijbe),NULL);
6396 : 0 : _save_whitenoise2(ci,ei,(twoq*it),NULL);
6397 : : {
6398 : 0 : double m00_pow(d00_pow0,ijbe,af)
6399 : : #if defined(_DERIVATE)
6400 [ # # ]: 0 : double m10_pow(d10_pow0,d00_pow0,ijbe,af)
6401 : : #endif
6402 : : #if defined(_DERIVATE)
6403 : 0 : flicker_Pwr_Vtnode_GND=(kf*(d10_pow0*ijbe_Vtnode_GND));
6404 : 0 : flicker_Pwr_Vbi_ei=(kf*(d10_pow0*ijbe_Vbi_ei));
6405 : 0 : flicker_Pwr_Vci_ei=(kf*(d10_pow0*ijbe_Vci_ei));
6406 : 0 : flicker_Pwr_Vbi_ci=(kf*(d10_pow0*ijbe_Vbi_ci));
6407 : 0 : flicker_Pwr_Vb_ci=(kf*(d10_pow0*ijbe_Vb_ci));
6408 : : #endif
6409 : 0 : flicker_Pwr=(kf*d00_pow0);
6410 : : }
6411 : 0 : _save_flickernoise2(bi,ei,flicker_Pwr,1.0,NULL);
6412 : :
6413 : : /* ------------------ end of verilog analog equations --------------------- */
6414 : :
6415 : : /* ------------------ evaluate verilog noise equations -------------------- */
6416 : :
6417 : : /* ------------------- end of verilog noise equations --------------------- */
6418 : 0 : }
6419 : :
6420 : : /* Perform DC iteration. */
6421 : 0 : void hicumL0V1p2g::calcDC (void)
6422 : : {
6423 : : // evaluate Verilog code
6424 : 0 : initVerilog ();
6425 : 0 : calcVerilog ();
6426 : :
6427 : : // fill right hand side and static jacobian
6428 [ # # ]: 0 : for (int i1 = 0; i1 < 8; i1++) {
6429 [ # # ]: 0 : setI (i1, _rhs[i1]);
6430 [ # # ]: 0 : for (int i2 = 0; i2 < 8; i2++) {
6431 [ # # ]: 0 : setY (i1, i2, _jstat[i1][i2]);
6432 : : }
6433 : : }
6434 : 0 : }
6435 : :
6436 : : /* Save operating points. */
6437 : 0 : void hicumL0V1p2g::saveOperatingPoints (void)
6438 : : {
6439 : : // save global instance operating points
6440 : 0 : setOperatingPoint ("qjci", qjci);
6441 : 0 : setOperatingPoint ("qjei", qjei);
6442 : 0 : setOperatingPoint ("cjei", cjei);
6443 : 0 : setOperatingPoint ("it", it);
6444 : 0 : setOperatingPoint ("ijbc", ijbc);
6445 : 0 : setOperatingPoint ("iavl", iavl);
6446 : 0 : setOperatingPoint ("ijsc", ijsc);
6447 : 0 : setOperatingPoint ("Ieei", Ieei);
6448 : 0 : setOperatingPoint ("Icci", Icci);
6449 : 0 : setOperatingPoint ("Ibbi", Ibbi);
6450 : 0 : setOperatingPoint ("Ibici", Ibici);
6451 : 0 : setOperatingPoint ("ijbe", ijbe);
6452 : 0 : }
6453 : :
6454 : : /* Load operating points. */
6455 : 0 : void hicumL0V1p2g::loadOperatingPoints (void)
6456 : : {
6457 : 0 : }
6458 : :
6459 : : /* Calculate operating points. */
6460 : 0 : void hicumL0V1p2g::calcOperatingPoints (void)
6461 : : {
6462 : 0 : }
6463 : :
6464 : : /* Initialization of AC analysis. */
6465 : 0 : void hicumL0V1p2g::initAC (void)
6466 : : {
6467 : 0 : allocMatrixMNA ();
6468 : 0 : }
6469 : :
6470 : : /* Perform AC calculations. */
6471 : 0 : void hicumL0V1p2g::calcAC (nr_double_t frequency)
6472 : : {
6473 [ # # ]: 0 : setMatrixY (calcMatrixY (frequency));
6474 : 0 : }
6475 : :
6476 : : /* Compute Y-matrix for AC analysis. */
6477 : 0 : matrix hicumL0V1p2g::calcMatrixY (nr_double_t frequency)
6478 : : {
6479 : 0 : _freq = frequency;
6480 : 0 : saveOperatingPoints ();
6481 : 0 : matrix y (8);
6482 : :
6483 [ # # ]: 0 : for (int i1 = 0; i1 < 8; i1++) {
6484 [ # # ]: 0 : for (int i2 = 0; i2 < 8; i2++) {
6485 : 0 : y (i1,i2) = nr_complex_t (_jstat[i1][i2], _jdyna[i1][i2] * 2 * M_PI * _freq);
6486 : : }
6487 : : }
6488 : :
6489 : 0 : return y;
6490 : : }
6491 : :
6492 : : /* Initialization of S-parameter analysis. */
6493 : 0 : void hicumL0V1p2g::initSP (void)
6494 : : {
6495 : 0 : allocMatrixS ();
6496 : 0 : }
6497 : :
6498 : : /* Perform S-parameter calculations. */
6499 : 0 : void hicumL0V1p2g::calcSP (nr_double_t frequency)
6500 : : {
6501 [ # # ][ # # ]: 0 : setMatrixS (ytos (calcMatrixY (frequency)));
[ # # ][ # # ]
[ # # ]
6502 : 0 : }
6503 : :
6504 : : /* Initialization of transient analysis. */
6505 : 0 : void hicumL0V1p2g::initTR (void)
6506 : : {
6507 : 0 : setStates (2 * 8 * 8);
6508 : 0 : initDC ();
6509 : 0 : }
6510 : :
6511 : : /* Perform transient analysis iteration step. */
6512 : 0 : void hicumL0V1p2g::calcTR (nr_double_t)
6513 : : {
6514 : 0 : doHB = 0;
6515 : 0 : doAC = 1;
6516 : 0 : doTR = 1;
6517 : 0 : calcDC ();
6518 : :
6519 : : int i1, i2, i3, i4, state;
6520 : :
6521 : : // 2-node charge integrations
6522 [ # # ]: 0 : for (i1 = 0; i1 < 8; i1++) {
6523 [ # # ]: 0 : for (i2 = 0; i2 < 8; i2++) {
6524 : 0 : state = 2 * (i2 + 8 * i1);
6525 [ # # ]: 0 : if (i1 != i2)
6526 [ # # ]: 0 : if (_charges[i1][i2] != 0.0)
6527 : 0 : transientCapacitanceQ (state, i1, i2, _charges[i1][i2]);
6528 : : } }
6529 : :
6530 : : // 1-node charge integrations
6531 [ # # ]: 0 : for (i1 = 0; i1 < 8; i1++) {
6532 : 0 : state = 2 * (i1 + 8 * i1);
6533 [ # # ]: 0 : if (_charges[i1][i1] != 0.0)
6534 : 0 : transientCapacitanceQ (state, i1, _charges[i1][i1]);
6535 : : }
6536 : :
6537 : : // charge: 2-node, voltage: 2-node
6538 [ # # ]: 0 : for (i1 = 0; i1 < 8; i1++) {
6539 [ # # ]: 0 : for (i2 = 0; i2 < 8; i2++) {
6540 [ # # ]: 0 : if (i1 != i2)
6541 [ # # ]: 0 : for (i3 = 0; i3 < 8; i3++) {
6542 [ # # ]: 0 : for (i4 = 0; i4 < 8; i4++) {
6543 [ # # ]: 0 : if (i3 != i4)
6544 [ # # ]: 0 : if (_caps[i1][i2][i3][i4] != 0.0)
6545 [ # # ][ # # ]: 0 : transientCapacitanceC (i1, i2, i3, i4, _caps[i1][i2][i3][i4], BP(i3,i4));
6546 : : } } } }
6547 : :
6548 : : // charge: 2-node, voltage: 1-node
6549 [ # # ]: 0 : for (i1 = 0; i1 < 8; i1++) {
6550 [ # # ]: 0 : for (i2 = 0; i2 < 8; i2++) {
6551 [ # # ]: 0 : if (i1 != i2)
6552 [ # # ]: 0 : for (i3 = 0; i3 < 8; i3++) {
6553 [ # # ]: 0 : if (_caps[i1][i2][i3][i3] != 0.0)
6554 [ # # ]: 0 : transientCapacitanceC2Q (i1, i2, i3, _caps[i1][i2][i3][i3], NP(i3));
6555 : : } } }
6556 : :
6557 : : // charge: 1-node, voltage: 2-node
6558 [ # # ]: 0 : for (i1 = 0; i1 < 8; i1++) {
6559 [ # # ]: 0 : for (i3 = 0; i3 < 8; i3++) {
6560 [ # # ]: 0 : for (i4 = 0; i4 < 8; i4++) {
6561 [ # # ]: 0 : if (i3 != i4)
6562 [ # # ]: 0 : if (_caps[i1][i1][i3][i4] != 0.0)
6563 [ # # ][ # # ]: 0 : transientCapacitanceC2V (i1, i3, i4, _caps[i1][i1][i3][i4], BP(i3,i4));
6564 : : } } }
6565 : :
6566 : : // charge: 1-node, voltage: 1-node
6567 [ # # ]: 0 : for (i1 = 0; i1 < 8; i1++) {
6568 [ # # ]: 0 : for (i3 = 0; i3 < 8; i3++) {
6569 [ # # ]: 0 : if (_caps[i1][i1][i3][i3] != 0.0)
6570 [ # # ]: 0 : transientCapacitanceC (i1, i3, _caps[i1][i1][i3][i3], NP(i3));
6571 : : } }
6572 : 0 : }
6573 : :
6574 : : /* Compute Cy-matrix for AC noise analysis. */
6575 : 0 : matrix hicumL0V1p2g::calcMatrixCy (nr_double_t frequency)
6576 : : {
6577 : 0 : _freq = frequency;
6578 : 0 : matrix cy (8);
6579 : :
6580 : 0 : _load_flickernoise2 (bi,ei,_flicker_pwr[bi][ei],_flicker_exp[bi][ei]);
6581 : 0 : _load_whitenoise2 (ci,ei,_white_pwr[ci][ei]);
6582 : 0 : _load_whitenoise2 (b,bi,_white_pwr[b][bi]);
6583 : 0 : _load_whitenoise2 (ci,c,_white_pwr[ci][c]);
6584 : 0 : _load_whitenoise2 (ei,e,_white_pwr[ei][e]);
6585 : 0 : _load_whitenoise2 (bi,ei,_white_pwr[bi][ei]);
6586 : :
6587 : 0 : return cy;
6588 : : }
6589 : :
6590 : : /* Perform AC noise computations. */
6591 : 0 : void hicumL0V1p2g::calcNoiseAC (nr_double_t frequency)
6592 : : {
6593 [ # # ]: 0 : setMatrixN (calcMatrixCy (frequency));
6594 : 0 : }
6595 : :
6596 : : /* Perform S-parameter noise computations. */
6597 : 0 : void hicumL0V1p2g::calcNoiseSP (nr_double_t frequency)
6598 : : {
6599 [ # # ][ # # ]: 0 : setMatrixN (cytocs (calcMatrixCy (frequency) * z0, getMatrixS ()));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
6600 : 0 : }
6601 : :
6602 : : /* Initialization of HB analysis. */
6603 : 0 : void hicumL0V1p2g::initHB (int)
6604 : : {
6605 : 0 : initDC ();
6606 : 0 : allocMatrixHB ();
6607 : 0 : }
6608 : :
6609 : : /* Perform HB analysis. */
6610 : 0 : void hicumL0V1p2g::calcHB (int)
6611 : : {
6612 : 0 : doHB = 1;
6613 : 0 : doAC = 1;
6614 : 0 : doTR = 0;
6615 : :
6616 : : // jacobian dI/dV and currents get filled
6617 : 0 : calcDC ();
6618 : 0 : saveOperatingPoints ();
6619 : :
6620 : : // fill in HB matrices
6621 [ # # ]: 0 : for (int i1 = 0; i1 < 8; i1++) {
6622 [ # # ]: 0 : setQ (i1, _qhs[i1]); // charges
6623 [ # # ]: 0 : setCV (i1, _chs[i1]); // jacobian dQ/dV * V
6624 [ # # ]: 0 : setGV (i1, _ghs[i1]); // jacobian dI/dV * V
6625 [ # # ]: 0 : for (int i2 = 0; i2 < 8; i2++) {
6626 [ # # ]: 0 : setQV (i1, i2, _jdyna[i1][i2]); // jacobian dQ/dV
6627 : : }
6628 : : }
6629 : 0 : }
6630 : :
6631 : : #include "hicumL0V1p2g.defs.h"
6632 : :
|
