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