Branch data Line data Source code
1 : : /*
2 : : * hicumL2V2p1.core.cpp - device implementations for hicumL2V2p1 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 "hicumL2V2p1.analogfunction.h"
16 : : #include "component.h"
17 : : #include "device.h"
18 : : #include "hicumL2V2p1.core.h"
19 : :
20 : : #ifndef CIR_hicumL2V2p1
21 : : #define CIR_hicumL2V2p1 -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 ei 6
33 : : #define bp 7
34 : : #define bi 8
35 : : #define si 9
36 : :
37 : : // useful macro definitions
38 : : #define NP(node) real (getV (node))
39 : : #define BP(pnode,nnode) (NP(pnode) - NP(nnode))
40 : : #define _load_static_residual2(pnode,nnode,current)\
41 : : _rhs[pnode] -= current;\
42 : : _rhs[nnode] += current;
43 : : #define _load_static_augmented_residual2(pnode,nnode,current)\
44 : : _rhs[pnode] -= current;\
45 : : _rhs[nnode] += current;
46 : : #define _load_static_residual1(node,current)\
47 : : _rhs[node] -= current;
48 : : #define _load_static_augmented_residual1(node,current)\
49 : : _rhs[node] -= current;
50 : : #define _load_static_jacobian4(pnode,nnode,vpnode,vnnode,conductance)\
51 : : _jstat[pnode][vpnode] += conductance;\
52 : : _jstat[nnode][vnnode] += conductance;\
53 : : _jstat[pnode][vnnode] -= conductance;\
54 : : _jstat[nnode][vpnode] -= conductance;\
55 : : if (doHB) {\
56 : : _ghs[pnode] += conductance * BP(vpnode,vnnode);\
57 : : _ghs[nnode] -= conductance * BP(vpnode,vnnode);\
58 : : } else {\
59 : : _rhs[pnode] += conductance * BP(vpnode,vnnode);\
60 : : _rhs[nnode] -= conductance * BP(vpnode,vnnode);\
61 : : }
62 : : #define _load_static_jacobian2p(node,vpnode,vnnode,conductance)\
63 : : _jstat[node][vpnode] += conductance;\
64 : : _jstat[node][vnnode] -= conductance;\
65 : : if (doHB) {\
66 : : _ghs[node] += conductance * BP(vpnode,vnnode);\
67 : : } else {\
68 : : _rhs[node] += conductance * BP(vpnode,vnnode);\
69 : : }
70 : : #define _load_static_jacobian2s(pnode,nnode,node,conductance)\
71 : : _jstat[pnode][node] += conductance;\
72 : : _jstat[nnode][node] -= conductance;\
73 : : if (doHB) {\
74 : : _ghs[pnode] += conductance * NP(node);\
75 : : _ghs[nnode] -= conductance * NP(node);\
76 : : } else {\
77 : : _rhs[pnode] += conductance * NP(node);\
78 : : _rhs[nnode] -= conductance * NP(node);\
79 : : }
80 : : #define _load_static_jacobian1(node,vnode,conductance)\
81 : : _jstat[node][vnode] += conductance;\
82 : : if (doHB) {\
83 : : _ghs[node] += conductance * NP(vnode);\
84 : : } else {\
85 : : _rhs[node] += conductance * NP(vnode);\
86 : : }
87 : : #define _load_dynamic_residual2(pnode,nnode,charge)\
88 : : if (doTR) _charges[pnode][nnode] += charge;\
89 : : if (doHB) {\
90 : : _qhs[pnode] -= charge;\
91 : : _qhs[nnode] += charge;\
92 : : }
93 : : #define _load_dynamic_residual1(node,charge)\
94 : : if (doTR) _charges[node][node] += charge;\
95 : : if (doHB) {\
96 : : _qhs[node] -= charge;\
97 : : }
98 : : #define _load_dynamic_jacobian4(pnode,nnode,vpnode,vnnode,capacitance)\
99 : : if (doAC) {\
100 : : _jdyna[pnode][vpnode] += capacitance;\
101 : : _jdyna[nnode][vnnode] += capacitance;\
102 : : _jdyna[pnode][vnnode] -= capacitance;\
103 : : _jdyna[nnode][vpnode] -= capacitance;\
104 : : }\
105 : : if (doTR) {\
106 : : _caps[pnode][nnode][vpnode][vnnode] += capacitance;\
107 : : }\
108 : : if (doHB) {\
109 : : _chs[pnode] += capacitance * BP(vpnode,vnnode);\
110 : : _chs[nnode] -= capacitance * BP(vpnode,vnnode);\
111 : : }
112 : : #define _load_dynamic_jacobian2s(pnode,nnode,vnode,capacitance)\
113 : : if (doAC) {\
114 : : _jdyna[pnode][vnode] += capacitance;\
115 : : _jdyna[nnode][vnode] -= capacitance;\
116 : : }\
117 : : if (doTR) {\
118 : : _caps[pnode][nnode][vnode][vnode] += capacitance;\
119 : : }\
120 : : if (doHB) {\
121 : : _chs[pnode] += capacitance * NP(vnode);\
122 : : _chs[nnode] -= capacitance * NP(vnode);\
123 : : }
124 : : #define _load_dynamic_jacobian2p(node,vpnode,vnnode,capacitance)\
125 : : if (doAC) {\
126 : : _jdyna[node][vpnode] += capacitance;\
127 : : _jdyna[node][vnnode] -= capacitance;\
128 : : }\
129 : : if (doTR) {\
130 : : _caps[node][node][vpnode][vnnode] += capacitance;\
131 : : }\
132 : : if (doHB) {\
133 : : _chs[node] += capacitance * BP(vpnode,vnnode);\
134 : : }
135 : : #define _load_dynamic_jacobian1(node,vnode,capacitance)\
136 : : if (doAC) {\
137 : : _jdyna[node][vnode] += capacitance;\
138 : : }\
139 : : if (doTR) {\
140 : : _caps[node][node][vnode][vnode] += capacitance;\
141 : : }\
142 : : if (doHB) {\
143 : : _chs[node] += capacitance * NP(vnode);\
144 : : }
145 : :
146 : : #define _save_whitenoise1(n1,pwr,type)\
147 : : _white_pwr[n1][n1] += pwr;
148 : : #define _save_whitenoise2(n1,n2,pwr,type)\
149 : : _white_pwr[n1][n2] += pwr;
150 : : #define _save_flickernoise1(n1,pwr,exp,type)\
151 : : _flicker_pwr[n1][n1] += pwr;\
152 : : _flicker_exp[n1][n1] += exp;
153 : : #define _save_flickernoise2(n1,n2,pwr,exp,type)\
154 : : _flicker_pwr[n1][n2] += pwr;\
155 : : _flicker_exp[n1][n2] += exp;
156 : : #define _load_whitenoise2(n1,n2,pwr)\
157 : : cy (n1,n2) -= pwr/kB/T0; cy (n2,n1) -= pwr/kB/T0;\
158 : : cy (n1,n1) += pwr/kB/T0; cy (n2,n2) += pwr/kB/T0;
159 : : #define _load_whitenoise1(n1,pwr)\
160 : : cy (n1,n1) += pwr/kB/T0;
161 : : #define _load_flickernoise2(n1,n2,pwr,exp)\
162 : : cy (n1,n2) -= pwr*pow(_freq,-exp)/kB/T0;\
163 : : cy (n2,n1) -= pwr*pow(_freq,-exp)/kB/T0;\
164 : : cy (n1,n1) += pwr*pow(_freq,-exp)/kB/T0;\
165 : : cy (n2,n2) += pwr*pow(_freq,-exp)/kB/T0;
166 : : #define _load_flickernoise1(n1,pwr,exp)\
167 : : cy (n1,n1) += pwr*pow(_freq,-exp)/kB/T0;
168 : :
169 : : // derivative helper macros
170 : : // transcendental LRM p. 59
171 : : #define m00_cos(v00,x) v00 = cos(x);
172 : : #define m10_cos(v10,v00,x) v10 = (-sin(x));
173 : : #define m00_sin(v00,x) v00 = sin(x);
174 : : #define m10_sin(v10,v00,x) v10 = (cos(x));
175 : : #define m00_tan(v00,x) v00 = tan(x);
176 : : #define m10_tan(v10,v00,x) v10 = (1.0/cos(x)/cos(x));
177 : : #define m00_cosh(v00,x) v00 = cosh(x);
178 : : #define m10_cosh(v10,v00,x) v10 = (sinh(x));
179 : : #define m00_sinh(v00,x) v00 = sinh(x);
180 : : #define m10_sinh(v10,v00,x) v10 = (cosh(x));
181 : : #define m00_tanh(v00,x) v00 = tanh(x);
182 : : #define m10_tanh(v10,v00,x) v10 = (1.0/cosh(x)/cosh(x));
183 : : #define m00_acos(v00,x) v00 = acos(x);
184 : : #define m10_acos(v10,v00,x) v10 = (-1.0/sqrt(1-x*x));
185 : : #define m00_asin(v00,x) v00 = asin(x);
186 : : #define m10_asin(v10,v00,x) v10 = (+1.0/sqrt(1-x*x));
187 : : #define m00_atan(v00,x) v00 = atan(x);
188 : : #define m10_atan(v10,v00,x) v10 = (+1.0/(1+x*x));
189 : : #define m00_hypot(v00,x,y) v00 = sqrt((x)*(x)+(y)*(y));
190 : : #define m10_hypot(v10,v00,x,y) v10 = (x)/(v00);
191 : : #define m11_hypot(v11,v00,x,y) v11 = (y)/(v00);
192 : : #define m00_atan2(v00,x,y) v00 = atan2(x,y);
193 : : // TODO atan2 derivatives ?
194 : : #define m00_acosh(v00,x) v00 = acosh(x);
195 : : #define m10_acosh(v10,v00,x) v10 = (1.0/(sqrt(x-1)*sqrt(x+1)));
196 : : #define m00_asinh(v00,x) v00 = asinh(x);
197 : : #define m10_asinh(v10,v00,x) v10 = (1.0/(sqrt(x*x+1)));
198 : : #define m00_atanh(v00,x) v00 = atanh(x);
199 : : #define m10_atanh(v10,v00,x) v10 = (1.0/(1-x*x));
200 : :
201 : :
202 : : // standard functions LRM p.58
203 : : #define m00_logE(v00,x) v00 = log(x);
204 : : #define m10_logE(v10,v00,x) v10 = (1.0/x);
205 : : #define m00_log10(v00,x) v00 = log10(x);
206 : : #define m10_log10(v10,v00,x) v10 = (1.0/x/M_LN10);
207 : : #define m00_exp(v00,x) v00 = exp(x);
208 : : #define m10_exp(v10,v00,x) v10 = v00;
209 : : #define m00_sqrt(v00,x) v00 = sqrt(x);
210 : : #define m10_sqrt(v10,v00,x) v10 = (0.5/v00);
211 : : #define m00_min(v00,x,y) v00 = ((x)<(y))?(x):(y);
212 : : #define m10_min(v10,v00,x,y) v10 = ((x)<(y))?1.0:0.0;
213 : : #define m11_min(v11,v00,x,y) v11 = ((x)<(y))?0.0:1.0;
214 : : #define m00_max(v00,x,y) v00 = ((x)>(y))?(x):(y);
215 : : #define m10_max(v10,v00,x,y) v10 = ((x)>(y))?1.0:0.0;
216 : : #define m11_max(v11,v00,x,y) v11 = ((x)>(y))?0.0:1.0;
217 : : #define m00_pow(v00,x,y) v00 = pow(x,y);
218 : : #define m10_pow(v10,v00,x,y) v10 = (x==0.0)?0.0:(v00)*(y)/(x);
219 : : #define m11_pow(v11,v00,x,y) v11 = (x==0.0)?0.0:(log(x)*(v00));
220 : : #define m00_abs(v00,x) v00 = ((x)<(0)?(-(x)):(x));
221 : : #define m10_abs(v10,v00,x) v10 = (((x)>=0)?(+1.0):(-1.0));
222 : : #define m00_floor(v00,x) v00 = floor(x);
223 : : #define m10_floor(v10,v00,x) v10 = 1.0;
224 : :
225 : : #define m00_ceil(v00,x) v00 = ceil(x);
226 : : // TODO ceil derivative, needed?
227 : :
228 : : // analog operator, LRM p.61
229 : : #define m00_limexp(v00,x) v00 = ((x)<80.0?exp(x):exp(80.0)*(x-79.0));
230 : : #define m10_limexp(v10,v00,x) v10 = ((x)<80.0?(v00):exp(80.0));
231 : :
232 : : // analog kernel parameter system functions, LRM p.215
233 : : #define m00_vt(x) (kBoverQ*(x))
234 : : #define m10_vt(x) (kBoverQ)
235 : :
236 : : // extra functions (?)
237 : : #define m00_div(v00,v10,x,y) double v10=1/(y); double v00=(x)*v10;
238 : : #define m10_div(v10,v00,vv,x,y)
239 : : #define m11_div(v11,v00,vv,x,y) double v11 = -v00*vv;
240 : : #define m00_mult(v00,v10,v11,x,y) double v10=(x); double v11=(y); double v00=v10*v11;
241 : : #define m00_add(v00,x,y) double v00=(x)+(y);
242 : :
243 : : // second derivatives
244 : : #define m20_logE(v00) (-1.0/v00/v00)
245 : : #define m20_exp(v00) exp(v00)
246 : : #define m20_limexp(v00) ((v00)<80.0?exp(v00):0.0)
247 : : #define m20_sqrt(v00) (-0.25/(v00)/sqrt(v00))
248 : : #define m20_abs(v00) 0.0
249 : : #define m20_pow(x,y) ((y)*((y)-1.0)*pow(x,y)/(x)/(x))
250 : :
251 : :
252 : : // simulator specific definitions
253 : : #define _modelname "hicumL2V2p1"
254 : : #define _instancename getName()
255 : : #define _circuit_temp (getPropertyDouble("Temp")+273.15)
256 : : #define _param_given(p) (isPropertyGiven(p)?1:0)
257 : :
258 : :
259 : : // $vt and $vt() functions
260 : : #define _vt_nom (kBoverQ*_circuit_temp)
261 : :
262 : : using namespace qucs::device;
263 : : using qucs::matrix;
264 : :
265 : : /* Device constructor. */
266 : 1 : hicumL2V2p1::hicumL2V2p1() : circuit (10)
267 : : {
268 : 1 : type = CIR_hicumL2V2p1;
269 : 1 : }
270 : :
271 : : /* Initialization of model. */
272 : 1 : void hicumL2V2p1::initModel (void)
273 : : {
274 : : // create internal nodes
275 : 1 : setInternalNode (ci, "ci");
276 : 1 : setInternalNode (ei, "ei");
277 : 1 : setInternalNode (bp, "bp");
278 : 1 : setInternalNode (bi, "bi");
279 : 1 : setInternalNode (si, "si");
280 : :
281 : : // get device model parameters
282 : 1 : loadVariables ();
283 : : // evaluate global model equations
284 : 1 : initializeModel ();
285 : : // evaluate initial step equations
286 : 1 : initialStep ();
287 : : // evaluate global instance equations
288 : 1 : initializeInstance ();
289 : 1 : }
290 : :
291 : : /* Initialization of DC analysis. */
292 : 1 : void hicumL2V2p1::initDC (void)
293 : : {
294 : 1 : allocMatrixMNA ();
295 : 1 : initModel ();
296 : 1 : pol = 1;
297 : 1 : restartDC ();
298 : 1 : doAC = 1;
299 : 1 : doTR = 0;
300 : 1 : doHB = 0;
301 : 1 : }
302 : :
303 : : /* Run when DC is restarted (fallback algorithms). */
304 : 1 : void hicumL2V2p1::restartDC (void)
305 : : {
306 : 1 : }
307 : :
308 : : /* Initialize Verilog-AMS code. */
309 : 6 : void hicumL2V2p1::initVerilog (void)
310 : : {
311 : : // initialization of noise variables
312 : 6 : _white_pwr[ci][bi] = 0.0;
313 : 6 : _white_pwr[si][s] = 0.0;
314 : 6 : _white_pwr[ei][e] = 0.0;
315 : 6 : _white_pwr[ci][c] = 0.0;
316 : 6 : _white_pwr[bp][bi] = 0.0;
317 : 6 : _white_pwr[b][bp] = 0.0;
318 : 6 : _white_pwr[ci][ei] = 0.0;
319 : 6 : _white_pwr[si][ci] = 0.0;
320 : 6 : _white_pwr[bi][ci] = 0.0;
321 : 6 : _white_pwr[bp][ci] = 0.0;
322 : 6 : _white_pwr[bi][ei] = 0.0;
323 : 6 : _white_pwr[bp][ei] = 0.0;
324 : 6 : _flicker_pwr[bi][ei] = 0.0;
325 : 6 : _flicker_exp[bi][ei] = 0.0;
326 : :
327 : : int i1, i2, i3, i4;
328 : :
329 : : // zero charges
330 [ + + ]: 66 : for (i1 = 0; i1 < 10; i1++) {
331 [ + + ]: 660 : for (i2 = 0; i2 < 10; i2++) {
332 : 600 : _charges[i1][i2] = 0.0;
333 : : } }
334 : :
335 : : // zero capacitances
336 [ + + ]: 66 : for (i1 = 0; i1 < 10; i1++) {
337 [ + + ]: 660 : for (i2 = 0; i2 < 10; i2++) {
338 [ + + ]: 6600 : for (i3 = 0; i3 < 10; i3++) {
339 [ + + ]: 66000 : for (i4 = 0; i4 < 10; i4++) {
340 : 60000 : _caps[i1][i2][i3][i4] = 0.0;
341 : : } } } }
342 : :
343 : : // zero right hand side, static and dynamic jacobian
344 [ + + ]: 66 : for (i1 = 0; i1 < 10; i1++) {
345 : 60 : _rhs[i1] = 0.0;
346 : 60 : _qhs[i1] = 0.0;
347 : 60 : _chs[i1] = 0.0;
348 : 60 : _ghs[i1] = 0.0;
349 [ + + ]: 660 : for (i2 = 0; i2 < 10; i2++) {
350 : 600 : _jstat[i1][i2] = 0.0;
351 : 600 : _jdyna[i1][i2] = 0.0;
352 : : }
353 : : }
354 : 6 : }
355 : :
356 : : /* Load device model input parameters. */
357 : 1 : void hicumL2V2p1::loadVariables (void)
358 : : {
359 : 1 : c10 = getPropertyDouble ("c10");
360 : 1 : qp0 = getPropertyDouble ("qp0");
361 : 1 : ich = getPropertyDouble ("ich");
362 : 1 : hfe = getPropertyDouble ("hfe");
363 : 1 : hfc = getPropertyDouble ("hfc");
364 : 1 : hjei = getPropertyDouble ("hjei");
365 : 1 : hjci = getPropertyDouble ("hjci");
366 : 1 : ibeis = getPropertyDouble ("ibeis");
367 : 1 : mbei = getPropertyDouble ("mbei");
368 : 1 : ireis = getPropertyDouble ("ireis");
369 : 1 : mrei = getPropertyDouble ("mrei");
370 : 1 : ibeps = getPropertyDouble ("ibeps");
371 : 1 : mbep = getPropertyDouble ("mbep");
372 : 1 : ireps = getPropertyDouble ("ireps");
373 : 1 : mrep = getPropertyDouble ("mrep");
374 : 1 : mcf = getPropertyDouble ("mcf");
375 : 1 : ibcis = getPropertyDouble ("ibcis");
376 : 1 : mbci = getPropertyDouble ("mbci");
377 : 1 : ibcxs = getPropertyDouble ("ibcxs");
378 : 1 : mbcx = getPropertyDouble ("mbcx");
379 : 1 : ibets = getPropertyDouble ("ibets");
380 : 1 : abet = getPropertyDouble ("abet");
381 : 1 : favl = getPropertyDouble ("favl");
382 : 1 : qavl = getPropertyDouble ("qavl");
383 : 1 : alfav = getPropertyDouble ("alfav");
384 : 1 : alqav = getPropertyDouble ("alqav");
385 : 1 : rbi0 = getPropertyDouble ("rbi0");
386 : 1 : rbx = getPropertyDouble ("rbx");
387 : 1 : fgeo = getPropertyDouble ("fgeo");
388 : 1 : fdqr0 = getPropertyDouble ("fdqr0");
389 : 1 : fcrbi = getPropertyDouble ("fcrbi");
390 : 1 : fqi = getPropertyDouble ("fqi");
391 : 1 : re = getPropertyDouble ("re");
392 : 1 : rcx = getPropertyDouble ("rcx");
393 : 1 : itss = getPropertyDouble ("itss");
394 : 1 : msf = getPropertyDouble ("msf");
395 : 1 : iscs = getPropertyDouble ("iscs");
396 : 1 : msc = getPropertyDouble ("msc");
397 : 1 : tsf = getPropertyDouble ("tsf");
398 : 1 : rsu = getPropertyDouble ("rsu");
399 : 1 : csu = getPropertyDouble ("csu");
400 : 1 : cjei0 = getPropertyDouble ("cjei0");
401 : 1 : vdei = getPropertyDouble ("vdei");
402 : 1 : zei = getPropertyDouble ("zei");
403 : 1 : aljei = getPropertyDouble ("aljei");
404 : 1 : cjep0 = getPropertyDouble ("cjep0");
405 : 1 : vdep = getPropertyDouble ("vdep");
406 : 1 : zep = getPropertyDouble ("zep");
407 : 1 : aljep = getPropertyDouble ("aljep");
408 : 1 : cjci0 = getPropertyDouble ("cjci0");
409 : 1 : vdci = getPropertyDouble ("vdci");
410 : 1 : zci = getPropertyDouble ("zci");
411 : 1 : vptci = getPropertyDouble ("vptci");
412 : 1 : cjcx0 = getPropertyDouble ("cjcx0");
413 : 1 : vdcx = getPropertyDouble ("vdcx");
414 : 1 : zcx = getPropertyDouble ("zcx");
415 : 1 : vptcx = getPropertyDouble ("vptcx");
416 : 1 : fbc = getPropertyDouble ("fbc");
417 : 1 : cjs0 = getPropertyDouble ("cjs0");
418 : 1 : vds = getPropertyDouble ("vds");
419 : 1 : zs = getPropertyDouble ("zs");
420 : 1 : vpts = getPropertyDouble ("vpts");
421 : 1 : t0 = getPropertyDouble ("t0");
422 : 1 : dt0h = getPropertyDouble ("dt0h");
423 : 1 : tbvl = getPropertyDouble ("tbvl");
424 : 1 : tef0 = getPropertyDouble ("tef0");
425 : 1 : gtfe = getPropertyDouble ("gtfe");
426 : 1 : thcs = getPropertyDouble ("thcs");
427 : 1 : alhc = getPropertyDouble ("alhc");
428 : 1 : fthc = getPropertyDouble ("fthc");
429 : 1 : rci0 = getPropertyDouble ("rci0");
430 : 1 : vlim = getPropertyDouble ("vlim");
431 : 1 : vces = getPropertyDouble ("vces");
432 : 1 : vpt = getPropertyDouble ("vpt");
433 : 1 : tr = getPropertyDouble ("tr");
434 : 1 : ceox = getPropertyDouble ("ceox");
435 : 1 : ccox = getPropertyDouble ("ccox");
436 : 1 : alqf = getPropertyDouble ("alqf");
437 : 1 : alit = getPropertyDouble ("alit");
438 : 1 : kf = getPropertyDouble ("kf");
439 : 1 : af = getPropertyDouble ("af");
440 : 1 : krbi = getPropertyDouble ("krbi");
441 : 1 : latb = getPropertyDouble ("latb");
442 : 1 : latl = getPropertyDouble ("latl");
443 : 1 : vgb = getPropertyDouble ("vgb");
444 : 1 : alt0 = getPropertyDouble ("alt0");
445 : 1 : kt0 = getPropertyDouble ("kt0");
446 : 1 : zetaci = getPropertyDouble ("zetaci");
447 : 1 : zetacx = getPropertyDouble ("zetacx");
448 : 1 : alvs = getPropertyDouble ("alvs");
449 : 1 : alces = getPropertyDouble ("alces");
450 : 1 : zetarbi = getPropertyDouble ("zetarbi");
451 : 1 : zetarbx = getPropertyDouble ("zetarbx");
452 : 1 : zetarcx = getPropertyDouble ("zetarcx");
453 : 1 : zetare = getPropertyDouble ("zetare");
454 : 1 : alb = getPropertyDouble ("alb");
455 : 1 : rth = getPropertyDouble ("rth");
456 : 1 : cth = getPropertyDouble ("cth");
457 : 1 : tnom = getPropertyDouble ("tnom");
458 : 1 : dt = getPropertyDouble ("dt");
459 : 1 : }
460 : :
461 : : /* #define's for translated code */
462 : : #undef _DDT
463 : : #define _DDT(q) q
464 : : #define _DYNAMIC
465 : : #define _DERIVATE
466 : : #define _DDX
467 : : #define _DERIVATEFORDDX
468 : :
469 : : /* Evaluate Verilog-AMS equations in model initialization. */
470 : 1 : void hicumL2V2p1::initializeModel (void)
471 : : {
472 : 1 : }
473 : :
474 : : /* Evaluate Verilog-AMS equations in instance initialization. */
475 : 1 : void hicumL2V2p1::initializeInstance (void)
476 : : {
477 : 1 : }
478 : :
479 : : /* Evaluate Verilog-AMS equations in initial step. */
480 : 1 : void hicumL2V2p1::initialStep (void)
481 : : {
482 : 1 : }
483 : :
484 : : /* Evaluate Verilog-AMS equations in final step. */
485 : 0 : void hicumL2V2p1::finalStep (void)
486 : : {
487 : 0 : }
488 : :
489 : : /* Evaluate Verilog-AMS equations in analog block. */
490 : 6 : void hicumL2V2p1::calcVerilog (void)
491 : : {
492 : :
493 : : /* ----------------- evaluate verilog analog equations -------------------- */
494 : : double twoq;
495 : : double flicker_Pwr;
496 : : #if defined(_DERIVATE)
497 : : double flicker_Pwr_Vtnode_GND;
498 : : double flicker_Pwr_Vbi_ei;
499 : : double flicker_Pwr_Vbp_ei;
500 : : double flicker_Pwr_Vbi_ci;
501 : : #endif
502 : : double rbin;
503 : : #if defined(_DERIVATE)
504 : : double rbin_Vtnode_GND;
505 : : double rbin_Vbi_ei;
506 : : double rbin_Vci_ei;
507 : : double rbin_Vbi_ci;
508 : : #endif
509 : : double fourkt;
510 : : #if defined(_DERIVATE)
511 : : double fourkt_Vtnode_GND;
512 : : #endif
513 : : double pterm;
514 : : #if defined(_DERIVATE)
515 : : double pterm_Vci_ei;
516 : : double pterm_Vtnode_GND;
517 : : double pterm_Vbi_ei;
518 : : double pterm_Vbi_ci;
519 : : #endif
520 : : double ijsc;
521 : : #if defined(_DERIVATE)
522 : : double ijsc_Vtnode_GND;
523 : : double ijsc_Vsi_ci;
524 : : double ijsc_Vbp_ci;
525 : : double ijsc_Vbp_ei;
526 : : double ijsc_Vbi_ci;
527 : : double ijsc_Vbi_ei;
528 : : #endif
529 : : #if defined(_DYNAMIC)
530 : : double Qdsu;
531 : : #if defined(_DERIVATE)
532 : : double Qdsu_Vtnode_GND;
533 : : double Qdsu_Vbp_ci;
534 : : #endif
535 : : #endif
536 : : double HSI_Tsu;
537 : : #if defined(_DERIVATE)
538 : : double HSI_Tsu_Vtnode_GND;
539 : : double HSI_Tsu_Vbp_ci;
540 : : double HSI_Tsu_Vsi_ci;
541 : : #endif
542 : : double HSb;
543 : : #if defined(_DERIVATE)
544 : : double HSb_Vsi_ci;
545 : : double HSb_Vtnode_GND;
546 : : #endif
547 : : double HSa;
548 : : #if defined(_DERIVATE)
549 : : double HSa_Vbp_ci;
550 : : double HSa_Vtnode_GND;
551 : : #endif
552 : : double HSUM;
553 : : #if defined(_DERIVATE)
554 : : double HSUM_Vtnode_GND;
555 : : #endif
556 : : #if defined(_DYNAMIC)
557 : : double Qjs;
558 : : #if defined(_DERIVATE)
559 : : double Qjs_Vbp_ei;
560 : : double Qjs_Vbi_ei;
561 : : double Qjs_Vsi_ci;
562 : : double Qjs_Vb_ci;
563 : : double Qjs_Vbp_ci;
564 : : double Qjs_Vtnode_GND;
565 : : double Qjs_Vbi_ci;
566 : : #endif
567 : : #endif
568 : : double Cjs;
569 : : #if defined(_DYNAMIC)
570 : : double qjcx0_t_i;
571 : : #if defined(_DERIVATE)
572 : : double qjcx0_t_i_Vbp_ei;
573 : : double qjcx0_t_i_Vbi_ei;
574 : : double qjcx0_t_i_Vb_ci;
575 : : double qjcx0_t_i_Vbp_ci;
576 : : double qjcx0_t_i_Vtnode_GND;
577 : : double qjcx0_t_i_Vbi_ci;
578 : : #endif
579 : : #endif
580 : : double cjcx0_t_i;
581 : : double ijbcx;
582 : : #if defined(_DERIVATE)
583 : : double ijbcx_Vtnode_GND;
584 : : double ijbcx_Vbp_ci;
585 : : double ijbcx_Vbp_ei;
586 : : double ijbcx_Vbi_ci;
587 : : double ijbcx_Vbi_ei;
588 : : #endif
589 : : #if defined(_DYNAMIC)
590 : : double qjcx0_t_ii;
591 : : #if defined(_DERIVATE)
592 : : double qjcx0_t_ii_Vbp_ei;
593 : : double qjcx0_t_ii_Vbi_ei;
594 : : double qjcx0_t_ii_Vbp_ci;
595 : : double qjcx0_t_ii_Vtnode_GND;
596 : : double qjcx0_t_ii_Vbi_ci;
597 : : #endif
598 : : #endif
599 : : double cjcx0_t_ii;
600 : : double ibet;
601 : : #if defined(_DERIVATE)
602 : : double ibet_Vtnode_GND;
603 : : double ibet_Vbp_ei;
604 : : double ibet_Vbi_ci;
605 : : double ibet_Vbi_ei;
606 : : #endif
607 : : double czz;
608 : : #if defined(_DERIVATE)
609 : : double czz_Vtnode_GND;
610 : : double czz_Vbp_ei;
611 : : double czz_Vbi_ci;
612 : : double czz_Vbi_ei;
613 : : #endif
614 : : double pocce;
615 : : #if defined(_DERIVATE)
616 : : double pocce_Vbp_ei;
617 : : double pocce_Vbi_ci;
618 : : double pocce_Vtnode_GND;
619 : : double pocce_Vbi_ei;
620 : : #endif
621 : : double zex;
622 : : double cce;
623 : : #if defined(_DERIVATE)
624 : : double cce_Vbp_ei;
625 : : double cce_Vbi_ci;
626 : : double cce_Vtnode_GND;
627 : : double cce_Vbi_ei;
628 : : #endif
629 : : double vve;
630 : : #if defined(_DERIVATE)
631 : : double vve_Vbp_ei;
632 : : double vve_Vtnode_GND;
633 : : #endif
634 : : double ibets_t;
635 : : #if defined(_DERIVATE)
636 : : double ibets_t_Vtnode_GND;
637 : : #endif
638 : : double ab;
639 : : #if defined(_DERIVATE)
640 : : double ab_Vtnode_GND;
641 : : #endif
642 : : double a_eg;
643 : : #if defined(_DERIVATE)
644 : : double a_eg_Vtnode_GND;
645 : : #endif
646 : : #if defined(_DYNAMIC)
647 : : double Qjep;
648 : : #if defined(_DERIVATE)
649 : : double Qjep_Vbp_ei;
650 : : double Qjep_Vbi_ci;
651 : : double Qjep_Vtnode_GND;
652 : : double Qjep_Vbi_ei;
653 : : #endif
654 : : #endif
655 : : double Cjep;
656 : : #if defined(_DERIVATE)
657 : : double Cjep_Vbp_ei;
658 : : double Cjep_Vbi_ci;
659 : : double Cjep_Vtnode_GND;
660 : : double Cjep_Vbi_ei;
661 : : #endif
662 : : double irep;
663 : : #if defined(_DERIVATE)
664 : : double irep_Vtnode_GND;
665 : : double irep_Vbp_ei;
666 : : double irep_Vbi_ci;
667 : : double irep_Vbi_ei;
668 : : #endif
669 : : double ibep;
670 : : #if defined(_DERIVATE)
671 : : double ibep_Vtnode_GND;
672 : : double ibep_Vbp_ei;
673 : : double ibep_Vbi_ci;
674 : : double ibep_Vbi_ei;
675 : : #endif
676 : : double ETA;
677 : : #if defined(_DERIVATE)
678 : : double ETA_Vtnode_GND;
679 : : double ETA_Vbi_ei;
680 : : double ETA_Vci_ei;
681 : : double ETA_Vbi_ci;
682 : : #endif
683 : : double I_BI;
684 : : #if defined(_DERIVATE)
685 : : double I_BI_Vtnode_GND;
686 : : double I_BI_Vbi_ei;
687 : : #endif
688 : : double rbi;
689 : : #if defined(_DERIVATE)
690 : : double rbi_Vtnode_GND;
691 : : double rbi_Vbi_ei;
692 : : double rbi_Vci_ei;
693 : : double rbi_Vbi_ci;
694 : : #endif
695 : : double f_p;
696 : : #if defined(_DERIVATE)
697 : : double f_p_Vtnode_GND;
698 : : double f_p_Vbi_ei;
699 : : double f_p_Vci_ei;
700 : : double f_p_Vbi_ci;
701 : : #endif
702 : : double Q_fi;
703 : : #if defined(_DERIVATE)
704 : : double Q_fi_Vci_ei;
705 : : double Q_fi_Vtnode_GND;
706 : : double Q_fi_Vbi_ci;
707 : : double Q_fi_Vbi_ei;
708 : : #endif
709 : : double Qz;
710 : : #if defined(_DERIVATE)
711 : : double Qz_Vtnode_GND;
712 : : double Qz_Vbi_ei;
713 : : double Qz_Vci_ei;
714 : : double Qz_Vbi_ci;
715 : : #endif
716 : : double f_QR;
717 : : #if defined(_DERIVATE)
718 : : double f_QR_Vtnode_GND;
719 : : #endif
720 : : double iavl;
721 : : #if defined(_DERIVATE)
722 : : double iavl_Vci_ei;
723 : : double iavl_Vtnode_GND;
724 : : double iavl_Vbi_ei;
725 : : double iavl_Vbi_ci;
726 : : #endif
727 : : double AVLS_avl;
728 : : #if defined(_DERIVATE)
729 : : double AVLS_avl_Vtnode_GND;
730 : : double AVLS_avl_Vbi_ei;
731 : : double AVLS_avl_Vbi_ci;
732 : : #endif
733 : : double AVLa;
734 : : #if defined(_DERIVATE)
735 : : double AVLa_Vtnode_GND;
736 : : double AVLa_Vbi_ei;
737 : : double AVLa_Vbi_ci;
738 : : #endif
739 : : double AVLU0;
740 : : #if defined(_DERIVATE)
741 : : double AVLU0_Vtnode_GND;
742 : : #endif
743 : : double AVLv_q;
744 : : #if defined(_DERIVATE)
745 : : double AVLv_q_Vtnode_GND;
746 : : double AVLv_q_Vbi_ei;
747 : : double AVLv_q_Vbi_ci;
748 : : #endif
749 : : double AVLv_bord;
750 : : #if defined(_DERIVATE)
751 : : double AVLv_bord_Vtnode_GND;
752 : : double AVLv_bord_Vbi_ci;
753 : : #endif
754 : : double ibci;
755 : : #if defined(_DERIVATE)
756 : : double ibci_Vtnode_GND;
757 : : double ibci_Vbi_ci;
758 : : double ibci_Vbi_ei;
759 : : #endif
760 : : #if defined(_DYNAMIC)
761 : : double qrbi;
762 : : #if defined(_DERIVATE)
763 : : double qrbi_Vtnode_GND;
764 : : double qrbi_Vbi_ei;
765 : : double qrbi_Vci_ei;
766 : : double qrbi_Vbi_ci;
767 : : #endif
768 : : #endif
769 : : #if defined(_DYNAMIC)
770 : : double Qdci;
771 : : #if defined(_DERIVATE)
772 : : double Qdci_Vci_ei;
773 : : double Qdci_Vtnode_GND;
774 : : double Qdci_Vbi_ci;
775 : : double Qdci_Vbi_ei;
776 : : #endif
777 : : #endif
778 : : #if defined(_DYNAMIC)
779 : : double Qdei;
780 : : #if defined(_DERIVATE)
781 : : double Qdei_Vci_ei;
782 : : double Qdei_Vtnode_GND;
783 : : double Qdei_Vbi_ci;
784 : : double Qdei_Vbi_ei;
785 : : #endif
786 : : #endif
787 : : double it;
788 : : #if defined(_DERIVATE)
789 : : double it_Vci_ei;
790 : : double it_Vtnode_GND;
791 : : double it_Vbi_ei;
792 : : double it_Vbi_ci;
793 : : #endif
794 : : double d_Q0;
795 : : double d_Q;
796 : : #if defined(_DERIVATE)
797 : : double d_Q_Vtnode_GND;
798 : : double d_Q_Vbi_ei;
799 : : double d_Q_Vbi_ci;
800 : : double d_Q_Vci_ei;
801 : : #endif
802 : : double Q_pT;
803 : : #if defined(_DERIVATE)
804 : : double Q_pT_Vtnode_GND;
805 : : double Q_pT_Vbi_ei;
806 : : double Q_pT_Vbi_ci;
807 : : double Q_pT_Vci_ei;
808 : : #endif
809 : : double l_it;
810 : : double Qr;
811 : : #if defined(_DERIVATE)
812 : : double Qr_Vci_ei;
813 : : double Qr_Vtnode_GND;
814 : : double Qr_Vbi_ci;
815 : : double Qr_Vbi_ei;
816 : : #endif
817 : : double FCd_f;
818 : : #if defined(_DERIVATE)
819 : : double FCd_f_Vci_ei;
820 : : double FCd_f_Vtnode_GND;
821 : : double FCd_f_Vbi_ei;
822 : : double FCd_f_Vbi_ci;
823 : : #endif
824 : : double FCz_1;
825 : : #if defined(_DERIVATE)
826 : : double FCz_1_Vci_ei;
827 : : double FCz_1_Vtnode_GND;
828 : : double FCz_1_Vbi_ei;
829 : : double FCz_1_Vbi_ci;
830 : : #endif
831 : : double FCdfCT_ditf;
832 : : #if defined(_DERIVATE)
833 : : double FCdfCT_ditf_Vci_ei;
834 : : double FCdfCT_ditf_Vbi_ei;
835 : : double FCdfCT_ditf_Vbi_ci;
836 : : double FCdfCT_ditf_Vtnode_GND;
837 : : #endif
838 : : double FCdfCT_dw;
839 : : #if defined(_DERIVATE)
840 : : double FCdfCT_dw_Vci_ei;
841 : : double FCdfCT_dw_Vbi_ei;
842 : : double FCdfCT_dw_Vbi_ci;
843 : : double FCdfCT_dw_Vtnode_GND;
844 : : #endif
845 : : double FCdfc_ditf;
846 : : #if defined(_DERIVATE)
847 : : double FCdfc_ditf_Vci_ei;
848 : : double FCdfc_ditf_Vtnode_GND;
849 : : double FCdfc_ditf_Vbi_ei;
850 : : double FCdfc_ditf_Vbi_ci;
851 : : #endif
852 : : double FCdw_ditf;
853 : : #if defined(_DERIVATE)
854 : : double FCdw_ditf_Vci_ei;
855 : : double FCdw_ditf_Vtnode_GND;
856 : : double FCdw_ditf_Vbi_ei;
857 : : double FCdw_ditf_Vbi_ci;
858 : : #endif
859 : : double FCdfc_dw;
860 : : #if defined(_DERIVATE)
861 : : double FCdfc_dw_Vci_ei;
862 : : double FCdfc_dw_Vtnode_GND;
863 : : double FCdfc_dw_Vbi_ei;
864 : : double FCdfc_dw_Vbi_ci;
865 : : #endif
866 : : double FCf_ci;
867 : : #if defined(_DERIVATE)
868 : : double FCf_ci_Vci_ei;
869 : : double FCf_ci_Vtnode_GND;
870 : : double FCf_ci_Vbi_ei;
871 : : double FCf_ci_Vbi_ci;
872 : : #endif
873 : : double FCdf3_dw;
874 : : #if defined(_DERIVATE)
875 : : double FCdf3_dw_Vci_ei;
876 : : double FCdf3_dw_Vtnode_GND;
877 : : double FCdf3_dw_Vbi_ei;
878 : : double FCdf3_dw_Vbi_ci;
879 : : #endif
880 : : double FCf3;
881 : : #if defined(_DERIVATE)
882 : : double FCf3_Vci_ei;
883 : : double FCf3_Vbi_ei;
884 : : double FCf3_Vbi_ci;
885 : : double FCf3_Vtnode_GND;
886 : : #endif
887 : : double FCdf2_dw;
888 : : #if defined(_DERIVATE)
889 : : double FCdf2_dw_Vci_ei;
890 : : double FCdf2_dw_Vtnode_GND;
891 : : double FCdf2_dw_Vbi_ei;
892 : : double FCdf2_dw_Vbi_ci;
893 : : #endif
894 : : double FCf2;
895 : : #if defined(_DERIVATE)
896 : : double FCf2_Vci_ei;
897 : : double FCf2_Vbi_ei;
898 : : double FCf2_Vbi_ci;
899 : : double FCf2_Vtnode_GND;
900 : : #endif
901 : : double r;
902 : : double a3;
903 : : #if defined(_DERIVATE)
904 : : double a3_Vci_ei;
905 : : double a3_Vbi_ei;
906 : : double a3_Vbi_ci;
907 : : double a3_Vtnode_GND;
908 : : #endif
909 : : double a2;
910 : : #if defined(_DERIVATE)
911 : : double a2_Vci_ei;
912 : : double a2_Vbi_ei;
913 : : double a2_Vbi_ci;
914 : : double a2_Vtnode_GND;
915 : : #endif
916 : : double x;
917 : : #if defined(_DERIVATE)
918 : : double x_Vci_ei;
919 : : double x_Vtnode_GND;
920 : : double x_Vbi_ei;
921 : : double x_Vbi_ci;
922 : : #endif
923 : : double z;
924 : : #if defined(_DERIVATE)
925 : : double z_Vci_ei;
926 : : double z_Vtnode_GND;
927 : : double z_Vbi_ei;
928 : : double z_Vbi_ci;
929 : : #endif
930 : : double FCdf1_dw;
931 : : #if defined(_DERIVATE)
932 : : double FCdf1_dw_Vci_ei;
933 : : double FCdf1_dw_Vtnode_GND;
934 : : double FCdf1_dw_Vbi_ei;
935 : : double FCdf1_dw_Vbi_ci;
936 : : #endif
937 : : double FCw2;
938 : : #if defined(_DERIVATE)
939 : : double FCw2_Vci_ei;
940 : : double FCw2_Vtnode_GND;
941 : : double FCw2_Vbi_ei;
942 : : double FCw2_Vbi_ci;
943 : : #endif
944 : : double FCf_CT;
945 : : #if defined(_DERIVATE)
946 : : double FCf_CT_Vci_ei;
947 : : double FCf_CT_Vbi_ei;
948 : : double FCf_CT_Vbi_ci;
949 : : double FCf_CT_Vtnode_GND;
950 : : #endif
951 : : double FCf1;
952 : : #if defined(_DERIVATE)
953 : : double FCf1_Vci_ei;
954 : : double FCf1_Vtnode_GND;
955 : : double FCf1_Vbi_ei;
956 : : double FCf1_Vbi_ci;
957 : : #endif
958 : : double FCda1_dw;
959 : : #if defined(_DERIVATE)
960 : : double FCda1_dw_Vci_ei;
961 : : double FCda1_dw_Vtnode_GND;
962 : : double FCda1_dw_Vbi_ei;
963 : : double FCda1_dw_Vbi_ci;
964 : : #endif
965 : : double FClnl;
966 : : #if defined(_DERIVATE)
967 : : double FClnl_Vci_ei;
968 : : double FClnl_Vtnode_GND;
969 : : double FClnl_Vbi_ei;
970 : : double FClnl_Vbi_ci;
971 : : #endif
972 : : double FClnb;
973 : : #if defined(_DERIVATE)
974 : : double FClnb_Vci_ei;
975 : : double FClnb_Vtnode_GND;
976 : : double FClnb_Vbi_ei;
977 : : double FClnb_Vbi_ci;
978 : : #endif
979 : : double FCdw_daick;
980 : : #if defined(_DERIVATE)
981 : : double FCdw_daick_Vci_ei;
982 : : double FCdw_daick_Vtnode_GND;
983 : : double FCdw_daick_Vbi_ei;
984 : : double FCdw_daick_Vbi_ci;
985 : : #endif
986 : : double FCw;
987 : : #if defined(_DERIVATE)
988 : : double FCw_Vci_ei;
989 : : double FCw_Vtnode_GND;
990 : : double FCw_Vbi_ei;
991 : : double FCw_Vbi_ci;
992 : : #endif
993 : : double FCd_a;
994 : : #if defined(_DERIVATE)
995 : : double FCd_a_Vci_ei;
996 : : double FCd_a_Vtnode_GND;
997 : : double FCd_a_Vbi_ei;
998 : : double FCd_a_Vbi_ci;
999 : : #endif
1000 : : double FCa1;
1001 : : #if defined(_DERIVATE)
1002 : : double FCa1_Vci_ei;
1003 : : double FCa1_Vtnode_GND;
1004 : : double FCa1_Vbi_ei;
1005 : : double FCa1_Vbi_ci;
1006 : : #endif
1007 : : double FCln;
1008 : : double FCxb;
1009 : : double FCxl;
1010 : : double FCz;
1011 : : #if defined(_DERIVATE)
1012 : : double FCz_Vci_ei;
1013 : : double FCz_Vtnode_GND;
1014 : : double FCz_Vbi_ei;
1015 : : double FCz_Vbi_ci;
1016 : : #endif
1017 : : double FCdaick_ditf;
1018 : : #if defined(_DERIVATE)
1019 : : double FCdaick_ditf_Vci_ei;
1020 : : double FCdaick_ditf_Vtnode_GND;
1021 : : double FCdaick_ditf_Vbi_ei;
1022 : : double FCdaick_ditf_Vbi_ci;
1023 : : #endif
1024 : : double FCa_ck;
1025 : : #if defined(_DERIVATE)
1026 : : double FCa_ck_Vci_ei;
1027 : : double FCa_ck_Vtnode_GND;
1028 : : double FCa_ck_Vbi_ei;
1029 : : double FCa_ck_Vbi_ci;
1030 : : #endif
1031 : : double FCrt;
1032 : : #if defined(_DERIVATE)
1033 : : double FCrt_Vci_ei;
1034 : : double FCrt_Vtnode_GND;
1035 : : double FCrt_Vbi_ei;
1036 : : double FCrt_Vbi_ci;
1037 : : #endif
1038 : : double FCa;
1039 : : #if defined(_DERIVATE)
1040 : : double FCa_Vci_ei;
1041 : : double FCa_Vtnode_GND;
1042 : : double FCa_Vbi_ei;
1043 : : double FCa_Vbi_ci;
1044 : : #endif
1045 : : double FFT_cT;
1046 : : #if defined(_DERIVATE)
1047 : : double FFT_cT_Vtnode_GND;
1048 : : double FFT_cT_Vci_ei;
1049 : : double FFT_cT_Vbi_ei;
1050 : : double FFT_cT_Vbi_ci;
1051 : : #endif
1052 : : double FFQ_cT;
1053 : : #if defined(_DERIVATE)
1054 : : double FFQ_cT_Vtnode_GND;
1055 : : double FFQ_cT_Vbi_ei;
1056 : : double FFQ_cT_Vbi_ci;
1057 : : double FFQ_cT_Vci_ei;
1058 : : #endif
1059 : : double FFT_fC;
1060 : : #if defined(_DERIVATE)
1061 : : double FFT_fC_Vtnode_GND;
1062 : : double FFT_fC_Vci_ei;
1063 : : double FFT_fC_Vbi_ei;
1064 : : double FFT_fC_Vbi_ci;
1065 : : #endif
1066 : : double FFQ_fC;
1067 : : #if defined(_DERIVATE)
1068 : : double FFQ_fC_Vtnode_GND;
1069 : : double FFQ_fC_Vbi_ei;
1070 : : double FFQ_fC_Vbi_ci;
1071 : : double FFQ_fC_Vci_ei;
1072 : : #endif
1073 : : double FFT_pcS;
1074 : : #if defined(_DERIVATE)
1075 : : double FFT_pcS_Vtnode_GND;
1076 : : #endif
1077 : : double FFd_TfB;
1078 : : #if defined(_DERIVATE)
1079 : : double FFd_TfB_Vtnode_GND;
1080 : : double FFd_TfB_Vci_ei;
1081 : : double FFd_TfB_Vbi_ei;
1082 : : double FFd_TfB_Vbi_ci;
1083 : : #endif
1084 : : double FFa_w;
1085 : : #if defined(_DERIVATE)
1086 : : double FFa_w_Vci_ei;
1087 : : double FFa_w_Vtnode_GND;
1088 : : double FFa_w_Vbi_ei;
1089 : : double FFa_w_Vbi_ci;
1090 : : #endif
1091 : : double FFd_QfB;
1092 : : #if defined(_DERIVATE)
1093 : : double FFd_QfB_Vtnode_GND;
1094 : : double FFd_QfB_Vbi_ei;
1095 : : double FFd_QfB_Vbi_ci;
1096 : : double FFd_QfB_Vci_ei;
1097 : : #endif
1098 : : double FFw_2;
1099 : : #if defined(_DERIVATE)
1100 : : double FFw_2_Vci_ei;
1101 : : double FFw_2_Vtnode_GND;
1102 : : double FFw_2_Vbi_ei;
1103 : : double FFw_2_Vbi_ci;
1104 : : #endif
1105 : : double FFw;
1106 : : #if defined(_DERIVATE)
1107 : : double FFw_Vci_ei;
1108 : : double FFw_Vtnode_GND;
1109 : : double FFw_Vbi_ei;
1110 : : double FFw_Vbi_ci;
1111 : : #endif
1112 : : double FFs;
1113 : : #if defined(_DERIVATE)
1114 : : double FFs_Vci_ei;
1115 : : double FFs_Vtnode_GND;
1116 : : double FFs_Vbi_ei;
1117 : : double FFs_Vbi_ci;
1118 : : #endif
1119 : : double FFx;
1120 : : #if defined(_DERIVATE)
1121 : : double FFx_Vci_ei;
1122 : : double FFx_Vtnode_GND;
1123 : : double FFx_Vbi_ei;
1124 : : double FFx_Vbi_ci;
1125 : : #endif
1126 : : double FFT_fbS;
1127 : : #if defined(_DERIVATE)
1128 : : double FFT_fbS_Vtnode_GND;
1129 : : #endif
1130 : : double FFd_QfE;
1131 : : #if defined(_DERIVATE)
1132 : : double FFd_QfE_Vtnode_GND;
1133 : : double FFd_QfE_Vci_ei;
1134 : : double FFd_QfE_Vbi_ei;
1135 : : double FFd_QfE_Vbi_ci;
1136 : : #endif
1137 : : double FFd_TfE;
1138 : : #if defined(_DERIVATE)
1139 : : double FFd_TfE_Vtnode_GND;
1140 : : double FFd_TfE_Vci_ei;
1141 : : double FFd_TfE_Vbi_ei;
1142 : : double FFd_TfE_Vbi_ci;
1143 : : #endif
1144 : : double FFa;
1145 : : #if defined(_DERIVATE)
1146 : : double FFa_Vci_ei;
1147 : : double FFa_Vtnode_GND;
1148 : : double FFa_Vbi_ei;
1149 : : double FFa_Vbi_ci;
1150 : : #endif
1151 : : double T_fT;
1152 : : #if defined(_DERIVATE)
1153 : : double T_fT_Vci_ei;
1154 : : double T_fT_Vtnode_GND;
1155 : : double T_fT_Vbi_ci;
1156 : : double T_fT_Vbi_ei;
1157 : : #endif
1158 : : double Q_fT;
1159 : : #if defined(_DERIVATE)
1160 : : double Q_fT_Vci_ei;
1161 : : double Q_fT_Vtnode_GND;
1162 : : double Q_fT_Vbi_ci;
1163 : : double Q_fT_Vbi_ei;
1164 : : #endif
1165 : : double Qf;
1166 : : #if defined(_DERIVATE)
1167 : : double Qf_Vci_ei;
1168 : : double Qf_Vtnode_GND;
1169 : : double Qf_Vbi_ci;
1170 : : double Qf_Vbi_ei;
1171 : : #endif
1172 : : double Tf;
1173 : : #if defined(_DERIVATE)
1174 : : double Tf_Vci_ei;
1175 : : double Tf_Vtnode_GND;
1176 : : double Tf_Vbi_ci;
1177 : : double Tf_Vbi_ei;
1178 : : #endif
1179 : : double itr;
1180 : : #if defined(_DERIVATE)
1181 : : double itr_Vci_ei;
1182 : : double itr_Vtnode_GND;
1183 : : double itr_Vbi_ci;
1184 : : double itr_Vbi_ei;
1185 : : #endif
1186 : : double itf;
1187 : : #if defined(_DERIVATE)
1188 : : double itf_Vci_ei;
1189 : : double itf_Vtnode_GND;
1190 : : double itf_Vbi_ei;
1191 : : double itf_Vbi_ci;
1192 : : #endif
1193 : : double a_h;
1194 : : #if defined(_DERIVATE)
1195 : : double a_h_Vci_ei;
1196 : : double a_h_Vtnode_GND;
1197 : : double a_h_Vbi_ei;
1198 : : double a_h_Vbi_ci;
1199 : : #endif
1200 : : double I_Tf1;
1201 : : #if defined(_DERIVATE)
1202 : : double I_Tf1_Vci_ei;
1203 : : double I_Tf1_Vtnode_GND;
1204 : : double I_Tf1_Vbi_ei;
1205 : : double I_Tf1_Vbi_ci;
1206 : : #endif
1207 : : double Q_p;
1208 : : #if defined(_DERIVATE)
1209 : : double Q_p_Vtnode_GND;
1210 : : double Q_p_Vbi_ei;
1211 : : double Q_p_Vbi_ci;
1212 : : #endif
1213 : : double A;
1214 : : #if defined(_DERIVATE)
1215 : : double A_Vtnode_GND;
1216 : : double A_Vbi_ei;
1217 : : double A_Vbi_ci;
1218 : : #endif
1219 : : double ICKa;
1220 : : #if defined(_DERIVATE)
1221 : : double ICKa_Vci_ei;
1222 : : double ICKa_Vtnode_GND;
1223 : : #endif
1224 : : double ick;
1225 : : #if defined(_DERIVATE)
1226 : : double ick_Vci_ei;
1227 : : double ick_Vtnode_GND;
1228 : : #endif
1229 : : double vceff;
1230 : : #if defined(_DERIVATE)
1231 : : double vceff_Vci_ei;
1232 : : double vceff_Vtnode_GND;
1233 : : #endif
1234 : : double ICKv;
1235 : : #if defined(_DERIVATE)
1236 : : double ICKv_Vci_ei;
1237 : : double ICKv_Vtnode_GND;
1238 : : #endif
1239 : : double vc;
1240 : : #if defined(_DERIVATE)
1241 : : double vc_Vci_ei;
1242 : : double vc_Vtnode_GND;
1243 : : #endif
1244 : : double T_f0;
1245 : : #if defined(_DERIVATE)
1246 : : double T_f0_Vtnode_GND;
1247 : : double T_f0_Vbi_ci;
1248 : : double T_f0_Vbi_ei;
1249 : : #endif
1250 : : double cc;
1251 : : #if defined(_DERIVATE)
1252 : : double cc_Vtnode_GND;
1253 : : double cc_Vbi_ci;
1254 : : double cc_Vbi_ei;
1255 : : #endif
1256 : : double d1;
1257 : : double Cjcit;
1258 : : #if defined(_DERIVATE)
1259 : : double Cjcit_Vbi_ci;
1260 : : double Cjcit_Vtnode_GND;
1261 : : double Cjcit_Vbi_ei;
1262 : : #endif
1263 : : double b_q;
1264 : : #if defined(_DERIVATE)
1265 : : double b_q_Vtnode_GND;
1266 : : double b_q_Vbi_ei;
1267 : : double b_q_Vbi_ci;
1268 : : #endif
1269 : : double Q_bpt;
1270 : : #if defined(_DERIVATE)
1271 : : double Q_bpt_Vtnode_GND;
1272 : : #endif
1273 : : double a_bpt;
1274 : : double Q_0;
1275 : : #if defined(_DERIVATE)
1276 : : double Q_0_Vtnode_GND;
1277 : : double Q_0_Vbi_ei;
1278 : : double Q_0_Vbi_ci;
1279 : : #endif
1280 : : double Qjci;
1281 : : #if defined(_DERIVATE)
1282 : : double Qjci_Vbi_ei;
1283 : : double Qjci_Vtnode_GND;
1284 : : double Qjci_Vbi_ci;
1285 : : #endif
1286 : : double DQ_j3;
1287 : : #if defined(_DERIVATE)
1288 : : double DQ_j3_Vsi_ci;
1289 : : double DQ_j3_Vb_ci;
1290 : : double DQ_j3_Vbp_ci;
1291 : : double DQ_j3_Vtnode_GND;
1292 : : double DQ_j3_Vbi_ci;
1293 : : #endif
1294 : : double DQ_j2;
1295 : : #if defined(_DERIVATE)
1296 : : double DQ_j2_Vsi_ci;
1297 : : double DQ_j2_Vb_ci;
1298 : : double DQ_j2_Vbp_ci;
1299 : : double DQ_j2_Vtnode_GND;
1300 : : double DQ_j2_Vbi_ci;
1301 : : #endif
1302 : : double DQ_j1;
1303 : : #if defined(_DERIVATE)
1304 : : double DQ_j1_Vsi_ci;
1305 : : double DQ_j1_Vb_ci;
1306 : : double DQ_j1_Vbp_ci;
1307 : : double DQ_j1_Vtnode_GND;
1308 : : double DQ_j1_Vbi_ci;
1309 : : #endif
1310 : : double Cjci;
1311 : : #if defined(_DERIVATE)
1312 : : double Cjci_Vbi_ei;
1313 : : double Cjci_Vtnode_GND;
1314 : : double Cjci_Vbi_ci;
1315 : : #endif
1316 : : double DC_j3;
1317 : : #if defined(_DERIVATE)
1318 : : double DC_j3_Vsi_ci;
1319 : : double DC_j3_Vb_ci;
1320 : : double DC_j3_Vbp_ci;
1321 : : double DC_j3_Vtnode_GND;
1322 : : double DC_j3_Vbi_ci;
1323 : : #endif
1324 : : double DC_j2;
1325 : : #if defined(_DERIVATE)
1326 : : double DC_j2_Vsi_ci;
1327 : : double DC_j2_Vb_ci;
1328 : : double DC_j2_Vbp_ci;
1329 : : double DC_j2_Vtnode_GND;
1330 : : double DC_j2_Vbi_ci;
1331 : : #endif
1332 : : double DC_j1;
1333 : : #if defined(_DERIVATE)
1334 : : double DC_j1_Vsi_ci;
1335 : : double DC_j1_Vb_ci;
1336 : : double DC_j1_Vbp_ci;
1337 : : double DC_j1_Vtnode_GND;
1338 : : double DC_j1_Vbi_ci;
1339 : : #endif
1340 : : double Dzr1;
1341 : : double Dz1;
1342 : : double DCln2;
1343 : : #if defined(_DERIVATE)
1344 : : double DCln2_Vsi_ci;
1345 : : double DCln2_Vb_ci;
1346 : : double DCln2_Vbp_ci;
1347 : : double DCln2_Vtnode_GND;
1348 : : double DCln2_Vbi_ci;
1349 : : #endif
1350 : : double DCln1;
1351 : : #if defined(_DERIVATE)
1352 : : double DCln1_Vsi_ci;
1353 : : double DCln1_Vb_ci;
1354 : : double DCln1_Vbp_ci;
1355 : : double DCln1_Vtnode_GND;
1356 : : double DCln1_Vbi_ci;
1357 : : #endif
1358 : : double Dv_j4;
1359 : : #if defined(_DERIVATE)
1360 : : double Dv_j4_Vsi_ci;
1361 : : double Dv_j4_Vb_ci;
1362 : : double Dv_j4_Vbp_ci;
1363 : : double Dv_j4_Vbi_ci;
1364 : : double Dv_j4_Vtnode_GND;
1365 : : #endif
1366 : : double Dv_j2;
1367 : : #if defined(_DERIVATE)
1368 : : double Dv_j2_Vsi_ci;
1369 : : double Dv_j2_Vb_ci;
1370 : : double Dv_j2_Vbp_ci;
1371 : : double Dv_j2_Vtnode_GND;
1372 : : double Dv_j2_Vbi_ci;
1373 : : #endif
1374 : : double De_2;
1375 : : #if defined(_DERIVATE)
1376 : : double De_2_Vsi_ci;
1377 : : double De_2_Vb_ci;
1378 : : double De_2_Vbp_ci;
1379 : : double De_2_Vtnode_GND;
1380 : : double De_2_Vbi_ci;
1381 : : #endif
1382 : : double Dv_r;
1383 : : #if defined(_DERIVATE)
1384 : : double Dv_r_Vsi_ci;
1385 : : double Dv_r_Vb_ci;
1386 : : double Dv_r_Vbp_ci;
1387 : : double Dv_r_Vtnode_GND;
1388 : : double Dv_r_Vbi_ci;
1389 : : #endif
1390 : : double Dv_j1;
1391 : : #if defined(_DERIVATE)
1392 : : double Dv_j1_Vsi_ci;
1393 : : double Dv_j1_Vb_ci;
1394 : : double Dv_j1_Vbp_ci;
1395 : : double Dv_j1_Vtnode_GND;
1396 : : double Dv_j1_Vbi_ci;
1397 : : #endif
1398 : : double De_1;
1399 : : #if defined(_DERIVATE)
1400 : : double De_1_Vsi_ci;
1401 : : double De_1_Vb_ci;
1402 : : double De_1_Vbp_ci;
1403 : : double De_1_Vtnode_GND;
1404 : : double De_1_Vbi_ci;
1405 : : #endif
1406 : : double De;
1407 : : #if defined(_DERIVATE)
1408 : : double De_Vsi_ci;
1409 : : double De_Vb_ci;
1410 : : double De_Vbp_ci;
1411 : : double De_Vtnode_GND;
1412 : : double De_Vbi_ci;
1413 : : #endif
1414 : : double Dv_e;
1415 : : #if defined(_DERIVATE)
1416 : : double Dv_e_Vsi_ci;
1417 : : double Dv_e_Vb_ci;
1418 : : double Dv_e_Vbp_ci;
1419 : : double Dv_e_Vtnode_GND;
1420 : : double Dv_e_Vbi_ci;
1421 : : #endif
1422 : : double Da;
1423 : : #if defined(_DERIVATE)
1424 : : double Da_Vtnode_GND;
1425 : : #endif
1426 : : double DC_c;
1427 : : #if defined(_DERIVATE)
1428 : : double DC_c_Vtnode_GND;
1429 : : #endif
1430 : : double DC_max;
1431 : : #if defined(_DERIVATE)
1432 : : double DC_max_Vtnode_GND;
1433 : : #endif
1434 : : double DV_f;
1435 : : #if defined(_DERIVATE)
1436 : : double DV_f_Vtnode_GND;
1437 : : #endif
1438 : : double Dv_p;
1439 : : #if defined(_DERIVATE)
1440 : : double Dv_p_Vtnode_GND;
1441 : : #endif
1442 : : double Dz_r;
1443 : : double Qjei;
1444 : : #if defined(_DERIVATE)
1445 : : double Qjei_Vtnode_GND;
1446 : : double Qjei_Vbi_ei;
1447 : : #endif
1448 : : double DFQ_j;
1449 : : #if defined(_DERIVATE)
1450 : : double DFQ_j_Vsi_ci;
1451 : : double DFQ_j_Vb_ci;
1452 : : double DFQ_j_Vbp_ci;
1453 : : double DFQ_j_Vbp_ei;
1454 : : double DFQ_j_Vbi_ci;
1455 : : double DFQ_j_Vtnode_GND;
1456 : : double DFQ_j_Vbi_ei;
1457 : : #endif
1458 : : double Cjei;
1459 : : double DFC_j1;
1460 : : #if defined(_DERIVATE)
1461 : : double DFC_j1_Vsi_ci;
1462 : : double DFC_j1_Vb_ci;
1463 : : double DFC_j1_Vbp_ci;
1464 : : double DFC_j1_Vbp_ei;
1465 : : double DFC_j1_Vbi_ci;
1466 : : double DFC_j1_Vtnode_GND;
1467 : : double DFC_j1_Vbi_ei;
1468 : : #endif
1469 : : double DFb;
1470 : : #if defined(_DERIVATE)
1471 : : double DFb_Vsi_ci;
1472 : : double DFb_Vb_ci;
1473 : : double DFb_Vbp_ci;
1474 : : double DFb_Vbp_ei;
1475 : : double DFb_Vbi_ci;
1476 : : double DFb_Vtnode_GND;
1477 : : double DFb_Vbi_ei;
1478 : : #endif
1479 : : double DFdvj_dv;
1480 : : #if defined(_DERIVATE)
1481 : : double DFdvj_dv_Vsi_ci;
1482 : : double DFdvj_dv_Vb_ci;
1483 : : double DFdvj_dv_Vbp_ci;
1484 : : double DFdvj_dv_Vbp_ei;
1485 : : double DFdvj_dv_Vbi_ci;
1486 : : double DFdvj_dv_Vtnode_GND;
1487 : : double DFdvj_dv_Vbi_ei;
1488 : : #endif
1489 : : double DFv_j;
1490 : : #if defined(_DERIVATE)
1491 : : double DFv_j_Vsi_ci;
1492 : : double DFv_j_Vb_ci;
1493 : : double DFv_j_Vbp_ci;
1494 : : double DFv_j_Vbp_ei;
1495 : : double DFv_j_Vbi_ci;
1496 : : double DFv_j_Vtnode_GND;
1497 : : double DFv_j_Vbi_ei;
1498 : : #endif
1499 : : double DFe;
1500 : : #if defined(_DERIVATE)
1501 : : double DFe_Vsi_ci;
1502 : : double DFe_Vb_ci;
1503 : : double DFe_Vbp_ci;
1504 : : double DFe_Vbp_ei;
1505 : : double DFe_Vbi_ci;
1506 : : double DFe_Vtnode_GND;
1507 : : double DFe_Vbi_ei;
1508 : : #endif
1509 : : double DFv_e;
1510 : : #if defined(_DERIVATE)
1511 : : double DFv_e_Vsi_ci;
1512 : : double DFv_e_Vb_ci;
1513 : : double DFv_e_Vbp_ci;
1514 : : double DFv_e_Vbp_ei;
1515 : : double DFv_e_Vbi_ci;
1516 : : double DFv_e_Vtnode_GND;
1517 : : double DFv_e_Vbi_ei;
1518 : : #endif
1519 : : double DFC_max;
1520 : : #if defined(_DERIVATE)
1521 : : double DFC_max_Vtnode_GND;
1522 : : #endif
1523 : : double DFV_f;
1524 : : #if defined(_DERIVATE)
1525 : : double DFV_f_Vtnode_GND;
1526 : : #endif
1527 : : double i_0r;
1528 : : #if defined(_DERIVATE)
1529 : : double i_0r_Vtnode_GND;
1530 : : double i_0r_Vbi_ci;
1531 : : #endif
1532 : : double i_0f;
1533 : : #if defined(_DERIVATE)
1534 : : double i_0f_Vtnode_GND;
1535 : : double i_0f_Vbi_ei;
1536 : : #endif
1537 : : double VT_f;
1538 : : #if defined(_DERIVATE)
1539 : : double VT_f_Vtnode_GND;
1540 : : #endif
1541 : : double Tr;
1542 : : double Ovpt;
1543 : : double Oich;
1544 : : double irei;
1545 : : #if defined(_DERIVATE)
1546 : : double irei_Vtnode_GND;
1547 : : double irei_Vbi_ei;
1548 : : #endif
1549 : : double ibei;
1550 : : #if defined(_DERIVATE)
1551 : : double ibei_Vtnode_GND;
1552 : : double ibei_Vbi_ei;
1553 : : #endif
1554 : : double le;
1555 : : #if defined(_DERIVATE)
1556 : : double le_Vsi_ci;
1557 : : double le_Vbp_ci;
1558 : : double le_Vbp_ei;
1559 : : double le_Vbi_ci;
1560 : : double le_Vbi_ei;
1561 : : double le_Vtnode_GND;
1562 : : #endif
1563 : : double DIOY;
1564 : : #if defined(_DERIVATE)
1565 : : double DIOY_Vsi_ci;
1566 : : double DIOY_Vbp_ci;
1567 : : double DIOY_Vbp_ei;
1568 : : double DIOY_Vbi_ci;
1569 : : double DIOY_Vbi_ei;
1570 : : double DIOY_Vtnode_GND;
1571 : : #endif
1572 : : #if defined(_DYNAMIC)
1573 : : double vpts_t;
1574 : : #if defined(_DERIVATE)
1575 : : double vpts_t_Vtnode_GND;
1576 : : #endif
1577 : : #endif
1578 : : #if defined(_DYNAMIC)
1579 : : double cjs0_t;
1580 : : #if defined(_DERIVATE)
1581 : : double cjs0_t_Vtnode_GND;
1582 : : #endif
1583 : : #endif
1584 : : #if defined(_DYNAMIC)
1585 : : double vds_t;
1586 : : #if defined(_DERIVATE)
1587 : : double vds_t_Vtnode_GND;
1588 : : #endif
1589 : : #endif
1590 : : double iscs_t;
1591 : : #if defined(_DERIVATE)
1592 : : double iscs_t_Vtnode_GND;
1593 : : #endif
1594 : : double itss_t;
1595 : : #if defined(_DERIVATE)
1596 : : double itss_t_Vtnode_GND;
1597 : : #endif
1598 : : #if defined(_DYNAMIC)
1599 : : double tsf_t;
1600 : : #if defined(_DERIVATE)
1601 : : double tsf_t_Vtnode_GND;
1602 : : #endif
1603 : : #endif
1604 : : double re_t;
1605 : : #if defined(_DERIVATE)
1606 : : double re_t_Vtnode_GND;
1607 : : #endif
1608 : : double rbx_t;
1609 : : #if defined(_DERIVATE)
1610 : : double rbx_t_Vtnode_GND;
1611 : : #endif
1612 : : double rcx_t;
1613 : : #if defined(_DERIVATE)
1614 : : double rcx_t_Vtnode_GND;
1615 : : #endif
1616 : : double ibcxs_t;
1617 : : #if defined(_DERIVATE)
1618 : : double ibcxs_t_Vtnode_GND;
1619 : : #endif
1620 : : #if defined(_DYNAMIC)
1621 : : double cjcx02_t;
1622 : : #if defined(_DERIVATE)
1623 : : double cjcx02_t_Vtnode_GND;
1624 : : #endif
1625 : : #endif
1626 : : #if defined(_DYNAMIC)
1627 : : double cjcx01_t;
1628 : : #if defined(_DERIVATE)
1629 : : double cjcx01_t_Vtnode_GND;
1630 : : #endif
1631 : : #endif
1632 : : #if defined(_DYNAMIC)
1633 : : double vptcx_t;
1634 : : #if defined(_DERIVATE)
1635 : : double vptcx_t_Vtnode_GND;
1636 : : #endif
1637 : : #endif
1638 : : #if defined(_DYNAMIC)
1639 : : double cratio_t;
1640 : : #if defined(_DERIVATE)
1641 : : double cratio_t_Vtnode_GND;
1642 : : #endif
1643 : : #endif
1644 : : #if defined(_DYNAMIC)
1645 : : double vdcx_t;
1646 : : #if defined(_DERIVATE)
1647 : : double vdcx_t_Vtnode_GND;
1648 : : #endif
1649 : : #endif
1650 : : #if defined(_DYNAMIC)
1651 : : double cjcx02;
1652 : : #endif
1653 : : #if defined(_DYNAMIC)
1654 : : double cjcx01;
1655 : : #endif
1656 : : #if defined(_DYNAMIC)
1657 : : double ccox2;
1658 : : #endif
1659 : : #if defined(_DYNAMIC)
1660 : : double ccox1;
1661 : : #endif
1662 : : #if defined(_DYNAMIC)
1663 : : double C_1;
1664 : : #endif
1665 : : double aljep_t;
1666 : : #if defined(_DERIVATE)
1667 : : double aljep_t_Vtnode_GND;
1668 : : #endif
1669 : : double cjep0_t;
1670 : : #if defined(_DERIVATE)
1671 : : double cjep0_t_Vtnode_GND;
1672 : : #endif
1673 : : double vdep_t;
1674 : : #if defined(_DERIVATE)
1675 : : double vdep_t_Vtnode_GND;
1676 : : #endif
1677 : : double ireps_t;
1678 : : #if defined(_DERIVATE)
1679 : : double ireps_t_Vtnode_GND;
1680 : : #endif
1681 : : double ibeps_t;
1682 : : #if defined(_DERIVATE)
1683 : : double ibeps_t_Vtnode_GND;
1684 : : #endif
1685 : : double rbi0_t;
1686 : : #if defined(_DERIVATE)
1687 : : double rbi0_t_Vtnode_GND;
1688 : : #endif
1689 : : double qavl_t;
1690 : : #if defined(_DERIVATE)
1691 : : double qavl_t_Vtnode_GND;
1692 : : #endif
1693 : : double favl_t;
1694 : : #if defined(_DERIVATE)
1695 : : double favl_t_Vtnode_GND;
1696 : : #endif
1697 : : double thcs_t;
1698 : : #if defined(_DERIVATE)
1699 : : double thcs_t_Vtnode_GND;
1700 : : #endif
1701 : : double tef0_t;
1702 : : #if defined(_DERIVATE)
1703 : : double tef0_t_Vtnode_GND;
1704 : : #endif
1705 : : double t0_t;
1706 : : #if defined(_DERIVATE)
1707 : : double t0_t_Vtnode_GND;
1708 : : #endif
1709 : : double vptci_t;
1710 : : #if defined(_DERIVATE)
1711 : : double vptci_t_Vtnode_GND;
1712 : : #endif
1713 : : double cjci0_t;
1714 : : #if defined(_DERIVATE)
1715 : : double cjci0_t_Vtnode_GND;
1716 : : #endif
1717 : : double vdci_t;
1718 : : #if defined(_DERIVATE)
1719 : : double vdci_t_Vtnode_GND;
1720 : : #endif
1721 : : double ibcis_t;
1722 : : #if defined(_DERIVATE)
1723 : : double ibcis_t_Vtnode_GND;
1724 : : #endif
1725 : : double vces_t;
1726 : : #if defined(_DERIVATE)
1727 : : double vces_t_Vtnode_GND;
1728 : : #endif
1729 : : double vlim_t;
1730 : : #if defined(_DERIVATE)
1731 : : double vlim_t_Vtnode_GND;
1732 : : #endif
1733 : : double k;
1734 : : #if defined(_DERIVATE)
1735 : : double k_Vtnode_GND;
1736 : : #endif
1737 : : double Orci0_t;
1738 : : #if defined(_DERIVATE)
1739 : : double Orci0_t_Vtnode_GND;
1740 : : #endif
1741 : : double qtt0_zci;
1742 : : #if defined(_DERIVATE)
1743 : : double qtt0_zci_Vtnode_GND;
1744 : : #endif
1745 : : double qp0_t;
1746 : : #if defined(_DERIVATE)
1747 : : double qp0_t_Vtnode_GND;
1748 : : #endif
1749 : : double c10_t;
1750 : : #if defined(_DERIVATE)
1751 : : double c10_t_Vtnode_GND;
1752 : : #endif
1753 : : double aljei_t;
1754 : : #if defined(_DERIVATE)
1755 : : double aljei_t_Vtnode_GND;
1756 : : #endif
1757 : : double cjei0_t;
1758 : : #if defined(_DERIVATE)
1759 : : double cjei0_t_Vtnode_GND;
1760 : : #endif
1761 : : double vdei_t;
1762 : : #if defined(_DERIVATE)
1763 : : double vdei_t_Vtnode_GND;
1764 : : #endif
1765 : : double vdjt;
1766 : : #if defined(_DERIVATE)
1767 : : double vdjt_Vtnode_GND;
1768 : : #endif
1769 : : double vdj1;
1770 : : double vdj0;
1771 : : #if defined(_DERIVATE)
1772 : : double vdj0_Vtnode_GND;
1773 : : #endif
1774 : : double ireis_t;
1775 : : #if defined(_DERIVATE)
1776 : : double ireis_t_Vtnode_GND;
1777 : : #endif
1778 : : double ibeis_t;
1779 : : #if defined(_DERIVATE)
1780 : : double ibeis_t_Vtnode_GND;
1781 : : #endif
1782 : : double a;
1783 : : #if defined(_DERIVATE)
1784 : : double a_Vci_ei;
1785 : : double a_Vbi_ei;
1786 : : double a_Vbi_ci;
1787 : : double a_Vtnode_GND;
1788 : : #endif
1789 : : double r_VgVT;
1790 : : #if defined(_DERIVATE)
1791 : : double r_VgVT_Vtnode_GND;
1792 : : #endif
1793 : : double V_gT;
1794 : : #if defined(_DERIVATE)
1795 : : double V_gT_Vtnode_GND;
1796 : : #endif
1797 : : double avs;
1798 : : double ln_qtt0;
1799 : : #if defined(_DERIVATE)
1800 : : double ln_qtt0_Vtnode_GND;
1801 : : #endif
1802 : : double qtt0;
1803 : : #if defined(_DERIVATE)
1804 : : double qtt0_Vtnode_GND;
1805 : : #endif
1806 : : double dT;
1807 : : #if defined(_DERIVATE)
1808 : : double dT_Vtnode_GND;
1809 : : #endif
1810 : : double VT;
1811 : : #if defined(_DERIVATE)
1812 : : double VT_Vtnode_GND;
1813 : : #endif
1814 : : double vt0;
1815 : : double Tdev;
1816 : : #if defined(_DERIVATE)
1817 : : double Tdev_Vtnode_GND;
1818 : : #endif
1819 : : double Tamb;
1820 : : double Tnom;
1821 : 6 : Tnom=(tnom+273.15);
1822 : 6 : Tamb=_circuit_temp;
1823 : : #if defined(_DERIVATE)
1824 : 6 : Tdev_Vtnode_GND=1.0;
1825 : : #endif
1826 : 6 : Tdev=((Tamb+dt)+NP(tnode));
1827 [ - + ]: 6 : if
1828 : : (Tdev<((-100.0)+273.15))
1829 : : {
1830 : : #if defined(_DERIVATE)
1831 : 0 : Tdev_Vtnode_GND=0.0;
1832 : : #endif
1833 : 0 : Tdev=((-100.0)+273.15);
1834 : : }
1835 : : else
1836 : : {
1837 [ - + ]: 6 : if
1838 : : (Tdev>(326.85+273.15))
1839 : : {
1840 : : #if defined(_DERIVATE)
1841 : 0 : Tdev_Vtnode_GND=0.0;
1842 : : #endif
1843 : 0 : Tdev=(326.85+273.15);
1844 : : }
1845 : : }
1846 : : #if defined(_DYNAMIC)
1847 : 6 : vt0=m00_vt(Tnom);
1848 : : #endif
1849 : : #if defined(_DERIVATE)
1850 : 6 : VT_Vtnode_GND=Tdev_Vtnode_GND*m10_vt(Tdev);
1851 : : #endif
1852 : 6 : VT=m00_vt(Tdev);
1853 : : #if defined(_DERIVATE)
1854 : 6 : dT_Vtnode_GND=Tdev_Vtnode_GND;
1855 : : #endif
1856 : 6 : dT=(Tdev-Tnom);
1857 : : #if defined(_DERIVATE)
1858 : 6 : qtt0_Vtnode_GND=(Tdev_Vtnode_GND/Tnom);
1859 : : #endif
1860 : 6 : qtt0=(Tdev/Tnom);
1861 : : {
1862 : 6 : double m00_logE(d00_logE0,qtt0)
1863 : : #if defined(_DERIVATE)
1864 : 6 : double m10_logE(d10_logE0,d00_logE0,qtt0)
1865 : : #endif
1866 : : #if defined(_DERIVATE)
1867 : 6 : ln_qtt0_Vtnode_GND=qtt0_Vtnode_GND*d10_logE0;
1868 : : #endif
1869 : 6 : ln_qtt0=d00_logE0;
1870 : : }
1871 : : #if defined(_DYNAMIC)
1872 : 6 : avs=(alvs*Tnom);
1873 : : #endif
1874 : : #if defined(_DERIVATE)
1875 : 6 : V_gT_Vtnode_GND=((((3.0*VT_Vtnode_GND)*ln_qtt0)+((3.0*VT)*ln_qtt0_Vtnode_GND))+(vgb*qtt0_Vtnode_GND));
1876 : : #endif
1877 : 6 : V_gT=(((3.0*VT)*ln_qtt0)+(vgb*(qtt0-1.0)));
1878 : : #if defined(_DERIVATE)
1879 : 6 : r_VgVT_Vtnode_GND=((V_gT_Vtnode_GND*VT-V_gT*VT_Vtnode_GND)/VT/VT);
1880 : : #endif
1881 : 6 : r_VgVT=(V_gT/VT);
1882 : : #if defined(_DERIVATE)
1883 : 6 : a_Vci_ei=0.0;
1884 : 6 : a_Vbi_ei=0.0;
1885 : 6 : a_Vbi_ci=0.0;
1886 : 6 : a_Vtnode_GND=(((mcf*r_VgVT_Vtnode_GND)/mbei)-(alb*dT_Vtnode_GND));
1887 : : #endif
1888 : 6 : a=(((mcf*r_VgVT)/mbei)-(alb*dT));
1889 : : {
1890 : 6 : double m00_exp(d00_exp0,a)
1891 : : #if defined(_DERIVATE)
1892 : : #define d10_exp0 d00_exp0
1893 : : #endif
1894 : : #if defined(_DERIVATE)
1895 : 6 : ibeis_t_Vtnode_GND=(ibeis*a_Vtnode_GND*d10_exp0);
1896 : : #endif
1897 : 6 : ibeis_t=(ibeis*d00_exp0);
1898 : : }
1899 : : #if defined(_DERIVATE)
1900 : 6 : a_Vci_ei=0.0;
1901 : 6 : a_Vbi_ei=0.0;
1902 : 6 : a_Vbi_ci=0.0;
1903 : 6 : a_Vtnode_GND=(((mcf*r_VgVT_Vtnode_GND)/mrei)-(alb*dT_Vtnode_GND));
1904 : : #endif
1905 : 6 : a=(((mcf*r_VgVT)/mrei)-(alb*dT));
1906 : : {
1907 : 6 : double m00_exp(d00_exp0,a)
1908 : : #if defined(_DERIVATE)
1909 : : #define d10_exp0 d00_exp0
1910 : : #endif
1911 : : #if defined(_DERIVATE)
1912 : 6 : ireis_t_Vtnode_GND=(ireis*a_Vtnode_GND*d10_exp0);
1913 : : #endif
1914 : 6 : ireis_t=(ireis*d00_exp0);
1915 : : }
1916 [ + - ]: 6 : if
1917 : : (cjei0>0.0)
1918 : : {
1919 : : #if defined(_DERIVATE)
1920 : 6 : vdj0_Vtnode_GND=((vdei*qtt0_Vtnode_GND)-V_gT_Vtnode_GND);
1921 : : #endif
1922 : 6 : vdj0=((vdei*qtt0)-V_gT);
1923 : 6 : vdj1=(0.1*vdei);
1924 : : #if defined(_DERIVATE)
1925 : 6 : vdjt_Vtnode_GND=((vdj0_Vtnode_GND*VT-(vdj0-vdj1)*VT_Vtnode_GND)/VT/VT);
1926 : : #endif
1927 : 6 : vdjt=((vdj0-vdj1)/VT);
1928 [ - + ]: 6 : if
1929 : : (vdjt<11.0)
1930 : : {
1931 : : {
1932 : 0 : double m00_exp(d00_exp0,vdjt)
1933 : 0 : double m00_logE(d00_logE1,(1.0+d00_exp0))
1934 : : #if defined(_DERIVATE)
1935 : : #define d10_exp0 d00_exp0
1936 : 0 : double m10_logE(d10_logE1,d00_logE1,(1.0+d00_exp0))
1937 : : #endif
1938 : : #if defined(_DERIVATE)
1939 : 0 : vdei_t_Vtnode_GND=((VT_Vtnode_GND*d00_logE1)+(VT*vdjt_Vtnode_GND*d10_exp0*d10_logE1));
1940 : : #endif
1941 : 0 : vdei_t=(vdj1+(VT*d00_logE1));
1942 : : }
1943 : : }
1944 : : else
1945 : : {
1946 : : #if defined(_DERIVATE)
1947 : 6 : vdei_t_Vtnode_GND=vdj0_Vtnode_GND;
1948 : : #endif
1949 : 6 : vdei_t=vdj0;
1950 : : }
1951 : : {
1952 : 6 : double m00_logE(d00_logE0,(vdei/vdei_t))
1953 : 6 : double m00_exp(d00_exp1,(zei*d00_logE0))
1954 : : #if defined(_DERIVATE)
1955 : 6 : double m10_logE(d10_logE0,d00_logE0,(vdei/vdei_t))
1956 : : #define d10_exp1 d00_exp1
1957 : : #endif
1958 : : #if defined(_DERIVATE)
1959 : 6 : cjei0_t_Vtnode_GND=(cjei0*(zei*(-vdei*vdei_t_Vtnode_GND/vdei_t/vdei_t)*d10_logE0)*d10_exp1);
1960 : : #endif
1961 : 6 : cjei0_t=(cjei0*d00_exp1);
1962 : : }
1963 : : if
1964 : : (1==1)
1965 : : {
1966 : : #if defined(_DERIVATE)
1967 : 6 : aljei_t_Vtnode_GND=((aljei*vdei_t_Vtnode_GND)/vdei);
1968 : : #endif
1969 : 6 : aljei_t=((aljei*vdei_t)/vdei);
1970 : : }
1971 : : else
1972 : : {
1973 : : #if defined(_DERIVATE)
1974 : : aljei_t_Vtnode_GND=0.0;
1975 : : #endif
1976 : : aljei_t=aljei;
1977 : : }
1978 : : }
1979 : : else
1980 : : {
1981 : : #if defined(_DERIVATE)
1982 : 0 : cjei0_t_Vtnode_GND=0.0;
1983 : : #endif
1984 : 0 : cjei0_t=cjei0;
1985 : : #if defined(_DERIVATE)
1986 : 0 : vdei_t_Vtnode_GND=0.0;
1987 : : #endif
1988 : 0 : vdei_t=vdei;
1989 : : #if defined(_DERIVATE)
1990 : 0 : aljei_t_Vtnode_GND=0.0;
1991 : : #endif
1992 : 0 : aljei_t=aljei;
1993 : : }
1994 : : {
1995 : 6 : double m00_exp(d00_exp0,r_VgVT)
1996 : : #if defined(_DERIVATE)
1997 : : #define d10_exp0 d00_exp0
1998 : : #endif
1999 : : #if defined(_DERIVATE)
2000 : 6 : c10_t_Vtnode_GND=(c10*r_VgVT_Vtnode_GND*d10_exp0);
2001 : : #endif
2002 : 6 : c10_t=(c10*d00_exp0);
2003 : : }
2004 : : #if defined(_DERIVATE)
2005 : 6 : a_Vci_ei=0.0;
2006 : 6 : a_Vbi_ei=0.0;
2007 : 6 : a_Vbi_ci=0.0;
2008 : 6 : a_Vtnode_GND=(vdei_t_Vtnode_GND/vdei);
2009 : : #endif
2010 : 6 : a=(vdei_t/vdei);
2011 : : #if defined(_DERIVATE)
2012 : 6 : qp0_t_Vtnode_GND=(qp0*((0.5*zei)*(-a_Vtnode_GND)));
2013 : : #endif
2014 : 6 : qp0_t=(qp0*(1.0+((0.5*zei)*(1.0-a))));
2015 : : {
2016 : 6 : double m00_exp(d00_exp0,(zetaci*ln_qtt0))
2017 : : #if defined(_DERIVATE)
2018 : : #define d10_exp0 d00_exp0
2019 : : #endif
2020 : : #if defined(_DERIVATE)
2021 : 6 : qtt0_zci_Vtnode_GND=(zetaci*ln_qtt0_Vtnode_GND)*d10_exp0;
2022 : : #endif
2023 : 6 : qtt0_zci=d00_exp0;
2024 : : }
2025 : : #if defined(_DERIVATE)
2026 : 6 : Orci0_t_Vtnode_GND=(-(rci0*qtt0_zci_Vtnode_GND)/(rci0*qtt0_zci)/(rci0*qtt0_zci));
2027 : : #endif
2028 : 6 : Orci0_t=(1.0/(rci0*qtt0_zci));
2029 : : #if defined(_DERIVATE)
2030 : 6 : a_Vci_ei=0.0;
2031 : 6 : a_Vbi_ei=0.0;
2032 : 6 : a_Vbi_ci=0.0;
2033 : 6 : a_Vtnode_GND=(((vlim*qtt0_zci_Vtnode_GND)*(1.0-(alvs*dT)))+((vlim*qtt0_zci)*(-(alvs*dT_Vtnode_GND))));
2034 : : #endif
2035 : 6 : a=((vlim*qtt0_zci)*(1.0-(alvs*dT)));
2036 : : #if defined(_DERIVATE)
2037 : 6 : k_Vtnode_GND=(((a_Vtnode_GND-VT_Vtnode_GND)*VT-(a-VT)*VT_Vtnode_GND)/VT/VT);
2038 : : #endif
2039 : 6 : k=((a-VT)/VT);
2040 [ - + ]: 6 : if
2041 : : (k<11.0)
2042 : : {
2043 : : {
2044 : 0 : double m00_exp(d00_exp0,k)
2045 : 0 : double m00_logE(d00_logE1,(1.0+d00_exp0))
2046 : : #if defined(_DERIVATE)
2047 : : #define d10_exp0 d00_exp0
2048 : 0 : double m10_logE(d10_logE1,d00_logE1,(1.0+d00_exp0))
2049 : : #endif
2050 : : #if defined(_DERIVATE)
2051 : 0 : vlim_t_Vtnode_GND=(VT_Vtnode_GND+((VT_Vtnode_GND*d00_logE1)+(VT*k_Vtnode_GND*d10_exp0*d10_logE1)));
2052 : : #endif
2053 : 0 : vlim_t=(VT+(VT*d00_logE1));
2054 : : }
2055 : : }
2056 : : else
2057 : : {
2058 : : #if defined(_DERIVATE)
2059 : 6 : vlim_t_Vtnode_GND=a_Vtnode_GND;
2060 : : #endif
2061 : 6 : vlim_t=a;
2062 : : }
2063 : : #if defined(_DERIVATE)
2064 : 6 : vces_t_Vtnode_GND=(vces*(alces*dT_Vtnode_GND));
2065 : : #endif
2066 : 6 : vces_t=(vces*(1+(alces*dT)));
2067 : : #if defined(_DERIVATE)
2068 : 6 : a_Vci_ei=0.0;
2069 : 6 : a_Vbi_ei=0.0;
2070 : 6 : a_Vbi_ci=0.0;
2071 : 6 : a_Vtnode_GND=(r_VgVT_Vtnode_GND/mbci);
2072 : : #endif
2073 : 6 : a=(r_VgVT/mbci);
2074 : : {
2075 : 6 : double m00_exp(d00_exp0,a)
2076 : : #if defined(_DERIVATE)
2077 : : #define d10_exp0 d00_exp0
2078 : : #endif
2079 : : #if defined(_DERIVATE)
2080 : 6 : ibcis_t_Vtnode_GND=(ibcis*a_Vtnode_GND*d10_exp0);
2081 : : #endif
2082 : 6 : ibcis_t=(ibcis*d00_exp0);
2083 : : }
2084 [ + - ]: 6 : if
2085 : : (cjci0>0.0)
2086 : : {
2087 : : #if defined(_DERIVATE)
2088 : 6 : vdj0_Vtnode_GND=((vdci*qtt0_Vtnode_GND)-V_gT_Vtnode_GND);
2089 : : #endif
2090 : 6 : vdj0=((vdci*qtt0)-V_gT);
2091 : 6 : vdj1=(0.1*vdci);
2092 : : #if defined(_DERIVATE)
2093 : 6 : vdjt_Vtnode_GND=((vdj0_Vtnode_GND*VT-(vdj0-vdj1)*VT_Vtnode_GND)/VT/VT);
2094 : : #endif
2095 : 6 : vdjt=((vdj0-vdj1)/VT);
2096 [ - + ]: 6 : if
2097 : : (vdjt<11.0)
2098 : : {
2099 : : {
2100 : 0 : double m00_exp(d00_exp0,vdjt)
2101 : 0 : double m00_logE(d00_logE1,(1.0+d00_exp0))
2102 : : #if defined(_DERIVATE)
2103 : : #define d10_exp0 d00_exp0
2104 : 0 : double m10_logE(d10_logE1,d00_logE1,(1.0+d00_exp0))
2105 : : #endif
2106 : : #if defined(_DERIVATE)
2107 : 0 : vdci_t_Vtnode_GND=((VT_Vtnode_GND*d00_logE1)+(VT*vdjt_Vtnode_GND*d10_exp0*d10_logE1));
2108 : : #endif
2109 : 0 : vdci_t=(vdj1+(VT*d00_logE1));
2110 : : }
2111 : : }
2112 : : else
2113 : : {
2114 : : #if defined(_DERIVATE)
2115 : 6 : vdci_t_Vtnode_GND=vdj0_Vtnode_GND;
2116 : : #endif
2117 : 6 : vdci_t=vdj0;
2118 : : }
2119 : : {
2120 : 6 : double m00_logE(d00_logE0,(vdci/vdci_t))
2121 : 6 : double m00_exp(d00_exp1,(zci*d00_logE0))
2122 : : #if defined(_DERIVATE)
2123 : 6 : double m10_logE(d10_logE0,d00_logE0,(vdci/vdci_t))
2124 : : #define d10_exp1 d00_exp1
2125 : : #endif
2126 : : #if defined(_DERIVATE)
2127 : 6 : cjci0_t_Vtnode_GND=(cjci0*(zci*(-vdci*vdci_t_Vtnode_GND/vdci_t/vdci_t)*d10_logE0)*d10_exp1);
2128 : : #endif
2129 : 6 : cjci0_t=(cjci0*d00_exp1);
2130 : : }
2131 : : if
2132 : : (0==1)
2133 : : {
2134 : : #if defined(_DERIVATE)
2135 : : vptci_t_Vtnode_GND=((vptci*vdci_t_Vtnode_GND)/vdci);
2136 : : #endif
2137 : : vptci_t=((vptci*vdci_t)/vdci);
2138 : : }
2139 : : else
2140 : : {
2141 : : #if defined(_DERIVATE)
2142 : 6 : vptci_t_Vtnode_GND=0.0;
2143 : : #endif
2144 : 6 : vptci_t=vptci;
2145 : : }
2146 : : }
2147 : : else
2148 : : {
2149 : : #if defined(_DERIVATE)
2150 : 0 : cjci0_t_Vtnode_GND=0.0;
2151 : : #endif
2152 : 0 : cjci0_t=cjci0;
2153 : : #if defined(_DERIVATE)
2154 : 0 : vdci_t_Vtnode_GND=0.0;
2155 : : #endif
2156 : 0 : vdci_t=vdci;
2157 : : #if defined(_DERIVATE)
2158 : 0 : vptci_t_Vtnode_GND=0.0;
2159 : : #endif
2160 : 0 : vptci_t=vptci;
2161 : : }
2162 : : #if defined(_DERIVATE)
2163 : 6 : t0_t_Vtnode_GND=(t0*((alt0*dT_Vtnode_GND)+(((kt0*dT_Vtnode_GND)*dT)+((kt0*dT)*dT_Vtnode_GND))));
2164 : : #endif
2165 : 6 : t0_t=(t0*((1+(alt0*dT))+((kt0*dT)*dT)));
2166 : : #if defined(_DERIVATE)
2167 : 6 : a_Vci_ei=0.0;
2168 : 6 : a_Vbi_ei=0.0;
2169 : 6 : a_Vbi_ci=0.0;
2170 : 6 : a_Vtnode_GND=(alb*dT_Vtnode_GND);
2171 : : #endif
2172 : 6 : a=(1.0+(alb*dT));
2173 : : {
2174 : 6 : double m00_sqrt(d00_sqrt0,((a*a)+0.01))
2175 : : #if defined(_DERIVATE)
2176 : 6 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((a*a)+0.01))
2177 : : #endif
2178 : : #if defined(_DERIVATE)
2179 : 6 : k_Vtnode_GND=(0.5*(a_Vtnode_GND+((a_Vtnode_GND*a)+(a*a_Vtnode_GND))*d10_sqrt0));
2180 : : #endif
2181 : 6 : k=(0.5*(a+d00_sqrt0));
2182 : : }
2183 : : #if defined(_DERIVATE)
2184 : 6 : tef0_t_Vtnode_GND=(((tef0*qtt0_Vtnode_GND)*k-(tef0*qtt0)*k_Vtnode_GND)/k/k);
2185 : : #endif
2186 : 6 : tef0_t=((tef0*qtt0)/k);
2187 : : #if defined(_DERIVATE)
2188 : 6 : thcs_t_Vtnode_GND=(((thcs*qtt0_zci_Vtnode_GND)*qtt0-(thcs*qtt0_zci)*qtt0_Vtnode_GND)/qtt0/qtt0);
2189 : : #endif
2190 : 6 : thcs_t=((thcs*qtt0_zci)/qtt0);
2191 : : {
2192 : 6 : double m00_exp(d00_exp0,(alfav*dT))
2193 : : #if defined(_DERIVATE)
2194 : : #define d10_exp0 d00_exp0
2195 : : #endif
2196 : : #if defined(_DERIVATE)
2197 : 6 : favl_t_Vtnode_GND=(favl*(alfav*dT_Vtnode_GND)*d10_exp0);
2198 : : #endif
2199 : 6 : favl_t=(favl*d00_exp0);
2200 : : }
2201 : : {
2202 : 6 : double m00_exp(d00_exp0,(alqav*dT))
2203 : : #if defined(_DERIVATE)
2204 : : #define d10_exp0 d00_exp0
2205 : : #endif
2206 : : #if defined(_DERIVATE)
2207 : 6 : qavl_t_Vtnode_GND=(qavl*(alqav*dT_Vtnode_GND)*d10_exp0);
2208 : : #endif
2209 : 6 : qavl_t=(qavl*d00_exp0);
2210 : : }
2211 : : {
2212 : 6 : double m00_exp(d00_exp0,(zetarbi*ln_qtt0))
2213 : : #if defined(_DERIVATE)
2214 : : #define d10_exp0 d00_exp0
2215 : : #endif
2216 : : #if defined(_DERIVATE)
2217 : 6 : rbi0_t_Vtnode_GND=(rbi0*(zetarbi*ln_qtt0_Vtnode_GND)*d10_exp0);
2218 : : #endif
2219 : 6 : rbi0_t=(rbi0*d00_exp0);
2220 : : }
2221 : : #if defined(_DERIVATE)
2222 : 6 : a_Vci_ei=0.0;
2223 : 6 : a_Vbi_ei=0.0;
2224 : 6 : a_Vbi_ci=0.0;
2225 : 6 : a_Vtnode_GND=(((mcf*r_VgVT_Vtnode_GND)/mbep)-(alb*dT_Vtnode_GND));
2226 : : #endif
2227 : 6 : a=(((mcf*r_VgVT)/mbep)-(alb*dT));
2228 : : {
2229 : 6 : double m00_exp(d00_exp0,a)
2230 : : #if defined(_DERIVATE)
2231 : : #define d10_exp0 d00_exp0
2232 : : #endif
2233 : : #if defined(_DERIVATE)
2234 : 6 : ibeps_t_Vtnode_GND=(ibeps*a_Vtnode_GND*d10_exp0);
2235 : : #endif
2236 : 6 : ibeps_t=(ibeps*d00_exp0);
2237 : : }
2238 : : #if defined(_DERIVATE)
2239 : 6 : a_Vci_ei=0.0;
2240 : 6 : a_Vbi_ei=0.0;
2241 : 6 : a_Vbi_ci=0.0;
2242 : 6 : a_Vtnode_GND=(((mcf*r_VgVT_Vtnode_GND)/mrep)-(alb*dT_Vtnode_GND));
2243 : : #endif
2244 : 6 : a=(((mcf*r_VgVT)/mrep)-(alb*dT));
2245 : : {
2246 : 6 : double m00_exp(d00_exp0,a)
2247 : : #if defined(_DERIVATE)
2248 : : #define d10_exp0 d00_exp0
2249 : : #endif
2250 : : #if defined(_DERIVATE)
2251 : 6 : ireps_t_Vtnode_GND=(ireps*a_Vtnode_GND*d10_exp0);
2252 : : #endif
2253 : 6 : ireps_t=(ireps*d00_exp0);
2254 : : }
2255 [ - + ]: 6 : if
2256 : : (cjep0>0.0)
2257 : : {
2258 : : #if defined(_DERIVATE)
2259 : 0 : vdj0_Vtnode_GND=((vdep*qtt0_Vtnode_GND)-V_gT_Vtnode_GND);
2260 : : #endif
2261 : 0 : vdj0=((vdep*qtt0)-V_gT);
2262 : 0 : vdj1=(0.1*vdep);
2263 : : #if defined(_DERIVATE)
2264 : 0 : vdjt_Vtnode_GND=((vdj0_Vtnode_GND*VT-(vdj0-vdj1)*VT_Vtnode_GND)/VT/VT);
2265 : : #endif
2266 : 0 : vdjt=((vdj0-vdj1)/VT);
2267 [ # # ]: 0 : if
2268 : : (vdjt<11.0)
2269 : : {
2270 : : {
2271 : 0 : double m00_exp(d00_exp0,vdjt)
2272 : 0 : double m00_logE(d00_logE1,(1.0+d00_exp0))
2273 : : #if defined(_DERIVATE)
2274 : : #define d10_exp0 d00_exp0
2275 : 0 : double m10_logE(d10_logE1,d00_logE1,(1.0+d00_exp0))
2276 : : #endif
2277 : : #if defined(_DERIVATE)
2278 : 0 : vdep_t_Vtnode_GND=((VT_Vtnode_GND*d00_logE1)+(VT*vdjt_Vtnode_GND*d10_exp0*d10_logE1));
2279 : : #endif
2280 : 0 : vdep_t=(vdj1+(VT*d00_logE1));
2281 : : }
2282 : : }
2283 : : else
2284 : : {
2285 : : #if defined(_DERIVATE)
2286 : 0 : vdep_t_Vtnode_GND=vdj0_Vtnode_GND;
2287 : : #endif
2288 : 0 : vdep_t=vdj0;
2289 : : }
2290 : : {
2291 : 0 : double m00_logE(d00_logE0,(vdep/vdep_t))
2292 : 0 : double m00_exp(d00_exp1,(zep*d00_logE0))
2293 : : #if defined(_DERIVATE)
2294 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdep/vdep_t))
2295 : : #define d10_exp1 d00_exp1
2296 : : #endif
2297 : : #if defined(_DERIVATE)
2298 : 0 : cjep0_t_Vtnode_GND=(cjep0*(zep*(-vdep*vdep_t_Vtnode_GND/vdep_t/vdep_t)*d10_logE0)*d10_exp1);
2299 : : #endif
2300 : 0 : cjep0_t=(cjep0*d00_exp1);
2301 : : }
2302 : : if
2303 : : (1==1)
2304 : : {
2305 : : #if defined(_DERIVATE)
2306 : 0 : aljep_t_Vtnode_GND=((aljep*vdep_t_Vtnode_GND)/vdep);
2307 : : #endif
2308 : 0 : aljep_t=((aljep*vdep_t)/vdep);
2309 : : }
2310 : : else
2311 : : {
2312 : : #if defined(_DERIVATE)
2313 : : aljep_t_Vtnode_GND=0.0;
2314 : : #endif
2315 : : aljep_t=aljep;
2316 : : }
2317 : : }
2318 : : else
2319 : : {
2320 : : #if defined(_DERIVATE)
2321 : 6 : cjep0_t_Vtnode_GND=0.0;
2322 : : #endif
2323 : 6 : cjep0_t=cjep0;
2324 : : #if defined(_DERIVATE)
2325 : 6 : vdep_t_Vtnode_GND=0.0;
2326 : : #endif
2327 : 6 : vdep_t=vdep;
2328 : : #if defined(_DERIVATE)
2329 : 6 : aljep_t_Vtnode_GND=0.0;
2330 : : #endif
2331 : 6 : aljep_t=aljep;
2332 : : }
2333 : : #if defined(_DYNAMIC)
2334 : 6 : C_1=((1.0-fbc)*(cjcx0+ccox));
2335 : : #endif
2336 : : #ifdef _DYNAMIC
2337 [ + - ]: 6 : if
2338 : : (C_1>=ccox)
2339 : : {
2340 : : #if defined(_DYNAMIC)
2341 : 6 : ccox1=ccox;
2342 : : #endif
2343 : : #if defined(_DYNAMIC)
2344 : 6 : ccox2=0;
2345 : : #endif
2346 : : #if defined(_DYNAMIC)
2347 : 6 : cjcx01=(C_1-ccox);
2348 : : #endif
2349 : : #if defined(_DYNAMIC)
2350 : 6 : cjcx02=(cjcx0-cjcx01);
2351 : : #endif
2352 : : }
2353 : : else
2354 : : {
2355 : : #if defined(_DYNAMIC)
2356 : 0 : ccox1=C_1;
2357 : : #endif
2358 : : #if defined(_DYNAMIC)
2359 : 0 : ccox2=(ccox-ccox1);
2360 : : #endif
2361 : : #if defined(_DYNAMIC)
2362 : 0 : cjcx01=0.0;
2363 : : #endif
2364 : : #if defined(_DYNAMIC)
2365 : 0 : cjcx02=cjcx0;
2366 : : #endif
2367 : : }
2368 : : #endif /* if (...) */
2369 : : #ifdef _DYNAMIC
2370 : : if
2371 : : (1.0>0.0)
2372 : : {
2373 : : #if defined(_DYNAMIC)
2374 : : #if defined(_DERIVATE)
2375 : 6 : vdj0_Vtnode_GND=((vdcx*qtt0_Vtnode_GND)-V_gT_Vtnode_GND);
2376 : : #endif
2377 : 6 : vdj0=((vdcx*qtt0)-V_gT);
2378 : : #endif
2379 : : #if defined(_DYNAMIC)
2380 : 6 : vdj1=(0.1*vdcx);
2381 : : #endif
2382 : : #if defined(_DYNAMIC)
2383 : : #if defined(_DERIVATE)
2384 : 6 : vdjt_Vtnode_GND=((vdj0_Vtnode_GND*VT-(vdj0-vdj1)*VT_Vtnode_GND)/VT/VT);
2385 : : #endif
2386 : 6 : vdjt=((vdj0-vdj1)/VT);
2387 : : #endif
2388 : : #ifdef _DYNAMIC
2389 [ - + ]: 6 : if
2390 : : (vdjt<11.0)
2391 : : {
2392 : : #if defined(_DYNAMIC)
2393 : : {
2394 : 0 : double m00_exp(d00_exp0,vdjt)
2395 : 0 : double m00_logE(d00_logE1,(1.0+d00_exp0))
2396 : : #if defined(_DERIVATE)
2397 : : #define d10_exp0 d00_exp0
2398 : 0 : double m10_logE(d10_logE1,d00_logE1,(1.0+d00_exp0))
2399 : : #endif
2400 : : #if defined(_DERIVATE)
2401 : 0 : vdcx_t_Vtnode_GND=((VT_Vtnode_GND*d00_logE1)+(VT*vdjt_Vtnode_GND*d10_exp0*d10_logE1));
2402 : : #endif
2403 : 0 : vdcx_t=(vdj1+(VT*d00_logE1));
2404 : : }
2405 : : #endif
2406 : : }
2407 : : else
2408 : : {
2409 : : #if defined(_DYNAMIC)
2410 : : #if defined(_DERIVATE)
2411 : 6 : vdcx_t_Vtnode_GND=vdj0_Vtnode_GND;
2412 : : #endif
2413 : 6 : vdcx_t=vdj0;
2414 : : #endif
2415 : : }
2416 : : #endif /* if (...) */
2417 : : #if defined(_DYNAMIC)
2418 : : {
2419 : 6 : double m00_logE(d00_logE0,(vdcx/vdcx_t))
2420 : 6 : double m00_exp(d00_exp1,(zcx*d00_logE0))
2421 : : #if defined(_DERIVATE)
2422 : 6 : double m10_logE(d10_logE0,d00_logE0,(vdcx/vdcx_t))
2423 : : #define d10_exp1 d00_exp1
2424 : : #endif
2425 : : #if defined(_DERIVATE)
2426 : 6 : cratio_t_Vtnode_GND=(1.0*(zcx*(-vdcx*vdcx_t_Vtnode_GND/vdcx_t/vdcx_t)*d10_logE0)*d10_exp1);
2427 : : #endif
2428 : 6 : cratio_t=(1.0*d00_exp1);
2429 : : }
2430 : : #endif
2431 : : #ifdef _DYNAMIC
2432 : : if
2433 : : (0==1)
2434 : : {
2435 : : #if defined(_DYNAMIC)
2436 : : #if defined(_DERIVATE)
2437 : : vptcx_t_Vtnode_GND=((vptcx*vdcx_t_Vtnode_GND)/vdcx);
2438 : : #endif
2439 : : vptcx_t=((vptcx*vdcx_t)/vdcx);
2440 : : #endif
2441 : : }
2442 : : else
2443 : : {
2444 : : #if defined(_DYNAMIC)
2445 : : #if defined(_DERIVATE)
2446 : 6 : vptcx_t_Vtnode_GND=0.0;
2447 : : #endif
2448 : 6 : vptcx_t=vptcx;
2449 : : #endif
2450 : : }
2451 : : #endif /* if (...) */
2452 : : }
2453 : : else
2454 : : {
2455 : : #if defined(_DYNAMIC)
2456 : : #if defined(_DERIVATE)
2457 : : cratio_t_Vtnode_GND=0.0;
2458 : : #endif
2459 : : cratio_t=1.0;
2460 : : #endif
2461 : : #if defined(_DYNAMIC)
2462 : : #if defined(_DERIVATE)
2463 : : vdcx_t_Vtnode_GND=0.0;
2464 : : #endif
2465 : : vdcx_t=vdcx;
2466 : : #endif
2467 : : #if defined(_DYNAMIC)
2468 : : #if defined(_DERIVATE)
2469 : : vptcx_t_Vtnode_GND=0.0;
2470 : : #endif
2471 : : vptcx_t=vptcx;
2472 : : #endif
2473 : : }
2474 : : #endif /* if (...) */
2475 : : #if defined(_DYNAMIC)
2476 : : #if defined(_DERIVATE)
2477 : 6 : cjcx01_t_Vtnode_GND=cratio_t_Vtnode_GND*cjcx01;
2478 : : #endif
2479 : 6 : cjcx01_t=(cratio_t*cjcx01);
2480 : : #endif
2481 : : #if defined(_DYNAMIC)
2482 : : #if defined(_DERIVATE)
2483 : 6 : cjcx02_t_Vtnode_GND=cratio_t_Vtnode_GND*cjcx02;
2484 : : #endif
2485 : 6 : cjcx02_t=(cratio_t*cjcx02);
2486 : : #endif
2487 : : #if defined(_DERIVATE)
2488 : 6 : a_Vci_ei=0.0;
2489 : 6 : a_Vbi_ei=0.0;
2490 : 6 : a_Vbi_ci=0.0;
2491 : 6 : a_Vtnode_GND=(r_VgVT_Vtnode_GND/mbcx);
2492 : : #endif
2493 : 6 : a=(r_VgVT/mbcx);
2494 : : {
2495 : 6 : double m00_exp(d00_exp0,a)
2496 : : #if defined(_DERIVATE)
2497 : : #define d10_exp0 d00_exp0
2498 : : #endif
2499 : : #if defined(_DERIVATE)
2500 : 6 : ibcxs_t_Vtnode_GND=(ibcxs*a_Vtnode_GND*d10_exp0);
2501 : : #endif
2502 : 6 : ibcxs_t=(ibcxs*d00_exp0);
2503 : : }
2504 : : {
2505 : 6 : double m00_exp(d00_exp0,(zetarcx*ln_qtt0))
2506 : : #if defined(_DERIVATE)
2507 : : #define d10_exp0 d00_exp0
2508 : : #endif
2509 : : #if defined(_DERIVATE)
2510 : 6 : rcx_t_Vtnode_GND=(rcx*(zetarcx*ln_qtt0_Vtnode_GND)*d10_exp0);
2511 : : #endif
2512 : 6 : rcx_t=(rcx*d00_exp0);
2513 : : }
2514 : : {
2515 : 6 : double m00_exp(d00_exp0,(zetarbx*ln_qtt0))
2516 : : #if defined(_DERIVATE)
2517 : : #define d10_exp0 d00_exp0
2518 : : #endif
2519 : : #if defined(_DERIVATE)
2520 : 6 : rbx_t_Vtnode_GND=(rbx*(zetarbx*ln_qtt0_Vtnode_GND)*d10_exp0);
2521 : : #endif
2522 : 6 : rbx_t=(rbx*d00_exp0);
2523 : : }
2524 : : {
2525 : 6 : double m00_exp(d00_exp0,(zetare*ln_qtt0))
2526 : : #if defined(_DERIVATE)
2527 : : #define d10_exp0 d00_exp0
2528 : : #endif
2529 : : #if defined(_DERIVATE)
2530 : 6 : re_t_Vtnode_GND=(re*(zetare*ln_qtt0_Vtnode_GND)*d10_exp0);
2531 : : #endif
2532 : 6 : re_t=(re*d00_exp0);
2533 : : }
2534 : : #if defined(_DYNAMIC)
2535 : : {
2536 : 6 : double m00_exp(d00_exp0,((zetacx-1.0)*ln_qtt0))
2537 : : #if defined(_DERIVATE)
2538 : : #define d10_exp0 d00_exp0
2539 : : #endif
2540 : : #if defined(_DERIVATE)
2541 : 6 : tsf_t_Vtnode_GND=(tsf*((zetacx-1.0)*ln_qtt0_Vtnode_GND)*d10_exp0);
2542 : : #endif
2543 : 6 : tsf_t=(tsf*d00_exp0);
2544 : : }
2545 : : #endif
2546 : : #if defined(_DERIVATE)
2547 : 6 : a_Vci_ei=0.0;
2548 : 6 : a_Vbi_ei=0.0;
2549 : 6 : a_Vbi_ci=0.0;
2550 : 6 : a_Vtnode_GND=(r_VgVT_Vtnode_GND/msf);
2551 : : #endif
2552 : 6 : a=(r_VgVT/msf);
2553 : : {
2554 : 6 : double m00_exp(d00_exp0,a)
2555 : : #if defined(_DERIVATE)
2556 : : #define d10_exp0 d00_exp0
2557 : : #endif
2558 : : #if defined(_DERIVATE)
2559 : 6 : itss_t_Vtnode_GND=(itss*a_Vtnode_GND*d10_exp0);
2560 : : #endif
2561 : 6 : itss_t=(itss*d00_exp0);
2562 : : }
2563 : : #if defined(_DERIVATE)
2564 : 6 : a_Vci_ei=0.0;
2565 : 6 : a_Vbi_ei=0.0;
2566 : 6 : a_Vbi_ci=0.0;
2567 : 6 : a_Vtnode_GND=r_VgVT_Vtnode_GND*msc;
2568 : : #endif
2569 : 6 : a=(r_VgVT*msc);
2570 : : {
2571 : 6 : double m00_exp(d00_exp0,a)
2572 : : #if defined(_DERIVATE)
2573 : : #define d10_exp0 d00_exp0
2574 : : #endif
2575 : : #if defined(_DERIVATE)
2576 : 6 : iscs_t_Vtnode_GND=(iscs*a_Vtnode_GND*d10_exp0);
2577 : : #endif
2578 : 6 : iscs_t=(iscs*d00_exp0);
2579 : : }
2580 : : #ifdef _DYNAMIC
2581 [ + - ]: 6 : if
2582 : : (cjs0>0.0)
2583 : : {
2584 : : #if defined(_DYNAMIC)
2585 : : #if defined(_DERIVATE)
2586 : 6 : vdj0_Vtnode_GND=((vds*qtt0_Vtnode_GND)-V_gT_Vtnode_GND);
2587 : : #endif
2588 : 6 : vdj0=((vds*qtt0)-V_gT);
2589 : : #endif
2590 : : #if defined(_DYNAMIC)
2591 : 6 : vdj1=(0.1*vds);
2592 : : #endif
2593 : : #if defined(_DYNAMIC)
2594 : : #if defined(_DERIVATE)
2595 : 6 : vdjt_Vtnode_GND=((vdj0_Vtnode_GND*VT-(vdj0-vdj1)*VT_Vtnode_GND)/VT/VT);
2596 : : #endif
2597 : 6 : vdjt=((vdj0-vdj1)/VT);
2598 : : #endif
2599 : : #ifdef _DYNAMIC
2600 [ - + ]: 6 : if
2601 : : (vdjt<11.0)
2602 : : {
2603 : : #if defined(_DYNAMIC)
2604 : : {
2605 : 0 : double m00_exp(d00_exp0,vdjt)
2606 : 0 : double m00_logE(d00_logE1,(1.0+d00_exp0))
2607 : : #if defined(_DERIVATE)
2608 : : #define d10_exp0 d00_exp0
2609 : 0 : double m10_logE(d10_logE1,d00_logE1,(1.0+d00_exp0))
2610 : : #endif
2611 : : #if defined(_DERIVATE)
2612 : 0 : vds_t_Vtnode_GND=((VT_Vtnode_GND*d00_logE1)+(VT*vdjt_Vtnode_GND*d10_exp0*d10_logE1));
2613 : : #endif
2614 : 0 : vds_t=(vdj1+(VT*d00_logE1));
2615 : : }
2616 : : #endif
2617 : : }
2618 : : else
2619 : : {
2620 : : #if defined(_DYNAMIC)
2621 : : #if defined(_DERIVATE)
2622 : 6 : vds_t_Vtnode_GND=vdj0_Vtnode_GND;
2623 : : #endif
2624 : 6 : vds_t=vdj0;
2625 : : #endif
2626 : : }
2627 : : #endif /* if (...) */
2628 : : #if defined(_DYNAMIC)
2629 : : {
2630 : 6 : double m00_logE(d00_logE0,(vds/vds_t))
2631 : 6 : double m00_exp(d00_exp1,(zs*d00_logE0))
2632 : : #if defined(_DERIVATE)
2633 : 6 : double m10_logE(d10_logE0,d00_logE0,(vds/vds_t))
2634 : : #define d10_exp1 d00_exp1
2635 : : #endif
2636 : : #if defined(_DERIVATE)
2637 : 6 : cjs0_t_Vtnode_GND=(cjs0*(zs*(-vds*vds_t_Vtnode_GND/vds_t/vds_t)*d10_logE0)*d10_exp1);
2638 : : #endif
2639 : 6 : cjs0_t=(cjs0*d00_exp1);
2640 : : }
2641 : : #endif
2642 : : #ifdef _DYNAMIC
2643 : : if
2644 : : (0==1)
2645 : : {
2646 : : #if defined(_DYNAMIC)
2647 : : #if defined(_DERIVATE)
2648 : : vpts_t_Vtnode_GND=((vpts*vds_t_Vtnode_GND)/vds);
2649 : : #endif
2650 : : vpts_t=((vpts*vds_t)/vds);
2651 : : #endif
2652 : : }
2653 : : else
2654 : : {
2655 : : #if defined(_DYNAMIC)
2656 : : #if defined(_DERIVATE)
2657 : 6 : vpts_t_Vtnode_GND=0.0;
2658 : : #endif
2659 : 6 : vpts_t=vpts;
2660 : : #endif
2661 : : }
2662 : : #endif /* if (...) */
2663 : : }
2664 : : else
2665 : : {
2666 : : #if defined(_DYNAMIC)
2667 : : #if defined(_DERIVATE)
2668 : 0 : cjs0_t_Vtnode_GND=0.0;
2669 : : #endif
2670 : 0 : cjs0_t=cjs0;
2671 : : #endif
2672 : : #if defined(_DYNAMIC)
2673 : : #if defined(_DERIVATE)
2674 : 0 : vds_t_Vtnode_GND=0.0;
2675 : : #endif
2676 : 0 : vds_t=vds;
2677 : : #endif
2678 : : #if defined(_DYNAMIC)
2679 : : #if defined(_DERIVATE)
2680 : 0 : vpts_t_Vtnode_GND=0.0;
2681 : : #endif
2682 : 0 : vpts_t=vpts;
2683 : : #endif
2684 : : }
2685 : : #endif /* if (...) */
2686 : : #if defined(_DERIVATE)
2687 : 6 : DIOY_Vsi_ci=0.0;
2688 : 6 : DIOY_Vbp_ci=0.0;
2689 : 6 : DIOY_Vbp_ei=0.0;
2690 : 6 : DIOY_Vbi_ci=0.0;
2691 : 6 : DIOY_Vbi_ei=(1/(mbei*VT));
2692 [ + - ]: 6 : DIOY_Vtnode_GND=(-BP(bi,ei)*(mbei*VT_Vtnode_GND)/(mbei*VT)/(mbei*VT));
2693 : : #endif
2694 [ + - ]: 6 : DIOY=(BP(bi,ei)/(mbei*VT));
2695 [ + - ]: 6 : if
2696 : : (ibeis>0.0)
2697 : : {
2698 [ - + ]: 6 : if
2699 : : (DIOY>80.0)
2700 : : {
2701 : : #if defined(_DERIVATE)
2702 : 0 : le_Vsi_ci=0.0;
2703 : 0 : le_Vbp_ci=0.0;
2704 : 0 : le_Vbp_ei=0.0;
2705 : 0 : le_Vbi_ci=0.0;
2706 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
2707 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
2708 : : #endif
2709 : 0 : le=(1+(DIOY-80.0));
2710 : : #if defined(_DERIVATE)
2711 : 0 : DIOY_Vsi_ci=0.0;
2712 : 0 : DIOY_Vbp_ci=0.0;
2713 : 0 : DIOY_Vbp_ei=0.0;
2714 : 0 : DIOY_Vbi_ci=0.0;
2715 : 0 : DIOY_Vbi_ei=0.0;
2716 : 0 : DIOY_Vtnode_GND=0.0;
2717 : : #endif
2718 : 0 : DIOY=80.0;
2719 : : }
2720 : : else
2721 : : {
2722 : : #if defined(_DERIVATE)
2723 : 6 : le_Vsi_ci=0.0;
2724 : 6 : le_Vbp_ci=0.0;
2725 : 6 : le_Vbp_ei=0.0;
2726 : 6 : le_Vbi_ci=0.0;
2727 : 6 : le_Vbi_ei=0.0;
2728 : 6 : le_Vtnode_GND=0.0;
2729 : : #endif
2730 : 6 : le=1;
2731 : : }
2732 : : {
2733 [ + - ]: 6 : double m00_limexp(d00_limexp0,DIOY)
2734 : : #if defined(_DERIVATE)
2735 [ + - ]: 6 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
2736 : : #endif
2737 : : #if defined(_DERIVATE)
2738 : 6 : le_Vsi_ci=0.0;
2739 : 6 : le_Vbp_ci=0.0;
2740 : 6 : le_Vbp_ei=0.0;
2741 : 6 : le_Vbi_ci=0.0;
2742 : 6 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
2743 : 6 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
2744 : : #endif
2745 : 6 : le=(le*d00_limexp0);
2746 : : }
2747 : : #if defined(_DERIVATE)
2748 : 6 : ibei_Vtnode_GND=((ibeis_t_Vtnode_GND*(le-1.0))+(ibeis_t*le_Vtnode_GND));
2749 : 6 : ibei_Vbi_ei=(ibeis_t*le_Vbi_ei);
2750 : : #endif
2751 : 6 : ibei=(ibeis_t*(le-1.0));
2752 [ - + ]: 6 : if
2753 : : (DIOY<=(-14.0))
2754 : : {
2755 : : #if defined(_DERIVATE)
2756 : 0 : ibei_Vtnode_GND=(-ibeis_t_Vtnode_GND);
2757 : 0 : ibei_Vbi_ei=0.0;
2758 : : #endif
2759 : 0 : ibei=(-ibeis_t);
2760 : : }
2761 : : }
2762 : : else
2763 : : {
2764 : : #if defined(_DERIVATE)
2765 : 0 : ibei_Vtnode_GND=0.0;
2766 : 0 : ibei_Vbi_ei=0.0;
2767 : : #endif
2768 : 0 : ibei=0.0;
2769 : : }
2770 : : #if defined(_DERIVATE)
2771 : 6 : DIOY_Vsi_ci=0.0;
2772 : 6 : DIOY_Vbp_ci=0.0;
2773 : 6 : DIOY_Vbp_ei=0.0;
2774 : 6 : DIOY_Vbi_ci=0.0;
2775 : 6 : DIOY_Vbi_ei=(1/(mrei*VT));
2776 [ + - ]: 6 : DIOY_Vtnode_GND=(-BP(bi,ei)*(mrei*VT_Vtnode_GND)/(mrei*VT)/(mrei*VT));
2777 : : #endif
2778 [ + - ]: 6 : DIOY=(BP(bi,ei)/(mrei*VT));
2779 [ + - ]: 6 : if
2780 : : (ireis>0.0)
2781 : : {
2782 [ - + ]: 6 : if
2783 : : (DIOY>80.0)
2784 : : {
2785 : : #if defined(_DERIVATE)
2786 : 0 : le_Vsi_ci=0.0;
2787 : 0 : le_Vbp_ci=0.0;
2788 : 0 : le_Vbp_ei=0.0;
2789 : 0 : le_Vbi_ci=0.0;
2790 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
2791 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
2792 : : #endif
2793 : 0 : le=(1+(DIOY-80.0));
2794 : : #if defined(_DERIVATE)
2795 : 0 : DIOY_Vsi_ci=0.0;
2796 : 0 : DIOY_Vbp_ci=0.0;
2797 : 0 : DIOY_Vbp_ei=0.0;
2798 : 0 : DIOY_Vbi_ci=0.0;
2799 : 0 : DIOY_Vbi_ei=0.0;
2800 : 0 : DIOY_Vtnode_GND=0.0;
2801 : : #endif
2802 : 0 : DIOY=80.0;
2803 : : }
2804 : : else
2805 : : {
2806 : : #if defined(_DERIVATE)
2807 : 6 : le_Vsi_ci=0.0;
2808 : 6 : le_Vbp_ci=0.0;
2809 : 6 : le_Vbp_ei=0.0;
2810 : 6 : le_Vbi_ci=0.0;
2811 : 6 : le_Vbi_ei=0.0;
2812 : 6 : le_Vtnode_GND=0.0;
2813 : : #endif
2814 : 6 : le=1;
2815 : : }
2816 : : {
2817 [ + - ]: 6 : double m00_limexp(d00_limexp0,DIOY)
2818 : : #if defined(_DERIVATE)
2819 [ + - ]: 6 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
2820 : : #endif
2821 : : #if defined(_DERIVATE)
2822 : 6 : le_Vsi_ci=0.0;
2823 : 6 : le_Vbp_ci=0.0;
2824 : 6 : le_Vbp_ei=0.0;
2825 : 6 : le_Vbi_ci=0.0;
2826 : 6 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
2827 : 6 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
2828 : : #endif
2829 : 6 : le=(le*d00_limexp0);
2830 : : }
2831 : : #if defined(_DERIVATE)
2832 : 6 : irei_Vtnode_GND=((ireis_t_Vtnode_GND*(le-1.0))+(ireis_t*le_Vtnode_GND));
2833 : 6 : irei_Vbi_ei=(ireis_t*le_Vbi_ei);
2834 : : #endif
2835 : 6 : irei=(ireis_t*(le-1.0));
2836 [ - + ]: 6 : if
2837 : : (DIOY<=(-14.0))
2838 : : {
2839 : : #if defined(_DERIVATE)
2840 : 0 : irei_Vtnode_GND=(-ireis_t_Vtnode_GND);
2841 : 0 : irei_Vbi_ei=0.0;
2842 : : #endif
2843 : 0 : irei=(-ireis_t);
2844 : : }
2845 : : }
2846 : : else
2847 : : {
2848 : : #if defined(_DERIVATE)
2849 : 0 : irei_Vtnode_GND=0.0;
2850 : 0 : irei_Vbi_ei=0.0;
2851 : : #endif
2852 : 0 : irei=0.0;
2853 : : }
2854 [ + - ]: 6 : if
2855 : : (ich>0.0)
2856 : : {
2857 : 6 : Oich=(1.0/ich);
2858 : : }
2859 : : else
2860 : : {
2861 : 0 : Oich=0.0;
2862 : : }
2863 [ + - ]: 6 : if
2864 : : (vpt>0.0)
2865 : : {
2866 : 6 : Ovpt=(1.0/vpt);
2867 : : }
2868 : : else
2869 : : {
2870 : 0 : Ovpt=0.0;
2871 : : }
2872 : 6 : Tr=tr;
2873 : : #if defined(_DERIVATE)
2874 : 6 : VT_f_Vtnode_GND=(mcf*VT_Vtnode_GND);
2875 : : #endif
2876 : 6 : VT_f=(mcf*VT);
2877 : : {
2878 [ + - ][ + - ]: 6 : double m00_limexp(d00_limexp0,(BP(bi,ei)/VT_f))
[ + - ][ + - ]
[ # # ][ # # ]
[ - + ][ - + ]
[ + - ][ + - ]
[ # # # #
# # # # ]
2879 : : #if defined(_DERIVATE)
2880 [ + - ][ + - ]: 6 : double m10_limexp(d10_limexp0,d00_limexp0,(BP(bi,ei)/VT_f))
2881 : : #endif
2882 : : #if defined(_DERIVATE)
2883 [ + - ]: 6 : i_0f_Vtnode_GND=((c10_t_Vtnode_GND*d00_limexp0)+(c10_t*(-BP(bi,ei)*VT_f_Vtnode_GND/VT_f/VT_f)*d10_limexp0));
2884 : 6 : i_0f_Vbi_ei=(c10_t*(1/VT_f)*d10_limexp0);
2885 : : #endif
2886 : 6 : i_0f=(c10_t*d00_limexp0);
2887 : : }
2888 : : {
2889 [ + - ][ + - ]: 6 : double m00_limexp(d00_limexp0,(BP(bi,ci)/VT))
[ + - ][ + - ]
[ # # ][ # # ]
[ - + ][ - + ]
[ + - ][ + - ]
[ # # # #
# # # # ]
2890 : : #if defined(_DERIVATE)
2891 [ + - ][ + - ]: 6 : double m10_limexp(d10_limexp0,d00_limexp0,(BP(bi,ci)/VT))
2892 : : #endif
2893 : : #if defined(_DERIVATE)
2894 [ + - ]: 6 : i_0r_Vtnode_GND=((c10_t_Vtnode_GND*d00_limexp0)+(c10_t*(-BP(bi,ci)*VT_Vtnode_GND/VT/VT)*d10_limexp0));
2895 : 6 : i_0r_Vbi_ci=(c10_t*(1/VT)*d10_limexp0);
2896 : : #endif
2897 : 6 : i_0r=(c10_t*d00_limexp0);
2898 : : }
2899 [ + - ]: 6 : if
2900 : : (cjei0_t>0.0)
2901 : : {
2902 : : {
2903 : 6 : double m00_logE(d00_logE0,aljei_t)
2904 : 6 : double m00_exp(d00_exp1,((-d00_logE0)/zei))
2905 : : #if defined(_DERIVATE)
2906 : 6 : double m10_logE(d10_logE0,d00_logE0,aljei_t)
2907 : : #define d10_exp1 d00_exp1
2908 : : #endif
2909 : : #if defined(_DERIVATE)
2910 : 6 : DFV_f_Vtnode_GND=((vdei_t_Vtnode_GND*(1.0-d00_exp1))+(vdei_t*(-((-aljei_t_Vtnode_GND*d10_logE0)/zei)*d10_exp1)));
2911 : : #endif
2912 : 6 : DFV_f=(vdei_t*(1.0-d00_exp1));
2913 : : }
2914 : : #if defined(_DERIVATE)
2915 : 6 : DFC_max_Vtnode_GND=((aljei_t_Vtnode_GND*cjei0_t)+(aljei_t*cjei0_t_Vtnode_GND));
2916 : : #endif
2917 : 6 : DFC_max=(aljei_t*cjei0_t);
2918 : : #if defined(_DERIVATE)
2919 : 6 : DFv_e_Vsi_ci=0.0;
2920 : 6 : DFv_e_Vb_ci=0.0;
2921 : 6 : DFv_e_Vbp_ci=0.0;
2922 : 6 : DFv_e_Vbp_ei=0.0;
2923 : 6 : DFv_e_Vbi_ci=0.0;
2924 [ + - ]: 6 : DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(bi,ei))*VT_Vtnode_GND)/VT/VT);
2925 : 6 : DFv_e_Vbi_ei=((-1.0)/VT);
2926 : : #endif
2927 [ + - ]: 6 : DFv_e=((DFV_f-BP(bi,ei))/VT);
2928 [ + - ]: 6 : if
2929 : : (DFv_e<80.0)
2930 : : {
2931 : : {
2932 : 6 : double m00_exp(d00_exp0,DFv_e)
2933 : : #if defined(_DERIVATE)
2934 : : #define d10_exp0 d00_exp0
2935 : : #endif
2936 : : #if defined(_DERIVATE)
2937 : 6 : DFe_Vsi_ci=0.0;
2938 : 6 : DFe_Vb_ci=0.0;
2939 : 6 : DFe_Vbp_ci=0.0;
2940 : 6 : DFe_Vbp_ei=0.0;
2941 : 6 : DFe_Vbi_ci=0.0;
2942 : 6 : DFe_Vtnode_GND=DFv_e_Vtnode_GND*d10_exp0;
2943 : 6 : DFe_Vbi_ei=DFv_e_Vbi_ei*d10_exp0;
2944 : : #endif
2945 : 6 : DFe=d00_exp0;
2946 : : }
2947 : : {
2948 : 6 : double m00_logE(d00_logE0,(1.0+DFe))
2949 : : #if defined(_DERIVATE)
2950 : 6 : double m10_logE(d10_logE0,d00_logE0,(1.0+DFe))
2951 : : #endif
2952 : : #if defined(_DERIVATE)
2953 : 6 : DFv_j_Vsi_ci=0.0;
2954 : 6 : DFv_j_Vb_ci=0.0;
2955 : 6 : DFv_j_Vbp_ci=0.0;
2956 : 6 : DFv_j_Vbp_ei=0.0;
2957 : 6 : DFv_j_Vbi_ci=0.0;
2958 : 6 : DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*DFe_Vtnode_GND*d10_logE0)));
2959 : 6 : DFv_j_Vbi_ei=(-(VT*DFe_Vbi_ei*d10_logE0));
2960 : : #endif
2961 : 6 : DFv_j=(DFV_f-(VT*d00_logE0));
2962 : : }
2963 : : #if defined(_DERIVATE)
2964 : 6 : DFdvj_dv_Vsi_ci=0.0;
2965 : 6 : DFdvj_dv_Vb_ci=0.0;
2966 : 6 : DFdvj_dv_Vbp_ci=0.0;
2967 : 6 : DFdvj_dv_Vbp_ei=0.0;
2968 : 6 : DFdvj_dv_Vbi_ci=0.0;
2969 : 6 : DFdvj_dv_Vtnode_GND=((DFe_Vtnode_GND*(1.0+DFe)-DFe*DFe_Vtnode_GND)/(1.0+DFe)/(1.0+DFe));
2970 : 6 : DFdvj_dv_Vbi_ei=((DFe_Vbi_ei*(1.0+DFe)-DFe*DFe_Vbi_ei)/(1.0+DFe)/(1.0+DFe));
2971 : : #endif
2972 : 6 : DFdvj_dv=(DFe/(1.0+DFe));
2973 : : }
2974 : : else
2975 : : {
2976 : : #if defined(_DERIVATE)
2977 : 0 : DFv_j_Vsi_ci=0.0;
2978 : 0 : DFv_j_Vb_ci=0.0;
2979 : 0 : DFv_j_Vbp_ci=0.0;
2980 : 0 : DFv_j_Vbp_ei=0.0;
2981 : 0 : DFv_j_Vbi_ci=0.0;
2982 : 0 : DFv_j_Vtnode_GND=0.0;
2983 : 0 : DFv_j_Vbi_ei=1.0;
2984 : : #endif
2985 [ # # ]: 0 : DFv_j=BP(bi,ei);
2986 : : #if defined(_DERIVATE)
2987 : 0 : DFdvj_dv_Vsi_ci=0.0;
2988 : 0 : DFdvj_dv_Vb_ci=0.0;
2989 : 0 : DFdvj_dv_Vbp_ci=0.0;
2990 : 0 : DFdvj_dv_Vbp_ei=0.0;
2991 : 0 : DFdvj_dv_Vbi_ci=0.0;
2992 : 0 : DFdvj_dv_Vtnode_GND=0.0;
2993 : 0 : DFdvj_dv_Vbi_ei=0.0;
2994 : : #endif
2995 : 0 : DFdvj_dv=1;
2996 : : }
2997 : : {
2998 : 6 : double m00_logE(d00_logE0,(1.0-(DFv_j/vdei_t)))
2999 : : #if defined(_DERIVATE)
3000 : 6 : double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdei_t)))
3001 : : #endif
3002 : : #if defined(_DERIVATE)
3003 : 6 : DFb_Vsi_ci=0.0;
3004 : 6 : DFb_Vb_ci=0.0;
3005 : 6 : DFb_Vbp_ci=0.0;
3006 : 6 : DFb_Vbp_ei=0.0;
3007 : 6 : DFb_Vbi_ci=0.0;
3008 : 6 : DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdei_t-DFv_j*vdei_t_Vtnode_GND)/vdei_t/vdei_t))*d10_logE0;
3009 : 6 : DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdei_t))*d10_logE0;
3010 : : #endif
3011 : 6 : DFb=d00_logE0;
3012 : : }
3013 : : {
3014 : 6 : double m00_exp(d00_exp0,((-zei)*DFb))
3015 : : #if defined(_DERIVATE)
3016 : : #define d10_exp0 d00_exp0
3017 : : #endif
3018 : : #if defined(_DERIVATE)
3019 : 6 : DFC_j1_Vsi_ci=0.0;
3020 : 6 : DFC_j1_Vb_ci=0.0;
3021 : 6 : DFC_j1_Vbp_ci=0.0;
3022 : 6 : DFC_j1_Vbp_ei=0.0;
3023 : 6 : DFC_j1_Vbi_ci=0.0;
3024 : 6 : DFC_j1_Vtnode_GND=((((cjei0_t_Vtnode_GND*d00_exp0)+(cjei0_t*((-zei)*DFb_Vtnode_GND)*d10_exp0))*DFdvj_dv)+((cjei0_t*d00_exp0)*DFdvj_dv_Vtnode_GND));
3025 : 6 : DFC_j1_Vbi_ei=(((cjei0_t*((-zei)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjei0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
3026 : : #endif
3027 : 6 : DFC_j1=((cjei0_t*d00_exp0)*DFdvj_dv);
3028 : : }
3029 : : #if defined(_DYNAMIC)
3030 : 6 : Cjei=(DFC_j1+(DFC_max*(1.0-DFdvj_dv)));
3031 : : #endif
3032 : : {
3033 : 6 : double m00_exp(d00_exp0,(DFb*(1.0-zei)))
3034 : : #if defined(_DERIVATE)
3035 : : #define d10_exp0 d00_exp0
3036 : : #endif
3037 : : #if defined(_DERIVATE)
3038 : 6 : DFQ_j_Vsi_ci=0.0;
3039 : 6 : DFQ_j_Vb_ci=0.0;
3040 : 6 : DFQ_j_Vbp_ci=0.0;
3041 : 6 : DFQ_j_Vbp_ei=0.0;
3042 : 6 : DFQ_j_Vbi_ci=0.0;
3043 : 6 : DFQ_j_Vtnode_GND=(((((cjei0_t_Vtnode_GND*vdei_t)+(cjei0_t*vdei_t_Vtnode_GND))*(1.0-d00_exp0))+((cjei0_t*vdei_t)*(-DFb_Vtnode_GND*(1.0-zei)*d10_exp0)))/(1.0-zei));
3044 : 6 : DFQ_j_Vbi_ei=(((cjei0_t*vdei_t)*(-DFb_Vbi_ei*(1.0-zei)*d10_exp0))/(1.0-zei));
3045 : : #endif
3046 : 6 : DFQ_j=(((cjei0_t*vdei_t)*(1.0-d00_exp0))/(1.0-zei));
3047 : : }
3048 : : #if defined(_DERIVATE)
3049 [ + - ]: 6 : Qjei_Vtnode_GND=(DFQ_j_Vtnode_GND+((DFC_max_Vtnode_GND*(BP(bi,ei)-DFv_j))+(DFC_max*(-DFv_j_Vtnode_GND))));
3050 : 6 : Qjei_Vbi_ei=(DFQ_j_Vbi_ei+(DFC_max*(1.0-DFv_j_Vbi_ei)));
3051 : : #endif
3052 [ + - ]: 6 : Qjei=(DFQ_j+(DFC_max*(BP(bi,ei)-DFv_j)));
3053 : : }
3054 : : else
3055 : : {
3056 : : #if defined(_DYNAMIC)
3057 : 0 : Cjei=0.0;
3058 : : #endif
3059 : : #if defined(_DERIVATE)
3060 : 0 : Qjei_Vtnode_GND=0.0;
3061 : 0 : Qjei_Vbi_ei=0.0;
3062 : : #endif
3063 : 0 : Qjei=0.0;
3064 : : }
3065 [ - + ]: 6 : if
3066 : : (vptci_t<1.0e2)
3067 : : {
3068 [ # # ]: 0 : if
3069 : : (cjci0_t>0.0)
3070 : : {
3071 : 0 : Dz_r=(zci/4.0);
3072 : : #if defined(_DERIVATE)
3073 : 0 : Dv_p_Vtnode_GND=(vptci_t_Vtnode_GND-vdci_t_Vtnode_GND);
3074 : : #endif
3075 : 0 : Dv_p=(vptci_t-vdci_t);
3076 : : {
3077 : 0 : double m00_logE(d00_logE0,2.4)
3078 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zci))
3079 : : #if defined(_DERIVATE)
3080 : 0 : DV_f_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
3081 : : #endif
3082 : 0 : DV_f=(vdci_t*(1.0-d00_exp1));
3083 : : }
3084 : : #if defined(_DERIVATE)
3085 : 0 : DC_max_Vtnode_GND=(2.4*cjci0_t_Vtnode_GND);
3086 : : #endif
3087 : 0 : DC_max=(2.4*cjci0_t);
3088 : : {
3089 : 0 : double m00_logE(d00_logE0,(vptci_t/vdci_t))
3090 : 0 : double m00_exp(d00_exp1,(d00_logE0*(Dz_r-zci)))
3091 : : #if defined(_DERIVATE)
3092 : 0 : double m10_logE(d10_logE0,d00_logE0,(vptci_t/vdci_t))
3093 : : #define d10_exp1 d00_exp1
3094 : : #endif
3095 : : #if defined(_DERIVATE)
3096 : 0 : DC_c_Vtnode_GND=((cjci0_t_Vtnode_GND*d00_exp1)+(cjci0_t*((vptci_t_Vtnode_GND*vdci_t-vptci_t*vdci_t_Vtnode_GND)/vdci_t/vdci_t)*d10_logE0*(Dz_r-zci)*d10_exp1));
3097 : : #endif
3098 : 0 : DC_c=(cjci0_t*d00_exp1);
3099 : : }
3100 : : #if defined(_DERIVATE)
3101 : 0 : Da_Vtnode_GND=VT_Vtnode_GND;
3102 : : #endif
3103 : 0 : Da=VT;
3104 : : #if defined(_DERIVATE)
3105 : 0 : Dv_e_Vsi_ci=0.0;
3106 : 0 : Dv_e_Vb_ci=0.0;
3107 : 0 : Dv_e_Vbp_ci=0.0;
3108 [ # # ]: 0 : Dv_e_Vtnode_GND=((DV_f_Vtnode_GND*Da-(DV_f-BP(bi,ci))*Da_Vtnode_GND)/Da/Da);
3109 : 0 : Dv_e_Vbi_ci=((-1.0)/Da);
3110 : : #endif
3111 [ # # ]: 0 : Dv_e=((DV_f-BP(bi,ci))/Da);
3112 [ # # ]: 0 : if
3113 : : (Dv_e<80.0)
3114 : : {
3115 : : {
3116 : 0 : double m00_exp(d00_exp0,Dv_e)
3117 : : #if defined(_DERIVATE)
3118 : : #define d10_exp0 d00_exp0
3119 : : #endif
3120 : : #if defined(_DERIVATE)
3121 : 0 : De_Vsi_ci=0.0;
3122 : 0 : De_Vb_ci=0.0;
3123 : 0 : De_Vbp_ci=0.0;
3124 : 0 : De_Vtnode_GND=Dv_e_Vtnode_GND*d10_exp0;
3125 : 0 : De_Vbi_ci=Dv_e_Vbi_ci*d10_exp0;
3126 : : #endif
3127 : 0 : De=d00_exp0;
3128 : : }
3129 : : #if defined(_DERIVATE)
3130 : 0 : De_1_Vsi_ci=0.0;
3131 : 0 : De_1_Vb_ci=0.0;
3132 : 0 : De_1_Vbp_ci=0.0;
3133 : 0 : De_1_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
3134 : 0 : De_1_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
3135 : : #endif
3136 : 0 : De_1=(De/(1.0+De));
3137 : : {
3138 : 0 : double m00_logE(d00_logE0,(1.0+De))
3139 : : #if defined(_DERIVATE)
3140 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
3141 : : #endif
3142 : : #if defined(_DERIVATE)
3143 : 0 : Dv_j1_Vsi_ci=0.0;
3144 : 0 : Dv_j1_Vb_ci=0.0;
3145 : 0 : Dv_j1_Vbp_ci=0.0;
3146 : 0 : Dv_j1_Vtnode_GND=(DV_f_Vtnode_GND-((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
3147 : 0 : Dv_j1_Vbi_ci=(-(Da*De_Vbi_ci*d10_logE0));
3148 : : #endif
3149 : 0 : Dv_j1=(DV_f-(Da*d00_logE0));
3150 : : }
3151 : : }
3152 : : else
3153 : : {
3154 : : #if defined(_DERIVATE)
3155 : 0 : De_1_Vsi_ci=0.0;
3156 : 0 : De_1_Vb_ci=0.0;
3157 : 0 : De_1_Vbp_ci=0.0;
3158 : 0 : De_1_Vtnode_GND=0.0;
3159 : 0 : De_1_Vbi_ci=0.0;
3160 : : #endif
3161 : 0 : De_1=1.0;
3162 : : #if defined(_DERIVATE)
3163 : 0 : Dv_j1_Vsi_ci=0.0;
3164 : 0 : Dv_j1_Vb_ci=0.0;
3165 : 0 : Dv_j1_Vbp_ci=0.0;
3166 : 0 : Dv_j1_Vtnode_GND=0.0;
3167 : 0 : Dv_j1_Vbi_ci=1.0;
3168 : : #endif
3169 [ # # ]: 0 : Dv_j1=BP(bi,ci);
3170 : : }
3171 : : #if defined(_DERIVATE)
3172 : 0 : Da_Vtnode_GND=((0.1*Dv_p_Vtnode_GND)+(4.0*VT_Vtnode_GND));
3173 : : #endif
3174 : 0 : Da=((0.1*Dv_p)+(4.0*VT));
3175 : : #if defined(_DERIVATE)
3176 : 0 : Dv_r_Vsi_ci=0.0;
3177 : 0 : Dv_r_Vb_ci=0.0;
3178 : 0 : Dv_r_Vbp_ci=0.0;
3179 : 0 : Dv_r_Vtnode_GND=(((Dv_p_Vtnode_GND+Dv_j1_Vtnode_GND)*Da-(Dv_p+Dv_j1)*Da_Vtnode_GND)/Da/Da);
3180 : 0 : Dv_r_Vbi_ci=(Dv_j1_Vbi_ci/Da);
3181 : : #endif
3182 : 0 : Dv_r=((Dv_p+Dv_j1)/Da);
3183 [ # # ]: 0 : if
3184 : : (Dv_r<80.0)
3185 : : {
3186 : : {
3187 : 0 : double m00_exp(d00_exp0,Dv_r)
3188 : : #if defined(_DERIVATE)
3189 : : #define d10_exp0 d00_exp0
3190 : : #endif
3191 : : #if defined(_DERIVATE)
3192 : 0 : De_Vsi_ci=0.0;
3193 : 0 : De_Vb_ci=0.0;
3194 : 0 : De_Vbp_ci=0.0;
3195 : 0 : De_Vtnode_GND=Dv_r_Vtnode_GND*d10_exp0;
3196 : 0 : De_Vbi_ci=Dv_r_Vbi_ci*d10_exp0;
3197 : : #endif
3198 : 0 : De=d00_exp0;
3199 : : }
3200 : : #if defined(_DERIVATE)
3201 : 0 : De_2_Vsi_ci=0.0;
3202 : 0 : De_2_Vb_ci=0.0;
3203 : 0 : De_2_Vbp_ci=0.0;
3204 : 0 : De_2_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
3205 : 0 : De_2_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
3206 : : #endif
3207 : 0 : De_2=(De/(1.0+De));
3208 : : {
3209 : 0 : double m00_logE(d00_logE0,(1.0+De))
3210 : : #if defined(_DERIVATE)
3211 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
3212 : : #endif
3213 : : #if defined(_DERIVATE)
3214 : 0 : Dv_j2_Vsi_ci=0.0;
3215 : 0 : Dv_j2_Vb_ci=0.0;
3216 : 0 : Dv_j2_Vbp_ci=0.0;
3217 : 0 : Dv_j2_Vtnode_GND=((-Dv_p_Vtnode_GND)+((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
3218 : 0 : Dv_j2_Vbi_ci=(Da*De_Vbi_ci*d10_logE0);
3219 : : #endif
3220 : 0 : Dv_j2=((-Dv_p)+(Da*d00_logE0));
3221 : : }
3222 : : }
3223 : : else
3224 : : {
3225 : : #if defined(_DERIVATE)
3226 : 0 : De_2_Vsi_ci=0.0;
3227 : 0 : De_2_Vb_ci=0.0;
3228 : 0 : De_2_Vbp_ci=0.0;
3229 : 0 : De_2_Vtnode_GND=0.0;
3230 : 0 : De_2_Vbi_ci=0.0;
3231 : : #endif
3232 : 0 : De_2=1.0;
3233 : : #if defined(_DERIVATE)
3234 : 0 : Dv_j2_Vsi_ci=0.0;
3235 : 0 : Dv_j2_Vb_ci=0.0;
3236 : 0 : Dv_j2_Vbp_ci=0.0;
3237 : 0 : Dv_j2_Vtnode_GND=Dv_j1_Vtnode_GND;
3238 : 0 : Dv_j2_Vbi_ci=Dv_j1_Vbi_ci;
3239 : : #endif
3240 : 0 : Dv_j2=Dv_j1;
3241 : : }
3242 : : #if defined(_DERIVATE)
3243 : 0 : Dv_j4_Vsi_ci=0.0;
3244 : 0 : Dv_j4_Vb_ci=0.0;
3245 : 0 : Dv_j4_Vbp_ci=0.0;
3246 : 0 : Dv_j4_Vbi_ci=(1.0-Dv_j1_Vbi_ci);
3247 : 0 : Dv_j4_Vtnode_GND=(-Dv_j1_Vtnode_GND);
3248 : : #endif
3249 [ # # ]: 0 : Dv_j4=(BP(bi,ci)-Dv_j1);
3250 : : {
3251 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j1/vdci_t)))
3252 : : #if defined(_DERIVATE)
3253 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j1/vdci_t)))
3254 : : #endif
3255 : : #if defined(_DERIVATE)
3256 : 0 : DCln1_Vsi_ci=0.0;
3257 : 0 : DCln1_Vb_ci=0.0;
3258 : 0 : DCln1_Vbp_ci=0.0;
3259 : 0 : DCln1_Vtnode_GND=(-((Dv_j1_Vtnode_GND*vdci_t-Dv_j1*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
3260 : 0 : DCln1_Vbi_ci=(-(Dv_j1_Vbi_ci/vdci_t))*d10_logE0;
3261 : : #endif
3262 : 0 : DCln1=d00_logE0;
3263 : : }
3264 : : {
3265 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j2/vdci_t)))
3266 : : #if defined(_DERIVATE)
3267 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j2/vdci_t)))
3268 : : #endif
3269 : : #if defined(_DERIVATE)
3270 : 0 : DCln2_Vsi_ci=0.0;
3271 : 0 : DCln2_Vb_ci=0.0;
3272 : 0 : DCln2_Vbp_ci=0.0;
3273 : 0 : DCln2_Vtnode_GND=(-((Dv_j2_Vtnode_GND*vdci_t-Dv_j2*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
3274 : 0 : DCln2_Vbi_ci=(-(Dv_j2_Vbi_ci/vdci_t))*d10_logE0;
3275 : : #endif
3276 : 0 : DCln2=d00_logE0;
3277 : : }
3278 : 0 : Dz1=(1.0-zci);
3279 : 0 : Dzr1=(1.0-Dz_r);
3280 : : {
3281 : 0 : double m00_exp(d00_exp0,(DCln2*(-zci)))
3282 : : #if defined(_DERIVATE)
3283 : : #define d10_exp0 d00_exp0
3284 : : #endif
3285 : : #if defined(_DERIVATE)
3286 : 0 : DC_j1_Vsi_ci=0.0;
3287 : 0 : DC_j1_Vb_ci=0.0;
3288 : 0 : DC_j1_Vbp_ci=0.0;
3289 : 0 : DC_j1_Vtnode_GND=((((((cjci0_t_Vtnode_GND*d00_exp0)+(cjci0_t*DCln2_Vtnode_GND*(-zci)*d10_exp0))*De_1)+((cjci0_t*d00_exp0)*De_1_Vtnode_GND))*De_2)+(((cjci0_t*d00_exp0)*De_1)*De_2_Vtnode_GND));
3290 : 0 : DC_j1_Vbi_ci=(((((cjci0_t*DCln2_Vbi_ci*(-zci)*d10_exp0)*De_1)+((cjci0_t*d00_exp0)*De_1_Vbi_ci))*De_2)+(((cjci0_t*d00_exp0)*De_1)*De_2_Vbi_ci));
3291 : : #endif
3292 : 0 : DC_j1=(((cjci0_t*d00_exp0)*De_1)*De_2);
3293 : : }
3294 : : {
3295 : 0 : double m00_exp(d00_exp0,(DCln1*(-Dz_r)))
3296 : : #if defined(_DERIVATE)
3297 : : #define d10_exp0 d00_exp0
3298 : : #endif
3299 : : #if defined(_DERIVATE)
3300 : 0 : DC_j2_Vsi_ci=0.0;
3301 : 0 : DC_j2_Vb_ci=0.0;
3302 : 0 : DC_j2_Vbp_ci=0.0;
3303 : 0 : DC_j2_Vtnode_GND=((((DC_c_Vtnode_GND*d00_exp0)+(DC_c*DCln1_Vtnode_GND*(-Dz_r)*d10_exp0))*(1.0-De_2))+((DC_c*d00_exp0)*(-De_2_Vtnode_GND)));
3304 : 0 : DC_j2_Vbi_ci=(((DC_c*DCln1_Vbi_ci*(-Dz_r)*d10_exp0)*(1.0-De_2))+((DC_c*d00_exp0)*(-De_2_Vbi_ci)));
3305 : : #endif
3306 : 0 : DC_j2=((DC_c*d00_exp0)*(1.0-De_2));
3307 : : }
3308 : : #if defined(_DERIVATE)
3309 : 0 : DC_j3_Vsi_ci=0.0;
3310 : 0 : DC_j3_Vb_ci=0.0;
3311 : 0 : DC_j3_Vbp_ci=0.0;
3312 : 0 : DC_j3_Vtnode_GND=((DC_max_Vtnode_GND*(1.0-De_1))+(DC_max*(-De_1_Vtnode_GND)));
3313 : 0 : DC_j3_Vbi_ci=(DC_max*(-De_1_Vbi_ci));
3314 : : #endif
3315 : 0 : DC_j3=(DC_max*(1.0-De_1));
3316 : : #if defined(_DERIVATE)
3317 : 0 : Cjci_Vbi_ei=0.0;
3318 : 0 : Cjci_Vtnode_GND=((DC_j1_Vtnode_GND+DC_j2_Vtnode_GND)+DC_j3_Vtnode_GND);
3319 : 0 : Cjci_Vbi_ci=((DC_j1_Vbi_ci+DC_j2_Vbi_ci)+DC_j3_Vbi_ci);
3320 : : #endif
3321 : 0 : Cjci=((DC_j1+DC_j2)+DC_j3);
3322 : : {
3323 : 0 : double m00_exp(d00_exp0,(DCln2*Dz1))
3324 : : #if defined(_DERIVATE)
3325 : : #define d10_exp0 d00_exp0
3326 : : #endif
3327 : : #if defined(_DERIVATE)
3328 : 0 : DQ_j1_Vsi_ci=0.0;
3329 : 0 : DQ_j1_Vb_ci=0.0;
3330 : 0 : DQ_j1_Vbp_ci=0.0;
3331 : 0 : DQ_j1_Vtnode_GND=(((cjci0_t_Vtnode_GND*(1.0-d00_exp0))+(cjci0_t*(-DCln2_Vtnode_GND*Dz1*d10_exp0)))/Dz1);
3332 : 0 : DQ_j1_Vbi_ci=((cjci0_t*(-DCln2_Vbi_ci*Dz1*d10_exp0))/Dz1);
3333 : : #endif
3334 : 0 : DQ_j1=((cjci0_t*(1.0-d00_exp0))/Dz1);
3335 : : }
3336 : : {
3337 : 0 : double m00_exp(d00_exp0,(DCln1*Dzr1))
3338 : : #if defined(_DERIVATE)
3339 : : #define d10_exp0 d00_exp0
3340 : : #endif
3341 : : #if defined(_DERIVATE)
3342 : 0 : DQ_j2_Vsi_ci=0.0;
3343 : 0 : DQ_j2_Vb_ci=0.0;
3344 : 0 : DQ_j2_Vbp_ci=0.0;
3345 : 0 : DQ_j2_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln1_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
3346 : 0 : DQ_j2_Vbi_ci=((DC_c*(-DCln1_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
3347 : : #endif
3348 : 0 : DQ_j2=((DC_c*(1.0-d00_exp0))/Dzr1);
3349 : : }
3350 : : {
3351 : 0 : double m00_exp(d00_exp0,(DCln2*Dzr1))
3352 : : #if defined(_DERIVATE)
3353 : : #define d10_exp0 d00_exp0
3354 : : #endif
3355 : : #if defined(_DERIVATE)
3356 : 0 : DQ_j3_Vsi_ci=0.0;
3357 : 0 : DQ_j3_Vb_ci=0.0;
3358 : 0 : DQ_j3_Vbp_ci=0.0;
3359 : 0 : DQ_j3_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln2_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
3360 : 0 : DQ_j3_Vbi_ci=((DC_c*(-DCln2_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
3361 : : #endif
3362 : 0 : DQ_j3=((DC_c*(1.0-d00_exp0))/Dzr1);
3363 : : }
3364 : : #if defined(_DERIVATE)
3365 : 0 : Qjci_Vbi_ei=0.0;
3366 : 0 : Qjci_Vtnode_GND=(((((DQ_j1_Vtnode_GND+DQ_j2_Vtnode_GND)-DQ_j3_Vtnode_GND)*vdci_t)+(((DQ_j1+DQ_j2)-DQ_j3)*vdci_t_Vtnode_GND))+((DC_max_Vtnode_GND*Dv_j4)+(DC_max*Dv_j4_Vtnode_GND)));
3367 : 0 : Qjci_Vbi_ci=(((DQ_j1_Vbi_ci+DQ_j2_Vbi_ci)-DQ_j3_Vbi_ci)*vdci_t+(DC_max*Dv_j4_Vbi_ci));
3368 : : #endif
3369 : 0 : Qjci=((((DQ_j1+DQ_j2)-DQ_j3)*vdci_t)+(DC_max*Dv_j4));
3370 : : }
3371 : : else
3372 : : {
3373 : : #if defined(_DERIVATE)
3374 : 0 : Cjci_Vbi_ei=0.0;
3375 : 0 : Cjci_Vtnode_GND=0.0;
3376 : 0 : Cjci_Vbi_ci=0.0;
3377 : : #endif
3378 : 0 : Cjci=0.0;
3379 : : #if defined(_DERIVATE)
3380 : 0 : Qjci_Vbi_ei=0.0;
3381 : 0 : Qjci_Vtnode_GND=0.0;
3382 : 0 : Qjci_Vbi_ci=0.0;
3383 : : #endif
3384 : 0 : Qjci=0.0;
3385 : : }
3386 : : }
3387 : : else
3388 : : {
3389 [ + - ]: 6 : if
3390 : : (cjci0_t>0.0)
3391 : : {
3392 : : {
3393 : 6 : double m00_logE(d00_logE0,2.4)
3394 : 6 : double m00_exp(d00_exp1,((-d00_logE0)/zci))
3395 : : #if defined(_DERIVATE)
3396 : 6 : DFV_f_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
3397 : : #endif
3398 : 6 : DFV_f=(vdci_t*(1.0-d00_exp1));
3399 : : }
3400 : : #if defined(_DERIVATE)
3401 : 6 : DFC_max_Vtnode_GND=(2.4*cjci0_t_Vtnode_GND);
3402 : : #endif
3403 : 6 : DFC_max=(2.4*cjci0_t);
3404 : : #if defined(_DERIVATE)
3405 : 6 : DFv_e_Vsi_ci=0.0;
3406 : 6 : DFv_e_Vb_ci=0.0;
3407 : 6 : DFv_e_Vbp_ci=0.0;
3408 : 6 : DFv_e_Vbp_ei=0.0;
3409 : 6 : DFv_e_Vbi_ci=((-1.0)/VT);
3410 [ + - ]: 6 : DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(bi,ci))*VT_Vtnode_GND)/VT/VT);
3411 : 6 : DFv_e_Vbi_ei=0.0;
3412 : : #endif
3413 [ + - ]: 6 : DFv_e=((DFV_f-BP(bi,ci))/VT);
3414 [ + - ]: 6 : if
3415 : : (DFv_e<80.0)
3416 : : {
3417 : : {
3418 : 6 : double m00_exp(d00_exp0,DFv_e)
3419 : : #if defined(_DERIVATE)
3420 : : #define d10_exp0 d00_exp0
3421 : : #endif
3422 : : #if defined(_DERIVATE)
3423 : 6 : DFe_Vsi_ci=0.0;
3424 : 6 : DFe_Vb_ci=0.0;
3425 : 6 : DFe_Vbp_ci=0.0;
3426 : 6 : DFe_Vbp_ei=0.0;
3427 : 6 : DFe_Vbi_ci=DFv_e_Vbi_ci*d10_exp0;
3428 : 6 : DFe_Vtnode_GND=DFv_e_Vtnode_GND*d10_exp0;
3429 : 6 : DFe_Vbi_ei=DFv_e_Vbi_ei*d10_exp0;
3430 : : #endif
3431 : 6 : DFe=d00_exp0;
3432 : : }
3433 : : {
3434 : 6 : double m00_logE(d00_logE0,(1.0+DFe))
3435 : : #if defined(_DERIVATE)
3436 : 6 : double m10_logE(d10_logE0,d00_logE0,(1.0+DFe))
3437 : : #endif
3438 : : #if defined(_DERIVATE)
3439 : 6 : DFv_j_Vsi_ci=0.0;
3440 : 6 : DFv_j_Vb_ci=0.0;
3441 : 6 : DFv_j_Vbp_ci=0.0;
3442 : 6 : DFv_j_Vbp_ei=0.0;
3443 : 6 : DFv_j_Vbi_ci=(-(VT*DFe_Vbi_ci*d10_logE0));
3444 : 6 : DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*DFe_Vtnode_GND*d10_logE0)));
3445 : 6 : DFv_j_Vbi_ei=(-(VT*DFe_Vbi_ei*d10_logE0));
3446 : : #endif
3447 : 6 : DFv_j=(DFV_f-(VT*d00_logE0));
3448 : : }
3449 : : #if defined(_DERIVATE)
3450 : 6 : DFdvj_dv_Vsi_ci=0.0;
3451 : 6 : DFdvj_dv_Vb_ci=0.0;
3452 : 6 : DFdvj_dv_Vbp_ci=0.0;
3453 : 6 : DFdvj_dv_Vbp_ei=0.0;
3454 : 6 : DFdvj_dv_Vbi_ci=((DFe_Vbi_ci*(1.0+DFe)-DFe*DFe_Vbi_ci)/(1.0+DFe)/(1.0+DFe));
3455 : 6 : DFdvj_dv_Vtnode_GND=((DFe_Vtnode_GND*(1.0+DFe)-DFe*DFe_Vtnode_GND)/(1.0+DFe)/(1.0+DFe));
3456 : 6 : DFdvj_dv_Vbi_ei=((DFe_Vbi_ei*(1.0+DFe)-DFe*DFe_Vbi_ei)/(1.0+DFe)/(1.0+DFe));
3457 : : #endif
3458 : 6 : DFdvj_dv=(DFe/(1.0+DFe));
3459 : : }
3460 : : else
3461 : : {
3462 : : #if defined(_DERIVATE)
3463 : 0 : DFv_j_Vsi_ci=0.0;
3464 : 0 : DFv_j_Vb_ci=0.0;
3465 : 0 : DFv_j_Vbp_ci=0.0;
3466 : 0 : DFv_j_Vbp_ei=0.0;
3467 : 0 : DFv_j_Vbi_ci=1.0;
3468 : 0 : DFv_j_Vtnode_GND=0.0;
3469 : 0 : DFv_j_Vbi_ei=0.0;
3470 : : #endif
3471 [ # # ]: 0 : DFv_j=BP(bi,ci);
3472 : : #if defined(_DERIVATE)
3473 : 0 : DFdvj_dv_Vsi_ci=0.0;
3474 : 0 : DFdvj_dv_Vb_ci=0.0;
3475 : 0 : DFdvj_dv_Vbp_ci=0.0;
3476 : 0 : DFdvj_dv_Vbp_ei=0.0;
3477 : 0 : DFdvj_dv_Vbi_ci=0.0;
3478 : 0 : DFdvj_dv_Vtnode_GND=0.0;
3479 : 0 : DFdvj_dv_Vbi_ei=0.0;
3480 : : #endif
3481 : 0 : DFdvj_dv=1;
3482 : : }
3483 : : {
3484 : 6 : double m00_logE(d00_logE0,(1.0-(DFv_j/vdci_t)))
3485 : : #if defined(_DERIVATE)
3486 : 6 : double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdci_t)))
3487 : : #endif
3488 : : #if defined(_DERIVATE)
3489 : 6 : DFb_Vsi_ci=0.0;
3490 : 6 : DFb_Vb_ci=0.0;
3491 : 6 : DFb_Vbp_ci=0.0;
3492 : 6 : DFb_Vbp_ei=0.0;
3493 : 6 : DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdci_t))*d10_logE0;
3494 : 6 : DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdci_t-DFv_j*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
3495 : 6 : DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdci_t))*d10_logE0;
3496 : : #endif
3497 : 6 : DFb=d00_logE0;
3498 : : }
3499 : : {
3500 : 6 : double m00_exp(d00_exp0,((-zci)*DFb))
3501 : : #if defined(_DERIVATE)
3502 : : #define d10_exp0 d00_exp0
3503 : : #endif
3504 : : #if defined(_DERIVATE)
3505 : 6 : DFC_j1_Vsi_ci=0.0;
3506 : 6 : DFC_j1_Vb_ci=0.0;
3507 : 6 : DFC_j1_Vbp_ci=0.0;
3508 : 6 : DFC_j1_Vbp_ei=0.0;
3509 : 6 : DFC_j1_Vbi_ci=(((cjci0_t*((-zci)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjci0_t*d00_exp0)*DFdvj_dv_Vbi_ci));
3510 : 6 : DFC_j1_Vtnode_GND=((((cjci0_t_Vtnode_GND*d00_exp0)+(cjci0_t*((-zci)*DFb_Vtnode_GND)*d10_exp0))*DFdvj_dv)+((cjci0_t*d00_exp0)*DFdvj_dv_Vtnode_GND));
3511 : 6 : DFC_j1_Vbi_ei=(((cjci0_t*((-zci)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjci0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
3512 : : #endif
3513 : 6 : DFC_j1=((cjci0_t*d00_exp0)*DFdvj_dv);
3514 : : }
3515 : : #if defined(_DERIVATE)
3516 : 6 : Cjci_Vbi_ei=(DFC_j1_Vbi_ei+(DFC_max*(-DFdvj_dv_Vbi_ei)));
3517 : 6 : Cjci_Vtnode_GND=(DFC_j1_Vtnode_GND+((DFC_max_Vtnode_GND*(1.0-DFdvj_dv))+(DFC_max*(-DFdvj_dv_Vtnode_GND))));
3518 : 6 : Cjci_Vbi_ci=(DFC_j1_Vbi_ci+(DFC_max*(-DFdvj_dv_Vbi_ci)));
3519 : : #endif
3520 : 6 : Cjci=(DFC_j1+(DFC_max*(1.0-DFdvj_dv)));
3521 : : {
3522 : 6 : double m00_exp(d00_exp0,(DFb*(1.0-zci)))
3523 : : #if defined(_DERIVATE)
3524 : : #define d10_exp0 d00_exp0
3525 : : #endif
3526 : : #if defined(_DERIVATE)
3527 : 6 : DFQ_j_Vsi_ci=0.0;
3528 : 6 : DFQ_j_Vb_ci=0.0;
3529 : 6 : DFQ_j_Vbp_ci=0.0;
3530 : 6 : DFQ_j_Vbp_ei=0.0;
3531 : 6 : DFQ_j_Vbi_ci=(((cjci0_t*vdci_t)*(-DFb_Vbi_ci*(1.0-zci)*d10_exp0))/(1.0-zci));
3532 : 6 : DFQ_j_Vtnode_GND=(((((cjci0_t_Vtnode_GND*vdci_t)+(cjci0_t*vdci_t_Vtnode_GND))*(1.0-d00_exp0))+((cjci0_t*vdci_t)*(-DFb_Vtnode_GND*(1.0-zci)*d10_exp0)))/(1.0-zci));
3533 : 6 : DFQ_j_Vbi_ei=(((cjci0_t*vdci_t)*(-DFb_Vbi_ei*(1.0-zci)*d10_exp0))/(1.0-zci));
3534 : : #endif
3535 : 6 : DFQ_j=(((cjci0_t*vdci_t)*(1.0-d00_exp0))/(1.0-zci));
3536 : : }
3537 : : #if defined(_DERIVATE)
3538 : 6 : Qjci_Vbi_ei=(DFQ_j_Vbi_ei+(DFC_max*(-DFv_j_Vbi_ei)));
3539 [ + - ]: 6 : Qjci_Vtnode_GND=(DFQ_j_Vtnode_GND+((DFC_max_Vtnode_GND*(BP(bi,ci)-DFv_j))+(DFC_max*(-DFv_j_Vtnode_GND))));
3540 : 6 : Qjci_Vbi_ci=(DFQ_j_Vbi_ci+(DFC_max*(1.0-DFv_j_Vbi_ci)));
3541 : : #endif
3542 [ + - ]: 6 : Qjci=(DFQ_j+(DFC_max*(BP(bi,ci)-DFv_j)));
3543 : : }
3544 : : else
3545 : : {
3546 : : #if defined(_DERIVATE)
3547 : 0 : Cjci_Vbi_ei=0.0;
3548 : 0 : Cjci_Vtnode_GND=0.0;
3549 : 0 : Cjci_Vbi_ci=0.0;
3550 : : #endif
3551 : 0 : Cjci=0.0;
3552 : : #if defined(_DERIVATE)
3553 : 0 : Qjci_Vbi_ei=0.0;
3554 : 0 : Qjci_Vtnode_GND=0.0;
3555 : 0 : Qjci_Vbi_ci=0.0;
3556 : : #endif
3557 : 0 : Qjci=0.0;
3558 : : }
3559 : : }
3560 : : #if defined(_DERIVATE)
3561 : 6 : Q_0_Vtnode_GND=((qp0_t_Vtnode_GND+(hjei*Qjei_Vtnode_GND))+(hjci*Qjci_Vtnode_GND));
3562 : 6 : Q_0_Vbi_ei=((hjei*Qjei_Vbi_ei)+(hjci*Qjci_Vbi_ei));
3563 : 6 : Q_0_Vbi_ci=(hjci*Qjci_Vbi_ci);
3564 : : #endif
3565 : 6 : Q_0=((qp0_t+(hjei*Qjei))+(hjci*Qjci));
3566 [ - + ]: 6 : if
3567 : : (Q_0<(0.6*qp0_t))
3568 : : {
3569 : 0 : a_bpt=0.05;
3570 : : #if defined(_DERIVATE)
3571 : 0 : Q_bpt_Vtnode_GND=(a_bpt*qp0_t_Vtnode_GND);
3572 : : #endif
3573 : 0 : Q_bpt=(a_bpt*qp0_t);
3574 : : #if defined(_DERIVATE)
3575 : 0 : b_q_Vtnode_GND=((Q_0_Vtnode_GND*Q_bpt-Q_0*Q_bpt_Vtnode_GND)/Q_bpt/Q_bpt);
3576 : 0 : b_q_Vbi_ei=(Q_0_Vbi_ei/Q_bpt);
3577 : 0 : b_q_Vbi_ci=(Q_0_Vbi_ci/Q_bpt);
3578 : : #endif
3579 : 0 : b_q=((Q_0/Q_bpt)-1.0);
3580 : : {
3581 : 0 : double m00_exp(d00_exp0,b_q)
3582 : 0 : double m00_logE(d00_logE1,(1+d00_exp0))
3583 : : #if defined(_DERIVATE)
3584 : : #define d10_exp0 d00_exp0
3585 : 0 : double m10_logE(d10_logE1,d00_logE1,(1+d00_exp0))
3586 : : #endif
3587 : : #if defined(_DERIVATE)
3588 : 0 : Q_0_Vtnode_GND=((Q_bpt_Vtnode_GND*(1+d00_logE1))+(Q_bpt*b_q_Vtnode_GND*d10_exp0*d10_logE1));
3589 : 0 : Q_0_Vbi_ei=(Q_bpt*b_q_Vbi_ei*d10_exp0*d10_logE1);
3590 : 0 : Q_0_Vbi_ci=(Q_bpt*b_q_Vbi_ci*d10_exp0*d10_logE1);
3591 : : #endif
3592 : 0 : Q_0=(Q_bpt*(1+d00_logE1));
3593 : : }
3594 : : }
3595 [ + - ]: 6 : if
3596 : : (cjci0_t>0.0)
3597 : : {
3598 : : {
3599 : 6 : double m00_logE(d00_logE0,2.4)
3600 : 6 : double m00_exp(d00_exp1,((-d00_logE0)/zci))
3601 : : #if defined(_DERIVATE)
3602 : 6 : DFV_f_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
3603 : : #endif
3604 : 6 : DFV_f=(vdci_t*(1.0-d00_exp1));
3605 : : }
3606 : : #if defined(_DERIVATE)
3607 : 6 : DFC_max_Vtnode_GND=(2.4*cjci0_t_Vtnode_GND);
3608 : : #endif
3609 : 6 : DFC_max=(2.4*cjci0_t);
3610 : : #if defined(_DERIVATE)
3611 : 6 : DFv_e_Vsi_ci=0.0;
3612 : 6 : DFv_e_Vb_ci=0.0;
3613 : 6 : DFv_e_Vbp_ci=0.0;
3614 : 6 : DFv_e_Vbp_ei=0.0;
3615 : 6 : DFv_e_Vbi_ci=((-1.0)/VT);
3616 [ + - ]: 6 : DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(bi,ci))*VT_Vtnode_GND)/VT/VT);
3617 : 6 : DFv_e_Vbi_ei=0.0;
3618 : : #endif
3619 [ + - ]: 6 : DFv_e=((DFV_f-BP(bi,ci))/VT);
3620 [ + - ]: 6 : if
3621 : : (DFv_e<80.0)
3622 : : {
3623 : : {
3624 : 6 : double m00_exp(d00_exp0,DFv_e)
3625 : : #if defined(_DERIVATE)
3626 : : #define d10_exp0 d00_exp0
3627 : : #endif
3628 : : #if defined(_DERIVATE)
3629 : 6 : DFe_Vsi_ci=0.0;
3630 : 6 : DFe_Vb_ci=0.0;
3631 : 6 : DFe_Vbp_ci=0.0;
3632 : 6 : DFe_Vbp_ei=0.0;
3633 : 6 : DFe_Vbi_ci=DFv_e_Vbi_ci*d10_exp0;
3634 : 6 : DFe_Vtnode_GND=DFv_e_Vtnode_GND*d10_exp0;
3635 : 6 : DFe_Vbi_ei=DFv_e_Vbi_ei*d10_exp0;
3636 : : #endif
3637 : 6 : DFe=d00_exp0;
3638 : : }
3639 : : {
3640 : 6 : double m00_logE(d00_logE0,(1.0+DFe))
3641 : : #if defined(_DERIVATE)
3642 : 6 : double m10_logE(d10_logE0,d00_logE0,(1.0+DFe))
3643 : : #endif
3644 : : #if defined(_DERIVATE)
3645 : 6 : DFv_j_Vsi_ci=0.0;
3646 : 6 : DFv_j_Vb_ci=0.0;
3647 : 6 : DFv_j_Vbp_ci=0.0;
3648 : 6 : DFv_j_Vbp_ei=0.0;
3649 : 6 : DFv_j_Vbi_ci=(-(VT*DFe_Vbi_ci*d10_logE0));
3650 : 6 : DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*DFe_Vtnode_GND*d10_logE0)));
3651 : 6 : DFv_j_Vbi_ei=(-(VT*DFe_Vbi_ei*d10_logE0));
3652 : : #endif
3653 : 6 : DFv_j=(DFV_f-(VT*d00_logE0));
3654 : : }
3655 : : #if defined(_DERIVATE)
3656 : 6 : DFdvj_dv_Vsi_ci=0.0;
3657 : 6 : DFdvj_dv_Vb_ci=0.0;
3658 : 6 : DFdvj_dv_Vbp_ci=0.0;
3659 : 6 : DFdvj_dv_Vbp_ei=0.0;
3660 : 6 : DFdvj_dv_Vbi_ci=((DFe_Vbi_ci*(1.0+DFe)-DFe*DFe_Vbi_ci)/(1.0+DFe)/(1.0+DFe));
3661 : 6 : DFdvj_dv_Vtnode_GND=((DFe_Vtnode_GND*(1.0+DFe)-DFe*DFe_Vtnode_GND)/(1.0+DFe)/(1.0+DFe));
3662 : 6 : DFdvj_dv_Vbi_ei=((DFe_Vbi_ei*(1.0+DFe)-DFe*DFe_Vbi_ei)/(1.0+DFe)/(1.0+DFe));
3663 : : #endif
3664 : 6 : DFdvj_dv=(DFe/(1.0+DFe));
3665 : : }
3666 : : else
3667 : : {
3668 : : #if defined(_DERIVATE)
3669 : 0 : DFv_j_Vsi_ci=0.0;
3670 : 0 : DFv_j_Vb_ci=0.0;
3671 : 0 : DFv_j_Vbp_ci=0.0;
3672 : 0 : DFv_j_Vbp_ei=0.0;
3673 : 0 : DFv_j_Vbi_ci=1.0;
3674 : 0 : DFv_j_Vtnode_GND=0.0;
3675 : 0 : DFv_j_Vbi_ei=0.0;
3676 : : #endif
3677 [ # # ]: 0 : DFv_j=BP(bi,ci);
3678 : : #if defined(_DERIVATE)
3679 : 0 : DFdvj_dv_Vsi_ci=0.0;
3680 : 0 : DFdvj_dv_Vb_ci=0.0;
3681 : 0 : DFdvj_dv_Vbp_ci=0.0;
3682 : 0 : DFdvj_dv_Vbp_ei=0.0;
3683 : 0 : DFdvj_dv_Vbi_ci=0.0;
3684 : 0 : DFdvj_dv_Vtnode_GND=0.0;
3685 : 0 : DFdvj_dv_Vbi_ei=0.0;
3686 : : #endif
3687 : 0 : DFdvj_dv=1;
3688 : : }
3689 : : {
3690 : 6 : double m00_logE(d00_logE0,(1.0-(DFv_j/vdci_t)))
3691 : : #if defined(_DERIVATE)
3692 : 6 : double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdci_t)))
3693 : : #endif
3694 : : #if defined(_DERIVATE)
3695 : 6 : DFb_Vsi_ci=0.0;
3696 : 6 : DFb_Vb_ci=0.0;
3697 : 6 : DFb_Vbp_ci=0.0;
3698 : 6 : DFb_Vbp_ei=0.0;
3699 : 6 : DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdci_t))*d10_logE0;
3700 : 6 : DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdci_t-DFv_j*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
3701 : 6 : DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdci_t))*d10_logE0;
3702 : : #endif
3703 : 6 : DFb=d00_logE0;
3704 : : }
3705 : : {
3706 : 6 : double m00_exp(d00_exp0,((-zci)*DFb))
3707 : : #if defined(_DERIVATE)
3708 : : #define d10_exp0 d00_exp0
3709 : : #endif
3710 : : #if defined(_DERIVATE)
3711 : 6 : DFC_j1_Vsi_ci=0.0;
3712 : 6 : DFC_j1_Vb_ci=0.0;
3713 : 6 : DFC_j1_Vbp_ci=0.0;
3714 : 6 : DFC_j1_Vbp_ei=0.0;
3715 : 6 : DFC_j1_Vbi_ci=(((cjci0_t*((-zci)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjci0_t*d00_exp0)*DFdvj_dv_Vbi_ci));
3716 : 6 : DFC_j1_Vtnode_GND=((((cjci0_t_Vtnode_GND*d00_exp0)+(cjci0_t*((-zci)*DFb_Vtnode_GND)*d10_exp0))*DFdvj_dv)+((cjci0_t*d00_exp0)*DFdvj_dv_Vtnode_GND));
3717 : 6 : DFC_j1_Vbi_ei=(((cjci0_t*((-zci)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjci0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
3718 : : #endif
3719 : 6 : DFC_j1=((cjci0_t*d00_exp0)*DFdvj_dv);
3720 : : }
3721 : : #if defined(_DERIVATE)
3722 : 6 : Cjcit_Vbi_ci=(DFC_j1_Vbi_ci+(DFC_max*(-DFdvj_dv_Vbi_ci)));
3723 : 6 : Cjcit_Vtnode_GND=(DFC_j1_Vtnode_GND+((DFC_max_Vtnode_GND*(1.0-DFdvj_dv))+(DFC_max*(-DFdvj_dv_Vtnode_GND))));
3724 : 6 : Cjcit_Vbi_ei=(DFC_j1_Vbi_ei+(DFC_max*(-DFdvj_dv_Vbi_ei)));
3725 : : #endif
3726 : 6 : Cjcit=(DFC_j1+(DFC_max*(1.0-DFdvj_dv)));
3727 : : #if defined(_DYNAMIC)
3728 : : {
3729 : 6 : double m00_exp(d00_exp0,(DFb*(1.0-zci)))
3730 : : #if defined(_DERIVATE)
3731 : : #define d10_exp0 d00_exp0
3732 : : #endif
3733 : : #if defined(_DERIVATE)
3734 : 6 : DFQ_j_Vsi_ci=0.0;
3735 : 6 : DFQ_j_Vb_ci=0.0;
3736 : 6 : DFQ_j_Vbp_ci=0.0;
3737 : 6 : DFQ_j_Vbp_ei=0.0;
3738 : 6 : DFQ_j_Vbi_ci=(((cjci0_t*vdci_t)*(-DFb_Vbi_ci*(1.0-zci)*d10_exp0))/(1.0-zci));
3739 : 6 : DFQ_j_Vtnode_GND=(((((cjci0_t_Vtnode_GND*vdci_t)+(cjci0_t*vdci_t_Vtnode_GND))*(1.0-d00_exp0))+((cjci0_t*vdci_t)*(-DFb_Vtnode_GND*(1.0-zci)*d10_exp0)))/(1.0-zci));
3740 : 6 : DFQ_j_Vbi_ei=(((cjci0_t*vdci_t)*(-DFb_Vbi_ei*(1.0-zci)*d10_exp0))/(1.0-zci));
3741 : : #endif
3742 : 6 : DFQ_j=(((cjci0_t*vdci_t)*(1.0-d00_exp0))/(1.0-zci));
3743 : : }
3744 : : #endif
3745 : : #if defined(_DYNAMIC)
3746 [ + - ]: 6 : d1=(DFQ_j+(DFC_max*(BP(bi,ci)-DFv_j)));
3747 : : #endif
3748 : : }
3749 : : else
3750 : : {
3751 : : #if defined(_DERIVATE)
3752 : 0 : Cjcit_Vbi_ci=0.0;
3753 : 0 : Cjcit_Vtnode_GND=0.0;
3754 : 0 : Cjcit_Vbi_ei=0.0;
3755 : : #endif
3756 : 0 : Cjcit=0.0;
3757 : : #if defined(_DYNAMIC)
3758 : 0 : d1=0.0;
3759 : : #endif
3760 : : }
3761 [ + - ]: 6 : if
3762 : : (Cjcit>0.0)
3763 : : {
3764 : : #if defined(_DERIVATE)
3765 : 6 : cc_Vtnode_GND=((cjci0_t_Vtnode_GND*Cjcit-cjci0_t*Cjcit_Vtnode_GND)/Cjcit/Cjcit);
3766 : 6 : cc_Vbi_ci=(-cjci0_t*Cjcit_Vbi_ci/Cjcit/Cjcit);
3767 : 6 : cc_Vbi_ei=(-cjci0_t*Cjcit_Vbi_ei/Cjcit/Cjcit);
3768 : : #endif
3769 : 6 : cc=(cjci0_t/Cjcit);
3770 : : }
3771 : : else
3772 : : {
3773 : : #if defined(_DERIVATE)
3774 : 0 : cc_Vtnode_GND=0.0;
3775 : 0 : cc_Vbi_ci=0.0;
3776 : 0 : cc_Vbi_ei=0.0;
3777 : : #endif
3778 : 0 : cc=1.0;
3779 : : }
3780 : : #if defined(_DERIVATE)
3781 : 6 : T_f0_Vtnode_GND=((t0_t_Vtnode_GND+(dt0h*cc_Vtnode_GND))+(tbvl*(-1*cc_Vtnode_GND/cc/cc)));
3782 : 6 : T_f0_Vbi_ci=((dt0h*cc_Vbi_ci)+(tbvl*(-1*cc_Vbi_ci/cc/cc)));
3783 : 6 : T_f0_Vbi_ei=((dt0h*cc_Vbi_ei)+(tbvl*(-1*cc_Vbi_ei/cc/cc)));
3784 : : #endif
3785 : 6 : T_f0=((t0_t+(dt0h*(cc-1.0)))+(tbvl*((1/cc)-1.0)));
3786 : : #if defined(_DERIVATE)
3787 : 6 : vc_Vci_ei=1.0;
3788 : 6 : vc_Vtnode_GND=(-vces_t_Vtnode_GND);
3789 : : #endif
3790 [ + - ]: 6 : vc=(BP(ci,ei)-vces_t);
3791 : : #if defined(_DERIVATE)
3792 : 6 : ICKv_Vci_ei=(vc_Vci_ei/VT);
3793 : 6 : ICKv_Vtnode_GND=((vc_Vtnode_GND*VT-vc*VT_Vtnode_GND)/VT/VT);
3794 : : #endif
3795 : 6 : ICKv=(vc/VT);
3796 [ + + ]: 6 : if
3797 : : (ICKv<30.0)
3798 : : {
3799 : : {
3800 : 1 : double m00_exp(d00_exp0,(ICKv-1.0))
3801 : 1 : double m00_logE(d00_logE1,(1+d00_exp0))
3802 : : #if defined(_DERIVATE)
3803 : : #define d10_exp0 d00_exp0
3804 : 1 : double m10_logE(d10_logE1,d00_logE1,(1+d00_exp0))
3805 : : #endif
3806 : : #if defined(_DERIVATE)
3807 : 1 : vceff_Vci_ei=ICKv_Vci_ei*d10_exp0*d10_logE1*VT;
3808 : 1 : vceff_Vtnode_GND=((ICKv_Vtnode_GND*d10_exp0*d10_logE1*VT)+((1.0+d00_logE1)*VT_Vtnode_GND));
3809 : : #endif
3810 : 1 : vceff=((1.0+d00_logE1)*VT);
3811 : : }
3812 : : }
3813 : : else
3814 : : {
3815 : : #if defined(_DERIVATE)
3816 : 5 : vceff_Vci_ei=vc_Vci_ei;
3817 : 5 : vceff_Vtnode_GND=vc_Vtnode_GND;
3818 : : #endif
3819 : 5 : vceff=vc;
3820 : : }
3821 : : #if defined(_DERIVATE)
3822 : 6 : ICKv_Vci_ei=(vceff_Vci_ei/vlim_t);
3823 : 6 : ICKv_Vtnode_GND=((vceff_Vtnode_GND*vlim_t-vceff*vlim_t_Vtnode_GND)/vlim_t/vlim_t);
3824 : : #endif
3825 : 6 : ICKv=(vceff/vlim_t);
3826 : : {
3827 : 6 : double m00_sqrt(d00_sqrt0,(1.0+(ICKv*ICKv)))
3828 : : #if defined(_DERIVATE)
3829 : 6 : double m10_sqrt(d10_sqrt0,d00_sqrt0,(1.0+(ICKv*ICKv)))
3830 : : #endif
3831 : : #if defined(_DERIVATE)
3832 : 6 : ick_Vci_ei=((vceff_Vci_ei*Orci0_t*d00_sqrt0-(vceff*Orci0_t)*((ICKv_Vci_ei*ICKv)+(ICKv*ICKv_Vci_ei))*d10_sqrt0)/d00_sqrt0/d00_sqrt0);
3833 : 6 : ick_Vtnode_GND=((((vceff_Vtnode_GND*Orci0_t)+(vceff*Orci0_t_Vtnode_GND))*d00_sqrt0-(vceff*Orci0_t)*((ICKv_Vtnode_GND*ICKv)+(ICKv*ICKv_Vtnode_GND))*d10_sqrt0)/d00_sqrt0/d00_sqrt0);
3834 : : #endif
3835 : 6 : ick=((vceff*Orci0_t)/d00_sqrt0);
3836 : : }
3837 : : #if defined(_DERIVATE)
3838 : 6 : ICKa_Vci_ei=vceff_Vci_ei*Ovpt;
3839 : 6 : ICKa_Vtnode_GND=(vceff_Vtnode_GND-vlim_t_Vtnode_GND)*Ovpt;
3840 : : #endif
3841 : 6 : ICKa=((vceff-vlim_t)*Ovpt);
3842 : : {
3843 : 6 : double m00_sqrt(d00_sqrt0,((ICKa*ICKa)+1.0e-3))
3844 : : #if defined(_DERIVATE)
3845 : 6 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((ICKa*ICKa)+1.0e-3))
3846 : : #endif
3847 : : #if defined(_DERIVATE)
3848 : 6 : ick_Vci_ei=((ick_Vci_ei*(1.0+(0.5*(ICKa+d00_sqrt0))))+(ick*(0.5*(ICKa_Vci_ei+((ICKa_Vci_ei*ICKa)+(ICKa*ICKa_Vci_ei))*d10_sqrt0))));
3849 : 6 : ick_Vtnode_GND=((ick_Vtnode_GND*(1.0+(0.5*(ICKa+d00_sqrt0))))+(ick*(0.5*(ICKa_Vtnode_GND+((ICKa_Vtnode_GND*ICKa)+(ICKa*ICKa_Vtnode_GND))*d10_sqrt0))));
3850 : : #endif
3851 : 6 : ick=(ick*(1.0+(0.5*(ICKa+d00_sqrt0))));
3852 : : }
3853 [ - + ][ # # ]: 6 : if
3854 : : ((T_f0>0.0)||(Tr>0.0))
3855 : : {
3856 : : #if defined(_DERIVATE)
3857 : 6 : A_Vtnode_GND=(0.5*Q_0_Vtnode_GND);
3858 : 6 : A_Vbi_ei=(0.5*Q_0_Vbi_ei);
3859 : 6 : A_Vbi_ci=(0.5*Q_0_Vbi_ci);
3860 : : #endif
3861 : 6 : A=(0.5*Q_0);
3862 : : {
3863 : 6 : double m00_sqrt(d00_sqrt0,(((A*A)+(T_f0*i_0f))+(Tr*i_0r)))
3864 : : #if defined(_DERIVATE)
3865 : 6 : double m10_sqrt(d10_sqrt0,d00_sqrt0,(((A*A)+(T_f0*i_0f))+(Tr*i_0r)))
3866 : : #endif
3867 : : #if defined(_DERIVATE)
3868 : 6 : Q_p_Vtnode_GND=(A_Vtnode_GND+((((A_Vtnode_GND*A)+(A*A_Vtnode_GND))+((T_f0_Vtnode_GND*i_0f)+(T_f0*i_0f_Vtnode_GND)))+(Tr*i_0r_Vtnode_GND))*d10_sqrt0);
3869 : 6 : Q_p_Vbi_ei=(A_Vbi_ei+(((A_Vbi_ei*A)+(A*A_Vbi_ei))+((T_f0_Vbi_ei*i_0f)+(T_f0*i_0f_Vbi_ei)))*d10_sqrt0);
3870 : 6 : Q_p_Vbi_ci=(A_Vbi_ci+((((A_Vbi_ci*A)+(A*A_Vbi_ci))+T_f0_Vbi_ci*i_0f)+(Tr*i_0r_Vbi_ci))*d10_sqrt0);
3871 : : #endif
3872 : 6 : Q_p=(A+d00_sqrt0);
3873 : 6 : }
3874 : : }
3875 : : else
3876 : : {
3877 : : #if defined(_DERIVATE)
3878 : 0 : Q_p_Vtnode_GND=Q_0_Vtnode_GND;
3879 : 0 : Q_p_Vbi_ei=Q_0_Vbi_ei;
3880 : 0 : Q_p_Vbi_ci=Q_0_Vbi_ci;
3881 : : #endif
3882 : 0 : Q_p=Q_0;
3883 : : }
3884 : : #if defined(_DERIVATE)
3885 : 6 : I_Tf1_Vci_ei=0.0;
3886 : 6 : I_Tf1_Vtnode_GND=((i_0f_Vtnode_GND*Q_p-i_0f*Q_p_Vtnode_GND)/Q_p/Q_p);
3887 : 6 : I_Tf1_Vbi_ei=((i_0f_Vbi_ei*Q_p-i_0f*Q_p_Vbi_ei)/Q_p/Q_p);
3888 : 6 : I_Tf1_Vbi_ci=(-i_0f*Q_p_Vbi_ci/Q_p/Q_p);
3889 : : #endif
3890 : 6 : I_Tf1=(i_0f/Q_p);
3891 : : #if defined(_DERIVATE)
3892 : 6 : a_h_Vci_ei=0.0;
3893 : 6 : a_h_Vtnode_GND=(Oich*I_Tf1_Vtnode_GND);
3894 : 6 : a_h_Vbi_ei=(Oich*I_Tf1_Vbi_ei);
3895 : 6 : a_h_Vbi_ci=(Oich*I_Tf1_Vbi_ci);
3896 : : #endif
3897 : 6 : a_h=(Oich*I_Tf1);
3898 : : #if defined(_DERIVATE)
3899 : 6 : itf_Vci_ei=0.0;
3900 : 6 : itf_Vtnode_GND=((I_Tf1_Vtnode_GND*(1.0+a_h))+(I_Tf1*a_h_Vtnode_GND));
3901 : 6 : itf_Vbi_ei=((I_Tf1_Vbi_ei*(1.0+a_h))+(I_Tf1*a_h_Vbi_ei));
3902 : 6 : itf_Vbi_ci=((I_Tf1_Vbi_ci*(1.0+a_h))+(I_Tf1*a_h_Vbi_ci));
3903 : : #endif
3904 : 6 : itf=(I_Tf1*(1.0+a_h));
3905 : : #if defined(_DERIVATE)
3906 : 6 : itr_Vci_ei=0.0;
3907 : 6 : itr_Vtnode_GND=((i_0r_Vtnode_GND*Q_p-i_0r*Q_p_Vtnode_GND)/Q_p/Q_p);
3908 : 6 : itr_Vbi_ci=((i_0r_Vbi_ci*Q_p-i_0r*Q_p_Vbi_ci)/Q_p/Q_p);
3909 : 6 : itr_Vbi_ei=(-i_0r*Q_p_Vbi_ei/Q_p/Q_p);
3910 : : #endif
3911 : 6 : itr=(i_0r/Q_p);
3912 : : #if defined(_DERIVATE)
3913 : 6 : Tf_Vci_ei=0.0;
3914 : 6 : Tf_Vtnode_GND=T_f0_Vtnode_GND;
3915 : 6 : Tf_Vbi_ci=T_f0_Vbi_ci;
3916 : 6 : Tf_Vbi_ei=T_f0_Vbi_ei;
3917 : : #endif
3918 : 6 : Tf=T_f0;
3919 : : #if defined(_DERIVATE)
3920 : 6 : Qf_Vci_ei=0.0;
3921 : 6 : Qf_Vtnode_GND=((T_f0_Vtnode_GND*itf)+(T_f0*itf_Vtnode_GND));
3922 : 6 : Qf_Vbi_ci=((T_f0_Vbi_ci*itf)+(T_f0*itf_Vbi_ci));
3923 : 6 : Qf_Vbi_ei=((T_f0_Vbi_ei*itf)+(T_f0*itf_Vbi_ei));
3924 : : #endif
3925 : 6 : Qf=(T_f0*itf);
3926 [ + + ]: 6 : if
3927 : : (itf<(1.0e-6*ick))
3928 : : {
3929 : : #if defined(_DERIVATE)
3930 : 1 : Q_fT_Vci_ei=0.0;
3931 : 1 : Q_fT_Vtnode_GND=Qf_Vtnode_GND;
3932 : 1 : Q_fT_Vbi_ci=Qf_Vbi_ci;
3933 : 1 : Q_fT_Vbi_ei=Qf_Vbi_ei;
3934 : : #endif
3935 : 1 : Q_fT=Qf;
3936 : : #if defined(_DERIVATE)
3937 : 1 : T_fT_Vci_ei=0.0;
3938 : 1 : T_fT_Vtnode_GND=Tf_Vtnode_GND;
3939 : 1 : T_fT_Vbi_ci=Tf_Vbi_ci;
3940 : 1 : T_fT_Vbi_ei=Tf_Vbi_ei;
3941 : : #endif
3942 : 1 : T_fT=Tf;
3943 : : }
3944 : : else
3945 : : {
3946 : : #if defined(_DERIVATE)
3947 : 5 : FFa_Vci_ei=((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf);
3948 : 5 : FFa_Vtnode_GND=((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf);
3949 : 5 : FFa_Vbi_ei=(-ick*itf_Vbi_ei/itf/itf);
3950 : 5 : FFa_Vbi_ci=(-ick*itf_Vbi_ci/itf/itf);
3951 : : #endif
3952 : 5 : FFa=(ick/itf);
3953 : : {
3954 : 5 : double m00_logE(d00_logE0,FFa)
3955 : 5 : double m00_exp(d00_exp1,((-gtfe)*d00_logE0))
3956 : : #if defined(_DERIVATE)
3957 : 5 : double m10_logE(d10_logE0,d00_logE0,FFa)
3958 : : #define d10_exp1 d00_exp1
3959 : : #endif
3960 : : #if defined(_DERIVATE)
3961 : 5 : FFd_TfE_Vtnode_GND=((tef0_t_Vtnode_GND*d00_exp1)+(tef0_t*((-gtfe)*FFa_Vtnode_GND*d10_logE0)*d10_exp1));
3962 : 5 : FFd_TfE_Vci_ei=(tef0_t*((-gtfe)*FFa_Vci_ei*d10_logE0)*d10_exp1);
3963 : 5 : FFd_TfE_Vbi_ei=(tef0_t*((-gtfe)*FFa_Vbi_ei*d10_logE0)*d10_exp1);
3964 : 5 : FFd_TfE_Vbi_ci=(tef0_t*((-gtfe)*FFa_Vbi_ci*d10_logE0)*d10_exp1);
3965 : : #endif
3966 : 5 : FFd_TfE=(tef0_t*d00_exp1);
3967 : : }
3968 : : #if defined(_DERIVATE)
3969 : 5 : FFd_QfE_Vtnode_GND=(((FFd_TfE_Vtnode_GND*itf)+(FFd_TfE*itf_Vtnode_GND))/(gtfe+1.0));
3970 : 5 : FFd_QfE_Vci_ei=(((FFd_TfE_Vci_ei*itf)+(FFd_TfE*itf_Vci_ei))/(gtfe+1.0));
3971 : 5 : FFd_QfE_Vbi_ei=(((FFd_TfE_Vbi_ei*itf)+(FFd_TfE*itf_Vbi_ei))/(gtfe+1.0));
3972 : 5 : FFd_QfE_Vbi_ci=(((FFd_TfE_Vbi_ci*itf)+(FFd_TfE*itf_Vbi_ci))/(gtfe+1.0));
3973 : : #endif
3974 : 5 : FFd_QfE=((FFd_TfE*itf)/(gtfe+1.0));
3975 : : #if defined(_DERIVATE)
3976 : 5 : FFT_fbS_Vtnode_GND=((1.0-fthc)*thcs_t_Vtnode_GND);
3977 : : #endif
3978 : 5 : FFT_fbS=((1.0-fthc)*thcs_t);
3979 : : #if defined(_DERIVATE)
3980 : 5 : FFx_Vci_ei=(-FFa_Vci_ei);
3981 : 5 : FFx_Vtnode_GND=(-FFa_Vtnode_GND);
3982 : 5 : FFx_Vbi_ei=(-FFa_Vbi_ei);
3983 : 5 : FFx_Vbi_ci=(-FFa_Vbi_ci);
3984 : : #endif
3985 : 5 : FFx=(1.0-FFa);
3986 : : {
3987 : 5 : double m00_sqrt(d00_sqrt0,((FFx*FFx)+alhc))
3988 : : #if defined(_DERIVATE)
3989 : 5 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFx*FFx)+alhc))
3990 : : #endif
3991 : : #if defined(_DERIVATE)
3992 : 5 : FFs_Vci_ei=((FFx_Vci_ei*FFx)+(FFx*FFx_Vci_ei))*d10_sqrt0;
3993 : 5 : FFs_Vtnode_GND=((FFx_Vtnode_GND*FFx)+(FFx*FFx_Vtnode_GND))*d10_sqrt0;
3994 : 5 : FFs_Vbi_ei=((FFx_Vbi_ei*FFx)+(FFx*FFx_Vbi_ei))*d10_sqrt0;
3995 : 5 : FFs_Vbi_ci=((FFx_Vbi_ci*FFx)+(FFx*FFx_Vbi_ci))*d10_sqrt0;
3996 : : #endif
3997 : 5 : FFs=d00_sqrt0;
3998 : : }
3999 : : {
4000 : 5 : double m00_sqrt(d00_sqrt0,(1.0+alhc))
4001 : : #if defined(_DERIVATE)
4002 : 5 : FFw_Vci_ei=((FFx_Vci_ei+FFs_Vci_ei)/(1.0+d00_sqrt0));
4003 : 5 : FFw_Vtnode_GND=((FFx_Vtnode_GND+FFs_Vtnode_GND)/(1.0+d00_sqrt0));
4004 : 5 : FFw_Vbi_ei=((FFx_Vbi_ei+FFs_Vbi_ei)/(1.0+d00_sqrt0));
4005 : 5 : FFw_Vbi_ci=((FFx_Vbi_ci+FFs_Vbi_ci)/(1.0+d00_sqrt0));
4006 : : #endif
4007 : 5 : FFw=((FFx+FFs)/(1.0+d00_sqrt0));
4008 : : }
4009 : : #if defined(_DERIVATE)
4010 : 5 : FFw_2_Vci_ei=((FFw_Vci_ei*FFw)+(FFw*FFw_Vci_ei));
4011 : 5 : FFw_2_Vtnode_GND=((FFw_Vtnode_GND*FFw)+(FFw*FFw_Vtnode_GND));
4012 : 5 : FFw_2_Vbi_ei=((FFw_Vbi_ei*FFw)+(FFw*FFw_Vbi_ei));
4013 : 5 : FFw_2_Vbi_ci=((FFw_Vbi_ci*FFw)+(FFw*FFw_Vbi_ci));
4014 : : #endif
4015 : 5 : FFw_2=(FFw*FFw);
4016 : : #if defined(_DERIVATE)
4017 : 5 : FFd_QfB_Vtnode_GND=((((FFT_fbS_Vtnode_GND*itf)+(FFT_fbS*itf_Vtnode_GND))*FFw_2)+((FFT_fbS*itf)*FFw_2_Vtnode_GND));
4018 : 5 : FFd_QfB_Vbi_ei=(((FFT_fbS*itf_Vbi_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ei));
4019 : 5 : FFd_QfB_Vbi_ci=(((FFT_fbS*itf_Vbi_ci)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ci));
4020 : 5 : FFd_QfB_Vci_ei=(((FFT_fbS*itf_Vci_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vci_ei));
4021 : : #endif
4022 : 5 : FFd_QfB=((FFT_fbS*itf)*FFw_2);
4023 : : #if defined(_DERIVATE)
4024 : 5 : FFa_w_Vci_ei=((FFw_2_Vci_ei*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vci_ei)*FFs-(2.0*FFa)*FFs_Vci_ei)/FFs/FFs)));
4025 : 5 : FFa_w_Vtnode_GND=((FFw_2_Vtnode_GND*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vtnode_GND)*FFs-(2.0*FFa)*FFs_Vtnode_GND)/FFs/FFs)));
4026 : 5 : FFa_w_Vbi_ei=((FFw_2_Vbi_ei*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vbi_ei)*FFs-(2.0*FFa)*FFs_Vbi_ei)/FFs/FFs)));
4027 : 5 : FFa_w_Vbi_ci=((FFw_2_Vbi_ci*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vbi_ci)*FFs-(2.0*FFa)*FFs_Vbi_ci)/FFs/FFs)));
4028 : : #endif
4029 : 5 : FFa_w=(FFw_2*(1.0+((2.0*FFa)/FFs)));
4030 : : #if defined(_DERIVATE)
4031 : 5 : FFd_TfB_Vtnode_GND=((FFT_fbS_Vtnode_GND*FFa_w)+(FFT_fbS*FFa_w_Vtnode_GND));
4032 : 5 : FFd_TfB_Vci_ei=(FFT_fbS*FFa_w_Vci_ei);
4033 : 5 : FFd_TfB_Vbi_ei=(FFT_fbS*FFa_w_Vbi_ei);
4034 : 5 : FFd_TfB_Vbi_ci=(FFT_fbS*FFa_w_Vbi_ci);
4035 : : #endif
4036 : 5 : FFd_TfB=(FFT_fbS*FFa_w);
4037 : : #if defined(_DERIVATE)
4038 : 5 : FFT_pcS_Vtnode_GND=(fthc*thcs_t_Vtnode_GND);
4039 : : #endif
4040 : 5 : FFT_pcS=(fthc*thcs_t);
4041 [ - + ][ # # ]: 5 : if
4042 : : ((latb<=0.0)&&(latl<=0.0))
4043 : : {
4044 : : #if defined(_DERIVATE)
4045 : 0 : FFQ_fC_Vtnode_GND=((((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND))*FFw_2)+((FFT_pcS*itf)*FFw_2_Vtnode_GND));
4046 : 0 : FFQ_fC_Vbi_ei=(((FFT_pcS*itf_Vbi_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ei));
4047 : 0 : FFQ_fC_Vbi_ci=(((FFT_pcS*itf_Vbi_ci)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ci));
4048 : 0 : FFQ_fC_Vci_ei=(((FFT_pcS*itf_Vci_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vci_ei));
4049 : : #endif
4050 : 0 : FFQ_fC=((FFT_pcS*itf)*FFw_2);
4051 : : #if defined(_DERIVATE)
4052 : 0 : FFT_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*FFa_w)+(FFT_pcS*FFa_w_Vtnode_GND));
4053 : 0 : FFT_fC_Vci_ei=(FFT_pcS*FFa_w_Vci_ei);
4054 : 0 : FFT_fC_Vbi_ei=(FFT_pcS*FFa_w_Vbi_ei);
4055 : 0 : FFT_fC_Vbi_ci=(FFT_pcS*FFa_w_Vbi_ci);
4056 : : #endif
4057 : 0 : FFT_fC=(FFT_pcS*FFa_w);
4058 : : #if defined(_DERIVATE)
4059 : 0 : FFQ_cT_Vtnode_GND=FFQ_fC_Vtnode_GND;
4060 : 0 : FFQ_cT_Vbi_ei=FFQ_fC_Vbi_ei;
4061 : 0 : FFQ_cT_Vbi_ci=FFQ_fC_Vbi_ci;
4062 : 0 : FFQ_cT_Vci_ei=FFQ_fC_Vci_ei;
4063 : : #endif
4064 : 0 : FFQ_cT=FFQ_fC;
4065 : : #if defined(_DERIVATE)
4066 : 0 : FFT_cT_Vtnode_GND=FFT_fC_Vtnode_GND;
4067 : 0 : FFT_cT_Vci_ei=FFT_fC_Vci_ei;
4068 : 0 : FFT_cT_Vbi_ei=FFT_fC_Vbi_ei;
4069 : 0 : FFT_cT_Vbi_ci=FFT_fC_Vbi_ci;
4070 : : #endif
4071 : 0 : FFT_cT=FFT_fC;
4072 : : }
4073 : : else
4074 : : {
4075 : : #if defined(_DERIVATE)
4076 : 5 : FFQ_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND));
4077 : 5 : FFQ_fC_Vbi_ei=(FFT_pcS*itf_Vbi_ei);
4078 : 5 : FFQ_fC_Vbi_ci=(FFT_pcS*itf_Vbi_ci);
4079 : 5 : FFQ_fC_Vci_ei=0.0;
4080 : : #endif
4081 : 5 : FFQ_fC=(FFT_pcS*itf);
4082 : : #if defined(_DERIVATE)
4083 : 5 : FCa_Vci_ei=(-((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf));
4084 : 5 : FCa_Vtnode_GND=(-((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf));
4085 : 5 : FCa_Vbi_ei=(-(-ick*itf_Vbi_ei/itf/itf));
4086 : 5 : FCa_Vbi_ci=(-(-ick*itf_Vbi_ci/itf/itf));
4087 : : #endif
4088 : 5 : FCa=(1.0-(ick/itf));
4089 : : {
4090 : 5 : double m00_sqrt(d00_sqrt0,((FCa*FCa)+alhc))
4091 : : #if defined(_DERIVATE)
4092 : 5 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FCa*FCa)+alhc))
4093 : : #endif
4094 : : #if defined(_DERIVATE)
4095 : 5 : FCrt_Vci_ei=((FCa_Vci_ei*FCa)+(FCa*FCa_Vci_ei))*d10_sqrt0;
4096 : 5 : FCrt_Vtnode_GND=((FCa_Vtnode_GND*FCa)+(FCa*FCa_Vtnode_GND))*d10_sqrt0;
4097 : 5 : FCrt_Vbi_ei=((FCa_Vbi_ei*FCa)+(FCa*FCa_Vbi_ei))*d10_sqrt0;
4098 : 5 : FCrt_Vbi_ci=((FCa_Vbi_ci*FCa)+(FCa*FCa_Vbi_ci))*d10_sqrt0;
4099 : : #endif
4100 : 5 : FCrt=d00_sqrt0;
4101 : : }
4102 : : {
4103 : 5 : double m00_sqrt(d00_sqrt0,(1.0+alhc))
4104 : : #if defined(_DERIVATE)
4105 : 5 : FCa_ck_Vci_ei=(-((FCa_Vci_ei+FCrt_Vci_ei)/(1.0+d00_sqrt0)));
4106 : 5 : FCa_ck_Vtnode_GND=(-((FCa_Vtnode_GND+FCrt_Vtnode_GND)/(1.0+d00_sqrt0)));
4107 : 5 : FCa_ck_Vbi_ei=(-((FCa_Vbi_ei+FCrt_Vbi_ei)/(1.0+d00_sqrt0)));
4108 : 5 : FCa_ck_Vbi_ci=(-((FCa_Vbi_ci+FCrt_Vbi_ci)/(1.0+d00_sqrt0)));
4109 : : #endif
4110 : 5 : FCa_ck=(1.0-((FCa+FCrt)/(1.0+d00_sqrt0)));
4111 : : }
4112 : : #if defined(_DERIVATE)
4113 : 5 : FCdaick_ditf_Vci_ei=((((FCa_ck_Vci_ei*(1-FCa))+((FCa_ck-1.0)*(-FCa_Vci_ei)))*(FCrt*itf)-((FCa_ck-1.0)*(1-FCa))*((FCrt_Vci_ei*itf)+(FCrt*itf_Vci_ei)))/(FCrt*itf)/(FCrt*itf));
4114 : 5 : FCdaick_ditf_Vtnode_GND=((((FCa_ck_Vtnode_GND*(1-FCa))+((FCa_ck-1.0)*(-FCa_Vtnode_GND)))*(FCrt*itf)-((FCa_ck-1.0)*(1-FCa))*((FCrt_Vtnode_GND*itf)+(FCrt*itf_Vtnode_GND)))/(FCrt*itf)/(FCrt*itf));
4115 : 5 : FCdaick_ditf_Vbi_ei=((((FCa_ck_Vbi_ei*(1-FCa))+((FCa_ck-1.0)*(-FCa_Vbi_ei)))*(FCrt*itf)-((FCa_ck-1.0)*(1-FCa))*((FCrt_Vbi_ei*itf)+(FCrt*itf_Vbi_ei)))/(FCrt*itf)/(FCrt*itf));
4116 : 5 : FCdaick_ditf_Vbi_ci=((((FCa_ck_Vbi_ci*(1-FCa))+((FCa_ck-1.0)*(-FCa_Vbi_ci)))*(FCrt*itf)-((FCa_ck-1.0)*(1-FCa))*((FCrt_Vbi_ci*itf)+(FCrt*itf_Vbi_ci)))/(FCrt*itf)/(FCrt*itf));
4117 : : #endif
4118 : 5 : FCdaick_ditf=(((FCa_ck-1.0)*(1-FCa))/(FCrt*itf));
4119 [ + - ]: 5 : if
4120 : : (latb>latl)
4121 : : {
4122 : : #if defined(_DERIVATE)
4123 : 5 : FCz_Vci_ei=0.0;
4124 : 5 : FCz_Vtnode_GND=0.0;
4125 : 5 : FCz_Vbi_ei=0.0;
4126 : 5 : FCz_Vbi_ci=0.0;
4127 : : #endif
4128 : 5 : FCz=(latb-latl);
4129 : 5 : FCxl=(1.0+latl);
4130 : 5 : FCxb=(1.0+latb);
4131 [ + - ]: 5 : if
4132 : : (latb>0.01)
4133 : : {
4134 : : {
4135 : 5 : double m00_logE(d00_logE0,(FCxb/FCxl))
4136 : 5 : FCln=d00_logE0;
4137 : : }
4138 : : {
4139 : 5 : double m00_exp(d00_exp0,((FCa_ck-1.0)*FCln))
4140 : : #if defined(_DERIVATE)
4141 : : #define d10_exp0 d00_exp0
4142 : : #endif
4143 : : #if defined(_DERIVATE)
4144 : 5 : FCa1_Vci_ei=FCa_ck_Vci_ei*FCln*d10_exp0;
4145 : 5 : FCa1_Vtnode_GND=FCa_ck_Vtnode_GND*FCln*d10_exp0;
4146 : 5 : FCa1_Vbi_ei=FCa_ck_Vbi_ei*FCln*d10_exp0;
4147 : 5 : FCa1_Vbi_ci=FCa_ck_Vbi_ci*FCln*d10_exp0;
4148 : : #endif
4149 : 5 : FCa1=d00_exp0;
4150 : : }
4151 : : #if defined(_DERIVATE)
4152 : 5 : FCd_a_Vci_ei=(-(-FCa1_Vci_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
4153 : 5 : FCd_a_Vtnode_GND=(-(-FCa1_Vtnode_GND*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
4154 : 5 : FCd_a_Vbi_ei=(-(-FCa1_Vbi_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
4155 : 5 : FCd_a_Vbi_ci=(-(-FCa1_Vbi_ci*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
4156 : : #endif
4157 : 5 : FCd_a=(1.0/(latl-(FCa1*latb)));
4158 : : #if defined(_DERIVATE)
4159 : 5 : FCw_Vci_ei=((FCa1_Vci_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vci_ei));
4160 : 5 : FCw_Vtnode_GND=((FCa1_Vtnode_GND*FCd_a)+((FCa1-1.0)*FCd_a_Vtnode_GND));
4161 : 5 : FCw_Vbi_ei=((FCa1_Vbi_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ei));
4162 : 5 : FCw_Vbi_ci=((FCa1_Vbi_ci*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ci));
4163 : : #endif
4164 : 5 : FCw=((FCa1-1.0)*FCd_a);
4165 : : {
4166 : 5 : double m00_logE(d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
4167 : : #if defined(_DERIVATE)
4168 : 5 : double m10_logE(d10_logE0,d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
4169 : : #endif
4170 : : #if defined(_DERIVATE)
4171 : 5 : FCa_Vci_ei=(((latb*FCw_Vci_ei)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vci_ei))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
4172 : 5 : FCa_Vtnode_GND=(((latb*FCw_Vtnode_GND)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vtnode_GND))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
4173 : 5 : FCa_Vbi_ei=(((latb*FCw_Vbi_ei)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vbi_ei))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
4174 : 5 : FCa_Vbi_ci=(((latb*FCw_Vbi_ci)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vbi_ci))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
4175 : : #endif
4176 : 5 : FCa=d00_logE0;
4177 : : }
4178 : : #if defined(_DERIVATE)
4179 : 5 : FCdw_daick_Vci_ei=(((((((-FCz_Vci_ei)*FCa1)+((-FCz)*FCa1_Vci_ei))*FCln*FCd_a)+((((-FCz)*FCa1)*FCln)*FCd_a_Vci_ei))*FCd_a)+(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a_Vci_ei));
4180 : 5 : FCdw_daick_Vtnode_GND=(((((((-FCz_Vtnode_GND)*FCa1)+((-FCz)*FCa1_Vtnode_GND))*FCln*FCd_a)+((((-FCz)*FCa1)*FCln)*FCd_a_Vtnode_GND))*FCd_a)+(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a_Vtnode_GND));
4181 : 5 : FCdw_daick_Vbi_ei=(((((((-FCz_Vbi_ei)*FCa1)+((-FCz)*FCa1_Vbi_ei))*FCln*FCd_a)+((((-FCz)*FCa1)*FCln)*FCd_a_Vbi_ei))*FCd_a)+(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a_Vbi_ei));
4182 : 5 : FCdw_daick_Vbi_ci=(((((((-FCz_Vbi_ci)*FCa1)+((-FCz)*FCa1_Vbi_ci))*FCln*FCd_a)+((((-FCz)*FCa1)*FCln)*FCd_a_Vbi_ci))*FCd_a)+(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a_Vbi_ci));
4183 : : #endif
4184 : 5 : FCdw_daick=(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a);
4185 : : {
4186 : 5 : double m00_logE(d00_logE0,(1.0+(latb*FCw)))
4187 : : #if defined(_DERIVATE)
4188 : 5 : double m10_logE(d10_logE0,d00_logE0,(1.0+(latb*FCw)))
4189 : : #endif
4190 : : #if defined(_DERIVATE)
4191 : 5 : FClnb_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
4192 : 5 : FClnb_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
4193 : 5 : FClnb_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
4194 : 5 : FClnb_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
4195 : : #endif
4196 : 5 : FClnb=d00_logE0;
4197 : : }
4198 : : {
4199 : 5 : double m00_logE(d00_logE0,(1.0+(latl*FCw)))
4200 : : #if defined(_DERIVATE)
4201 : 5 : double m10_logE(d10_logE0,d00_logE0,(1.0+(latl*FCw)))
4202 : : #endif
4203 : : #if defined(_DERIVATE)
4204 : 5 : FClnl_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
4205 : 5 : FClnl_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
4206 : 5 : FClnl_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
4207 : 5 : FClnl_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
4208 : : #endif
4209 : 5 : FClnl=d00_logE0;
4210 : : }
4211 : : #if defined(_DERIVATE)
4212 : 5 : FCa1_Vci_ei=(FClnb_Vci_ei-FClnl_Vci_ei);
4213 : 5 : FCa1_Vtnode_GND=(FClnb_Vtnode_GND-FClnl_Vtnode_GND);
4214 : 5 : FCa1_Vbi_ei=(FClnb_Vbi_ei-FClnl_Vbi_ei);
4215 : 5 : FCa1_Vbi_ci=(FClnb_Vbi_ci-FClnl_Vbi_ci);
4216 : : #endif
4217 : 5 : FCa1=(FClnb-FClnl);
4218 : : #if defined(_DERIVATE)
4219 : 5 : FCda1_dw_Vci_ei=((-latb*(latb*FCw_Vci_ei)/(1.0+(latb*FCw))/(1.0+(latb*FCw)))-(-latl*(latl*FCw_Vci_ei)/(1.0+(latl*FCw))/(1.0+(latl*FCw))));
4220 : 5 : FCda1_dw_Vtnode_GND=((-latb*(latb*FCw_Vtnode_GND)/(1.0+(latb*FCw))/(1.0+(latb*FCw)))-(-latl*(latl*FCw_Vtnode_GND)/(1.0+(latl*FCw))/(1.0+(latl*FCw))));
4221 : 5 : FCda1_dw_Vbi_ei=((-latb*(latb*FCw_Vbi_ei)/(1.0+(latb*FCw))/(1.0+(latb*FCw)))-(-latl*(latl*FCw_Vbi_ei)/(1.0+(latl*FCw))/(1.0+(latl*FCw))));
4222 : 5 : FCda1_dw_Vbi_ci=((-latb*(latb*FCw_Vbi_ci)/(1.0+(latb*FCw))/(1.0+(latb*FCw)))-(-latl*(latl*FCw_Vbi_ci)/(1.0+(latl*FCw))/(1.0+(latl*FCw))));
4223 : : #endif
4224 : 5 : FCda1_dw=((latb/(1.0+(latb*FCw)))-(latl/(1.0+(latl*FCw))));
4225 : : }
4226 : : else
4227 : : {
4228 : : #if defined(_DERIVATE)
4229 : 0 : FCf1_Vci_ei=(-FCa_ck_Vci_ei);
4230 : 0 : FCf1_Vtnode_GND=(-FCa_ck_Vtnode_GND);
4231 : 0 : FCf1_Vbi_ei=(-FCa_ck_Vbi_ei);
4232 : 0 : FCf1_Vbi_ci=(-FCa_ck_Vbi_ci);
4233 : : #endif
4234 : 0 : FCf1=(1.0-FCa_ck);
4235 : : #if defined(_DERIVATE)
4236 : 0 : FCd_a_Vci_ei=(-(-FCf1_Vci_ei*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
4237 : 0 : FCd_a_Vtnode_GND=(-(-FCf1_Vtnode_GND*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
4238 : 0 : FCd_a_Vbi_ei=(-(-FCf1_Vbi_ei*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
4239 : 0 : FCd_a_Vbi_ci=(-(-FCf1_Vbi_ci*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
4240 : : #endif
4241 : 0 : FCd_a=(1.0/(1.0-(FCf1*latb)));
4242 : : #if defined(_DERIVATE)
4243 : 0 : FCw_Vci_ei=((FCf1_Vci_ei*FCd_a)+(FCf1*FCd_a_Vci_ei));
4244 : 0 : FCw_Vtnode_GND=((FCf1_Vtnode_GND*FCd_a)+(FCf1*FCd_a_Vtnode_GND));
4245 : 0 : FCw_Vbi_ei=((FCf1_Vbi_ei*FCd_a)+(FCf1*FCd_a_Vbi_ei));
4246 : 0 : FCw_Vbi_ci=((FCf1_Vbi_ci*FCd_a)+(FCf1*FCd_a_Vbi_ci));
4247 : : #endif
4248 : 0 : FCw=(FCf1*FCd_a);
4249 : : #if defined(_DERIVATE)
4250 : 0 : FCa_Vci_ei=((FCz_Vci_ei*FCw)+(FCz*FCw_Vci_ei));
4251 : 0 : FCa_Vtnode_GND=((FCz_Vtnode_GND*FCw)+(FCz*FCw_Vtnode_GND));
4252 : 0 : FCa_Vbi_ei=((FCz_Vbi_ei*FCw)+(FCz*FCw_Vbi_ei));
4253 : 0 : FCa_Vbi_ci=((FCz_Vbi_ci*FCw)+(FCz*FCw_Vbi_ci));
4254 : : #endif
4255 : 0 : FCa=(FCz*FCw);
4256 : : #if defined(_DERIVATE)
4257 : 0 : FCdw_daick_Vci_ei=((((-1.0)*FCd_a_Vci_ei)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vci_ei));
4258 : 0 : FCdw_daick_Vtnode_GND=((((-1.0)*FCd_a_Vtnode_GND)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vtnode_GND));
4259 : 0 : FCdw_daick_Vbi_ei=((((-1.0)*FCd_a_Vbi_ei)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vbi_ei));
4260 : 0 : FCdw_daick_Vbi_ci=((((-1.0)*FCd_a_Vbi_ci)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vbi_ci));
4261 : : #endif
4262 : 0 : FCdw_daick=(((-1.0)*FCd_a)*FCd_a);
4263 : : #if defined(_DERIVATE)
4264 : 0 : FClnb_Vci_ei=(latb*FCw_Vci_ei);
4265 : 0 : FClnb_Vtnode_GND=(latb*FCw_Vtnode_GND);
4266 : 0 : FClnb_Vbi_ei=(latb*FCw_Vbi_ei);
4267 : 0 : FClnb_Vbi_ci=(latb*FCw_Vbi_ci);
4268 : : #endif
4269 : 0 : FClnb=(latb*FCw);
4270 : : #if defined(_DERIVATE)
4271 : 0 : FClnl_Vci_ei=(latl*FCw_Vci_ei);
4272 : 0 : FClnl_Vtnode_GND=(latl*FCw_Vtnode_GND);
4273 : 0 : FClnl_Vbi_ei=(latl*FCw_Vbi_ei);
4274 : 0 : FClnl_Vbi_ci=(latl*FCw_Vbi_ci);
4275 : : #endif
4276 : 0 : FClnl=(latl*FCw);
4277 : : #if defined(_DERIVATE)
4278 : 0 : FCa1_Vci_ei=((FCz_Vci_ei*FCw)+(FCz*FCw_Vci_ei));
4279 : 0 : FCa1_Vtnode_GND=((FCz_Vtnode_GND*FCw)+(FCz*FCw_Vtnode_GND));
4280 : 0 : FCa1_Vbi_ei=((FCz_Vbi_ei*FCw)+(FCz*FCw_Vbi_ei));
4281 : 0 : FCa1_Vbi_ci=((FCz_Vbi_ci*FCw)+(FCz*FCw_Vbi_ci));
4282 : : #endif
4283 : 0 : FCa1=(FCz*FCw);
4284 : : #if defined(_DERIVATE)
4285 : 0 : FCda1_dw_Vci_ei=0.0;
4286 : 0 : FCda1_dw_Vtnode_GND=0.0;
4287 : 0 : FCda1_dw_Vbi_ei=0.0;
4288 : 0 : FCda1_dw_Vbi_ci=0.0;
4289 : : #endif
4290 : 0 : FCda1_dw=FCz;
4291 : : }
4292 : : #if defined(_DERIVATE)
4293 : 5 : FCf_CT_Vci_ei=0.0;
4294 : 5 : FCf_CT_Vbi_ei=0.0;
4295 : 5 : FCf_CT_Vbi_ci=0.0;
4296 : 5 : FCf_CT_Vtnode_GND=0.0;
4297 : : #endif
4298 : 5 : FCf_CT=(2.0/FCz);
4299 : : #if defined(_DERIVATE)
4300 : 5 : FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
4301 : 5 : FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
4302 : 5 : FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
4303 : 5 : FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
4304 : : #endif
4305 : 5 : FCw2=(FCw*FCw);
4306 : : #if defined(_DERIVATE)
4307 : 5 : FCf1_Vci_ei=(((((((latb*latl)*FCw_Vci_ei)*FCw2)+(((latb*latl)*FCw)*FCw2_Vci_ei))/3.0)+(((latb+latl)*FCw2_Vci_ei)/2.0))+FCw_Vci_ei);
4308 : 5 : FCf1_Vtnode_GND=(((((((latb*latl)*FCw_Vtnode_GND)*FCw2)+(((latb*latl)*FCw)*FCw2_Vtnode_GND))/3.0)+(((latb+latl)*FCw2_Vtnode_GND)/2.0))+FCw_Vtnode_GND);
4309 : 5 : FCf1_Vbi_ei=(((((((latb*latl)*FCw_Vbi_ei)*FCw2)+(((latb*latl)*FCw)*FCw2_Vbi_ei))/3.0)+(((latb+latl)*FCw2_Vbi_ei)/2.0))+FCw_Vbi_ei);
4310 : 5 : FCf1_Vbi_ci=(((((((latb*latl)*FCw_Vbi_ci)*FCw2)+(((latb*latl)*FCw)*FCw2_Vbi_ci))/3.0)+(((latb+latl)*FCw2_Vbi_ci)/2.0))+FCw_Vbi_ci);
4311 : : #endif
4312 : 5 : FCf1=((((((latb*latl)*FCw)*FCw2)/3.0)+(((latb+latl)*FCw2)/2.0))+FCw);
4313 : : #if defined(_DERIVATE)
4314 : 5 : FCdf1_dw_Vci_ei=(((latb*latl)*FCw2_Vci_ei)+((latb+latl)*FCw_Vci_ei));
4315 : 5 : FCdf1_dw_Vtnode_GND=(((latb*latl)*FCw2_Vtnode_GND)+((latb+latl)*FCw_Vtnode_GND));
4316 : 5 : FCdf1_dw_Vbi_ei=(((latb*latl)*FCw2_Vbi_ei)+((latb+latl)*FCw_Vbi_ei));
4317 : 5 : FCdf1_dw_Vbi_ci=(((latb*latl)*FCw2_Vbi_ci)+((latb+latl)*FCw_Vbi_ci));
4318 : : #endif
4319 : 5 : FCdf1_dw=((((latb*latl)*FCw2)+((latb+latl)*FCw))+1.0);
4320 : : #if defined(_DERIVATE)
4321 : 5 : z_Vci_ei=(latb*FCw_Vci_ei);
4322 : 5 : z_Vtnode_GND=(latb*FCw_Vtnode_GND);
4323 : 5 : z_Vbi_ei=(latb*FCw_Vbi_ei);
4324 : 5 : z_Vbi_ci=(latb*FCw_Vbi_ci);
4325 : : #endif
4326 : 5 : z=(latb*FCw);
4327 [ + - ]: 5 : if
4328 : : (z>1.0e-6)
4329 : : {
4330 : : #if defined(_DERIVATE)
4331 : 5 : x_Vci_ei=z_Vci_ei;
4332 : 5 : x_Vtnode_GND=z_Vtnode_GND;
4333 : 5 : x_Vbi_ei=z_Vbi_ei;
4334 : 5 : x_Vbi_ci=z_Vbi_ci;
4335 : : #endif
4336 : 5 : x=(1.0+z);
4337 : : #if defined(_DERIVATE)
4338 : 5 : a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
4339 : 5 : a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
4340 : 5 : a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
4341 : 5 : a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
4342 : : #endif
4343 : 5 : a=(x*x);
4344 : : #if defined(_DERIVATE)
4345 : 5 : a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vci_ei))));
4346 : 5 : a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vbi_ei))));
4347 : 5 : a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vbi_ci))));
4348 : 5 : a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vtnode_GND))));
4349 : : #endif
4350 : 5 : a2=(0.250*((a*((2.0*FClnb)-1.0))+1.0));
4351 : : #if defined(_DERIVATE)
4352 : 5 : a3_Vci_ei=(((((a_Vci_ei*x)+(a*x_Vci_ei))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vci_ei)))/9.0);
4353 : 5 : a3_Vbi_ei=(((((a_Vbi_ei*x)+(a*x_Vbi_ei))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vbi_ei)))/9.0);
4354 : 5 : a3_Vbi_ci=(((((a_Vbi_ci*x)+(a*x_Vbi_ci))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vbi_ci)))/9.0);
4355 : 5 : a3_Vtnode_GND=(((((a_Vtnode_GND*x)+(a*x_Vtnode_GND))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vtnode_GND)))/9.0);
4356 : : #endif
4357 : 5 : a3=((((a*x)*((3.0*FClnb)-1.0))+1.0)/9.0);
4358 : 5 : r=(latl/latb);
4359 : : #if defined(_DERIVATE)
4360 : 5 : FCf2_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latb);
4361 : 5 : FCf2_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latb);
4362 : 5 : FCf2_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latb);
4363 : 5 : FCf2_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latb);
4364 : : #endif
4365 : 5 : FCf2=((((1.0-r)*a2)+(r*a3))/latb);
4366 : : #if defined(_DERIVATE)
4367 : 5 : FCdf2_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vci_ei));
4368 : 5 : FCdf2_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vtnode_GND));
4369 : 5 : FCdf2_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vbi_ei));
4370 : 5 : FCdf2_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vbi_ci));
4371 : : #endif
4372 : 5 : FCdf2_dw=((((1.0-r)*x)+(r*a))*FClnb);
4373 : : }
4374 : : else
4375 : : {
4376 : : #if defined(_DERIVATE)
4377 : 0 : a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
4378 : 0 : a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
4379 : 0 : a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
4380 : 0 : a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
4381 : : #endif
4382 : 0 : a=(z*z);
4383 : : #if defined(_DERIVATE)
4384 : 0 : a2_Vci_ei=((z_Vci_ei-(0.5*a_Vci_ei))+((z_Vci_ei*a)+(z*a_Vci_ei)));
4385 : 0 : a2_Vbi_ei=((z_Vbi_ei-(0.5*a_Vbi_ei))+((z_Vbi_ei*a)+(z*a_Vbi_ei)));
4386 : 0 : a2_Vbi_ci=((z_Vbi_ci-(0.5*a_Vbi_ci))+((z_Vbi_ci*a)+(z*a_Vbi_ci)));
4387 : 0 : a2_Vtnode_GND=((z_Vtnode_GND-(0.5*a_Vtnode_GND))+((z_Vtnode_GND*a)+(z*a_Vtnode_GND)));
4388 : : #endif
4389 : 0 : a2=(((3.0+z)-(0.5*a))+(z*a));
4390 : : #if defined(_DERIVATE)
4391 : 0 : a3_Vci_ei=((((-2.0)*z_Vci_ei)+(1.5*a_Vci_ei))+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0));
4392 : 0 : a3_Vbi_ei=((((-2.0)*z_Vbi_ei)+(1.5*a_Vbi_ei))+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0));
4393 : 0 : a3_Vbi_ci=((((-2.0)*z_Vbi_ci)+(1.5*a_Vbi_ci))+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0));
4394 : 0 : a3_Vtnode_GND=((((-2.0)*z_Vtnode_GND)+(1.5*a_Vtnode_GND))+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0));
4395 : : #endif
4396 : 0 : a3=((((-2.0)*z)+(1.5*a))+(((2.0*a)*a)/3.0));
4397 : : #if defined(_DERIVATE)
4398 : 0 : FCf2_Vci_ei=(((((((latb*a2_Vci_ei)+(latl*a3_Vci_ei))*FCw)+(((latb*a2)+(latl*a3))*FCw_Vci_ei))*FCw)+((((latb*a2)+(latl*a3))*FCw)*FCw_Vci_ei))/6.0);
4399 : 0 : FCf2_Vbi_ei=(((((((latb*a2_Vbi_ei)+(latl*a3_Vbi_ei))*FCw)+(((latb*a2)+(latl*a3))*FCw_Vbi_ei))*FCw)+((((latb*a2)+(latl*a3))*FCw)*FCw_Vbi_ei))/6.0);
4400 : 0 : FCf2_Vbi_ci=(((((((latb*a2_Vbi_ci)+(latl*a3_Vbi_ci))*FCw)+(((latb*a2)+(latl*a3))*FCw_Vbi_ci))*FCw)+((((latb*a2)+(latl*a3))*FCw)*FCw_Vbi_ci))/6.0);
4401 : 0 : FCf2_Vtnode_GND=(((((((latb*a2_Vtnode_GND)+(latl*a3_Vtnode_GND))*FCw)+(((latb*a2)+(latl*a3))*FCw_Vtnode_GND))*FCw)+((((latb*a2)+(latl*a3))*FCw)*FCw_Vtnode_GND))/6.0);
4402 : : #endif
4403 : 0 : FCf2=(((((latb*a2)+(latl*a3))*FCw)*FCw)/6.0);
4404 : : #if defined(_DERIVATE)
4405 : 0 : FCdf2_dw_Vci_ei=((((z_Vci_ei+(0.5*a_Vci_ei))-(((a_Vci_ei*z)+(a*z_Vci_ei))/3.0))+((((5.0*a_Vci_ei)*a)+((5.0*a)*a_Vci_ei))/6.0))+(((latl*FCw_Vci_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vci_ei-z_Vci_ei)+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0)))));
4406 : 0 : FCdf2_dw_Vtnode_GND=((((z_Vtnode_GND+(0.5*a_Vtnode_GND))-(((a_Vtnode_GND*z)+(a*z_Vtnode_GND))/3.0))+((((5.0*a_Vtnode_GND)*a)+((5.0*a)*a_Vtnode_GND))/6.0))+(((latl*FCw_Vtnode_GND)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vtnode_GND-z_Vtnode_GND)+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0)))));
4407 : 0 : FCdf2_dw_Vbi_ei=((((z_Vbi_ei+(0.5*a_Vbi_ei))-(((a_Vbi_ei*z)+(a*z_Vbi_ei))/3.0))+((((5.0*a_Vbi_ei)*a)+((5.0*a)*a_Vbi_ei))/6.0))+(((latl*FCw_Vbi_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vbi_ei-z_Vbi_ei)+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0)))));
4408 : 0 : FCdf2_dw_Vbi_ci=((((z_Vbi_ci+(0.5*a_Vbi_ci))-(((a_Vbi_ci*z)+(a*z_Vbi_ci))/3.0))+((((5.0*a_Vbi_ci)*a)+((5.0*a)*a_Vbi_ci))/6.0))+(((latl*FCw_Vbi_ci)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vbi_ci-z_Vbi_ci)+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0)))));
4409 : : #endif
4410 : 0 : FCdf2_dw=((((z+(0.5*a))-((a*z)/3.0))+(((5.0*a)*a)/6.0))+((latl*FCw)*((a-z)+(((2.0*a)*a)/3.0))));
4411 : : }
4412 : : #if defined(_DERIVATE)
4413 : 5 : z_Vci_ei=(latl*FCw_Vci_ei);
4414 : 5 : z_Vtnode_GND=(latl*FCw_Vtnode_GND);
4415 : 5 : z_Vbi_ei=(latl*FCw_Vbi_ei);
4416 : 5 : z_Vbi_ci=(latl*FCw_Vbi_ci);
4417 : : #endif
4418 : 5 : z=(latl*FCw);
4419 [ + - ]: 5 : if
4420 : : (z>1.0e-6)
4421 : : {
4422 : : #if defined(_DERIVATE)
4423 : 5 : x_Vci_ei=z_Vci_ei;
4424 : 5 : x_Vtnode_GND=z_Vtnode_GND;
4425 : 5 : x_Vbi_ei=z_Vbi_ei;
4426 : 5 : x_Vbi_ci=z_Vbi_ci;
4427 : : #endif
4428 : 5 : x=(1.0+z);
4429 : : #if defined(_DERIVATE)
4430 : 5 : a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
4431 : 5 : a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
4432 : 5 : a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
4433 : 5 : a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
4434 : : #endif
4435 : 5 : a=(x*x);
4436 : : #if defined(_DERIVATE)
4437 : 5 : a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vci_ei))));
4438 : 5 : a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vbi_ei))));
4439 : 5 : a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vbi_ci))));
4440 : 5 : a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vtnode_GND))));
4441 : : #endif
4442 : 5 : a2=(0.250*((a*((2.0*FClnl)-1.0))+1.0));
4443 : : #if defined(_DERIVATE)
4444 : 5 : a3_Vci_ei=(((((a_Vci_ei*x)+(a*x_Vci_ei))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vci_ei)))/9.0);
4445 : 5 : a3_Vbi_ei=(((((a_Vbi_ei*x)+(a*x_Vbi_ei))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vbi_ei)))/9.0);
4446 : 5 : a3_Vbi_ci=(((((a_Vbi_ci*x)+(a*x_Vbi_ci))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vbi_ci)))/9.0);
4447 : 5 : a3_Vtnode_GND=(((((a_Vtnode_GND*x)+(a*x_Vtnode_GND))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vtnode_GND)))/9.0);
4448 : : #endif
4449 : 5 : a3=((((a*x)*((3.0*FClnl)-1.0))+1.0)/9.0);
4450 : 5 : r=(latb/latl);
4451 : : #if defined(_DERIVATE)
4452 : 5 : FCf3_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latl);
4453 : 5 : FCf3_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latl);
4454 : 5 : FCf3_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latl);
4455 : 5 : FCf3_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latl);
4456 : : #endif
4457 : 5 : FCf3=((((1.0-r)*a2)+(r*a3))/latl);
4458 : : #if defined(_DERIVATE)
4459 : 5 : FCdf3_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vci_ei));
4460 : 5 : FCdf3_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vtnode_GND));
4461 : 5 : FCdf3_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vbi_ei));
4462 : 5 : FCdf3_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vbi_ci));
4463 : : #endif
4464 : 5 : FCdf3_dw=((((1.0-r)*x)+(r*a))*FClnl);
4465 : : }
4466 : : else
4467 : : {
4468 : : #if defined(_DERIVATE)
4469 : 0 : a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
4470 : 0 : a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
4471 : 0 : a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
4472 : 0 : a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
4473 : : #endif
4474 : 0 : a=(z*z);
4475 : : #if defined(_DERIVATE)
4476 : 0 : a2_Vci_ei=((z_Vci_ei-(0.5*a_Vci_ei))+((z_Vci_ei*a)+(z*a_Vci_ei)));
4477 : 0 : a2_Vbi_ei=((z_Vbi_ei-(0.5*a_Vbi_ei))+((z_Vbi_ei*a)+(z*a_Vbi_ei)));
4478 : 0 : a2_Vbi_ci=((z_Vbi_ci-(0.5*a_Vbi_ci))+((z_Vbi_ci*a)+(z*a_Vbi_ci)));
4479 : 0 : a2_Vtnode_GND=((z_Vtnode_GND-(0.5*a_Vtnode_GND))+((z_Vtnode_GND*a)+(z*a_Vtnode_GND)));
4480 : : #endif
4481 : 0 : a2=(((3.0+z)-(0.5*a))+(z*a));
4482 : : #if defined(_DERIVATE)
4483 : 0 : a3_Vci_ei=((((-2.0)*z_Vci_ei)+(1.5*a_Vci_ei))+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0));
4484 : 0 : a3_Vbi_ei=((((-2.0)*z_Vbi_ei)+(1.5*a_Vbi_ei))+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0));
4485 : 0 : a3_Vbi_ci=((((-2.0)*z_Vbi_ci)+(1.5*a_Vbi_ci))+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0));
4486 : 0 : a3_Vtnode_GND=((((-2.0)*z_Vtnode_GND)+(1.5*a_Vtnode_GND))+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0));
4487 : : #endif
4488 : 0 : a3=((((-2.0)*z)+(1.5*a))+(((2.0*a)*a)/3.0));
4489 : : #if defined(_DERIVATE)
4490 : 0 : FCf3_Vci_ei=(((((((latl*a2_Vci_ei)+(latb*a3_Vci_ei))*FCw)+(((latl*a2)+(latb*a3))*FCw_Vci_ei))*FCw)+((((latl*a2)+(latb*a3))*FCw)*FCw_Vci_ei))/6.0);
4491 : 0 : FCf3_Vbi_ei=(((((((latl*a2_Vbi_ei)+(latb*a3_Vbi_ei))*FCw)+(((latl*a2)+(latb*a3))*FCw_Vbi_ei))*FCw)+((((latl*a2)+(latb*a3))*FCw)*FCw_Vbi_ei))/6.0);
4492 : 0 : FCf3_Vbi_ci=(((((((latl*a2_Vbi_ci)+(latb*a3_Vbi_ci))*FCw)+(((latl*a2)+(latb*a3))*FCw_Vbi_ci))*FCw)+((((latl*a2)+(latb*a3))*FCw)*FCw_Vbi_ci))/6.0);
4493 : 0 : FCf3_Vtnode_GND=(((((((latl*a2_Vtnode_GND)+(latb*a3_Vtnode_GND))*FCw)+(((latl*a2)+(latb*a3))*FCw_Vtnode_GND))*FCw)+((((latl*a2)+(latb*a3))*FCw)*FCw_Vtnode_GND))/6.0);
4494 : : #endif
4495 : 0 : FCf3=(((((latl*a2)+(latb*a3))*FCw)*FCw)/6.0);
4496 : : #if defined(_DERIVATE)
4497 : 0 : FCdf3_dw_Vci_ei=((((z_Vci_ei+(0.5*a_Vci_ei))-(((a_Vci_ei*z)+(a*z_Vci_ei))/3.0))+((((5.0*a_Vci_ei)*a)+((5.0*a)*a_Vci_ei))/6.0))+(((latb*FCw_Vci_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vci_ei-z_Vci_ei)+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0)))));
4498 : 0 : FCdf3_dw_Vtnode_GND=((((z_Vtnode_GND+(0.5*a_Vtnode_GND))-(((a_Vtnode_GND*z)+(a*z_Vtnode_GND))/3.0))+((((5.0*a_Vtnode_GND)*a)+((5.0*a)*a_Vtnode_GND))/6.0))+(((latb*FCw_Vtnode_GND)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vtnode_GND-z_Vtnode_GND)+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0)))));
4499 : 0 : FCdf3_dw_Vbi_ei=((((z_Vbi_ei+(0.5*a_Vbi_ei))-(((a_Vbi_ei*z)+(a*z_Vbi_ei))/3.0))+((((5.0*a_Vbi_ei)*a)+((5.0*a)*a_Vbi_ei))/6.0))+(((latb*FCw_Vbi_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vbi_ei-z_Vbi_ei)+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0)))));
4500 : 0 : FCdf3_dw_Vbi_ci=((((z_Vbi_ci+(0.5*a_Vbi_ci))-(((a_Vbi_ci*z)+(a*z_Vbi_ci))/3.0))+((((5.0*a_Vbi_ci)*a)+((5.0*a)*a_Vbi_ci))/6.0))+(((latb*FCw_Vbi_ci)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vbi_ci-z_Vbi_ci)+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0)))));
4501 : : #endif
4502 : 0 : FCdf3_dw=((((z+(0.5*a))-((a*z)/3.0))+(((5.0*a)*a)/6.0))+((latb*FCw)*((a-z)+(((2.0*a)*a)/3.0))));
4503 : : }
4504 : : #if defined(_DERIVATE)
4505 : 5 : FCf_ci_Vci_ei=((FCf_CT_Vci_ei*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vci_ei*FCf1)+(FCa*FCf1_Vci_ei))-FCf2_Vci_ei)+FCf3_Vci_ei)));
4506 : 5 : FCf_ci_Vtnode_GND=((FCf_CT_Vtnode_GND*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vtnode_GND*FCf1)+(FCa*FCf1_Vtnode_GND))-FCf2_Vtnode_GND)+FCf3_Vtnode_GND)));
4507 : 5 : FCf_ci_Vbi_ei=((FCf_CT_Vbi_ei*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vbi_ei*FCf1)+(FCa*FCf1_Vbi_ei))-FCf2_Vbi_ei)+FCf3_Vbi_ei)));
4508 : 5 : FCf_ci_Vbi_ci=((FCf_CT_Vbi_ci*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vbi_ci*FCf1)+(FCa*FCf1_Vbi_ci))-FCf2_Vbi_ci)+FCf3_Vbi_ci)));
4509 : : #endif
4510 : 5 : FCf_ci=(FCf_CT*(((FCa*FCf1)-FCf2)+FCf3));
4511 : : #if defined(_DERIVATE)
4512 : 5 : FCdfc_dw_Vci_ei=((FCf_CT_Vci_ei*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw))+(FCf_CT*(((((FCa1_Vci_ei*FCdf1_dw)+(FCa1*FCdf1_dw_Vci_ei))+((FCda1_dw_Vci_ei*FCf1)+(FCda1_dw*FCf1_Vci_ei)))-FCdf2_dw_Vci_ei)+FCdf3_dw_Vci_ei)));
4513 : 5 : FCdfc_dw_Vtnode_GND=((FCf_CT_Vtnode_GND*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw))+(FCf_CT*(((((FCa1_Vtnode_GND*FCdf1_dw)+(FCa1*FCdf1_dw_Vtnode_GND))+((FCda1_dw_Vtnode_GND*FCf1)+(FCda1_dw*FCf1_Vtnode_GND)))-FCdf2_dw_Vtnode_GND)+FCdf3_dw_Vtnode_GND)));
4514 : 5 : FCdfc_dw_Vbi_ei=((FCf_CT_Vbi_ei*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw))+(FCf_CT*(((((FCa1_Vbi_ei*FCdf1_dw)+(FCa1*FCdf1_dw_Vbi_ei))+((FCda1_dw_Vbi_ei*FCf1)+(FCda1_dw*FCf1_Vbi_ei)))-FCdf2_dw_Vbi_ei)+FCdf3_dw_Vbi_ei)));
4515 : 5 : FCdfc_dw_Vbi_ci=((FCf_CT_Vbi_ci*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw))+(FCf_CT*(((((FCa1_Vbi_ci*FCdf1_dw)+(FCa1*FCdf1_dw_Vbi_ci))+((FCda1_dw_Vbi_ci*FCf1)+(FCda1_dw*FCf1_Vbi_ci)))-FCdf2_dw_Vbi_ci)+FCdf3_dw_Vbi_ci)));
4516 : : #endif
4517 : 5 : FCdfc_dw=(FCf_CT*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw));
4518 : : #if defined(_DERIVATE)
4519 : 5 : FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
4520 : 5 : FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
4521 : 5 : FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
4522 : 5 : FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
4523 : : #endif
4524 : 5 : FCdw_ditf=(FCdw_daick*FCdaick_ditf);
4525 : : #if defined(_DERIVATE)
4526 : 5 : FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
4527 : 5 : FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
4528 : 5 : FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
4529 : 5 : FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
4530 : : #endif
4531 : 5 : FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
4532 : : #if defined(_DERIVATE)
4533 : 5 : a_Vci_ei=(latb*FCw_Vci_ei);
4534 : 5 : a_Vbi_ei=(latb*FCw_Vbi_ei);
4535 : 5 : a_Vbi_ci=(latb*FCw_Vbi_ci);
4536 : 5 : a_Vtnode_GND=(latb*FCw_Vtnode_GND);
4537 : : #endif
4538 : 5 : a=(latb*FCw);
4539 [ + - ]: 5 : if
4540 : : (a>1.0e-6)
4541 : : {
4542 : : #if defined(_DERIVATE)
4543 : 5 : FCf2_Vci_ei=((a_Vci_ei-FClnb_Vci_ei)/latb);
4544 : 5 : FCf2_Vbi_ei=((a_Vbi_ei-FClnb_Vbi_ei)/latb);
4545 : 5 : FCf2_Vbi_ci=((a_Vbi_ci-FClnb_Vbi_ci)/latb);
4546 : 5 : FCf2_Vtnode_GND=((a_Vtnode_GND-FClnb_Vtnode_GND)/latb);
4547 : : #endif
4548 : 5 : FCf2=((a-FClnb)/latb);
4549 : : #if defined(_DERIVATE)
4550 : 5 : FCdf2_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
4551 : 5 : FCdf2_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
4552 : 5 : FCdf2_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
4553 : 5 : FCdf2_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
4554 : : #endif
4555 : 5 : FCdf2_dw=(a/(1.0+a));
4556 : : }
4557 : : else
4558 : : {
4559 : : #if defined(_DERIVATE)
4560 : 0 : FCf2_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
4561 : 0 : FCf2_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
4562 : 0 : FCf2_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
4563 : 0 : FCf2_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
4564 : : #endif
4565 : 0 : FCf2=((0.5*a)*FCw);
4566 : : #if defined(_DERIVATE)
4567 : 0 : FCdf2_dw_Vci_ei=a_Vci_ei;
4568 : 0 : FCdf2_dw_Vtnode_GND=a_Vtnode_GND;
4569 : 0 : FCdf2_dw_Vbi_ei=a_Vbi_ei;
4570 : 0 : FCdf2_dw_Vbi_ci=a_Vbi_ci;
4571 : : #endif
4572 : 0 : FCdf2_dw=a;
4573 : : }
4574 : : #if defined(_DERIVATE)
4575 : 5 : a_Vci_ei=(latl*FCw_Vci_ei);
4576 : 5 : a_Vbi_ei=(latl*FCw_Vbi_ei);
4577 : 5 : a_Vbi_ci=(latl*FCw_Vbi_ci);
4578 : 5 : a_Vtnode_GND=(latl*FCw_Vtnode_GND);
4579 : : #endif
4580 : 5 : a=(latl*FCw);
4581 [ + - ]: 5 : if
4582 : : (a>1.0e-6)
4583 : : {
4584 : : #if defined(_DERIVATE)
4585 : 5 : FCf3_Vci_ei=((a_Vci_ei-FClnl_Vci_ei)/latl);
4586 : 5 : FCf3_Vbi_ei=((a_Vbi_ei-FClnl_Vbi_ei)/latl);
4587 : 5 : FCf3_Vbi_ci=((a_Vbi_ci-FClnl_Vbi_ci)/latl);
4588 : 5 : FCf3_Vtnode_GND=((a_Vtnode_GND-FClnl_Vtnode_GND)/latl);
4589 : : #endif
4590 : 5 : FCf3=((a-FClnl)/latl);
4591 : : #if defined(_DERIVATE)
4592 : 5 : FCdf3_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
4593 : 5 : FCdf3_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
4594 : 5 : FCdf3_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
4595 : 5 : FCdf3_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
4596 : : #endif
4597 : 5 : FCdf3_dw=(a/(1.0+a));
4598 : : }
4599 : : else
4600 : : {
4601 : : #if defined(_DERIVATE)
4602 : 0 : FCf3_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
4603 : 0 : FCf3_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
4604 : 0 : FCf3_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
4605 : 0 : FCf3_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
4606 : : #endif
4607 : 0 : FCf3=((0.5*a)*FCw);
4608 : : #if defined(_DERIVATE)
4609 : 0 : FCdf3_dw_Vci_ei=a_Vci_ei;
4610 : 0 : FCdf3_dw_Vtnode_GND=a_Vtnode_GND;
4611 : 0 : FCdf3_dw_Vbi_ei=a_Vbi_ei;
4612 : 0 : FCdf3_dw_Vbi_ci=a_Vbi_ci;
4613 : : #endif
4614 : 0 : FCdf3_dw=a;
4615 : : }
4616 : : #if defined(_DERIVATE)
4617 : 5 : FCf_CT_Vci_ei=((FCf_CT_Vci_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vci_ei-FCf3_Vci_ei)));
4618 : 5 : FCf_CT_Vbi_ei=((FCf_CT_Vbi_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ei-FCf3_Vbi_ei)));
4619 : 5 : FCf_CT_Vbi_ci=((FCf_CT_Vbi_ci*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ci-FCf3_Vbi_ci)));
4620 : 5 : FCf_CT_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCf2-FCf3))+(FCf_CT*(FCf2_Vtnode_GND-FCf3_Vtnode_GND)));
4621 : : #endif
4622 : 5 : FCf_CT=(FCf_CT*(FCf2-FCf3));
4623 : : #if defined(_DERIVATE)
4624 : 5 : FCdfCT_dw_Vci_ei=((FCf_CT_Vci_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vci_ei-FCdf3_dw_Vci_ei)));
4625 : 5 : FCdfCT_dw_Vbi_ei=((FCf_CT_Vbi_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ei-FCdf3_dw_Vbi_ei)));
4626 : 5 : FCdfCT_dw_Vbi_ci=((FCf_CT_Vbi_ci*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ci-FCdf3_dw_Vbi_ci)));
4627 : 5 : FCdfCT_dw_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vtnode_GND-FCdf3_dw_Vtnode_GND)));
4628 : : #endif
4629 : 5 : FCdfCT_dw=(FCf_CT*(FCdf2_dw-FCdf3_dw));
4630 : : #if defined(_DERIVATE)
4631 : 5 : FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
4632 : 5 : FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
4633 : 5 : FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
4634 : 5 : FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
4635 : : #endif
4636 : 5 : FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
4637 : : }
4638 : : else
4639 : : {
4640 [ # # ]: 0 : if
4641 : : (latb>0.01)
4642 : : {
4643 : : #if defined(_DERIVATE)
4644 : 0 : FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
4645 : 0 : FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
4646 : 0 : FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
4647 : 0 : FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
4648 : : #endif
4649 : 0 : FCd_a=(1.0/(1.0+(FCa_ck*latb)));
4650 : : #if defined(_DERIVATE)
4651 : 0 : FCw_Vci_ei=(((-FCa_ck_Vci_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vci_ei));
4652 : 0 : FCw_Vtnode_GND=(((-FCa_ck_Vtnode_GND)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vtnode_GND));
4653 : 0 : FCw_Vbi_ei=(((-FCa_ck_Vbi_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ei));
4654 : 0 : FCw_Vbi_ci=(((-FCa_ck_Vbi_ci)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ci));
4655 : : #endif
4656 : 0 : FCw=((1.0-FCa_ck)*FCd_a);
4657 : : #if defined(_DERIVATE)
4658 : 0 : FCdw_daick_Vci_ei=((((-(1.0+latb))*FCd_a_Vci_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vci_ei));
4659 : 0 : FCdw_daick_Vtnode_GND=((((-(1.0+latb))*FCd_a_Vtnode_GND)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vtnode_GND));
4660 : 0 : FCdw_daick_Vbi_ei=((((-(1.0+latb))*FCd_a_Vbi_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ei));
4661 : 0 : FCdw_daick_Vbi_ci=((((-(1.0+latb))*FCd_a_Vbi_ci)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ci));
4662 : : #endif
4663 : 0 : FCdw_daick=(((-(1.0+latb))*FCd_a)*FCd_a);
4664 : : }
4665 : : else
4666 : : {
4667 : : #if defined(_DERIVATE)
4668 : 0 : FCw_Vci_ei=((-FCa_ck_Vci_ei)-FCa_ck_Vci_ei*latb);
4669 : 0 : FCw_Vtnode_GND=((-FCa_ck_Vtnode_GND)-FCa_ck_Vtnode_GND*latb);
4670 : 0 : FCw_Vbi_ei=((-FCa_ck_Vbi_ei)-FCa_ck_Vbi_ei*latb);
4671 : 0 : FCw_Vbi_ci=((-FCa_ck_Vbi_ci)-FCa_ck_Vbi_ci*latb);
4672 : : #endif
4673 : 0 : FCw=((1.0-FCa_ck)-(FCa_ck*latb));
4674 : : #if defined(_DERIVATE)
4675 : 0 : FCdw_daick_Vci_ei=0.0;
4676 : 0 : FCdw_daick_Vtnode_GND=0.0;
4677 : 0 : FCdw_daick_Vbi_ei=0.0;
4678 : 0 : FCdw_daick_Vbi_ci=0.0;
4679 : : #endif
4680 : 0 : FCdw_daick=(-(1.0+latb));
4681 : : }
4682 : : #if defined(_DERIVATE)
4683 : 0 : FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
4684 : 0 : FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
4685 : 0 : FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
4686 : 0 : FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
4687 : : #endif
4688 : 0 : FCw2=(FCw*FCw);
4689 : : #if defined(_DERIVATE)
4690 : 0 : FCz_Vci_ei=(latb*FCw_Vci_ei);
4691 : 0 : FCz_Vtnode_GND=(latb*FCw_Vtnode_GND);
4692 : 0 : FCz_Vbi_ei=(latb*FCw_Vbi_ei);
4693 : 0 : FCz_Vbi_ci=(latb*FCw_Vbi_ci);
4694 : : #endif
4695 : 0 : FCz=(latb*FCw);
4696 : : #if defined(_DERIVATE)
4697 : 0 : FCz_1_Vci_ei=FCz_Vci_ei;
4698 : 0 : FCz_1_Vtnode_GND=FCz_Vtnode_GND;
4699 : 0 : FCz_1_Vbi_ei=FCz_Vbi_ei;
4700 : 0 : FCz_1_Vbi_ci=FCz_Vbi_ci;
4701 : : #endif
4702 : 0 : FCz_1=(1.0+FCz);
4703 : : #if defined(_DERIVATE)
4704 : 0 : FCd_f_Vci_ei=(-FCz_1_Vci_ei/FCz_1/FCz_1);
4705 : 0 : FCd_f_Vtnode_GND=(-FCz_1_Vtnode_GND/FCz_1/FCz_1);
4706 : 0 : FCd_f_Vbi_ei=(-FCz_1_Vbi_ei/FCz_1/FCz_1);
4707 : 0 : FCd_f_Vbi_ci=(-FCz_1_Vbi_ci/FCz_1/FCz_1);
4708 : : #endif
4709 : 0 : FCd_f=(1.0/FCz_1);
4710 : : #if defined(_DERIVATE)
4711 : 0 : FCf_ci_Vci_ei=((((FCw2_Vci_ei*(1.0+(FCz/3.0)))+(FCw2*(FCz_Vci_ei/3.0)))*FCd_f)+((FCw2*(1.0+(FCz/3.0)))*FCd_f_Vci_ei));
4712 : 0 : FCf_ci_Vtnode_GND=((((FCw2_Vtnode_GND*(1.0+(FCz/3.0)))+(FCw2*(FCz_Vtnode_GND/3.0)))*FCd_f)+((FCw2*(1.0+(FCz/3.0)))*FCd_f_Vtnode_GND));
4713 : 0 : FCf_ci_Vbi_ei=((((FCw2_Vbi_ei*(1.0+(FCz/3.0)))+(FCw2*(FCz_Vbi_ei/3.0)))*FCd_f)+((FCw2*(1.0+(FCz/3.0)))*FCd_f_Vbi_ei));
4714 : 0 : FCf_ci_Vbi_ci=((((FCw2_Vbi_ci*(1.0+(FCz/3.0)))+(FCw2*(FCz_Vbi_ci/3.0)))*FCd_f)+((FCw2*(1.0+(FCz/3.0)))*FCd_f_Vbi_ci));
4715 : : #endif
4716 : 0 : FCf_ci=((FCw2*(1.0+(FCz/3.0)))*FCd_f);
4717 : : #if defined(_DERIVATE)
4718 : 0 : FCdfc_dw_Vci_ei=(((((((2.0*FCw_Vci_ei)*(FCz_1+((FCz*FCz)/3.0)))+((2.0*FCw)*(FCz_1_Vci_ei+(((FCz_Vci_ei*FCz)+(FCz*FCz_Vci_ei))/3.0))))*FCd_f)+(((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f_Vci_ei))*FCd_f)+((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vci_ei));
4719 : 0 : FCdfc_dw_Vtnode_GND=(((((((2.0*FCw_Vtnode_GND)*(FCz_1+((FCz*FCz)/3.0)))+((2.0*FCw)*(FCz_1_Vtnode_GND+(((FCz_Vtnode_GND*FCz)+(FCz*FCz_Vtnode_GND))/3.0))))*FCd_f)+(((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f_Vtnode_GND))*FCd_f)+((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vtnode_GND));
4720 : 0 : FCdfc_dw_Vbi_ei=(((((((2.0*FCw_Vbi_ei)*(FCz_1+((FCz*FCz)/3.0)))+((2.0*FCw)*(FCz_1_Vbi_ei+(((FCz_Vbi_ei*FCz)+(FCz*FCz_Vbi_ei))/3.0))))*FCd_f)+(((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f_Vbi_ei))*FCd_f)+((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vbi_ei));
4721 : 0 : FCdfc_dw_Vbi_ci=(((((((2.0*FCw_Vbi_ci)*(FCz_1+((FCz*FCz)/3.0)))+((2.0*FCw)*(FCz_1_Vbi_ci+(((FCz_Vbi_ci*FCz)+(FCz*FCz_Vbi_ci))/3.0))))*FCd_f)+(((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f_Vbi_ci))*FCd_f)+((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vbi_ci));
4722 : : #endif
4723 : 0 : FCdfc_dw=((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
4724 : : #if defined(_DERIVATE)
4725 : 0 : FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
4726 : 0 : FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
4727 : 0 : FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
4728 : 0 : FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
4729 : : #endif
4730 : 0 : FCdw_ditf=(FCdw_daick*FCdaick_ditf);
4731 : : #if defined(_DERIVATE)
4732 : 0 : FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
4733 : 0 : FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
4734 : 0 : FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
4735 : 0 : FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
4736 : : #endif
4737 : 0 : FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
4738 [ # # ]: 0 : if
4739 : : (FCz>0.001)
4740 : : {
4741 : : {
4742 : 0 : double m00_logE(d00_logE0,FCz_1)
4743 : : #if defined(_DERIVATE)
4744 : 0 : double m10_logE(d10_logE0,d00_logE0,FCz_1)
4745 : : #endif
4746 : : #if defined(_DERIVATE)
4747 : 0 : FCf_CT_Vci_ei=(((2.0*(((FCz_1_Vci_ei*d00_logE0)+(FCz_1*FCz_1_Vci_ei*d10_logE0))-FCz_Vci_ei))*((latb*latb)*FCz_1)-(2.0*((FCz_1*d00_logE0)-FCz))*((latb*latb)*FCz_1_Vci_ei))/((latb*latb)*FCz_1)/((latb*latb)*FCz_1));
4748 : 0 : FCf_CT_Vbi_ei=(((2.0*(((FCz_1_Vbi_ei*d00_logE0)+(FCz_1*FCz_1_Vbi_ei*d10_logE0))-FCz_Vbi_ei))*((latb*latb)*FCz_1)-(2.0*((FCz_1*d00_logE0)-FCz))*((latb*latb)*FCz_1_Vbi_ei))/((latb*latb)*FCz_1)/((latb*latb)*FCz_1));
4749 : 0 : FCf_CT_Vbi_ci=(((2.0*(((FCz_1_Vbi_ci*d00_logE0)+(FCz_1*FCz_1_Vbi_ci*d10_logE0))-FCz_Vbi_ci))*((latb*latb)*FCz_1)-(2.0*((FCz_1*d00_logE0)-FCz))*((latb*latb)*FCz_1_Vbi_ci))/((latb*latb)*FCz_1)/((latb*latb)*FCz_1));
4750 : 0 : FCf_CT_Vtnode_GND=(((2.0*(((FCz_1_Vtnode_GND*d00_logE0)+(FCz_1*FCz_1_Vtnode_GND*d10_logE0))-FCz_Vtnode_GND))*((latb*latb)*FCz_1)-(2.0*((FCz_1*d00_logE0)-FCz))*((latb*latb)*FCz_1_Vtnode_GND))/((latb*latb)*FCz_1)/((latb*latb)*FCz_1));
4751 : : #endif
4752 : 0 : FCf_CT=((2.0*((FCz_1*d00_logE0)-FCz))/((latb*latb)*FCz_1));
4753 : : }
4754 : : #if defined(_DERIVATE)
4755 : 0 : FCdfCT_dw_Vci_ei=(((((2.0*FCw_Vci_ei)*FCd_f)+((2.0*FCw)*FCd_f_Vci_ei))*FCd_f)+(((2.0*FCw)*FCd_f)*FCd_f_Vci_ei));
4756 : 0 : FCdfCT_dw_Vbi_ei=(((((2.0*FCw_Vbi_ei)*FCd_f)+((2.0*FCw)*FCd_f_Vbi_ei))*FCd_f)+(((2.0*FCw)*FCd_f)*FCd_f_Vbi_ei));
4757 : 0 : FCdfCT_dw_Vbi_ci=(((((2.0*FCw_Vbi_ci)*FCd_f)+((2.0*FCw)*FCd_f_Vbi_ci))*FCd_f)+(((2.0*FCw)*FCd_f)*FCd_f_Vbi_ci));
4758 : 0 : FCdfCT_dw_Vtnode_GND=(((((2.0*FCw_Vtnode_GND)*FCd_f)+((2.0*FCw)*FCd_f_Vtnode_GND))*FCd_f)+(((2.0*FCw)*FCd_f)*FCd_f_Vtnode_GND));
4759 : : #endif
4760 : 0 : FCdfCT_dw=(((2.0*FCw)*FCd_f)*FCd_f);
4761 : : }
4762 : : else
4763 : : {
4764 : : #if defined(_DERIVATE)
4765 : 0 : FCf_CT_Vci_ei=((((FCw2_Vci_ei*(1.0-(FCz/3.0)))+(FCw2*(-(FCz_Vci_ei/3.0))))*FCd_f)+((FCw2*(1.0-(FCz/3.0)))*FCd_f_Vci_ei));
4766 : 0 : FCf_CT_Vbi_ei=((((FCw2_Vbi_ei*(1.0-(FCz/3.0)))+(FCw2*(-(FCz_Vbi_ei/3.0))))*FCd_f)+((FCw2*(1.0-(FCz/3.0)))*FCd_f_Vbi_ei));
4767 : 0 : FCf_CT_Vbi_ci=((((FCw2_Vbi_ci*(1.0-(FCz/3.0)))+(FCw2*(-(FCz_Vbi_ci/3.0))))*FCd_f)+((FCw2*(1.0-(FCz/3.0)))*FCd_f_Vbi_ci));
4768 : 0 : FCf_CT_Vtnode_GND=((((FCw2_Vtnode_GND*(1.0-(FCz/3.0)))+(FCw2*(-(FCz_Vtnode_GND/3.0))))*FCd_f)+((FCw2*(1.0-(FCz/3.0)))*FCd_f_Vtnode_GND));
4769 : : #endif
4770 : 0 : FCf_CT=((FCw2*(1.0-(FCz/3.0)))*FCd_f);
4771 : : #if defined(_DERIVATE)
4772 : 0 : FCdfCT_dw_Vci_ei=(((((((2.0*FCw_Vci_ei)*(1.0-((FCz*FCz)/3.0)))+((2.0*FCw)*(-(((FCz_Vci_ei*FCz)+(FCz*FCz_Vci_ei))/3.0))))*FCd_f)+(((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f_Vci_ei))*FCd_f)+((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vci_ei));
4773 : 0 : FCdfCT_dw_Vbi_ei=(((((((2.0*FCw_Vbi_ei)*(1.0-((FCz*FCz)/3.0)))+((2.0*FCw)*(-(((FCz_Vbi_ei*FCz)+(FCz*FCz_Vbi_ei))/3.0))))*FCd_f)+(((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f_Vbi_ei))*FCd_f)+((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vbi_ei));
4774 : 0 : FCdfCT_dw_Vbi_ci=(((((((2.0*FCw_Vbi_ci)*(1.0-((FCz*FCz)/3.0)))+((2.0*FCw)*(-(((FCz_Vbi_ci*FCz)+(FCz*FCz_Vbi_ci))/3.0))))*FCd_f)+(((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f_Vbi_ci))*FCd_f)+((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vbi_ci));
4775 : 0 : FCdfCT_dw_Vtnode_GND=(((((((2.0*FCw_Vtnode_GND)*(1.0-((FCz*FCz)/3.0)))+((2.0*FCw)*(-(((FCz_Vtnode_GND*FCz)+(FCz*FCz_Vtnode_GND))/3.0))))*FCd_f)+(((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f_Vtnode_GND))*FCd_f)+((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vtnode_GND));
4776 : : #endif
4777 : 0 : FCdfCT_dw=((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
4778 : : }
4779 : : #if defined(_DERIVATE)
4780 : 0 : FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
4781 : 0 : FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
4782 : 0 : FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
4783 : 0 : FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
4784 : : #endif
4785 : 0 : FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
4786 : : }
4787 : : #if defined(_DERIVATE)
4788 : 5 : FFQ_cT_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_CT)+(FFQ_fC*FCf_CT_Vtnode_GND));
4789 : 5 : FFQ_cT_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ei));
4790 : 5 : FFQ_cT_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ci));
4791 : 5 : FFQ_cT_Vci_ei=((FFQ_fC_Vci_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vci_ei));
4792 : : #endif
4793 : 5 : FFQ_cT=(FFQ_fC*FCf_CT);
4794 : : #if defined(_DERIVATE)
4795 : 5 : FFQ_fC_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_ci)+(FFQ_fC*FCf_ci_Vtnode_GND));
4796 : 5 : FFQ_fC_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ei));
4797 : 5 : FFQ_fC_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ci));
4798 : 5 : FFQ_fC_Vci_ei=((FFQ_fC_Vci_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vci_ei));
4799 : : #endif
4800 : 5 : FFQ_fC=(FFQ_fC*FCf_ci);
4801 : : #if defined(_DERIVATE)
4802 : 5 : FFT_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*(FCf_ci+(itf*FCdfc_ditf)))+(FFT_pcS*(FCf_ci_Vtnode_GND+((itf_Vtnode_GND*FCdfc_ditf)+(itf*FCdfc_ditf_Vtnode_GND)))));
4803 : 5 : FFT_fC_Vci_ei=(FFT_pcS*(FCf_ci_Vci_ei+((itf_Vci_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vci_ei))));
4804 : 5 : FFT_fC_Vbi_ei=(FFT_pcS*(FCf_ci_Vbi_ei+((itf_Vbi_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ei))));
4805 : 5 : FFT_fC_Vbi_ci=(FFT_pcS*(FCf_ci_Vbi_ci+((itf_Vbi_ci*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ci))));
4806 : : #endif
4807 : 5 : FFT_fC=(FFT_pcS*(FCf_ci+(itf*FCdfc_ditf)));
4808 : : #if defined(_DERIVATE)
4809 : 5 : FFT_cT_Vtnode_GND=((FFT_pcS_Vtnode_GND*(FCf_CT+(itf*FCdfCT_ditf)))+(FFT_pcS*(FCf_CT_Vtnode_GND+((itf_Vtnode_GND*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vtnode_GND)))));
4810 : 5 : FFT_cT_Vci_ei=(FFT_pcS*(FCf_CT_Vci_ei+((itf_Vci_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vci_ei))));
4811 : 5 : FFT_cT_Vbi_ei=(FFT_pcS*(FCf_CT_Vbi_ei+((itf_Vbi_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ei))));
4812 : 5 : FFT_cT_Vbi_ci=(FFT_pcS*(FCf_CT_Vbi_ci+((itf_Vbi_ci*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ci))));
4813 : : #endif
4814 : 5 : FFT_cT=(FFT_pcS*(FCf_CT+(itf*FCdfCT_ditf)));
4815 : : }
4816 : : #if defined(_DERIVATE)
4817 : 5 : Qf_Vci_ei=(Qf_Vci_ei+FFd_QfB_Vci_ei);
4818 : 5 : Qf_Vtnode_GND=(Qf_Vtnode_GND+FFd_QfB_Vtnode_GND);
4819 : 5 : Qf_Vbi_ci=(Qf_Vbi_ci+FFd_QfB_Vbi_ci);
4820 : 5 : Qf_Vbi_ei=(Qf_Vbi_ei+FFd_QfB_Vbi_ei);
4821 : : #endif
4822 : 5 : Qf=(Qf+FFd_QfB);
4823 : : #if defined(_DERIVATE)
4824 : 5 : Tf_Vci_ei=(Tf_Vci_ei+FFd_TfB_Vci_ei);
4825 : 5 : Tf_Vtnode_GND=(Tf_Vtnode_GND+FFd_TfB_Vtnode_GND);
4826 : 5 : Tf_Vbi_ci=(Tf_Vbi_ci+FFd_TfB_Vbi_ci);
4827 : 5 : Tf_Vbi_ei=(Tf_Vbi_ei+FFd_TfB_Vbi_ei);
4828 : : #endif
4829 : 5 : Tf=(Tf+FFd_TfB);
4830 : : #if defined(_DERIVATE)
4831 : 5 : Q_fT_Vci_ei=((Qf_Vci_ei+(hfe*FFd_QfE_Vci_ei))+(hfc*FFQ_cT_Vci_ei));
4832 : 5 : Q_fT_Vtnode_GND=((Qf_Vtnode_GND+(hfe*FFd_QfE_Vtnode_GND))+(hfc*FFQ_cT_Vtnode_GND));
4833 : 5 : Q_fT_Vbi_ci=((Qf_Vbi_ci+(hfe*FFd_QfE_Vbi_ci))+(hfc*FFQ_cT_Vbi_ci));
4834 : 5 : Q_fT_Vbi_ei=((Qf_Vbi_ei+(hfe*FFd_QfE_Vbi_ei))+(hfc*FFQ_cT_Vbi_ei));
4835 : : #endif
4836 : 5 : Q_fT=((Qf+(hfe*FFd_QfE))+(hfc*FFQ_cT));
4837 : : #if defined(_DERIVATE)
4838 : 5 : T_fT_Vci_ei=((Tf_Vci_ei+(hfe*FFd_TfE_Vci_ei))+(hfc*FFT_cT_Vci_ei));
4839 : 5 : T_fT_Vtnode_GND=((Tf_Vtnode_GND+(hfe*FFd_TfE_Vtnode_GND))+(hfc*FFT_cT_Vtnode_GND));
4840 : 5 : T_fT_Vbi_ci=((Tf_Vbi_ci+(hfe*FFd_TfE_Vbi_ci))+(hfc*FFT_cT_Vbi_ci));
4841 : 5 : T_fT_Vbi_ei=((Tf_Vbi_ei+(hfe*FFd_TfE_Vbi_ei))+(hfc*FFT_cT_Vbi_ei));
4842 : : #endif
4843 : 5 : T_fT=((Tf+(hfe*FFd_TfE))+(hfc*FFT_cT));
4844 : : #if defined(_DERIVATE)
4845 : 5 : Qf_Vci_ei=((Qf_Vci_ei+FFd_QfE_Vci_ei)+FFQ_fC_Vci_ei);
4846 : 5 : Qf_Vtnode_GND=((Qf_Vtnode_GND+FFd_QfE_Vtnode_GND)+FFQ_fC_Vtnode_GND);
4847 : 5 : Qf_Vbi_ci=((Qf_Vbi_ci+FFd_QfE_Vbi_ci)+FFQ_fC_Vbi_ci);
4848 : 5 : Qf_Vbi_ei=((Qf_Vbi_ei+FFd_QfE_Vbi_ei)+FFQ_fC_Vbi_ei);
4849 : : #endif
4850 : 5 : Qf=((Qf+FFd_QfE)+FFQ_fC);
4851 : : #if defined(_DERIVATE)
4852 : 5 : Tf_Vci_ei=((Tf_Vci_ei+FFd_TfE_Vci_ei)+FFT_fC_Vci_ei);
4853 : 5 : Tf_Vtnode_GND=((Tf_Vtnode_GND+FFd_TfE_Vtnode_GND)+FFT_fC_Vtnode_GND);
4854 : 5 : Tf_Vbi_ci=((Tf_Vbi_ci+FFd_TfE_Vbi_ci)+FFT_fC_Vbi_ci);
4855 : 5 : Tf_Vbi_ei=((Tf_Vbi_ei+FFd_TfE_Vbi_ei)+FFT_fC_Vbi_ei);
4856 : : #endif
4857 : 5 : Tf=((Tf+FFd_TfE)+FFT_fC);
4858 : : }
4859 : : #if defined(_DERIVATE)
4860 : 6 : Qr_Vci_ei=0.0;
4861 : 6 : Qr_Vtnode_GND=(Tr*itr_Vtnode_GND);
4862 : 6 : Qr_Vbi_ci=(Tr*itr_Vbi_ci);
4863 : 6 : Qr_Vbi_ei=(Tr*itr_Vbi_ei);
4864 : : #endif
4865 : 6 : Qr=(Tr*itr);
4866 : 6 : l_it=0;
4867 [ + + ][ - + ]: 6 : if
4868 : : ((Qf>(1.0e-5*Q_p))||(a_h>1.0e-5))
4869 : : {
4870 : : {
4871 : 5 : double m00_sqrt(d00_sqrt0,((T_f0*itf)*Q_fT))
4872 : : #if defined(_DERIVATE)
4873 : 5 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((T_f0*itf)*Q_fT))
4874 : : #endif
4875 : : #if defined(_DERIVATE)
4876 : 5 : Qf_Vci_ei=(((T_f0*itf_Vci_ei)*Q_fT)+((T_f0*itf)*Q_fT_Vci_ei))*d10_sqrt0;
4877 : 5 : Qf_Vtnode_GND=((((T_f0_Vtnode_GND*itf)+(T_f0*itf_Vtnode_GND))*Q_fT)+((T_f0*itf)*Q_fT_Vtnode_GND))*d10_sqrt0;
4878 : 5 : Qf_Vbi_ci=((((T_f0_Vbi_ci*itf)+(T_f0*itf_Vbi_ci))*Q_fT)+((T_f0*itf)*Q_fT_Vbi_ci))*d10_sqrt0;
4879 : 5 : Qf_Vbi_ei=((((T_f0_Vbi_ei*itf)+(T_f0*itf_Vbi_ei))*Q_fT)+((T_f0*itf)*Q_fT_Vbi_ei))*d10_sqrt0;
4880 : : #endif
4881 : 5 : Qf=d00_sqrt0;
4882 : : }
4883 : : #if defined(_DERIVATE)
4884 : 5 : Q_pT_Vtnode_GND=((Q_0_Vtnode_GND+Qf_Vtnode_GND)+Qr_Vtnode_GND);
4885 : 5 : Q_pT_Vbi_ei=((Q_0_Vbi_ei+Qf_Vbi_ei)+Qr_Vbi_ei);
4886 : 5 : Q_pT_Vbi_ci=((Q_0_Vbi_ci+Qf_Vbi_ci)+Qr_Vbi_ci);
4887 : 5 : Q_pT_Vci_ei=(Qf_Vci_ei+Qr_Vci_ei);
4888 : : #endif
4889 : 5 : Q_pT=((Q_0+Qf)+Qr);
4890 : : #if defined(_DERIVATE)
4891 : 5 : d_Q_Vtnode_GND=Q_pT_Vtnode_GND;
4892 : 5 : d_Q_Vbi_ei=Q_pT_Vbi_ei;
4893 : 5 : d_Q_Vbi_ci=Q_pT_Vbi_ci;
4894 : 5 : d_Q_Vci_ei=Q_pT_Vci_ei;
4895 : : #endif
4896 : 5 : d_Q=Q_pT;
4897 [ + - ][ + + ]: 510 : while
[ + + ]
4898 : 1020 : (((abs(d_Q)>=(1.0e-5*abs(Q_pT)))&&(l_it<=100)))
4899 : : {
4900 : : #if defined(_DYNAMIC)
4901 : 505 : d_Q0=d_Q;
4902 : : #endif
4903 : : #if defined(_DERIVATE)
4904 : 505 : I_Tf1_Vci_ei=(-i_0f*Q_pT_Vci_ei/Q_pT/Q_pT);
4905 : 505 : I_Tf1_Vtnode_GND=((i_0f_Vtnode_GND*Q_pT-i_0f*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
4906 : 505 : I_Tf1_Vbi_ei=((i_0f_Vbi_ei*Q_pT-i_0f*Q_pT_Vbi_ei)/Q_pT/Q_pT);
4907 : 505 : I_Tf1_Vbi_ci=(-i_0f*Q_pT_Vbi_ci/Q_pT/Q_pT);
4908 : : #endif
4909 : 505 : I_Tf1=(i_0f/Q_pT);
4910 : : #if defined(_DERIVATE)
4911 : 505 : a_h_Vci_ei=(Oich*I_Tf1_Vci_ei);
4912 : 505 : a_h_Vtnode_GND=(Oich*I_Tf1_Vtnode_GND);
4913 : 505 : a_h_Vbi_ei=(Oich*I_Tf1_Vbi_ei);
4914 : 505 : a_h_Vbi_ci=(Oich*I_Tf1_Vbi_ci);
4915 : : #endif
4916 : 505 : a_h=(Oich*I_Tf1);
4917 : : #if defined(_DERIVATE)
4918 : 505 : itf_Vci_ei=((I_Tf1_Vci_ei*(1.0+a_h))+(I_Tf1*a_h_Vci_ei));
4919 : 505 : itf_Vtnode_GND=((I_Tf1_Vtnode_GND*(1.0+a_h))+(I_Tf1*a_h_Vtnode_GND));
4920 : 505 : itf_Vbi_ei=((I_Tf1_Vbi_ei*(1.0+a_h))+(I_Tf1*a_h_Vbi_ei));
4921 : 505 : itf_Vbi_ci=((I_Tf1_Vbi_ci*(1.0+a_h))+(I_Tf1*a_h_Vbi_ci));
4922 : : #endif
4923 : 505 : itf=(I_Tf1*(1.0+a_h));
4924 : : #if defined(_DERIVATE)
4925 : 505 : itr_Vci_ei=(-i_0r*Q_pT_Vci_ei/Q_pT/Q_pT);
4926 : 505 : itr_Vtnode_GND=((i_0r_Vtnode_GND*Q_pT-i_0r*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
4927 : 505 : itr_Vbi_ci=((i_0r_Vbi_ci*Q_pT-i_0r*Q_pT_Vbi_ci)/Q_pT/Q_pT);
4928 : 505 : itr_Vbi_ei=(-i_0r*Q_pT_Vbi_ei/Q_pT/Q_pT);
4929 : : #endif
4930 : 505 : itr=(i_0r/Q_pT);
4931 : : #if defined(_DERIVATE)
4932 : 505 : Tf_Vci_ei=0.0;
4933 : 505 : Tf_Vtnode_GND=T_f0_Vtnode_GND;
4934 : 505 : Tf_Vbi_ci=T_f0_Vbi_ci;
4935 : 505 : Tf_Vbi_ei=T_f0_Vbi_ei;
4936 : : #endif
4937 : 505 : Tf=T_f0;
4938 : : #if defined(_DERIVATE)
4939 : 505 : Qf_Vci_ei=(T_f0*itf_Vci_ei);
4940 : 505 : Qf_Vtnode_GND=((T_f0_Vtnode_GND*itf)+(T_f0*itf_Vtnode_GND));
4941 : 505 : Qf_Vbi_ci=((T_f0_Vbi_ci*itf)+(T_f0*itf_Vbi_ci));
4942 : 505 : Qf_Vbi_ei=((T_f0_Vbi_ei*itf)+(T_f0*itf_Vbi_ei));
4943 : : #endif
4944 : 505 : Qf=(T_f0*itf);
4945 [ - + ]: 505 : if
4946 : : (itf<(1.0e-6*ick))
4947 : : {
4948 : : #if defined(_DERIVATE)
4949 : 0 : Q_fT_Vci_ei=Qf_Vci_ei;
4950 : 0 : Q_fT_Vtnode_GND=Qf_Vtnode_GND;
4951 : 0 : Q_fT_Vbi_ci=Qf_Vbi_ci;
4952 : 0 : Q_fT_Vbi_ei=Qf_Vbi_ei;
4953 : : #endif
4954 : 0 : Q_fT=Qf;
4955 : : #if defined(_DERIVATE)
4956 : 0 : T_fT_Vci_ei=Tf_Vci_ei;
4957 : 0 : T_fT_Vtnode_GND=Tf_Vtnode_GND;
4958 : 0 : T_fT_Vbi_ci=Tf_Vbi_ci;
4959 : 0 : T_fT_Vbi_ei=Tf_Vbi_ei;
4960 : : #endif
4961 : 0 : T_fT=Tf;
4962 : : }
4963 : : else
4964 : : {
4965 : : #if defined(_DERIVATE)
4966 : 505 : FFa_Vci_ei=((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf);
4967 : 505 : FFa_Vtnode_GND=((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf);
4968 : 505 : FFa_Vbi_ei=(-ick*itf_Vbi_ei/itf/itf);
4969 : 505 : FFa_Vbi_ci=(-ick*itf_Vbi_ci/itf/itf);
4970 : : #endif
4971 : 505 : FFa=(ick/itf);
4972 : : {
4973 : 505 : double m00_logE(d00_logE0,FFa)
4974 : 505 : double m00_exp(d00_exp1,((-gtfe)*d00_logE0))
4975 : : #if defined(_DERIVATE)
4976 : 505 : double m10_logE(d10_logE0,d00_logE0,FFa)
4977 : : #define d10_exp1 d00_exp1
4978 : : #endif
4979 : : #if defined(_DERIVATE)
4980 : 505 : FFd_TfE_Vtnode_GND=((tef0_t_Vtnode_GND*d00_exp1)+(tef0_t*((-gtfe)*FFa_Vtnode_GND*d10_logE0)*d10_exp1));
4981 : 505 : FFd_TfE_Vci_ei=(tef0_t*((-gtfe)*FFa_Vci_ei*d10_logE0)*d10_exp1);
4982 : 505 : FFd_TfE_Vbi_ei=(tef0_t*((-gtfe)*FFa_Vbi_ei*d10_logE0)*d10_exp1);
4983 : 505 : FFd_TfE_Vbi_ci=(tef0_t*((-gtfe)*FFa_Vbi_ci*d10_logE0)*d10_exp1);
4984 : : #endif
4985 : 505 : FFd_TfE=(tef0_t*d00_exp1);
4986 : : }
4987 : : #if defined(_DERIVATE)
4988 : 505 : FFd_QfE_Vtnode_GND=(((FFd_TfE_Vtnode_GND*itf)+(FFd_TfE*itf_Vtnode_GND))/(gtfe+1.0));
4989 : 505 : FFd_QfE_Vci_ei=(((FFd_TfE_Vci_ei*itf)+(FFd_TfE*itf_Vci_ei))/(gtfe+1.0));
4990 : 505 : FFd_QfE_Vbi_ei=(((FFd_TfE_Vbi_ei*itf)+(FFd_TfE*itf_Vbi_ei))/(gtfe+1.0));
4991 : 505 : FFd_QfE_Vbi_ci=(((FFd_TfE_Vbi_ci*itf)+(FFd_TfE*itf_Vbi_ci))/(gtfe+1.0));
4992 : : #endif
4993 : 505 : FFd_QfE=((FFd_TfE*itf)/(gtfe+1.0));
4994 : : #if defined(_DERIVATE)
4995 : 505 : FFT_fbS_Vtnode_GND=((1.0-fthc)*thcs_t_Vtnode_GND);
4996 : : #endif
4997 : 505 : FFT_fbS=((1.0-fthc)*thcs_t);
4998 : : #if defined(_DERIVATE)
4999 : 505 : FFx_Vci_ei=(-FFa_Vci_ei);
5000 : 505 : FFx_Vtnode_GND=(-FFa_Vtnode_GND);
5001 : 505 : FFx_Vbi_ei=(-FFa_Vbi_ei);
5002 : 505 : FFx_Vbi_ci=(-FFa_Vbi_ci);
5003 : : #endif
5004 : 505 : FFx=(1.0-FFa);
5005 : : {
5006 : 505 : double m00_sqrt(d00_sqrt0,((FFx*FFx)+alhc))
5007 : : #if defined(_DERIVATE)
5008 : 505 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFx*FFx)+alhc))
5009 : : #endif
5010 : : #if defined(_DERIVATE)
5011 : 505 : FFs_Vci_ei=((FFx_Vci_ei*FFx)+(FFx*FFx_Vci_ei))*d10_sqrt0;
5012 : 505 : FFs_Vtnode_GND=((FFx_Vtnode_GND*FFx)+(FFx*FFx_Vtnode_GND))*d10_sqrt0;
5013 : 505 : FFs_Vbi_ei=((FFx_Vbi_ei*FFx)+(FFx*FFx_Vbi_ei))*d10_sqrt0;
5014 : 505 : FFs_Vbi_ci=((FFx_Vbi_ci*FFx)+(FFx*FFx_Vbi_ci))*d10_sqrt0;
5015 : : #endif
5016 : 505 : FFs=d00_sqrt0;
5017 : : }
5018 : : {
5019 : 505 : double m00_sqrt(d00_sqrt0,(1.0+alhc))
5020 : : #if defined(_DERIVATE)
5021 : 505 : FFw_Vci_ei=((FFx_Vci_ei+FFs_Vci_ei)/(1.0+d00_sqrt0));
5022 : 505 : FFw_Vtnode_GND=((FFx_Vtnode_GND+FFs_Vtnode_GND)/(1.0+d00_sqrt0));
5023 : 505 : FFw_Vbi_ei=((FFx_Vbi_ei+FFs_Vbi_ei)/(1.0+d00_sqrt0));
5024 : 505 : FFw_Vbi_ci=((FFx_Vbi_ci+FFs_Vbi_ci)/(1.0+d00_sqrt0));
5025 : : #endif
5026 : 505 : FFw=((FFx+FFs)/(1.0+d00_sqrt0));
5027 : : }
5028 : : #if defined(_DERIVATE)
5029 : 505 : FFw_2_Vci_ei=((FFw_Vci_ei*FFw)+(FFw*FFw_Vci_ei));
5030 : 505 : FFw_2_Vtnode_GND=((FFw_Vtnode_GND*FFw)+(FFw*FFw_Vtnode_GND));
5031 : 505 : FFw_2_Vbi_ei=((FFw_Vbi_ei*FFw)+(FFw*FFw_Vbi_ei));
5032 : 505 : FFw_2_Vbi_ci=((FFw_Vbi_ci*FFw)+(FFw*FFw_Vbi_ci));
5033 : : #endif
5034 : 505 : FFw_2=(FFw*FFw);
5035 : : #if defined(_DERIVATE)
5036 : 505 : FFd_QfB_Vtnode_GND=((((FFT_fbS_Vtnode_GND*itf)+(FFT_fbS*itf_Vtnode_GND))*FFw_2)+((FFT_fbS*itf)*FFw_2_Vtnode_GND));
5037 : 505 : FFd_QfB_Vbi_ei=(((FFT_fbS*itf_Vbi_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ei));
5038 : 505 : FFd_QfB_Vbi_ci=(((FFT_fbS*itf_Vbi_ci)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ci));
5039 : 505 : FFd_QfB_Vci_ei=(((FFT_fbS*itf_Vci_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vci_ei));
5040 : : #endif
5041 : 505 : FFd_QfB=((FFT_fbS*itf)*FFw_2);
5042 : : #if defined(_DERIVATE)
5043 : 505 : FFa_w_Vci_ei=((FFw_2_Vci_ei*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vci_ei)*FFs-(2.0*FFa)*FFs_Vci_ei)/FFs/FFs)));
5044 : 505 : FFa_w_Vtnode_GND=((FFw_2_Vtnode_GND*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vtnode_GND)*FFs-(2.0*FFa)*FFs_Vtnode_GND)/FFs/FFs)));
5045 : 505 : FFa_w_Vbi_ei=((FFw_2_Vbi_ei*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vbi_ei)*FFs-(2.0*FFa)*FFs_Vbi_ei)/FFs/FFs)));
5046 : 505 : FFa_w_Vbi_ci=((FFw_2_Vbi_ci*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vbi_ci)*FFs-(2.0*FFa)*FFs_Vbi_ci)/FFs/FFs)));
5047 : : #endif
5048 : 505 : FFa_w=(FFw_2*(1.0+((2.0*FFa)/FFs)));
5049 : : #if defined(_DERIVATE)
5050 : 505 : FFd_TfB_Vtnode_GND=((FFT_fbS_Vtnode_GND*FFa_w)+(FFT_fbS*FFa_w_Vtnode_GND));
5051 : 505 : FFd_TfB_Vci_ei=(FFT_fbS*FFa_w_Vci_ei);
5052 : 505 : FFd_TfB_Vbi_ei=(FFT_fbS*FFa_w_Vbi_ei);
5053 : 505 : FFd_TfB_Vbi_ci=(FFT_fbS*FFa_w_Vbi_ci);
5054 : : #endif
5055 : 505 : FFd_TfB=(FFT_fbS*FFa_w);
5056 : : #if defined(_DERIVATE)
5057 : 505 : FFT_pcS_Vtnode_GND=(fthc*thcs_t_Vtnode_GND);
5058 : : #endif
5059 : 505 : FFT_pcS=(fthc*thcs_t);
5060 [ - + ][ # # ]: 505 : if
5061 : : ((latb<=0.0)&&(latl<=0.0))
5062 : : {
5063 : : #if defined(_DERIVATE)
5064 : 0 : FFQ_fC_Vtnode_GND=((((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND))*FFw_2)+((FFT_pcS*itf)*FFw_2_Vtnode_GND));
5065 : 0 : FFQ_fC_Vbi_ei=(((FFT_pcS*itf_Vbi_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ei));
5066 : 0 : FFQ_fC_Vbi_ci=(((FFT_pcS*itf_Vbi_ci)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ci));
5067 : 0 : FFQ_fC_Vci_ei=(((FFT_pcS*itf_Vci_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vci_ei));
5068 : : #endif
5069 : 0 : FFQ_fC=((FFT_pcS*itf)*FFw_2);
5070 : : #if defined(_DERIVATE)
5071 : 0 : FFT_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*FFa_w)+(FFT_pcS*FFa_w_Vtnode_GND));
5072 : 0 : FFT_fC_Vci_ei=(FFT_pcS*FFa_w_Vci_ei);
5073 : 0 : FFT_fC_Vbi_ei=(FFT_pcS*FFa_w_Vbi_ei);
5074 : 0 : FFT_fC_Vbi_ci=(FFT_pcS*FFa_w_Vbi_ci);
5075 : : #endif
5076 : 0 : FFT_fC=(FFT_pcS*FFa_w);
5077 : : #if defined(_DERIVATE)
5078 : 0 : FFQ_cT_Vtnode_GND=FFQ_fC_Vtnode_GND;
5079 : 0 : FFQ_cT_Vbi_ei=FFQ_fC_Vbi_ei;
5080 : 0 : FFQ_cT_Vbi_ci=FFQ_fC_Vbi_ci;
5081 : 0 : FFQ_cT_Vci_ei=FFQ_fC_Vci_ei;
5082 : : #endif
5083 : 0 : FFQ_cT=FFQ_fC;
5084 : : #if defined(_DERIVATE)
5085 : 0 : FFT_cT_Vtnode_GND=FFT_fC_Vtnode_GND;
5086 : 0 : FFT_cT_Vci_ei=FFT_fC_Vci_ei;
5087 : 0 : FFT_cT_Vbi_ei=FFT_fC_Vbi_ei;
5088 : 0 : FFT_cT_Vbi_ci=FFT_fC_Vbi_ci;
5089 : : #endif
5090 : 0 : FFT_cT=FFT_fC;
5091 : : }
5092 : : else
5093 : : {
5094 : : #if defined(_DERIVATE)
5095 : 505 : FFQ_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND));
5096 : 505 : FFQ_fC_Vbi_ei=(FFT_pcS*itf_Vbi_ei);
5097 : 505 : FFQ_fC_Vbi_ci=(FFT_pcS*itf_Vbi_ci);
5098 : 505 : FFQ_fC_Vci_ei=(FFT_pcS*itf_Vci_ei);
5099 : : #endif
5100 : 505 : FFQ_fC=(FFT_pcS*itf);
5101 : : #if defined(_DERIVATE)
5102 : 505 : FCa_Vci_ei=(-((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf));
5103 : 505 : FCa_Vtnode_GND=(-((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf));
5104 : 505 : FCa_Vbi_ei=(-(-ick*itf_Vbi_ei/itf/itf));
5105 : 505 : FCa_Vbi_ci=(-(-ick*itf_Vbi_ci/itf/itf));
5106 : : #endif
5107 : 505 : FCa=(1.0-(ick/itf));
5108 : : {
5109 : 505 : double m00_sqrt(d00_sqrt0,((FCa*FCa)+alhc))
5110 : : #if defined(_DERIVATE)
5111 : 505 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FCa*FCa)+alhc))
5112 : : #endif
5113 : : #if defined(_DERIVATE)
5114 : 505 : FCrt_Vci_ei=((FCa_Vci_ei*FCa)+(FCa*FCa_Vci_ei))*d10_sqrt0;
5115 : 505 : FCrt_Vtnode_GND=((FCa_Vtnode_GND*FCa)+(FCa*FCa_Vtnode_GND))*d10_sqrt0;
5116 : 505 : FCrt_Vbi_ei=((FCa_Vbi_ei*FCa)+(FCa*FCa_Vbi_ei))*d10_sqrt0;
5117 : 505 : FCrt_Vbi_ci=((FCa_Vbi_ci*FCa)+(FCa*FCa_Vbi_ci))*d10_sqrt0;
5118 : : #endif
5119 : 505 : FCrt=d00_sqrt0;
5120 : : }
5121 : : {
5122 : 505 : double m00_sqrt(d00_sqrt0,(1.0+alhc))
5123 : : #if defined(_DERIVATE)
5124 : 505 : FCa_ck_Vci_ei=(-((FCa_Vci_ei+FCrt_Vci_ei)/(1.0+d00_sqrt0)));
5125 : 505 : FCa_ck_Vtnode_GND=(-((FCa_Vtnode_GND+FCrt_Vtnode_GND)/(1.0+d00_sqrt0)));
5126 : 505 : FCa_ck_Vbi_ei=(-((FCa_Vbi_ei+FCrt_Vbi_ei)/(1.0+d00_sqrt0)));
5127 : 505 : FCa_ck_Vbi_ci=(-((FCa_Vbi_ci+FCrt_Vbi_ci)/(1.0+d00_sqrt0)));
5128 : : #endif
5129 : 505 : FCa_ck=(1.0-((FCa+FCrt)/(1.0+d00_sqrt0)));
5130 : : }
5131 : : #if defined(_DERIVATE)
5132 : 505 : FCdaick_ditf_Vci_ei=((((FCa_ck_Vci_ei*(1-FCa))+((FCa_ck-1.0)*(-FCa_Vci_ei)))*(FCrt*itf)-((FCa_ck-1.0)*(1-FCa))*((FCrt_Vci_ei*itf)+(FCrt*itf_Vci_ei)))/(FCrt*itf)/(FCrt*itf));
5133 : 505 : FCdaick_ditf_Vtnode_GND=((((FCa_ck_Vtnode_GND*(1-FCa))+((FCa_ck-1.0)*(-FCa_Vtnode_GND)))*(FCrt*itf)-((FCa_ck-1.0)*(1-FCa))*((FCrt_Vtnode_GND*itf)+(FCrt*itf_Vtnode_GND)))/(FCrt*itf)/(FCrt*itf));
5134 : 505 : FCdaick_ditf_Vbi_ei=((((FCa_ck_Vbi_ei*(1-FCa))+((FCa_ck-1.0)*(-FCa_Vbi_ei)))*(FCrt*itf)-((FCa_ck-1.0)*(1-FCa))*((FCrt_Vbi_ei*itf)+(FCrt*itf_Vbi_ei)))/(FCrt*itf)/(FCrt*itf));
5135 : 505 : FCdaick_ditf_Vbi_ci=((((FCa_ck_Vbi_ci*(1-FCa))+((FCa_ck-1.0)*(-FCa_Vbi_ci)))*(FCrt*itf)-((FCa_ck-1.0)*(1-FCa))*((FCrt_Vbi_ci*itf)+(FCrt*itf_Vbi_ci)))/(FCrt*itf)/(FCrt*itf));
5136 : : #endif
5137 : 505 : FCdaick_ditf=(((FCa_ck-1.0)*(1-FCa))/(FCrt*itf));
5138 [ + - ]: 505 : if
5139 : : (latb>latl)
5140 : : {
5141 : : #if defined(_DERIVATE)
5142 : 505 : FCz_Vci_ei=0.0;
5143 : 505 : FCz_Vtnode_GND=0.0;
5144 : 505 : FCz_Vbi_ei=0.0;
5145 : 505 : FCz_Vbi_ci=0.0;
5146 : : #endif
5147 : 505 : FCz=(latb-latl);
5148 : 505 : FCxl=(1.0+latl);
5149 : 505 : FCxb=(1.0+latb);
5150 [ + - ]: 505 : if
5151 : : (latb>0.01)
5152 : : {
5153 : : {
5154 : 505 : double m00_logE(d00_logE0,(FCxb/FCxl))
5155 : 505 : FCln=d00_logE0;
5156 : : }
5157 : : {
5158 : 505 : double m00_exp(d00_exp0,((FCa_ck-1.0)*FCln))
5159 : : #if defined(_DERIVATE)
5160 : : #define d10_exp0 d00_exp0
5161 : : #endif
5162 : : #if defined(_DERIVATE)
5163 : 505 : FCa1_Vci_ei=FCa_ck_Vci_ei*FCln*d10_exp0;
5164 : 505 : FCa1_Vtnode_GND=FCa_ck_Vtnode_GND*FCln*d10_exp0;
5165 : 505 : FCa1_Vbi_ei=FCa_ck_Vbi_ei*FCln*d10_exp0;
5166 : 505 : FCa1_Vbi_ci=FCa_ck_Vbi_ci*FCln*d10_exp0;
5167 : : #endif
5168 : 505 : FCa1=d00_exp0;
5169 : : }
5170 : : #if defined(_DERIVATE)
5171 : 505 : FCd_a_Vci_ei=(-(-FCa1_Vci_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
5172 : 505 : FCd_a_Vtnode_GND=(-(-FCa1_Vtnode_GND*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
5173 : 505 : FCd_a_Vbi_ei=(-(-FCa1_Vbi_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
5174 : 505 : FCd_a_Vbi_ci=(-(-FCa1_Vbi_ci*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
5175 : : #endif
5176 : 505 : FCd_a=(1.0/(latl-(FCa1*latb)));
5177 : : #if defined(_DERIVATE)
5178 : 505 : FCw_Vci_ei=((FCa1_Vci_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vci_ei));
5179 : 505 : FCw_Vtnode_GND=((FCa1_Vtnode_GND*FCd_a)+((FCa1-1.0)*FCd_a_Vtnode_GND));
5180 : 505 : FCw_Vbi_ei=((FCa1_Vbi_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ei));
5181 : 505 : FCw_Vbi_ci=((FCa1_Vbi_ci*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ci));
5182 : : #endif
5183 : 505 : FCw=((FCa1-1.0)*FCd_a);
5184 : : {
5185 : 505 : double m00_logE(d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
5186 : : #if defined(_DERIVATE)
5187 : 505 : double m10_logE(d10_logE0,d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
5188 : : #endif
5189 : : #if defined(_DERIVATE)
5190 : 505 : FCa_Vci_ei=(((latb*FCw_Vci_ei)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vci_ei))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
5191 : 505 : FCa_Vtnode_GND=(((latb*FCw_Vtnode_GND)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vtnode_GND))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
5192 : 505 : FCa_Vbi_ei=(((latb*FCw_Vbi_ei)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vbi_ei))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
5193 : 505 : FCa_Vbi_ci=(((latb*FCw_Vbi_ci)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vbi_ci))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
5194 : : #endif
5195 : 505 : FCa=d00_logE0;
5196 : : }
5197 : : #if defined(_DERIVATE)
5198 : 505 : FCdw_daick_Vci_ei=(((((((-FCz_Vci_ei)*FCa1)+((-FCz)*FCa1_Vci_ei))*FCln*FCd_a)+((((-FCz)*FCa1)*FCln)*FCd_a_Vci_ei))*FCd_a)+(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a_Vci_ei));
5199 : 505 : FCdw_daick_Vtnode_GND=(((((((-FCz_Vtnode_GND)*FCa1)+((-FCz)*FCa1_Vtnode_GND))*FCln*FCd_a)+((((-FCz)*FCa1)*FCln)*FCd_a_Vtnode_GND))*FCd_a)+(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a_Vtnode_GND));
5200 : 505 : FCdw_daick_Vbi_ei=(((((((-FCz_Vbi_ei)*FCa1)+((-FCz)*FCa1_Vbi_ei))*FCln*FCd_a)+((((-FCz)*FCa1)*FCln)*FCd_a_Vbi_ei))*FCd_a)+(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a_Vbi_ei));
5201 : 505 : FCdw_daick_Vbi_ci=(((((((-FCz_Vbi_ci)*FCa1)+((-FCz)*FCa1_Vbi_ci))*FCln*FCd_a)+((((-FCz)*FCa1)*FCln)*FCd_a_Vbi_ci))*FCd_a)+(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a_Vbi_ci));
5202 : : #endif
5203 : 505 : FCdw_daick=(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a);
5204 : : {
5205 : 505 : double m00_logE(d00_logE0,(1.0+(latb*FCw)))
5206 : : #if defined(_DERIVATE)
5207 : 505 : double m10_logE(d10_logE0,d00_logE0,(1.0+(latb*FCw)))
5208 : : #endif
5209 : : #if defined(_DERIVATE)
5210 : 505 : FClnb_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
5211 : 505 : FClnb_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
5212 : 505 : FClnb_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
5213 : 505 : FClnb_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
5214 : : #endif
5215 : 505 : FClnb=d00_logE0;
5216 : : }
5217 : : {
5218 : 505 : double m00_logE(d00_logE0,(1.0+(latl*FCw)))
5219 : : #if defined(_DERIVATE)
5220 : 505 : double m10_logE(d10_logE0,d00_logE0,(1.0+(latl*FCw)))
5221 : : #endif
5222 : : #if defined(_DERIVATE)
5223 : 505 : FClnl_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
5224 : 505 : FClnl_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
5225 : 505 : FClnl_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
5226 : 505 : FClnl_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
5227 : : #endif
5228 : 505 : FClnl=d00_logE0;
5229 : : }
5230 : : #if defined(_DERIVATE)
5231 : 505 : FCa1_Vci_ei=(FClnb_Vci_ei-FClnl_Vci_ei);
5232 : 505 : FCa1_Vtnode_GND=(FClnb_Vtnode_GND-FClnl_Vtnode_GND);
5233 : 505 : FCa1_Vbi_ei=(FClnb_Vbi_ei-FClnl_Vbi_ei);
5234 : 505 : FCa1_Vbi_ci=(FClnb_Vbi_ci-FClnl_Vbi_ci);
5235 : : #endif
5236 : 505 : FCa1=(FClnb-FClnl);
5237 : : #if defined(_DERIVATE)
5238 : 505 : FCda1_dw_Vci_ei=((-latb*(latb*FCw_Vci_ei)/(1.0+(latb*FCw))/(1.0+(latb*FCw)))-(-latl*(latl*FCw_Vci_ei)/(1.0+(latl*FCw))/(1.0+(latl*FCw))));
5239 : 505 : FCda1_dw_Vtnode_GND=((-latb*(latb*FCw_Vtnode_GND)/(1.0+(latb*FCw))/(1.0+(latb*FCw)))-(-latl*(latl*FCw_Vtnode_GND)/(1.0+(latl*FCw))/(1.0+(latl*FCw))));
5240 : 505 : FCda1_dw_Vbi_ei=((-latb*(latb*FCw_Vbi_ei)/(1.0+(latb*FCw))/(1.0+(latb*FCw)))-(-latl*(latl*FCw_Vbi_ei)/(1.0+(latl*FCw))/(1.0+(latl*FCw))));
5241 : 505 : FCda1_dw_Vbi_ci=((-latb*(latb*FCw_Vbi_ci)/(1.0+(latb*FCw))/(1.0+(latb*FCw)))-(-latl*(latl*FCw_Vbi_ci)/(1.0+(latl*FCw))/(1.0+(latl*FCw))));
5242 : : #endif
5243 : 505 : FCda1_dw=((latb/(1.0+(latb*FCw)))-(latl/(1.0+(latl*FCw))));
5244 : : }
5245 : : else
5246 : : {
5247 : : #if defined(_DERIVATE)
5248 : 0 : FCf1_Vci_ei=(-FCa_ck_Vci_ei);
5249 : 0 : FCf1_Vtnode_GND=(-FCa_ck_Vtnode_GND);
5250 : 0 : FCf1_Vbi_ei=(-FCa_ck_Vbi_ei);
5251 : 0 : FCf1_Vbi_ci=(-FCa_ck_Vbi_ci);
5252 : : #endif
5253 : 0 : FCf1=(1.0-FCa_ck);
5254 : : #if defined(_DERIVATE)
5255 : 0 : FCd_a_Vci_ei=(-(-FCf1_Vci_ei*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
5256 : 0 : FCd_a_Vtnode_GND=(-(-FCf1_Vtnode_GND*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
5257 : 0 : FCd_a_Vbi_ei=(-(-FCf1_Vbi_ei*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
5258 : 0 : FCd_a_Vbi_ci=(-(-FCf1_Vbi_ci*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
5259 : : #endif
5260 : 0 : FCd_a=(1.0/(1.0-(FCf1*latb)));
5261 : : #if defined(_DERIVATE)
5262 : 0 : FCw_Vci_ei=((FCf1_Vci_ei*FCd_a)+(FCf1*FCd_a_Vci_ei));
5263 : 0 : FCw_Vtnode_GND=((FCf1_Vtnode_GND*FCd_a)+(FCf1*FCd_a_Vtnode_GND));
5264 : 0 : FCw_Vbi_ei=((FCf1_Vbi_ei*FCd_a)+(FCf1*FCd_a_Vbi_ei));
5265 : 0 : FCw_Vbi_ci=((FCf1_Vbi_ci*FCd_a)+(FCf1*FCd_a_Vbi_ci));
5266 : : #endif
5267 : 0 : FCw=(FCf1*FCd_a);
5268 : : #if defined(_DERIVATE)
5269 : 0 : FCa_Vci_ei=((FCz_Vci_ei*FCw)+(FCz*FCw_Vci_ei));
5270 : 0 : FCa_Vtnode_GND=((FCz_Vtnode_GND*FCw)+(FCz*FCw_Vtnode_GND));
5271 : 0 : FCa_Vbi_ei=((FCz_Vbi_ei*FCw)+(FCz*FCw_Vbi_ei));
5272 : 0 : FCa_Vbi_ci=((FCz_Vbi_ci*FCw)+(FCz*FCw_Vbi_ci));
5273 : : #endif
5274 : 0 : FCa=(FCz*FCw);
5275 : : #if defined(_DERIVATE)
5276 : 0 : FCdw_daick_Vci_ei=((((-1.0)*FCd_a_Vci_ei)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vci_ei));
5277 : 0 : FCdw_daick_Vtnode_GND=((((-1.0)*FCd_a_Vtnode_GND)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vtnode_GND));
5278 : 0 : FCdw_daick_Vbi_ei=((((-1.0)*FCd_a_Vbi_ei)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vbi_ei));
5279 : 0 : FCdw_daick_Vbi_ci=((((-1.0)*FCd_a_Vbi_ci)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vbi_ci));
5280 : : #endif
5281 : 0 : FCdw_daick=(((-1.0)*FCd_a)*FCd_a);
5282 : : #if defined(_DERIVATE)
5283 : 0 : FClnb_Vci_ei=(latb*FCw_Vci_ei);
5284 : 0 : FClnb_Vtnode_GND=(latb*FCw_Vtnode_GND);
5285 : 0 : FClnb_Vbi_ei=(latb*FCw_Vbi_ei);
5286 : 0 : FClnb_Vbi_ci=(latb*FCw_Vbi_ci);
5287 : : #endif
5288 : 0 : FClnb=(latb*FCw);
5289 : : #if defined(_DERIVATE)
5290 : 0 : FClnl_Vci_ei=(latl*FCw_Vci_ei);
5291 : 0 : FClnl_Vtnode_GND=(latl*FCw_Vtnode_GND);
5292 : 0 : FClnl_Vbi_ei=(latl*FCw_Vbi_ei);
5293 : 0 : FClnl_Vbi_ci=(latl*FCw_Vbi_ci);
5294 : : #endif
5295 : 0 : FClnl=(latl*FCw);
5296 : : #if defined(_DERIVATE)
5297 : 0 : FCa1_Vci_ei=((FCz_Vci_ei*FCw)+(FCz*FCw_Vci_ei));
5298 : 0 : FCa1_Vtnode_GND=((FCz_Vtnode_GND*FCw)+(FCz*FCw_Vtnode_GND));
5299 : 0 : FCa1_Vbi_ei=((FCz_Vbi_ei*FCw)+(FCz*FCw_Vbi_ei));
5300 : 0 : FCa1_Vbi_ci=((FCz_Vbi_ci*FCw)+(FCz*FCw_Vbi_ci));
5301 : : #endif
5302 : 0 : FCa1=(FCz*FCw);
5303 : : #if defined(_DERIVATE)
5304 : 0 : FCda1_dw_Vci_ei=FCz_Vci_ei;
5305 : 0 : FCda1_dw_Vtnode_GND=FCz_Vtnode_GND;
5306 : 0 : FCda1_dw_Vbi_ei=FCz_Vbi_ei;
5307 : 0 : FCda1_dw_Vbi_ci=FCz_Vbi_ci;
5308 : : #endif
5309 : 0 : FCda1_dw=FCz;
5310 : : }
5311 : : #if defined(_DERIVATE)
5312 : 505 : FCf_CT_Vci_ei=(-2.0*FCz_Vci_ei/FCz/FCz);
5313 : 505 : FCf_CT_Vbi_ei=(-2.0*FCz_Vbi_ei/FCz/FCz);
5314 : 505 : FCf_CT_Vbi_ci=(-2.0*FCz_Vbi_ci/FCz/FCz);
5315 : 505 : FCf_CT_Vtnode_GND=(-2.0*FCz_Vtnode_GND/FCz/FCz);
5316 : : #endif
5317 : 505 : FCf_CT=(2.0/FCz);
5318 : : #if defined(_DERIVATE)
5319 : 505 : FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
5320 : 505 : FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
5321 : 505 : FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
5322 : 505 : FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
5323 : : #endif
5324 : 505 : FCw2=(FCw*FCw);
5325 : : #if defined(_DERIVATE)
5326 : 505 : FCf1_Vci_ei=(((((((latb*latl)*FCw_Vci_ei)*FCw2)+(((latb*latl)*FCw)*FCw2_Vci_ei))/3.0)+(((latb+latl)*FCw2_Vci_ei)/2.0))+FCw_Vci_ei);
5327 : 505 : FCf1_Vtnode_GND=(((((((latb*latl)*FCw_Vtnode_GND)*FCw2)+(((latb*latl)*FCw)*FCw2_Vtnode_GND))/3.0)+(((latb+latl)*FCw2_Vtnode_GND)/2.0))+FCw_Vtnode_GND);
5328 : 505 : FCf1_Vbi_ei=(((((((latb*latl)*FCw_Vbi_ei)*FCw2)+(((latb*latl)*FCw)*FCw2_Vbi_ei))/3.0)+(((latb+latl)*FCw2_Vbi_ei)/2.0))+FCw_Vbi_ei);
5329 : 505 : FCf1_Vbi_ci=(((((((latb*latl)*FCw_Vbi_ci)*FCw2)+(((latb*latl)*FCw)*FCw2_Vbi_ci))/3.0)+(((latb+latl)*FCw2_Vbi_ci)/2.0))+FCw_Vbi_ci);
5330 : : #endif
5331 : 505 : FCf1=((((((latb*latl)*FCw)*FCw2)/3.0)+(((latb+latl)*FCw2)/2.0))+FCw);
5332 : : #if defined(_DERIVATE)
5333 : 505 : FCdf1_dw_Vci_ei=(((latb*latl)*FCw2_Vci_ei)+((latb+latl)*FCw_Vci_ei));
5334 : 505 : FCdf1_dw_Vtnode_GND=(((latb*latl)*FCw2_Vtnode_GND)+((latb+latl)*FCw_Vtnode_GND));
5335 : 505 : FCdf1_dw_Vbi_ei=(((latb*latl)*FCw2_Vbi_ei)+((latb+latl)*FCw_Vbi_ei));
5336 : 505 : FCdf1_dw_Vbi_ci=(((latb*latl)*FCw2_Vbi_ci)+((latb+latl)*FCw_Vbi_ci));
5337 : : #endif
5338 : 505 : FCdf1_dw=((((latb*latl)*FCw2)+((latb+latl)*FCw))+1.0);
5339 : : #if defined(_DERIVATE)
5340 : 505 : z_Vci_ei=(latb*FCw_Vci_ei);
5341 : 505 : z_Vtnode_GND=(latb*FCw_Vtnode_GND);
5342 : 505 : z_Vbi_ei=(latb*FCw_Vbi_ei);
5343 : 505 : z_Vbi_ci=(latb*FCw_Vbi_ci);
5344 : : #endif
5345 : 505 : z=(latb*FCw);
5346 [ + - ]: 505 : if
5347 : : (z>1.0e-6)
5348 : : {
5349 : : #if defined(_DERIVATE)
5350 : 505 : x_Vci_ei=z_Vci_ei;
5351 : 505 : x_Vtnode_GND=z_Vtnode_GND;
5352 : 505 : x_Vbi_ei=z_Vbi_ei;
5353 : 505 : x_Vbi_ci=z_Vbi_ci;
5354 : : #endif
5355 : 505 : x=(1.0+z);
5356 : : #if defined(_DERIVATE)
5357 : 505 : a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
5358 : 505 : a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
5359 : 505 : a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
5360 : 505 : a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
5361 : : #endif
5362 : 505 : a=(x*x);
5363 : : #if defined(_DERIVATE)
5364 : 505 : a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vci_ei))));
5365 : 505 : a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vbi_ei))));
5366 : 505 : a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vbi_ci))));
5367 : 505 : a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vtnode_GND))));
5368 : : #endif
5369 : 505 : a2=(0.250*((a*((2.0*FClnb)-1.0))+1.0));
5370 : : #if defined(_DERIVATE)
5371 : 505 : a3_Vci_ei=(((((a_Vci_ei*x)+(a*x_Vci_ei))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vci_ei)))/9.0);
5372 : 505 : a3_Vbi_ei=(((((a_Vbi_ei*x)+(a*x_Vbi_ei))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vbi_ei)))/9.0);
5373 : 505 : a3_Vbi_ci=(((((a_Vbi_ci*x)+(a*x_Vbi_ci))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vbi_ci)))/9.0);
5374 : 505 : a3_Vtnode_GND=(((((a_Vtnode_GND*x)+(a*x_Vtnode_GND))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vtnode_GND)))/9.0);
5375 : : #endif
5376 : 505 : a3=((((a*x)*((3.0*FClnb)-1.0))+1.0)/9.0);
5377 : 505 : r=(latl/latb);
5378 : : #if defined(_DERIVATE)
5379 : 505 : FCf2_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latb);
5380 : 505 : FCf2_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latb);
5381 : 505 : FCf2_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latb);
5382 : 505 : FCf2_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latb);
5383 : : #endif
5384 : 505 : FCf2=((((1.0-r)*a2)+(r*a3))/latb);
5385 : : #if defined(_DERIVATE)
5386 : 505 : FCdf2_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vci_ei));
5387 : 505 : FCdf2_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vtnode_GND));
5388 : 505 : FCdf2_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vbi_ei));
5389 : 505 : FCdf2_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vbi_ci));
5390 : : #endif
5391 : 505 : FCdf2_dw=((((1.0-r)*x)+(r*a))*FClnb);
5392 : : }
5393 : : else
5394 : : {
5395 : : #if defined(_DERIVATE)
5396 : 0 : a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
5397 : 0 : a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
5398 : 0 : a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
5399 : 0 : a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
5400 : : #endif
5401 : 0 : a=(z*z);
5402 : : #if defined(_DERIVATE)
5403 : 0 : a2_Vci_ei=((z_Vci_ei-(0.5*a_Vci_ei))+((z_Vci_ei*a)+(z*a_Vci_ei)));
5404 : 0 : a2_Vbi_ei=((z_Vbi_ei-(0.5*a_Vbi_ei))+((z_Vbi_ei*a)+(z*a_Vbi_ei)));
5405 : 0 : a2_Vbi_ci=((z_Vbi_ci-(0.5*a_Vbi_ci))+((z_Vbi_ci*a)+(z*a_Vbi_ci)));
5406 : 0 : a2_Vtnode_GND=((z_Vtnode_GND-(0.5*a_Vtnode_GND))+((z_Vtnode_GND*a)+(z*a_Vtnode_GND)));
5407 : : #endif
5408 : 0 : a2=(((3.0+z)-(0.5*a))+(z*a));
5409 : : #if defined(_DERIVATE)
5410 : 0 : a3_Vci_ei=((((-2.0)*z_Vci_ei)+(1.5*a_Vci_ei))+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0));
5411 : 0 : a3_Vbi_ei=((((-2.0)*z_Vbi_ei)+(1.5*a_Vbi_ei))+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0));
5412 : 0 : a3_Vbi_ci=((((-2.0)*z_Vbi_ci)+(1.5*a_Vbi_ci))+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0));
5413 : 0 : a3_Vtnode_GND=((((-2.0)*z_Vtnode_GND)+(1.5*a_Vtnode_GND))+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0));
5414 : : #endif
5415 : 0 : a3=((((-2.0)*z)+(1.5*a))+(((2.0*a)*a)/3.0));
5416 : : #if defined(_DERIVATE)
5417 : 0 : FCf2_Vci_ei=(((((((latb*a2_Vci_ei)+(latl*a3_Vci_ei))*FCw)+(((latb*a2)+(latl*a3))*FCw_Vci_ei))*FCw)+((((latb*a2)+(latl*a3))*FCw)*FCw_Vci_ei))/6.0);
5418 : 0 : FCf2_Vbi_ei=(((((((latb*a2_Vbi_ei)+(latl*a3_Vbi_ei))*FCw)+(((latb*a2)+(latl*a3))*FCw_Vbi_ei))*FCw)+((((latb*a2)+(latl*a3))*FCw)*FCw_Vbi_ei))/6.0);
5419 : 0 : FCf2_Vbi_ci=(((((((latb*a2_Vbi_ci)+(latl*a3_Vbi_ci))*FCw)+(((latb*a2)+(latl*a3))*FCw_Vbi_ci))*FCw)+((((latb*a2)+(latl*a3))*FCw)*FCw_Vbi_ci))/6.0);
5420 : 0 : FCf2_Vtnode_GND=(((((((latb*a2_Vtnode_GND)+(latl*a3_Vtnode_GND))*FCw)+(((latb*a2)+(latl*a3))*FCw_Vtnode_GND))*FCw)+((((latb*a2)+(latl*a3))*FCw)*FCw_Vtnode_GND))/6.0);
5421 : : #endif
5422 : 0 : FCf2=(((((latb*a2)+(latl*a3))*FCw)*FCw)/6.0);
5423 : : #if defined(_DERIVATE)
5424 : 0 : FCdf2_dw_Vci_ei=((((z_Vci_ei+(0.5*a_Vci_ei))-(((a_Vci_ei*z)+(a*z_Vci_ei))/3.0))+((((5.0*a_Vci_ei)*a)+((5.0*a)*a_Vci_ei))/6.0))+(((latl*FCw_Vci_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vci_ei-z_Vci_ei)+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0)))));
5425 : 0 : FCdf2_dw_Vtnode_GND=((((z_Vtnode_GND+(0.5*a_Vtnode_GND))-(((a_Vtnode_GND*z)+(a*z_Vtnode_GND))/3.0))+((((5.0*a_Vtnode_GND)*a)+((5.0*a)*a_Vtnode_GND))/6.0))+(((latl*FCw_Vtnode_GND)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vtnode_GND-z_Vtnode_GND)+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0)))));
5426 : 0 : FCdf2_dw_Vbi_ei=((((z_Vbi_ei+(0.5*a_Vbi_ei))-(((a_Vbi_ei*z)+(a*z_Vbi_ei))/3.0))+((((5.0*a_Vbi_ei)*a)+((5.0*a)*a_Vbi_ei))/6.0))+(((latl*FCw_Vbi_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vbi_ei-z_Vbi_ei)+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0)))));
5427 : 0 : FCdf2_dw_Vbi_ci=((((z_Vbi_ci+(0.5*a_Vbi_ci))-(((a_Vbi_ci*z)+(a*z_Vbi_ci))/3.0))+((((5.0*a_Vbi_ci)*a)+((5.0*a)*a_Vbi_ci))/6.0))+(((latl*FCw_Vbi_ci)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vbi_ci-z_Vbi_ci)+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0)))));
5428 : : #endif
5429 : 0 : FCdf2_dw=((((z+(0.5*a))-((a*z)/3.0))+(((5.0*a)*a)/6.0))+((latl*FCw)*((a-z)+(((2.0*a)*a)/3.0))));
5430 : : }
5431 : : #if defined(_DERIVATE)
5432 : 505 : z_Vci_ei=(latl*FCw_Vci_ei);
5433 : 505 : z_Vtnode_GND=(latl*FCw_Vtnode_GND);
5434 : 505 : z_Vbi_ei=(latl*FCw_Vbi_ei);
5435 : 505 : z_Vbi_ci=(latl*FCw_Vbi_ci);
5436 : : #endif
5437 : 505 : z=(latl*FCw);
5438 [ + - ]: 505 : if
5439 : : (z>1.0e-6)
5440 : : {
5441 : : #if defined(_DERIVATE)
5442 : 505 : x_Vci_ei=z_Vci_ei;
5443 : 505 : x_Vtnode_GND=z_Vtnode_GND;
5444 : 505 : x_Vbi_ei=z_Vbi_ei;
5445 : 505 : x_Vbi_ci=z_Vbi_ci;
5446 : : #endif
5447 : 505 : x=(1.0+z);
5448 : : #if defined(_DERIVATE)
5449 : 505 : a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
5450 : 505 : a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
5451 : 505 : a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
5452 : 505 : a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
5453 : : #endif
5454 : 505 : a=(x*x);
5455 : : #if defined(_DERIVATE)
5456 : 505 : a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vci_ei))));
5457 : 505 : a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vbi_ei))));
5458 : 505 : a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vbi_ci))));
5459 : 505 : a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vtnode_GND))));
5460 : : #endif
5461 : 505 : a2=(0.250*((a*((2.0*FClnl)-1.0))+1.0));
5462 : : #if defined(_DERIVATE)
5463 : 505 : a3_Vci_ei=(((((a_Vci_ei*x)+(a*x_Vci_ei))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vci_ei)))/9.0);
5464 : 505 : a3_Vbi_ei=(((((a_Vbi_ei*x)+(a*x_Vbi_ei))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vbi_ei)))/9.0);
5465 : 505 : a3_Vbi_ci=(((((a_Vbi_ci*x)+(a*x_Vbi_ci))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vbi_ci)))/9.0);
5466 : 505 : a3_Vtnode_GND=(((((a_Vtnode_GND*x)+(a*x_Vtnode_GND))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vtnode_GND)))/9.0);
5467 : : #endif
5468 : 505 : a3=((((a*x)*((3.0*FClnl)-1.0))+1.0)/9.0);
5469 : 505 : r=(latb/latl);
5470 : : #if defined(_DERIVATE)
5471 : 505 : FCf3_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latl);
5472 : 505 : FCf3_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latl);
5473 : 505 : FCf3_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latl);
5474 : 505 : FCf3_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latl);
5475 : : #endif
5476 : 505 : FCf3=((((1.0-r)*a2)+(r*a3))/latl);
5477 : : #if defined(_DERIVATE)
5478 : 505 : FCdf3_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vci_ei));
5479 : 505 : FCdf3_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vtnode_GND));
5480 : 505 : FCdf3_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vbi_ei));
5481 : 505 : FCdf3_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vbi_ci));
5482 : : #endif
5483 : 505 : FCdf3_dw=((((1.0-r)*x)+(r*a))*FClnl);
5484 : : }
5485 : : else
5486 : : {
5487 : : #if defined(_DERIVATE)
5488 : 0 : a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
5489 : 0 : a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
5490 : 0 : a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
5491 : 0 : a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
5492 : : #endif
5493 : 0 : a=(z*z);
5494 : : #if defined(_DERIVATE)
5495 : 0 : a2_Vci_ei=((z_Vci_ei-(0.5*a_Vci_ei))+((z_Vci_ei*a)+(z*a_Vci_ei)));
5496 : 0 : a2_Vbi_ei=((z_Vbi_ei-(0.5*a_Vbi_ei))+((z_Vbi_ei*a)+(z*a_Vbi_ei)));
5497 : 0 : a2_Vbi_ci=((z_Vbi_ci-(0.5*a_Vbi_ci))+((z_Vbi_ci*a)+(z*a_Vbi_ci)));
5498 : 0 : a2_Vtnode_GND=((z_Vtnode_GND-(0.5*a_Vtnode_GND))+((z_Vtnode_GND*a)+(z*a_Vtnode_GND)));
5499 : : #endif
5500 : 0 : a2=(((3.0+z)-(0.5*a))+(z*a));
5501 : : #if defined(_DERIVATE)
5502 : 0 : a3_Vci_ei=((((-2.0)*z_Vci_ei)+(1.5*a_Vci_ei))+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0));
5503 : 0 : a3_Vbi_ei=((((-2.0)*z_Vbi_ei)+(1.5*a_Vbi_ei))+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0));
5504 : 0 : a3_Vbi_ci=((((-2.0)*z_Vbi_ci)+(1.5*a_Vbi_ci))+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0));
5505 : 0 : a3_Vtnode_GND=((((-2.0)*z_Vtnode_GND)+(1.5*a_Vtnode_GND))+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0));
5506 : : #endif
5507 : 0 : a3=((((-2.0)*z)+(1.5*a))+(((2.0*a)*a)/3.0));
5508 : : #if defined(_DERIVATE)
5509 : 0 : FCf3_Vci_ei=(((((((latl*a2_Vci_ei)+(latb*a3_Vci_ei))*FCw)+(((latl*a2)+(latb*a3))*FCw_Vci_ei))*FCw)+((((latl*a2)+(latb*a3))*FCw)*FCw_Vci_ei))/6.0);
5510 : 0 : FCf3_Vbi_ei=(((((((latl*a2_Vbi_ei)+(latb*a3_Vbi_ei))*FCw)+(((latl*a2)+(latb*a3))*FCw_Vbi_ei))*FCw)+((((latl*a2)+(latb*a3))*FCw)*FCw_Vbi_ei))/6.0);
5511 : 0 : FCf3_Vbi_ci=(((((((latl*a2_Vbi_ci)+(latb*a3_Vbi_ci))*FCw)+(((latl*a2)+(latb*a3))*FCw_Vbi_ci))*FCw)+((((latl*a2)+(latb*a3))*FCw)*FCw_Vbi_ci))/6.0);
5512 : 0 : FCf3_Vtnode_GND=(((((((latl*a2_Vtnode_GND)+(latb*a3_Vtnode_GND))*FCw)+(((latl*a2)+(latb*a3))*FCw_Vtnode_GND))*FCw)+((((latl*a2)+(latb*a3))*FCw)*FCw_Vtnode_GND))/6.0);
5513 : : #endif
5514 : 0 : FCf3=(((((latl*a2)+(latb*a3))*FCw)*FCw)/6.0);
5515 : : #if defined(_DERIVATE)
5516 : 0 : FCdf3_dw_Vci_ei=((((z_Vci_ei+(0.5*a_Vci_ei))-(((a_Vci_ei*z)+(a*z_Vci_ei))/3.0))+((((5.0*a_Vci_ei)*a)+((5.0*a)*a_Vci_ei))/6.0))+(((latb*FCw_Vci_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vci_ei-z_Vci_ei)+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0)))));
5517 : 0 : FCdf3_dw_Vtnode_GND=((((z_Vtnode_GND+(0.5*a_Vtnode_GND))-(((a_Vtnode_GND*z)+(a*z_Vtnode_GND))/3.0))+((((5.0*a_Vtnode_GND)*a)+((5.0*a)*a_Vtnode_GND))/6.0))+(((latb*FCw_Vtnode_GND)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vtnode_GND-z_Vtnode_GND)+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0)))));
5518 : 0 : FCdf3_dw_Vbi_ei=((((z_Vbi_ei+(0.5*a_Vbi_ei))-(((a_Vbi_ei*z)+(a*z_Vbi_ei))/3.0))+((((5.0*a_Vbi_ei)*a)+((5.0*a)*a_Vbi_ei))/6.0))+(((latb*FCw_Vbi_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vbi_ei-z_Vbi_ei)+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0)))));
5519 : 0 : FCdf3_dw_Vbi_ci=((((z_Vbi_ci+(0.5*a_Vbi_ci))-(((a_Vbi_ci*z)+(a*z_Vbi_ci))/3.0))+((((5.0*a_Vbi_ci)*a)+((5.0*a)*a_Vbi_ci))/6.0))+(((latb*FCw_Vbi_ci)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vbi_ci-z_Vbi_ci)+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0)))));
5520 : : #endif
5521 : 0 : FCdf3_dw=((((z+(0.5*a))-((a*z)/3.0))+(((5.0*a)*a)/6.0))+((latb*FCw)*((a-z)+(((2.0*a)*a)/3.0))));
5522 : : }
5523 : : #if defined(_DERIVATE)
5524 : 505 : FCf_ci_Vci_ei=((FCf_CT_Vci_ei*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vci_ei*FCf1)+(FCa*FCf1_Vci_ei))-FCf2_Vci_ei)+FCf3_Vci_ei)));
5525 : 505 : FCf_ci_Vtnode_GND=((FCf_CT_Vtnode_GND*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vtnode_GND*FCf1)+(FCa*FCf1_Vtnode_GND))-FCf2_Vtnode_GND)+FCf3_Vtnode_GND)));
5526 : 505 : FCf_ci_Vbi_ei=((FCf_CT_Vbi_ei*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vbi_ei*FCf1)+(FCa*FCf1_Vbi_ei))-FCf2_Vbi_ei)+FCf3_Vbi_ei)));
5527 : 505 : FCf_ci_Vbi_ci=((FCf_CT_Vbi_ci*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vbi_ci*FCf1)+(FCa*FCf1_Vbi_ci))-FCf2_Vbi_ci)+FCf3_Vbi_ci)));
5528 : : #endif
5529 : 505 : FCf_ci=(FCf_CT*(((FCa*FCf1)-FCf2)+FCf3));
5530 : : #if defined(_DERIVATE)
5531 : 505 : FCdfc_dw_Vci_ei=((FCf_CT_Vci_ei*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw))+(FCf_CT*(((((FCa1_Vci_ei*FCdf1_dw)+(FCa1*FCdf1_dw_Vci_ei))+((FCda1_dw_Vci_ei*FCf1)+(FCda1_dw*FCf1_Vci_ei)))-FCdf2_dw_Vci_ei)+FCdf3_dw_Vci_ei)));
5532 : 505 : FCdfc_dw_Vtnode_GND=((FCf_CT_Vtnode_GND*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw))+(FCf_CT*(((((FCa1_Vtnode_GND*FCdf1_dw)+(FCa1*FCdf1_dw_Vtnode_GND))+((FCda1_dw_Vtnode_GND*FCf1)+(FCda1_dw*FCf1_Vtnode_GND)))-FCdf2_dw_Vtnode_GND)+FCdf3_dw_Vtnode_GND)));
5533 : 505 : FCdfc_dw_Vbi_ei=((FCf_CT_Vbi_ei*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw))+(FCf_CT*(((((FCa1_Vbi_ei*FCdf1_dw)+(FCa1*FCdf1_dw_Vbi_ei))+((FCda1_dw_Vbi_ei*FCf1)+(FCda1_dw*FCf1_Vbi_ei)))-FCdf2_dw_Vbi_ei)+FCdf3_dw_Vbi_ei)));
5534 : 505 : FCdfc_dw_Vbi_ci=((FCf_CT_Vbi_ci*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw))+(FCf_CT*(((((FCa1_Vbi_ci*FCdf1_dw)+(FCa1*FCdf1_dw_Vbi_ci))+((FCda1_dw_Vbi_ci*FCf1)+(FCda1_dw*FCf1_Vbi_ci)))-FCdf2_dw_Vbi_ci)+FCdf3_dw_Vbi_ci)));
5535 : : #endif
5536 : 505 : FCdfc_dw=(FCf_CT*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw));
5537 : : #if defined(_DERIVATE)
5538 : 505 : FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
5539 : 505 : FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
5540 : 505 : FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
5541 : 505 : FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
5542 : : #endif
5543 : 505 : FCdw_ditf=(FCdw_daick*FCdaick_ditf);
5544 : : #if defined(_DERIVATE)
5545 : 505 : FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
5546 : 505 : FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
5547 : 505 : FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
5548 : 505 : FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
5549 : : #endif
5550 : 505 : FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
5551 : : #if defined(_DERIVATE)
5552 : 505 : a_Vci_ei=(latb*FCw_Vci_ei);
5553 : 505 : a_Vbi_ei=(latb*FCw_Vbi_ei);
5554 : 505 : a_Vbi_ci=(latb*FCw_Vbi_ci);
5555 : 505 : a_Vtnode_GND=(latb*FCw_Vtnode_GND);
5556 : : #endif
5557 : 505 : a=(latb*FCw);
5558 [ + - ]: 505 : if
5559 : : (a>1.0e-6)
5560 : : {
5561 : : #if defined(_DERIVATE)
5562 : 505 : FCf2_Vci_ei=((a_Vci_ei-FClnb_Vci_ei)/latb);
5563 : 505 : FCf2_Vbi_ei=((a_Vbi_ei-FClnb_Vbi_ei)/latb);
5564 : 505 : FCf2_Vbi_ci=((a_Vbi_ci-FClnb_Vbi_ci)/latb);
5565 : 505 : FCf2_Vtnode_GND=((a_Vtnode_GND-FClnb_Vtnode_GND)/latb);
5566 : : #endif
5567 : 505 : FCf2=((a-FClnb)/latb);
5568 : : #if defined(_DERIVATE)
5569 : 505 : FCdf2_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
5570 : 505 : FCdf2_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
5571 : 505 : FCdf2_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
5572 : 505 : FCdf2_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
5573 : : #endif
5574 : 505 : FCdf2_dw=(a/(1.0+a));
5575 : : }
5576 : : else
5577 : : {
5578 : : #if defined(_DERIVATE)
5579 : 0 : FCf2_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
5580 : 0 : FCf2_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
5581 : 0 : FCf2_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
5582 : 0 : FCf2_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
5583 : : #endif
5584 : 0 : FCf2=((0.5*a)*FCw);
5585 : : #if defined(_DERIVATE)
5586 : 0 : FCdf2_dw_Vci_ei=a_Vci_ei;
5587 : 0 : FCdf2_dw_Vtnode_GND=a_Vtnode_GND;
5588 : 0 : FCdf2_dw_Vbi_ei=a_Vbi_ei;
5589 : 0 : FCdf2_dw_Vbi_ci=a_Vbi_ci;
5590 : : #endif
5591 : 0 : FCdf2_dw=a;
5592 : : }
5593 : : #if defined(_DERIVATE)
5594 : 505 : a_Vci_ei=(latl*FCw_Vci_ei);
5595 : 505 : a_Vbi_ei=(latl*FCw_Vbi_ei);
5596 : 505 : a_Vbi_ci=(latl*FCw_Vbi_ci);
5597 : 505 : a_Vtnode_GND=(latl*FCw_Vtnode_GND);
5598 : : #endif
5599 : 505 : a=(latl*FCw);
5600 [ + - ]: 505 : if
5601 : : (a>1.0e-6)
5602 : : {
5603 : : #if defined(_DERIVATE)
5604 : 505 : FCf3_Vci_ei=((a_Vci_ei-FClnl_Vci_ei)/latl);
5605 : 505 : FCf3_Vbi_ei=((a_Vbi_ei-FClnl_Vbi_ei)/latl);
5606 : 505 : FCf3_Vbi_ci=((a_Vbi_ci-FClnl_Vbi_ci)/latl);
5607 : 505 : FCf3_Vtnode_GND=((a_Vtnode_GND-FClnl_Vtnode_GND)/latl);
5608 : : #endif
5609 : 505 : FCf3=((a-FClnl)/latl);
5610 : : #if defined(_DERIVATE)
5611 : 505 : FCdf3_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
5612 : 505 : FCdf3_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
5613 : 505 : FCdf3_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
5614 : 505 : FCdf3_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
5615 : : #endif
5616 : 505 : FCdf3_dw=(a/(1.0+a));
5617 : : }
5618 : : else
5619 : : {
5620 : : #if defined(_DERIVATE)
5621 : 0 : FCf3_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
5622 : 0 : FCf3_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
5623 : 0 : FCf3_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
5624 : 0 : FCf3_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
5625 : : #endif
5626 : 0 : FCf3=((0.5*a)*FCw);
5627 : : #if defined(_DERIVATE)
5628 : 0 : FCdf3_dw_Vci_ei=a_Vci_ei;
5629 : 0 : FCdf3_dw_Vtnode_GND=a_Vtnode_GND;
5630 : 0 : FCdf3_dw_Vbi_ei=a_Vbi_ei;
5631 : 0 : FCdf3_dw_Vbi_ci=a_Vbi_ci;
5632 : : #endif
5633 : 0 : FCdf3_dw=a;
5634 : : }
5635 : : #if defined(_DERIVATE)
5636 : 505 : FCf_CT_Vci_ei=((FCf_CT_Vci_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vci_ei-FCf3_Vci_ei)));
5637 : 505 : FCf_CT_Vbi_ei=((FCf_CT_Vbi_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ei-FCf3_Vbi_ei)));
5638 : 505 : FCf_CT_Vbi_ci=((FCf_CT_Vbi_ci*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ci-FCf3_Vbi_ci)));
5639 : 505 : FCf_CT_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCf2-FCf3))+(FCf_CT*(FCf2_Vtnode_GND-FCf3_Vtnode_GND)));
5640 : : #endif
5641 : 505 : FCf_CT=(FCf_CT*(FCf2-FCf3));
5642 : : #if defined(_DERIVATE)
5643 : 505 : FCdfCT_dw_Vci_ei=((FCf_CT_Vci_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vci_ei-FCdf3_dw_Vci_ei)));
5644 : 505 : FCdfCT_dw_Vbi_ei=((FCf_CT_Vbi_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ei-FCdf3_dw_Vbi_ei)));
5645 : 505 : FCdfCT_dw_Vbi_ci=((FCf_CT_Vbi_ci*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ci-FCdf3_dw_Vbi_ci)));
5646 : 505 : FCdfCT_dw_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vtnode_GND-FCdf3_dw_Vtnode_GND)));
5647 : : #endif
5648 : 505 : FCdfCT_dw=(FCf_CT*(FCdf2_dw-FCdf3_dw));
5649 : : #if defined(_DERIVATE)
5650 : 505 : FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
5651 : 505 : FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
5652 : 505 : FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
5653 : 505 : FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
5654 : : #endif
5655 : 505 : FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
5656 : : }
5657 : : else
5658 : : {
5659 [ # # ]: 0 : if
5660 : : (latb>0.01)
5661 : : {
5662 : : #if defined(_DERIVATE)
5663 : 0 : FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5664 : 0 : FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5665 : 0 : FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5666 : 0 : FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5667 : : #endif
5668 : 0 : FCd_a=(1.0/(1.0+(FCa_ck*latb)));
5669 : : #if defined(_DERIVATE)
5670 : 0 : FCw_Vci_ei=(((-FCa_ck_Vci_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vci_ei));
5671 : 0 : FCw_Vtnode_GND=(((-FCa_ck_Vtnode_GND)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vtnode_GND));
5672 : 0 : FCw_Vbi_ei=(((-FCa_ck_Vbi_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ei));
5673 : 0 : FCw_Vbi_ci=(((-FCa_ck_Vbi_ci)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ci));
5674 : : #endif
5675 : 0 : FCw=((1.0-FCa_ck)*FCd_a);
5676 : : #if defined(_DERIVATE)
5677 : 0 : FCdw_daick_Vci_ei=((((-(1.0+latb))*FCd_a_Vci_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vci_ei));
5678 : 0 : FCdw_daick_Vtnode_GND=((((-(1.0+latb))*FCd_a_Vtnode_GND)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vtnode_GND));
5679 : 0 : FCdw_daick_Vbi_ei=((((-(1.0+latb))*FCd_a_Vbi_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ei));
5680 : 0 : FCdw_daick_Vbi_ci=((((-(1.0+latb))*FCd_a_Vbi_ci)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ci));
5681 : : #endif
5682 : 0 : FCdw_daick=(((-(1.0+latb))*FCd_a)*FCd_a);
5683 : : }
5684 : : else
5685 : : {
5686 : : #if defined(_DERIVATE)
5687 : 0 : FCw_Vci_ei=((-FCa_ck_Vci_ei)-FCa_ck_Vci_ei*latb);
5688 : 0 : FCw_Vtnode_GND=((-FCa_ck_Vtnode_GND)-FCa_ck_Vtnode_GND*latb);
5689 : 0 : FCw_Vbi_ei=((-FCa_ck_Vbi_ei)-FCa_ck_Vbi_ei*latb);
5690 : 0 : FCw_Vbi_ci=((-FCa_ck_Vbi_ci)-FCa_ck_Vbi_ci*latb);
5691 : : #endif
5692 : 0 : FCw=((1.0-FCa_ck)-(FCa_ck*latb));
5693 : : #if defined(_DERIVATE)
5694 : 0 : FCdw_daick_Vci_ei=0.0;
5695 : 0 : FCdw_daick_Vtnode_GND=0.0;
5696 : 0 : FCdw_daick_Vbi_ei=0.0;
5697 : 0 : FCdw_daick_Vbi_ci=0.0;
5698 : : #endif
5699 : 0 : FCdw_daick=(-(1.0+latb));
5700 : : }
5701 : : #if defined(_DERIVATE)
5702 : 0 : FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
5703 : 0 : FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
5704 : 0 : FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
5705 : 0 : FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
5706 : : #endif
5707 : 0 : FCw2=(FCw*FCw);
5708 : : #if defined(_DERIVATE)
5709 : 0 : FCz_Vci_ei=(latb*FCw_Vci_ei);
5710 : 0 : FCz_Vtnode_GND=(latb*FCw_Vtnode_GND);
5711 : 0 : FCz_Vbi_ei=(latb*FCw_Vbi_ei);
5712 : 0 : FCz_Vbi_ci=(latb*FCw_Vbi_ci);
5713 : : #endif
5714 : 0 : FCz=(latb*FCw);
5715 : : #if defined(_DERIVATE)
5716 : 0 : FCz_1_Vci_ei=FCz_Vci_ei;
5717 : 0 : FCz_1_Vtnode_GND=FCz_Vtnode_GND;
5718 : 0 : FCz_1_Vbi_ei=FCz_Vbi_ei;
5719 : 0 : FCz_1_Vbi_ci=FCz_Vbi_ci;
5720 : : #endif
5721 : 0 : FCz_1=(1.0+FCz);
5722 : : #if defined(_DERIVATE)
5723 : 0 : FCd_f_Vci_ei=(-FCz_1_Vci_ei/FCz_1/FCz_1);
5724 : 0 : FCd_f_Vtnode_GND=(-FCz_1_Vtnode_GND/FCz_1/FCz_1);
5725 : 0 : FCd_f_Vbi_ei=(-FCz_1_Vbi_ei/FCz_1/FCz_1);
5726 : 0 : FCd_f_Vbi_ci=(-FCz_1_Vbi_ci/FCz_1/FCz_1);
5727 : : #endif
5728 : 0 : FCd_f=(1.0/FCz_1);
5729 : : #if defined(_DERIVATE)
5730 : 0 : FCf_ci_Vci_ei=((((FCw2_Vci_ei*(1.0+(FCz/3.0)))+(FCw2*(FCz_Vci_ei/3.0)))*FCd_f)+((FCw2*(1.0+(FCz/3.0)))*FCd_f_Vci_ei));
5731 : 0 : FCf_ci_Vtnode_GND=((((FCw2_Vtnode_GND*(1.0+(FCz/3.0)))+(FCw2*(FCz_Vtnode_GND/3.0)))*FCd_f)+((FCw2*(1.0+(FCz/3.0)))*FCd_f_Vtnode_GND));
5732 : 0 : FCf_ci_Vbi_ei=((((FCw2_Vbi_ei*(1.0+(FCz/3.0)))+(FCw2*(FCz_Vbi_ei/3.0)))*FCd_f)+((FCw2*(1.0+(FCz/3.0)))*FCd_f_Vbi_ei));
5733 : 0 : FCf_ci_Vbi_ci=((((FCw2_Vbi_ci*(1.0+(FCz/3.0)))+(FCw2*(FCz_Vbi_ci/3.0)))*FCd_f)+((FCw2*(1.0+(FCz/3.0)))*FCd_f_Vbi_ci));
5734 : : #endif
5735 : 0 : FCf_ci=((FCw2*(1.0+(FCz/3.0)))*FCd_f);
5736 : : #if defined(_DERIVATE)
5737 : 0 : FCdfc_dw_Vci_ei=(((((((2.0*FCw_Vci_ei)*(FCz_1+((FCz*FCz)/3.0)))+((2.0*FCw)*(FCz_1_Vci_ei+(((FCz_Vci_ei*FCz)+(FCz*FCz_Vci_ei))/3.0))))*FCd_f)+(((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f_Vci_ei))*FCd_f)+((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vci_ei));
5738 : 0 : FCdfc_dw_Vtnode_GND=(((((((2.0*FCw_Vtnode_GND)*(FCz_1+((FCz*FCz)/3.0)))+((2.0*FCw)*(FCz_1_Vtnode_GND+(((FCz_Vtnode_GND*FCz)+(FCz*FCz_Vtnode_GND))/3.0))))*FCd_f)+(((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f_Vtnode_GND))*FCd_f)+((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vtnode_GND));
5739 : 0 : FCdfc_dw_Vbi_ei=(((((((2.0*FCw_Vbi_ei)*(FCz_1+((FCz*FCz)/3.0)))+((2.0*FCw)*(FCz_1_Vbi_ei+(((FCz_Vbi_ei*FCz)+(FCz*FCz_Vbi_ei))/3.0))))*FCd_f)+(((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f_Vbi_ei))*FCd_f)+((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vbi_ei));
5740 : 0 : FCdfc_dw_Vbi_ci=(((((((2.0*FCw_Vbi_ci)*(FCz_1+((FCz*FCz)/3.0)))+((2.0*FCw)*(FCz_1_Vbi_ci+(((FCz_Vbi_ci*FCz)+(FCz*FCz_Vbi_ci))/3.0))))*FCd_f)+(((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f_Vbi_ci))*FCd_f)+((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vbi_ci));
5741 : : #endif
5742 : 0 : FCdfc_dw=((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
5743 : : #if defined(_DERIVATE)
5744 : 0 : FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
5745 : 0 : FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
5746 : 0 : FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
5747 : 0 : FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
5748 : : #endif
5749 : 0 : FCdw_ditf=(FCdw_daick*FCdaick_ditf);
5750 : : #if defined(_DERIVATE)
5751 : 0 : FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
5752 : 0 : FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
5753 : 0 : FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
5754 : 0 : FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
5755 : : #endif
5756 : 0 : FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
5757 [ # # ]: 0 : if
5758 : : (FCz>0.001)
5759 : : {
5760 : : {
5761 : 0 : double m00_logE(d00_logE0,FCz_1)
5762 : : #if defined(_DERIVATE)
5763 : 0 : double m10_logE(d10_logE0,d00_logE0,FCz_1)
5764 : : #endif
5765 : : #if defined(_DERIVATE)
5766 : 0 : FCf_CT_Vci_ei=(((2.0*(((FCz_1_Vci_ei*d00_logE0)+(FCz_1*FCz_1_Vci_ei*d10_logE0))-FCz_Vci_ei))*((latb*latb)*FCz_1)-(2.0*((FCz_1*d00_logE0)-FCz))*((latb*latb)*FCz_1_Vci_ei))/((latb*latb)*FCz_1)/((latb*latb)*FCz_1));
5767 : 0 : FCf_CT_Vbi_ei=(((2.0*(((FCz_1_Vbi_ei*d00_logE0)+(FCz_1*FCz_1_Vbi_ei*d10_logE0))-FCz_Vbi_ei))*((latb*latb)*FCz_1)-(2.0*((FCz_1*d00_logE0)-FCz))*((latb*latb)*FCz_1_Vbi_ei))/((latb*latb)*FCz_1)/((latb*latb)*FCz_1));
5768 : 0 : FCf_CT_Vbi_ci=(((2.0*(((FCz_1_Vbi_ci*d00_logE0)+(FCz_1*FCz_1_Vbi_ci*d10_logE0))-FCz_Vbi_ci))*((latb*latb)*FCz_1)-(2.0*((FCz_1*d00_logE0)-FCz))*((latb*latb)*FCz_1_Vbi_ci))/((latb*latb)*FCz_1)/((latb*latb)*FCz_1));
5769 : 0 : FCf_CT_Vtnode_GND=(((2.0*(((FCz_1_Vtnode_GND*d00_logE0)+(FCz_1*FCz_1_Vtnode_GND*d10_logE0))-FCz_Vtnode_GND))*((latb*latb)*FCz_1)-(2.0*((FCz_1*d00_logE0)-FCz))*((latb*latb)*FCz_1_Vtnode_GND))/((latb*latb)*FCz_1)/((latb*latb)*FCz_1));
5770 : : #endif
5771 : 0 : FCf_CT=((2.0*((FCz_1*d00_logE0)-FCz))/((latb*latb)*FCz_1));
5772 : : }
5773 : : #if defined(_DERIVATE)
5774 : 0 : FCdfCT_dw_Vci_ei=(((((2.0*FCw_Vci_ei)*FCd_f)+((2.0*FCw)*FCd_f_Vci_ei))*FCd_f)+(((2.0*FCw)*FCd_f)*FCd_f_Vci_ei));
5775 : 0 : FCdfCT_dw_Vbi_ei=(((((2.0*FCw_Vbi_ei)*FCd_f)+((2.0*FCw)*FCd_f_Vbi_ei))*FCd_f)+(((2.0*FCw)*FCd_f)*FCd_f_Vbi_ei));
5776 : 0 : FCdfCT_dw_Vbi_ci=(((((2.0*FCw_Vbi_ci)*FCd_f)+((2.0*FCw)*FCd_f_Vbi_ci))*FCd_f)+(((2.0*FCw)*FCd_f)*FCd_f_Vbi_ci));
5777 : 0 : FCdfCT_dw_Vtnode_GND=(((((2.0*FCw_Vtnode_GND)*FCd_f)+((2.0*FCw)*FCd_f_Vtnode_GND))*FCd_f)+(((2.0*FCw)*FCd_f)*FCd_f_Vtnode_GND));
5778 : : #endif
5779 : 0 : FCdfCT_dw=(((2.0*FCw)*FCd_f)*FCd_f);
5780 : : }
5781 : : else
5782 : : {
5783 : : #if defined(_DERIVATE)
5784 : 0 : FCf_CT_Vci_ei=((((FCw2_Vci_ei*(1.0-(FCz/3.0)))+(FCw2*(-(FCz_Vci_ei/3.0))))*FCd_f)+((FCw2*(1.0-(FCz/3.0)))*FCd_f_Vci_ei));
5785 : 0 : FCf_CT_Vbi_ei=((((FCw2_Vbi_ei*(1.0-(FCz/3.0)))+(FCw2*(-(FCz_Vbi_ei/3.0))))*FCd_f)+((FCw2*(1.0-(FCz/3.0)))*FCd_f_Vbi_ei));
5786 : 0 : FCf_CT_Vbi_ci=((((FCw2_Vbi_ci*(1.0-(FCz/3.0)))+(FCw2*(-(FCz_Vbi_ci/3.0))))*FCd_f)+((FCw2*(1.0-(FCz/3.0)))*FCd_f_Vbi_ci));
5787 : 0 : FCf_CT_Vtnode_GND=((((FCw2_Vtnode_GND*(1.0-(FCz/3.0)))+(FCw2*(-(FCz_Vtnode_GND/3.0))))*FCd_f)+((FCw2*(1.0-(FCz/3.0)))*FCd_f_Vtnode_GND));
5788 : : #endif
5789 : 0 : FCf_CT=((FCw2*(1.0-(FCz/3.0)))*FCd_f);
5790 : : #if defined(_DERIVATE)
5791 : 0 : FCdfCT_dw_Vci_ei=(((((((2.0*FCw_Vci_ei)*(1.0-((FCz*FCz)/3.0)))+((2.0*FCw)*(-(((FCz_Vci_ei*FCz)+(FCz*FCz_Vci_ei))/3.0))))*FCd_f)+(((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f_Vci_ei))*FCd_f)+((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vci_ei));
5792 : 0 : FCdfCT_dw_Vbi_ei=(((((((2.0*FCw_Vbi_ei)*(1.0-((FCz*FCz)/3.0)))+((2.0*FCw)*(-(((FCz_Vbi_ei*FCz)+(FCz*FCz_Vbi_ei))/3.0))))*FCd_f)+(((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f_Vbi_ei))*FCd_f)+((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vbi_ei));
5793 : 0 : FCdfCT_dw_Vbi_ci=(((((((2.0*FCw_Vbi_ci)*(1.0-((FCz*FCz)/3.0)))+((2.0*FCw)*(-(((FCz_Vbi_ci*FCz)+(FCz*FCz_Vbi_ci))/3.0))))*FCd_f)+(((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f_Vbi_ci))*FCd_f)+((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vbi_ci));
5794 : 0 : FCdfCT_dw_Vtnode_GND=(((((((2.0*FCw_Vtnode_GND)*(1.0-((FCz*FCz)/3.0)))+((2.0*FCw)*(-(((FCz_Vtnode_GND*FCz)+(FCz*FCz_Vtnode_GND))/3.0))))*FCd_f)+(((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f_Vtnode_GND))*FCd_f)+((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vtnode_GND));
5795 : : #endif
5796 : 0 : FCdfCT_dw=((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
5797 : : }
5798 : : #if defined(_DERIVATE)
5799 : 0 : FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
5800 : 0 : FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
5801 : 0 : FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
5802 : 0 : FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
5803 : : #endif
5804 : 0 : FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
5805 : : }
5806 : : #if defined(_DERIVATE)
5807 : 505 : FFQ_cT_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_CT)+(FFQ_fC*FCf_CT_Vtnode_GND));
5808 : 505 : FFQ_cT_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ei));
5809 : 505 : FFQ_cT_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ci));
5810 : 505 : FFQ_cT_Vci_ei=((FFQ_fC_Vci_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vci_ei));
5811 : : #endif
5812 : 505 : FFQ_cT=(FFQ_fC*FCf_CT);
5813 : : #if defined(_DERIVATE)
5814 : 505 : FFQ_fC_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_ci)+(FFQ_fC*FCf_ci_Vtnode_GND));
5815 : 505 : FFQ_fC_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ei));
5816 : 505 : FFQ_fC_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ci));
5817 : 505 : FFQ_fC_Vci_ei=((FFQ_fC_Vci_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vci_ei));
5818 : : #endif
5819 : 505 : FFQ_fC=(FFQ_fC*FCf_ci);
5820 : : #if defined(_DERIVATE)
5821 : 505 : FFT_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*(FCf_ci+(itf*FCdfc_ditf)))+(FFT_pcS*(FCf_ci_Vtnode_GND+((itf_Vtnode_GND*FCdfc_ditf)+(itf*FCdfc_ditf_Vtnode_GND)))));
5822 : 505 : FFT_fC_Vci_ei=(FFT_pcS*(FCf_ci_Vci_ei+((itf_Vci_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vci_ei))));
5823 : 505 : FFT_fC_Vbi_ei=(FFT_pcS*(FCf_ci_Vbi_ei+((itf_Vbi_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ei))));
5824 : 505 : FFT_fC_Vbi_ci=(FFT_pcS*(FCf_ci_Vbi_ci+((itf_Vbi_ci*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ci))));
5825 : : #endif
5826 : 505 : FFT_fC=(FFT_pcS*(FCf_ci+(itf*FCdfc_ditf)));
5827 : : #if defined(_DERIVATE)
5828 : 505 : FFT_cT_Vtnode_GND=((FFT_pcS_Vtnode_GND*(FCf_CT+(itf*FCdfCT_ditf)))+(FFT_pcS*(FCf_CT_Vtnode_GND+((itf_Vtnode_GND*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vtnode_GND)))));
5829 : 505 : FFT_cT_Vci_ei=(FFT_pcS*(FCf_CT_Vci_ei+((itf_Vci_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vci_ei))));
5830 : 505 : FFT_cT_Vbi_ei=(FFT_pcS*(FCf_CT_Vbi_ei+((itf_Vbi_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ei))));
5831 : 505 : FFT_cT_Vbi_ci=(FFT_pcS*(FCf_CT_Vbi_ci+((itf_Vbi_ci*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ci))));
5832 : : #endif
5833 : 505 : FFT_cT=(FFT_pcS*(FCf_CT+(itf*FCdfCT_ditf)));
5834 : : }
5835 : : #if defined(_DERIVATE)
5836 : 505 : Qf_Vci_ei=(Qf_Vci_ei+FFd_QfB_Vci_ei);
5837 : 505 : Qf_Vtnode_GND=(Qf_Vtnode_GND+FFd_QfB_Vtnode_GND);
5838 : 505 : Qf_Vbi_ci=(Qf_Vbi_ci+FFd_QfB_Vbi_ci);
5839 : 505 : Qf_Vbi_ei=(Qf_Vbi_ei+FFd_QfB_Vbi_ei);
5840 : : #endif
5841 : 505 : Qf=(Qf+FFd_QfB);
5842 : : #if defined(_DERIVATE)
5843 : 505 : Tf_Vci_ei=(Tf_Vci_ei+FFd_TfB_Vci_ei);
5844 : 505 : Tf_Vtnode_GND=(Tf_Vtnode_GND+FFd_TfB_Vtnode_GND);
5845 : 505 : Tf_Vbi_ci=(Tf_Vbi_ci+FFd_TfB_Vbi_ci);
5846 : 505 : Tf_Vbi_ei=(Tf_Vbi_ei+FFd_TfB_Vbi_ei);
5847 : : #endif
5848 : 505 : Tf=(Tf+FFd_TfB);
5849 : : #if defined(_DERIVATE)
5850 : 505 : Q_fT_Vci_ei=((Qf_Vci_ei+(hfe*FFd_QfE_Vci_ei))+(hfc*FFQ_cT_Vci_ei));
5851 : 505 : Q_fT_Vtnode_GND=((Qf_Vtnode_GND+(hfe*FFd_QfE_Vtnode_GND))+(hfc*FFQ_cT_Vtnode_GND));
5852 : 505 : Q_fT_Vbi_ci=((Qf_Vbi_ci+(hfe*FFd_QfE_Vbi_ci))+(hfc*FFQ_cT_Vbi_ci));
5853 : 505 : Q_fT_Vbi_ei=((Qf_Vbi_ei+(hfe*FFd_QfE_Vbi_ei))+(hfc*FFQ_cT_Vbi_ei));
5854 : : #endif
5855 : 505 : Q_fT=((Qf+(hfe*FFd_QfE))+(hfc*FFQ_cT));
5856 : : #if defined(_DERIVATE)
5857 : 505 : T_fT_Vci_ei=((Tf_Vci_ei+(hfe*FFd_TfE_Vci_ei))+(hfc*FFT_cT_Vci_ei));
5858 : 505 : T_fT_Vtnode_GND=((Tf_Vtnode_GND+(hfe*FFd_TfE_Vtnode_GND))+(hfc*FFT_cT_Vtnode_GND));
5859 : 505 : T_fT_Vbi_ci=((Tf_Vbi_ci+(hfe*FFd_TfE_Vbi_ci))+(hfc*FFT_cT_Vbi_ci));
5860 : 505 : T_fT_Vbi_ei=((Tf_Vbi_ei+(hfe*FFd_TfE_Vbi_ei))+(hfc*FFT_cT_Vbi_ei));
5861 : : #endif
5862 : 505 : T_fT=((Tf+(hfe*FFd_TfE))+(hfc*FFT_cT));
5863 : : #if defined(_DERIVATE)
5864 : 505 : Qf_Vci_ei=((Qf_Vci_ei+FFd_QfE_Vci_ei)+FFQ_fC_Vci_ei);
5865 : 505 : Qf_Vtnode_GND=((Qf_Vtnode_GND+FFd_QfE_Vtnode_GND)+FFQ_fC_Vtnode_GND);
5866 : 505 : Qf_Vbi_ci=((Qf_Vbi_ci+FFd_QfE_Vbi_ci)+FFQ_fC_Vbi_ci);
5867 : 505 : Qf_Vbi_ei=((Qf_Vbi_ei+FFd_QfE_Vbi_ei)+FFQ_fC_Vbi_ei);
5868 : : #endif
5869 : 505 : Qf=((Qf+FFd_QfE)+FFQ_fC);
5870 : : #if defined(_DERIVATE)
5871 : 505 : Tf_Vci_ei=((Tf_Vci_ei+FFd_TfE_Vci_ei)+FFT_fC_Vci_ei);
5872 : 505 : Tf_Vtnode_GND=((Tf_Vtnode_GND+FFd_TfE_Vtnode_GND)+FFT_fC_Vtnode_GND);
5873 : 505 : Tf_Vbi_ci=((Tf_Vbi_ci+FFd_TfE_Vbi_ci)+FFT_fC_Vbi_ci);
5874 : 505 : Tf_Vbi_ei=((Tf_Vbi_ei+FFd_TfE_Vbi_ei)+FFT_fC_Vbi_ei);
5875 : : #endif
5876 : 505 : Tf=((Tf+FFd_TfE)+FFT_fC);
5877 : : }
5878 : : #if defined(_DERIVATE)
5879 : 505 : Qr_Vci_ei=(Tr*itr_Vci_ei);
5880 : 505 : Qr_Vtnode_GND=(Tr*itr_Vtnode_GND);
5881 : 505 : Qr_Vbi_ci=(Tr*itr_Vbi_ci);
5882 : 505 : Qr_Vbi_ei=(Tr*itr_Vbi_ei);
5883 : : #endif
5884 : 505 : Qr=(Tr*itr);
5885 [ - + ]: 505 : if
5886 : : (Oich==0.0)
5887 : : {
5888 : : #if defined(_DERIVATE)
5889 : 0 : a_Vci_ei=(((((T_fT_Vci_ei*itf)+(T_fT*itf_Vci_ei))+Qr_Vci_ei)*Q_pT-((T_fT*itf)+Qr)*Q_pT_Vci_ei)/Q_pT/Q_pT);
5890 : 0 : a_Vbi_ei=(((((T_fT_Vbi_ei*itf)+(T_fT*itf_Vbi_ei))+Qr_Vbi_ei)*Q_pT-((T_fT*itf)+Qr)*Q_pT_Vbi_ei)/Q_pT/Q_pT);
5891 : 0 : a_Vbi_ci=(((((T_fT_Vbi_ci*itf)+(T_fT*itf_Vbi_ci))+Qr_Vbi_ci)*Q_pT-((T_fT*itf)+Qr)*Q_pT_Vbi_ci)/Q_pT/Q_pT);
5892 : 0 : a_Vtnode_GND=(((((T_fT_Vtnode_GND*itf)+(T_fT*itf_Vtnode_GND))+Qr_Vtnode_GND)*Q_pT-((T_fT*itf)+Qr)*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
5893 : : #endif
5894 : 0 : a=(1.0+(((T_fT*itf)+Qr)/Q_pT));
5895 : : }
5896 : : else
5897 : : {
5898 : : #if defined(_DERIVATE)
5899 : 505 : a_Vci_ei=(((((((T_fT_Vci_ei*I_Tf1)+(T_fT*I_Tf1_Vci_ei))*(1.0+(2.0*a_h)))+((T_fT*I_Tf1)*(2.0*a_h_Vci_ei)))+Qr_Vci_ei)*Q_pT-(((T_fT*I_Tf1)*(1.0+(2.0*a_h)))+Qr)*Q_pT_Vci_ei)/Q_pT/Q_pT);
5900 : 505 : a_Vbi_ei=(((((((T_fT_Vbi_ei*I_Tf1)+(T_fT*I_Tf1_Vbi_ei))*(1.0+(2.0*a_h)))+((T_fT*I_Tf1)*(2.0*a_h_Vbi_ei)))+Qr_Vbi_ei)*Q_pT-(((T_fT*I_Tf1)*(1.0+(2.0*a_h)))+Qr)*Q_pT_Vbi_ei)/Q_pT/Q_pT);
5901 : 505 : a_Vbi_ci=(((((((T_fT_Vbi_ci*I_Tf1)+(T_fT*I_Tf1_Vbi_ci))*(1.0+(2.0*a_h)))+((T_fT*I_Tf1)*(2.0*a_h_Vbi_ci)))+Qr_Vbi_ci)*Q_pT-(((T_fT*I_Tf1)*(1.0+(2.0*a_h)))+Qr)*Q_pT_Vbi_ci)/Q_pT/Q_pT);
5902 : 505 : a_Vtnode_GND=(((((((T_fT_Vtnode_GND*I_Tf1)+(T_fT*I_Tf1_Vtnode_GND))*(1.0+(2.0*a_h)))+((T_fT*I_Tf1)*(2.0*a_h_Vtnode_GND)))+Qr_Vtnode_GND)*Q_pT-(((T_fT*I_Tf1)*(1.0+(2.0*a_h)))+Qr)*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
5903 : : #endif
5904 : 505 : a=(1.0+((((T_fT*I_Tf1)*(1.0+(2.0*a_h)))+Qr)/Q_pT));
5905 : : }
5906 : : #if defined(_DERIVATE)
5907 : 505 : d_Q_Vtnode_GND=(((-(Q_pT_Vtnode_GND-((Q_0_Vtnode_GND+Q_fT_Vtnode_GND)+Qr_Vtnode_GND)))*a-(-(Q_pT-((Q_0+Q_fT)+Qr)))*a_Vtnode_GND)/a/a);
5908 : 505 : d_Q_Vbi_ei=(((-(Q_pT_Vbi_ei-((Q_0_Vbi_ei+Q_fT_Vbi_ei)+Qr_Vbi_ei)))*a-(-(Q_pT-((Q_0+Q_fT)+Qr)))*a_Vbi_ei)/a/a);
5909 : 505 : d_Q_Vbi_ci=(((-(Q_pT_Vbi_ci-((Q_0_Vbi_ci+Q_fT_Vbi_ci)+Qr_Vbi_ci)))*a-(-(Q_pT-((Q_0+Q_fT)+Qr)))*a_Vbi_ci)/a/a);
5910 : 505 : d_Q_Vci_ei=(((-(Q_pT_Vci_ei-(Q_fT_Vci_ei+Qr_Vci_ei)))*a-(-(Q_pT-((Q_0+Q_fT)+Qr)))*a_Vci_ei)/a/a);
5911 : : #endif
5912 : 505 : d_Q=((-(Q_pT-((Q_0+Q_fT)+Qr)))/a);
5913 : : {
5914 [ - + ]: 505 : double m00_abs(d00_abs0,(0.3*Q_pT))
5915 : : #if defined(_DERIVATE)
5916 [ + - ]: 505 : double m10_abs(d10_abs0,d00_abs0,(0.3*Q_pT))
5917 : : #endif
5918 : : #if defined(_DERIVATE)
5919 : 505 : a_Vci_ei=(0.3*Q_pT_Vci_ei)*d10_abs0;
5920 : 505 : a_Vbi_ei=(0.3*Q_pT_Vbi_ei)*d10_abs0;
5921 : 505 : a_Vbi_ci=(0.3*Q_pT_Vbi_ci)*d10_abs0;
5922 : 505 : a_Vtnode_GND=(0.3*Q_pT_Vtnode_GND)*d10_abs0;
5923 : : #endif
5924 : 505 : a=d00_abs0;
5925 : : }
5926 : : {
5927 [ + + ]: 505 : double m00_abs(d00_abs0,d_Q)
5928 [ - + ]: 505 : if
5929 : : (d00_abs0>a)
5930 : : {
5931 [ # # ]: 0 : if
5932 : : (d_Q>=0)
5933 : : {
5934 : : #if defined(_DERIVATE)
5935 : 0 : d_Q_Vtnode_GND=a_Vtnode_GND;
5936 : 0 : d_Q_Vbi_ei=a_Vbi_ei;
5937 : 0 : d_Q_Vbi_ci=a_Vbi_ci;
5938 : 0 : d_Q_Vci_ei=a_Vci_ei;
5939 : : #endif
5940 : 0 : d_Q=a;
5941 : : }
5942 : : else
5943 : : {
5944 : : #if defined(_DERIVATE)
5945 : 0 : d_Q_Vtnode_GND=(-a_Vtnode_GND);
5946 : 0 : d_Q_Vbi_ei=(-a_Vbi_ei);
5947 : 0 : d_Q_Vbi_ci=(-a_Vbi_ci);
5948 : 0 : d_Q_Vci_ei=(-a_Vci_ei);
5949 : : #endif
5950 : 0 : d_Q=(-a);
5951 : : }
5952 : : }
5953 : : }
5954 : : #if defined(_DERIVATE)
5955 : 505 : Q_pT_Vtnode_GND=(Q_pT_Vtnode_GND+d_Q_Vtnode_GND);
5956 : 505 : Q_pT_Vbi_ei=(Q_pT_Vbi_ei+d_Q_Vbi_ei);
5957 : 505 : Q_pT_Vbi_ci=(Q_pT_Vbi_ci+d_Q_Vbi_ci);
5958 : 505 : Q_pT_Vci_ei=(Q_pT_Vci_ei+d_Q_Vci_ei);
5959 : : #endif
5960 : 505 : Q_pT=(Q_pT+d_Q);
5961 : 505 : l_it=(l_it+1);
5962 : : }
5963 : : #if defined(_DERIVATE)
5964 : 5 : I_Tf1_Vci_ei=(-i_0f*Q_pT_Vci_ei/Q_pT/Q_pT);
5965 : 5 : I_Tf1_Vtnode_GND=((i_0f_Vtnode_GND*Q_pT-i_0f*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
5966 : 5 : I_Tf1_Vbi_ei=((i_0f_Vbi_ei*Q_pT-i_0f*Q_pT_Vbi_ei)/Q_pT/Q_pT);
5967 : 5 : I_Tf1_Vbi_ci=(-i_0f*Q_pT_Vbi_ci/Q_pT/Q_pT);
5968 : : #endif
5969 : 5 : I_Tf1=(i_0f/Q_pT);
5970 : : #if defined(_DERIVATE)
5971 : 5 : a_h_Vci_ei=(Oich*I_Tf1_Vci_ei);
5972 : 5 : a_h_Vtnode_GND=(Oich*I_Tf1_Vtnode_GND);
5973 : 5 : a_h_Vbi_ei=(Oich*I_Tf1_Vbi_ei);
5974 : 5 : a_h_Vbi_ci=(Oich*I_Tf1_Vbi_ci);
5975 : : #endif
5976 : 5 : a_h=(Oich*I_Tf1);
5977 : : #if defined(_DERIVATE)
5978 : 5 : itf_Vci_ei=((I_Tf1_Vci_ei*(1.0+a_h))+(I_Tf1*a_h_Vci_ei));
5979 : 5 : itf_Vtnode_GND=((I_Tf1_Vtnode_GND*(1.0+a_h))+(I_Tf1*a_h_Vtnode_GND));
5980 : 5 : itf_Vbi_ei=((I_Tf1_Vbi_ei*(1.0+a_h))+(I_Tf1*a_h_Vbi_ei));
5981 : 5 : itf_Vbi_ci=((I_Tf1_Vbi_ci*(1.0+a_h))+(I_Tf1*a_h_Vbi_ci));
5982 : : #endif
5983 : 5 : itf=(I_Tf1*(1.0+a_h));
5984 : : #if defined(_DERIVATE)
5985 : 5 : itr_Vci_ei=(-i_0r*Q_pT_Vci_ei/Q_pT/Q_pT);
5986 : 5 : itr_Vtnode_GND=((i_0r_Vtnode_GND*Q_pT-i_0r*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
5987 : 5 : itr_Vbi_ci=((i_0r_Vbi_ci*Q_pT-i_0r*Q_pT_Vbi_ci)/Q_pT/Q_pT);
5988 : 5 : itr_Vbi_ei=(-i_0r*Q_pT_Vbi_ei/Q_pT/Q_pT);
5989 : : #endif
5990 : 5 : itr=(i_0r/Q_pT);
5991 : : #if defined(_DYNAMIC)
5992 : : #if defined(_DERIVATE)
5993 : 5 : Tf_Vci_ei=0.0;
5994 : 5 : Tf_Vtnode_GND=T_f0_Vtnode_GND;
5995 : 5 : Tf_Vbi_ci=T_f0_Vbi_ci;
5996 : 5 : Tf_Vbi_ei=T_f0_Vbi_ei;
5997 : : #endif
5998 : 5 : Tf=T_f0;
5999 : : #endif
6000 : : #if defined(_DERIVATE)
6001 : 5 : Qf_Vci_ei=(T_f0*itf_Vci_ei);
6002 : 5 : Qf_Vtnode_GND=((T_f0_Vtnode_GND*itf)+(T_f0*itf_Vtnode_GND));
6003 : 5 : Qf_Vbi_ci=((T_f0_Vbi_ci*itf)+(T_f0*itf_Vbi_ci));
6004 : 5 : Qf_Vbi_ei=((T_f0_Vbi_ei*itf)+(T_f0*itf_Vbi_ei));
6005 : : #endif
6006 : 5 : Qf=(T_f0*itf);
6007 [ - + ]: 5 : if
6008 : : (itf<(1.0e-6*ick))
6009 : : {
6010 : : #if defined(_DYNAMIC)
6011 : : #if defined(_DERIVATE)
6012 : 0 : Q_fT_Vci_ei=Qf_Vci_ei;
6013 : 0 : Q_fT_Vtnode_GND=Qf_Vtnode_GND;
6014 : 0 : Q_fT_Vbi_ci=Qf_Vbi_ci;
6015 : 0 : Q_fT_Vbi_ei=Qf_Vbi_ei;
6016 : : #endif
6017 : 0 : Q_fT=Qf;
6018 : : #endif
6019 : : #if defined(_DYNAMIC)
6020 : : #if defined(_DERIVATE)
6021 : 0 : T_fT_Vci_ei=Tf_Vci_ei;
6022 : 0 : T_fT_Vtnode_GND=Tf_Vtnode_GND;
6023 : 0 : T_fT_Vbi_ci=Tf_Vbi_ci;
6024 : 0 : T_fT_Vbi_ei=Tf_Vbi_ei;
6025 : : #endif
6026 : 0 : T_fT=Tf;
6027 : : #endif
6028 : : }
6029 : : else
6030 : : {
6031 : : #if defined(_DERIVATE)
6032 : 5 : FFa_Vci_ei=((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf);
6033 : 5 : FFa_Vtnode_GND=((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf);
6034 : 5 : FFa_Vbi_ei=(-ick*itf_Vbi_ei/itf/itf);
6035 : 5 : FFa_Vbi_ci=(-ick*itf_Vbi_ci/itf/itf);
6036 : : #endif
6037 : 5 : FFa=(ick/itf);
6038 : : {
6039 : 5 : double m00_logE(d00_logE0,FFa)
6040 : 5 : double m00_exp(d00_exp1,((-gtfe)*d00_logE0))
6041 : : #if defined(_DERIVATE)
6042 : 5 : double m10_logE(d10_logE0,d00_logE0,FFa)
6043 : : #define d10_exp1 d00_exp1
6044 : : #endif
6045 : : #if defined(_DERIVATE)
6046 : 5 : FFd_TfE_Vtnode_GND=((tef0_t_Vtnode_GND*d00_exp1)+(tef0_t*((-gtfe)*FFa_Vtnode_GND*d10_logE0)*d10_exp1));
6047 : 5 : FFd_TfE_Vci_ei=(tef0_t*((-gtfe)*FFa_Vci_ei*d10_logE0)*d10_exp1);
6048 : 5 : FFd_TfE_Vbi_ei=(tef0_t*((-gtfe)*FFa_Vbi_ei*d10_logE0)*d10_exp1);
6049 : 5 : FFd_TfE_Vbi_ci=(tef0_t*((-gtfe)*FFa_Vbi_ci*d10_logE0)*d10_exp1);
6050 : : #endif
6051 : 5 : FFd_TfE=(tef0_t*d00_exp1);
6052 : : }
6053 : : #if defined(_DERIVATE)
6054 : 5 : FFd_QfE_Vtnode_GND=(((FFd_TfE_Vtnode_GND*itf)+(FFd_TfE*itf_Vtnode_GND))/(gtfe+1.0));
6055 : 5 : FFd_QfE_Vci_ei=(((FFd_TfE_Vci_ei*itf)+(FFd_TfE*itf_Vci_ei))/(gtfe+1.0));
6056 : 5 : FFd_QfE_Vbi_ei=(((FFd_TfE_Vbi_ei*itf)+(FFd_TfE*itf_Vbi_ei))/(gtfe+1.0));
6057 : 5 : FFd_QfE_Vbi_ci=(((FFd_TfE_Vbi_ci*itf)+(FFd_TfE*itf_Vbi_ci))/(gtfe+1.0));
6058 : : #endif
6059 : 5 : FFd_QfE=((FFd_TfE*itf)/(gtfe+1.0));
6060 : : #if defined(_DERIVATE)
6061 : 5 : FFT_fbS_Vtnode_GND=((1.0-fthc)*thcs_t_Vtnode_GND);
6062 : : #endif
6063 : 5 : FFT_fbS=((1.0-fthc)*thcs_t);
6064 : : #if defined(_DERIVATE)
6065 : 5 : FFx_Vci_ei=(-FFa_Vci_ei);
6066 : 5 : FFx_Vtnode_GND=(-FFa_Vtnode_GND);
6067 : 5 : FFx_Vbi_ei=(-FFa_Vbi_ei);
6068 : 5 : FFx_Vbi_ci=(-FFa_Vbi_ci);
6069 : : #endif
6070 : 5 : FFx=(1.0-FFa);
6071 : : {
6072 : 5 : double m00_sqrt(d00_sqrt0,((FFx*FFx)+alhc))
6073 : : #if defined(_DERIVATE)
6074 : 5 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFx*FFx)+alhc))
6075 : : #endif
6076 : : #if defined(_DERIVATE)
6077 : 5 : FFs_Vci_ei=((FFx_Vci_ei*FFx)+(FFx*FFx_Vci_ei))*d10_sqrt0;
6078 : 5 : FFs_Vtnode_GND=((FFx_Vtnode_GND*FFx)+(FFx*FFx_Vtnode_GND))*d10_sqrt0;
6079 : 5 : FFs_Vbi_ei=((FFx_Vbi_ei*FFx)+(FFx*FFx_Vbi_ei))*d10_sqrt0;
6080 : 5 : FFs_Vbi_ci=((FFx_Vbi_ci*FFx)+(FFx*FFx_Vbi_ci))*d10_sqrt0;
6081 : : #endif
6082 : 5 : FFs=d00_sqrt0;
6083 : : }
6084 : : {
6085 : 5 : double m00_sqrt(d00_sqrt0,(1.0+alhc))
6086 : : #if defined(_DERIVATE)
6087 : 5 : FFw_Vci_ei=((FFx_Vci_ei+FFs_Vci_ei)/(1.0+d00_sqrt0));
6088 : 5 : FFw_Vtnode_GND=((FFx_Vtnode_GND+FFs_Vtnode_GND)/(1.0+d00_sqrt0));
6089 : 5 : FFw_Vbi_ei=((FFx_Vbi_ei+FFs_Vbi_ei)/(1.0+d00_sqrt0));
6090 : 5 : FFw_Vbi_ci=((FFx_Vbi_ci+FFs_Vbi_ci)/(1.0+d00_sqrt0));
6091 : : #endif
6092 : 5 : FFw=((FFx+FFs)/(1.0+d00_sqrt0));
6093 : : }
6094 : : #if defined(_DERIVATE)
6095 : 5 : FFw_2_Vci_ei=((FFw_Vci_ei*FFw)+(FFw*FFw_Vci_ei));
6096 : 5 : FFw_2_Vtnode_GND=((FFw_Vtnode_GND*FFw)+(FFw*FFw_Vtnode_GND));
6097 : 5 : FFw_2_Vbi_ei=((FFw_Vbi_ei*FFw)+(FFw*FFw_Vbi_ei));
6098 : 5 : FFw_2_Vbi_ci=((FFw_Vbi_ci*FFw)+(FFw*FFw_Vbi_ci));
6099 : : #endif
6100 : 5 : FFw_2=(FFw*FFw);
6101 : : #if defined(_DERIVATE)
6102 : 5 : FFd_QfB_Vtnode_GND=((((FFT_fbS_Vtnode_GND*itf)+(FFT_fbS*itf_Vtnode_GND))*FFw_2)+((FFT_fbS*itf)*FFw_2_Vtnode_GND));
6103 : 5 : FFd_QfB_Vbi_ei=(((FFT_fbS*itf_Vbi_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ei));
6104 : 5 : FFd_QfB_Vbi_ci=(((FFT_fbS*itf_Vbi_ci)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ci));
6105 : 5 : FFd_QfB_Vci_ei=(((FFT_fbS*itf_Vci_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vci_ei));
6106 : : #endif
6107 : 5 : FFd_QfB=((FFT_fbS*itf)*FFw_2);
6108 : : #if defined(_DYNAMIC)
6109 : : #if defined(_DERIVATE)
6110 : 5 : FFa_w_Vci_ei=((FFw_2_Vci_ei*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vci_ei)*FFs-(2.0*FFa)*FFs_Vci_ei)/FFs/FFs)));
6111 : 5 : FFa_w_Vtnode_GND=((FFw_2_Vtnode_GND*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vtnode_GND)*FFs-(2.0*FFa)*FFs_Vtnode_GND)/FFs/FFs)));
6112 : 5 : FFa_w_Vbi_ei=((FFw_2_Vbi_ei*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vbi_ei)*FFs-(2.0*FFa)*FFs_Vbi_ei)/FFs/FFs)));
6113 : 5 : FFa_w_Vbi_ci=((FFw_2_Vbi_ci*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vbi_ci)*FFs-(2.0*FFa)*FFs_Vbi_ci)/FFs/FFs)));
6114 : : #endif
6115 : 5 : FFa_w=(FFw_2*(1.0+((2.0*FFa)/FFs)));
6116 : : #endif
6117 : : #if defined(_DYNAMIC)
6118 : : #if defined(_DERIVATE)
6119 : 5 : FFd_TfB_Vtnode_GND=((FFT_fbS_Vtnode_GND*FFa_w)+(FFT_fbS*FFa_w_Vtnode_GND));
6120 : 5 : FFd_TfB_Vci_ei=(FFT_fbS*FFa_w_Vci_ei);
6121 : 5 : FFd_TfB_Vbi_ei=(FFT_fbS*FFa_w_Vbi_ei);
6122 : 5 : FFd_TfB_Vbi_ci=(FFT_fbS*FFa_w_Vbi_ci);
6123 : : #endif
6124 : 5 : FFd_TfB=(FFT_fbS*FFa_w);
6125 : : #endif
6126 : : #if defined(_DERIVATE)
6127 : 5 : FFT_pcS_Vtnode_GND=(fthc*thcs_t_Vtnode_GND);
6128 : : #endif
6129 : 5 : FFT_pcS=(fthc*thcs_t);
6130 [ - + ][ # # ]: 5 : if
6131 : : ((latb<=0.0)&&(latl<=0.0))
6132 : : {
6133 : : #if defined(_DERIVATE)
6134 : 0 : FFQ_fC_Vtnode_GND=((((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND))*FFw_2)+((FFT_pcS*itf)*FFw_2_Vtnode_GND));
6135 : 0 : FFQ_fC_Vbi_ei=(((FFT_pcS*itf_Vbi_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ei));
6136 : 0 : FFQ_fC_Vbi_ci=(((FFT_pcS*itf_Vbi_ci)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ci));
6137 : 0 : FFQ_fC_Vci_ei=(((FFT_pcS*itf_Vci_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vci_ei));
6138 : : #endif
6139 : 0 : FFQ_fC=((FFT_pcS*itf)*FFw_2);
6140 : : #if defined(_DYNAMIC)
6141 : : #if defined(_DERIVATE)
6142 : 0 : FFT_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*FFa_w)+(FFT_pcS*FFa_w_Vtnode_GND));
6143 : 0 : FFT_fC_Vci_ei=(FFT_pcS*FFa_w_Vci_ei);
6144 : 0 : FFT_fC_Vbi_ei=(FFT_pcS*FFa_w_Vbi_ei);
6145 : 0 : FFT_fC_Vbi_ci=(FFT_pcS*FFa_w_Vbi_ci);
6146 : : #endif
6147 : 0 : FFT_fC=(FFT_pcS*FFa_w);
6148 : : #endif
6149 : : #if defined(_DYNAMIC)
6150 : : #if defined(_DERIVATE)
6151 : 0 : FFQ_cT_Vtnode_GND=FFQ_fC_Vtnode_GND;
6152 : 0 : FFQ_cT_Vbi_ei=FFQ_fC_Vbi_ei;
6153 : 0 : FFQ_cT_Vbi_ci=FFQ_fC_Vbi_ci;
6154 : 0 : FFQ_cT_Vci_ei=FFQ_fC_Vci_ei;
6155 : : #endif
6156 : 0 : FFQ_cT=FFQ_fC;
6157 : : #endif
6158 : : #if defined(_DYNAMIC)
6159 : : #if defined(_DERIVATE)
6160 : 0 : FFT_cT_Vtnode_GND=FFT_fC_Vtnode_GND;
6161 : 0 : FFT_cT_Vci_ei=FFT_fC_Vci_ei;
6162 : 0 : FFT_cT_Vbi_ei=FFT_fC_Vbi_ei;
6163 : 0 : FFT_cT_Vbi_ci=FFT_fC_Vbi_ci;
6164 : : #endif
6165 : 0 : FFT_cT=FFT_fC;
6166 : : #endif
6167 : : }
6168 : : else
6169 : : {
6170 : : #if defined(_DERIVATE)
6171 : 5 : FFQ_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND));
6172 : 5 : FFQ_fC_Vbi_ei=(FFT_pcS*itf_Vbi_ei);
6173 : 5 : FFQ_fC_Vbi_ci=(FFT_pcS*itf_Vbi_ci);
6174 : 5 : FFQ_fC_Vci_ei=(FFT_pcS*itf_Vci_ei);
6175 : : #endif
6176 : 5 : FFQ_fC=(FFT_pcS*itf);
6177 : : #if defined(_DERIVATE)
6178 : 5 : FCa_Vci_ei=(-((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf));
6179 : 5 : FCa_Vtnode_GND=(-((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf));
6180 : 5 : FCa_Vbi_ei=(-(-ick*itf_Vbi_ei/itf/itf));
6181 : 5 : FCa_Vbi_ci=(-(-ick*itf_Vbi_ci/itf/itf));
6182 : : #endif
6183 : 5 : FCa=(1.0-(ick/itf));
6184 : : {
6185 : 5 : double m00_sqrt(d00_sqrt0,((FCa*FCa)+alhc))
6186 : : #if defined(_DERIVATE)
6187 : 5 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FCa*FCa)+alhc))
6188 : : #endif
6189 : : #if defined(_DERIVATE)
6190 : 5 : FCrt_Vci_ei=((FCa_Vci_ei*FCa)+(FCa*FCa_Vci_ei))*d10_sqrt0;
6191 : 5 : FCrt_Vtnode_GND=((FCa_Vtnode_GND*FCa)+(FCa*FCa_Vtnode_GND))*d10_sqrt0;
6192 : 5 : FCrt_Vbi_ei=((FCa_Vbi_ei*FCa)+(FCa*FCa_Vbi_ei))*d10_sqrt0;
6193 : 5 : FCrt_Vbi_ci=((FCa_Vbi_ci*FCa)+(FCa*FCa_Vbi_ci))*d10_sqrt0;
6194 : : #endif
6195 : 5 : FCrt=d00_sqrt0;
6196 : : }
6197 : : {
6198 : 5 : double m00_sqrt(d00_sqrt0,(1.0+alhc))
6199 : : #if defined(_DERIVATE)
6200 : 5 : FCa_ck_Vci_ei=(-((FCa_Vci_ei+FCrt_Vci_ei)/(1.0+d00_sqrt0)));
6201 : 5 : FCa_ck_Vtnode_GND=(-((FCa_Vtnode_GND+FCrt_Vtnode_GND)/(1.0+d00_sqrt0)));
6202 : 5 : FCa_ck_Vbi_ei=(-((FCa_Vbi_ei+FCrt_Vbi_ei)/(1.0+d00_sqrt0)));
6203 : 5 : FCa_ck_Vbi_ci=(-((FCa_Vbi_ci+FCrt_Vbi_ci)/(1.0+d00_sqrt0)));
6204 : : #endif
6205 : 5 : FCa_ck=(1.0-((FCa+FCrt)/(1.0+d00_sqrt0)));
6206 : : }
6207 : : #if defined(_DYNAMIC)
6208 : : #if defined(_DERIVATE)
6209 : 5 : FCdaick_ditf_Vci_ei=((((FCa_ck_Vci_ei*(1-FCa))+((FCa_ck-1.0)*(-FCa_Vci_ei)))*(FCrt*itf)-((FCa_ck-1.0)*(1-FCa))*((FCrt_Vci_ei*itf)+(FCrt*itf_Vci_ei)))/(FCrt*itf)/(FCrt*itf));
6210 : 5 : FCdaick_ditf_Vtnode_GND=((((FCa_ck_Vtnode_GND*(1-FCa))+((FCa_ck-1.0)*(-FCa_Vtnode_GND)))*(FCrt*itf)-((FCa_ck-1.0)*(1-FCa))*((FCrt_Vtnode_GND*itf)+(FCrt*itf_Vtnode_GND)))/(FCrt*itf)/(FCrt*itf));
6211 : 5 : FCdaick_ditf_Vbi_ei=((((FCa_ck_Vbi_ei*(1-FCa))+((FCa_ck-1.0)*(-FCa_Vbi_ei)))*(FCrt*itf)-((FCa_ck-1.0)*(1-FCa))*((FCrt_Vbi_ei*itf)+(FCrt*itf_Vbi_ei)))/(FCrt*itf)/(FCrt*itf));
6212 : 5 : FCdaick_ditf_Vbi_ci=((((FCa_ck_Vbi_ci*(1-FCa))+((FCa_ck-1.0)*(-FCa_Vbi_ci)))*(FCrt*itf)-((FCa_ck-1.0)*(1-FCa))*((FCrt_Vbi_ci*itf)+(FCrt*itf_Vbi_ci)))/(FCrt*itf)/(FCrt*itf));
6213 : : #endif
6214 : 5 : FCdaick_ditf=(((FCa_ck-1.0)*(1-FCa))/(FCrt*itf));
6215 : : #endif
6216 [ + - ]: 5 : if
6217 : : (latb>latl)
6218 : : {
6219 : : #if defined(_DERIVATE)
6220 : 5 : FCz_Vci_ei=0.0;
6221 : 5 : FCz_Vtnode_GND=0.0;
6222 : 5 : FCz_Vbi_ei=0.0;
6223 : 5 : FCz_Vbi_ci=0.0;
6224 : : #endif
6225 : 5 : FCz=(latb-latl);
6226 : 5 : FCxl=(1.0+latl);
6227 : 5 : FCxb=(1.0+latb);
6228 [ + - ]: 5 : if
6229 : : (latb>0.01)
6230 : : {
6231 : : {
6232 : 5 : double m00_logE(d00_logE0,(FCxb/FCxl))
6233 : 5 : FCln=d00_logE0;
6234 : : }
6235 : : {
6236 : 5 : double m00_exp(d00_exp0,((FCa_ck-1.0)*FCln))
6237 : : #if defined(_DERIVATE)
6238 : : #define d10_exp0 d00_exp0
6239 : : #endif
6240 : : #if defined(_DERIVATE)
6241 : 5 : FCa1_Vci_ei=FCa_ck_Vci_ei*FCln*d10_exp0;
6242 : 5 : FCa1_Vtnode_GND=FCa_ck_Vtnode_GND*FCln*d10_exp0;
6243 : 5 : FCa1_Vbi_ei=FCa_ck_Vbi_ei*FCln*d10_exp0;
6244 : 5 : FCa1_Vbi_ci=FCa_ck_Vbi_ci*FCln*d10_exp0;
6245 : : #endif
6246 : 5 : FCa1=d00_exp0;
6247 : : }
6248 : : #if defined(_DERIVATE)
6249 : 5 : FCd_a_Vci_ei=(-(-FCa1_Vci_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
6250 : 5 : FCd_a_Vtnode_GND=(-(-FCa1_Vtnode_GND*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
6251 : 5 : FCd_a_Vbi_ei=(-(-FCa1_Vbi_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
6252 : 5 : FCd_a_Vbi_ci=(-(-FCa1_Vbi_ci*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
6253 : : #endif
6254 : 5 : FCd_a=(1.0/(latl-(FCa1*latb)));
6255 : : #if defined(_DERIVATE)
6256 : 5 : FCw_Vci_ei=((FCa1_Vci_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vci_ei));
6257 : 5 : FCw_Vtnode_GND=((FCa1_Vtnode_GND*FCd_a)+((FCa1-1.0)*FCd_a_Vtnode_GND));
6258 : 5 : FCw_Vbi_ei=((FCa1_Vbi_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ei));
6259 : 5 : FCw_Vbi_ci=((FCa1_Vbi_ci*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ci));
6260 : : #endif
6261 : 5 : FCw=((FCa1-1.0)*FCd_a);
6262 : : {
6263 : 5 : double m00_logE(d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
6264 : : #if defined(_DERIVATE)
6265 : 5 : double m10_logE(d10_logE0,d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
6266 : : #endif
6267 : : #if defined(_DERIVATE)
6268 : 5 : FCa_Vci_ei=(((latb*FCw_Vci_ei)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vci_ei))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
6269 : 5 : FCa_Vtnode_GND=(((latb*FCw_Vtnode_GND)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vtnode_GND))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
6270 : 5 : FCa_Vbi_ei=(((latb*FCw_Vbi_ei)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vbi_ei))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
6271 : 5 : FCa_Vbi_ci=(((latb*FCw_Vbi_ci)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vbi_ci))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
6272 : : #endif
6273 : 5 : FCa=d00_logE0;
6274 : : }
6275 : : #if defined(_DYNAMIC)
6276 : : #if defined(_DERIVATE)
6277 : 5 : FCdw_daick_Vci_ei=(((((((-FCz_Vci_ei)*FCa1)+((-FCz)*FCa1_Vci_ei))*FCln*FCd_a)+((((-FCz)*FCa1)*FCln)*FCd_a_Vci_ei))*FCd_a)+(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a_Vci_ei));
6278 : 5 : FCdw_daick_Vtnode_GND=(((((((-FCz_Vtnode_GND)*FCa1)+((-FCz)*FCa1_Vtnode_GND))*FCln*FCd_a)+((((-FCz)*FCa1)*FCln)*FCd_a_Vtnode_GND))*FCd_a)+(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a_Vtnode_GND));
6279 : 5 : FCdw_daick_Vbi_ei=(((((((-FCz_Vbi_ei)*FCa1)+((-FCz)*FCa1_Vbi_ei))*FCln*FCd_a)+((((-FCz)*FCa1)*FCln)*FCd_a_Vbi_ei))*FCd_a)+(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a_Vbi_ei));
6280 : 5 : FCdw_daick_Vbi_ci=(((((((-FCz_Vbi_ci)*FCa1)+((-FCz)*FCa1_Vbi_ci))*FCln*FCd_a)+((((-FCz)*FCa1)*FCln)*FCd_a_Vbi_ci))*FCd_a)+(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a_Vbi_ci));
6281 : : #endif
6282 : 5 : FCdw_daick=(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a);
6283 : : #endif
6284 : : {
6285 : 5 : double m00_logE(d00_logE0,(1.0+(latb*FCw)))
6286 : : #if defined(_DERIVATE)
6287 : 5 : double m10_logE(d10_logE0,d00_logE0,(1.0+(latb*FCw)))
6288 : : #endif
6289 : : #if defined(_DERIVATE)
6290 : 5 : FClnb_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
6291 : 5 : FClnb_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
6292 : 5 : FClnb_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
6293 : 5 : FClnb_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
6294 : : #endif
6295 : 5 : FClnb=d00_logE0;
6296 : : }
6297 : : {
6298 : 5 : double m00_logE(d00_logE0,(1.0+(latl*FCw)))
6299 : : #if defined(_DERIVATE)
6300 : 5 : double m10_logE(d10_logE0,d00_logE0,(1.0+(latl*FCw)))
6301 : : #endif
6302 : : #if defined(_DERIVATE)
6303 : 5 : FClnl_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
6304 : 5 : FClnl_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
6305 : 5 : FClnl_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
6306 : 5 : FClnl_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
6307 : : #endif
6308 : 5 : FClnl=d00_logE0;
6309 : : }
6310 : : #if defined(_DYNAMIC)
6311 : : #if defined(_DERIVATE)
6312 : 5 : FCa1_Vci_ei=(FClnb_Vci_ei-FClnl_Vci_ei);
6313 : 5 : FCa1_Vtnode_GND=(FClnb_Vtnode_GND-FClnl_Vtnode_GND);
6314 : 5 : FCa1_Vbi_ei=(FClnb_Vbi_ei-FClnl_Vbi_ei);
6315 : 5 : FCa1_Vbi_ci=(FClnb_Vbi_ci-FClnl_Vbi_ci);
6316 : : #endif
6317 : 5 : FCa1=(FClnb-FClnl);
6318 : : #endif
6319 : : #if defined(_DYNAMIC)
6320 : : #if defined(_DERIVATE)
6321 : 5 : FCda1_dw_Vci_ei=((-latb*(latb*FCw_Vci_ei)/(1.0+(latb*FCw))/(1.0+(latb*FCw)))-(-latl*(latl*FCw_Vci_ei)/(1.0+(latl*FCw))/(1.0+(latl*FCw))));
6322 : 5 : FCda1_dw_Vtnode_GND=((-latb*(latb*FCw_Vtnode_GND)/(1.0+(latb*FCw))/(1.0+(latb*FCw)))-(-latl*(latl*FCw_Vtnode_GND)/(1.0+(latl*FCw))/(1.0+(latl*FCw))));
6323 : 5 : FCda1_dw_Vbi_ei=((-latb*(latb*FCw_Vbi_ei)/(1.0+(latb*FCw))/(1.0+(latb*FCw)))-(-latl*(latl*FCw_Vbi_ei)/(1.0+(latl*FCw))/(1.0+(latl*FCw))));
6324 : 5 : FCda1_dw_Vbi_ci=((-latb*(latb*FCw_Vbi_ci)/(1.0+(latb*FCw))/(1.0+(latb*FCw)))-(-latl*(latl*FCw_Vbi_ci)/(1.0+(latl*FCw))/(1.0+(latl*FCw))));
6325 : : #endif
6326 : 5 : FCda1_dw=((latb/(1.0+(latb*FCw)))-(latl/(1.0+(latl*FCw))));
6327 : : #endif
6328 : : }
6329 : : else
6330 : : {
6331 : : #if defined(_DERIVATE)
6332 : 0 : FCf1_Vci_ei=(-FCa_ck_Vci_ei);
6333 : 0 : FCf1_Vtnode_GND=(-FCa_ck_Vtnode_GND);
6334 : 0 : FCf1_Vbi_ei=(-FCa_ck_Vbi_ei);
6335 : 0 : FCf1_Vbi_ci=(-FCa_ck_Vbi_ci);
6336 : : #endif
6337 : 0 : FCf1=(1.0-FCa_ck);
6338 : : #if defined(_DERIVATE)
6339 : 0 : FCd_a_Vci_ei=(-(-FCf1_Vci_ei*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
6340 : 0 : FCd_a_Vtnode_GND=(-(-FCf1_Vtnode_GND*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
6341 : 0 : FCd_a_Vbi_ei=(-(-FCf1_Vbi_ei*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
6342 : 0 : FCd_a_Vbi_ci=(-(-FCf1_Vbi_ci*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
6343 : : #endif
6344 : 0 : FCd_a=(1.0/(1.0-(FCf1*latb)));
6345 : : #if defined(_DERIVATE)
6346 : 0 : FCw_Vci_ei=((FCf1_Vci_ei*FCd_a)+(FCf1*FCd_a_Vci_ei));
6347 : 0 : FCw_Vtnode_GND=((FCf1_Vtnode_GND*FCd_a)+(FCf1*FCd_a_Vtnode_GND));
6348 : 0 : FCw_Vbi_ei=((FCf1_Vbi_ei*FCd_a)+(FCf1*FCd_a_Vbi_ei));
6349 : 0 : FCw_Vbi_ci=((FCf1_Vbi_ci*FCd_a)+(FCf1*FCd_a_Vbi_ci));
6350 : : #endif
6351 : 0 : FCw=(FCf1*FCd_a);
6352 : : #if defined(_DERIVATE)
6353 : 0 : FCa_Vci_ei=((FCz_Vci_ei*FCw)+(FCz*FCw_Vci_ei));
6354 : 0 : FCa_Vtnode_GND=((FCz_Vtnode_GND*FCw)+(FCz*FCw_Vtnode_GND));
6355 : 0 : FCa_Vbi_ei=((FCz_Vbi_ei*FCw)+(FCz*FCw_Vbi_ei));
6356 : 0 : FCa_Vbi_ci=((FCz_Vbi_ci*FCw)+(FCz*FCw_Vbi_ci));
6357 : : #endif
6358 : 0 : FCa=(FCz*FCw);
6359 : : #if defined(_DYNAMIC)
6360 : : #if defined(_DERIVATE)
6361 : 0 : FCdw_daick_Vci_ei=((((-1.0)*FCd_a_Vci_ei)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vci_ei));
6362 : 0 : FCdw_daick_Vtnode_GND=((((-1.0)*FCd_a_Vtnode_GND)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vtnode_GND));
6363 : 0 : FCdw_daick_Vbi_ei=((((-1.0)*FCd_a_Vbi_ei)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vbi_ei));
6364 : 0 : FCdw_daick_Vbi_ci=((((-1.0)*FCd_a_Vbi_ci)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vbi_ci));
6365 : : #endif
6366 : 0 : FCdw_daick=(((-1.0)*FCd_a)*FCd_a);
6367 : : #endif
6368 : : #if defined(_DERIVATE)
6369 : 0 : FClnb_Vci_ei=(latb*FCw_Vci_ei);
6370 : 0 : FClnb_Vtnode_GND=(latb*FCw_Vtnode_GND);
6371 : 0 : FClnb_Vbi_ei=(latb*FCw_Vbi_ei);
6372 : 0 : FClnb_Vbi_ci=(latb*FCw_Vbi_ci);
6373 : : #endif
6374 : 0 : FClnb=(latb*FCw);
6375 : : #if defined(_DERIVATE)
6376 : 0 : FClnl_Vci_ei=(latl*FCw_Vci_ei);
6377 : 0 : FClnl_Vtnode_GND=(latl*FCw_Vtnode_GND);
6378 : 0 : FClnl_Vbi_ei=(latl*FCw_Vbi_ei);
6379 : 0 : FClnl_Vbi_ci=(latl*FCw_Vbi_ci);
6380 : : #endif
6381 : 0 : FClnl=(latl*FCw);
6382 : : #if defined(_DYNAMIC)
6383 : : #if defined(_DERIVATE)
6384 : 0 : FCa1_Vci_ei=((FCz_Vci_ei*FCw)+(FCz*FCw_Vci_ei));
6385 : 0 : FCa1_Vtnode_GND=((FCz_Vtnode_GND*FCw)+(FCz*FCw_Vtnode_GND));
6386 : 0 : FCa1_Vbi_ei=((FCz_Vbi_ei*FCw)+(FCz*FCw_Vbi_ei));
6387 : 0 : FCa1_Vbi_ci=((FCz_Vbi_ci*FCw)+(FCz*FCw_Vbi_ci));
6388 : : #endif
6389 : 0 : FCa1=(FCz*FCw);
6390 : : #endif
6391 : : #if defined(_DYNAMIC)
6392 : : #if defined(_DERIVATE)
6393 : 0 : FCda1_dw_Vci_ei=FCz_Vci_ei;
6394 : 0 : FCda1_dw_Vtnode_GND=FCz_Vtnode_GND;
6395 : 0 : FCda1_dw_Vbi_ei=FCz_Vbi_ei;
6396 : 0 : FCda1_dw_Vbi_ci=FCz_Vbi_ci;
6397 : : #endif
6398 : 0 : FCda1_dw=FCz;
6399 : : #endif
6400 : : }
6401 : : #if defined(_DERIVATE)
6402 : 5 : FCf_CT_Vci_ei=(-2.0*FCz_Vci_ei/FCz/FCz);
6403 : 5 : FCf_CT_Vbi_ei=(-2.0*FCz_Vbi_ei/FCz/FCz);
6404 : 5 : FCf_CT_Vbi_ci=(-2.0*FCz_Vbi_ci/FCz/FCz);
6405 : 5 : FCf_CT_Vtnode_GND=(-2.0*FCz_Vtnode_GND/FCz/FCz);
6406 : : #endif
6407 : 5 : FCf_CT=(2.0/FCz);
6408 : : #if defined(_DERIVATE)
6409 : 5 : FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
6410 : 5 : FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
6411 : 5 : FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
6412 : 5 : FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
6413 : : #endif
6414 : 5 : FCw2=(FCw*FCw);
6415 : : #if defined(_DERIVATE)
6416 : 5 : FCf1_Vci_ei=(((((((latb*latl)*FCw_Vci_ei)*FCw2)+(((latb*latl)*FCw)*FCw2_Vci_ei))/3.0)+(((latb+latl)*FCw2_Vci_ei)/2.0))+FCw_Vci_ei);
6417 : 5 : FCf1_Vtnode_GND=(((((((latb*latl)*FCw_Vtnode_GND)*FCw2)+(((latb*latl)*FCw)*FCw2_Vtnode_GND))/3.0)+(((latb+latl)*FCw2_Vtnode_GND)/2.0))+FCw_Vtnode_GND);
6418 : 5 : FCf1_Vbi_ei=(((((((latb*latl)*FCw_Vbi_ei)*FCw2)+(((latb*latl)*FCw)*FCw2_Vbi_ei))/3.0)+(((latb+latl)*FCw2_Vbi_ei)/2.0))+FCw_Vbi_ei);
6419 : 5 : FCf1_Vbi_ci=(((((((latb*latl)*FCw_Vbi_ci)*FCw2)+(((latb*latl)*FCw)*FCw2_Vbi_ci))/3.0)+(((latb+latl)*FCw2_Vbi_ci)/2.0))+FCw_Vbi_ci);
6420 : : #endif
6421 : 5 : FCf1=((((((latb*latl)*FCw)*FCw2)/3.0)+(((latb+latl)*FCw2)/2.0))+FCw);
6422 : : #if defined(_DYNAMIC)
6423 : : #if defined(_DERIVATE)
6424 : 5 : FCdf1_dw_Vci_ei=(((latb*latl)*FCw2_Vci_ei)+((latb+latl)*FCw_Vci_ei));
6425 : 5 : FCdf1_dw_Vtnode_GND=(((latb*latl)*FCw2_Vtnode_GND)+((latb+latl)*FCw_Vtnode_GND));
6426 : 5 : FCdf1_dw_Vbi_ei=(((latb*latl)*FCw2_Vbi_ei)+((latb+latl)*FCw_Vbi_ei));
6427 : 5 : FCdf1_dw_Vbi_ci=(((latb*latl)*FCw2_Vbi_ci)+((latb+latl)*FCw_Vbi_ci));
6428 : : #endif
6429 : 5 : FCdf1_dw=((((latb*latl)*FCw2)+((latb+latl)*FCw))+1.0);
6430 : : #endif
6431 : : #if defined(_DERIVATE)
6432 : 5 : z_Vci_ei=(latb*FCw_Vci_ei);
6433 : 5 : z_Vtnode_GND=(latb*FCw_Vtnode_GND);
6434 : 5 : z_Vbi_ei=(latb*FCw_Vbi_ei);
6435 : 5 : z_Vbi_ci=(latb*FCw_Vbi_ci);
6436 : : #endif
6437 : 5 : z=(latb*FCw);
6438 [ + - ]: 5 : if
6439 : : (z>1.0e-6)
6440 : : {
6441 : : #if defined(_DERIVATE)
6442 : 5 : x_Vci_ei=z_Vci_ei;
6443 : 5 : x_Vtnode_GND=z_Vtnode_GND;
6444 : 5 : x_Vbi_ei=z_Vbi_ei;
6445 : 5 : x_Vbi_ci=z_Vbi_ci;
6446 : : #endif
6447 : 5 : x=(1.0+z);
6448 : : #if defined(_DERIVATE)
6449 : 5 : a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
6450 : 5 : a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
6451 : 5 : a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
6452 : 5 : a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
6453 : : #endif
6454 : 5 : a=(x*x);
6455 : : #if defined(_DERIVATE)
6456 : 5 : a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vci_ei))));
6457 : 5 : a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vbi_ei))));
6458 : 5 : a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vbi_ci))));
6459 : 5 : a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vtnode_GND))));
6460 : : #endif
6461 : 5 : a2=(0.250*((a*((2.0*FClnb)-1.0))+1.0));
6462 : : #if defined(_DERIVATE)
6463 : 5 : a3_Vci_ei=(((((a_Vci_ei*x)+(a*x_Vci_ei))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vci_ei)))/9.0);
6464 : 5 : a3_Vbi_ei=(((((a_Vbi_ei*x)+(a*x_Vbi_ei))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vbi_ei)))/9.0);
6465 : 5 : a3_Vbi_ci=(((((a_Vbi_ci*x)+(a*x_Vbi_ci))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vbi_ci)))/9.0);
6466 : 5 : a3_Vtnode_GND=(((((a_Vtnode_GND*x)+(a*x_Vtnode_GND))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vtnode_GND)))/9.0);
6467 : : #endif
6468 : 5 : a3=((((a*x)*((3.0*FClnb)-1.0))+1.0)/9.0);
6469 : 5 : r=(latl/latb);
6470 : : #if defined(_DERIVATE)
6471 : 5 : FCf2_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latb);
6472 : 5 : FCf2_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latb);
6473 : 5 : FCf2_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latb);
6474 : 5 : FCf2_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latb);
6475 : : #endif
6476 : 5 : FCf2=((((1.0-r)*a2)+(r*a3))/latb);
6477 : : #if defined(_DYNAMIC)
6478 : : #if defined(_DERIVATE)
6479 : 5 : FCdf2_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vci_ei));
6480 : 5 : FCdf2_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vtnode_GND));
6481 : 5 : FCdf2_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vbi_ei));
6482 : 5 : FCdf2_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vbi_ci));
6483 : : #endif
6484 : 5 : FCdf2_dw=((((1.0-r)*x)+(r*a))*FClnb);
6485 : : #endif
6486 : : }
6487 : : else
6488 : : {
6489 : : #if defined(_DERIVATE)
6490 : 0 : a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
6491 : 0 : a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
6492 : 0 : a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
6493 : 0 : a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
6494 : : #endif
6495 : 0 : a=(z*z);
6496 : : #if defined(_DERIVATE)
6497 : 0 : a2_Vci_ei=((z_Vci_ei-(0.5*a_Vci_ei))+((z_Vci_ei*a)+(z*a_Vci_ei)));
6498 : 0 : a2_Vbi_ei=((z_Vbi_ei-(0.5*a_Vbi_ei))+((z_Vbi_ei*a)+(z*a_Vbi_ei)));
6499 : 0 : a2_Vbi_ci=((z_Vbi_ci-(0.5*a_Vbi_ci))+((z_Vbi_ci*a)+(z*a_Vbi_ci)));
6500 : 0 : a2_Vtnode_GND=((z_Vtnode_GND-(0.5*a_Vtnode_GND))+((z_Vtnode_GND*a)+(z*a_Vtnode_GND)));
6501 : : #endif
6502 : 0 : a2=(((3.0+z)-(0.5*a))+(z*a));
6503 : : #if defined(_DERIVATE)
6504 : 0 : a3_Vci_ei=((((-2.0)*z_Vci_ei)+(1.5*a_Vci_ei))+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0));
6505 : 0 : a3_Vbi_ei=((((-2.0)*z_Vbi_ei)+(1.5*a_Vbi_ei))+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0));
6506 : 0 : a3_Vbi_ci=((((-2.0)*z_Vbi_ci)+(1.5*a_Vbi_ci))+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0));
6507 : 0 : a3_Vtnode_GND=((((-2.0)*z_Vtnode_GND)+(1.5*a_Vtnode_GND))+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0));
6508 : : #endif
6509 : 0 : a3=((((-2.0)*z)+(1.5*a))+(((2.0*a)*a)/3.0));
6510 : : #if defined(_DERIVATE)
6511 : 0 : FCf2_Vci_ei=(((((((latb*a2_Vci_ei)+(latl*a3_Vci_ei))*FCw)+(((latb*a2)+(latl*a3))*FCw_Vci_ei))*FCw)+((((latb*a2)+(latl*a3))*FCw)*FCw_Vci_ei))/6.0);
6512 : 0 : FCf2_Vbi_ei=(((((((latb*a2_Vbi_ei)+(latl*a3_Vbi_ei))*FCw)+(((latb*a2)+(latl*a3))*FCw_Vbi_ei))*FCw)+((((latb*a2)+(latl*a3))*FCw)*FCw_Vbi_ei))/6.0);
6513 : 0 : FCf2_Vbi_ci=(((((((latb*a2_Vbi_ci)+(latl*a3_Vbi_ci))*FCw)+(((latb*a2)+(latl*a3))*FCw_Vbi_ci))*FCw)+((((latb*a2)+(latl*a3))*FCw)*FCw_Vbi_ci))/6.0);
6514 : 0 : FCf2_Vtnode_GND=(((((((latb*a2_Vtnode_GND)+(latl*a3_Vtnode_GND))*FCw)+(((latb*a2)+(latl*a3))*FCw_Vtnode_GND))*FCw)+((((latb*a2)+(latl*a3))*FCw)*FCw_Vtnode_GND))/6.0);
6515 : : #endif
6516 : 0 : FCf2=(((((latb*a2)+(latl*a3))*FCw)*FCw)/6.0);
6517 : : #if defined(_DYNAMIC)
6518 : : #if defined(_DERIVATE)
6519 : 0 : FCdf2_dw_Vci_ei=((((z_Vci_ei+(0.5*a_Vci_ei))-(((a_Vci_ei*z)+(a*z_Vci_ei))/3.0))+((((5.0*a_Vci_ei)*a)+((5.0*a)*a_Vci_ei))/6.0))+(((latl*FCw_Vci_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vci_ei-z_Vci_ei)+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0)))));
6520 : 0 : FCdf2_dw_Vtnode_GND=((((z_Vtnode_GND+(0.5*a_Vtnode_GND))-(((a_Vtnode_GND*z)+(a*z_Vtnode_GND))/3.0))+((((5.0*a_Vtnode_GND)*a)+((5.0*a)*a_Vtnode_GND))/6.0))+(((latl*FCw_Vtnode_GND)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vtnode_GND-z_Vtnode_GND)+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0)))));
6521 : 0 : FCdf2_dw_Vbi_ei=((((z_Vbi_ei+(0.5*a_Vbi_ei))-(((a_Vbi_ei*z)+(a*z_Vbi_ei))/3.0))+((((5.0*a_Vbi_ei)*a)+((5.0*a)*a_Vbi_ei))/6.0))+(((latl*FCw_Vbi_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vbi_ei-z_Vbi_ei)+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0)))));
6522 : 0 : FCdf2_dw_Vbi_ci=((((z_Vbi_ci+(0.5*a_Vbi_ci))-(((a_Vbi_ci*z)+(a*z_Vbi_ci))/3.0))+((((5.0*a_Vbi_ci)*a)+((5.0*a)*a_Vbi_ci))/6.0))+(((latl*FCw_Vbi_ci)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vbi_ci-z_Vbi_ci)+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0)))));
6523 : : #endif
6524 : 0 : FCdf2_dw=((((z+(0.5*a))-((a*z)/3.0))+(((5.0*a)*a)/6.0))+((latl*FCw)*((a-z)+(((2.0*a)*a)/3.0))));
6525 : : #endif
6526 : : }
6527 : : #if defined(_DERIVATE)
6528 : 5 : z_Vci_ei=(latl*FCw_Vci_ei);
6529 : 5 : z_Vtnode_GND=(latl*FCw_Vtnode_GND);
6530 : 5 : z_Vbi_ei=(latl*FCw_Vbi_ei);
6531 : 5 : z_Vbi_ci=(latl*FCw_Vbi_ci);
6532 : : #endif
6533 : 5 : z=(latl*FCw);
6534 [ + - ]: 5 : if
6535 : : (z>1.0e-6)
6536 : : {
6537 : : #if defined(_DERIVATE)
6538 : 5 : x_Vci_ei=z_Vci_ei;
6539 : 5 : x_Vtnode_GND=z_Vtnode_GND;
6540 : 5 : x_Vbi_ei=z_Vbi_ei;
6541 : 5 : x_Vbi_ci=z_Vbi_ci;
6542 : : #endif
6543 : 5 : x=(1.0+z);
6544 : : #if defined(_DERIVATE)
6545 : 5 : a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
6546 : 5 : a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
6547 : 5 : a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
6548 : 5 : a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
6549 : : #endif
6550 : 5 : a=(x*x);
6551 : : #if defined(_DERIVATE)
6552 : 5 : a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vci_ei))));
6553 : 5 : a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vbi_ei))));
6554 : 5 : a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vbi_ci))));
6555 : 5 : a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vtnode_GND))));
6556 : : #endif
6557 : 5 : a2=(0.250*((a*((2.0*FClnl)-1.0))+1.0));
6558 : : #if defined(_DERIVATE)
6559 : 5 : a3_Vci_ei=(((((a_Vci_ei*x)+(a*x_Vci_ei))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vci_ei)))/9.0);
6560 : 5 : a3_Vbi_ei=(((((a_Vbi_ei*x)+(a*x_Vbi_ei))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vbi_ei)))/9.0);
6561 : 5 : a3_Vbi_ci=(((((a_Vbi_ci*x)+(a*x_Vbi_ci))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vbi_ci)))/9.0);
6562 : 5 : a3_Vtnode_GND=(((((a_Vtnode_GND*x)+(a*x_Vtnode_GND))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vtnode_GND)))/9.0);
6563 : : #endif
6564 : 5 : a3=((((a*x)*((3.0*FClnl)-1.0))+1.0)/9.0);
6565 : 5 : r=(latb/latl);
6566 : : #if defined(_DERIVATE)
6567 : 5 : FCf3_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latl);
6568 : 5 : FCf3_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latl);
6569 : 5 : FCf3_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latl);
6570 : 5 : FCf3_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latl);
6571 : : #endif
6572 : 5 : FCf3=((((1.0-r)*a2)+(r*a3))/latl);
6573 : : #if defined(_DYNAMIC)
6574 : : #if defined(_DERIVATE)
6575 : 5 : FCdf3_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vci_ei));
6576 : 5 : FCdf3_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vtnode_GND));
6577 : 5 : FCdf3_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vbi_ei));
6578 : 5 : FCdf3_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vbi_ci));
6579 : : #endif
6580 : 5 : FCdf3_dw=((((1.0-r)*x)+(r*a))*FClnl);
6581 : : #endif
6582 : : }
6583 : : else
6584 : : {
6585 : : #if defined(_DERIVATE)
6586 : 0 : a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
6587 : 0 : a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
6588 : 0 : a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
6589 : 0 : a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
6590 : : #endif
6591 : 0 : a=(z*z);
6592 : : #if defined(_DERIVATE)
6593 : 0 : a2_Vci_ei=((z_Vci_ei-(0.5*a_Vci_ei))+((z_Vci_ei*a)+(z*a_Vci_ei)));
6594 : 0 : a2_Vbi_ei=((z_Vbi_ei-(0.5*a_Vbi_ei))+((z_Vbi_ei*a)+(z*a_Vbi_ei)));
6595 : 0 : a2_Vbi_ci=((z_Vbi_ci-(0.5*a_Vbi_ci))+((z_Vbi_ci*a)+(z*a_Vbi_ci)));
6596 : 0 : a2_Vtnode_GND=((z_Vtnode_GND-(0.5*a_Vtnode_GND))+((z_Vtnode_GND*a)+(z*a_Vtnode_GND)));
6597 : : #endif
6598 : 0 : a2=(((3.0+z)-(0.5*a))+(z*a));
6599 : : #if defined(_DERIVATE)
6600 : 0 : a3_Vci_ei=((((-2.0)*z_Vci_ei)+(1.5*a_Vci_ei))+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0));
6601 : 0 : a3_Vbi_ei=((((-2.0)*z_Vbi_ei)+(1.5*a_Vbi_ei))+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0));
6602 : 0 : a3_Vbi_ci=((((-2.0)*z_Vbi_ci)+(1.5*a_Vbi_ci))+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0));
6603 : 0 : a3_Vtnode_GND=((((-2.0)*z_Vtnode_GND)+(1.5*a_Vtnode_GND))+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0));
6604 : : #endif
6605 : 0 : a3=((((-2.0)*z)+(1.5*a))+(((2.0*a)*a)/3.0));
6606 : : #if defined(_DERIVATE)
6607 : 0 : FCf3_Vci_ei=(((((((latl*a2_Vci_ei)+(latb*a3_Vci_ei))*FCw)+(((latl*a2)+(latb*a3))*FCw_Vci_ei))*FCw)+((((latl*a2)+(latb*a3))*FCw)*FCw_Vci_ei))/6.0);
6608 : 0 : FCf3_Vbi_ei=(((((((latl*a2_Vbi_ei)+(latb*a3_Vbi_ei))*FCw)+(((latl*a2)+(latb*a3))*FCw_Vbi_ei))*FCw)+((((latl*a2)+(latb*a3))*FCw)*FCw_Vbi_ei))/6.0);
6609 : 0 : FCf3_Vbi_ci=(((((((latl*a2_Vbi_ci)+(latb*a3_Vbi_ci))*FCw)+(((latl*a2)+(latb*a3))*FCw_Vbi_ci))*FCw)+((((latl*a2)+(latb*a3))*FCw)*FCw_Vbi_ci))/6.0);
6610 : 0 : FCf3_Vtnode_GND=(((((((latl*a2_Vtnode_GND)+(latb*a3_Vtnode_GND))*FCw)+(((latl*a2)+(latb*a3))*FCw_Vtnode_GND))*FCw)+((((latl*a2)+(latb*a3))*FCw)*FCw_Vtnode_GND))/6.0);
6611 : : #endif
6612 : 0 : FCf3=(((((latl*a2)+(latb*a3))*FCw)*FCw)/6.0);
6613 : : #if defined(_DYNAMIC)
6614 : : #if defined(_DERIVATE)
6615 : 0 : FCdf3_dw_Vci_ei=((((z_Vci_ei+(0.5*a_Vci_ei))-(((a_Vci_ei*z)+(a*z_Vci_ei))/3.0))+((((5.0*a_Vci_ei)*a)+((5.0*a)*a_Vci_ei))/6.0))+(((latb*FCw_Vci_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vci_ei-z_Vci_ei)+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0)))));
6616 : 0 : FCdf3_dw_Vtnode_GND=((((z_Vtnode_GND+(0.5*a_Vtnode_GND))-(((a_Vtnode_GND*z)+(a*z_Vtnode_GND))/3.0))+((((5.0*a_Vtnode_GND)*a)+((5.0*a)*a_Vtnode_GND))/6.0))+(((latb*FCw_Vtnode_GND)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vtnode_GND-z_Vtnode_GND)+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0)))));
6617 : 0 : FCdf3_dw_Vbi_ei=((((z_Vbi_ei+(0.5*a_Vbi_ei))-(((a_Vbi_ei*z)+(a*z_Vbi_ei))/3.0))+((((5.0*a_Vbi_ei)*a)+((5.0*a)*a_Vbi_ei))/6.0))+(((latb*FCw_Vbi_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vbi_ei-z_Vbi_ei)+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0)))));
6618 : 0 : FCdf3_dw_Vbi_ci=((((z_Vbi_ci+(0.5*a_Vbi_ci))-(((a_Vbi_ci*z)+(a*z_Vbi_ci))/3.0))+((((5.0*a_Vbi_ci)*a)+((5.0*a)*a_Vbi_ci))/6.0))+(((latb*FCw_Vbi_ci)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vbi_ci-z_Vbi_ci)+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0)))));
6619 : : #endif
6620 : 0 : FCdf3_dw=((((z+(0.5*a))-((a*z)/3.0))+(((5.0*a)*a)/6.0))+((latb*FCw)*((a-z)+(((2.0*a)*a)/3.0))));
6621 : : #endif
6622 : : }
6623 : : #if defined(_DERIVATE)
6624 : 5 : FCf_ci_Vci_ei=((FCf_CT_Vci_ei*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vci_ei*FCf1)+(FCa*FCf1_Vci_ei))-FCf2_Vci_ei)+FCf3_Vci_ei)));
6625 : 5 : FCf_ci_Vtnode_GND=((FCf_CT_Vtnode_GND*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vtnode_GND*FCf1)+(FCa*FCf1_Vtnode_GND))-FCf2_Vtnode_GND)+FCf3_Vtnode_GND)));
6626 : 5 : FCf_ci_Vbi_ei=((FCf_CT_Vbi_ei*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vbi_ei*FCf1)+(FCa*FCf1_Vbi_ei))-FCf2_Vbi_ei)+FCf3_Vbi_ei)));
6627 : 5 : FCf_ci_Vbi_ci=((FCf_CT_Vbi_ci*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vbi_ci*FCf1)+(FCa*FCf1_Vbi_ci))-FCf2_Vbi_ci)+FCf3_Vbi_ci)));
6628 : : #endif
6629 : 5 : FCf_ci=(FCf_CT*(((FCa*FCf1)-FCf2)+FCf3));
6630 : : #if defined(_DYNAMIC)
6631 : : #if defined(_DERIVATE)
6632 : 5 : FCdfc_dw_Vci_ei=((FCf_CT_Vci_ei*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw))+(FCf_CT*(((((FCa1_Vci_ei*FCdf1_dw)+(FCa1*FCdf1_dw_Vci_ei))+((FCda1_dw_Vci_ei*FCf1)+(FCda1_dw*FCf1_Vci_ei)))-FCdf2_dw_Vci_ei)+FCdf3_dw_Vci_ei)));
6633 : 5 : FCdfc_dw_Vtnode_GND=((FCf_CT_Vtnode_GND*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw))+(FCf_CT*(((((FCa1_Vtnode_GND*FCdf1_dw)+(FCa1*FCdf1_dw_Vtnode_GND))+((FCda1_dw_Vtnode_GND*FCf1)+(FCda1_dw*FCf1_Vtnode_GND)))-FCdf2_dw_Vtnode_GND)+FCdf3_dw_Vtnode_GND)));
6634 : 5 : FCdfc_dw_Vbi_ei=((FCf_CT_Vbi_ei*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw))+(FCf_CT*(((((FCa1_Vbi_ei*FCdf1_dw)+(FCa1*FCdf1_dw_Vbi_ei))+((FCda1_dw_Vbi_ei*FCf1)+(FCda1_dw*FCf1_Vbi_ei)))-FCdf2_dw_Vbi_ei)+FCdf3_dw_Vbi_ei)));
6635 : 5 : FCdfc_dw_Vbi_ci=((FCf_CT_Vbi_ci*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw))+(FCf_CT*(((((FCa1_Vbi_ci*FCdf1_dw)+(FCa1*FCdf1_dw_Vbi_ci))+((FCda1_dw_Vbi_ci*FCf1)+(FCda1_dw*FCf1_Vbi_ci)))-FCdf2_dw_Vbi_ci)+FCdf3_dw_Vbi_ci)));
6636 : : #endif
6637 : 5 : FCdfc_dw=(FCf_CT*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw));
6638 : : #endif
6639 : : #if defined(_DYNAMIC)
6640 : : #if defined(_DERIVATE)
6641 : 5 : FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
6642 : 5 : FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
6643 : 5 : FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
6644 : 5 : FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
6645 : : #endif
6646 : 5 : FCdw_ditf=(FCdw_daick*FCdaick_ditf);
6647 : : #endif
6648 : : #if defined(_DYNAMIC)
6649 : : #if defined(_DERIVATE)
6650 : 5 : FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
6651 : 5 : FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
6652 : 5 : FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
6653 : 5 : FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
6654 : : #endif
6655 : 5 : FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
6656 : : #endif
6657 : : #if defined(_DYNAMIC)
6658 : : #if defined(_DERIVATE)
6659 : 5 : a_Vci_ei=(latb*FCw_Vci_ei);
6660 : 5 : a_Vbi_ei=(latb*FCw_Vbi_ei);
6661 : 5 : a_Vbi_ci=(latb*FCw_Vbi_ci);
6662 : 5 : a_Vtnode_GND=(latb*FCw_Vtnode_GND);
6663 : : #endif
6664 : 5 : a=(latb*FCw);
6665 : : #endif
6666 : : #ifdef _DYNAMIC
6667 [ + - ]: 5 : if
6668 : : (a>1.0e-6)
6669 : : {
6670 : : #if defined(_DYNAMIC)
6671 : : #if defined(_DERIVATE)
6672 : 5 : FCf2_Vci_ei=((a_Vci_ei-FClnb_Vci_ei)/latb);
6673 : 5 : FCf2_Vbi_ei=((a_Vbi_ei-FClnb_Vbi_ei)/latb);
6674 : 5 : FCf2_Vbi_ci=((a_Vbi_ci-FClnb_Vbi_ci)/latb);
6675 : 5 : FCf2_Vtnode_GND=((a_Vtnode_GND-FClnb_Vtnode_GND)/latb);
6676 : : #endif
6677 : 5 : FCf2=((a-FClnb)/latb);
6678 : : #endif
6679 : : #if defined(_DYNAMIC)
6680 : : #if defined(_DERIVATE)
6681 : 5 : FCdf2_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
6682 : 5 : FCdf2_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
6683 : 5 : FCdf2_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
6684 : 5 : FCdf2_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
6685 : : #endif
6686 : 5 : FCdf2_dw=(a/(1.0+a));
6687 : : #endif
6688 : : }
6689 : : else
6690 : : {
6691 : : #if defined(_DYNAMIC)
6692 : : #if defined(_DERIVATE)
6693 : 0 : FCf2_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
6694 : 0 : FCf2_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
6695 : 0 : FCf2_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
6696 : 0 : FCf2_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
6697 : : #endif
6698 : 0 : FCf2=((0.5*a)*FCw);
6699 : : #endif
6700 : : #if defined(_DYNAMIC)
6701 : : #if defined(_DERIVATE)
6702 : 0 : FCdf2_dw_Vci_ei=a_Vci_ei;
6703 : 0 : FCdf2_dw_Vtnode_GND=a_Vtnode_GND;
6704 : 0 : FCdf2_dw_Vbi_ei=a_Vbi_ei;
6705 : 0 : FCdf2_dw_Vbi_ci=a_Vbi_ci;
6706 : : #endif
6707 : 0 : FCdf2_dw=a;
6708 : : #endif
6709 : : }
6710 : : #endif /* if (...) */
6711 : : #if defined(_DYNAMIC)
6712 : : #if defined(_DERIVATE)
6713 : 5 : a_Vci_ei=(latl*FCw_Vci_ei);
6714 : 5 : a_Vbi_ei=(latl*FCw_Vbi_ei);
6715 : 5 : a_Vbi_ci=(latl*FCw_Vbi_ci);
6716 : 5 : a_Vtnode_GND=(latl*FCw_Vtnode_GND);
6717 : : #endif
6718 : 5 : a=(latl*FCw);
6719 : : #endif
6720 : : #ifdef _DYNAMIC
6721 [ + - ]: 5 : if
6722 : : (a>1.0e-6)
6723 : : {
6724 : : #if defined(_DYNAMIC)
6725 : : #if defined(_DERIVATE)
6726 : 5 : FCf3_Vci_ei=((a_Vci_ei-FClnl_Vci_ei)/latl);
6727 : 5 : FCf3_Vbi_ei=((a_Vbi_ei-FClnl_Vbi_ei)/latl);
6728 : 5 : FCf3_Vbi_ci=((a_Vbi_ci-FClnl_Vbi_ci)/latl);
6729 : 5 : FCf3_Vtnode_GND=((a_Vtnode_GND-FClnl_Vtnode_GND)/latl);
6730 : : #endif
6731 : 5 : FCf3=((a-FClnl)/latl);
6732 : : #endif
6733 : : #if defined(_DYNAMIC)
6734 : : #if defined(_DERIVATE)
6735 : 5 : FCdf3_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
6736 : 5 : FCdf3_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
6737 : 5 : FCdf3_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
6738 : 5 : FCdf3_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
6739 : : #endif
6740 : 5 : FCdf3_dw=(a/(1.0+a));
6741 : : #endif
6742 : : }
6743 : : else
6744 : : {
6745 : : #if defined(_DYNAMIC)
6746 : : #if defined(_DERIVATE)
6747 : 0 : FCf3_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
6748 : 0 : FCf3_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
6749 : 0 : FCf3_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
6750 : 0 : FCf3_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
6751 : : #endif
6752 : 0 : FCf3=((0.5*a)*FCw);
6753 : : #endif
6754 : : #if defined(_DYNAMIC)
6755 : : #if defined(_DERIVATE)
6756 : 0 : FCdf3_dw_Vci_ei=a_Vci_ei;
6757 : 0 : FCdf3_dw_Vtnode_GND=a_Vtnode_GND;
6758 : 0 : FCdf3_dw_Vbi_ei=a_Vbi_ei;
6759 : 0 : FCdf3_dw_Vbi_ci=a_Vbi_ci;
6760 : : #endif
6761 : 0 : FCdf3_dw=a;
6762 : : #endif
6763 : : }
6764 : : #endif /* if (...) */
6765 : : #if defined(_DYNAMIC)
6766 : : #if defined(_DERIVATE)
6767 : 5 : FCf_CT_Vci_ei=((FCf_CT_Vci_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vci_ei-FCf3_Vci_ei)));
6768 : 5 : FCf_CT_Vbi_ei=((FCf_CT_Vbi_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ei-FCf3_Vbi_ei)));
6769 : 5 : FCf_CT_Vbi_ci=((FCf_CT_Vbi_ci*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ci-FCf3_Vbi_ci)));
6770 : 5 : FCf_CT_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCf2-FCf3))+(FCf_CT*(FCf2_Vtnode_GND-FCf3_Vtnode_GND)));
6771 : : #endif
6772 : 5 : FCf_CT=(FCf_CT*(FCf2-FCf3));
6773 : : #endif
6774 : : #if defined(_DYNAMIC)
6775 : : #if defined(_DERIVATE)
6776 : 5 : FCdfCT_dw_Vci_ei=((FCf_CT_Vci_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vci_ei-FCdf3_dw_Vci_ei)));
6777 : 5 : FCdfCT_dw_Vbi_ei=((FCf_CT_Vbi_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ei-FCdf3_dw_Vbi_ei)));
6778 : 5 : FCdfCT_dw_Vbi_ci=((FCf_CT_Vbi_ci*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ci-FCdf3_dw_Vbi_ci)));
6779 : 5 : FCdfCT_dw_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vtnode_GND-FCdf3_dw_Vtnode_GND)));
6780 : : #endif
6781 : 5 : FCdfCT_dw=(FCf_CT*(FCdf2_dw-FCdf3_dw));
6782 : : #endif
6783 : : #if defined(_DYNAMIC)
6784 : : #if defined(_DERIVATE)
6785 : 5 : FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
6786 : 5 : FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
6787 : 5 : FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
6788 : 5 : FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
6789 : : #endif
6790 : 5 : FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
6791 : : #endif
6792 : : }
6793 : : else
6794 : : {
6795 [ # # ]: 0 : if
6796 : : (latb>0.01)
6797 : : {
6798 : : #if defined(_DERIVATE)
6799 : 0 : FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6800 : 0 : FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6801 : 0 : FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6802 : 0 : FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6803 : : #endif
6804 : 0 : FCd_a=(1.0/(1.0+(FCa_ck*latb)));
6805 : : #if defined(_DERIVATE)
6806 : 0 : FCw_Vci_ei=(((-FCa_ck_Vci_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vci_ei));
6807 : 0 : FCw_Vtnode_GND=(((-FCa_ck_Vtnode_GND)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vtnode_GND));
6808 : 0 : FCw_Vbi_ei=(((-FCa_ck_Vbi_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ei));
6809 : 0 : FCw_Vbi_ci=(((-FCa_ck_Vbi_ci)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ci));
6810 : : #endif
6811 : 0 : FCw=((1.0-FCa_ck)*FCd_a);
6812 : : #if defined(_DYNAMIC)
6813 : : #if defined(_DERIVATE)
6814 : 0 : FCdw_daick_Vci_ei=((((-(1.0+latb))*FCd_a_Vci_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vci_ei));
6815 : 0 : FCdw_daick_Vtnode_GND=((((-(1.0+latb))*FCd_a_Vtnode_GND)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vtnode_GND));
6816 : 0 : FCdw_daick_Vbi_ei=((((-(1.0+latb))*FCd_a_Vbi_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ei));
6817 : 0 : FCdw_daick_Vbi_ci=((((-(1.0+latb))*FCd_a_Vbi_ci)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ci));
6818 : : #endif
6819 : 0 : FCdw_daick=(((-(1.0+latb))*FCd_a)*FCd_a);
6820 : : #endif
6821 : : }
6822 : : else
6823 : : {
6824 : : #if defined(_DERIVATE)
6825 : 0 : FCw_Vci_ei=((-FCa_ck_Vci_ei)-FCa_ck_Vci_ei*latb);
6826 : 0 : FCw_Vtnode_GND=((-FCa_ck_Vtnode_GND)-FCa_ck_Vtnode_GND*latb);
6827 : 0 : FCw_Vbi_ei=((-FCa_ck_Vbi_ei)-FCa_ck_Vbi_ei*latb);
6828 : 0 : FCw_Vbi_ci=((-FCa_ck_Vbi_ci)-FCa_ck_Vbi_ci*latb);
6829 : : #endif
6830 : 0 : FCw=((1.0-FCa_ck)-(FCa_ck*latb));
6831 : : #if defined(_DYNAMIC)
6832 : : #if defined(_DERIVATE)
6833 : 0 : FCdw_daick_Vci_ei=0.0;
6834 : 0 : FCdw_daick_Vtnode_GND=0.0;
6835 : 0 : FCdw_daick_Vbi_ei=0.0;
6836 : 0 : FCdw_daick_Vbi_ci=0.0;
6837 : : #endif
6838 : 0 : FCdw_daick=(-(1.0+latb));
6839 : : #endif
6840 : : }
6841 : : #if defined(_DERIVATE)
6842 : 0 : FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
6843 : 0 : FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
6844 : 0 : FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
6845 : 0 : FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
6846 : : #endif
6847 : 0 : FCw2=(FCw*FCw);
6848 : : #if defined(_DERIVATE)
6849 : 0 : FCz_Vci_ei=(latb*FCw_Vci_ei);
6850 : 0 : FCz_Vtnode_GND=(latb*FCw_Vtnode_GND);
6851 : 0 : FCz_Vbi_ei=(latb*FCw_Vbi_ei);
6852 : 0 : FCz_Vbi_ci=(latb*FCw_Vbi_ci);
6853 : : #endif
6854 : 0 : FCz=(latb*FCw);
6855 : : #if defined(_DERIVATE)
6856 : 0 : FCz_1_Vci_ei=FCz_Vci_ei;
6857 : 0 : FCz_1_Vtnode_GND=FCz_Vtnode_GND;
6858 : 0 : FCz_1_Vbi_ei=FCz_Vbi_ei;
6859 : 0 : FCz_1_Vbi_ci=FCz_Vbi_ci;
6860 : : #endif
6861 : 0 : FCz_1=(1.0+FCz);
6862 : : #if defined(_DERIVATE)
6863 : 0 : FCd_f_Vci_ei=(-FCz_1_Vci_ei/FCz_1/FCz_1);
6864 : 0 : FCd_f_Vtnode_GND=(-FCz_1_Vtnode_GND/FCz_1/FCz_1);
6865 : 0 : FCd_f_Vbi_ei=(-FCz_1_Vbi_ei/FCz_1/FCz_1);
6866 : 0 : FCd_f_Vbi_ci=(-FCz_1_Vbi_ci/FCz_1/FCz_1);
6867 : : #endif
6868 : 0 : FCd_f=(1.0/FCz_1);
6869 : : #if defined(_DERIVATE)
6870 : 0 : FCf_ci_Vci_ei=((((FCw2_Vci_ei*(1.0+(FCz/3.0)))+(FCw2*(FCz_Vci_ei/3.0)))*FCd_f)+((FCw2*(1.0+(FCz/3.0)))*FCd_f_Vci_ei));
6871 : 0 : FCf_ci_Vtnode_GND=((((FCw2_Vtnode_GND*(1.0+(FCz/3.0)))+(FCw2*(FCz_Vtnode_GND/3.0)))*FCd_f)+((FCw2*(1.0+(FCz/3.0)))*FCd_f_Vtnode_GND));
6872 : 0 : FCf_ci_Vbi_ei=((((FCw2_Vbi_ei*(1.0+(FCz/3.0)))+(FCw2*(FCz_Vbi_ei/3.0)))*FCd_f)+((FCw2*(1.0+(FCz/3.0)))*FCd_f_Vbi_ei));
6873 : 0 : FCf_ci_Vbi_ci=((((FCw2_Vbi_ci*(1.0+(FCz/3.0)))+(FCw2*(FCz_Vbi_ci/3.0)))*FCd_f)+((FCw2*(1.0+(FCz/3.0)))*FCd_f_Vbi_ci));
6874 : : #endif
6875 : 0 : FCf_ci=((FCw2*(1.0+(FCz/3.0)))*FCd_f);
6876 : : #if defined(_DYNAMIC)
6877 : : #if defined(_DERIVATE)
6878 : 0 : FCdfc_dw_Vci_ei=(((((((2.0*FCw_Vci_ei)*(FCz_1+((FCz*FCz)/3.0)))+((2.0*FCw)*(FCz_1_Vci_ei+(((FCz_Vci_ei*FCz)+(FCz*FCz_Vci_ei))/3.0))))*FCd_f)+(((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f_Vci_ei))*FCd_f)+((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vci_ei));
6879 : 0 : FCdfc_dw_Vtnode_GND=(((((((2.0*FCw_Vtnode_GND)*(FCz_1+((FCz*FCz)/3.0)))+((2.0*FCw)*(FCz_1_Vtnode_GND+(((FCz_Vtnode_GND*FCz)+(FCz*FCz_Vtnode_GND))/3.0))))*FCd_f)+(((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f_Vtnode_GND))*FCd_f)+((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vtnode_GND));
6880 : 0 : FCdfc_dw_Vbi_ei=(((((((2.0*FCw_Vbi_ei)*(FCz_1+((FCz*FCz)/3.0)))+((2.0*FCw)*(FCz_1_Vbi_ei+(((FCz_Vbi_ei*FCz)+(FCz*FCz_Vbi_ei))/3.0))))*FCd_f)+(((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f_Vbi_ei))*FCd_f)+((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vbi_ei));
6881 : 0 : FCdfc_dw_Vbi_ci=(((((((2.0*FCw_Vbi_ci)*(FCz_1+((FCz*FCz)/3.0)))+((2.0*FCw)*(FCz_1_Vbi_ci+(((FCz_Vbi_ci*FCz)+(FCz*FCz_Vbi_ci))/3.0))))*FCd_f)+(((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f_Vbi_ci))*FCd_f)+((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vbi_ci));
6882 : : #endif
6883 : 0 : FCdfc_dw=((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
6884 : : #endif
6885 : : #if defined(_DYNAMIC)
6886 : : #if defined(_DERIVATE)
6887 : 0 : FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
6888 : 0 : FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
6889 : 0 : FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
6890 : 0 : FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
6891 : : #endif
6892 : 0 : FCdw_ditf=(FCdw_daick*FCdaick_ditf);
6893 : : #endif
6894 : : #if defined(_DYNAMIC)
6895 : : #if defined(_DERIVATE)
6896 : 0 : FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
6897 : 0 : FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
6898 : 0 : FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
6899 : 0 : FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
6900 : : #endif
6901 : 0 : FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
6902 : : #endif
6903 : : #ifdef _DYNAMIC
6904 [ # # ]: 0 : if
6905 : : (FCz>0.001)
6906 : : {
6907 : : #if defined(_DYNAMIC)
6908 : : {
6909 : 0 : double m00_logE(d00_logE0,FCz_1)
6910 : : #if defined(_DERIVATE)
6911 : 0 : double m10_logE(d10_logE0,d00_logE0,FCz_1)
6912 : : #endif
6913 : : #if defined(_DERIVATE)
6914 : 0 : FCf_CT_Vci_ei=(((2.0*(((FCz_1_Vci_ei*d00_logE0)+(FCz_1*FCz_1_Vci_ei*d10_logE0))-FCz_Vci_ei))*((latb*latb)*FCz_1)-(2.0*((FCz_1*d00_logE0)-FCz))*((latb*latb)*FCz_1_Vci_ei))/((latb*latb)*FCz_1)/((latb*latb)*FCz_1));
6915 : 0 : FCf_CT_Vbi_ei=(((2.0*(((FCz_1_Vbi_ei*d00_logE0)+(FCz_1*FCz_1_Vbi_ei*d10_logE0))-FCz_Vbi_ei))*((latb*latb)*FCz_1)-(2.0*((FCz_1*d00_logE0)-FCz))*((latb*latb)*FCz_1_Vbi_ei))/((latb*latb)*FCz_1)/((latb*latb)*FCz_1));
6916 : 0 : FCf_CT_Vbi_ci=(((2.0*(((FCz_1_Vbi_ci*d00_logE0)+(FCz_1*FCz_1_Vbi_ci*d10_logE0))-FCz_Vbi_ci))*((latb*latb)*FCz_1)-(2.0*((FCz_1*d00_logE0)-FCz))*((latb*latb)*FCz_1_Vbi_ci))/((latb*latb)*FCz_1)/((latb*latb)*FCz_1));
6917 : 0 : FCf_CT_Vtnode_GND=(((2.0*(((FCz_1_Vtnode_GND*d00_logE0)+(FCz_1*FCz_1_Vtnode_GND*d10_logE0))-FCz_Vtnode_GND))*((latb*latb)*FCz_1)-(2.0*((FCz_1*d00_logE0)-FCz))*((latb*latb)*FCz_1_Vtnode_GND))/((latb*latb)*FCz_1)/((latb*latb)*FCz_1));
6918 : : #endif
6919 : 0 : FCf_CT=((2.0*((FCz_1*d00_logE0)-FCz))/((latb*latb)*FCz_1));
6920 : : }
6921 : : #endif
6922 : : #if defined(_DYNAMIC)
6923 : : #if defined(_DERIVATE)
6924 : 0 : FCdfCT_dw_Vci_ei=(((((2.0*FCw_Vci_ei)*FCd_f)+((2.0*FCw)*FCd_f_Vci_ei))*FCd_f)+(((2.0*FCw)*FCd_f)*FCd_f_Vci_ei));
6925 : 0 : FCdfCT_dw_Vbi_ei=(((((2.0*FCw_Vbi_ei)*FCd_f)+((2.0*FCw)*FCd_f_Vbi_ei))*FCd_f)+(((2.0*FCw)*FCd_f)*FCd_f_Vbi_ei));
6926 : 0 : FCdfCT_dw_Vbi_ci=(((((2.0*FCw_Vbi_ci)*FCd_f)+((2.0*FCw)*FCd_f_Vbi_ci))*FCd_f)+(((2.0*FCw)*FCd_f)*FCd_f_Vbi_ci));
6927 : 0 : FCdfCT_dw_Vtnode_GND=(((((2.0*FCw_Vtnode_GND)*FCd_f)+((2.0*FCw)*FCd_f_Vtnode_GND))*FCd_f)+(((2.0*FCw)*FCd_f)*FCd_f_Vtnode_GND));
6928 : : #endif
6929 : 0 : FCdfCT_dw=(((2.0*FCw)*FCd_f)*FCd_f);
6930 : : #endif
6931 : : }
6932 : : else
6933 : : {
6934 : : #if defined(_DYNAMIC)
6935 : : #if defined(_DERIVATE)
6936 : 0 : FCf_CT_Vci_ei=((((FCw2_Vci_ei*(1.0-(FCz/3.0)))+(FCw2*(-(FCz_Vci_ei/3.0))))*FCd_f)+((FCw2*(1.0-(FCz/3.0)))*FCd_f_Vci_ei));
6937 : 0 : FCf_CT_Vbi_ei=((((FCw2_Vbi_ei*(1.0-(FCz/3.0)))+(FCw2*(-(FCz_Vbi_ei/3.0))))*FCd_f)+((FCw2*(1.0-(FCz/3.0)))*FCd_f_Vbi_ei));
6938 : 0 : FCf_CT_Vbi_ci=((((FCw2_Vbi_ci*(1.0-(FCz/3.0)))+(FCw2*(-(FCz_Vbi_ci/3.0))))*FCd_f)+((FCw2*(1.0-(FCz/3.0)))*FCd_f_Vbi_ci));
6939 : 0 : FCf_CT_Vtnode_GND=((((FCw2_Vtnode_GND*(1.0-(FCz/3.0)))+(FCw2*(-(FCz_Vtnode_GND/3.0))))*FCd_f)+((FCw2*(1.0-(FCz/3.0)))*FCd_f_Vtnode_GND));
6940 : : #endif
6941 : 0 : FCf_CT=((FCw2*(1.0-(FCz/3.0)))*FCd_f);
6942 : : #endif
6943 : : #if defined(_DYNAMIC)
6944 : : #if defined(_DERIVATE)
6945 : 0 : FCdfCT_dw_Vci_ei=(((((((2.0*FCw_Vci_ei)*(1.0-((FCz*FCz)/3.0)))+((2.0*FCw)*(-(((FCz_Vci_ei*FCz)+(FCz*FCz_Vci_ei))/3.0))))*FCd_f)+(((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f_Vci_ei))*FCd_f)+((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vci_ei));
6946 : 0 : FCdfCT_dw_Vbi_ei=(((((((2.0*FCw_Vbi_ei)*(1.0-((FCz*FCz)/3.0)))+((2.0*FCw)*(-(((FCz_Vbi_ei*FCz)+(FCz*FCz_Vbi_ei))/3.0))))*FCd_f)+(((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f_Vbi_ei))*FCd_f)+((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vbi_ei));
6947 : 0 : FCdfCT_dw_Vbi_ci=(((((((2.0*FCw_Vbi_ci)*(1.0-((FCz*FCz)/3.0)))+((2.0*FCw)*(-(((FCz_Vbi_ci*FCz)+(FCz*FCz_Vbi_ci))/3.0))))*FCd_f)+(((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f_Vbi_ci))*FCd_f)+((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vbi_ci));
6948 : 0 : FCdfCT_dw_Vtnode_GND=(((((((2.0*FCw_Vtnode_GND)*(1.0-((FCz*FCz)/3.0)))+((2.0*FCw)*(-(((FCz_Vtnode_GND*FCz)+(FCz*FCz_Vtnode_GND))/3.0))))*FCd_f)+(((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f_Vtnode_GND))*FCd_f)+((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f_Vtnode_GND));
6949 : : #endif
6950 : 0 : FCdfCT_dw=((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
6951 : : #endif
6952 : : }
6953 : : #endif /* if (...) */
6954 : : #if defined(_DYNAMIC)
6955 : : #if defined(_DERIVATE)
6956 : 0 : FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
6957 : 0 : FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
6958 : 0 : FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
6959 : 0 : FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
6960 : : #endif
6961 : 0 : FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
6962 : : #endif
6963 : : }
6964 : : #if defined(_DYNAMIC)
6965 : : #if defined(_DERIVATE)
6966 : 5 : FFQ_cT_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_CT)+(FFQ_fC*FCf_CT_Vtnode_GND));
6967 : 5 : FFQ_cT_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ei));
6968 : 5 : FFQ_cT_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ci));
6969 : 5 : FFQ_cT_Vci_ei=((FFQ_fC_Vci_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vci_ei));
6970 : : #endif
6971 : 5 : FFQ_cT=(FFQ_fC*FCf_CT);
6972 : : #endif
6973 : : #if defined(_DERIVATE)
6974 : 5 : FFQ_fC_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_ci)+(FFQ_fC*FCf_ci_Vtnode_GND));
6975 : 5 : FFQ_fC_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ei));
6976 : 5 : FFQ_fC_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ci));
6977 : 5 : FFQ_fC_Vci_ei=((FFQ_fC_Vci_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vci_ei));
6978 : : #endif
6979 : 5 : FFQ_fC=(FFQ_fC*FCf_ci);
6980 : : #if defined(_DYNAMIC)
6981 : : #if defined(_DERIVATE)
6982 : 5 : FFT_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*(FCf_ci+(itf*FCdfc_ditf)))+(FFT_pcS*(FCf_ci_Vtnode_GND+((itf_Vtnode_GND*FCdfc_ditf)+(itf*FCdfc_ditf_Vtnode_GND)))));
6983 : 5 : FFT_fC_Vci_ei=(FFT_pcS*(FCf_ci_Vci_ei+((itf_Vci_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vci_ei))));
6984 : 5 : FFT_fC_Vbi_ei=(FFT_pcS*(FCf_ci_Vbi_ei+((itf_Vbi_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ei))));
6985 : 5 : FFT_fC_Vbi_ci=(FFT_pcS*(FCf_ci_Vbi_ci+((itf_Vbi_ci*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ci))));
6986 : : #endif
6987 : 5 : FFT_fC=(FFT_pcS*(FCf_ci+(itf*FCdfc_ditf)));
6988 : : #endif
6989 : : #if defined(_DYNAMIC)
6990 : : #if defined(_DERIVATE)
6991 : 5 : FFT_cT_Vtnode_GND=((FFT_pcS_Vtnode_GND*(FCf_CT+(itf*FCdfCT_ditf)))+(FFT_pcS*(FCf_CT_Vtnode_GND+((itf_Vtnode_GND*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vtnode_GND)))));
6992 : 5 : FFT_cT_Vci_ei=(FFT_pcS*(FCf_CT_Vci_ei+((itf_Vci_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vci_ei))));
6993 : 5 : FFT_cT_Vbi_ei=(FFT_pcS*(FCf_CT_Vbi_ei+((itf_Vbi_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ei))));
6994 : 5 : FFT_cT_Vbi_ci=(FFT_pcS*(FCf_CT_Vbi_ci+((itf_Vbi_ci*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ci))));
6995 : : #endif
6996 : 5 : FFT_cT=(FFT_pcS*(FCf_CT+(itf*FCdfCT_ditf)));
6997 : : #endif
6998 : : }
6999 : : #if defined(_DERIVATE)
7000 : 5 : Qf_Vci_ei=(Qf_Vci_ei+FFd_QfB_Vci_ei);
7001 : 5 : Qf_Vtnode_GND=(Qf_Vtnode_GND+FFd_QfB_Vtnode_GND);
7002 : 5 : Qf_Vbi_ci=(Qf_Vbi_ci+FFd_QfB_Vbi_ci);
7003 : 5 : Qf_Vbi_ei=(Qf_Vbi_ei+FFd_QfB_Vbi_ei);
7004 : : #endif
7005 : 5 : Qf=(Qf+FFd_QfB);
7006 : : #if defined(_DYNAMIC)
7007 : : #if defined(_DERIVATE)
7008 : 5 : Tf_Vci_ei=(Tf_Vci_ei+FFd_TfB_Vci_ei);
7009 : 5 : Tf_Vtnode_GND=(Tf_Vtnode_GND+FFd_TfB_Vtnode_GND);
7010 : 5 : Tf_Vbi_ci=(Tf_Vbi_ci+FFd_TfB_Vbi_ci);
7011 : 5 : Tf_Vbi_ei=(Tf_Vbi_ei+FFd_TfB_Vbi_ei);
7012 : : #endif
7013 : 5 : Tf=(Tf+FFd_TfB);
7014 : : #endif
7015 : : #if defined(_DYNAMIC)
7016 : : #if defined(_DERIVATE)
7017 : 5 : Q_fT_Vci_ei=((Qf_Vci_ei+(hfe*FFd_QfE_Vci_ei))+(hfc*FFQ_cT_Vci_ei));
7018 : 5 : Q_fT_Vtnode_GND=((Qf_Vtnode_GND+(hfe*FFd_QfE_Vtnode_GND))+(hfc*FFQ_cT_Vtnode_GND));
7019 : 5 : Q_fT_Vbi_ci=((Qf_Vbi_ci+(hfe*FFd_QfE_Vbi_ci))+(hfc*FFQ_cT_Vbi_ci));
7020 : 5 : Q_fT_Vbi_ei=((Qf_Vbi_ei+(hfe*FFd_QfE_Vbi_ei))+(hfc*FFQ_cT_Vbi_ei));
7021 : : #endif
7022 : 5 : Q_fT=((Qf+(hfe*FFd_QfE))+(hfc*FFQ_cT));
7023 : : #endif
7024 : : #if defined(_DYNAMIC)
7025 : : #if defined(_DERIVATE)
7026 : 5 : T_fT_Vci_ei=((Tf_Vci_ei+(hfe*FFd_TfE_Vci_ei))+(hfc*FFT_cT_Vci_ei));
7027 : 5 : T_fT_Vtnode_GND=((Tf_Vtnode_GND+(hfe*FFd_TfE_Vtnode_GND))+(hfc*FFT_cT_Vtnode_GND));
7028 : 5 : T_fT_Vbi_ci=((Tf_Vbi_ci+(hfe*FFd_TfE_Vbi_ci))+(hfc*FFT_cT_Vbi_ci));
7029 : 5 : T_fT_Vbi_ei=((Tf_Vbi_ei+(hfe*FFd_TfE_Vbi_ei))+(hfc*FFT_cT_Vbi_ei));
7030 : : #endif
7031 : 5 : T_fT=((Tf+(hfe*FFd_TfE))+(hfc*FFT_cT));
7032 : : #endif
7033 : : #if defined(_DERIVATE)
7034 : 5 : Qf_Vci_ei=((Qf_Vci_ei+FFd_QfE_Vci_ei)+FFQ_fC_Vci_ei);
7035 : 5 : Qf_Vtnode_GND=((Qf_Vtnode_GND+FFd_QfE_Vtnode_GND)+FFQ_fC_Vtnode_GND);
7036 : 5 : Qf_Vbi_ci=((Qf_Vbi_ci+FFd_QfE_Vbi_ci)+FFQ_fC_Vbi_ci);
7037 : 5 : Qf_Vbi_ei=((Qf_Vbi_ei+FFd_QfE_Vbi_ei)+FFQ_fC_Vbi_ei);
7038 : : #endif
7039 : 5 : Qf=((Qf+FFd_QfE)+FFQ_fC);
7040 : : #if defined(_DYNAMIC)
7041 : : #if defined(_DERIVATE)
7042 : 5 : Tf_Vci_ei=((Tf_Vci_ei+FFd_TfE_Vci_ei)+FFT_fC_Vci_ei);
7043 : 5 : Tf_Vtnode_GND=((Tf_Vtnode_GND+FFd_TfE_Vtnode_GND)+FFT_fC_Vtnode_GND);
7044 : 5 : Tf_Vbi_ci=((Tf_Vbi_ci+FFd_TfE_Vbi_ci)+FFT_fC_Vbi_ci);
7045 : 5 : Tf_Vbi_ei=((Tf_Vbi_ei+FFd_TfE_Vbi_ei)+FFT_fC_Vbi_ei);
7046 : : #endif
7047 : 5 : Tf=((Tf+FFd_TfE)+FFT_fC);
7048 : : #endif
7049 : : }
7050 : : #if defined(_DYNAMIC)
7051 : : #if defined(_DERIVATE)
7052 : 5 : Qr_Vci_ei=(Tr*itr_Vci_ei);
7053 : 5 : Qr_Vtnode_GND=(Tr*itr_Vtnode_GND);
7054 : 5 : Qr_Vbi_ci=(Tr*itr_Vbi_ci);
7055 : 5 : Qr_Vbi_ei=(Tr*itr_Vbi_ei);
7056 : : #endif
7057 : 5 : Qr=(Tr*itr);
7058 : : #endif
7059 : : }
7060 : : #if defined(_DERIVATE)
7061 : 6 : it_Vci_ei=(itf_Vci_ei-itr_Vci_ei);
7062 : 6 : it_Vtnode_GND=(itf_Vtnode_GND-itr_Vtnode_GND);
7063 : 6 : it_Vbi_ei=(itf_Vbi_ei-itr_Vbi_ei);
7064 : 6 : it_Vbi_ci=(itf_Vbi_ci-itr_Vbi_ci);
7065 : : #endif
7066 : 6 : it=(itf-itr);
7067 : : #if defined(_DYNAMIC)
7068 : : #if defined(_DERIVATE)
7069 : 6 : Qdei_Vci_ei=Qf_Vci_ei;
7070 : 6 : Qdei_Vtnode_GND=Qf_Vtnode_GND;
7071 : 6 : Qdei_Vbi_ci=Qf_Vbi_ci;
7072 : 6 : Qdei_Vbi_ei=Qf_Vbi_ei;
7073 : : #endif
7074 : 6 : Qdei=Qf;
7075 : : #endif
7076 : : #if defined(_DYNAMIC)
7077 : : #if defined(_DERIVATE)
7078 : 6 : Qdci_Vci_ei=Qr_Vci_ei;
7079 : 6 : Qdci_Vtnode_GND=Qr_Vtnode_GND;
7080 : 6 : Qdci_Vbi_ci=Qr_Vbi_ci;
7081 : 6 : Qdci_Vbi_ei=Qr_Vbi_ei;
7082 : : #endif
7083 : 6 : Qdci=Qr;
7084 : : #endif
7085 : : #if defined(_DYNAMIC)
7086 : : #if defined(_DERIVATE)
7087 : 6 : qrbi_Vtnode_GND=(fcrbi*(((Qjei_Vtnode_GND+Qdei_Vtnode_GND)+Qjci_Vtnode_GND)+Qdci_Vtnode_GND));
7088 : 6 : qrbi_Vbi_ei=(fcrbi*(((Qjei_Vbi_ei+Qdei_Vbi_ei)+Qjci_Vbi_ei)+Qdci_Vbi_ei));
7089 : 6 : qrbi_Vci_ei=(fcrbi*(Qdei_Vci_ei+Qdci_Vci_ei));
7090 : 6 : qrbi_Vbi_ci=(fcrbi*((Qdei_Vbi_ci+Qjci_Vbi_ci)+Qdci_Vbi_ci));
7091 : : #endif
7092 : 6 : qrbi=(fcrbi*(((Qjei+Qdei)+Qjci)+Qdci));
7093 : : #endif
7094 : : #if defined(_DERIVATE)
7095 : 6 : DIOY_Vsi_ci=0.0;
7096 : 6 : DIOY_Vbp_ci=0.0;
7097 : 6 : DIOY_Vbp_ei=0.0;
7098 : 6 : DIOY_Vbi_ci=(1/(mbci*VT));
7099 : 6 : DIOY_Vbi_ei=0.0;
7100 [ + - ]: 6 : DIOY_Vtnode_GND=(-BP(bi,ci)*(mbci*VT_Vtnode_GND)/(mbci*VT)/(mbci*VT));
7101 : : #endif
7102 [ + - ]: 6 : DIOY=(BP(bi,ci)/(mbci*VT));
7103 [ + - ]: 6 : if
7104 : : (ibcis>0.0)
7105 : : {
7106 [ - + ]: 6 : if
7107 : : (DIOY>80.0)
7108 : : {
7109 : : #if defined(_DERIVATE)
7110 : 0 : le_Vsi_ci=0.0;
7111 : 0 : le_Vbp_ci=0.0;
7112 : 0 : le_Vbp_ei=0.0;
7113 : 0 : le_Vbi_ci=DIOY_Vbi_ci;
7114 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
7115 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
7116 : : #endif
7117 : 0 : le=(1+(DIOY-80.0));
7118 : : #if defined(_DERIVATE)
7119 : 0 : DIOY_Vsi_ci=0.0;
7120 : 0 : DIOY_Vbp_ci=0.0;
7121 : 0 : DIOY_Vbp_ei=0.0;
7122 : 0 : DIOY_Vbi_ci=0.0;
7123 : 0 : DIOY_Vbi_ei=0.0;
7124 : 0 : DIOY_Vtnode_GND=0.0;
7125 : : #endif
7126 : 0 : DIOY=80.0;
7127 : : }
7128 : : else
7129 : : {
7130 : : #if defined(_DERIVATE)
7131 : 6 : le_Vsi_ci=0.0;
7132 : 6 : le_Vbp_ci=0.0;
7133 : 6 : le_Vbp_ei=0.0;
7134 : 6 : le_Vbi_ci=0.0;
7135 : 6 : le_Vbi_ei=0.0;
7136 : 6 : le_Vtnode_GND=0.0;
7137 : : #endif
7138 : 6 : le=1;
7139 : : }
7140 : : {
7141 [ + - ]: 6 : double m00_limexp(d00_limexp0,DIOY)
7142 : : #if defined(_DERIVATE)
7143 [ + - ]: 6 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
7144 : : #endif
7145 : : #if defined(_DERIVATE)
7146 : 6 : le_Vsi_ci=0.0;
7147 : 6 : le_Vbp_ci=0.0;
7148 : 6 : le_Vbp_ei=0.0;
7149 : 6 : le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
7150 : 6 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
7151 : 6 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
7152 : : #endif
7153 : 6 : le=(le*d00_limexp0);
7154 : : }
7155 : : #if defined(_DERIVATE)
7156 : 6 : ibci_Vtnode_GND=((ibcis_t_Vtnode_GND*(le-1.0))+(ibcis_t*le_Vtnode_GND));
7157 : 6 : ibci_Vbi_ci=(ibcis_t*le_Vbi_ci);
7158 : 6 : ibci_Vbi_ei=(ibcis_t*le_Vbi_ei);
7159 : : #endif
7160 : 6 : ibci=(ibcis_t*(le-1.0));
7161 [ + + ]: 6 : if
7162 : : (DIOY<=(-14.0))
7163 : : {
7164 : : #if defined(_DERIVATE)
7165 : 5 : ibci_Vtnode_GND=(-ibcis_t_Vtnode_GND);
7166 : 5 : ibci_Vbi_ci=0.0;
7167 : 5 : ibci_Vbi_ei=0.0;
7168 : : #endif
7169 : 5 : ibci=(-ibcis_t);
7170 : : }
7171 : : }
7172 : : else
7173 : : {
7174 : : #if defined(_DERIVATE)
7175 : 0 : ibci_Vtnode_GND=0.0;
7176 : 0 : ibci_Vbi_ci=0.0;
7177 : 0 : ibci_Vbi_ei=0.0;
7178 : : #endif
7179 : 0 : ibci=0.0;
7180 : : }
7181 [ + + ][ + - ]: 12 : if
[ + - ][ + + ]
7182 [ + - ][ + - ]: 12 : (((BP(bi,ci)<0.0)&&(favl_t>0.0))&&(cjci0_t>0.0))
[ + - ][ + - ]
[ # # # # ]
7183 : : {
7184 : : #if defined(_DERIVATE)
7185 : 5 : AVLv_bord_Vtnode_GND=vdci_t_Vtnode_GND;
7186 : 5 : AVLv_bord_Vbi_ci=(-1.0);
7187 : : #endif
7188 [ + - ]: 5 : AVLv_bord=(vdci_t-BP(bi,ci));
7189 : : #if defined(_DERIVATE)
7190 : 5 : AVLv_q_Vtnode_GND=((qavl_t_Vtnode_GND*Cjci-qavl_t*Cjci_Vtnode_GND)/Cjci/Cjci);
7191 : 5 : AVLv_q_Vbi_ei=(-qavl_t*Cjci_Vbi_ei/Cjci/Cjci);
7192 : 5 : AVLv_q_Vbi_ci=(-qavl_t*Cjci_Vbi_ci/Cjci/Cjci);
7193 : : #endif
7194 : 5 : AVLv_q=(qavl_t/Cjci);
7195 : : #if defined(_DERIVATE)
7196 : 5 : AVLU0_Vtnode_GND=((qavl_t_Vtnode_GND*cjci0_t-qavl_t*cjci0_t_Vtnode_GND)/cjci0_t/cjci0_t);
7197 : : #endif
7198 : 5 : AVLU0=(qavl_t/cjci0_t);
7199 [ - + ]: 5 : if
7200 : : (AVLv_bord>AVLU0)
7201 : : {
7202 : : {
7203 : 0 : double m00_exp(d00_exp0,((-AVLv_q)/AVLU0))
7204 : : #if defined(_DERIVATE)
7205 : : #define d10_exp0 d00_exp0
7206 : : #endif
7207 : : #if defined(_DERIVATE)
7208 : 0 : AVLa_Vtnode_GND=((favl_t_Vtnode_GND*d00_exp0)+(favl_t*(((-AVLv_q_Vtnode_GND)*AVLU0-(-AVLv_q)*AVLU0_Vtnode_GND)/AVLU0/AVLU0)*d10_exp0));
7209 : 0 : AVLa_Vbi_ei=(favl_t*((-AVLv_q_Vbi_ei)/AVLU0)*d10_exp0);
7210 : 0 : AVLa_Vbi_ci=(favl_t*((-AVLv_q_Vbi_ci)/AVLU0)*d10_exp0);
7211 : : #endif
7212 : 0 : AVLa=(favl_t*d00_exp0);
7213 : : }
7214 : : #if defined(_DERIVATE)
7215 : 0 : AVLS_avl_Vtnode_GND=((AVLa_Vtnode_GND*(AVLU0+((1.0+(AVLv_q/AVLU0))*(AVLv_bord-AVLU0))))+(AVLa*(AVLU0_Vtnode_GND+((((AVLv_q_Vtnode_GND*AVLU0-AVLv_q*AVLU0_Vtnode_GND)/AVLU0/AVLU0)*(AVLv_bord-AVLU0))+((1.0+(AVLv_q/AVLU0))*(AVLv_bord_Vtnode_GND-AVLU0_Vtnode_GND))))));
7216 : 0 : AVLS_avl_Vbi_ei=((AVLa_Vbi_ei*(AVLU0+((1.0+(AVLv_q/AVLU0))*(AVLv_bord-AVLU0))))+(AVLa*(AVLv_q_Vbi_ei/AVLU0)*(AVLv_bord-AVLU0)));
7217 : 0 : AVLS_avl_Vbi_ci=((AVLa_Vbi_ci*(AVLU0+((1.0+(AVLv_q/AVLU0))*(AVLv_bord-AVLU0))))+(AVLa*(((AVLv_q_Vbi_ci/AVLU0)*(AVLv_bord-AVLU0))+((1.0+(AVLv_q/AVLU0))*AVLv_bord_Vbi_ci))));
7218 : : #endif
7219 : 0 : AVLS_avl=(AVLa*(AVLU0+((1.0+(AVLv_q/AVLU0))*(AVLv_bord-AVLU0))));
7220 : : }
7221 : : else
7222 : : {
7223 : : {
7224 : 5 : double m00_exp(d00_exp0,((-AVLv_q)/AVLv_bord))
7225 : : #if defined(_DERIVATE)
7226 : : #define d10_exp0 d00_exp0
7227 : : #endif
7228 : : #if defined(_DERIVATE)
7229 : 5 : AVLS_avl_Vtnode_GND=((((favl_t_Vtnode_GND*AVLv_bord)+(favl_t*AVLv_bord_Vtnode_GND))*d00_exp0)+((favl_t*AVLv_bord)*(((-AVLv_q_Vtnode_GND)*AVLv_bord-(-AVLv_q)*AVLv_bord_Vtnode_GND)/AVLv_bord/AVLv_bord)*d10_exp0));
7230 : 5 : AVLS_avl_Vbi_ei=((favl_t*AVLv_bord)*((-AVLv_q_Vbi_ei)/AVLv_bord)*d10_exp0);
7231 : 5 : AVLS_avl_Vbi_ci=(((favl_t*AVLv_bord_Vbi_ci)*d00_exp0)+((favl_t*AVLv_bord)*(((-AVLv_q_Vbi_ci)*AVLv_bord-(-AVLv_q)*AVLv_bord_Vbi_ci)/AVLv_bord/AVLv_bord)*d10_exp0));
7232 : : #endif
7233 : 5 : AVLS_avl=((favl_t*AVLv_bord)*d00_exp0);
7234 : : }
7235 : : }
7236 : : #if defined(_DERIVATE)
7237 : 5 : iavl_Vci_ei=itf_Vci_ei*AVLS_avl;
7238 : 5 : iavl_Vtnode_GND=((itf_Vtnode_GND*AVLS_avl)+(itf*AVLS_avl_Vtnode_GND));
7239 : 5 : iavl_Vbi_ei=((itf_Vbi_ei*AVLS_avl)+(itf*AVLS_avl_Vbi_ei));
7240 : 5 : iavl_Vbi_ci=((itf_Vbi_ci*AVLS_avl)+(itf*AVLS_avl_Vbi_ci));
7241 : : #endif
7242 : 5 : iavl=(itf*AVLS_avl);
7243 : : }
7244 : : else
7245 : : {
7246 : : #if defined(_DERIVATE)
7247 : 1 : iavl_Vci_ei=0.0;
7248 : 1 : iavl_Vtnode_GND=0.0;
7249 : 1 : iavl_Vbi_ei=0.0;
7250 : 1 : iavl_Vbi_ci=0.0;
7251 : : #endif
7252 : 1 : iavl=0.0;
7253 : : }
7254 [ + - ]: 6 : if
7255 : : (rbi0_t>0.0)
7256 : : {
7257 : : #if defined(_DERIVATE)
7258 : 6 : f_QR_Vtnode_GND=((1+fdqr0)*qp0_t_Vtnode_GND);
7259 : : #endif
7260 : 6 : f_QR=((1+fdqr0)*qp0_t);
7261 : : #if defined(_DERIVATE)
7262 : 6 : Qz_Vtnode_GND=(Qjei_Vtnode_GND+Qf_Vtnode_GND);
7263 : 6 : Qz_Vbi_ei=(Qjei_Vbi_ei+Qf_Vbi_ei);
7264 : 6 : Qz_Vci_ei=Qf_Vci_ei;
7265 : 6 : Qz_Vbi_ci=Qf_Vbi_ci;
7266 : : #endif
7267 : 6 : Qz=(Qjei+Qf);
7268 [ + - ]: 6 : if
7269 : : (Qf>0.0)
7270 : : {
7271 : : #if defined(_DERIVATE)
7272 : 6 : Q_fi_Vci_ei=Qf_Vci_ei*fqi;
7273 : 6 : Q_fi_Vtnode_GND=Qf_Vtnode_GND*fqi;
7274 : 6 : Q_fi_Vbi_ci=Qf_Vbi_ci*fqi;
7275 : 6 : Q_fi_Vbi_ei=Qf_Vbi_ei*fqi;
7276 : : #endif
7277 : 6 : Q_fi=(Qf*fqi);
7278 : : #if defined(_DERIVATE)
7279 : 6 : f_p_Vtnode_GND=(((Qjei_Vtnode_GND+Q_fi_Vtnode_GND)*Qz-(Qjei+Q_fi)*Qz_Vtnode_GND)/Qz/Qz);
7280 : 6 : f_p_Vbi_ei=(((Qjei_Vbi_ei+Q_fi_Vbi_ei)*Qz-(Qjei+Q_fi)*Qz_Vbi_ei)/Qz/Qz);
7281 : 6 : f_p_Vci_ei=((Q_fi_Vci_ei*Qz-(Qjei+Q_fi)*Qz_Vci_ei)/Qz/Qz);
7282 : 6 : f_p_Vbi_ci=((Q_fi_Vbi_ci*Qz-(Qjei+Q_fi)*Qz_Vbi_ci)/Qz/Qz);
7283 : : #endif
7284 : 6 : f_p=((Qjei+Q_fi)/Qz);
7285 : : }
7286 : : else
7287 : : {
7288 : : #if defined(_DERIVATE)
7289 : 0 : f_p_Vtnode_GND=0.0;
7290 : 0 : f_p_Vbi_ei=0.0;
7291 : 0 : f_p_Vci_ei=0.0;
7292 : 0 : f_p_Vbi_ci=0.0;
7293 : : #endif
7294 : 0 : f_p=1.0;
7295 : : }
7296 : : #if defined(_DERIVATE)
7297 : 6 : rbi_Vtnode_GND=((((rbi0_t_Vtnode_GND*f_QR)+(rbi0_t*f_QR_Vtnode_GND))*(f_QR+Qz)-(rbi0_t*f_QR)*(f_QR_Vtnode_GND+Qz_Vtnode_GND))/(f_QR+Qz)/(f_QR+Qz));
7298 : 6 : rbi_Vbi_ei=(-(rbi0_t*f_QR)*Qz_Vbi_ei/(f_QR+Qz)/(f_QR+Qz));
7299 : 6 : rbi_Vci_ei=(-(rbi0_t*f_QR)*Qz_Vci_ei/(f_QR+Qz)/(f_QR+Qz));
7300 : 6 : rbi_Vbi_ci=(-(rbi0_t*f_QR)*Qz_Vbi_ci/(f_QR+Qz)/(f_QR+Qz));
7301 : : #endif
7302 : 6 : rbi=((rbi0_t*f_QR)/(f_QR+Qz));
7303 : : #if defined(_DERIVATE)
7304 : 6 : I_BI_Vtnode_GND=ibei_Vtnode_GND;
7305 : 6 : I_BI_Vbi_ei=ibei_Vbi_ei;
7306 : : #endif
7307 : 6 : I_BI=ibei;
7308 [ + + ]: 6 : if
7309 : : (I_BI>=1.0e-20)
7310 : : {
7311 : : #if defined(_DERIVATE)
7312 : 5 : ETA_Vtnode_GND=((((rbi_Vtnode_GND*I_BI)+(rbi*I_BI_Vtnode_GND))*fgeo*VT-((rbi*I_BI)*fgeo)*VT_Vtnode_GND)/VT/VT);
7313 : 5 : ETA_Vbi_ei=(((rbi_Vbi_ei*I_BI)+(rbi*I_BI_Vbi_ei))*fgeo/VT);
7314 : 5 : ETA_Vci_ei=(rbi_Vci_ei*I_BI*fgeo/VT);
7315 : 5 : ETA_Vbi_ci=(rbi_Vbi_ci*I_BI*fgeo/VT);
7316 : : #endif
7317 : 5 : ETA=(((rbi*I_BI)*fgeo)/VT);
7318 [ - + ]: 5 : if
7319 : : (ETA>=1.0e-3)
7320 : : {
7321 [ # # ]: 0 : if
7322 : : (ETA<0.02)
7323 : : {
7324 : : #if defined(_DERIVATE)
7325 : 0 : rbi_Vtnode_GND=((rbi_Vtnode_GND*(1.0-(0.5*ETA)))+(rbi*(-(0.5*ETA_Vtnode_GND))));
7326 : 0 : rbi_Vbi_ei=((rbi_Vbi_ei*(1.0-(0.5*ETA)))+(rbi*(-(0.5*ETA_Vbi_ei))));
7327 : 0 : rbi_Vci_ei=((rbi_Vci_ei*(1.0-(0.5*ETA)))+(rbi*(-(0.5*ETA_Vci_ei))));
7328 : 0 : rbi_Vbi_ci=((rbi_Vbi_ci*(1.0-(0.5*ETA)))+(rbi*(-(0.5*ETA_Vbi_ci))));
7329 : : #endif
7330 : 0 : rbi=(rbi*(1.0-(0.5*ETA)));
7331 : : }
7332 : : else
7333 : : {
7334 : : {
7335 : 0 : double m00_logE(d00_logE0,(1.0+ETA))
7336 : : #if defined(_DERIVATE)
7337 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+ETA))
7338 : : #endif
7339 : : #if defined(_DERIVATE)
7340 : 0 : rbi_Vtnode_GND=((((rbi_Vtnode_GND*d00_logE0)+(rbi*ETA_Vtnode_GND*d10_logE0))*ETA-(rbi*d00_logE0)*ETA_Vtnode_GND)/ETA/ETA);
7341 : 0 : rbi_Vbi_ei=((((rbi_Vbi_ei*d00_logE0)+(rbi*ETA_Vbi_ei*d10_logE0))*ETA-(rbi*d00_logE0)*ETA_Vbi_ei)/ETA/ETA);
7342 : 0 : rbi_Vci_ei=((((rbi_Vci_ei*d00_logE0)+(rbi*ETA_Vci_ei*d10_logE0))*ETA-(rbi*d00_logE0)*ETA_Vci_ei)/ETA/ETA);
7343 : 0 : rbi_Vbi_ci=((((rbi_Vbi_ci*d00_logE0)+(rbi*ETA_Vbi_ci*d10_logE0))*ETA-(rbi*d00_logE0)*ETA_Vbi_ci)/ETA/ETA);
7344 : : #endif
7345 : 0 : rbi=((rbi*d00_logE0)/ETA);
7346 : : }
7347 : : }
7348 : : }
7349 : : }
7350 : : #if defined(_DERIVATE)
7351 : 6 : rbi_Vtnode_GND=((rbi_Vtnode_GND*f_p)+(rbi*f_p_Vtnode_GND));
7352 : 6 : rbi_Vbi_ei=((rbi_Vbi_ei*f_p)+(rbi*f_p_Vbi_ei));
7353 : 6 : rbi_Vci_ei=((rbi_Vci_ei*f_p)+(rbi*f_p_Vci_ei));
7354 : 6 : rbi_Vbi_ci=((rbi_Vbi_ci*f_p)+(rbi*f_p_Vbi_ci));
7355 : : #endif
7356 : 6 : rbi=(rbi*f_p);
7357 : : }
7358 : : else
7359 : : {
7360 : : #if defined(_DERIVATE)
7361 : 0 : rbi_Vtnode_GND=0.0;
7362 : 0 : rbi_Vbi_ei=0.0;
7363 : 0 : rbi_Vci_ei=0.0;
7364 : 0 : rbi_Vbi_ci=0.0;
7365 : : #endif
7366 : 0 : rbi=0.0;
7367 : : }
7368 : : #if defined(_DERIVATE)
7369 : 6 : DIOY_Vsi_ci=0.0;
7370 : 6 : DIOY_Vbp_ci=0.0;
7371 : 6 : DIOY_Vbp_ei=(1/(mbep*VT));
7372 : 6 : DIOY_Vbi_ci=0.0;
7373 : 6 : DIOY_Vbi_ei=0.0;
7374 [ + - ]: 6 : DIOY_Vtnode_GND=(-BP(bp,ei)*(mbep*VT_Vtnode_GND)/(mbep*VT)/(mbep*VT));
7375 : : #endif
7376 [ + - ]: 6 : DIOY=(BP(bp,ei)/(mbep*VT));
7377 [ + - ]: 6 : if
7378 : : (ibeps>0.0)
7379 : : {
7380 [ - + ]: 6 : if
7381 : : (DIOY>80.0)
7382 : : {
7383 : : #if defined(_DERIVATE)
7384 : 0 : le_Vsi_ci=0.0;
7385 : 0 : le_Vbp_ci=0.0;
7386 : 0 : le_Vbp_ei=DIOY_Vbp_ei;
7387 : 0 : le_Vbi_ci=DIOY_Vbi_ci;
7388 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
7389 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
7390 : : #endif
7391 : 0 : le=(1+(DIOY-80.0));
7392 : : #if defined(_DERIVATE)
7393 : 0 : DIOY_Vsi_ci=0.0;
7394 : 0 : DIOY_Vbp_ci=0.0;
7395 : 0 : DIOY_Vbp_ei=0.0;
7396 : 0 : DIOY_Vbi_ci=0.0;
7397 : 0 : DIOY_Vbi_ei=0.0;
7398 : 0 : DIOY_Vtnode_GND=0.0;
7399 : : #endif
7400 : 0 : DIOY=80.0;
7401 : : }
7402 : : else
7403 : : {
7404 : : #if defined(_DERIVATE)
7405 : 6 : le_Vsi_ci=0.0;
7406 : 6 : le_Vbp_ci=0.0;
7407 : 6 : le_Vbp_ei=0.0;
7408 : 6 : le_Vbi_ci=0.0;
7409 : 6 : le_Vbi_ei=0.0;
7410 : 6 : le_Vtnode_GND=0.0;
7411 : : #endif
7412 : 6 : le=1;
7413 : : }
7414 : : {
7415 [ + - ]: 6 : double m00_limexp(d00_limexp0,DIOY)
7416 : : #if defined(_DERIVATE)
7417 [ + - ]: 6 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
7418 : : #endif
7419 : : #if defined(_DERIVATE)
7420 : 6 : le_Vsi_ci=0.0;
7421 : 6 : le_Vbp_ci=0.0;
7422 : 6 : le_Vbp_ei=((le_Vbp_ei*d00_limexp0)+(le*DIOY_Vbp_ei*d10_limexp0));
7423 : 6 : le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
7424 : 6 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
7425 : 6 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
7426 : : #endif
7427 : 6 : le=(le*d00_limexp0);
7428 : : }
7429 : : #if defined(_DERIVATE)
7430 : 6 : ibep_Vtnode_GND=((ibeps_t_Vtnode_GND*(le-1.0))+(ibeps_t*le_Vtnode_GND));
7431 : 6 : ibep_Vbp_ei=(ibeps_t*le_Vbp_ei);
7432 : 6 : ibep_Vbi_ci=(ibeps_t*le_Vbi_ci);
7433 : 6 : ibep_Vbi_ei=(ibeps_t*le_Vbi_ei);
7434 : : #endif
7435 : 6 : ibep=(ibeps_t*(le-1.0));
7436 [ - + ]: 6 : if
7437 : : (DIOY<=(-14.0))
7438 : : {
7439 : : #if defined(_DERIVATE)
7440 : 0 : ibep_Vtnode_GND=(-ibeps_t_Vtnode_GND);
7441 : 0 : ibep_Vbp_ei=0.0;
7442 : 0 : ibep_Vbi_ci=0.0;
7443 : 0 : ibep_Vbi_ei=0.0;
7444 : : #endif
7445 : 0 : ibep=(-ibeps_t);
7446 : : }
7447 : : }
7448 : : else
7449 : : {
7450 : : #if defined(_DERIVATE)
7451 : 0 : ibep_Vtnode_GND=0.0;
7452 : 0 : ibep_Vbp_ei=0.0;
7453 : 0 : ibep_Vbi_ci=0.0;
7454 : 0 : ibep_Vbi_ei=0.0;
7455 : : #endif
7456 : 0 : ibep=0.0;
7457 : : }
7458 : : #if defined(_DERIVATE)
7459 : 6 : DIOY_Vsi_ci=0.0;
7460 : 6 : DIOY_Vbp_ci=0.0;
7461 : 6 : DIOY_Vbp_ei=(1/(mrep*VT));
7462 : 6 : DIOY_Vbi_ci=0.0;
7463 : 6 : DIOY_Vbi_ei=0.0;
7464 [ + - ]: 6 : DIOY_Vtnode_GND=(-BP(bp,ei)*(mrep*VT_Vtnode_GND)/(mrep*VT)/(mrep*VT));
7465 : : #endif
7466 [ + - ]: 6 : DIOY=(BP(bp,ei)/(mrep*VT));
7467 [ + - ]: 6 : if
7468 : : (ireps>0.0)
7469 : : {
7470 [ - + ]: 6 : if
7471 : : (DIOY>80.0)
7472 : : {
7473 : : #if defined(_DERIVATE)
7474 : 0 : le_Vsi_ci=0.0;
7475 : 0 : le_Vbp_ci=0.0;
7476 : 0 : le_Vbp_ei=DIOY_Vbp_ei;
7477 : 0 : le_Vbi_ci=DIOY_Vbi_ci;
7478 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
7479 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
7480 : : #endif
7481 : 0 : le=(1+(DIOY-80.0));
7482 : : #if defined(_DERIVATE)
7483 : 0 : DIOY_Vsi_ci=0.0;
7484 : 0 : DIOY_Vbp_ci=0.0;
7485 : 0 : DIOY_Vbp_ei=0.0;
7486 : 0 : DIOY_Vbi_ci=0.0;
7487 : 0 : DIOY_Vbi_ei=0.0;
7488 : 0 : DIOY_Vtnode_GND=0.0;
7489 : : #endif
7490 : 0 : DIOY=80.0;
7491 : : }
7492 : : else
7493 : : {
7494 : : #if defined(_DERIVATE)
7495 : 6 : le_Vsi_ci=0.0;
7496 : 6 : le_Vbp_ci=0.0;
7497 : 6 : le_Vbp_ei=0.0;
7498 : 6 : le_Vbi_ci=0.0;
7499 : 6 : le_Vbi_ei=0.0;
7500 : 6 : le_Vtnode_GND=0.0;
7501 : : #endif
7502 : 6 : le=1;
7503 : : }
7504 : : {
7505 [ + - ]: 6 : double m00_limexp(d00_limexp0,DIOY)
7506 : : #if defined(_DERIVATE)
7507 [ + - ]: 6 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
7508 : : #endif
7509 : : #if defined(_DERIVATE)
7510 : 6 : le_Vsi_ci=0.0;
7511 : 6 : le_Vbp_ci=0.0;
7512 : 6 : le_Vbp_ei=((le_Vbp_ei*d00_limexp0)+(le*DIOY_Vbp_ei*d10_limexp0));
7513 : 6 : le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
7514 : 6 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
7515 : 6 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
7516 : : #endif
7517 : 6 : le=(le*d00_limexp0);
7518 : : }
7519 : : #if defined(_DERIVATE)
7520 : 6 : irep_Vtnode_GND=((ireps_t_Vtnode_GND*(le-1.0))+(ireps_t*le_Vtnode_GND));
7521 : 6 : irep_Vbp_ei=(ireps_t*le_Vbp_ei);
7522 : 6 : irep_Vbi_ci=(ireps_t*le_Vbi_ci);
7523 : 6 : irep_Vbi_ei=(ireps_t*le_Vbi_ei);
7524 : : #endif
7525 : 6 : irep=(ireps_t*(le-1.0));
7526 [ - + ]: 6 : if
7527 : : (DIOY<=(-14.0))
7528 : : {
7529 : : #if defined(_DERIVATE)
7530 : 0 : irep_Vtnode_GND=(-ireps_t_Vtnode_GND);
7531 : 0 : irep_Vbp_ei=0.0;
7532 : 0 : irep_Vbi_ci=0.0;
7533 : 0 : irep_Vbi_ei=0.0;
7534 : : #endif
7535 : 0 : irep=(-ireps_t);
7536 : : }
7537 : : }
7538 : : else
7539 : : {
7540 : : #if defined(_DERIVATE)
7541 : 0 : irep_Vtnode_GND=0.0;
7542 : 0 : irep_Vbp_ei=0.0;
7543 : 0 : irep_Vbi_ci=0.0;
7544 : 0 : irep_Vbi_ei=0.0;
7545 : : #endif
7546 : 0 : irep=0.0;
7547 : : }
7548 [ - + ]: 6 : if
7549 : : (cjep0_t>0.0)
7550 : : {
7551 : : {
7552 : 0 : double m00_logE(d00_logE0,aljep_t)
7553 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zep))
7554 : : #if defined(_DERIVATE)
7555 : 0 : double m10_logE(d10_logE0,d00_logE0,aljep_t)
7556 : : #define d10_exp1 d00_exp1
7557 : : #endif
7558 : : #if defined(_DERIVATE)
7559 : 0 : DFV_f_Vtnode_GND=((vdep_t_Vtnode_GND*(1.0-d00_exp1))+(vdep_t*(-((-aljep_t_Vtnode_GND*d10_logE0)/zep)*d10_exp1)));
7560 : : #endif
7561 : 0 : DFV_f=(vdep_t*(1.0-d00_exp1));
7562 : : }
7563 : : #if defined(_DERIVATE)
7564 : 0 : DFC_max_Vtnode_GND=((aljep_t_Vtnode_GND*cjep0_t)+(aljep_t*cjep0_t_Vtnode_GND));
7565 : : #endif
7566 : 0 : DFC_max=(aljep_t*cjep0_t);
7567 : : #if defined(_DERIVATE)
7568 : 0 : DFv_e_Vsi_ci=0.0;
7569 : 0 : DFv_e_Vb_ci=0.0;
7570 : 0 : DFv_e_Vbp_ci=0.0;
7571 : 0 : DFv_e_Vbp_ei=((-1.0)/VT);
7572 : 0 : DFv_e_Vbi_ci=0.0;
7573 [ # # ]: 0 : DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(bp,ei))*VT_Vtnode_GND)/VT/VT);
7574 : 0 : DFv_e_Vbi_ei=0.0;
7575 : : #endif
7576 [ # # ]: 0 : DFv_e=((DFV_f-BP(bp,ei))/VT);
7577 [ # # ]: 0 : if
7578 : : (DFv_e<80.0)
7579 : : {
7580 : : {
7581 : 0 : double m00_exp(d00_exp0,DFv_e)
7582 : : #if defined(_DERIVATE)
7583 : : #define d10_exp0 d00_exp0
7584 : : #endif
7585 : : #if defined(_DERIVATE)
7586 : 0 : DFe_Vsi_ci=0.0;
7587 : 0 : DFe_Vb_ci=0.0;
7588 : 0 : DFe_Vbp_ci=0.0;
7589 : 0 : DFe_Vbp_ei=DFv_e_Vbp_ei*d10_exp0;
7590 : 0 : DFe_Vbi_ci=DFv_e_Vbi_ci*d10_exp0;
7591 : 0 : DFe_Vtnode_GND=DFv_e_Vtnode_GND*d10_exp0;
7592 : 0 : DFe_Vbi_ei=DFv_e_Vbi_ei*d10_exp0;
7593 : : #endif
7594 : 0 : DFe=d00_exp0;
7595 : : }
7596 : : {
7597 : 0 : double m00_logE(d00_logE0,(1.0+DFe))
7598 : : #if defined(_DERIVATE)
7599 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+DFe))
7600 : : #endif
7601 : : #if defined(_DERIVATE)
7602 : 0 : DFv_j_Vsi_ci=0.0;
7603 : 0 : DFv_j_Vb_ci=0.0;
7604 : 0 : DFv_j_Vbp_ci=0.0;
7605 : 0 : DFv_j_Vbp_ei=(-(VT*DFe_Vbp_ei*d10_logE0));
7606 : 0 : DFv_j_Vbi_ci=(-(VT*DFe_Vbi_ci*d10_logE0));
7607 : 0 : DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*DFe_Vtnode_GND*d10_logE0)));
7608 : 0 : DFv_j_Vbi_ei=(-(VT*DFe_Vbi_ei*d10_logE0));
7609 : : #endif
7610 : 0 : DFv_j=(DFV_f-(VT*d00_logE0));
7611 : : }
7612 : : #if defined(_DERIVATE)
7613 : 0 : DFdvj_dv_Vsi_ci=0.0;
7614 : 0 : DFdvj_dv_Vb_ci=0.0;
7615 : 0 : DFdvj_dv_Vbp_ci=0.0;
7616 : 0 : DFdvj_dv_Vbp_ei=((DFe_Vbp_ei*(1.0+DFe)-DFe*DFe_Vbp_ei)/(1.0+DFe)/(1.0+DFe));
7617 : 0 : DFdvj_dv_Vbi_ci=((DFe_Vbi_ci*(1.0+DFe)-DFe*DFe_Vbi_ci)/(1.0+DFe)/(1.0+DFe));
7618 : 0 : DFdvj_dv_Vtnode_GND=((DFe_Vtnode_GND*(1.0+DFe)-DFe*DFe_Vtnode_GND)/(1.0+DFe)/(1.0+DFe));
7619 : 0 : DFdvj_dv_Vbi_ei=((DFe_Vbi_ei*(1.0+DFe)-DFe*DFe_Vbi_ei)/(1.0+DFe)/(1.0+DFe));
7620 : : #endif
7621 : 0 : DFdvj_dv=(DFe/(1.0+DFe));
7622 : : }
7623 : : else
7624 : : {
7625 : : #if defined(_DERIVATE)
7626 : 0 : DFv_j_Vsi_ci=0.0;
7627 : 0 : DFv_j_Vb_ci=0.0;
7628 : 0 : DFv_j_Vbp_ci=0.0;
7629 : 0 : DFv_j_Vbp_ei=1.0;
7630 : 0 : DFv_j_Vbi_ci=0.0;
7631 : 0 : DFv_j_Vtnode_GND=0.0;
7632 : 0 : DFv_j_Vbi_ei=0.0;
7633 : : #endif
7634 [ # # ]: 0 : DFv_j=BP(bp,ei);
7635 : : #if defined(_DERIVATE)
7636 : 0 : DFdvj_dv_Vsi_ci=0.0;
7637 : 0 : DFdvj_dv_Vb_ci=0.0;
7638 : 0 : DFdvj_dv_Vbp_ci=0.0;
7639 : 0 : DFdvj_dv_Vbp_ei=0.0;
7640 : 0 : DFdvj_dv_Vbi_ci=0.0;
7641 : 0 : DFdvj_dv_Vtnode_GND=0.0;
7642 : 0 : DFdvj_dv_Vbi_ei=0.0;
7643 : : #endif
7644 : 0 : DFdvj_dv=1;
7645 : : }
7646 : : {
7647 : 0 : double m00_logE(d00_logE0,(1.0-(DFv_j/vdep_t)))
7648 : : #if defined(_DERIVATE)
7649 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdep_t)))
7650 : : #endif
7651 : : #if defined(_DERIVATE)
7652 : 0 : DFb_Vsi_ci=0.0;
7653 : 0 : DFb_Vb_ci=0.0;
7654 : 0 : DFb_Vbp_ci=0.0;
7655 : 0 : DFb_Vbp_ei=(-(DFv_j_Vbp_ei/vdep_t))*d10_logE0;
7656 : 0 : DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdep_t))*d10_logE0;
7657 : 0 : DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdep_t-DFv_j*vdep_t_Vtnode_GND)/vdep_t/vdep_t))*d10_logE0;
7658 : 0 : DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdep_t))*d10_logE0;
7659 : : #endif
7660 : 0 : DFb=d00_logE0;
7661 : : }
7662 : : {
7663 : 0 : double m00_exp(d00_exp0,((-zep)*DFb))
7664 : : #if defined(_DERIVATE)
7665 : : #define d10_exp0 d00_exp0
7666 : : #endif
7667 : : #if defined(_DERIVATE)
7668 : 0 : DFC_j1_Vsi_ci=0.0;
7669 : 0 : DFC_j1_Vb_ci=0.0;
7670 : 0 : DFC_j1_Vbp_ci=0.0;
7671 : 0 : DFC_j1_Vbp_ei=(((cjep0_t*((-zep)*DFb_Vbp_ei)*d10_exp0)*DFdvj_dv)+((cjep0_t*d00_exp0)*DFdvj_dv_Vbp_ei));
7672 : 0 : DFC_j1_Vbi_ci=(((cjep0_t*((-zep)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjep0_t*d00_exp0)*DFdvj_dv_Vbi_ci));
7673 : 0 : DFC_j1_Vtnode_GND=((((cjep0_t_Vtnode_GND*d00_exp0)+(cjep0_t*((-zep)*DFb_Vtnode_GND)*d10_exp0))*DFdvj_dv)+((cjep0_t*d00_exp0)*DFdvj_dv_Vtnode_GND));
7674 : 0 : DFC_j1_Vbi_ei=(((cjep0_t*((-zep)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjep0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
7675 : : #endif
7676 : 0 : DFC_j1=((cjep0_t*d00_exp0)*DFdvj_dv);
7677 : : }
7678 : : #if defined(_DERIVATE)
7679 : 0 : Cjep_Vbp_ei=(DFC_j1_Vbp_ei+(DFC_max*(-DFdvj_dv_Vbp_ei)));
7680 : 0 : Cjep_Vbi_ci=(DFC_j1_Vbi_ci+(DFC_max*(-DFdvj_dv_Vbi_ci)));
7681 : 0 : Cjep_Vtnode_GND=(DFC_j1_Vtnode_GND+((DFC_max_Vtnode_GND*(1.0-DFdvj_dv))+(DFC_max*(-DFdvj_dv_Vtnode_GND))));
7682 : 0 : Cjep_Vbi_ei=(DFC_j1_Vbi_ei+(DFC_max*(-DFdvj_dv_Vbi_ei)));
7683 : : #endif
7684 : 0 : Cjep=(DFC_j1+(DFC_max*(1.0-DFdvj_dv)));
7685 : : #if defined(_DYNAMIC)
7686 : : {
7687 : 0 : double m00_exp(d00_exp0,(DFb*(1.0-zep)))
7688 : : #if defined(_DERIVATE)
7689 : : #define d10_exp0 d00_exp0
7690 : : #endif
7691 : : #if defined(_DERIVATE)
7692 : 0 : DFQ_j_Vsi_ci=0.0;
7693 : 0 : DFQ_j_Vb_ci=0.0;
7694 : 0 : DFQ_j_Vbp_ci=0.0;
7695 : 0 : DFQ_j_Vbp_ei=(((cjep0_t*vdep_t)*(-DFb_Vbp_ei*(1.0-zep)*d10_exp0))/(1.0-zep));
7696 : 0 : DFQ_j_Vbi_ci=(((cjep0_t*vdep_t)*(-DFb_Vbi_ci*(1.0-zep)*d10_exp0))/(1.0-zep));
7697 : 0 : DFQ_j_Vtnode_GND=(((((cjep0_t_Vtnode_GND*vdep_t)+(cjep0_t*vdep_t_Vtnode_GND))*(1.0-d00_exp0))+((cjep0_t*vdep_t)*(-DFb_Vtnode_GND*(1.0-zep)*d10_exp0)))/(1.0-zep));
7698 : 0 : DFQ_j_Vbi_ei=(((cjep0_t*vdep_t)*(-DFb_Vbi_ei*(1.0-zep)*d10_exp0))/(1.0-zep));
7699 : : #endif
7700 : 0 : DFQ_j=(((cjep0_t*vdep_t)*(1.0-d00_exp0))/(1.0-zep));
7701 : : }
7702 : : #endif
7703 : : #if defined(_DYNAMIC)
7704 : : #if defined(_DERIVATE)
7705 : 0 : Qjep_Vbp_ei=(DFQ_j_Vbp_ei+(DFC_max*(1.0-DFv_j_Vbp_ei)));
7706 : 0 : Qjep_Vbi_ci=(DFQ_j_Vbi_ci+(DFC_max*(-DFv_j_Vbi_ci)));
7707 [ # # ]: 0 : Qjep_Vtnode_GND=(DFQ_j_Vtnode_GND+((DFC_max_Vtnode_GND*(BP(bp,ei)-DFv_j))+(DFC_max*(-DFv_j_Vtnode_GND))));
7708 : 0 : Qjep_Vbi_ei=(DFQ_j_Vbi_ei+(DFC_max*(-DFv_j_Vbi_ei)));
7709 : : #endif
7710 [ # # ]: 0 : Qjep=(DFQ_j+(DFC_max*(BP(bp,ei)-DFv_j)));
7711 : : #endif
7712 : : }
7713 : : else
7714 : : {
7715 : : #if defined(_DERIVATE)
7716 : 6 : Cjep_Vbp_ei=0.0;
7717 : 6 : Cjep_Vbi_ci=0.0;
7718 : 6 : Cjep_Vtnode_GND=0.0;
7719 : 6 : Cjep_Vbi_ei=0.0;
7720 : : #endif
7721 : 6 : Cjep=0.0;
7722 : : #if defined(_DYNAMIC)
7723 : : #if defined(_DERIVATE)
7724 : 6 : Qjep_Vbp_ei=0.0;
7725 : 6 : Qjep_Vbi_ci=0.0;
7726 : 6 : Qjep_Vtnode_GND=0.0;
7727 : 6 : Qjep_Vbi_ei=0.0;
7728 : : #endif
7729 : 6 : Qjep=0.0;
7730 : : #endif
7731 : : }
7732 [ - + ]: 6 : if
7733 [ + - ]: 6 : (BP(bp,ei)<0.0)
7734 : : {
7735 [ # # ]: 0 : if
7736 : : (cjep0>0.0)
7737 : : {
7738 : : #if defined(_DERIVATE)
7739 : 0 : a_eg_Vtnode_GND=(-(vgb-(2.55e-4*Tnom))*(-(2.55e-4*Tdev_Vtnode_GND))/(vgb-(2.55e-4*Tdev))/(vgb-(2.55e-4*Tdev)));
7740 : : #endif
7741 : 0 : a_eg=((vgb-(2.55e-4*Tnom))/(vgb-(2.55e-4*Tdev)));
7742 : : {
7743 : 0 : double m00_sqrt(d00_sqrt0,a_eg)
7744 : : #if defined(_DERIVATE)
7745 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,a_eg)
7746 : : #endif
7747 : : #if defined(_DERIVATE)
7748 : 0 : ab_Vtnode_GND=((((((((cjep0_t_Vtnode_GND/cjep0)*d00_sqrt0)+((cjep0_t/cjep0)*a_eg_Vtnode_GND*d10_sqrt0))*vdep_t)+(((cjep0_t/cjep0)*d00_sqrt0)*vdep_t_Vtnode_GND))*vdep_t)+((((cjep0_t/cjep0)*d00_sqrt0)*vdep_t)*vdep_t_Vtnode_GND))/(vdep*vdep));
7749 : : #endif
7750 : 0 : ab=(((((cjep0_t/cjep0)*d00_sqrt0)*vdep_t)*vdep_t)/(vdep*vdep));
7751 : : }
7752 : : #if defined(_DERIVATE)
7753 : 0 : ibets_t_Vtnode_GND=(ibets*ab_Vtnode_GND);
7754 : : #endif
7755 : 0 : ibets_t=(ibets*ab);
7756 : : }
7757 : : else
7758 : : {
7759 : : #if defined(_DERIVATE)
7760 : 0 : ibets_t_Vtnode_GND=0.0;
7761 : : #endif
7762 : 0 : ibets_t=ibets;
7763 : : }
7764 : : #if defined(_DERIVATE)
7765 : 0 : vve_Vbp_ei=((-1.0)/vdep_t);
7766 [ # # ]: 0 : vve_Vtnode_GND=(-(-BP(bp,ei))*vdep_t_Vtnode_GND/vdep_t/vdep_t);
7767 : : #endif
7768 [ # # ]: 0 : vve=((-BP(bp,ei))/vdep_t);
7769 : : #if defined(_DERIVATE)
7770 : 0 : cce_Vbp_ei=(Cjep_Vbp_ei/cjep0_t);
7771 : 0 : cce_Vbi_ci=(Cjep_Vbi_ci/cjep0_t);
7772 : 0 : cce_Vtnode_GND=((Cjep_Vtnode_GND*cjep0_t-Cjep*cjep0_t_Vtnode_GND)/cjep0_t/cjep0_t);
7773 : 0 : cce_Vbi_ei=(Cjep_Vbi_ei/cjep0_t);
7774 : : #endif
7775 : 0 : cce=(Cjep/cjep0_t);
7776 : 0 : zex=(1.0/zep);
7777 : : {
7778 : 0 : double m00_logE(d00_logE0,cce)
7779 : 0 : double m00_exp(d00_exp1,((1-zex)*d00_logE0))
7780 : : #if defined(_DERIVATE)
7781 : 0 : double m10_logE(d10_logE0,d00_logE0,cce)
7782 : : #define d10_exp1 d00_exp1
7783 : : #endif
7784 : : #if defined(_DERIVATE)
7785 : 0 : pocce_Vbp_ei=((1-zex)*cce_Vbp_ei*d10_logE0)*d10_exp1;
7786 : 0 : pocce_Vbi_ci=((1-zex)*cce_Vbi_ci*d10_logE0)*d10_exp1;
7787 : 0 : pocce_Vtnode_GND=((1-zex)*cce_Vtnode_GND*d10_logE0)*d10_exp1;
7788 : 0 : pocce_Vbi_ei=((1-zex)*cce_Vbi_ei*d10_logE0)*d10_exp1;
7789 : : #endif
7790 : 0 : pocce=d00_exp1;
7791 : : }
7792 : : #if defined(_DERIVATE)
7793 : 0 : czz_Vtnode_GND=((((ibets_t_Vtnode_GND*vve)+(ibets_t*vve_Vtnode_GND))*pocce)+((ibets_t*vve)*pocce_Vtnode_GND));
7794 : 0 : czz_Vbp_ei=(((ibets_t*vve_Vbp_ei)*pocce)+((ibets_t*vve)*pocce_Vbp_ei));
7795 : 0 : czz_Vbi_ci=((ibets_t*vve)*pocce_Vbi_ci);
7796 : 0 : czz_Vbi_ei=((ibets_t*vve)*pocce_Vbi_ei);
7797 : : #endif
7798 : 0 : czz=((ibets_t*vve)*pocce);
7799 : : {
7800 : 0 : double m00_exp(d00_exp0,((-abet)/pocce))
7801 : : #if defined(_DERIVATE)
7802 : : #define d10_exp0 d00_exp0
7803 : : #endif
7804 : : #if defined(_DERIVATE)
7805 : 0 : ibet_Vtnode_GND=((czz_Vtnode_GND*d00_exp0)+(czz*(-(-abet)*pocce_Vtnode_GND/pocce/pocce)*d10_exp0));
7806 : 0 : ibet_Vbp_ei=((czz_Vbp_ei*d00_exp0)+(czz*(-(-abet)*pocce_Vbp_ei/pocce/pocce)*d10_exp0));
7807 : 0 : ibet_Vbi_ci=((czz_Vbi_ci*d00_exp0)+(czz*(-(-abet)*pocce_Vbi_ci/pocce/pocce)*d10_exp0));
7808 : 0 : ibet_Vbi_ei=((czz_Vbi_ei*d00_exp0)+(czz*(-(-abet)*pocce_Vbi_ei/pocce/pocce)*d10_exp0));
7809 : : #endif
7810 : 0 : ibet=(czz*d00_exp0);
7811 : : }
7812 : : }
7813 : : else
7814 : : {
7815 : : #if defined(_DERIVATE)
7816 : 6 : ibet_Vtnode_GND=0.0;
7817 : 6 : ibet_Vbp_ei=0.0;
7818 : 6 : ibet_Vbi_ci=0.0;
7819 : 6 : ibet_Vbi_ei=0.0;
7820 : : #endif
7821 : 6 : ibet=0.0;
7822 : : }
7823 : : #ifdef _DYNAMIC
7824 [ - + ]: 6 : if
7825 : : (vptcx_t<1.0e2)
7826 : : {
7827 : : #ifdef _DYNAMIC
7828 [ # # ]: 0 : if
7829 : : (cjcx02_t>0.0)
7830 : : {
7831 : : #if defined(_DYNAMIC)
7832 : 0 : Dz_r=(zcx/4.0);
7833 : : #endif
7834 : : #if defined(_DYNAMIC)
7835 : : #if defined(_DERIVATE)
7836 : 0 : Dv_p_Vtnode_GND=(vptcx_t_Vtnode_GND-vdcx_t_Vtnode_GND);
7837 : : #endif
7838 : 0 : Dv_p=(vptcx_t-vdcx_t);
7839 : : #endif
7840 : : #if defined(_DYNAMIC)
7841 : : {
7842 : 0 : double m00_logE(d00_logE0,2.4)
7843 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zcx))
7844 : : #if defined(_DERIVATE)
7845 : 0 : DV_f_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
7846 : : #endif
7847 : 0 : DV_f=(vdcx_t*(1.0-d00_exp1));
7848 : : }
7849 : : #endif
7850 : : #if defined(_DYNAMIC)
7851 : : #if defined(_DERIVATE)
7852 : 0 : DC_max_Vtnode_GND=(2.4*cjcx02_t_Vtnode_GND);
7853 : : #endif
7854 : 0 : DC_max=(2.4*cjcx02_t);
7855 : : #endif
7856 : : #if defined(_DYNAMIC)
7857 : : {
7858 : 0 : double m00_logE(d00_logE0,(vptcx_t/vdcx_t))
7859 : 0 : double m00_exp(d00_exp1,(d00_logE0*(Dz_r-zcx)))
7860 : : #if defined(_DERIVATE)
7861 : 0 : double m10_logE(d10_logE0,d00_logE0,(vptcx_t/vdcx_t))
7862 : : #define d10_exp1 d00_exp1
7863 : : #endif
7864 : : #if defined(_DERIVATE)
7865 : 0 : DC_c_Vtnode_GND=((cjcx02_t_Vtnode_GND*d00_exp1)+(cjcx02_t*((vptcx_t_Vtnode_GND*vdcx_t-vptcx_t*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t)*d10_logE0*(Dz_r-zcx)*d10_exp1));
7866 : : #endif
7867 : 0 : DC_c=(cjcx02_t*d00_exp1);
7868 : : }
7869 : : #endif
7870 : : #if defined(_DYNAMIC)
7871 : : #if defined(_DERIVATE)
7872 : 0 : Da_Vtnode_GND=VT_Vtnode_GND;
7873 : : #endif
7874 : 0 : Da=VT;
7875 : : #endif
7876 : : #if defined(_DYNAMIC)
7877 : : #if defined(_DERIVATE)
7878 : 0 : Dv_e_Vsi_ci=0.0;
7879 : 0 : Dv_e_Vb_ci=0.0;
7880 : 0 : Dv_e_Vbp_ci=((-1.0)/Da);
7881 [ # # ]: 0 : Dv_e_Vtnode_GND=((DV_f_Vtnode_GND*Da-(DV_f-BP(bp,ci))*Da_Vtnode_GND)/Da/Da);
7882 : 0 : Dv_e_Vbi_ci=0.0;
7883 : : #endif
7884 [ # # ]: 0 : Dv_e=((DV_f-BP(bp,ci))/Da);
7885 : : #endif
7886 : : #ifdef _DYNAMIC
7887 [ # # ]: 0 : if
7888 : : (Dv_e<80.0)
7889 : : {
7890 : : #if defined(_DYNAMIC)
7891 : : {
7892 : 0 : double m00_exp(d00_exp0,Dv_e)
7893 : : #if defined(_DERIVATE)
7894 : : #define d10_exp0 d00_exp0
7895 : : #endif
7896 : : #if defined(_DERIVATE)
7897 : 0 : De_Vsi_ci=0.0;
7898 : 0 : De_Vb_ci=0.0;
7899 : 0 : De_Vbp_ci=Dv_e_Vbp_ci*d10_exp0;
7900 : 0 : De_Vtnode_GND=Dv_e_Vtnode_GND*d10_exp0;
7901 : 0 : De_Vbi_ci=Dv_e_Vbi_ci*d10_exp0;
7902 : : #endif
7903 : 0 : De=d00_exp0;
7904 : : }
7905 : : #endif
7906 : : #if defined(_DYNAMIC)
7907 : : #if defined(_DERIVATE)
7908 : 0 : De_1_Vsi_ci=0.0;
7909 : 0 : De_1_Vb_ci=0.0;
7910 : 0 : De_1_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
7911 : 0 : De_1_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
7912 : 0 : De_1_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
7913 : : #endif
7914 : 0 : De_1=(De/(1.0+De));
7915 : : #endif
7916 : : #if defined(_DYNAMIC)
7917 : : {
7918 : 0 : double m00_logE(d00_logE0,(1.0+De))
7919 : : #if defined(_DERIVATE)
7920 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
7921 : : #endif
7922 : : #if defined(_DERIVATE)
7923 : 0 : Dv_j1_Vsi_ci=0.0;
7924 : 0 : Dv_j1_Vb_ci=0.0;
7925 : 0 : Dv_j1_Vbp_ci=(-(Da*De_Vbp_ci*d10_logE0));
7926 : 0 : Dv_j1_Vtnode_GND=(DV_f_Vtnode_GND-((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
7927 : 0 : Dv_j1_Vbi_ci=(-(Da*De_Vbi_ci*d10_logE0));
7928 : : #endif
7929 : 0 : Dv_j1=(DV_f-(Da*d00_logE0));
7930 : : }
7931 : : #endif
7932 : : }
7933 : : else
7934 : : {
7935 : : #if defined(_DYNAMIC)
7936 : : #if defined(_DERIVATE)
7937 : 0 : De_1_Vsi_ci=0.0;
7938 : 0 : De_1_Vb_ci=0.0;
7939 : 0 : De_1_Vbp_ci=0.0;
7940 : 0 : De_1_Vtnode_GND=0.0;
7941 : 0 : De_1_Vbi_ci=0.0;
7942 : : #endif
7943 : 0 : De_1=1.0;
7944 : : #endif
7945 : : #if defined(_DYNAMIC)
7946 : : #if defined(_DERIVATE)
7947 : 0 : Dv_j1_Vsi_ci=0.0;
7948 : 0 : Dv_j1_Vb_ci=0.0;
7949 : 0 : Dv_j1_Vbp_ci=1.0;
7950 : 0 : Dv_j1_Vtnode_GND=0.0;
7951 : 0 : Dv_j1_Vbi_ci=0.0;
7952 : : #endif
7953 [ # # ]: 0 : Dv_j1=BP(bp,ci);
7954 : : #endif
7955 : : }
7956 : : #endif /* if (...) */
7957 : : #if defined(_DYNAMIC)
7958 : : #if defined(_DERIVATE)
7959 : 0 : Da_Vtnode_GND=((0.1*Dv_p_Vtnode_GND)+(4.0*VT_Vtnode_GND));
7960 : : #endif
7961 : 0 : Da=((0.1*Dv_p)+(4.0*VT));
7962 : : #endif
7963 : : #if defined(_DYNAMIC)
7964 : : #if defined(_DERIVATE)
7965 : 0 : Dv_r_Vsi_ci=0.0;
7966 : 0 : Dv_r_Vb_ci=0.0;
7967 : 0 : Dv_r_Vbp_ci=(Dv_j1_Vbp_ci/Da);
7968 : 0 : Dv_r_Vtnode_GND=(((Dv_p_Vtnode_GND+Dv_j1_Vtnode_GND)*Da-(Dv_p+Dv_j1)*Da_Vtnode_GND)/Da/Da);
7969 : 0 : Dv_r_Vbi_ci=(Dv_j1_Vbi_ci/Da);
7970 : : #endif
7971 : 0 : Dv_r=((Dv_p+Dv_j1)/Da);
7972 : : #endif
7973 : : #ifdef _DYNAMIC
7974 [ # # ]: 0 : if
7975 : : (Dv_r<80.0)
7976 : : {
7977 : : #if defined(_DYNAMIC)
7978 : : {
7979 : 0 : double m00_exp(d00_exp0,Dv_r)
7980 : : #if defined(_DERIVATE)
7981 : : #define d10_exp0 d00_exp0
7982 : : #endif
7983 : : #if defined(_DERIVATE)
7984 : 0 : De_Vsi_ci=0.0;
7985 : 0 : De_Vb_ci=0.0;
7986 : 0 : De_Vbp_ci=Dv_r_Vbp_ci*d10_exp0;
7987 : 0 : De_Vtnode_GND=Dv_r_Vtnode_GND*d10_exp0;
7988 : 0 : De_Vbi_ci=Dv_r_Vbi_ci*d10_exp0;
7989 : : #endif
7990 : 0 : De=d00_exp0;
7991 : : }
7992 : : #endif
7993 : : #if defined(_DYNAMIC)
7994 : : #if defined(_DERIVATE)
7995 : 0 : De_2_Vsi_ci=0.0;
7996 : 0 : De_2_Vb_ci=0.0;
7997 : 0 : De_2_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
7998 : 0 : De_2_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
7999 : 0 : De_2_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
8000 : : #endif
8001 : 0 : De_2=(De/(1.0+De));
8002 : : #endif
8003 : : #if defined(_DYNAMIC)
8004 : : {
8005 : 0 : double m00_logE(d00_logE0,(1.0+De))
8006 : : #if defined(_DERIVATE)
8007 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
8008 : : #endif
8009 : : #if defined(_DERIVATE)
8010 : 0 : Dv_j2_Vsi_ci=0.0;
8011 : 0 : Dv_j2_Vb_ci=0.0;
8012 : 0 : Dv_j2_Vbp_ci=(Da*De_Vbp_ci*d10_logE0);
8013 : 0 : Dv_j2_Vtnode_GND=((-Dv_p_Vtnode_GND)+((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
8014 : 0 : Dv_j2_Vbi_ci=(Da*De_Vbi_ci*d10_logE0);
8015 : : #endif
8016 : 0 : Dv_j2=((-Dv_p)+(Da*d00_logE0));
8017 : : }
8018 : : #endif
8019 : : }
8020 : : else
8021 : : {
8022 : : #if defined(_DYNAMIC)
8023 : : #if defined(_DERIVATE)
8024 : 0 : De_2_Vsi_ci=0.0;
8025 : 0 : De_2_Vb_ci=0.0;
8026 : 0 : De_2_Vbp_ci=0.0;
8027 : 0 : De_2_Vtnode_GND=0.0;
8028 : 0 : De_2_Vbi_ci=0.0;
8029 : : #endif
8030 : 0 : De_2=1.0;
8031 : : #endif
8032 : : #if defined(_DYNAMIC)
8033 : : #if defined(_DERIVATE)
8034 : 0 : Dv_j2_Vsi_ci=0.0;
8035 : 0 : Dv_j2_Vb_ci=0.0;
8036 : 0 : Dv_j2_Vbp_ci=Dv_j1_Vbp_ci;
8037 : 0 : Dv_j2_Vtnode_GND=Dv_j1_Vtnode_GND;
8038 : 0 : Dv_j2_Vbi_ci=Dv_j1_Vbi_ci;
8039 : : #endif
8040 : 0 : Dv_j2=Dv_j1;
8041 : : #endif
8042 : : }
8043 : : #endif /* if (...) */
8044 : : #if defined(_DYNAMIC)
8045 : : #if defined(_DERIVATE)
8046 : 0 : Dv_j4_Vsi_ci=0.0;
8047 : 0 : Dv_j4_Vb_ci=0.0;
8048 : 0 : Dv_j4_Vbp_ci=(1.0-Dv_j1_Vbp_ci);
8049 : 0 : Dv_j4_Vbi_ci=(-Dv_j1_Vbi_ci);
8050 : 0 : Dv_j4_Vtnode_GND=(-Dv_j1_Vtnode_GND);
8051 : : #endif
8052 [ # # ]: 0 : Dv_j4=(BP(bp,ci)-Dv_j1);
8053 : : #endif
8054 : : #if defined(_DYNAMIC)
8055 : : {
8056 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j1/vdcx_t)))
8057 : : #if defined(_DERIVATE)
8058 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j1/vdcx_t)))
8059 : : #endif
8060 : : #if defined(_DERIVATE)
8061 : 0 : DCln1_Vsi_ci=0.0;
8062 : 0 : DCln1_Vb_ci=0.0;
8063 : 0 : DCln1_Vbp_ci=(-(Dv_j1_Vbp_ci/vdcx_t))*d10_logE0;
8064 : 0 : DCln1_Vtnode_GND=(-((Dv_j1_Vtnode_GND*vdcx_t-Dv_j1*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
8065 : 0 : DCln1_Vbi_ci=(-(Dv_j1_Vbi_ci/vdcx_t))*d10_logE0;
8066 : : #endif
8067 : 0 : DCln1=d00_logE0;
8068 : : }
8069 : : #endif
8070 : : #if defined(_DYNAMIC)
8071 : : {
8072 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j2/vdcx_t)))
8073 : : #if defined(_DERIVATE)
8074 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j2/vdcx_t)))
8075 : : #endif
8076 : : #if defined(_DERIVATE)
8077 : 0 : DCln2_Vsi_ci=0.0;
8078 : 0 : DCln2_Vb_ci=0.0;
8079 : 0 : DCln2_Vbp_ci=(-(Dv_j2_Vbp_ci/vdcx_t))*d10_logE0;
8080 : 0 : DCln2_Vtnode_GND=(-((Dv_j2_Vtnode_GND*vdcx_t-Dv_j2*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
8081 : 0 : DCln2_Vbi_ci=(-(Dv_j2_Vbi_ci/vdcx_t))*d10_logE0;
8082 : : #endif
8083 : 0 : DCln2=d00_logE0;
8084 : : }
8085 : : #endif
8086 : : #if defined(_DYNAMIC)
8087 : 0 : Dz1=(1.0-zcx);
8088 : : #endif
8089 : : #if defined(_DYNAMIC)
8090 : 0 : Dzr1=(1.0-Dz_r);
8091 : : #endif
8092 : : #if defined(_DYNAMIC)
8093 : : {
8094 : 0 : double m00_exp(d00_exp0,(DCln2*(-zcx)))
8095 : : #if defined(_DERIVATE)
8096 : : #define d10_exp0 d00_exp0
8097 : : #endif
8098 : : #if defined(_DERIVATE)
8099 : 0 : DC_j1_Vsi_ci=0.0;
8100 : 0 : DC_j1_Vb_ci=0.0;
8101 : 0 : DC_j1_Vbp_ci=(((((cjcx02_t*DCln2_Vbp_ci*(-zcx)*d10_exp0)*De_1)+((cjcx02_t*d00_exp0)*De_1_Vbp_ci))*De_2)+(((cjcx02_t*d00_exp0)*De_1)*De_2_Vbp_ci));
8102 : 0 : DC_j1_Vtnode_GND=((((((cjcx02_t_Vtnode_GND*d00_exp0)+(cjcx02_t*DCln2_Vtnode_GND*(-zcx)*d10_exp0))*De_1)+((cjcx02_t*d00_exp0)*De_1_Vtnode_GND))*De_2)+(((cjcx02_t*d00_exp0)*De_1)*De_2_Vtnode_GND));
8103 : 0 : DC_j1_Vbi_ci=(((((cjcx02_t*DCln2_Vbi_ci*(-zcx)*d10_exp0)*De_1)+((cjcx02_t*d00_exp0)*De_1_Vbi_ci))*De_2)+(((cjcx02_t*d00_exp0)*De_1)*De_2_Vbi_ci));
8104 : : #endif
8105 : 0 : DC_j1=(((cjcx02_t*d00_exp0)*De_1)*De_2);
8106 : : }
8107 : : #endif
8108 : : #if defined(_DYNAMIC)
8109 : : {
8110 : 0 : double m00_exp(d00_exp0,(DCln1*(-Dz_r)))
8111 : : #if defined(_DERIVATE)
8112 : : #define d10_exp0 d00_exp0
8113 : : #endif
8114 : : #if defined(_DERIVATE)
8115 : 0 : DC_j2_Vsi_ci=0.0;
8116 : 0 : DC_j2_Vb_ci=0.0;
8117 : 0 : DC_j2_Vbp_ci=(((DC_c*DCln1_Vbp_ci*(-Dz_r)*d10_exp0)*(1.0-De_2))+((DC_c*d00_exp0)*(-De_2_Vbp_ci)));
8118 : 0 : DC_j2_Vtnode_GND=((((DC_c_Vtnode_GND*d00_exp0)+(DC_c*DCln1_Vtnode_GND*(-Dz_r)*d10_exp0))*(1.0-De_2))+((DC_c*d00_exp0)*(-De_2_Vtnode_GND)));
8119 : 0 : DC_j2_Vbi_ci=(((DC_c*DCln1_Vbi_ci*(-Dz_r)*d10_exp0)*(1.0-De_2))+((DC_c*d00_exp0)*(-De_2_Vbi_ci)));
8120 : : #endif
8121 : 0 : DC_j2=((DC_c*d00_exp0)*(1.0-De_2));
8122 : : }
8123 : : #endif
8124 : : #if defined(_DYNAMIC)
8125 : : #if defined(_DERIVATE)
8126 : 0 : DC_j3_Vsi_ci=0.0;
8127 : 0 : DC_j3_Vb_ci=0.0;
8128 : 0 : DC_j3_Vbp_ci=(DC_max*(-De_1_Vbp_ci));
8129 : 0 : DC_j3_Vtnode_GND=((DC_max_Vtnode_GND*(1.0-De_1))+(DC_max*(-De_1_Vtnode_GND)));
8130 : 0 : DC_j3_Vbi_ci=(DC_max*(-De_1_Vbi_ci));
8131 : : #endif
8132 : 0 : DC_j3=(DC_max*(1.0-De_1));
8133 : : #endif
8134 : : #if defined(_DYNAMIC)
8135 : 0 : cjcx0_t_ii=((DC_j1+DC_j2)+DC_j3);
8136 : : #endif
8137 : : #if defined(_DYNAMIC)
8138 : : {
8139 : 0 : double m00_exp(d00_exp0,(DCln2*Dz1))
8140 : : #if defined(_DERIVATE)
8141 : : #define d10_exp0 d00_exp0
8142 : : #endif
8143 : : #if defined(_DERIVATE)
8144 : 0 : DQ_j1_Vsi_ci=0.0;
8145 : 0 : DQ_j1_Vb_ci=0.0;
8146 : 0 : DQ_j1_Vbp_ci=((cjcx02_t*(-DCln2_Vbp_ci*Dz1*d10_exp0))/Dz1);
8147 : 0 : DQ_j1_Vtnode_GND=(((cjcx02_t_Vtnode_GND*(1.0-d00_exp0))+(cjcx02_t*(-DCln2_Vtnode_GND*Dz1*d10_exp0)))/Dz1);
8148 : 0 : DQ_j1_Vbi_ci=((cjcx02_t*(-DCln2_Vbi_ci*Dz1*d10_exp0))/Dz1);
8149 : : #endif
8150 : 0 : DQ_j1=((cjcx02_t*(1.0-d00_exp0))/Dz1);
8151 : : }
8152 : : #endif
8153 : : #if defined(_DYNAMIC)
8154 : : {
8155 : 0 : double m00_exp(d00_exp0,(DCln1*Dzr1))
8156 : : #if defined(_DERIVATE)
8157 : : #define d10_exp0 d00_exp0
8158 : : #endif
8159 : : #if defined(_DERIVATE)
8160 : 0 : DQ_j2_Vsi_ci=0.0;
8161 : 0 : DQ_j2_Vb_ci=0.0;
8162 : 0 : DQ_j2_Vbp_ci=((DC_c*(-DCln1_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
8163 : 0 : DQ_j2_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln1_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
8164 : 0 : DQ_j2_Vbi_ci=((DC_c*(-DCln1_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
8165 : : #endif
8166 : 0 : DQ_j2=((DC_c*(1.0-d00_exp0))/Dzr1);
8167 : : }
8168 : : #endif
8169 : : #if defined(_DYNAMIC)
8170 : : {
8171 : 0 : double m00_exp(d00_exp0,(DCln2*Dzr1))
8172 : : #if defined(_DERIVATE)
8173 : : #define d10_exp0 d00_exp0
8174 : : #endif
8175 : : #if defined(_DERIVATE)
8176 : 0 : DQ_j3_Vsi_ci=0.0;
8177 : 0 : DQ_j3_Vb_ci=0.0;
8178 : 0 : DQ_j3_Vbp_ci=((DC_c*(-DCln2_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
8179 : 0 : DQ_j3_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln2_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
8180 : 0 : DQ_j3_Vbi_ci=((DC_c*(-DCln2_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
8181 : : #endif
8182 : 0 : DQ_j3=((DC_c*(1.0-d00_exp0))/Dzr1);
8183 : : }
8184 : : #endif
8185 : : #if defined(_DYNAMIC)
8186 : : #if defined(_DERIVATE)
8187 : 0 : qjcx0_t_ii_Vbp_ei=0.0;
8188 : 0 : qjcx0_t_ii_Vbi_ei=0.0;
8189 : 0 : qjcx0_t_ii_Vbp_ci=(((DQ_j1_Vbp_ci+DQ_j2_Vbp_ci)-DQ_j3_Vbp_ci)*vdcx_t+(DC_max*Dv_j4_Vbp_ci));
8190 : 0 : qjcx0_t_ii_Vtnode_GND=(((((DQ_j1_Vtnode_GND+DQ_j2_Vtnode_GND)-DQ_j3_Vtnode_GND)*vdcx_t)+(((DQ_j1+DQ_j2)-DQ_j3)*vdcx_t_Vtnode_GND))+((DC_max_Vtnode_GND*Dv_j4)+(DC_max*Dv_j4_Vtnode_GND)));
8191 : 0 : qjcx0_t_ii_Vbi_ci=(((DQ_j1_Vbi_ci+DQ_j2_Vbi_ci)-DQ_j3_Vbi_ci)*vdcx_t+(DC_max*Dv_j4_Vbi_ci));
8192 : : #endif
8193 : 0 : qjcx0_t_ii=((((DQ_j1+DQ_j2)-DQ_j3)*vdcx_t)+(DC_max*Dv_j4));
8194 : : #endif
8195 : : }
8196 : : else
8197 : : {
8198 : : #if defined(_DYNAMIC)
8199 : 0 : cjcx0_t_ii=0.0;
8200 : : #endif
8201 : : #if defined(_DYNAMIC)
8202 : : #if defined(_DERIVATE)
8203 : 0 : qjcx0_t_ii_Vbp_ei=0.0;
8204 : 0 : qjcx0_t_ii_Vbi_ei=0.0;
8205 : 0 : qjcx0_t_ii_Vbp_ci=0.0;
8206 : 0 : qjcx0_t_ii_Vtnode_GND=0.0;
8207 : 0 : qjcx0_t_ii_Vbi_ci=0.0;
8208 : : #endif
8209 : 0 : qjcx0_t_ii=0.0;
8210 : : #endif
8211 : : }
8212 : : #endif /* if (...) */
8213 : : }
8214 : : else
8215 : : {
8216 : : #ifdef _DYNAMIC
8217 [ + - ]: 6 : if
8218 : : (cjcx02_t>0.0)
8219 : : {
8220 : : #if defined(_DYNAMIC)
8221 : : {
8222 : 6 : double m00_logE(d00_logE0,2.4)
8223 : 6 : double m00_exp(d00_exp1,((-d00_logE0)/zcx))
8224 : : #if defined(_DERIVATE)
8225 : 6 : DFV_f_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
8226 : : #endif
8227 : 6 : DFV_f=(vdcx_t*(1.0-d00_exp1));
8228 : : }
8229 : : #endif
8230 : : #if defined(_DYNAMIC)
8231 : : #if defined(_DERIVATE)
8232 : 6 : DFC_max_Vtnode_GND=(2.4*cjcx02_t_Vtnode_GND);
8233 : : #endif
8234 : 6 : DFC_max=(2.4*cjcx02_t);
8235 : : #endif
8236 : : #if defined(_DYNAMIC)
8237 : : #if defined(_DERIVATE)
8238 : 6 : DFv_e_Vsi_ci=0.0;
8239 : 6 : DFv_e_Vb_ci=0.0;
8240 : 6 : DFv_e_Vbp_ci=((-1.0)/VT);
8241 : 6 : DFv_e_Vbp_ei=0.0;
8242 : 6 : DFv_e_Vbi_ci=0.0;
8243 [ + - ]: 6 : DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(bp,ci))*VT_Vtnode_GND)/VT/VT);
8244 : 6 : DFv_e_Vbi_ei=0.0;
8245 : : #endif
8246 [ + - ]: 6 : DFv_e=((DFV_f-BP(bp,ci))/VT);
8247 : : #endif
8248 : : #ifdef _DYNAMIC
8249 [ + - ]: 6 : if
8250 : : (DFv_e<80.0)
8251 : : {
8252 : : #if defined(_DYNAMIC)
8253 : : {
8254 : 6 : double m00_exp(d00_exp0,DFv_e)
8255 : : #if defined(_DERIVATE)
8256 : : #define d10_exp0 d00_exp0
8257 : : #endif
8258 : : #if defined(_DERIVATE)
8259 : 6 : DFe_Vsi_ci=0.0;
8260 : 6 : DFe_Vb_ci=0.0;
8261 : 6 : DFe_Vbp_ci=DFv_e_Vbp_ci*d10_exp0;
8262 : 6 : DFe_Vbp_ei=DFv_e_Vbp_ei*d10_exp0;
8263 : 6 : DFe_Vbi_ci=DFv_e_Vbi_ci*d10_exp0;
8264 : 6 : DFe_Vtnode_GND=DFv_e_Vtnode_GND*d10_exp0;
8265 : 6 : DFe_Vbi_ei=DFv_e_Vbi_ei*d10_exp0;
8266 : : #endif
8267 : 6 : DFe=d00_exp0;
8268 : : }
8269 : : #endif
8270 : : #if defined(_DYNAMIC)
8271 : : {
8272 : 6 : double m00_logE(d00_logE0,(1.0+DFe))
8273 : : #if defined(_DERIVATE)
8274 : 6 : double m10_logE(d10_logE0,d00_logE0,(1.0+DFe))
8275 : : #endif
8276 : : #if defined(_DERIVATE)
8277 : 6 : DFv_j_Vsi_ci=0.0;
8278 : 6 : DFv_j_Vb_ci=0.0;
8279 : 6 : DFv_j_Vbp_ci=(-(VT*DFe_Vbp_ci*d10_logE0));
8280 : 6 : DFv_j_Vbp_ei=(-(VT*DFe_Vbp_ei*d10_logE0));
8281 : 6 : DFv_j_Vbi_ci=(-(VT*DFe_Vbi_ci*d10_logE0));
8282 : 6 : DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*DFe_Vtnode_GND*d10_logE0)));
8283 : 6 : DFv_j_Vbi_ei=(-(VT*DFe_Vbi_ei*d10_logE0));
8284 : : #endif
8285 : 6 : DFv_j=(DFV_f-(VT*d00_logE0));
8286 : : }
8287 : : #endif
8288 : : #if defined(_DYNAMIC)
8289 : : #if defined(_DERIVATE)
8290 : 6 : DFdvj_dv_Vsi_ci=0.0;
8291 : 6 : DFdvj_dv_Vb_ci=0.0;
8292 : 6 : DFdvj_dv_Vbp_ci=((DFe_Vbp_ci*(1.0+DFe)-DFe*DFe_Vbp_ci)/(1.0+DFe)/(1.0+DFe));
8293 : 6 : DFdvj_dv_Vbp_ei=((DFe_Vbp_ei*(1.0+DFe)-DFe*DFe_Vbp_ei)/(1.0+DFe)/(1.0+DFe));
8294 : 6 : DFdvj_dv_Vbi_ci=((DFe_Vbi_ci*(1.0+DFe)-DFe*DFe_Vbi_ci)/(1.0+DFe)/(1.0+DFe));
8295 : 6 : DFdvj_dv_Vtnode_GND=((DFe_Vtnode_GND*(1.0+DFe)-DFe*DFe_Vtnode_GND)/(1.0+DFe)/(1.0+DFe));
8296 : 6 : DFdvj_dv_Vbi_ei=((DFe_Vbi_ei*(1.0+DFe)-DFe*DFe_Vbi_ei)/(1.0+DFe)/(1.0+DFe));
8297 : : #endif
8298 : 6 : DFdvj_dv=(DFe/(1.0+DFe));
8299 : : #endif
8300 : : }
8301 : : else
8302 : : {
8303 : : #if defined(_DYNAMIC)
8304 : : #if defined(_DERIVATE)
8305 : 0 : DFv_j_Vsi_ci=0.0;
8306 : 0 : DFv_j_Vb_ci=0.0;
8307 : 0 : DFv_j_Vbp_ci=1.0;
8308 : 0 : DFv_j_Vbp_ei=0.0;
8309 : 0 : DFv_j_Vbi_ci=0.0;
8310 : 0 : DFv_j_Vtnode_GND=0.0;
8311 : 0 : DFv_j_Vbi_ei=0.0;
8312 : : #endif
8313 [ # # ]: 0 : DFv_j=BP(bp,ci);
8314 : : #endif
8315 : : #if defined(_DYNAMIC)
8316 : : #if defined(_DERIVATE)
8317 : 0 : DFdvj_dv_Vsi_ci=0.0;
8318 : 0 : DFdvj_dv_Vb_ci=0.0;
8319 : 0 : DFdvj_dv_Vbp_ci=0.0;
8320 : 0 : DFdvj_dv_Vbp_ei=0.0;
8321 : 0 : DFdvj_dv_Vbi_ci=0.0;
8322 : 0 : DFdvj_dv_Vtnode_GND=0.0;
8323 : 0 : DFdvj_dv_Vbi_ei=0.0;
8324 : : #endif
8325 : 0 : DFdvj_dv=1;
8326 : : #endif
8327 : : }
8328 : : #endif /* if (...) */
8329 : : #if defined(_DYNAMIC)
8330 : : {
8331 : 6 : double m00_logE(d00_logE0,(1.0-(DFv_j/vdcx_t)))
8332 : : #if defined(_DERIVATE)
8333 : 6 : double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdcx_t)))
8334 : : #endif
8335 : : #if defined(_DERIVATE)
8336 : 6 : DFb_Vsi_ci=0.0;
8337 : 6 : DFb_Vb_ci=0.0;
8338 : 6 : DFb_Vbp_ci=(-(DFv_j_Vbp_ci/vdcx_t))*d10_logE0;
8339 : 6 : DFb_Vbp_ei=(-(DFv_j_Vbp_ei/vdcx_t))*d10_logE0;
8340 : 6 : DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdcx_t))*d10_logE0;
8341 : 6 : DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdcx_t-DFv_j*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
8342 : 6 : DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdcx_t))*d10_logE0;
8343 : : #endif
8344 : 6 : DFb=d00_logE0;
8345 : : }
8346 : : #endif
8347 : : #if defined(_DYNAMIC)
8348 : : {
8349 : 6 : double m00_exp(d00_exp0,((-zcx)*DFb))
8350 : : #if defined(_DERIVATE)
8351 : : #define d10_exp0 d00_exp0
8352 : : #endif
8353 : : #if defined(_DERIVATE)
8354 : 6 : DFC_j1_Vsi_ci=0.0;
8355 : 6 : DFC_j1_Vb_ci=0.0;
8356 : 6 : DFC_j1_Vbp_ci=(((cjcx02_t*((-zcx)*DFb_Vbp_ci)*d10_exp0)*DFdvj_dv)+((cjcx02_t*d00_exp0)*DFdvj_dv_Vbp_ci));
8357 : 6 : DFC_j1_Vbp_ei=(((cjcx02_t*((-zcx)*DFb_Vbp_ei)*d10_exp0)*DFdvj_dv)+((cjcx02_t*d00_exp0)*DFdvj_dv_Vbp_ei));
8358 : 6 : DFC_j1_Vbi_ci=(((cjcx02_t*((-zcx)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjcx02_t*d00_exp0)*DFdvj_dv_Vbi_ci));
8359 : 6 : DFC_j1_Vtnode_GND=((((cjcx02_t_Vtnode_GND*d00_exp0)+(cjcx02_t*((-zcx)*DFb_Vtnode_GND)*d10_exp0))*DFdvj_dv)+((cjcx02_t*d00_exp0)*DFdvj_dv_Vtnode_GND));
8360 : 6 : DFC_j1_Vbi_ei=(((cjcx02_t*((-zcx)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjcx02_t*d00_exp0)*DFdvj_dv_Vbi_ei));
8361 : : #endif
8362 : 6 : DFC_j1=((cjcx02_t*d00_exp0)*DFdvj_dv);
8363 : : }
8364 : : #endif
8365 : : #if defined(_DYNAMIC)
8366 : 6 : cjcx0_t_ii=(DFC_j1+(DFC_max*(1.0-DFdvj_dv)));
8367 : : #endif
8368 : : #if defined(_DYNAMIC)
8369 : : {
8370 : 6 : double m00_exp(d00_exp0,(DFb*(1.0-zcx)))
8371 : : #if defined(_DERIVATE)
8372 : : #define d10_exp0 d00_exp0
8373 : : #endif
8374 : : #if defined(_DERIVATE)
8375 : 6 : DFQ_j_Vsi_ci=0.0;
8376 : 6 : DFQ_j_Vb_ci=0.0;
8377 : 6 : DFQ_j_Vbp_ci=(((cjcx02_t*vdcx_t)*(-DFb_Vbp_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
8378 : 6 : DFQ_j_Vbp_ei=(((cjcx02_t*vdcx_t)*(-DFb_Vbp_ei*(1.0-zcx)*d10_exp0))/(1.0-zcx));
8379 : 6 : DFQ_j_Vbi_ci=(((cjcx02_t*vdcx_t)*(-DFb_Vbi_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
8380 : 6 : DFQ_j_Vtnode_GND=(((((cjcx02_t_Vtnode_GND*vdcx_t)+(cjcx02_t*vdcx_t_Vtnode_GND))*(1.0-d00_exp0))+((cjcx02_t*vdcx_t)*(-DFb_Vtnode_GND*(1.0-zcx)*d10_exp0)))/(1.0-zcx));
8381 : 6 : DFQ_j_Vbi_ei=(((cjcx02_t*vdcx_t)*(-DFb_Vbi_ei*(1.0-zcx)*d10_exp0))/(1.0-zcx));
8382 : : #endif
8383 : 6 : DFQ_j=(((cjcx02_t*vdcx_t)*(1.0-d00_exp0))/(1.0-zcx));
8384 : : }
8385 : : #endif
8386 : : #if defined(_DYNAMIC)
8387 : : #if defined(_DERIVATE)
8388 : 6 : qjcx0_t_ii_Vbp_ei=(DFQ_j_Vbp_ei+(DFC_max*(-DFv_j_Vbp_ei)));
8389 : 6 : qjcx0_t_ii_Vbi_ei=(DFQ_j_Vbi_ei+(DFC_max*(-DFv_j_Vbi_ei)));
8390 : 6 : qjcx0_t_ii_Vbp_ci=(DFQ_j_Vbp_ci+(DFC_max*(1.0-DFv_j_Vbp_ci)));
8391 [ + - ]: 6 : qjcx0_t_ii_Vtnode_GND=(DFQ_j_Vtnode_GND+((DFC_max_Vtnode_GND*(BP(bp,ci)-DFv_j))+(DFC_max*(-DFv_j_Vtnode_GND))));
8392 : 6 : qjcx0_t_ii_Vbi_ci=(DFQ_j_Vbi_ci+(DFC_max*(-DFv_j_Vbi_ci)));
8393 : : #endif
8394 [ + - ]: 6 : qjcx0_t_ii=(DFQ_j+(DFC_max*(BP(bp,ci)-DFv_j)));
8395 : : #endif
8396 : : }
8397 : : else
8398 : : {
8399 : : #if defined(_DYNAMIC)
8400 : 0 : cjcx0_t_ii=0.0;
8401 : : #endif
8402 : : #if defined(_DYNAMIC)
8403 : : #if defined(_DERIVATE)
8404 : 0 : qjcx0_t_ii_Vbp_ei=0.0;
8405 : 0 : qjcx0_t_ii_Vbi_ei=0.0;
8406 : 0 : qjcx0_t_ii_Vbp_ci=0.0;
8407 : 0 : qjcx0_t_ii_Vtnode_GND=0.0;
8408 : 0 : qjcx0_t_ii_Vbi_ci=0.0;
8409 : : #endif
8410 : 0 : qjcx0_t_ii=0.0;
8411 : : #endif
8412 : : }
8413 : : #endif /* if (...) */
8414 : : }
8415 : : #endif /* if (...) */
8416 : : #if defined(_DERIVATE)
8417 : 6 : DIOY_Vsi_ci=0.0;
8418 : 6 : DIOY_Vbp_ci=(1/(mbcx*VT));
8419 : 6 : DIOY_Vbp_ei=0.0;
8420 : 6 : DIOY_Vbi_ci=0.0;
8421 : 6 : DIOY_Vbi_ei=0.0;
8422 [ + - ]: 6 : DIOY_Vtnode_GND=(-BP(bp,ci)*(mbcx*VT_Vtnode_GND)/(mbcx*VT)/(mbcx*VT));
8423 : : #endif
8424 [ + - ]: 6 : DIOY=(BP(bp,ci)/(mbcx*VT));
8425 [ + - ]: 6 : if
8426 : : (ibcxs>0.0)
8427 : : {
8428 [ - + ]: 6 : if
8429 : : (DIOY>80.0)
8430 : : {
8431 : : #if defined(_DERIVATE)
8432 : 0 : le_Vsi_ci=0.0;
8433 : 0 : le_Vbp_ci=DIOY_Vbp_ci;
8434 : 0 : le_Vbp_ei=DIOY_Vbp_ei;
8435 : 0 : le_Vbi_ci=DIOY_Vbi_ci;
8436 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
8437 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
8438 : : #endif
8439 : 0 : le=(1+(DIOY-80.0));
8440 : : #if defined(_DERIVATE)
8441 : 0 : DIOY_Vsi_ci=0.0;
8442 : 0 : DIOY_Vbp_ci=0.0;
8443 : 0 : DIOY_Vbp_ei=0.0;
8444 : 0 : DIOY_Vbi_ci=0.0;
8445 : 0 : DIOY_Vbi_ei=0.0;
8446 : 0 : DIOY_Vtnode_GND=0.0;
8447 : : #endif
8448 : 0 : DIOY=80.0;
8449 : : }
8450 : : else
8451 : : {
8452 : : #if defined(_DERIVATE)
8453 : 6 : le_Vsi_ci=0.0;
8454 : 6 : le_Vbp_ci=0.0;
8455 : 6 : le_Vbp_ei=0.0;
8456 : 6 : le_Vbi_ci=0.0;
8457 : 6 : le_Vbi_ei=0.0;
8458 : 6 : le_Vtnode_GND=0.0;
8459 : : #endif
8460 : 6 : le=1;
8461 : : }
8462 : : {
8463 [ + - ]: 6 : double m00_limexp(d00_limexp0,DIOY)
8464 : : #if defined(_DERIVATE)
8465 [ + - ]: 6 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
8466 : : #endif
8467 : : #if defined(_DERIVATE)
8468 : 6 : le_Vsi_ci=0.0;
8469 : 6 : le_Vbp_ci=((le_Vbp_ci*d00_limexp0)+(le*DIOY_Vbp_ci*d10_limexp0));
8470 : 6 : le_Vbp_ei=((le_Vbp_ei*d00_limexp0)+(le*DIOY_Vbp_ei*d10_limexp0));
8471 : 6 : le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
8472 : 6 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
8473 : 6 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
8474 : : #endif
8475 : 6 : le=(le*d00_limexp0);
8476 : : }
8477 : : #if defined(_DERIVATE)
8478 : 6 : ijbcx_Vtnode_GND=((ibcxs_t_Vtnode_GND*(le-1.0))+(ibcxs_t*le_Vtnode_GND));
8479 : 6 : ijbcx_Vbp_ci=(ibcxs_t*le_Vbp_ci);
8480 : 6 : ijbcx_Vbp_ei=(ibcxs_t*le_Vbp_ei);
8481 : 6 : ijbcx_Vbi_ci=(ibcxs_t*le_Vbi_ci);
8482 : 6 : ijbcx_Vbi_ei=(ibcxs_t*le_Vbi_ei);
8483 : : #endif
8484 : 6 : ijbcx=(ibcxs_t*(le-1.0));
8485 [ + + ]: 6 : if
8486 : : (DIOY<=(-14.0))
8487 : : {
8488 : : #if defined(_DERIVATE)
8489 : 5 : ijbcx_Vtnode_GND=(-ibcxs_t_Vtnode_GND);
8490 : 5 : ijbcx_Vbp_ci=0.0;
8491 : 5 : ijbcx_Vbp_ei=0.0;
8492 : 5 : ijbcx_Vbi_ci=0.0;
8493 : 5 : ijbcx_Vbi_ei=0.0;
8494 : : #endif
8495 : 5 : ijbcx=(-ibcxs_t);
8496 : : }
8497 : : }
8498 : : else
8499 : : {
8500 : : #if defined(_DERIVATE)
8501 : 0 : ijbcx_Vtnode_GND=0.0;
8502 : 0 : ijbcx_Vbp_ci=0.0;
8503 : 0 : ijbcx_Vbp_ei=0.0;
8504 : 0 : ijbcx_Vbi_ci=0.0;
8505 : 0 : ijbcx_Vbi_ei=0.0;
8506 : : #endif
8507 : 0 : ijbcx=0.0;
8508 : : }
8509 : : #ifdef _DYNAMIC
8510 [ - + ]: 6 : if
8511 : : (vptcx_t<1.0e2)
8512 : : {
8513 : : #ifdef _DYNAMIC
8514 [ # # ]: 0 : if
8515 : : (cjcx01_t>0.0)
8516 : : {
8517 : : #if defined(_DYNAMIC)
8518 : 0 : Dz_r=(zcx/4.0);
8519 : : #endif
8520 : : #if defined(_DYNAMIC)
8521 : : #if defined(_DERIVATE)
8522 : 0 : Dv_p_Vtnode_GND=(vptcx_t_Vtnode_GND-vdcx_t_Vtnode_GND);
8523 : : #endif
8524 : 0 : Dv_p=(vptcx_t-vdcx_t);
8525 : : #endif
8526 : : #if defined(_DYNAMIC)
8527 : : {
8528 : 0 : double m00_logE(d00_logE0,2.4)
8529 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zcx))
8530 : : #if defined(_DERIVATE)
8531 : 0 : DV_f_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
8532 : : #endif
8533 : 0 : DV_f=(vdcx_t*(1.0-d00_exp1));
8534 : : }
8535 : : #endif
8536 : : #if defined(_DYNAMIC)
8537 : : #if defined(_DERIVATE)
8538 : 0 : DC_max_Vtnode_GND=(2.4*cjcx01_t_Vtnode_GND);
8539 : : #endif
8540 : 0 : DC_max=(2.4*cjcx01_t);
8541 : : #endif
8542 : : #if defined(_DYNAMIC)
8543 : : {
8544 : 0 : double m00_logE(d00_logE0,(vptcx_t/vdcx_t))
8545 : 0 : double m00_exp(d00_exp1,(d00_logE0*(Dz_r-zcx)))
8546 : : #if defined(_DERIVATE)
8547 : 0 : double m10_logE(d10_logE0,d00_logE0,(vptcx_t/vdcx_t))
8548 : : #define d10_exp1 d00_exp1
8549 : : #endif
8550 : : #if defined(_DERIVATE)
8551 : 0 : DC_c_Vtnode_GND=((cjcx01_t_Vtnode_GND*d00_exp1)+(cjcx01_t*((vptcx_t_Vtnode_GND*vdcx_t-vptcx_t*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t)*d10_logE0*(Dz_r-zcx)*d10_exp1));
8552 : : #endif
8553 : 0 : DC_c=(cjcx01_t*d00_exp1);
8554 : : }
8555 : : #endif
8556 : : #if defined(_DYNAMIC)
8557 : : #if defined(_DERIVATE)
8558 : 0 : Da_Vtnode_GND=VT_Vtnode_GND;
8559 : : #endif
8560 : 0 : Da=VT;
8561 : : #endif
8562 : : #if defined(_DYNAMIC)
8563 : : #if defined(_DERIVATE)
8564 : 0 : Dv_e_Vsi_ci=0.0;
8565 : 0 : Dv_e_Vb_ci=((-1.0)/Da);
8566 : 0 : Dv_e_Vbp_ci=0.0;
8567 [ # # ]: 0 : Dv_e_Vtnode_GND=((DV_f_Vtnode_GND*Da-(DV_f-BP(b,ci))*Da_Vtnode_GND)/Da/Da);
8568 : 0 : Dv_e_Vbi_ci=0.0;
8569 : : #endif
8570 [ # # ]: 0 : Dv_e=((DV_f-BP(b,ci))/Da);
8571 : : #endif
8572 : : #ifdef _DYNAMIC
8573 [ # # ]: 0 : if
8574 : : (Dv_e<80.0)
8575 : : {
8576 : : #if defined(_DYNAMIC)
8577 : : {
8578 : 0 : double m00_exp(d00_exp0,Dv_e)
8579 : : #if defined(_DERIVATE)
8580 : : #define d10_exp0 d00_exp0
8581 : : #endif
8582 : : #if defined(_DERIVATE)
8583 : 0 : De_Vsi_ci=0.0;
8584 : 0 : De_Vb_ci=Dv_e_Vb_ci*d10_exp0;
8585 : 0 : De_Vbp_ci=Dv_e_Vbp_ci*d10_exp0;
8586 : 0 : De_Vtnode_GND=Dv_e_Vtnode_GND*d10_exp0;
8587 : 0 : De_Vbi_ci=Dv_e_Vbi_ci*d10_exp0;
8588 : : #endif
8589 : 0 : De=d00_exp0;
8590 : : }
8591 : : #endif
8592 : : #if defined(_DYNAMIC)
8593 : : #if defined(_DERIVATE)
8594 : 0 : De_1_Vsi_ci=0.0;
8595 : 0 : De_1_Vb_ci=((De_Vb_ci*(1.0+De)-De*De_Vb_ci)/(1.0+De)/(1.0+De));
8596 : 0 : De_1_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
8597 : 0 : De_1_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
8598 : 0 : De_1_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
8599 : : #endif
8600 : 0 : De_1=(De/(1.0+De));
8601 : : #endif
8602 : : #if defined(_DYNAMIC)
8603 : : {
8604 : 0 : double m00_logE(d00_logE0,(1.0+De))
8605 : : #if defined(_DERIVATE)
8606 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
8607 : : #endif
8608 : : #if defined(_DERIVATE)
8609 : 0 : Dv_j1_Vsi_ci=0.0;
8610 : 0 : Dv_j1_Vb_ci=(-(Da*De_Vb_ci*d10_logE0));
8611 : 0 : Dv_j1_Vbp_ci=(-(Da*De_Vbp_ci*d10_logE0));
8612 : 0 : Dv_j1_Vtnode_GND=(DV_f_Vtnode_GND-((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
8613 : 0 : Dv_j1_Vbi_ci=(-(Da*De_Vbi_ci*d10_logE0));
8614 : : #endif
8615 : 0 : Dv_j1=(DV_f-(Da*d00_logE0));
8616 : : }
8617 : : #endif
8618 : : }
8619 : : else
8620 : : {
8621 : : #if defined(_DYNAMIC)
8622 : : #if defined(_DERIVATE)
8623 : 0 : De_1_Vsi_ci=0.0;
8624 : 0 : De_1_Vb_ci=0.0;
8625 : 0 : De_1_Vbp_ci=0.0;
8626 : 0 : De_1_Vtnode_GND=0.0;
8627 : 0 : De_1_Vbi_ci=0.0;
8628 : : #endif
8629 : 0 : De_1=1.0;
8630 : : #endif
8631 : : #if defined(_DYNAMIC)
8632 : : #if defined(_DERIVATE)
8633 : 0 : Dv_j1_Vsi_ci=0.0;
8634 : 0 : Dv_j1_Vb_ci=1.0;
8635 : 0 : Dv_j1_Vbp_ci=0.0;
8636 : 0 : Dv_j1_Vtnode_GND=0.0;
8637 : 0 : Dv_j1_Vbi_ci=0.0;
8638 : : #endif
8639 [ # # ]: 0 : Dv_j1=BP(b,ci);
8640 : : #endif
8641 : : }
8642 : : #endif /* if (...) */
8643 : : #if defined(_DYNAMIC)
8644 : : #if defined(_DERIVATE)
8645 : 0 : Da_Vtnode_GND=((0.1*Dv_p_Vtnode_GND)+(4.0*VT_Vtnode_GND));
8646 : : #endif
8647 : 0 : Da=((0.1*Dv_p)+(4.0*VT));
8648 : : #endif
8649 : : #if defined(_DYNAMIC)
8650 : : #if defined(_DERIVATE)
8651 : 0 : Dv_r_Vsi_ci=0.0;
8652 : 0 : Dv_r_Vb_ci=(Dv_j1_Vb_ci/Da);
8653 : 0 : Dv_r_Vbp_ci=(Dv_j1_Vbp_ci/Da);
8654 : 0 : Dv_r_Vtnode_GND=(((Dv_p_Vtnode_GND+Dv_j1_Vtnode_GND)*Da-(Dv_p+Dv_j1)*Da_Vtnode_GND)/Da/Da);
8655 : 0 : Dv_r_Vbi_ci=(Dv_j1_Vbi_ci/Da);
8656 : : #endif
8657 : 0 : Dv_r=((Dv_p+Dv_j1)/Da);
8658 : : #endif
8659 : : #ifdef _DYNAMIC
8660 [ # # ]: 0 : if
8661 : : (Dv_r<80.0)
8662 : : {
8663 : : #if defined(_DYNAMIC)
8664 : : {
8665 : 0 : double m00_exp(d00_exp0,Dv_r)
8666 : : #if defined(_DERIVATE)
8667 : : #define d10_exp0 d00_exp0
8668 : : #endif
8669 : : #if defined(_DERIVATE)
8670 : 0 : De_Vsi_ci=0.0;
8671 : 0 : De_Vb_ci=Dv_r_Vb_ci*d10_exp0;
8672 : 0 : De_Vbp_ci=Dv_r_Vbp_ci*d10_exp0;
8673 : 0 : De_Vtnode_GND=Dv_r_Vtnode_GND*d10_exp0;
8674 : 0 : De_Vbi_ci=Dv_r_Vbi_ci*d10_exp0;
8675 : : #endif
8676 : 0 : De=d00_exp0;
8677 : : }
8678 : : #endif
8679 : : #if defined(_DYNAMIC)
8680 : : #if defined(_DERIVATE)
8681 : 0 : De_2_Vsi_ci=0.0;
8682 : 0 : De_2_Vb_ci=((De_Vb_ci*(1.0+De)-De*De_Vb_ci)/(1.0+De)/(1.0+De));
8683 : 0 : De_2_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
8684 : 0 : De_2_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
8685 : 0 : De_2_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
8686 : : #endif
8687 : 0 : De_2=(De/(1.0+De));
8688 : : #endif
8689 : : #if defined(_DYNAMIC)
8690 : : {
8691 : 0 : double m00_logE(d00_logE0,(1.0+De))
8692 : : #if defined(_DERIVATE)
8693 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
8694 : : #endif
8695 : : #if defined(_DERIVATE)
8696 : 0 : Dv_j2_Vsi_ci=0.0;
8697 : 0 : Dv_j2_Vb_ci=(Da*De_Vb_ci*d10_logE0);
8698 : 0 : Dv_j2_Vbp_ci=(Da*De_Vbp_ci*d10_logE0);
8699 : 0 : Dv_j2_Vtnode_GND=((-Dv_p_Vtnode_GND)+((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
8700 : 0 : Dv_j2_Vbi_ci=(Da*De_Vbi_ci*d10_logE0);
8701 : : #endif
8702 : 0 : Dv_j2=((-Dv_p)+(Da*d00_logE0));
8703 : : }
8704 : : #endif
8705 : : }
8706 : : else
8707 : : {
8708 : : #if defined(_DYNAMIC)
8709 : : #if defined(_DERIVATE)
8710 : 0 : De_2_Vsi_ci=0.0;
8711 : 0 : De_2_Vb_ci=0.0;
8712 : 0 : De_2_Vbp_ci=0.0;
8713 : 0 : De_2_Vtnode_GND=0.0;
8714 : 0 : De_2_Vbi_ci=0.0;
8715 : : #endif
8716 : 0 : De_2=1.0;
8717 : : #endif
8718 : : #if defined(_DYNAMIC)
8719 : : #if defined(_DERIVATE)
8720 : 0 : Dv_j2_Vsi_ci=0.0;
8721 : 0 : Dv_j2_Vb_ci=Dv_j1_Vb_ci;
8722 : 0 : Dv_j2_Vbp_ci=Dv_j1_Vbp_ci;
8723 : 0 : Dv_j2_Vtnode_GND=Dv_j1_Vtnode_GND;
8724 : 0 : Dv_j2_Vbi_ci=Dv_j1_Vbi_ci;
8725 : : #endif
8726 : 0 : Dv_j2=Dv_j1;
8727 : : #endif
8728 : : }
8729 : : #endif /* if (...) */
8730 : : #if defined(_DYNAMIC)
8731 : : #if defined(_DERIVATE)
8732 : 0 : Dv_j4_Vsi_ci=0.0;
8733 : 0 : Dv_j4_Vb_ci=(1.0-Dv_j1_Vb_ci);
8734 : 0 : Dv_j4_Vbp_ci=(-Dv_j1_Vbp_ci);
8735 : 0 : Dv_j4_Vbi_ci=(-Dv_j1_Vbi_ci);
8736 : 0 : Dv_j4_Vtnode_GND=(-Dv_j1_Vtnode_GND);
8737 : : #endif
8738 [ # # ]: 0 : Dv_j4=(BP(b,ci)-Dv_j1);
8739 : : #endif
8740 : : #if defined(_DYNAMIC)
8741 : : {
8742 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j1/vdcx_t)))
8743 : : #if defined(_DERIVATE)
8744 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j1/vdcx_t)))
8745 : : #endif
8746 : : #if defined(_DERIVATE)
8747 : 0 : DCln1_Vsi_ci=0.0;
8748 : 0 : DCln1_Vb_ci=(-(Dv_j1_Vb_ci/vdcx_t))*d10_logE0;
8749 : 0 : DCln1_Vbp_ci=(-(Dv_j1_Vbp_ci/vdcx_t))*d10_logE0;
8750 : 0 : DCln1_Vtnode_GND=(-((Dv_j1_Vtnode_GND*vdcx_t-Dv_j1*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
8751 : 0 : DCln1_Vbi_ci=(-(Dv_j1_Vbi_ci/vdcx_t))*d10_logE0;
8752 : : #endif
8753 : 0 : DCln1=d00_logE0;
8754 : : }
8755 : : #endif
8756 : : #if defined(_DYNAMIC)
8757 : : {
8758 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j2/vdcx_t)))
8759 : : #if defined(_DERIVATE)
8760 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j2/vdcx_t)))
8761 : : #endif
8762 : : #if defined(_DERIVATE)
8763 : 0 : DCln2_Vsi_ci=0.0;
8764 : 0 : DCln2_Vb_ci=(-(Dv_j2_Vb_ci/vdcx_t))*d10_logE0;
8765 : 0 : DCln2_Vbp_ci=(-(Dv_j2_Vbp_ci/vdcx_t))*d10_logE0;
8766 : 0 : DCln2_Vtnode_GND=(-((Dv_j2_Vtnode_GND*vdcx_t-Dv_j2*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
8767 : 0 : DCln2_Vbi_ci=(-(Dv_j2_Vbi_ci/vdcx_t))*d10_logE0;
8768 : : #endif
8769 : 0 : DCln2=d00_logE0;
8770 : : }
8771 : : #endif
8772 : : #if defined(_DYNAMIC)
8773 : 0 : Dz1=(1.0-zcx);
8774 : : #endif
8775 : : #if defined(_DYNAMIC)
8776 : 0 : Dzr1=(1.0-Dz_r);
8777 : : #endif
8778 : : #if defined(_DYNAMIC)
8779 : : {
8780 : 0 : double m00_exp(d00_exp0,(DCln2*(-zcx)))
8781 : : #if defined(_DERIVATE)
8782 : : #define d10_exp0 d00_exp0
8783 : : #endif
8784 : : #if defined(_DERIVATE)
8785 : 0 : DC_j1_Vsi_ci=0.0;
8786 : 0 : DC_j1_Vb_ci=(((((cjcx01_t*DCln2_Vb_ci*(-zcx)*d10_exp0)*De_1)+((cjcx01_t*d00_exp0)*De_1_Vb_ci))*De_2)+(((cjcx01_t*d00_exp0)*De_1)*De_2_Vb_ci));
8787 : 0 : DC_j1_Vbp_ci=(((((cjcx01_t*DCln2_Vbp_ci*(-zcx)*d10_exp0)*De_1)+((cjcx01_t*d00_exp0)*De_1_Vbp_ci))*De_2)+(((cjcx01_t*d00_exp0)*De_1)*De_2_Vbp_ci));
8788 : 0 : DC_j1_Vtnode_GND=((((((cjcx01_t_Vtnode_GND*d00_exp0)+(cjcx01_t*DCln2_Vtnode_GND*(-zcx)*d10_exp0))*De_1)+((cjcx01_t*d00_exp0)*De_1_Vtnode_GND))*De_2)+(((cjcx01_t*d00_exp0)*De_1)*De_2_Vtnode_GND));
8789 : 0 : DC_j1_Vbi_ci=(((((cjcx01_t*DCln2_Vbi_ci*(-zcx)*d10_exp0)*De_1)+((cjcx01_t*d00_exp0)*De_1_Vbi_ci))*De_2)+(((cjcx01_t*d00_exp0)*De_1)*De_2_Vbi_ci));
8790 : : #endif
8791 : 0 : DC_j1=(((cjcx01_t*d00_exp0)*De_1)*De_2);
8792 : : }
8793 : : #endif
8794 : : #if defined(_DYNAMIC)
8795 : : {
8796 : 0 : double m00_exp(d00_exp0,(DCln1*(-Dz_r)))
8797 : : #if defined(_DERIVATE)
8798 : : #define d10_exp0 d00_exp0
8799 : : #endif
8800 : : #if defined(_DERIVATE)
8801 : 0 : DC_j2_Vsi_ci=0.0;
8802 : 0 : DC_j2_Vb_ci=(((DC_c*DCln1_Vb_ci*(-Dz_r)*d10_exp0)*(1.0-De_2))+((DC_c*d00_exp0)*(-De_2_Vb_ci)));
8803 : 0 : DC_j2_Vbp_ci=(((DC_c*DCln1_Vbp_ci*(-Dz_r)*d10_exp0)*(1.0-De_2))+((DC_c*d00_exp0)*(-De_2_Vbp_ci)));
8804 : 0 : DC_j2_Vtnode_GND=((((DC_c_Vtnode_GND*d00_exp0)+(DC_c*DCln1_Vtnode_GND*(-Dz_r)*d10_exp0))*(1.0-De_2))+((DC_c*d00_exp0)*(-De_2_Vtnode_GND)));
8805 : 0 : DC_j2_Vbi_ci=(((DC_c*DCln1_Vbi_ci*(-Dz_r)*d10_exp0)*(1.0-De_2))+((DC_c*d00_exp0)*(-De_2_Vbi_ci)));
8806 : : #endif
8807 : 0 : DC_j2=((DC_c*d00_exp0)*(1.0-De_2));
8808 : : }
8809 : : #endif
8810 : : #if defined(_DYNAMIC)
8811 : : #if defined(_DERIVATE)
8812 : 0 : DC_j3_Vsi_ci=0.0;
8813 : 0 : DC_j3_Vb_ci=(DC_max*(-De_1_Vb_ci));
8814 : 0 : DC_j3_Vbp_ci=(DC_max*(-De_1_Vbp_ci));
8815 : 0 : DC_j3_Vtnode_GND=((DC_max_Vtnode_GND*(1.0-De_1))+(DC_max*(-De_1_Vtnode_GND)));
8816 : 0 : DC_j3_Vbi_ci=(DC_max*(-De_1_Vbi_ci));
8817 : : #endif
8818 : 0 : DC_j3=(DC_max*(1.0-De_1));
8819 : : #endif
8820 : : #if defined(_DYNAMIC)
8821 : 0 : cjcx0_t_i=((DC_j1+DC_j2)+DC_j3);
8822 : : #endif
8823 : : #if defined(_DYNAMIC)
8824 : : {
8825 : 0 : double m00_exp(d00_exp0,(DCln2*Dz1))
8826 : : #if defined(_DERIVATE)
8827 : : #define d10_exp0 d00_exp0
8828 : : #endif
8829 : : #if defined(_DERIVATE)
8830 : 0 : DQ_j1_Vsi_ci=0.0;
8831 : 0 : DQ_j1_Vb_ci=((cjcx01_t*(-DCln2_Vb_ci*Dz1*d10_exp0))/Dz1);
8832 : 0 : DQ_j1_Vbp_ci=((cjcx01_t*(-DCln2_Vbp_ci*Dz1*d10_exp0))/Dz1);
8833 : 0 : DQ_j1_Vtnode_GND=(((cjcx01_t_Vtnode_GND*(1.0-d00_exp0))+(cjcx01_t*(-DCln2_Vtnode_GND*Dz1*d10_exp0)))/Dz1);
8834 : 0 : DQ_j1_Vbi_ci=((cjcx01_t*(-DCln2_Vbi_ci*Dz1*d10_exp0))/Dz1);
8835 : : #endif
8836 : 0 : DQ_j1=((cjcx01_t*(1.0-d00_exp0))/Dz1);
8837 : : }
8838 : : #endif
8839 : : #if defined(_DYNAMIC)
8840 : : {
8841 : 0 : double m00_exp(d00_exp0,(DCln1*Dzr1))
8842 : : #if defined(_DERIVATE)
8843 : : #define d10_exp0 d00_exp0
8844 : : #endif
8845 : : #if defined(_DERIVATE)
8846 : 0 : DQ_j2_Vsi_ci=0.0;
8847 : 0 : DQ_j2_Vb_ci=((DC_c*(-DCln1_Vb_ci*Dzr1*d10_exp0))/Dzr1);
8848 : 0 : DQ_j2_Vbp_ci=((DC_c*(-DCln1_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
8849 : 0 : DQ_j2_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln1_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
8850 : 0 : DQ_j2_Vbi_ci=((DC_c*(-DCln1_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
8851 : : #endif
8852 : 0 : DQ_j2=((DC_c*(1.0-d00_exp0))/Dzr1);
8853 : : }
8854 : : #endif
8855 : : #if defined(_DYNAMIC)
8856 : : {
8857 : 0 : double m00_exp(d00_exp0,(DCln2*Dzr1))
8858 : : #if defined(_DERIVATE)
8859 : : #define d10_exp0 d00_exp0
8860 : : #endif
8861 : : #if defined(_DERIVATE)
8862 : 0 : DQ_j3_Vsi_ci=0.0;
8863 : 0 : DQ_j3_Vb_ci=((DC_c*(-DCln2_Vb_ci*Dzr1*d10_exp0))/Dzr1);
8864 : 0 : DQ_j3_Vbp_ci=((DC_c*(-DCln2_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
8865 : 0 : DQ_j3_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln2_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
8866 : 0 : DQ_j3_Vbi_ci=((DC_c*(-DCln2_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
8867 : : #endif
8868 : 0 : DQ_j3=((DC_c*(1.0-d00_exp0))/Dzr1);
8869 : : }
8870 : : #endif
8871 : : #if defined(_DYNAMIC)
8872 : : #if defined(_DERIVATE)
8873 : 0 : qjcx0_t_i_Vbp_ei=0.0;
8874 : 0 : qjcx0_t_i_Vbi_ei=0.0;
8875 : 0 : qjcx0_t_i_Vb_ci=(((DQ_j1_Vb_ci+DQ_j2_Vb_ci)-DQ_j3_Vb_ci)*vdcx_t+(DC_max*Dv_j4_Vb_ci));
8876 : 0 : qjcx0_t_i_Vbp_ci=(((DQ_j1_Vbp_ci+DQ_j2_Vbp_ci)-DQ_j3_Vbp_ci)*vdcx_t+(DC_max*Dv_j4_Vbp_ci));
8877 : 0 : qjcx0_t_i_Vtnode_GND=(((((DQ_j1_Vtnode_GND+DQ_j2_Vtnode_GND)-DQ_j3_Vtnode_GND)*vdcx_t)+(((DQ_j1+DQ_j2)-DQ_j3)*vdcx_t_Vtnode_GND))+((DC_max_Vtnode_GND*Dv_j4)+(DC_max*Dv_j4_Vtnode_GND)));
8878 : 0 : qjcx0_t_i_Vbi_ci=(((DQ_j1_Vbi_ci+DQ_j2_Vbi_ci)-DQ_j3_Vbi_ci)*vdcx_t+(DC_max*Dv_j4_Vbi_ci));
8879 : : #endif
8880 : 0 : qjcx0_t_i=((((DQ_j1+DQ_j2)-DQ_j3)*vdcx_t)+(DC_max*Dv_j4));
8881 : : #endif
8882 : : }
8883 : : else
8884 : : {
8885 : : #if defined(_DYNAMIC)
8886 : 0 : cjcx0_t_i=0.0;
8887 : : #endif
8888 : : #if defined(_DYNAMIC)
8889 : : #if defined(_DERIVATE)
8890 : 0 : qjcx0_t_i_Vbp_ei=0.0;
8891 : 0 : qjcx0_t_i_Vbi_ei=0.0;
8892 : 0 : qjcx0_t_i_Vb_ci=0.0;
8893 : 0 : qjcx0_t_i_Vbp_ci=0.0;
8894 : 0 : qjcx0_t_i_Vtnode_GND=0.0;
8895 : 0 : qjcx0_t_i_Vbi_ci=0.0;
8896 : : #endif
8897 : 0 : qjcx0_t_i=0.0;
8898 : : #endif
8899 : : }
8900 : : #endif /* if (...) */
8901 : : }
8902 : : else
8903 : : {
8904 : : #ifdef _DYNAMIC
8905 [ + - ]: 6 : if
8906 : : (cjcx01_t>0.0)
8907 : : {
8908 : : #if defined(_DYNAMIC)
8909 : : {
8910 : 6 : double m00_logE(d00_logE0,2.4)
8911 : 6 : double m00_exp(d00_exp1,((-d00_logE0)/zcx))
8912 : : #if defined(_DERIVATE)
8913 : 6 : DFV_f_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
8914 : : #endif
8915 : 6 : DFV_f=(vdcx_t*(1.0-d00_exp1));
8916 : : }
8917 : : #endif
8918 : : #if defined(_DYNAMIC)
8919 : : #if defined(_DERIVATE)
8920 : 6 : DFC_max_Vtnode_GND=(2.4*cjcx01_t_Vtnode_GND);
8921 : : #endif
8922 : 6 : DFC_max=(2.4*cjcx01_t);
8923 : : #endif
8924 : : #if defined(_DYNAMIC)
8925 : : #if defined(_DERIVATE)
8926 : 6 : DFv_e_Vsi_ci=0.0;
8927 : 6 : DFv_e_Vb_ci=((-1.0)/VT);
8928 : 6 : DFv_e_Vbp_ci=0.0;
8929 : 6 : DFv_e_Vbp_ei=0.0;
8930 : 6 : DFv_e_Vbi_ci=0.0;
8931 [ + - ]: 6 : DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(b,ci))*VT_Vtnode_GND)/VT/VT);
8932 : 6 : DFv_e_Vbi_ei=0.0;
8933 : : #endif
8934 [ + - ]: 6 : DFv_e=((DFV_f-BP(b,ci))/VT);
8935 : : #endif
8936 : : #ifdef _DYNAMIC
8937 [ + - ]: 6 : if
8938 : : (DFv_e<80.0)
8939 : : {
8940 : : #if defined(_DYNAMIC)
8941 : : {
8942 : 6 : double m00_exp(d00_exp0,DFv_e)
8943 : : #if defined(_DERIVATE)
8944 : : #define d10_exp0 d00_exp0
8945 : : #endif
8946 : : #if defined(_DERIVATE)
8947 : 6 : DFe_Vsi_ci=0.0;
8948 : 6 : DFe_Vb_ci=DFv_e_Vb_ci*d10_exp0;
8949 : 6 : DFe_Vbp_ci=DFv_e_Vbp_ci*d10_exp0;
8950 : 6 : DFe_Vbp_ei=DFv_e_Vbp_ei*d10_exp0;
8951 : 6 : DFe_Vbi_ci=DFv_e_Vbi_ci*d10_exp0;
8952 : 6 : DFe_Vtnode_GND=DFv_e_Vtnode_GND*d10_exp0;
8953 : 6 : DFe_Vbi_ei=DFv_e_Vbi_ei*d10_exp0;
8954 : : #endif
8955 : 6 : DFe=d00_exp0;
8956 : : }
8957 : : #endif
8958 : : #if defined(_DYNAMIC)
8959 : : {
8960 : 6 : double m00_logE(d00_logE0,(1.0+DFe))
8961 : : #if defined(_DERIVATE)
8962 : 6 : double m10_logE(d10_logE0,d00_logE0,(1.0+DFe))
8963 : : #endif
8964 : : #if defined(_DERIVATE)
8965 : 6 : DFv_j_Vsi_ci=0.0;
8966 : 6 : DFv_j_Vb_ci=(-(VT*DFe_Vb_ci*d10_logE0));
8967 : 6 : DFv_j_Vbp_ci=(-(VT*DFe_Vbp_ci*d10_logE0));
8968 : 6 : DFv_j_Vbp_ei=(-(VT*DFe_Vbp_ei*d10_logE0));
8969 : 6 : DFv_j_Vbi_ci=(-(VT*DFe_Vbi_ci*d10_logE0));
8970 : 6 : DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*DFe_Vtnode_GND*d10_logE0)));
8971 : 6 : DFv_j_Vbi_ei=(-(VT*DFe_Vbi_ei*d10_logE0));
8972 : : #endif
8973 : 6 : DFv_j=(DFV_f-(VT*d00_logE0));
8974 : : }
8975 : : #endif
8976 : : #if defined(_DYNAMIC)
8977 : : #if defined(_DERIVATE)
8978 : 6 : DFdvj_dv_Vsi_ci=0.0;
8979 : 6 : DFdvj_dv_Vb_ci=((DFe_Vb_ci*(1.0+DFe)-DFe*DFe_Vb_ci)/(1.0+DFe)/(1.0+DFe));
8980 : 6 : DFdvj_dv_Vbp_ci=((DFe_Vbp_ci*(1.0+DFe)-DFe*DFe_Vbp_ci)/(1.0+DFe)/(1.0+DFe));
8981 : 6 : DFdvj_dv_Vbp_ei=((DFe_Vbp_ei*(1.0+DFe)-DFe*DFe_Vbp_ei)/(1.0+DFe)/(1.0+DFe));
8982 : 6 : DFdvj_dv_Vbi_ci=((DFe_Vbi_ci*(1.0+DFe)-DFe*DFe_Vbi_ci)/(1.0+DFe)/(1.0+DFe));
8983 : 6 : DFdvj_dv_Vtnode_GND=((DFe_Vtnode_GND*(1.0+DFe)-DFe*DFe_Vtnode_GND)/(1.0+DFe)/(1.0+DFe));
8984 : 6 : DFdvj_dv_Vbi_ei=((DFe_Vbi_ei*(1.0+DFe)-DFe*DFe_Vbi_ei)/(1.0+DFe)/(1.0+DFe));
8985 : : #endif
8986 : 6 : DFdvj_dv=(DFe/(1.0+DFe));
8987 : : #endif
8988 : : }
8989 : : else
8990 : : {
8991 : : #if defined(_DYNAMIC)
8992 : : #if defined(_DERIVATE)
8993 : 0 : DFv_j_Vsi_ci=0.0;
8994 : 0 : DFv_j_Vb_ci=1.0;
8995 : 0 : DFv_j_Vbp_ci=0.0;
8996 : 0 : DFv_j_Vbp_ei=0.0;
8997 : 0 : DFv_j_Vbi_ci=0.0;
8998 : 0 : DFv_j_Vtnode_GND=0.0;
8999 : 0 : DFv_j_Vbi_ei=0.0;
9000 : : #endif
9001 [ # # ]: 0 : DFv_j=BP(b,ci);
9002 : : #endif
9003 : : #if defined(_DYNAMIC)
9004 : : #if defined(_DERIVATE)
9005 : 0 : DFdvj_dv_Vsi_ci=0.0;
9006 : 0 : DFdvj_dv_Vb_ci=0.0;
9007 : 0 : DFdvj_dv_Vbp_ci=0.0;
9008 : 0 : DFdvj_dv_Vbp_ei=0.0;
9009 : 0 : DFdvj_dv_Vbi_ci=0.0;
9010 : 0 : DFdvj_dv_Vtnode_GND=0.0;
9011 : 0 : DFdvj_dv_Vbi_ei=0.0;
9012 : : #endif
9013 : 0 : DFdvj_dv=1;
9014 : : #endif
9015 : : }
9016 : : #endif /* if (...) */
9017 : : #if defined(_DYNAMIC)
9018 : : {
9019 : 6 : double m00_logE(d00_logE0,(1.0-(DFv_j/vdcx_t)))
9020 : : #if defined(_DERIVATE)
9021 : 6 : double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdcx_t)))
9022 : : #endif
9023 : : #if defined(_DERIVATE)
9024 : 6 : DFb_Vsi_ci=0.0;
9025 : 6 : DFb_Vb_ci=(-(DFv_j_Vb_ci/vdcx_t))*d10_logE0;
9026 : 6 : DFb_Vbp_ci=(-(DFv_j_Vbp_ci/vdcx_t))*d10_logE0;
9027 : 6 : DFb_Vbp_ei=(-(DFv_j_Vbp_ei/vdcx_t))*d10_logE0;
9028 : 6 : DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdcx_t))*d10_logE0;
9029 : 6 : DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdcx_t-DFv_j*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
9030 : 6 : DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdcx_t))*d10_logE0;
9031 : : #endif
9032 : 6 : DFb=d00_logE0;
9033 : : }
9034 : : #endif
9035 : : #if defined(_DYNAMIC)
9036 : : {
9037 : 6 : double m00_exp(d00_exp0,((-zcx)*DFb))
9038 : : #if defined(_DERIVATE)
9039 : : #define d10_exp0 d00_exp0
9040 : : #endif
9041 : : #if defined(_DERIVATE)
9042 : 6 : DFC_j1_Vsi_ci=0.0;
9043 : 6 : DFC_j1_Vb_ci=(((cjcx01_t*((-zcx)*DFb_Vb_ci)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vb_ci));
9044 : 6 : DFC_j1_Vbp_ci=(((cjcx01_t*((-zcx)*DFb_Vbp_ci)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vbp_ci));
9045 : 6 : DFC_j1_Vbp_ei=(((cjcx01_t*((-zcx)*DFb_Vbp_ei)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vbp_ei));
9046 : 6 : DFC_j1_Vbi_ci=(((cjcx01_t*((-zcx)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vbi_ci));
9047 : 6 : DFC_j1_Vtnode_GND=((((cjcx01_t_Vtnode_GND*d00_exp0)+(cjcx01_t*((-zcx)*DFb_Vtnode_GND)*d10_exp0))*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vtnode_GND));
9048 : 6 : DFC_j1_Vbi_ei=(((cjcx01_t*((-zcx)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vbi_ei));
9049 : : #endif
9050 : 6 : DFC_j1=((cjcx01_t*d00_exp0)*DFdvj_dv);
9051 : : }
9052 : : #endif
9053 : : #if defined(_DYNAMIC)
9054 : 6 : cjcx0_t_i=(DFC_j1+(DFC_max*(1.0-DFdvj_dv)));
9055 : : #endif
9056 : : #if defined(_DYNAMIC)
9057 : : {
9058 : 6 : double m00_exp(d00_exp0,(DFb*(1.0-zcx)))
9059 : : #if defined(_DERIVATE)
9060 : : #define d10_exp0 d00_exp0
9061 : : #endif
9062 : : #if defined(_DERIVATE)
9063 : 6 : DFQ_j_Vsi_ci=0.0;
9064 : 6 : DFQ_j_Vb_ci=(((cjcx01_t*vdcx_t)*(-DFb_Vb_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
9065 : 6 : DFQ_j_Vbp_ci=(((cjcx01_t*vdcx_t)*(-DFb_Vbp_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
9066 : 6 : DFQ_j_Vbp_ei=(((cjcx01_t*vdcx_t)*(-DFb_Vbp_ei*(1.0-zcx)*d10_exp0))/(1.0-zcx));
9067 : 6 : DFQ_j_Vbi_ci=(((cjcx01_t*vdcx_t)*(-DFb_Vbi_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
9068 : 6 : DFQ_j_Vtnode_GND=(((((cjcx01_t_Vtnode_GND*vdcx_t)+(cjcx01_t*vdcx_t_Vtnode_GND))*(1.0-d00_exp0))+((cjcx01_t*vdcx_t)*(-DFb_Vtnode_GND*(1.0-zcx)*d10_exp0)))/(1.0-zcx));
9069 : 6 : DFQ_j_Vbi_ei=(((cjcx01_t*vdcx_t)*(-DFb_Vbi_ei*(1.0-zcx)*d10_exp0))/(1.0-zcx));
9070 : : #endif
9071 : 6 : DFQ_j=(((cjcx01_t*vdcx_t)*(1.0-d00_exp0))/(1.0-zcx));
9072 : : }
9073 : : #endif
9074 : : #if defined(_DYNAMIC)
9075 : : #if defined(_DERIVATE)
9076 : 6 : qjcx0_t_i_Vbp_ei=(DFQ_j_Vbp_ei+(DFC_max*(-DFv_j_Vbp_ei)));
9077 : 6 : qjcx0_t_i_Vbi_ei=(DFQ_j_Vbi_ei+(DFC_max*(-DFv_j_Vbi_ei)));
9078 : 6 : qjcx0_t_i_Vb_ci=(DFQ_j_Vb_ci+(DFC_max*(1.0-DFv_j_Vb_ci)));
9079 : 6 : qjcx0_t_i_Vbp_ci=(DFQ_j_Vbp_ci+(DFC_max*(-DFv_j_Vbp_ci)));
9080 [ + - ]: 6 : qjcx0_t_i_Vtnode_GND=(DFQ_j_Vtnode_GND+((DFC_max_Vtnode_GND*(BP(b,ci)-DFv_j))+(DFC_max*(-DFv_j_Vtnode_GND))));
9081 : 6 : qjcx0_t_i_Vbi_ci=(DFQ_j_Vbi_ci+(DFC_max*(-DFv_j_Vbi_ci)));
9082 : : #endif
9083 [ + - ]: 6 : qjcx0_t_i=(DFQ_j+(DFC_max*(BP(b,ci)-DFv_j)));
9084 : : #endif
9085 : : }
9086 : : else
9087 : : {
9088 : : #if defined(_DYNAMIC)
9089 : 0 : cjcx0_t_i=0.0;
9090 : : #endif
9091 : : #if defined(_DYNAMIC)
9092 : : #if defined(_DERIVATE)
9093 : 0 : qjcx0_t_i_Vbp_ei=0.0;
9094 : 0 : qjcx0_t_i_Vbi_ei=0.0;
9095 : 0 : qjcx0_t_i_Vb_ci=0.0;
9096 : 0 : qjcx0_t_i_Vbp_ci=0.0;
9097 : 0 : qjcx0_t_i_Vtnode_GND=0.0;
9098 : 0 : qjcx0_t_i_Vbi_ci=0.0;
9099 : : #endif
9100 : 0 : qjcx0_t_i=0.0;
9101 : : #endif
9102 : : }
9103 : : #endif /* if (...) */
9104 : : }
9105 : : #endif /* if (...) */
9106 : : #ifdef _DYNAMIC
9107 [ - + ]: 6 : if
9108 : : (vpts_t<1.0e2)
9109 : : {
9110 : : #ifdef _DYNAMIC
9111 [ # # ]: 0 : if
9112 : : (cjs0_t>0.0)
9113 : : {
9114 : : #if defined(_DYNAMIC)
9115 : 0 : Dz_r=(zs/4.0);
9116 : : #endif
9117 : : #if defined(_DYNAMIC)
9118 : : #if defined(_DERIVATE)
9119 : 0 : Dv_p_Vtnode_GND=(vpts_t_Vtnode_GND-vds_t_Vtnode_GND);
9120 : : #endif
9121 : 0 : Dv_p=(vpts_t-vds_t);
9122 : : #endif
9123 : : #if defined(_DYNAMIC)
9124 : : {
9125 : 0 : double m00_logE(d00_logE0,2.4)
9126 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zs))
9127 : : #if defined(_DERIVATE)
9128 : 0 : DV_f_Vtnode_GND=vds_t_Vtnode_GND*(1.0-d00_exp1);
9129 : : #endif
9130 : 0 : DV_f=(vds_t*(1.0-d00_exp1));
9131 : : }
9132 : : #endif
9133 : : #if defined(_DYNAMIC)
9134 : : #if defined(_DERIVATE)
9135 : 0 : DC_max_Vtnode_GND=(2.4*cjs0_t_Vtnode_GND);
9136 : : #endif
9137 : 0 : DC_max=(2.4*cjs0_t);
9138 : : #endif
9139 : : #if defined(_DYNAMIC)
9140 : : {
9141 : 0 : double m00_logE(d00_logE0,(vpts_t/vds_t))
9142 : 0 : double m00_exp(d00_exp1,(d00_logE0*(Dz_r-zs)))
9143 : : #if defined(_DERIVATE)
9144 : 0 : double m10_logE(d10_logE0,d00_logE0,(vpts_t/vds_t))
9145 : : #define d10_exp1 d00_exp1
9146 : : #endif
9147 : : #if defined(_DERIVATE)
9148 : 0 : DC_c_Vtnode_GND=((cjs0_t_Vtnode_GND*d00_exp1)+(cjs0_t*((vpts_t_Vtnode_GND*vds_t-vpts_t*vds_t_Vtnode_GND)/vds_t/vds_t)*d10_logE0*(Dz_r-zs)*d10_exp1));
9149 : : #endif
9150 : 0 : DC_c=(cjs0_t*d00_exp1);
9151 : : }
9152 : : #endif
9153 : : #if defined(_DYNAMIC)
9154 : : #if defined(_DERIVATE)
9155 : 0 : Da_Vtnode_GND=VT_Vtnode_GND;
9156 : : #endif
9157 : 0 : Da=VT;
9158 : : #endif
9159 : : #if defined(_DYNAMIC)
9160 : : #if defined(_DERIVATE)
9161 : 0 : Dv_e_Vsi_ci=((-1.0)/Da);
9162 : 0 : Dv_e_Vb_ci=0.0;
9163 : 0 : Dv_e_Vbp_ci=0.0;
9164 [ # # ]: 0 : Dv_e_Vtnode_GND=((DV_f_Vtnode_GND*Da-(DV_f-BP(si,ci))*Da_Vtnode_GND)/Da/Da);
9165 : 0 : Dv_e_Vbi_ci=0.0;
9166 : : #endif
9167 [ # # ]: 0 : Dv_e=((DV_f-BP(si,ci))/Da);
9168 : : #endif
9169 : : #ifdef _DYNAMIC
9170 [ # # ]: 0 : if
9171 : : (Dv_e<80.0)
9172 : : {
9173 : : #if defined(_DYNAMIC)
9174 : : {
9175 : 0 : double m00_exp(d00_exp0,Dv_e)
9176 : : #if defined(_DERIVATE)
9177 : : #define d10_exp0 d00_exp0
9178 : : #endif
9179 : : #if defined(_DERIVATE)
9180 : 0 : De_Vsi_ci=Dv_e_Vsi_ci*d10_exp0;
9181 : 0 : De_Vb_ci=Dv_e_Vb_ci*d10_exp0;
9182 : 0 : De_Vbp_ci=Dv_e_Vbp_ci*d10_exp0;
9183 : 0 : De_Vtnode_GND=Dv_e_Vtnode_GND*d10_exp0;
9184 : 0 : De_Vbi_ci=Dv_e_Vbi_ci*d10_exp0;
9185 : : #endif
9186 : 0 : De=d00_exp0;
9187 : : }
9188 : : #endif
9189 : : #if defined(_DYNAMIC)
9190 : : #if defined(_DERIVATE)
9191 : 0 : De_1_Vsi_ci=((De_Vsi_ci*(1.0+De)-De*De_Vsi_ci)/(1.0+De)/(1.0+De));
9192 : 0 : De_1_Vb_ci=((De_Vb_ci*(1.0+De)-De*De_Vb_ci)/(1.0+De)/(1.0+De));
9193 : 0 : De_1_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
9194 : 0 : De_1_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
9195 : 0 : De_1_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
9196 : : #endif
9197 : 0 : De_1=(De/(1.0+De));
9198 : : #endif
9199 : : #if defined(_DYNAMIC)
9200 : : {
9201 : 0 : double m00_logE(d00_logE0,(1.0+De))
9202 : : #if defined(_DERIVATE)
9203 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
9204 : : #endif
9205 : : #if defined(_DERIVATE)
9206 : 0 : Dv_j1_Vsi_ci=(-(Da*De_Vsi_ci*d10_logE0));
9207 : 0 : Dv_j1_Vb_ci=(-(Da*De_Vb_ci*d10_logE0));
9208 : 0 : Dv_j1_Vbp_ci=(-(Da*De_Vbp_ci*d10_logE0));
9209 : 0 : Dv_j1_Vtnode_GND=(DV_f_Vtnode_GND-((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
9210 : 0 : Dv_j1_Vbi_ci=(-(Da*De_Vbi_ci*d10_logE0));
9211 : : #endif
9212 : 0 : Dv_j1=(DV_f-(Da*d00_logE0));
9213 : : }
9214 : : #endif
9215 : : }
9216 : : else
9217 : : {
9218 : : #if defined(_DYNAMIC)
9219 : : #if defined(_DERIVATE)
9220 : 0 : De_1_Vsi_ci=0.0;
9221 : 0 : De_1_Vb_ci=0.0;
9222 : 0 : De_1_Vbp_ci=0.0;
9223 : 0 : De_1_Vtnode_GND=0.0;
9224 : 0 : De_1_Vbi_ci=0.0;
9225 : : #endif
9226 : 0 : De_1=1.0;
9227 : : #endif
9228 : : #if defined(_DYNAMIC)
9229 : : #if defined(_DERIVATE)
9230 : 0 : Dv_j1_Vsi_ci=1.0;
9231 : 0 : Dv_j1_Vb_ci=0.0;
9232 : 0 : Dv_j1_Vbp_ci=0.0;
9233 : 0 : Dv_j1_Vtnode_GND=0.0;
9234 : 0 : Dv_j1_Vbi_ci=0.0;
9235 : : #endif
9236 [ # # ]: 0 : Dv_j1=BP(si,ci);
9237 : : #endif
9238 : : }
9239 : : #endif /* if (...) */
9240 : : #if defined(_DYNAMIC)
9241 : : #if defined(_DERIVATE)
9242 : 0 : Da_Vtnode_GND=((0.1*Dv_p_Vtnode_GND)+(4.0*VT_Vtnode_GND));
9243 : : #endif
9244 : 0 : Da=((0.1*Dv_p)+(4.0*VT));
9245 : : #endif
9246 : : #if defined(_DYNAMIC)
9247 : : #if defined(_DERIVATE)
9248 : 0 : Dv_r_Vsi_ci=(Dv_j1_Vsi_ci/Da);
9249 : 0 : Dv_r_Vb_ci=(Dv_j1_Vb_ci/Da);
9250 : 0 : Dv_r_Vbp_ci=(Dv_j1_Vbp_ci/Da);
9251 : 0 : Dv_r_Vtnode_GND=(((Dv_p_Vtnode_GND+Dv_j1_Vtnode_GND)*Da-(Dv_p+Dv_j1)*Da_Vtnode_GND)/Da/Da);
9252 : 0 : Dv_r_Vbi_ci=(Dv_j1_Vbi_ci/Da);
9253 : : #endif
9254 : 0 : Dv_r=((Dv_p+Dv_j1)/Da);
9255 : : #endif
9256 : : #ifdef _DYNAMIC
9257 [ # # ]: 0 : if
9258 : : (Dv_r<80.0)
9259 : : {
9260 : : #if defined(_DYNAMIC)
9261 : : {
9262 : 0 : double m00_exp(d00_exp0,Dv_r)
9263 : : #if defined(_DERIVATE)
9264 : : #define d10_exp0 d00_exp0
9265 : : #endif
9266 : : #if defined(_DERIVATE)
9267 : 0 : De_Vsi_ci=Dv_r_Vsi_ci*d10_exp0;
9268 : 0 : De_Vb_ci=Dv_r_Vb_ci*d10_exp0;
9269 : 0 : De_Vbp_ci=Dv_r_Vbp_ci*d10_exp0;
9270 : 0 : De_Vtnode_GND=Dv_r_Vtnode_GND*d10_exp0;
9271 : 0 : De_Vbi_ci=Dv_r_Vbi_ci*d10_exp0;
9272 : : #endif
9273 : 0 : De=d00_exp0;
9274 : : }
9275 : : #endif
9276 : : #if defined(_DYNAMIC)
9277 : : #if defined(_DERIVATE)
9278 : 0 : De_2_Vsi_ci=((De_Vsi_ci*(1.0+De)-De*De_Vsi_ci)/(1.0+De)/(1.0+De));
9279 : 0 : De_2_Vb_ci=((De_Vb_ci*(1.0+De)-De*De_Vb_ci)/(1.0+De)/(1.0+De));
9280 : 0 : De_2_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
9281 : 0 : De_2_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
9282 : 0 : De_2_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
9283 : : #endif
9284 : 0 : De_2=(De/(1.0+De));
9285 : : #endif
9286 : : #if defined(_DYNAMIC)
9287 : : {
9288 : 0 : double m00_logE(d00_logE0,(1.0+De))
9289 : : #if defined(_DERIVATE)
9290 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
9291 : : #endif
9292 : : #if defined(_DERIVATE)
9293 : 0 : Dv_j2_Vsi_ci=(Da*De_Vsi_ci*d10_logE0);
9294 : 0 : Dv_j2_Vb_ci=(Da*De_Vb_ci*d10_logE0);
9295 : 0 : Dv_j2_Vbp_ci=(Da*De_Vbp_ci*d10_logE0);
9296 : 0 : Dv_j2_Vtnode_GND=((-Dv_p_Vtnode_GND)+((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
9297 : 0 : Dv_j2_Vbi_ci=(Da*De_Vbi_ci*d10_logE0);
9298 : : #endif
9299 : 0 : Dv_j2=((-Dv_p)+(Da*d00_logE0));
9300 : : }
9301 : : #endif
9302 : : }
9303 : : else
9304 : : {
9305 : : #if defined(_DYNAMIC)
9306 : : #if defined(_DERIVATE)
9307 : 0 : De_2_Vsi_ci=0.0;
9308 : 0 : De_2_Vb_ci=0.0;
9309 : 0 : De_2_Vbp_ci=0.0;
9310 : 0 : De_2_Vtnode_GND=0.0;
9311 : 0 : De_2_Vbi_ci=0.0;
9312 : : #endif
9313 : 0 : De_2=1.0;
9314 : : #endif
9315 : : #if defined(_DYNAMIC)
9316 : : #if defined(_DERIVATE)
9317 : 0 : Dv_j2_Vsi_ci=Dv_j1_Vsi_ci;
9318 : 0 : Dv_j2_Vb_ci=Dv_j1_Vb_ci;
9319 : 0 : Dv_j2_Vbp_ci=Dv_j1_Vbp_ci;
9320 : 0 : Dv_j2_Vtnode_GND=Dv_j1_Vtnode_GND;
9321 : 0 : Dv_j2_Vbi_ci=Dv_j1_Vbi_ci;
9322 : : #endif
9323 : 0 : Dv_j2=Dv_j1;
9324 : : #endif
9325 : : }
9326 : : #endif /* if (...) */
9327 : : #if defined(_DYNAMIC)
9328 : : #if defined(_DERIVATE)
9329 : 0 : Dv_j4_Vsi_ci=(1.0-Dv_j1_Vsi_ci);
9330 : 0 : Dv_j4_Vb_ci=(-Dv_j1_Vb_ci);
9331 : 0 : Dv_j4_Vbp_ci=(-Dv_j1_Vbp_ci);
9332 : 0 : Dv_j4_Vbi_ci=(-Dv_j1_Vbi_ci);
9333 : 0 : Dv_j4_Vtnode_GND=(-Dv_j1_Vtnode_GND);
9334 : : #endif
9335 [ # # ]: 0 : Dv_j4=(BP(si,ci)-Dv_j1);
9336 : : #endif
9337 : : #if defined(_DYNAMIC)
9338 : : {
9339 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j1/vds_t)))
9340 : : #if defined(_DERIVATE)
9341 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j1/vds_t)))
9342 : : #endif
9343 : : #if defined(_DERIVATE)
9344 : 0 : DCln1_Vsi_ci=(-(Dv_j1_Vsi_ci/vds_t))*d10_logE0;
9345 : 0 : DCln1_Vb_ci=(-(Dv_j1_Vb_ci/vds_t))*d10_logE0;
9346 : 0 : DCln1_Vbp_ci=(-(Dv_j1_Vbp_ci/vds_t))*d10_logE0;
9347 : 0 : DCln1_Vtnode_GND=(-((Dv_j1_Vtnode_GND*vds_t-Dv_j1*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0;
9348 : 0 : DCln1_Vbi_ci=(-(Dv_j1_Vbi_ci/vds_t))*d10_logE0;
9349 : : #endif
9350 : 0 : DCln1=d00_logE0;
9351 : : }
9352 : : #endif
9353 : : #if defined(_DYNAMIC)
9354 : : {
9355 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j2/vds_t)))
9356 : : #if defined(_DERIVATE)
9357 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j2/vds_t)))
9358 : : #endif
9359 : : #if defined(_DERIVATE)
9360 : 0 : DCln2_Vsi_ci=(-(Dv_j2_Vsi_ci/vds_t))*d10_logE0;
9361 : 0 : DCln2_Vb_ci=(-(Dv_j2_Vb_ci/vds_t))*d10_logE0;
9362 : 0 : DCln2_Vbp_ci=(-(Dv_j2_Vbp_ci/vds_t))*d10_logE0;
9363 : 0 : DCln2_Vtnode_GND=(-((Dv_j2_Vtnode_GND*vds_t-Dv_j2*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0;
9364 : 0 : DCln2_Vbi_ci=(-(Dv_j2_Vbi_ci/vds_t))*d10_logE0;
9365 : : #endif
9366 : 0 : DCln2=d00_logE0;
9367 : : }
9368 : : #endif
9369 : : #if defined(_DYNAMIC)
9370 : 0 : Dz1=(1.0-zs);
9371 : : #endif
9372 : : #if defined(_DYNAMIC)
9373 : 0 : Dzr1=(1.0-Dz_r);
9374 : : #endif
9375 : : #if defined(_DYNAMIC)
9376 : : {
9377 : 0 : double m00_exp(d00_exp0,(DCln2*(-zs)))
9378 : : #if defined(_DERIVATE)
9379 : : #define d10_exp0 d00_exp0
9380 : : #endif
9381 : : #if defined(_DERIVATE)
9382 : 0 : DC_j1_Vsi_ci=(((((cjs0_t*DCln2_Vsi_ci*(-zs)*d10_exp0)*De_1)+((cjs0_t*d00_exp0)*De_1_Vsi_ci))*De_2)+(((cjs0_t*d00_exp0)*De_1)*De_2_Vsi_ci));
9383 : 0 : DC_j1_Vb_ci=(((((cjs0_t*DCln2_Vb_ci*(-zs)*d10_exp0)*De_1)+((cjs0_t*d00_exp0)*De_1_Vb_ci))*De_2)+(((cjs0_t*d00_exp0)*De_1)*De_2_Vb_ci));
9384 : 0 : DC_j1_Vbp_ci=(((((cjs0_t*DCln2_Vbp_ci*(-zs)*d10_exp0)*De_1)+((cjs0_t*d00_exp0)*De_1_Vbp_ci))*De_2)+(((cjs0_t*d00_exp0)*De_1)*De_2_Vbp_ci));
9385 : 0 : DC_j1_Vtnode_GND=((((((cjs0_t_Vtnode_GND*d00_exp0)+(cjs0_t*DCln2_Vtnode_GND*(-zs)*d10_exp0))*De_1)+((cjs0_t*d00_exp0)*De_1_Vtnode_GND))*De_2)+(((cjs0_t*d00_exp0)*De_1)*De_2_Vtnode_GND));
9386 : 0 : DC_j1_Vbi_ci=(((((cjs0_t*DCln2_Vbi_ci*(-zs)*d10_exp0)*De_1)+((cjs0_t*d00_exp0)*De_1_Vbi_ci))*De_2)+(((cjs0_t*d00_exp0)*De_1)*De_2_Vbi_ci));
9387 : : #endif
9388 : 0 : DC_j1=(((cjs0_t*d00_exp0)*De_1)*De_2);
9389 : : }
9390 : : #endif
9391 : : #if defined(_DYNAMIC)
9392 : : {
9393 : 0 : double m00_exp(d00_exp0,(DCln1*(-Dz_r)))
9394 : : #if defined(_DERIVATE)
9395 : : #define d10_exp0 d00_exp0
9396 : : #endif
9397 : : #if defined(_DERIVATE)
9398 : 0 : DC_j2_Vsi_ci=(((DC_c*DCln1_Vsi_ci*(-Dz_r)*d10_exp0)*(1.0-De_2))+((DC_c*d00_exp0)*(-De_2_Vsi_ci)));
9399 : 0 : DC_j2_Vb_ci=(((DC_c*DCln1_Vb_ci*(-Dz_r)*d10_exp0)*(1.0-De_2))+((DC_c*d00_exp0)*(-De_2_Vb_ci)));
9400 : 0 : DC_j2_Vbp_ci=(((DC_c*DCln1_Vbp_ci*(-Dz_r)*d10_exp0)*(1.0-De_2))+((DC_c*d00_exp0)*(-De_2_Vbp_ci)));
9401 : 0 : DC_j2_Vtnode_GND=((((DC_c_Vtnode_GND*d00_exp0)+(DC_c*DCln1_Vtnode_GND*(-Dz_r)*d10_exp0))*(1.0-De_2))+((DC_c*d00_exp0)*(-De_2_Vtnode_GND)));
9402 : 0 : DC_j2_Vbi_ci=(((DC_c*DCln1_Vbi_ci*(-Dz_r)*d10_exp0)*(1.0-De_2))+((DC_c*d00_exp0)*(-De_2_Vbi_ci)));
9403 : : #endif
9404 : 0 : DC_j2=((DC_c*d00_exp0)*(1.0-De_2));
9405 : : }
9406 : : #endif
9407 : : #if defined(_DYNAMIC)
9408 : : #if defined(_DERIVATE)
9409 : 0 : DC_j3_Vsi_ci=(DC_max*(-De_1_Vsi_ci));
9410 : 0 : DC_j3_Vb_ci=(DC_max*(-De_1_Vb_ci));
9411 : 0 : DC_j3_Vbp_ci=(DC_max*(-De_1_Vbp_ci));
9412 : 0 : DC_j3_Vtnode_GND=((DC_max_Vtnode_GND*(1.0-De_1))+(DC_max*(-De_1_Vtnode_GND)));
9413 : 0 : DC_j3_Vbi_ci=(DC_max*(-De_1_Vbi_ci));
9414 : : #endif
9415 : 0 : DC_j3=(DC_max*(1.0-De_1));
9416 : : #endif
9417 : : #if defined(_DYNAMIC)
9418 : 0 : Cjs=((DC_j1+DC_j2)+DC_j3);
9419 : : #endif
9420 : : #if defined(_DYNAMIC)
9421 : : {
9422 : 0 : double m00_exp(d00_exp0,(DCln2*Dz1))
9423 : : #if defined(_DERIVATE)
9424 : : #define d10_exp0 d00_exp0
9425 : : #endif
9426 : : #if defined(_DERIVATE)
9427 : 0 : DQ_j1_Vsi_ci=((cjs0_t*(-DCln2_Vsi_ci*Dz1*d10_exp0))/Dz1);
9428 : 0 : DQ_j1_Vb_ci=((cjs0_t*(-DCln2_Vb_ci*Dz1*d10_exp0))/Dz1);
9429 : 0 : DQ_j1_Vbp_ci=((cjs0_t*(-DCln2_Vbp_ci*Dz1*d10_exp0))/Dz1);
9430 : 0 : DQ_j1_Vtnode_GND=(((cjs0_t_Vtnode_GND*(1.0-d00_exp0))+(cjs0_t*(-DCln2_Vtnode_GND*Dz1*d10_exp0)))/Dz1);
9431 : 0 : DQ_j1_Vbi_ci=((cjs0_t*(-DCln2_Vbi_ci*Dz1*d10_exp0))/Dz1);
9432 : : #endif
9433 : 0 : DQ_j1=((cjs0_t*(1.0-d00_exp0))/Dz1);
9434 : : }
9435 : : #endif
9436 : : #if defined(_DYNAMIC)
9437 : : {
9438 : 0 : double m00_exp(d00_exp0,(DCln1*Dzr1))
9439 : : #if defined(_DERIVATE)
9440 : : #define d10_exp0 d00_exp0
9441 : : #endif
9442 : : #if defined(_DERIVATE)
9443 : 0 : DQ_j2_Vsi_ci=((DC_c*(-DCln1_Vsi_ci*Dzr1*d10_exp0))/Dzr1);
9444 : 0 : DQ_j2_Vb_ci=((DC_c*(-DCln1_Vb_ci*Dzr1*d10_exp0))/Dzr1);
9445 : 0 : DQ_j2_Vbp_ci=((DC_c*(-DCln1_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
9446 : 0 : DQ_j2_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln1_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
9447 : 0 : DQ_j2_Vbi_ci=((DC_c*(-DCln1_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
9448 : : #endif
9449 : 0 : DQ_j2=((DC_c*(1.0-d00_exp0))/Dzr1);
9450 : : }
9451 : : #endif
9452 : : #if defined(_DYNAMIC)
9453 : : {
9454 : 0 : double m00_exp(d00_exp0,(DCln2*Dzr1))
9455 : : #if defined(_DERIVATE)
9456 : : #define d10_exp0 d00_exp0
9457 : : #endif
9458 : : #if defined(_DERIVATE)
9459 : 0 : DQ_j3_Vsi_ci=((DC_c*(-DCln2_Vsi_ci*Dzr1*d10_exp0))/Dzr1);
9460 : 0 : DQ_j3_Vb_ci=((DC_c*(-DCln2_Vb_ci*Dzr1*d10_exp0))/Dzr1);
9461 : 0 : DQ_j3_Vbp_ci=((DC_c*(-DCln2_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
9462 : 0 : DQ_j3_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln2_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
9463 : 0 : DQ_j3_Vbi_ci=((DC_c*(-DCln2_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
9464 : : #endif
9465 : 0 : DQ_j3=((DC_c*(1.0-d00_exp0))/Dzr1);
9466 : : }
9467 : : #endif
9468 : : #if defined(_DYNAMIC)
9469 : : #if defined(_DERIVATE)
9470 : 0 : Qjs_Vbp_ei=0.0;
9471 : 0 : Qjs_Vbi_ei=0.0;
9472 : 0 : Qjs_Vsi_ci=(((DQ_j1_Vsi_ci+DQ_j2_Vsi_ci)-DQ_j3_Vsi_ci)*vds_t+(DC_max*Dv_j4_Vsi_ci));
9473 : 0 : Qjs_Vb_ci=(((DQ_j1_Vb_ci+DQ_j2_Vb_ci)-DQ_j3_Vb_ci)*vds_t+(DC_max*Dv_j4_Vb_ci));
9474 : 0 : Qjs_Vbp_ci=(((DQ_j1_Vbp_ci+DQ_j2_Vbp_ci)-DQ_j3_Vbp_ci)*vds_t+(DC_max*Dv_j4_Vbp_ci));
9475 : 0 : Qjs_Vtnode_GND=(((((DQ_j1_Vtnode_GND+DQ_j2_Vtnode_GND)-DQ_j3_Vtnode_GND)*vds_t)+(((DQ_j1+DQ_j2)-DQ_j3)*vds_t_Vtnode_GND))+((DC_max_Vtnode_GND*Dv_j4)+(DC_max*Dv_j4_Vtnode_GND)));
9476 : 0 : Qjs_Vbi_ci=(((DQ_j1_Vbi_ci+DQ_j2_Vbi_ci)-DQ_j3_Vbi_ci)*vds_t+(DC_max*Dv_j4_Vbi_ci));
9477 : : #endif
9478 : 0 : Qjs=((((DQ_j1+DQ_j2)-DQ_j3)*vds_t)+(DC_max*Dv_j4));
9479 : : #endif
9480 : : }
9481 : : else
9482 : : {
9483 : : #if defined(_DYNAMIC)
9484 : 0 : Cjs=0.0;
9485 : : #endif
9486 : : #if defined(_DYNAMIC)
9487 : : #if defined(_DERIVATE)
9488 : 0 : Qjs_Vbp_ei=0.0;
9489 : 0 : Qjs_Vbi_ei=0.0;
9490 : 0 : Qjs_Vsi_ci=0.0;
9491 : 0 : Qjs_Vb_ci=0.0;
9492 : 0 : Qjs_Vbp_ci=0.0;
9493 : 0 : Qjs_Vtnode_GND=0.0;
9494 : 0 : Qjs_Vbi_ci=0.0;
9495 : : #endif
9496 : 0 : Qjs=0.0;
9497 : : #endif
9498 : : }
9499 : : #endif /* if (...) */
9500 : : }
9501 : : else
9502 : : {
9503 : : #ifdef _DYNAMIC
9504 [ + - ]: 6 : if
9505 : : (cjs0_t>0.0)
9506 : : {
9507 : : #if defined(_DYNAMIC)
9508 : : {
9509 : 6 : double m00_logE(d00_logE0,2.4)
9510 : 6 : double m00_exp(d00_exp1,((-d00_logE0)/zs))
9511 : : #if defined(_DERIVATE)
9512 : 6 : DFV_f_Vtnode_GND=vds_t_Vtnode_GND*(1.0-d00_exp1);
9513 : : #endif
9514 : 6 : DFV_f=(vds_t*(1.0-d00_exp1));
9515 : : }
9516 : : #endif
9517 : : #if defined(_DYNAMIC)
9518 : : #if defined(_DERIVATE)
9519 : 6 : DFC_max_Vtnode_GND=(2.4*cjs0_t_Vtnode_GND);
9520 : : #endif
9521 : 6 : DFC_max=(2.4*cjs0_t);
9522 : : #endif
9523 : : #if defined(_DYNAMIC)
9524 : : #if defined(_DERIVATE)
9525 : 6 : DFv_e_Vsi_ci=((-1.0)/VT);
9526 : 6 : DFv_e_Vb_ci=0.0;
9527 : 6 : DFv_e_Vbp_ci=0.0;
9528 : 6 : DFv_e_Vbp_ei=0.0;
9529 : 6 : DFv_e_Vbi_ci=0.0;
9530 [ + - ]: 6 : DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(si,ci))*VT_Vtnode_GND)/VT/VT);
9531 : 6 : DFv_e_Vbi_ei=0.0;
9532 : : #endif
9533 [ + - ]: 6 : DFv_e=((DFV_f-BP(si,ci))/VT);
9534 : : #endif
9535 : : #ifdef _DYNAMIC
9536 [ + + ]: 6 : if
9537 : : (DFv_e<80.0)
9538 : : {
9539 : : #if defined(_DYNAMIC)
9540 : : {
9541 : 1 : double m00_exp(d00_exp0,DFv_e)
9542 : : #if defined(_DERIVATE)
9543 : : #define d10_exp0 d00_exp0
9544 : : #endif
9545 : : #if defined(_DERIVATE)
9546 : 1 : DFe_Vsi_ci=DFv_e_Vsi_ci*d10_exp0;
9547 : 1 : DFe_Vb_ci=DFv_e_Vb_ci*d10_exp0;
9548 : 1 : DFe_Vbp_ci=DFv_e_Vbp_ci*d10_exp0;
9549 : 1 : DFe_Vbp_ei=DFv_e_Vbp_ei*d10_exp0;
9550 : 1 : DFe_Vbi_ci=DFv_e_Vbi_ci*d10_exp0;
9551 : 1 : DFe_Vtnode_GND=DFv_e_Vtnode_GND*d10_exp0;
9552 : 1 : DFe_Vbi_ei=DFv_e_Vbi_ei*d10_exp0;
9553 : : #endif
9554 : 1 : DFe=d00_exp0;
9555 : : }
9556 : : #endif
9557 : : #if defined(_DYNAMIC)
9558 : : {
9559 : 1 : double m00_logE(d00_logE0,(1.0+DFe))
9560 : : #if defined(_DERIVATE)
9561 : 1 : double m10_logE(d10_logE0,d00_logE0,(1.0+DFe))
9562 : : #endif
9563 : : #if defined(_DERIVATE)
9564 : 1 : DFv_j_Vsi_ci=(-(VT*DFe_Vsi_ci*d10_logE0));
9565 : 1 : DFv_j_Vb_ci=(-(VT*DFe_Vb_ci*d10_logE0));
9566 : 1 : DFv_j_Vbp_ci=(-(VT*DFe_Vbp_ci*d10_logE0));
9567 : 1 : DFv_j_Vbp_ei=(-(VT*DFe_Vbp_ei*d10_logE0));
9568 : 1 : DFv_j_Vbi_ci=(-(VT*DFe_Vbi_ci*d10_logE0));
9569 : 1 : DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*DFe_Vtnode_GND*d10_logE0)));
9570 : 1 : DFv_j_Vbi_ei=(-(VT*DFe_Vbi_ei*d10_logE0));
9571 : : #endif
9572 : 1 : DFv_j=(DFV_f-(VT*d00_logE0));
9573 : : }
9574 : : #endif
9575 : : #if defined(_DYNAMIC)
9576 : : #if defined(_DERIVATE)
9577 : 1 : DFdvj_dv_Vsi_ci=((DFe_Vsi_ci*(1.0+DFe)-DFe*DFe_Vsi_ci)/(1.0+DFe)/(1.0+DFe));
9578 : 1 : DFdvj_dv_Vb_ci=((DFe_Vb_ci*(1.0+DFe)-DFe*DFe_Vb_ci)/(1.0+DFe)/(1.0+DFe));
9579 : 1 : DFdvj_dv_Vbp_ci=((DFe_Vbp_ci*(1.0+DFe)-DFe*DFe_Vbp_ci)/(1.0+DFe)/(1.0+DFe));
9580 : 1 : DFdvj_dv_Vbp_ei=((DFe_Vbp_ei*(1.0+DFe)-DFe*DFe_Vbp_ei)/(1.0+DFe)/(1.0+DFe));
9581 : 1 : DFdvj_dv_Vbi_ci=((DFe_Vbi_ci*(1.0+DFe)-DFe*DFe_Vbi_ci)/(1.0+DFe)/(1.0+DFe));
9582 : 1 : DFdvj_dv_Vtnode_GND=((DFe_Vtnode_GND*(1.0+DFe)-DFe*DFe_Vtnode_GND)/(1.0+DFe)/(1.0+DFe));
9583 : 1 : DFdvj_dv_Vbi_ei=((DFe_Vbi_ei*(1.0+DFe)-DFe*DFe_Vbi_ei)/(1.0+DFe)/(1.0+DFe));
9584 : : #endif
9585 : 1 : DFdvj_dv=(DFe/(1.0+DFe));
9586 : : #endif
9587 : : }
9588 : : else
9589 : : {
9590 : : #if defined(_DYNAMIC)
9591 : : #if defined(_DERIVATE)
9592 : 5 : DFv_j_Vsi_ci=1.0;
9593 : 5 : DFv_j_Vb_ci=0.0;
9594 : 5 : DFv_j_Vbp_ci=0.0;
9595 : 5 : DFv_j_Vbp_ei=0.0;
9596 : 5 : DFv_j_Vbi_ci=0.0;
9597 : 5 : DFv_j_Vtnode_GND=0.0;
9598 : 5 : DFv_j_Vbi_ei=0.0;
9599 : : #endif
9600 [ + - ]: 5 : DFv_j=BP(si,ci);
9601 : : #endif
9602 : : #if defined(_DYNAMIC)
9603 : : #if defined(_DERIVATE)
9604 : 5 : DFdvj_dv_Vsi_ci=0.0;
9605 : 5 : DFdvj_dv_Vb_ci=0.0;
9606 : 5 : DFdvj_dv_Vbp_ci=0.0;
9607 : 5 : DFdvj_dv_Vbp_ei=0.0;
9608 : 5 : DFdvj_dv_Vbi_ci=0.0;
9609 : 5 : DFdvj_dv_Vtnode_GND=0.0;
9610 : 5 : DFdvj_dv_Vbi_ei=0.0;
9611 : : #endif
9612 : 5 : DFdvj_dv=1;
9613 : : #endif
9614 : : }
9615 : : #endif /* if (...) */
9616 : : #if defined(_DYNAMIC)
9617 : : {
9618 : 6 : double m00_logE(d00_logE0,(1.0-(DFv_j/vds_t)))
9619 : : #if defined(_DERIVATE)
9620 : 6 : double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vds_t)))
9621 : : #endif
9622 : : #if defined(_DERIVATE)
9623 : 6 : DFb_Vsi_ci=(-(DFv_j_Vsi_ci/vds_t))*d10_logE0;
9624 : 6 : DFb_Vb_ci=(-(DFv_j_Vb_ci/vds_t))*d10_logE0;
9625 : 6 : DFb_Vbp_ci=(-(DFv_j_Vbp_ci/vds_t))*d10_logE0;
9626 : 6 : DFb_Vbp_ei=(-(DFv_j_Vbp_ei/vds_t))*d10_logE0;
9627 : 6 : DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vds_t))*d10_logE0;
9628 : 6 : DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vds_t-DFv_j*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0;
9629 : 6 : DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vds_t))*d10_logE0;
9630 : : #endif
9631 : 6 : DFb=d00_logE0;
9632 : : }
9633 : : #endif
9634 : : #if defined(_DYNAMIC)
9635 : : {
9636 : 6 : double m00_exp(d00_exp0,((-zs)*DFb))
9637 : : #if defined(_DERIVATE)
9638 : : #define d10_exp0 d00_exp0
9639 : : #endif
9640 : : #if defined(_DERIVATE)
9641 : 6 : DFC_j1_Vsi_ci=(((cjs0_t*((-zs)*DFb_Vsi_ci)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vsi_ci));
9642 : 6 : DFC_j1_Vb_ci=(((cjs0_t*((-zs)*DFb_Vb_ci)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vb_ci));
9643 : 6 : DFC_j1_Vbp_ci=(((cjs0_t*((-zs)*DFb_Vbp_ci)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vbp_ci));
9644 : 6 : DFC_j1_Vbp_ei=(((cjs0_t*((-zs)*DFb_Vbp_ei)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vbp_ei));
9645 : 6 : DFC_j1_Vbi_ci=(((cjs0_t*((-zs)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vbi_ci));
9646 : 6 : DFC_j1_Vtnode_GND=((((cjs0_t_Vtnode_GND*d00_exp0)+(cjs0_t*((-zs)*DFb_Vtnode_GND)*d10_exp0))*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vtnode_GND));
9647 : 6 : DFC_j1_Vbi_ei=(((cjs0_t*((-zs)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
9648 : : #endif
9649 : 6 : DFC_j1=((cjs0_t*d00_exp0)*DFdvj_dv);
9650 : : }
9651 : : #endif
9652 : : #if defined(_DYNAMIC)
9653 : 6 : Cjs=(DFC_j1+(DFC_max*(1.0-DFdvj_dv)));
9654 : : #endif
9655 : : #if defined(_DYNAMIC)
9656 : : {
9657 : 6 : double m00_exp(d00_exp0,(DFb*(1.0-zs)))
9658 : : #if defined(_DERIVATE)
9659 : : #define d10_exp0 d00_exp0
9660 : : #endif
9661 : : #if defined(_DERIVATE)
9662 : 6 : DFQ_j_Vsi_ci=(((cjs0_t*vds_t)*(-DFb_Vsi_ci*(1.0-zs)*d10_exp0))/(1.0-zs));
9663 : 6 : DFQ_j_Vb_ci=(((cjs0_t*vds_t)*(-DFb_Vb_ci*(1.0-zs)*d10_exp0))/(1.0-zs));
9664 : 6 : DFQ_j_Vbp_ci=(((cjs0_t*vds_t)*(-DFb_Vbp_ci*(1.0-zs)*d10_exp0))/(1.0-zs));
9665 : 6 : DFQ_j_Vbp_ei=(((cjs0_t*vds_t)*(-DFb_Vbp_ei*(1.0-zs)*d10_exp0))/(1.0-zs));
9666 : 6 : DFQ_j_Vbi_ci=(((cjs0_t*vds_t)*(-DFb_Vbi_ci*(1.0-zs)*d10_exp0))/(1.0-zs));
9667 : 6 : DFQ_j_Vtnode_GND=(((((cjs0_t_Vtnode_GND*vds_t)+(cjs0_t*vds_t_Vtnode_GND))*(1.0-d00_exp0))+((cjs0_t*vds_t)*(-DFb_Vtnode_GND*(1.0-zs)*d10_exp0)))/(1.0-zs));
9668 : 6 : DFQ_j_Vbi_ei=(((cjs0_t*vds_t)*(-DFb_Vbi_ei*(1.0-zs)*d10_exp0))/(1.0-zs));
9669 : : #endif
9670 : 6 : DFQ_j=(((cjs0_t*vds_t)*(1.0-d00_exp0))/(1.0-zs));
9671 : : }
9672 : : #endif
9673 : : #if defined(_DYNAMIC)
9674 : : #if defined(_DERIVATE)
9675 : 6 : Qjs_Vbp_ei=(DFQ_j_Vbp_ei+(DFC_max*(-DFv_j_Vbp_ei)));
9676 : 6 : Qjs_Vbi_ei=(DFQ_j_Vbi_ei+(DFC_max*(-DFv_j_Vbi_ei)));
9677 : 6 : Qjs_Vsi_ci=(DFQ_j_Vsi_ci+(DFC_max*(1.0-DFv_j_Vsi_ci)));
9678 : 6 : Qjs_Vb_ci=(DFQ_j_Vb_ci+(DFC_max*(-DFv_j_Vb_ci)));
9679 : 6 : Qjs_Vbp_ci=(DFQ_j_Vbp_ci+(DFC_max*(-DFv_j_Vbp_ci)));
9680 [ + - ]: 6 : Qjs_Vtnode_GND=(DFQ_j_Vtnode_GND+((DFC_max_Vtnode_GND*(BP(si,ci)-DFv_j))+(DFC_max*(-DFv_j_Vtnode_GND))));
9681 : 6 : Qjs_Vbi_ci=(DFQ_j_Vbi_ci+(DFC_max*(-DFv_j_Vbi_ci)));
9682 : : #endif
9683 [ + - ]: 6 : Qjs=(DFQ_j+(DFC_max*(BP(si,ci)-DFv_j)));
9684 : : #endif
9685 : : }
9686 : : else
9687 : : {
9688 : : #if defined(_DYNAMIC)
9689 : 0 : Cjs=0.0;
9690 : : #endif
9691 : : #if defined(_DYNAMIC)
9692 : : #if defined(_DERIVATE)
9693 : 0 : Qjs_Vbp_ei=0.0;
9694 : 0 : Qjs_Vbi_ei=0.0;
9695 : 0 : Qjs_Vsi_ci=0.0;
9696 : 0 : Qjs_Vb_ci=0.0;
9697 : 0 : Qjs_Vbp_ci=0.0;
9698 : 0 : Qjs_Vtnode_GND=0.0;
9699 : 0 : Qjs_Vbi_ci=0.0;
9700 : : #endif
9701 : 0 : Qjs=0.0;
9702 : : #endif
9703 : : }
9704 : : #endif /* if (...) */
9705 : : }
9706 : : #endif /* if (...) */
9707 [ + - ]: 6 : if
9708 : : (itss>0.0)
9709 : : {
9710 : : #if defined(_DERIVATE)
9711 : 6 : HSUM_Vtnode_GND=(msf*VT_Vtnode_GND);
9712 : : #endif
9713 : 6 : HSUM=(msf*VT);
9714 : : {
9715 [ + - ][ + - ]: 6 : double m00_limexp(d00_limexp0,(BP(bp,ci)/HSUM))
[ + - ][ + - ]
[ # # ][ # # ]
[ - + ][ - + ]
[ + - ][ + - ]
[ # # # #
# # # # ]
9716 : : #if defined(_DERIVATE)
9717 [ + - ][ + - ]: 6 : double m10_limexp(d10_limexp0,d00_limexp0,(BP(bp,ci)/HSUM))
9718 : : #endif
9719 : : #if defined(_DERIVATE)
9720 : 6 : HSa_Vbp_ci=(1/HSUM)*d10_limexp0;
9721 [ + - ]: 6 : HSa_Vtnode_GND=(-BP(bp,ci)*HSUM_Vtnode_GND/HSUM/HSUM)*d10_limexp0;
9722 : : #endif
9723 : 6 : HSa=d00_limexp0;
9724 : : }
9725 : : {
9726 [ + - ][ + - ]: 6 : double m00_limexp(d00_limexp0,(BP(si,ci)/HSUM))
[ + - ][ + - ]
[ # # ][ # # ]
[ - + ][ - + ]
[ + - ][ + - ]
[ # # # #
# # # # ]
9727 : : #if defined(_DERIVATE)
9728 [ + - ][ + - ]: 6 : double m10_limexp(d10_limexp0,d00_limexp0,(BP(si,ci)/HSUM))
9729 : : #endif
9730 : : #if defined(_DERIVATE)
9731 : 6 : HSb_Vsi_ci=(1/HSUM)*d10_limexp0;
9732 [ + - ]: 6 : HSb_Vtnode_GND=(-BP(si,ci)*HSUM_Vtnode_GND/HSUM/HSUM)*d10_limexp0;
9733 : : #endif
9734 : 6 : HSb=d00_limexp0;
9735 : : }
9736 : : #if defined(_DERIVATE)
9737 : 6 : HSI_Tsu_Vtnode_GND=((itss_t_Vtnode_GND*(HSa-HSb))+(itss_t*(HSa_Vtnode_GND-HSb_Vtnode_GND)));
9738 : 6 : HSI_Tsu_Vbp_ci=(itss_t*HSa_Vbp_ci);
9739 : 6 : HSI_Tsu_Vsi_ci=(itss_t*(-HSb_Vsi_ci));
9740 : : #endif
9741 : 6 : HSI_Tsu=(itss_t*(HSa-HSb));
9742 : : #ifdef _DYNAMIC
9743 [ + - ]: 6 : if
9744 : : (tsf>0.0)
9745 : : {
9746 : : #if defined(_DYNAMIC)
9747 : : #if defined(_DERIVATE)
9748 : 6 : Qdsu_Vtnode_GND=((((tsf_t_Vtnode_GND*itss_t)+(tsf_t*itss_t_Vtnode_GND))*HSa)+((tsf_t*itss_t)*HSa_Vtnode_GND));
9749 : 6 : Qdsu_Vbp_ci=((tsf_t*itss_t)*HSa_Vbp_ci);
9750 : : #endif
9751 : 6 : Qdsu=((tsf_t*itss_t)*HSa);
9752 : : #endif
9753 : : }
9754 : : else
9755 : : {
9756 : : #if defined(_DYNAMIC)
9757 : : #if defined(_DERIVATE)
9758 : 0 : Qdsu_Vtnode_GND=0.0;
9759 : 0 : Qdsu_Vbp_ci=0.0;
9760 : : #endif
9761 : 0 : Qdsu=0.0;
9762 : : #endif
9763 : : }
9764 : : #endif /* if (...) */
9765 : : }
9766 : : else
9767 : : {
9768 : : #if defined(_DERIVATE)
9769 : 0 : HSI_Tsu_Vtnode_GND=0.0;
9770 : 0 : HSI_Tsu_Vbp_ci=0.0;
9771 : 0 : HSI_Tsu_Vsi_ci=0.0;
9772 : : #endif
9773 : 0 : HSI_Tsu=0.0;
9774 : : #if defined(_DYNAMIC)
9775 : : #if defined(_DERIVATE)
9776 : 0 : Qdsu_Vtnode_GND=0.0;
9777 : 0 : Qdsu_Vbp_ci=0.0;
9778 : : #endif
9779 : 0 : Qdsu=0.0;
9780 : : #endif
9781 : : }
9782 : : #if defined(_DERIVATE)
9783 : 6 : DIOY_Vsi_ci=(1/(msc*VT));
9784 : 6 : DIOY_Vbp_ci=0.0;
9785 : 6 : DIOY_Vbp_ei=0.0;
9786 : 6 : DIOY_Vbi_ci=0.0;
9787 : 6 : DIOY_Vbi_ei=0.0;
9788 [ + - ]: 6 : DIOY_Vtnode_GND=(-BP(si,ci)*(msc*VT_Vtnode_GND)/(msc*VT)/(msc*VT));
9789 : : #endif
9790 [ + - ]: 6 : DIOY=(BP(si,ci)/(msc*VT));
9791 [ + - ]: 6 : if
9792 : : (iscs>0.0)
9793 : : {
9794 [ - + ]: 6 : if
9795 : : (DIOY>80.0)
9796 : : {
9797 : : #if defined(_DERIVATE)
9798 : 0 : le_Vsi_ci=DIOY_Vsi_ci;
9799 : 0 : le_Vbp_ci=DIOY_Vbp_ci;
9800 : 0 : le_Vbp_ei=DIOY_Vbp_ei;
9801 : 0 : le_Vbi_ci=DIOY_Vbi_ci;
9802 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
9803 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
9804 : : #endif
9805 : 0 : le=(1+(DIOY-80.0));
9806 : : #if defined(_DERIVATE)
9807 : 0 : DIOY_Vsi_ci=0.0;
9808 : 0 : DIOY_Vbp_ci=0.0;
9809 : 0 : DIOY_Vbp_ei=0.0;
9810 : 0 : DIOY_Vbi_ci=0.0;
9811 : 0 : DIOY_Vbi_ei=0.0;
9812 : 0 : DIOY_Vtnode_GND=0.0;
9813 : : #endif
9814 : 0 : DIOY=80.0;
9815 : : }
9816 : : else
9817 : : {
9818 : : #if defined(_DERIVATE)
9819 : 6 : le_Vsi_ci=0.0;
9820 : 6 : le_Vbp_ci=0.0;
9821 : 6 : le_Vbp_ei=0.0;
9822 : 6 : le_Vbi_ci=0.0;
9823 : 6 : le_Vbi_ei=0.0;
9824 : 6 : le_Vtnode_GND=0.0;
9825 : : #endif
9826 : 6 : le=1;
9827 : : }
9828 : : {
9829 [ + - ]: 6 : double m00_limexp(d00_limexp0,DIOY)
9830 : : #if defined(_DERIVATE)
9831 [ + - ]: 6 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
9832 : : #endif
9833 : : #if defined(_DERIVATE)
9834 : 6 : le_Vsi_ci=((le_Vsi_ci*d00_limexp0)+(le*DIOY_Vsi_ci*d10_limexp0));
9835 : 6 : le_Vbp_ci=((le_Vbp_ci*d00_limexp0)+(le*DIOY_Vbp_ci*d10_limexp0));
9836 : 6 : le_Vbp_ei=((le_Vbp_ei*d00_limexp0)+(le*DIOY_Vbp_ei*d10_limexp0));
9837 : 6 : le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
9838 : 6 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
9839 : 6 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
9840 : : #endif
9841 : 6 : le=(le*d00_limexp0);
9842 : : }
9843 : : #if defined(_DERIVATE)
9844 : 6 : ijsc_Vtnode_GND=((iscs_t_Vtnode_GND*(le-1.0))+(iscs_t*le_Vtnode_GND));
9845 : 6 : ijsc_Vsi_ci=(iscs_t*le_Vsi_ci);
9846 : 6 : ijsc_Vbp_ci=(iscs_t*le_Vbp_ci);
9847 : 6 : ijsc_Vbp_ei=(iscs_t*le_Vbp_ei);
9848 : 6 : ijsc_Vbi_ci=(iscs_t*le_Vbi_ci);
9849 : 6 : ijsc_Vbi_ei=(iscs_t*le_Vbi_ei);
9850 : : #endif
9851 : 6 : ijsc=(iscs_t*(le-1.0));
9852 [ + + ]: 6 : if
9853 : : (DIOY<=(-14.0))
9854 : : {
9855 : : #if defined(_DERIVATE)
9856 : 5 : ijsc_Vtnode_GND=(-iscs_t_Vtnode_GND);
9857 : 5 : ijsc_Vsi_ci=0.0;
9858 : 5 : ijsc_Vbp_ci=0.0;
9859 : 5 : ijsc_Vbp_ei=0.0;
9860 : 5 : ijsc_Vbi_ci=0.0;
9861 : 5 : ijsc_Vbi_ei=0.0;
9862 : : #endif
9863 : 5 : ijsc=(-iscs_t);
9864 : : }
9865 : : }
9866 : : else
9867 : : {
9868 : : #if defined(_DERIVATE)
9869 : 0 : ijsc_Vtnode_GND=0.0;
9870 : 0 : ijsc_Vsi_ci=0.0;
9871 : 0 : ijsc_Vbp_ci=0.0;
9872 : 0 : ijsc_Vbp_ei=0.0;
9873 : 0 : ijsc_Vbi_ci=0.0;
9874 : 0 : ijsc_Vbi_ei=0.0;
9875 : : #endif
9876 : 0 : ijsc=0.0;
9877 : : }
9878 [ + - ]: 6 : if
9879 : : (rth>0.0)
9880 : : {
9881 : : #if defined(_DERIVATE)
9882 [ + - ][ + - ]: 6 : pterm_Vci_ei=((it+(it_Vci_ei*BP(ci,ei)))+((vdci_t-BP(bi,ci))*iavl_Vci_ei));
[ + - ]
9883 [ + - ][ + - ]: 6 : pterm_Vtnode_GND=((BP(ci,ei)*it_Vtnode_GND)+((vdci_t_Vtnode_GND*iavl)+((vdci_t-BP(bi,ci))*iavl_Vtnode_GND)));
[ + - ]
9884 [ + - ][ + - ]: 6 : pterm_Vbi_ei=((BP(ci,ei)*it_Vbi_ei)+((vdci_t-BP(bi,ci))*iavl_Vbi_ei));
[ + - ]
9885 [ + - ][ + - ]: 6 : pterm_Vbi_ci=((BP(ci,ei)*it_Vbi_ci)+(((-1.0)*iavl)+((vdci_t-BP(bi,ci))*iavl_Vbi_ci)));
[ + - ]
9886 : : #endif
9887 [ + - ][ + - ]: 6 : pterm=((BP(ci,ei)*it)+((vdci_t-BP(bi,ci))*iavl));
[ + - ]
9888 : : }
9889 : 6 : _load_static_residual2(bp,ei,(((-ibet)+ibep)+irep));
9890 : : #if defined(_DERIVATE)
9891 [ - + ][ # # ]: 6 : _load_static_jacobian4(bp,ei,bi,ei,(((-ibet_Vbi_ei)+ibep_Vbi_ei)+irep_Vbi_ei));
[ # # ][ + - ]
[ + - ]
9892 [ - + ][ # # ]: 6 : _load_static_jacobian4(bp,ei,bi,ci,(((-ibet_Vbi_ci)+ibep_Vbi_ci)+irep_Vbi_ci));
[ # # ][ + - ]
[ + - ]
9893 [ - + ][ # # ]: 6 : _load_static_jacobian4(bp,ei,bp,ei,(((-ibet_Vbp_ei)+ibep_Vbp_ei)+irep_Vbp_ei));
[ # # ][ + - ]
[ + - ]
9894 [ - + ]: 6 : _load_static_jacobian2s(bp,ei,tnode,(((-ibet_Vtnode_GND)+ibep_Vtnode_GND)+irep_Vtnode_GND));
9895 : : #endif
9896 : 6 : _load_static_residual2(bi,ei,(ibei+irei));
9897 : : #if defined(_DERIVATE)
9898 [ - + ][ # # ]: 6 : _load_static_jacobian4(bi,ei,bi,ei,(ibei_Vbi_ei+irei_Vbi_ei));
[ # # ][ + - ]
[ + - ]
9899 [ - + ]: 6 : _load_static_jacobian2s(bi,ei,tnode,(ibei_Vtnode_GND+irei_Vtnode_GND));
9900 : : #endif
9901 : 6 : _load_static_residual2(bp,si,HSI_Tsu);
9902 : : #if defined(_DERIVATE)
9903 [ - + ][ # # ]: 6 : _load_static_jacobian4(bp,si,si,ci,HSI_Tsu_Vsi_ci);
[ # # ][ + - ]
[ + - ]
9904 [ - + ][ # # ]: 6 : _load_static_jacobian4(bp,si,bp,ci,HSI_Tsu_Vbp_ci);
[ # # ][ + - ]
[ + - ]
9905 [ - + ]: 6 : _load_static_jacobian2s(bp,si,tnode,HSI_Tsu_Vtnode_GND);
9906 : : #endif
9907 : 6 : _load_static_residual2(bp,ci,ijbcx);
9908 : : #if defined(_DERIVATE)
9909 [ - + ][ # # ]: 6 : _load_static_jacobian4(bp,ci,bi,ei,ijbcx_Vbi_ei);
[ # # ][ + - ]
[ + - ]
9910 [ - + ][ # # ]: 6 : _load_static_jacobian4(bp,ci,bi,ci,ijbcx_Vbi_ci);
[ # # ][ + - ]
[ + - ]
9911 [ - + ][ # # ]: 6 : _load_static_jacobian4(bp,ci,bp,ei,ijbcx_Vbp_ei);
[ # # ][ + - ]
[ + - ]
9912 [ - + ][ # # ]: 6 : _load_static_jacobian4(bp,ci,bp,ci,ijbcx_Vbp_ci);
[ # # ][ + - ]
[ + - ]
9913 [ - + ]: 6 : _load_static_jacobian2s(bp,ci,tnode,ijbcx_Vtnode_GND);
9914 : : #endif
9915 : 6 : _load_static_residual2(bi,ci,(ibci-iavl));
9916 : : #if defined(_DERIVATE)
9917 [ - + ][ # # ]: 6 : _load_static_jacobian4(bi,ci,ci,ei,(-iavl_Vci_ei));
[ # # ][ + - ]
[ + - ]
9918 [ - + ][ # # ]: 6 : _load_static_jacobian4(bi,ci,bi,ei,(ibci_Vbi_ei-iavl_Vbi_ei));
[ # # ][ + - ]
[ + - ]
9919 [ - + ][ # # ]: 6 : _load_static_jacobian4(bi,ci,bi,ci,(ibci_Vbi_ci-iavl_Vbi_ci));
[ # # ][ + - ]
[ + - ]
9920 [ - + ]: 6 : _load_static_jacobian2s(bi,ci,tnode,(ibci_Vtnode_GND-iavl_Vtnode_GND));
9921 : : #endif
9922 : 6 : _load_static_residual2(si,ci,ijsc);
9923 : : #if defined(_DERIVATE)
9924 [ - + ][ # # ]: 6 : _load_static_jacobian4(si,ci,bi,ei,ijsc_Vbi_ei);
[ # # ][ + - ]
[ + - ]
9925 [ - + ][ # # ]: 6 : _load_static_jacobian4(si,ci,bi,ci,ijsc_Vbi_ci);
[ # # ][ + - ]
[ + - ]
9926 [ - + ][ # # ]: 6 : _load_static_jacobian4(si,ci,bp,ei,ijsc_Vbp_ei);
[ # # ][ + - ]
[ + - ]
9927 [ - + ][ # # ]: 6 : _load_static_jacobian4(si,ci,bp,ci,ijsc_Vbp_ci);
[ # # ][ + - ]
[ + - ]
9928 [ - + ][ # # ]: 6 : _load_static_jacobian4(si,ci,si,ci,ijsc_Vsi_ci);
[ # # ][ + - ]
[ + - ]
9929 [ - + ]: 6 : _load_static_jacobian2s(si,ci,tnode,ijsc_Vtnode_GND);
9930 : : #endif
9931 : 6 : _load_static_residual2(ci,ei,it);
9932 : : #if defined(_DERIVATE)
9933 [ - + ][ # # ]: 6 : _load_static_jacobian4(ci,ei,bi,ci,it_Vbi_ci);
[ # # ][ + - ]
[ + - ]
9934 [ - + ][ # # ]: 6 : _load_static_jacobian4(ci,ei,bi,ei,it_Vbi_ei);
[ # # ][ + - ]
[ + - ]
9935 [ - + ]: 6 : _load_static_jacobian2s(ci,ei,tnode,it_Vtnode_GND);
9936 [ - + ][ # # ]: 6 : _load_static_jacobian4(ci,ei,ci,ei,it_Vci_ei);
[ # # ][ + - ]
[ + - ]
9937 : : #endif
9938 : : #if defined(_DYNAMIC)
9939 [ - + ][ # # ]: 6 : _load_dynamic_residual2(b,ci,_DDT((ccox1*BP(b,ci))));
[ - + ][ # # ]
[ # # ]
9940 : : #if defined(_DERIVATE)
9941 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(b,ci,b,ci,(ccox1));
[ - + ][ # # ]
[ # # ]
9942 : : #endif
9943 : : #endif
9944 : : #if defined(_DYNAMIC)
9945 [ - + ][ # # ]: 6 : _load_dynamic_residual2(bp,ci,_DDT((ccox2*BP(bp,ci))));
[ - + ][ # # ]
[ # # ]
9946 : : #if defined(_DERIVATE)
9947 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(bp,ci,bp,ci,(ccox2));
[ - + ][ # # ]
[ # # ]
9948 : : #endif
9949 : : #endif
9950 : : #if defined(_DYNAMIC)
9951 [ - + ][ # # ]: 6 : _load_dynamic_residual2(bp,e,_DDT((ceox*BP(bp,e))));
[ - + ][ # # ]
[ # # ]
9952 : : #if defined(_DERIVATE)
9953 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(bp,e,bp,e,(ceox));
[ - + ][ # # ]
[ # # ]
9954 : : #endif
9955 : : #endif
9956 : : #if defined(_DYNAMIC)
9957 [ - + ][ - + ]: 6 : _load_dynamic_residual2(si,ci,_DDT(Qjs));
9958 : : #if defined(_DERIVATE)
9959 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(si,ci,bi,ci,Qjs_Vbi_ci);
[ - + ][ # # ]
[ # # ]
9960 [ + - ][ - + ]: 6 : _load_dynamic_jacobian2s(si,ci,tnode,Qjs_Vtnode_GND);
[ - + ]
9961 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(si,ci,bp,ci,Qjs_Vbp_ci);
[ - + ][ # # ]
[ # # ]
9962 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(si,ci,b,ci,Qjs_Vb_ci);
[ - + ][ # # ]
[ # # ]
9963 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(si,ci,si,ci,Qjs_Vsi_ci);
[ - + ][ # # ]
[ # # ]
9964 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(si,ci,bi,ei,Qjs_Vbi_ei);
[ - + ][ # # ]
[ # # ]
9965 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(si,ci,bp,ei,Qjs_Vbp_ei);
[ - + ][ # # ]
[ # # ]
9966 : : #endif
9967 : : #endif
9968 : : #if defined(_DYNAMIC)
9969 [ - + ][ - + ]: 6 : _load_dynamic_residual2(bp,ei,_DDT(Qjep));
9970 : : #if defined(_DERIVATE)
9971 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(bp,ei,bi,ei,Qjep_Vbi_ei);
[ - + ][ # # ]
[ # # ]
9972 [ + - ][ - + ]: 6 : _load_dynamic_jacobian2s(bp,ei,tnode,Qjep_Vtnode_GND);
[ - + ]
9973 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(bp,ei,bi,ci,Qjep_Vbi_ci);
[ - + ][ # # ]
[ # # ]
9974 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(bp,ei,bp,ei,Qjep_Vbp_ei);
[ - + ][ # # ]
[ # # ]
9975 : : #endif
9976 : : #endif
9977 : : #if defined(_DYNAMIC)
9978 [ - + ][ - + ]: 6 : _load_dynamic_residual2(bi,ei,_DDT((Qdei+Qjei)));
9979 : : #if defined(_DERIVATE)
9980 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(bi,ei,bi,ei,(Qdei_Vbi_ei+Qjei_Vbi_ei));
[ - + ][ # # ]
[ # # ]
9981 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(bi,ei,bi,ci,Qdei_Vbi_ci);
[ - + ][ # # ]
[ # # ]
9982 [ + - ][ - + ]: 6 : _load_dynamic_jacobian2s(bi,ei,tnode,(Qdei_Vtnode_GND+Qjei_Vtnode_GND));
[ - + ]
9983 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(bi,ei,ci,ei,Qdei_Vci_ei);
[ - + ][ # # ]
[ # # ]
9984 : : #endif
9985 : : #endif
9986 : : #if defined(_DYNAMIC)
9987 [ - + ][ - + ]: 6 : _load_dynamic_residual2(bp,ci,_DDT((qjcx0_t_ii+Qdsu)));
9988 : : #if defined(_DERIVATE)
9989 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(bp,ci,bi,ci,qjcx0_t_ii_Vbi_ci);
[ - + ][ # # ]
[ # # ]
9990 [ + - ][ - + ]: 6 : _load_dynamic_jacobian2s(bp,ci,tnode,(qjcx0_t_ii_Vtnode_GND+Qdsu_Vtnode_GND));
[ - + ]
9991 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(bp,ci,bp,ci,(qjcx0_t_ii_Vbp_ci+Qdsu_Vbp_ci));
[ - + ][ # # ]
[ # # ]
9992 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(bp,ci,bi,ei,qjcx0_t_ii_Vbi_ei);
[ - + ][ # # ]
[ # # ]
9993 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(bp,ci,bp,ei,qjcx0_t_ii_Vbp_ei);
[ - + ][ # # ]
[ # # ]
9994 : : #endif
9995 : : #endif
9996 : : #if defined(_DYNAMIC)
9997 [ - + ][ - + ]: 6 : _load_dynamic_residual2(bi,ci,_DDT((Qdci+Qjci)));
9998 : : #if defined(_DERIVATE)
9999 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(bi,ci,bi,ei,(Qdci_Vbi_ei+Qjci_Vbi_ei));
[ - + ][ # # ]
[ # # ]
10000 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(bi,ci,bi,ci,(Qdci_Vbi_ci+Qjci_Vbi_ci));
[ - + ][ # # ]
[ # # ]
10001 [ + - ][ - + ]: 6 : _load_dynamic_jacobian2s(bi,ci,tnode,(Qdci_Vtnode_GND+Qjci_Vtnode_GND));
[ - + ]
10002 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(bi,ci,ci,ei,Qdci_Vci_ei);
[ - + ][ # # ]
[ # # ]
10003 : : #endif
10004 : : #endif
10005 : : #if defined(_DYNAMIC)
10006 [ - + ][ - + ]: 6 : _load_dynamic_residual2(b,ci,_DDT(qjcx0_t_i));
10007 : : #if defined(_DERIVATE)
10008 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(b,ci,bi,ci,qjcx0_t_i_Vbi_ci);
[ - + ][ # # ]
[ # # ]
10009 [ + - ][ - + ]: 6 : _load_dynamic_jacobian2s(b,ci,tnode,qjcx0_t_i_Vtnode_GND);
[ - + ]
10010 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(b,ci,bp,ci,qjcx0_t_i_Vbp_ci);
[ - + ][ # # ]
[ # # ]
10011 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(b,ci,b,ci,qjcx0_t_i_Vb_ci);
[ - + ][ # # ]
[ # # ]
10012 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(b,ci,bi,ei,qjcx0_t_i_Vbi_ei);
[ - + ][ # # ]
[ # # ]
10013 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(b,ci,bp,ei,qjcx0_t_i_Vbp_ei);
[ - + ][ # # ]
[ # # ]
10014 : : #endif
10015 : : #endif
10016 [ + - ]: 6 : if
10017 : : (rbx>0.0)
10018 : : {
10019 [ + - ][ + - ]: 6 : _load_static_residual2(b,bp,(BP(b,bp)/rbx_t));
10020 : : #if defined(_DERIVATE)
10021 [ + - ][ + - ]: 6 : _load_static_jacobian2s(b,bp,tnode,(-BP(b,bp)*rbx_t_Vtnode_GND/rbx_t/rbx_t));
[ - + ][ # # ]
[ # # ][ # # ]
[ # # ][ + - ]
[ + - ][ + - ]
[ + - ]
10022 [ - + ][ # # ]: 6 : _load_static_jacobian4(b,bp,b,bp,(1/rbx_t));
[ # # ][ + - ]
[ + - ]
10023 : : #endif
10024 : : }
10025 : : else
10026 : : {
10027 [ # # ][ # # ]: 0 : _load_static_residual2(b,bp,(BP(b,bp)/1e-6));
10028 : : #if defined(_DERIVATE)
10029 [ # # ][ # # ]: 0 : _load_static_jacobian4(b,bp,b,bp,(1/1e-6));
[ # # ][ # # ]
[ # # ]
10030 : : #endif
10031 : : }
10032 [ + - ]: 6 : if
10033 : : (rbi0>0.0)
10034 : : {
10035 [ + - ][ + - ]: 6 : _load_static_residual2(bp,bi,(BP(bp,bi)/rbi));
10036 : : #if defined(_DERIVATE)
10037 [ + - ][ + - ]: 6 : _load_static_jacobian4(bp,bi,bi,ci,(-BP(bp,bi)*rbi_Vbi_ci/rbi/rbi));
[ + - ][ + - ]
[ - + ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ]
10038 [ + - ][ + - ]: 6 : _load_static_jacobian4(bp,bi,ci,ei,(-BP(bp,bi)*rbi_Vci_ei/rbi/rbi));
[ + - ][ + - ]
[ - + ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ]
10039 [ + - ][ + - ]: 6 : _load_static_jacobian4(bp,bi,bi,ei,(-BP(bp,bi)*rbi_Vbi_ei/rbi/rbi));
[ + - ][ + - ]
[ - + ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ]
10040 [ + - ][ + - ]: 6 : _load_static_jacobian2s(bp,bi,tnode,(-BP(bp,bi)*rbi_Vtnode_GND/rbi/rbi));
[ - + ][ # # ]
[ # # ][ # # ]
[ # # ][ + - ]
[ + - ][ + - ]
[ + - ]
10041 [ - + ][ # # ]: 6 : _load_static_jacobian4(bp,bi,bp,bi,(1/rbi));
[ # # ][ + - ]
[ + - ]
10042 : : #endif
10043 : : #if defined(_DYNAMIC)
10044 [ - + ][ - + ]: 6 : _load_dynamic_residual2(bp,bi,_DDT(qrbi));
10045 : : #if defined(_DERIVATE)
10046 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(bp,bi,bi,ci,qrbi_Vbi_ci);
[ - + ][ # # ]
[ # # ]
10047 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(bp,bi,ci,ei,qrbi_Vci_ei);
[ - + ][ # # ]
[ # # ]
10048 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(bp,bi,bi,ei,qrbi_Vbi_ei);
[ - + ][ # # ]
[ # # ]
10049 [ + - ][ - + ]: 6 : _load_dynamic_jacobian2s(bp,bi,tnode,qrbi_Vtnode_GND);
[ - + ]
10050 : : #endif
10051 : : #endif
10052 : : }
10053 : : else
10054 : : {
10055 [ # # ][ # # ]: 0 : _load_static_residual2(bp,bi,(BP(bp,bi)/1e-6));
10056 : : #if defined(_DERIVATE)
10057 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,bi,bp,bi,(1/1e-6));
[ # # ][ # # ]
[ # # ]
10058 : : #endif
10059 : : }
10060 [ + - ]: 6 : if
10061 : : (rcx>0.0)
10062 : : {
10063 [ + - ][ + - ]: 6 : _load_static_residual2(ci,c,(BP(ci,c)/rcx_t));
10064 : : #if defined(_DERIVATE)
10065 [ + - ][ + - ]: 6 : _load_static_jacobian2s(ci,c,tnode,(-BP(ci,c)*rcx_t_Vtnode_GND/rcx_t/rcx_t));
[ - + ][ # # ]
[ # # ][ # # ]
[ # # ][ + - ]
[ + - ][ + - ]
[ + - ]
10066 [ - + ][ # # ]: 6 : _load_static_jacobian4(ci,c,ci,c,(1/rcx_t));
[ # # ][ + - ]
[ + - ]
10067 : : #endif
10068 : : }
10069 : : else
10070 : : {
10071 [ # # ][ # # ]: 0 : _load_static_residual2(ci,c,(BP(ci,c)/1e-6));
10072 : : #if defined(_DERIVATE)
10073 [ # # ][ # # ]: 0 : _load_static_jacobian4(ci,c,ci,c,(1/1e-6));
[ # # ][ # # ]
[ # # ]
10074 : : #endif
10075 : : }
10076 [ + - ]: 6 : if
10077 : : (re>0.0)
10078 : : {
10079 [ + - ][ + - ]: 6 : _load_static_residual2(ei,e,(BP(ei,e)/re_t));
10080 : : #if defined(_DERIVATE)
10081 [ + - ][ + - ]: 6 : _load_static_jacobian2s(ei,e,tnode,(-BP(ei,e)*re_t_Vtnode_GND/re_t/re_t));
[ - + ][ # # ]
[ # # ][ # # ]
[ # # ][ + - ]
[ + - ][ + - ]
[ + - ]
10082 [ - + ][ # # ]: 6 : _load_static_jacobian4(ei,e,ei,e,(1/re_t));
[ # # ][ + - ]
[ + - ]
10083 : : #endif
10084 : : }
10085 : : else
10086 : : {
10087 [ # # ][ # # ]: 0 : _load_static_residual2(ei,e,(BP(ei,e)/1e-6));
10088 : : #if defined(_DERIVATE)
10089 [ # # ][ # # ]: 0 : _load_static_jacobian4(ei,e,ei,e,(1/1e-6));
[ # # ][ # # ]
[ # # ]
10090 : : #endif
10091 : : }
10092 [ + - ]: 6 : if
10093 : : (rsu>0.0)
10094 : : {
10095 [ + - ][ + - ]: 6 : _load_static_residual2(si,s,(BP(si,s)/rsu));
10096 : : #if defined(_DERIVATE)
10097 [ - + ][ # # ]: 6 : _load_static_jacobian4(si,s,si,s,(1/rsu));
[ # # ][ + - ]
[ + - ]
10098 : : #endif
10099 : : #if defined(_DYNAMIC)
10100 [ - + ][ # # ]: 6 : _load_dynamic_residual2(si,s,_DDT((csu*BP(si,s))));
[ - + ][ # # ]
[ # # ]
10101 : : #if defined(_DERIVATE)
10102 [ + - ][ - + ]: 6 : _load_dynamic_jacobian4(si,s,si,s,(csu));
[ - + ][ # # ]
[ # # ]
10103 : : #endif
10104 : : #endif
10105 : : }
10106 : : else
10107 : : {
10108 [ # # ][ # # ]: 0 : _load_static_residual2(si,s,(BP(si,s)/1e-6));
10109 : : #if defined(_DERIVATE)
10110 [ # # ][ # # ]: 0 : _load_static_jacobian4(si,s,si,s,(1/1e-6));
[ # # ][ # # ]
[ # # ]
10111 : : #endif
10112 : : }
10113 [ + - ]: 6 : if
10114 : : (rth>0.0)
10115 : : {
10116 : 6 : _load_static_residual1(tnode,(NP(tnode)/rth));
10117 : : #if defined(_DERIVATE)
10118 [ - + ]: 6 : _load_static_jacobian1(tnode,tnode,(1/rth));
10119 : : #endif
10120 : 6 : _load_static_residual1(tnode,(-pterm));
10121 : : #if defined(_DERIVATE)
10122 [ - + ][ # # ]: 6 : _load_static_jacobian2p(tnode,bi,ci,(-pterm_Vbi_ci));
[ + - ]
10123 [ - + ][ # # ]: 6 : _load_static_jacobian2p(tnode,bi,ei,(-pterm_Vbi_ei));
[ + - ]
10124 [ - + ]: 6 : _load_static_jacobian1(tnode,tnode,(-pterm_Vtnode_GND));
10125 [ - + ][ # # ]: 6 : _load_static_jacobian2p(tnode,ci,ei,(-pterm_Vci_ei));
[ + - ]
10126 : : #endif
10127 : : #if defined(_DYNAMIC)
10128 [ - + ][ - + ]: 6 : _load_dynamic_residual1(tnode,_DDT((cth*NP(tnode))));
10129 : : #if defined(_DERIVATE)
10130 [ + - ][ - + ]: 6 : _load_dynamic_jacobian1(tnode,tnode,(cth));
[ - + ]
10131 : : #endif
10132 : : #endif
10133 : : }
10134 : : else
10135 : : {
10136 : 0 : _load_static_residual1(tnode,(NP(tnode)/1e-6));
10137 : : #if defined(_DERIVATE)
10138 [ # # ]: 0 : _load_static_jacobian1(tnode,tnode,(1/1e-6));
10139 : : #endif
10140 : : }
10141 : : #if defined(_DERIVATE)
10142 : 6 : fourkt_Vtnode_GND=((4.0*1.3806503e-23)*Tdev_Vtnode_GND);
10143 : : #endif
10144 : 6 : fourkt=((4.0*1.3806503e-23)*Tdev);
10145 [ + - ]: 6 : if
10146 : : (rbx>0.0)
10147 : : {
10148 : 6 : _save_whitenoise2(b,bp,(fourkt/rbx_t),"thermal");
10149 : : }
10150 [ + - ]: 6 : if
10151 : : (rbi0>0.0)
10152 : : {
10153 : : #if defined(_DERIVATE)
10154 : 6 : rbin_Vtnode_GND=(krbi*rbi_Vtnode_GND);
10155 : 6 : rbin_Vbi_ei=(krbi*rbi_Vbi_ei);
10156 : 6 : rbin_Vci_ei=(krbi*rbi_Vci_ei);
10157 : 6 : rbin_Vbi_ci=(krbi*rbi_Vbi_ci);
10158 : : #endif
10159 : 6 : rbin=(krbi*rbi);
10160 : 6 : _save_whitenoise2(bp,bi,(fourkt/rbin),"thermal");
10161 : : }
10162 [ + - ]: 6 : if
10163 : : (rcx>0.0)
10164 : : {
10165 : 6 : _save_whitenoise2(ci,c,(fourkt/rcx_t),"thermal");
10166 : : }
10167 [ + - ]: 6 : if
10168 : : (re>0.0)
10169 : : {
10170 : 6 : _save_whitenoise2(ei,e,(fourkt/re_t),"thermal");
10171 : : }
10172 [ + - ]: 6 : if
10173 : : (rsu>0.0)
10174 : : {
10175 : 6 : _save_whitenoise2(si,s,(fourkt/rsu),"thermal");
10176 : : }
10177 : : {
10178 : 6 : double m00_pow(d00_pow0,(ibei+ibep),af)
10179 : : #if defined(_DERIVATE)
10180 [ + + ]: 6 : double m10_pow(d10_pow0,d00_pow0,(ibei+ibep),af)
10181 : : #endif
10182 : : #if defined(_DERIVATE)
10183 : 6 : flicker_Pwr_Vtnode_GND=(kf*(d10_pow0*(ibei_Vtnode_GND+ibep_Vtnode_GND)));
10184 : 6 : flicker_Pwr_Vbi_ei=(kf*(d10_pow0*(ibei_Vbi_ei+ibep_Vbi_ei)));
10185 : 6 : flicker_Pwr_Vbp_ei=(kf*(d10_pow0*ibep_Vbp_ei));
10186 : 6 : flicker_Pwr_Vbi_ci=(kf*(d10_pow0*ibep_Vbi_ci));
10187 : : #endif
10188 : 6 : flicker_Pwr=(kf*d00_pow0);
10189 : : }
10190 : 6 : _save_flickernoise2(bi,ei,flicker_Pwr,1.0,NULL);
10191 : 6 : twoq=(2.0*1.602176462e-19);
10192 : 6 : _save_whitenoise2(ci,ei,(twoq*it),"shot");
10193 : 6 : _save_whitenoise2(ci,bi,(twoq*iavl),"shot");
10194 : 6 : _save_whitenoise2(bi,ei,(twoq*ibei),"shot");
10195 : 6 : _save_whitenoise2(bi,ci,(twoq*ibci),"shot");
10196 : 6 : _save_whitenoise2(bp,ei,(twoq*ibep),"shot");
10197 : 6 : _save_whitenoise2(bp,ci,(twoq*ijbcx),"shot");
10198 : 6 : _save_whitenoise2(si,ci,(twoq*ijsc),"shot");
10199 : :
10200 : : /* ------------------ end of verilog analog equations --------------------- */
10201 : :
10202 : : /* ------------------ evaluate verilog noise equations -------------------- */
10203 : :
10204 : : /* ------------------- end of verilog noise equations --------------------- */
10205 : 6 : }
10206 : :
10207 : : /* Perform DC iteration. */
10208 : 6 : void hicumL2V2p1::calcDC (void)
10209 : : {
10210 : : // evaluate Verilog code
10211 : 6 : initVerilog ();
10212 : 6 : calcVerilog ();
10213 : :
10214 : : // fill right hand side and static jacobian
10215 [ + + ]: 66 : for (int i1 = 0; i1 < 10; i1++) {
10216 [ + - ]: 60 : setI (i1, _rhs[i1]);
10217 [ + + ]: 660 : for (int i2 = 0; i2 < 10; i2++) {
10218 [ + - ]: 600 : setY (i1, i2, _jstat[i1][i2]);
10219 : : }
10220 : : }
10221 : 6 : }
10222 : :
10223 : : /* Save operating points. */
10224 : 71 : void hicumL2V2p1::saveOperatingPoints (void)
10225 : : {
10226 : : // save global instance operating points
10227 : 71 : }
10228 : :
10229 : : /* Load operating points. */
10230 : 0 : void hicumL2V2p1::loadOperatingPoints (void)
10231 : : {
10232 : 0 : }
10233 : :
10234 : : /* Calculate operating points. */
10235 : 1 : void hicumL2V2p1::calcOperatingPoints (void)
10236 : : {
10237 : 1 : }
10238 : :
10239 : : /* Initialization of AC analysis. */
10240 : 0 : void hicumL2V2p1::initAC (void)
10241 : : {
10242 : 0 : allocMatrixMNA ();
10243 : 0 : }
10244 : :
10245 : : /* Perform AC calculations. */
10246 : 0 : void hicumL2V2p1::calcAC (nr_double_t frequency)
10247 : : {
10248 [ # # ]: 0 : setMatrixY (calcMatrixY (frequency));
10249 : 0 : }
10250 : :
10251 : : /* Compute Y-matrix for AC analysis. */
10252 : 70 : matrix hicumL2V2p1::calcMatrixY (nr_double_t frequency)
10253 : : {
10254 : 70 : _freq = frequency;
10255 : 70 : saveOperatingPoints ();
10256 : 70 : matrix y (10);
10257 : :
10258 [ + + ]: 770 : for (int i1 = 0; i1 < 10; i1++) {
10259 [ + + ]: 7700 : for (int i2 = 0; i2 < 10; i2++) {
10260 : 7000 : y (i1,i2) = nr_complex_t (_jstat[i1][i2], _jdyna[i1][i2] * 2 * M_PI * _freq);
10261 : : }
10262 : : }
10263 : :
10264 : 70 : return y;
10265 : : }
10266 : :
10267 : : /* Initialization of S-parameter analysis. */
10268 : 1 : void hicumL2V2p1::initSP (void)
10269 : : {
10270 : 1 : allocMatrixS ();
10271 : 1 : }
10272 : :
10273 : : /* Perform S-parameter calculations. */
10274 : 70 : void hicumL2V2p1::calcSP (nr_double_t frequency)
10275 : : {
10276 [ + - ][ + - ]: 70 : setMatrixS (ytos (calcMatrixY (frequency)));
[ + - ][ + - ]
[ + - ]
10277 : 70 : }
10278 : :
10279 : : /* Initialization of transient analysis. */
10280 : 0 : void hicumL2V2p1::initTR (void)
10281 : : {
10282 : 0 : setStates (2 * 10 * 10);
10283 : 0 : initDC ();
10284 : 0 : }
10285 : :
10286 : : /* Perform transient analysis iteration step. */
10287 : 0 : void hicumL2V2p1::calcTR (nr_double_t)
10288 : : {
10289 : 0 : doHB = 0;
10290 : 0 : doAC = 1;
10291 : 0 : doTR = 1;
10292 : 0 : calcDC ();
10293 : :
10294 : : int i1, i2, i3, i4, state;
10295 : :
10296 : : // 2-node charge integrations
10297 [ # # ]: 0 : for (i1 = 0; i1 < 10; i1++) {
10298 [ # # ]: 0 : for (i2 = 0; i2 < 10; i2++) {
10299 : 0 : state = 2 * (i2 + 10 * i1);
10300 [ # # ]: 0 : if (i1 != i2)
10301 [ # # ]: 0 : if (_charges[i1][i2] != 0.0)
10302 : 0 : transientCapacitanceQ (state, i1, i2, _charges[i1][i2]);
10303 : : } }
10304 : :
10305 : : // 1-node charge integrations
10306 [ # # ]: 0 : for (i1 = 0; i1 < 10; i1++) {
10307 : 0 : state = 2 * (i1 + 10 * i1);
10308 [ # # ]: 0 : if (_charges[i1][i1] != 0.0)
10309 : 0 : transientCapacitanceQ (state, i1, _charges[i1][i1]);
10310 : : }
10311 : :
10312 : : // charge: 2-node, voltage: 2-node
10313 [ # # ]: 0 : for (i1 = 0; i1 < 10; i1++) {
10314 [ # # ]: 0 : for (i2 = 0; i2 < 10; i2++) {
10315 [ # # ]: 0 : if (i1 != i2)
10316 [ # # ]: 0 : for (i3 = 0; i3 < 10; i3++) {
10317 [ # # ]: 0 : for (i4 = 0; i4 < 10; i4++) {
10318 [ # # ]: 0 : if (i3 != i4)
10319 [ # # ]: 0 : if (_caps[i1][i2][i3][i4] != 0.0)
10320 [ # # ][ # # ]: 0 : transientCapacitanceC (i1, i2, i3, i4, _caps[i1][i2][i3][i4], BP(i3,i4));
10321 : : } } } }
10322 : :
10323 : : // charge: 2-node, voltage: 1-node
10324 [ # # ]: 0 : for (i1 = 0; i1 < 10; i1++) {
10325 [ # # ]: 0 : for (i2 = 0; i2 < 10; i2++) {
10326 [ # # ]: 0 : if (i1 != i2)
10327 [ # # ]: 0 : for (i3 = 0; i3 < 10; i3++) {
10328 [ # # ]: 0 : if (_caps[i1][i2][i3][i3] != 0.0)
10329 [ # # ]: 0 : transientCapacitanceC2Q (i1, i2, i3, _caps[i1][i2][i3][i3], NP(i3));
10330 : : } } }
10331 : :
10332 : : // charge: 1-node, voltage: 2-node
10333 [ # # ]: 0 : for (i1 = 0; i1 < 10; i1++) {
10334 [ # # ]: 0 : for (i3 = 0; i3 < 10; i3++) {
10335 [ # # ]: 0 : for (i4 = 0; i4 < 10; i4++) {
10336 [ # # ]: 0 : if (i3 != i4)
10337 [ # # ]: 0 : if (_caps[i1][i1][i3][i4] != 0.0)
10338 [ # # ][ # # ]: 0 : transientCapacitanceC2V (i1, i3, i4, _caps[i1][i1][i3][i4], BP(i3,i4));
10339 : : } } }
10340 : :
10341 : : // charge: 1-node, voltage: 1-node
10342 [ # # ]: 0 : for (i1 = 0; i1 < 10; i1++) {
10343 [ # # ]: 0 : for (i3 = 0; i3 < 10; i3++) {
10344 [ # # ]: 0 : if (_caps[i1][i1][i3][i3] != 0.0)
10345 [ # # ]: 0 : transientCapacitanceC (i1, i3, _caps[i1][i1][i3][i3], NP(i3));
10346 : : } }
10347 : 0 : }
10348 : :
10349 : : /* Compute Cy-matrix for AC noise analysis. */
10350 : 70 : matrix hicumL2V2p1::calcMatrixCy (nr_double_t frequency)
10351 : : {
10352 : 70 : _freq = frequency;
10353 : 70 : matrix cy (10);
10354 : :
10355 : 70 : _load_flickernoise2 (bi,ei,_flicker_pwr[bi][ei],_flicker_exp[bi][ei]);
10356 : 70 : _load_whitenoise2 (ci,bi,_white_pwr[ci][bi]);
10357 : 70 : _load_whitenoise2 (si,s,_white_pwr[si][s]);
10358 : 70 : _load_whitenoise2 (ei,e,_white_pwr[ei][e]);
10359 : 70 : _load_whitenoise2 (ci,c,_white_pwr[ci][c]);
10360 : 70 : _load_whitenoise2 (bp,bi,_white_pwr[bp][bi]);
10361 : 70 : _load_whitenoise2 (b,bp,_white_pwr[b][bp]);
10362 : 70 : _load_whitenoise2 (ci,ei,_white_pwr[ci][ei]);
10363 : 70 : _load_whitenoise2 (si,ci,_white_pwr[si][ci]);
10364 : 70 : _load_whitenoise2 (bi,ci,_white_pwr[bi][ci]);
10365 : 70 : _load_whitenoise2 (bp,ci,_white_pwr[bp][ci]);
10366 : 70 : _load_whitenoise2 (bi,ei,_white_pwr[bi][ei]);
10367 : 70 : _load_whitenoise2 (bp,ei,_white_pwr[bp][ei]);
10368 : :
10369 : 70 : return cy;
10370 : : }
10371 : :
10372 : : /* Perform AC noise computations. */
10373 : 0 : void hicumL2V2p1::calcNoiseAC (nr_double_t frequency)
10374 : : {
10375 [ # # ]: 0 : setMatrixN (calcMatrixCy (frequency));
10376 : 0 : }
10377 : :
10378 : : /* Perform S-parameter noise computations. */
10379 : 70 : void hicumL2V2p1::calcNoiseSP (nr_double_t frequency)
10380 : : {
10381 [ + - ][ + - ]: 70 : setMatrixN (cytocs (calcMatrixCy (frequency) * z0, getMatrixS ()));
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ]
10382 : 70 : }
10383 : :
10384 : : /* Initialization of HB analysis. */
10385 : 0 : void hicumL2V2p1::initHB (int)
10386 : : {
10387 : 0 : initDC ();
10388 : 0 : allocMatrixHB ();
10389 : 0 : }
10390 : :
10391 : : /* Perform HB analysis. */
10392 : 0 : void hicumL2V2p1::calcHB (int)
10393 : : {
10394 : 0 : doHB = 1;
10395 : 0 : doAC = 1;
10396 : 0 : doTR = 0;
10397 : :
10398 : : // jacobian dI/dV and currents get filled
10399 : 0 : calcDC ();
10400 : 0 : saveOperatingPoints ();
10401 : :
10402 : : // fill in HB matrices
10403 [ # # ]: 0 : for (int i1 = 0; i1 < 10; i1++) {
10404 [ # # ]: 0 : setQ (i1, _qhs[i1]); // charges
10405 [ # # ]: 0 : setCV (i1, _chs[i1]); // jacobian dQ/dV * V
10406 [ # # ]: 0 : setGV (i1, _ghs[i1]); // jacobian dI/dV * V
10407 [ # # ]: 0 : for (int i2 = 0; i2 < 10; i2++) {
10408 [ # # ]: 0 : setQV (i1, i2, _jdyna[i1][i2]); // jacobian dQ/dV
10409 : : }
10410 : : }
10411 : 0 : }
10412 : :
10413 : : #include "hicumL2V2p1.defs.h"
10414 : :
|
