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