Branch data Line data Source code
1 : : /*
2 : : * hicumL2V2p24.core.cpp - device implementations for hicumL2V2p24 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 "hicumL2V2p24.analogfunction.h"
16 : : #include "component.h"
17 : : #include "device.h"
18 : : #include "hicumL2V2p24.core.h"
19 : :
20 : : #ifndef CIR_hicumL2V2p24
21 : : #define CIR_hicumL2V2p24 -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 : : #define xf1 10
37 : : #define xf2 11
38 : : #define xf 12
39 : : #define n1 13
40 : : #define n2 14
41 : :
42 : : // useful macro definitions
43 : : #define NP(node) real (getV (node))
44 : : #define BP(pnode,nnode) (NP(pnode) - NP(nnode))
45 : : #define _load_static_residual2(pnode,nnode,current)\
46 : : _rhs[pnode] -= current;\
47 : : _rhs[nnode] += current;
48 : : #define _load_static_augmented_residual2(pnode,nnode,current)\
49 : : _rhs[pnode] -= current;\
50 : : _rhs[nnode] += current;
51 : : #define _load_static_residual1(node,current)\
52 : : _rhs[node] -= current;
53 : : #define _load_static_augmented_residual1(node,current)\
54 : : _rhs[node] -= current;
55 : : #define _load_static_jacobian4(pnode,nnode,vpnode,vnnode,conductance)\
56 : : _jstat[pnode][vpnode] += conductance;\
57 : : _jstat[nnode][vnnode] += conductance;\
58 : : _jstat[pnode][vnnode] -= conductance;\
59 : : _jstat[nnode][vpnode] -= conductance;\
60 : : if (doHB) {\
61 : : _ghs[pnode] += conductance * BP(vpnode,vnnode);\
62 : : _ghs[nnode] -= conductance * BP(vpnode,vnnode);\
63 : : } else {\
64 : : _rhs[pnode] += conductance * BP(vpnode,vnnode);\
65 : : _rhs[nnode] -= conductance * BP(vpnode,vnnode);\
66 : : }
67 : : #define _load_static_jacobian2p(node,vpnode,vnnode,conductance)\
68 : : _jstat[node][vpnode] += conductance;\
69 : : _jstat[node][vnnode] -= conductance;\
70 : : if (doHB) {\
71 : : _ghs[node] += conductance * BP(vpnode,vnnode);\
72 : : } else {\
73 : : _rhs[node] += conductance * BP(vpnode,vnnode);\
74 : : }
75 : : #define _load_static_jacobian2s(pnode,nnode,node,conductance)\
76 : : _jstat[pnode][node] += conductance;\
77 : : _jstat[nnode][node] -= conductance;\
78 : : if (doHB) {\
79 : : _ghs[pnode] += conductance * NP(node);\
80 : : _ghs[nnode] -= conductance * NP(node);\
81 : : } else {\
82 : : _rhs[pnode] += conductance * NP(node);\
83 : : _rhs[nnode] -= conductance * NP(node);\
84 : : }
85 : : #define _load_static_jacobian1(node,vnode,conductance)\
86 : : _jstat[node][vnode] += conductance;\
87 : : if (doHB) {\
88 : : _ghs[node] += conductance * NP(vnode);\
89 : : } else {\
90 : : _rhs[node] += conductance * NP(vnode);\
91 : : }
92 : : #define _load_dynamic_residual2(pnode,nnode,charge)\
93 : : if (doTR) _charges[pnode][nnode] += charge;\
94 : : if (doHB) {\
95 : : _qhs[pnode] -= charge;\
96 : : _qhs[nnode] += charge;\
97 : : }
98 : : #define _load_dynamic_residual1(node,charge)\
99 : : if (doTR) _charges[node][node] += charge;\
100 : : if (doHB) {\
101 : : _qhs[node] -= charge;\
102 : : }
103 : : #define _load_dynamic_jacobian4(pnode,nnode,vpnode,vnnode,capacitance)\
104 : : if (doAC) {\
105 : : _jdyna[pnode][vpnode] += capacitance;\
106 : : _jdyna[nnode][vnnode] += capacitance;\
107 : : _jdyna[pnode][vnnode] -= capacitance;\
108 : : _jdyna[nnode][vpnode] -= capacitance;\
109 : : }\
110 : : if (doTR) {\
111 : : _caps[pnode][nnode][vpnode][vnnode] += capacitance;\
112 : : }\
113 : : if (doHB) {\
114 : : _chs[pnode] += capacitance * BP(vpnode,vnnode);\
115 : : _chs[nnode] -= capacitance * BP(vpnode,vnnode);\
116 : : }
117 : : #define _load_dynamic_jacobian2s(pnode,nnode,vnode,capacitance)\
118 : : if (doAC) {\
119 : : _jdyna[pnode][vnode] += capacitance;\
120 : : _jdyna[nnode][vnode] -= capacitance;\
121 : : }\
122 : : if (doTR) {\
123 : : _caps[pnode][nnode][vnode][vnode] += capacitance;\
124 : : }\
125 : : if (doHB) {\
126 : : _chs[pnode] += capacitance * NP(vnode);\
127 : : _chs[nnode] -= capacitance * NP(vnode);\
128 : : }
129 : : #define _load_dynamic_jacobian2p(node,vpnode,vnnode,capacitance)\
130 : : if (doAC) {\
131 : : _jdyna[node][vpnode] += capacitance;\
132 : : _jdyna[node][vnnode] -= capacitance;\
133 : : }\
134 : : if (doTR) {\
135 : : _caps[node][node][vpnode][vnnode] += capacitance;\
136 : : }\
137 : : if (doHB) {\
138 : : _chs[node] += capacitance * BP(vpnode,vnnode);\
139 : : }
140 : : #define _load_dynamic_jacobian1(node,vnode,capacitance)\
141 : : if (doAC) {\
142 : : _jdyna[node][vnode] += capacitance;\
143 : : }\
144 : : if (doTR) {\
145 : : _caps[node][node][vnode][vnode] += capacitance;\
146 : : }\
147 : : if (doHB) {\
148 : : _chs[node] += capacitance * NP(vnode);\
149 : : }
150 : :
151 : : #define _save_whitenoise1(n1,pwr,type)\
152 : : _white_pwr[n1][n1] += pwr;
153 : : #define _save_whitenoise2(n1,n2,pwr,type)\
154 : : _white_pwr[n1][n2] += pwr;
155 : : #define _save_flickernoise1(n1,pwr,exp,type)\
156 : : _flicker_pwr[n1][n1] += pwr;\
157 : : _flicker_exp[n1][n1] += exp;
158 : : #define _save_flickernoise2(n1,n2,pwr,exp,type)\
159 : : _flicker_pwr[n1][n2] += pwr;\
160 : : _flicker_exp[n1][n2] += exp;
161 : : #define _load_whitenoise2(n1,n2,pwr)\
162 : : cy (n1,n2) -= pwr/kB/T0; cy (n2,n1) -= pwr/kB/T0;\
163 : : cy (n1,n1) += pwr/kB/T0; cy (n2,n2) += pwr/kB/T0;
164 : : #define _load_whitenoise1(n1,pwr)\
165 : : cy (n1,n1) += pwr/kB/T0;
166 : : #define _load_flickernoise2(n1,n2,pwr,exp)\
167 : : cy (n1,n2) -= pwr*pow(_freq,-exp)/kB/T0;\
168 : : cy (n2,n1) -= pwr*pow(_freq,-exp)/kB/T0;\
169 : : cy (n1,n1) += pwr*pow(_freq,-exp)/kB/T0;\
170 : : cy (n2,n2) += pwr*pow(_freq,-exp)/kB/T0;
171 : : #define _load_flickernoise1(n1,pwr,exp)\
172 : : cy (n1,n1) += pwr*pow(_freq,-exp)/kB/T0;
173 : :
174 : : // derivative helper macros
175 : : // transcendental LRM p. 59
176 : : #define m00_cos(v00,x) v00 = cos(x);
177 : : #define m10_cos(v10,v00,x) v10 = (-sin(x));
178 : : #define m00_sin(v00,x) v00 = sin(x);
179 : : #define m10_sin(v10,v00,x) v10 = (cos(x));
180 : : #define m00_tan(v00,x) v00 = tan(x);
181 : : #define m10_tan(v10,v00,x) v10 = (1.0/cos(x)/cos(x));
182 : : #define m00_cosh(v00,x) v00 = cosh(x);
183 : : #define m10_cosh(v10,v00,x) v10 = (sinh(x));
184 : : #define m00_sinh(v00,x) v00 = sinh(x);
185 : : #define m10_sinh(v10,v00,x) v10 = (cosh(x));
186 : : #define m00_tanh(v00,x) v00 = tanh(x);
187 : : #define m10_tanh(v10,v00,x) v10 = (1.0/cosh(x)/cosh(x));
188 : : #define m00_acos(v00,x) v00 = acos(x);
189 : : #define m10_acos(v10,v00,x) v10 = (-1.0/sqrt(1-x*x));
190 : : #define m00_asin(v00,x) v00 = asin(x);
191 : : #define m10_asin(v10,v00,x) v10 = (+1.0/sqrt(1-x*x));
192 : : #define m00_atan(v00,x) v00 = atan(x);
193 : : #define m10_atan(v10,v00,x) v10 = (+1.0/(1+x*x));
194 : : #define m00_hypot(v00,x,y) v00 = sqrt((x)*(x)+(y)*(y));
195 : : #define m10_hypot(v10,v00,x,y) v10 = (x)/(v00);
196 : : #define m11_hypot(v11,v00,x,y) v11 = (y)/(v00);
197 : : #define m00_atan2(v00,x,y) v00 = atan2(x,y);
198 : : // TODO atan2 derivatives ?
199 : : #define m00_acosh(v00,x) v00 = acosh(x);
200 : : #define m10_acosh(v10,v00,x) v10 = (1.0/(sqrt(x-1)*sqrt(x+1)));
201 : : #define m00_asinh(v00,x) v00 = asinh(x);
202 : : #define m10_asinh(v10,v00,x) v10 = (1.0/(sqrt(x*x+1)));
203 : : #define m00_atanh(v00,x) v00 = atanh(x);
204 : : #define m10_atanh(v10,v00,x) v10 = (1.0/(1-x*x));
205 : :
206 : :
207 : : // standard functions LRM p.58
208 : : #define m00_logE(v00,x) v00 = log(x);
209 : : #define m10_logE(v10,v00,x) v10 = (1.0/x);
210 : : #define m00_log10(v00,x) v00 = log10(x);
211 : : #define m10_log10(v10,v00,x) v10 = (1.0/x/M_LN10);
212 : : #define m00_exp(v00,x) v00 = exp(x);
213 : : #define m10_exp(v10,v00,x) v10 = v00;
214 : : #define m00_sqrt(v00,x) v00 = sqrt(x);
215 : : #define m10_sqrt(v10,v00,x) v10 = (0.5/v00);
216 : : #define m00_min(v00,x,y) v00 = ((x)<(y))?(x):(y);
217 : : #define m10_min(v10,v00,x,y) v10 = ((x)<(y))?1.0:0.0;
218 : : #define m11_min(v11,v00,x,y) v11 = ((x)<(y))?0.0:1.0;
219 : : #define m00_max(v00,x,y) v00 = ((x)>(y))?(x):(y);
220 : : #define m10_max(v10,v00,x,y) v10 = ((x)>(y))?1.0:0.0;
221 : : #define m11_max(v11,v00,x,y) v11 = ((x)>(y))?0.0:1.0;
222 : : #define m00_pow(v00,x,y) v00 = pow(x,y);
223 : : #define m10_pow(v10,v00,x,y) v10 = (x==0.0)?0.0:(v00)*(y)/(x);
224 : : #define m11_pow(v11,v00,x,y) v11 = (x==0.0)?0.0:(log(x)*(v00));
225 : : #define m00_abs(v00,x) v00 = ((x)<(0)?(-(x)):(x));
226 : : #define m10_abs(v10,v00,x) v10 = (((x)>=0)?(+1.0):(-1.0));
227 : : #define m00_floor(v00,x) v00 = floor(x);
228 : : #define m10_floor(v10,v00,x) v10 = 1.0;
229 : :
230 : : #define m00_ceil(v00,x) v00 = ceil(x);
231 : : // TODO ceil derivative, needed?
232 : :
233 : : // analog operator, LRM p.61
234 : : #define m00_limexp(v00,x) v00 = ((x)<80.0?exp(x):exp(80.0)*(x-79.0));
235 : : #define m10_limexp(v10,v00,x) v10 = ((x)<80.0?(v00):exp(80.0));
236 : :
237 : : // analog kernel parameter system functions, LRM p.215
238 : : #define m00_vt(x) (kBoverQ*(x))
239 : : #define m10_vt(x) (kBoverQ)
240 : :
241 : : // extra functions (?)
242 : : #define m00_div(v00,v10,x,y) double v10=1/(y); double v00=(x)*v10;
243 : : #define m10_div(v10,v00,vv,x,y)
244 : : #define m11_div(v11,v00,vv,x,y) double v11 = -v00*vv;
245 : : #define m00_mult(v00,v10,v11,x,y) double v10=(x); double v11=(y); double v00=v10*v11;
246 : : #define m00_add(v00,x,y) double v00=(x)+(y);
247 : :
248 : : // second derivatives
249 : : #define m20_logE(v00) (-1.0/v00/v00)
250 : : #define m20_exp(v00) exp(v00)
251 : : #define m20_limexp(v00) ((v00)<80.0?exp(v00):0.0)
252 : : #define m20_sqrt(v00) (-0.25/(v00)/sqrt(v00))
253 : : #define m20_abs(v00) 0.0
254 : : #define m20_pow(x,y) ((y)*((y)-1.0)*pow(x,y)/(x)/(x))
255 : :
256 : :
257 : : // simulator specific definitions
258 : : #define _modelname "hicumL2V2p24"
259 : : #define _instancename getName()
260 : : #define _circuit_temp (getPropertyDouble("Temp")+273.15)
261 : : #define _param_given(p) (isPropertyGiven(p)?1:0)
262 : :
263 : :
264 : : // $vt and $vt() functions
265 : : #define _vt_nom (kBoverQ*_circuit_temp)
266 : :
267 : : using namespace qucs::device;
268 : : using qucs::matrix;
269 : :
270 : : /* Device constructor. */
271 : 0 : hicumL2V2p24::hicumL2V2p24() : circuit (15)
272 : : {
273 : 0 : type = CIR_hicumL2V2p24;
274 : 0 : }
275 : :
276 : : /* Initialization of model. */
277 : 0 : void hicumL2V2p24::initModel (void)
278 : : {
279 : : // create internal nodes
280 : 0 : setInternalNode (ci, "ci");
281 : 0 : setInternalNode (ei, "ei");
282 : 0 : setInternalNode (bp, "bp");
283 : 0 : setInternalNode (bi, "bi");
284 : 0 : setInternalNode (si, "si");
285 : 0 : setInternalNode (xf1, "xf1");
286 : 0 : setInternalNode (xf2, "xf2");
287 : 0 : setInternalNode (xf, "xf");
288 : 0 : setInternalNode (n1, "n1");
289 : 0 : setInternalNode (n2, "n2");
290 : :
291 : : // get device model parameters
292 : 0 : loadVariables ();
293 : : // evaluate global model equations
294 : 0 : initializeModel ();
295 : : // evaluate initial step equations
296 : 0 : initialStep ();
297 : : // evaluate global instance equations
298 : 0 : initializeInstance ();
299 : 0 : }
300 : :
301 : : /* Initialization of DC analysis. */
302 : 0 : void hicumL2V2p24::initDC (void)
303 : : {
304 : 0 : allocMatrixMNA ();
305 : 0 : initModel ();
306 : 0 : pol = 1;
307 : 0 : restartDC ();
308 : 0 : doAC = 1;
309 : 0 : doTR = 0;
310 : 0 : doHB = 0;
311 : 0 : }
312 : :
313 : : /* Run when DC is restarted (fallback algorithms). */
314 : 0 : void hicumL2V2p24::restartDC (void)
315 : : {
316 : 0 : }
317 : :
318 : : /* Initialize Verilog-AMS code. */
319 : 0 : void hicumL2V2p24::initVerilog (void)
320 : : {
321 : : // initialization of noise variables
322 : 0 : _white_pwr[n2][n2] = 0.0;
323 : 0 : _white_pwr[n1][n1] = 0.0;
324 : 0 : _white_pwr[ci][bi] = 0.0;
325 : 0 : _white_pwr[si][s] = 0.0;
326 : 0 : _white_pwr[ei][e] = 0.0;
327 : 0 : _white_pwr[ci][c] = 0.0;
328 : 0 : _white_pwr[si][ci] = 0.0;
329 : 0 : _white_pwr[bp][ei] = 0.0;
330 : 0 : _white_pwr[bp][bi] = 0.0;
331 : 0 : _white_pwr[b][bp] = 0.0;
332 : 0 : _white_pwr[bp][ci] = 0.0;
333 : 0 : _white_pwr[bi][ci] = 0.0;
334 : 0 : _flicker_pwr[bp][ei] = 0.0;
335 : 0 : _flicker_exp[bp][ei] = 0.0;
336 : 0 : _flicker_pwr[bi][ei] = 0.0;
337 : 0 : _flicker_exp[bi][ei] = 0.0;
338 : :
339 : : int i1, i2, i3, i4;
340 : :
341 : : // zero charges
342 [ # # ]: 0 : for (i1 = 0; i1 < 15; i1++) {
343 [ # # ]: 0 : for (i2 = 0; i2 < 15; i2++) {
344 : 0 : _charges[i1][i2] = 0.0;
345 : : } }
346 : :
347 : : // zero capacitances
348 [ # # ]: 0 : for (i1 = 0; i1 < 15; i1++) {
349 [ # # ]: 0 : for (i2 = 0; i2 < 15; i2++) {
350 [ # # ]: 0 : for (i3 = 0; i3 < 15; i3++) {
351 [ # # ]: 0 : for (i4 = 0; i4 < 15; i4++) {
352 : 0 : _caps[i1][i2][i3][i4] = 0.0;
353 : : } } } }
354 : :
355 : : // zero right hand side, static and dynamic jacobian
356 [ # # ]: 0 : for (i1 = 0; i1 < 15; i1++) {
357 : 0 : _rhs[i1] = 0.0;
358 : 0 : _qhs[i1] = 0.0;
359 : 0 : _chs[i1] = 0.0;
360 : 0 : _ghs[i1] = 0.0;
361 [ # # ]: 0 : for (i2 = 0; i2 < 15; i2++) {
362 : 0 : _jstat[i1][i2] = 0.0;
363 : 0 : _jdyna[i1][i2] = 0.0;
364 : : }
365 : : }
366 : 0 : }
367 : :
368 : : /* Load device model input parameters. */
369 : 0 : void hicumL2V2p24::loadVariables (void)
370 : : {
371 : 0 : c10 = getPropertyDouble ("c10");
372 : 0 : qp0 = getPropertyDouble ("qp0");
373 : 0 : ich = getPropertyDouble ("ich");
374 : 0 : hfe = getPropertyDouble ("hfe");
375 : 0 : hfc = getPropertyDouble ("hfc");
376 : 0 : hjei = getPropertyDouble ("hjei");
377 : 0 : hjci = getPropertyDouble ("hjci");
378 : 0 : ibeis = getPropertyDouble ("ibeis");
379 : 0 : mbei = getPropertyDouble ("mbei");
380 : 0 : ireis = getPropertyDouble ("ireis");
381 : 0 : mrei = getPropertyDouble ("mrei");
382 : 0 : ibeps = getPropertyDouble ("ibeps");
383 : 0 : mbep = getPropertyDouble ("mbep");
384 : 0 : ireps = getPropertyDouble ("ireps");
385 : 0 : mrep = getPropertyDouble ("mrep");
386 : 0 : mcf = getPropertyDouble ("mcf");
387 : 0 : tbhrec = getPropertyDouble ("tbhrec");
388 : 0 : ibcis = getPropertyDouble ("ibcis");
389 : 0 : mbci = getPropertyDouble ("mbci");
390 : 0 : ibcxs = getPropertyDouble ("ibcxs");
391 : 0 : mbcx = getPropertyDouble ("mbcx");
392 : 0 : ibets = getPropertyDouble ("ibets");
393 : 0 : abet = getPropertyDouble ("abet");
394 : 0 : tunode = getPropertyInteger ("tunode");
395 : 0 : favl = getPropertyDouble ("favl");
396 : 0 : qavl = getPropertyDouble ("qavl");
397 : 0 : alfav = getPropertyDouble ("alfav");
398 : 0 : alqav = getPropertyDouble ("alqav");
399 : 0 : rbi0 = getPropertyDouble ("rbi0");
400 : 0 : rbx = getPropertyDouble ("rbx");
401 : 0 : fgeo = getPropertyDouble ("fgeo");
402 : 0 : fdqr0 = getPropertyDouble ("fdqr0");
403 : 0 : fcrbi = getPropertyDouble ("fcrbi");
404 : 0 : fqi = getPropertyDouble ("fqi");
405 : 0 : re = getPropertyDouble ("re");
406 : 0 : rcx = getPropertyDouble ("rcx");
407 : 0 : itss = getPropertyDouble ("itss");
408 : 0 : msf = getPropertyDouble ("msf");
409 : 0 : iscs = getPropertyDouble ("iscs");
410 : 0 : msc = getPropertyDouble ("msc");
411 : 0 : tsf = getPropertyDouble ("tsf");
412 : 0 : rsu = getPropertyDouble ("rsu");
413 : 0 : csu = getPropertyDouble ("csu");
414 : 0 : cjei0 = getPropertyDouble ("cjei0");
415 : 0 : vdei = getPropertyDouble ("vdei");
416 : 0 : zei = getPropertyDouble ("zei");
417 : 0 : ajei = getPropertyDouble ("ajei");
418 : 0 : cjep0 = getPropertyDouble ("cjep0");
419 : 0 : vdep = getPropertyDouble ("vdep");
420 : 0 : zep = getPropertyDouble ("zep");
421 : 0 : ajep = getPropertyDouble ("ajep");
422 : 0 : cjci0 = getPropertyDouble ("cjci0");
423 : 0 : vdci = getPropertyDouble ("vdci");
424 : 0 : zci = getPropertyDouble ("zci");
425 : 0 : vptci = getPropertyDouble ("vptci");
426 : 0 : cjcx0 = getPropertyDouble ("cjcx0");
427 : 0 : vdcx = getPropertyDouble ("vdcx");
428 : 0 : zcx = getPropertyDouble ("zcx");
429 : 0 : vptcx = getPropertyDouble ("vptcx");
430 : 0 : fbcpar = getPropertyDouble ("fbcpar");
431 : 0 : fbepar = getPropertyDouble ("fbepar");
432 : 0 : cjs0 = getPropertyDouble ("cjs0");
433 : 0 : vds = getPropertyDouble ("vds");
434 : 0 : zs = getPropertyDouble ("zs");
435 : 0 : vpts = getPropertyDouble ("vpts");
436 : 0 : t0 = getPropertyDouble ("t0");
437 : 0 : dt0h = getPropertyDouble ("dt0h");
438 : 0 : tbvl = getPropertyDouble ("tbvl");
439 : 0 : tef0 = getPropertyDouble ("tef0");
440 : 0 : gtfe = getPropertyDouble ("gtfe");
441 : 0 : thcs = getPropertyDouble ("thcs");
442 : 0 : ahc = getPropertyDouble ("ahc");
443 : 0 : fthc = getPropertyDouble ("fthc");
444 : 0 : rci0 = getPropertyDouble ("rci0");
445 : 0 : vlim = getPropertyDouble ("vlim");
446 : 0 : vces = getPropertyDouble ("vces");
447 : 0 : vpt = getPropertyDouble ("vpt");
448 : 0 : tr = getPropertyDouble ("tr");
449 : 0 : cbepar = getPropertyDouble ("cbepar");
450 : 0 : cbcpar = getPropertyDouble ("cbcpar");
451 : 0 : alqf = getPropertyDouble ("alqf");
452 : 0 : alit = getPropertyDouble ("alit");
453 : 0 : flnqs = getPropertyInteger ("flnqs");
454 : 0 : kf = getPropertyDouble ("kf");
455 : 0 : af = getPropertyDouble ("af");
456 : 0 : cfbe = getPropertyInteger ("cfbe");
457 : 0 : latb = getPropertyDouble ("latb");
458 : 0 : latl = getPropertyDouble ("latl");
459 : 0 : vgb = getPropertyDouble ("vgb");
460 : 0 : alt0 = getPropertyDouble ("alt0");
461 : 0 : kt0 = getPropertyDouble ("kt0");
462 : 0 : zetaci = getPropertyDouble ("zetaci");
463 : 0 : alvs = getPropertyDouble ("alvs");
464 : 0 : alces = getPropertyDouble ("alces");
465 : 0 : zetarbi = getPropertyDouble ("zetarbi");
466 : 0 : zetarbx = getPropertyDouble ("zetarbx");
467 : 0 : zetarcx = getPropertyDouble ("zetarcx");
468 : 0 : zetare = getPropertyDouble ("zetare");
469 : 0 : zetacx = getPropertyDouble ("zetacx");
470 : 0 : vge = getPropertyDouble ("vge");
471 : 0 : vgc = getPropertyDouble ("vgc");
472 : 0 : vgs = getPropertyDouble ("vgs");
473 : 0 : f1vg = getPropertyDouble ("f1vg");
474 : 0 : f2vg = getPropertyDouble ("f2vg");
475 : 0 : zetact = getPropertyDouble ("zetact");
476 : 0 : zetabet = getPropertyDouble ("zetabet");
477 : 0 : alb = getPropertyDouble ("alb");
478 : 0 : flsh = getPropertyInteger ("flsh");
479 : 0 : rth = getPropertyDouble ("rth");
480 : 0 : cth = getPropertyDouble ("cth");
481 : 0 : flcomp = getPropertyDouble ("flcomp");
482 : 0 : tnom = getPropertyDouble ("tnom");
483 : 0 : dt = getPropertyDouble ("dt");
484 : 0 : }
485 : :
486 : : /* #define's for translated code */
487 : : #undef _DDT
488 : : #define _DDT(q) q
489 : : #define _DYNAMIC
490 : : #define _DERIVATE
491 : : #define _DDX
492 : : #define _DERIVATEFORDDX
493 : :
494 : : /* Evaluate Verilog-AMS equations in model initialization. */
495 : 0 : void hicumL2V2p24::initializeModel (void)
496 : : {
497 : : #if defined(_DYNAMIC)
498 : : #if defined(_DERIVATE)
499 : : double vpts_t_Vtnode_GND;
500 : : #endif
501 : : #endif
502 : : #if defined(_DYNAMIC)
503 : : #if defined(_DERIVATE)
504 : : double cjs0_t_Vtnode_GND;
505 : : #endif
506 : : #endif
507 : : #if defined(_DYNAMIC)
508 : : #if defined(_DERIVATE)
509 : : double vds_t_Vtnode_GND;
510 : : #endif
511 : : #endif
512 : : #if defined(_DYNAMIC)
513 : : #if defined(_DERIVATE)
514 : : double tsf_t_Vtnode_GND;
515 : : #endif
516 : : #endif
517 : : #if defined(_DERIVATE)
518 : : double re_t_Vtnode_GND;
519 : : #endif
520 : : #if defined(_DERIVATE)
521 : : double rbx_t_Vtnode_GND;
522 : : #endif
523 : : #if defined(_DERIVATE)
524 : : double rcx_t_Vtnode_GND;
525 : : #endif
526 : : #if defined(_DYNAMIC)
527 : : #if defined(_DERIVATE)
528 : : double cjcx02_t_Vtnode_GND;
529 : : #endif
530 : : #endif
531 : : #if defined(_DYNAMIC)
532 : : #if defined(_DERIVATE)
533 : : double cjcx01_t_Vtnode_GND;
534 : : #endif
535 : : #endif
536 : : #if defined(_DYNAMIC)
537 : : #if defined(_DERIVATE)
538 : : double vptcx_t_Vtnode_GND;
539 : : #endif
540 : : #endif
541 : : #if defined(_DYNAMIC)
542 : : #if defined(_DERIVATE)
543 : : double cratio_t_Vtnode_GND;
544 : : #endif
545 : : #endif
546 : : #if defined(_DYNAMIC)
547 : : #if defined(_DERIVATE)
548 : : double vdcx_t_Vtnode_GND;
549 : : #endif
550 : : #endif
551 : : #if defined(_DERIVATE)
552 : : double abet_t_Vtnode_GND;
553 : : #endif
554 : : #if defined(_DERIVATE)
555 : : double ibets_t_Vtnode_GND;
556 : : #endif
557 : : #if defined(_DERIVATE)
558 : : double ajep_t_Vtnode_GND;
559 : : #endif
560 : : #if defined(_DERIVATE)
561 : : double cjep0_t_Vtnode_GND;
562 : : #endif
563 : : #if defined(_DERIVATE)
564 : : double vdep_t_Vtnode_GND;
565 : : #endif
566 : : #if defined(_DERIVATE)
567 : : double rbi0_t_Vtnode_GND;
568 : : #endif
569 : : #if defined(_DERIVATE)
570 : : double qavl_t_Vtnode_GND;
571 : : #endif
572 : : #if defined(_DERIVATE)
573 : : double favl_t_Vtnode_GND;
574 : : #endif
575 : : #if defined(_DERIVATE)
576 : : double thcs_t_Vtnode_GND;
577 : : #endif
578 : : #if defined(_DERIVATE)
579 : : double t0_t_Vtnode_GND;
580 : : #endif
581 : : #if defined(_DERIVATE)
582 : : double vptci_t_Vtnode_GND;
583 : : #endif
584 : : #if defined(_DERIVATE)
585 : : double cjci0_t_Vtnode_GND;
586 : : #endif
587 : : #if defined(_DERIVATE)
588 : : double vdci_t_Vtnode_GND;
589 : : #endif
590 : : #if defined(_DERIVATE)
591 : : double vces_t_Vtnode_GND;
592 : : #endif
593 : : #if defined(_DERIVATE)
594 : : double rci0_t_Vtnode_GND;
595 : : #endif
596 : : #if defined(_DERIVATE)
597 : : double c10_t_Vtnode_GND;
598 : : #endif
599 : : #if defined(_DERIVATE)
600 : : double tef0_t_Vtnode_GND;
601 : : #endif
602 : : #if defined(_DERIVATE)
603 : : double vlim_t_Vtnode_GND;
604 : : #endif
605 : : #if defined(_DERIVATE)
606 : : double k_Vtnode_GND;
607 : : #endif
608 : : #if defined(_DERIVATE)
609 : : double qp0_t_Vtnode_GND;
610 : : #endif
611 : : #if defined(_DERIVATE)
612 : : double iscs_t_Vtnode_GND;
613 : : #endif
614 : : #if defined(_DERIVATE)
615 : : double itss_t_Vtnode_GND;
616 : : #endif
617 : : #if defined(_DERIVATE)
618 : : double ibcxs_t_Vtnode_GND;
619 : : #endif
620 : : #if defined(_DERIVATE)
621 : : double ibcis_t_Vtnode_GND;
622 : : #endif
623 : : #if defined(_DERIVATE)
624 : : double ireps_t_Vtnode_GND;
625 : : #endif
626 : : #if defined(_DERIVATE)
627 : : double ibeps_t_Vtnode_GND;
628 : : #endif
629 : : #if defined(_DERIVATE)
630 : : double ireis_t_Vtnode_GND;
631 : : #endif
632 : : #if defined(_DERIVATE)
633 : : double ibeis_t_Vtnode_GND;
634 : : #endif
635 : : #if defined(_DERIVATE)
636 : : double a_Vbi_ei;
637 : : double a_Vbi_ci;
638 : : double a_Vci_ei;
639 : : double a_Vtnode_GND;
640 : : #endif
641 : : #if defined(_DERIVATE)
642 : : double r_VgVT_Vtnode_GND;
643 : : #endif
644 : : #if defined(_DERIVATE)
645 : : double V_gT_Vtnode_GND;
646 : : #endif
647 : : #if defined(_DERIVATE)
648 : : double ajei_t_Vtnode_GND;
649 : : #endif
650 : : #if defined(_DERIVATE)
651 : : double cjei0_t_Vtnode_GND;
652 : : #endif
653 : : #if defined(_DERIVATE)
654 : : double vdei_t_Vtnode_GND;
655 : : #endif
656 : : #if defined(_DERIVATE)
657 : : double vdt_Vtnode_GND;
658 : : #endif
659 : : #if defined(_DERIVATE)
660 : : double vdjt_Vtnode_GND;
661 : : #endif
662 : : #if defined(_DERIVATE)
663 : : double vgbe_t_Vtnode_GND;
664 : : #endif
665 : : #if defined(_DERIVATE)
666 : : double vge_t_Vtnode_GND;
667 : : #endif
668 : : #if defined(_DERIVATE)
669 : : double vgb_t_Vtnode_GND;
670 : : #endif
671 : : #if defined(_DERIVATE)
672 : : double k2_Vtnode_GND;
673 : : #endif
674 : : #if defined(_DERIVATE)
675 : : double k1_Vtnode_GND;
676 : : #endif
677 : : #if defined(_DERIVATE)
678 : : double ln_qtt0_Vtnode_GND;
679 : : #endif
680 : : #if defined(_DERIVATE)
681 : : double qtt0_Vtnode_GND;
682 : : #endif
683 : : #if defined(_DERIVATE)
684 : : double dT_Vtnode_GND;
685 : : #endif
686 : : #if defined(_DERIVATE)
687 : : double VT_Vtnode_GND;
688 : : #endif
689 : : #if defined(_DERIVATE)
690 : : double Tdev_Vtnode_GND;
691 : : #endif
692 : : #if defined(_DYNAMIC)
693 : : #endif
694 : : #if defined(_DYNAMIC)
695 : : #endif
696 : : #if defined(_DYNAMIC)
697 : : #endif
698 : : #if defined(_DYNAMIC)
699 : : #endif
700 : : #if defined(_DYNAMIC)
701 : : #endif
702 : : #if defined(_DYNAMIC)
703 : : #endif
704 : : #if defined(_DYNAMIC)
705 : : double C_1;
706 : : #endif
707 : : double vge_t0;
708 : : double vgb_t0;
709 : : double k20;
710 : : double k10;
711 : : {
712 : 0 : Tnom=(tnom+273.15);
713 : 0 : Tamb=_circuit_temp;
714 : 0 : vt0=((1.3806503e-23*Tnom)/1.602176462e-19);
715 : : {
716 : 0 : double m00_logE(d00_logE0,Tnom)
717 : 0 : k10=((f1vg*Tnom)*d00_logE0);
718 : : }
719 : 0 : k20=(f2vg*Tnom);
720 : 0 : avs=(alvs*Tnom);
721 : 0 : vgb_t0=((vgb+k10)+k20);
722 : 0 : vge_t0=((vge+k10)+k20);
723 : 0 : vgbe_t0=((vgb_t0+vge_t0)/2);
724 : 0 : vgbe0=((vgb+vge)/2);
725 : 0 : vgbc0=((vgb+vgc)/2);
726 : 0 : vgsc0=((vgs+vgc)/2);
727 : 0 : mg=(3-((1.602176462e-19*f1vg)/1.3806503e-23));
728 : 0 : zetabci=((mg+1)-zetaci);
729 : 0 : zetabcxt=((mg+1)-zetacx);
730 : 0 : zetasct=(mg-1.5);
731 : : #if defined(_DYNAMIC)
732 : 0 : C_1=((1.0-fbcpar)*(cjcx0+cbcpar));
733 : : #endif
734 : : #ifdef _DYNAMIC
735 [ # # ]: 0 : if
736 : : (C_1>=cbcpar)
737 : : {
738 : : #if defined(_DYNAMIC)
739 : 0 : cbcpar1=cbcpar;
740 : : #endif
741 : : #if defined(_DYNAMIC)
742 : 0 : cbcpar2=0.0;
743 : : #endif
744 : : #if defined(_DYNAMIC)
745 : 0 : cjcx01=(C_1-cbcpar);
746 : : #endif
747 : : #if defined(_DYNAMIC)
748 : 0 : cjcx02=(cjcx0-cjcx01);
749 : : #endif
750 : : }
751 : : else
752 : : {
753 : : #if defined(_DYNAMIC)
754 : 0 : cbcpar1=C_1;
755 : : #endif
756 : : #if defined(_DYNAMIC)
757 : 0 : cbcpar2=(cbcpar-cbcpar1);
758 : : #endif
759 : : #if defined(_DYNAMIC)
760 : 0 : cjcx01=0.0;
761 : : #endif
762 : : #if defined(_DYNAMIC)
763 : 0 : cjcx02=cjcx0;
764 : : #endif
765 : : }
766 : : #endif /* if (...) */
767 : : #if defined(_DYNAMIC)
768 : 0 : cbepar2=(fbepar*cbepar);
769 : : #endif
770 : : #if defined(_DYNAMIC)
771 : 0 : cbepar1=(cbepar-cbepar2);
772 : : #endif
773 [ # # ]: 0 : if
774 : : (ich!=0.0)
775 : : {
776 : 0 : Oich=(1.0/ich);
777 : : }
778 : : else
779 : : {
780 : 0 : Oich=0.0;
781 : : }
782 [ # # ]: 0 : if
783 : : (tbhrec!=0.0)
784 : : {
785 : 0 : Otbhrec=(1.0/tbhrec);
786 : : }
787 : : else
788 : : {
789 : 0 : Otbhrec=0.0;
790 : : }
791 [ # # ][ # # ]: 0 : if
792 : : ((flsh==0)||(rth<0.001))
793 : : {
794 : : #if defined(_DERIVATE)
795 : 0 : Tdev_Vtnode_GND=0.0;
796 : : #endif
797 : 0 : Tdev=(Tamb+dt);
798 [ # # ]: 0 : if
799 : : (Tdev<((-100.0)+273.15))
800 : : {
801 : : #if defined(_DERIVATE)
802 : 0 : Tdev_Vtnode_GND=0.0;
803 : : #endif
804 : 0 : Tdev=((-100.0)+273.15);
805 : : }
806 : : else
807 : : {
808 [ # # ]: 0 : if
809 : : (Tdev>(326.85+273.15))
810 : : {
811 : : #if defined(_DERIVATE)
812 : 0 : Tdev_Vtnode_GND=0.0;
813 : : #endif
814 : 0 : Tdev=(326.85+273.15);
815 : : }
816 : : }
817 : : #if defined(_DERIVATE)
818 : 0 : VT_Vtnode_GND=0.0;
819 : : #endif
820 : 0 : VT=((1.3806503e-23*Tdev)/1.602176462e-19);
821 : : #if defined(_DERIVATE)
822 : 0 : dT_Vtnode_GND=0.0;
823 : : #endif
824 : 0 : dT=(Tdev-Tnom);
825 : : #if defined(_DERIVATE)
826 : 0 : qtt0_Vtnode_GND=0.0;
827 : : #endif
828 : 0 : qtt0=(Tdev/Tnom);
829 : : {
830 : 0 : double m00_logE(d00_logE0,qtt0)
831 : : #if defined(_DERIVATE)
832 : 0 : ln_qtt0_Vtnode_GND=0.0;
833 : : #endif
834 : 0 : ln_qtt0=d00_logE0;
835 : : }
836 : : {
837 : 0 : double m00_logE(d00_logE0,Tdev)
838 : : #if defined(_DERIVATE)
839 : 0 : k1_Vtnode_GND=0.0;
840 : : #endif
841 : 0 : k1=((f1vg*Tdev)*d00_logE0);
842 : : }
843 : : #if defined(_DERIVATE)
844 : 0 : k2_Vtnode_GND=0.0;
845 : : #endif
846 : 0 : k2=(f2vg*Tdev);
847 : : #if defined(_DERIVATE)
848 : 0 : vgb_t_Vtnode_GND=0.0;
849 : : #endif
850 : 0 : vgb_t=((vgb+k1)+k2);
851 : : #if defined(_DERIVATE)
852 : 0 : vge_t_Vtnode_GND=0.0;
853 : : #endif
854 : 0 : vge_t=((vge+k1)+k2);
855 : : #if defined(_DERIVATE)
856 : 0 : vgbe_t_Vtnode_GND=0.0;
857 : : #endif
858 : 0 : vgbe_t=((vgb_t+vge_t)/2);
859 [ # # ]: 0 : if
860 : : (cjei0>0.0)
861 : : {
862 : : {
863 : 0 : double m00_exp(d00_exp0,((vdei*0.5)/vt0))
864 : 0 : double m00_exp(d00_exp1,(((-0.5)*vdei)/vt0))
865 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
866 : 0 : vdj0=((2*vt0)*d00_logE2);
867 : : }
868 : : #if defined(_DERIVATE)
869 : 0 : vdjt_Vtnode_GND=0.0;
870 : : #endif
871 : 0 : vdjt=(((vdj0*qtt0)+(vgbe0*(1-qtt0)))-((mg*VT)*ln_qtt0));
872 : : {
873 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
874 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
875 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
876 : : #if defined(_DERIVATE)
877 : 0 : vdt_Vtnode_GND=0.0;
878 : : #endif
879 : 0 : vdt=(vdjt+((2*VT)*d00_logE2));
880 : : }
881 : : #if defined(_DERIVATE)
882 : 0 : vdei_t_Vtnode_GND=0.0;
883 : : #endif
884 : 0 : vdei_t=vdt;
885 : : {
886 : 0 : double m00_logE(d00_logE0,(vdei/vdei_t))
887 : 0 : double m00_exp(d00_exp1,(zei*d00_logE0))
888 : : #if defined(_DERIVATE)
889 : 0 : cjei0_t_Vtnode_GND=0.0;
890 : : #endif
891 : 0 : cjei0_t=(cjei0*d00_exp1);
892 : : }
893 : : if
894 : : (1==1)
895 : : {
896 : : #if defined(_DERIVATE)
897 : 0 : ajei_t_Vtnode_GND=0.0;
898 : : #endif
899 : 0 : ajei_t=((ajei*vdei_t)/vdei);
900 : : }
901 : : else
902 : : {
903 : : #if defined(_DERIVATE)
904 : : ajei_t_Vtnode_GND=0.0;
905 : : #endif
906 : : ajei_t=ajei;
907 : : }
908 : : }
909 : : else
910 : : {
911 : : #if defined(_DERIVATE)
912 : 0 : cjei0_t_Vtnode_GND=0.0;
913 : : #endif
914 : 0 : cjei0_t=cjei0;
915 : : #if defined(_DERIVATE)
916 : 0 : vdei_t_Vtnode_GND=0.0;
917 : : #endif
918 : 0 : vdei_t=vdei;
919 : : #if defined(_DERIVATE)
920 : 0 : ajei_t_Vtnode_GND=0.0;
921 : : #endif
922 : 0 : ajei_t=ajei;
923 : : }
924 [ # # ][ # # ]: 0 : if
925 : : ((flcomp==0.0)||(flcomp==2.1))
926 : : {
927 : : #if defined(_DERIVATE)
928 : 0 : V_gT_Vtnode_GND=0.0;
929 : : #endif
930 : 0 : V_gT=(((3.0*VT)*ln_qtt0)+(vgb*(qtt0-1.0)));
931 : : #if defined(_DERIVATE)
932 : 0 : r_VgVT_Vtnode_GND=0.0;
933 : : #endif
934 : 0 : r_VgVT=(V_gT/VT);
935 : : #if defined(_DERIVATE)
936 : 0 : a_Vbi_ei=0.0;
937 : 0 : a_Vbi_ci=0.0;
938 : 0 : a_Vci_ei=0.0;
939 : 0 : a_Vtnode_GND=0.0;
940 : : #endif
941 : 0 : a=(((mcf*r_VgVT)/mbei)-(alb*dT));
942 : : {
943 : 0 : double m00_exp(d00_exp0,a)
944 : : #if defined(_DERIVATE)
945 : 0 : ibeis_t_Vtnode_GND=0.0;
946 : : #endif
947 : 0 : ibeis_t=(ibeis*d00_exp0);
948 : : }
949 : : #if defined(_DERIVATE)
950 : 0 : a_Vbi_ei=0.0;
951 : 0 : a_Vbi_ci=0.0;
952 : 0 : a_Vci_ei=0.0;
953 : 0 : a_Vtnode_GND=0.0;
954 : : #endif
955 : 0 : a=(((mcf*r_VgVT)/mrei)-(alb*dT));
956 : : {
957 : 0 : double m00_exp(d00_exp0,a)
958 : : #if defined(_DERIVATE)
959 : 0 : ireis_t_Vtnode_GND=0.0;
960 : : #endif
961 : 0 : ireis_t=(ireis*d00_exp0);
962 : : }
963 : : #if defined(_DERIVATE)
964 : 0 : a_Vbi_ei=0.0;
965 : 0 : a_Vbi_ci=0.0;
966 : 0 : a_Vci_ei=0.0;
967 : 0 : a_Vtnode_GND=0.0;
968 : : #endif
969 : 0 : a=(((mcf*r_VgVT)/mbep)-(alb*dT));
970 : : {
971 : 0 : double m00_exp(d00_exp0,a)
972 : : #if defined(_DERIVATE)
973 : 0 : ibeps_t_Vtnode_GND=0.0;
974 : : #endif
975 : 0 : ibeps_t=(ibeps*d00_exp0);
976 : : }
977 : : #if defined(_DERIVATE)
978 : 0 : a_Vbi_ei=0.0;
979 : 0 : a_Vbi_ci=0.0;
980 : 0 : a_Vci_ei=0.0;
981 : 0 : a_Vtnode_GND=0.0;
982 : : #endif
983 : 0 : a=(((mcf*r_VgVT)/mrep)-(alb*dT));
984 : : {
985 : 0 : double m00_exp(d00_exp0,a)
986 : : #if defined(_DERIVATE)
987 : 0 : ireps_t_Vtnode_GND=0.0;
988 : : #endif
989 : 0 : ireps_t=(ireps*d00_exp0);
990 : : }
991 : : #if defined(_DERIVATE)
992 : 0 : a_Vbi_ei=0.0;
993 : 0 : a_Vbi_ci=0.0;
994 : 0 : a_Vci_ei=0.0;
995 : 0 : a_Vtnode_GND=0.0;
996 : : #endif
997 : 0 : a=(r_VgVT/mbci);
998 : : {
999 : 0 : double m00_exp(d00_exp0,a)
1000 : : #if defined(_DERIVATE)
1001 : 0 : ibcis_t_Vtnode_GND=0.0;
1002 : : #endif
1003 : 0 : ibcis_t=(ibcis*d00_exp0);
1004 : : }
1005 : : #if defined(_DERIVATE)
1006 : 0 : a_Vbi_ei=0.0;
1007 : 0 : a_Vbi_ci=0.0;
1008 : 0 : a_Vci_ei=0.0;
1009 : 0 : a_Vtnode_GND=0.0;
1010 : : #endif
1011 : 0 : a=(r_VgVT/mbcx);
1012 : : {
1013 : 0 : double m00_exp(d00_exp0,a)
1014 : : #if defined(_DERIVATE)
1015 : 0 : ibcxs_t_Vtnode_GND=0.0;
1016 : : #endif
1017 : 0 : ibcxs_t=(ibcxs*d00_exp0);
1018 : : }
1019 : : #if defined(_DERIVATE)
1020 : 0 : a_Vbi_ei=0.0;
1021 : 0 : a_Vbi_ci=0.0;
1022 : 0 : a_Vci_ei=0.0;
1023 : 0 : a_Vtnode_GND=0.0;
1024 : : #endif
1025 : 0 : a=(r_VgVT/msf);
1026 : : {
1027 : 0 : double m00_exp(d00_exp0,a)
1028 : : #if defined(_DERIVATE)
1029 : 0 : itss_t_Vtnode_GND=0.0;
1030 : : #endif
1031 : 0 : itss_t=(itss*d00_exp0);
1032 : : }
1033 : : #if defined(_DERIVATE)
1034 : 0 : a_Vbi_ei=0.0;
1035 : 0 : a_Vbi_ci=0.0;
1036 : 0 : a_Vci_ei=0.0;
1037 : 0 : a_Vtnode_GND=0.0;
1038 : : #endif
1039 : 0 : a=(r_VgVT/msc);
1040 : : {
1041 : 0 : double m00_exp(d00_exp0,a)
1042 : : #if defined(_DERIVATE)
1043 : 0 : iscs_t_Vtnode_GND=0.0;
1044 : : #endif
1045 : 0 : iscs_t=(iscs*d00_exp0);
1046 : : }
1047 : : #if defined(_DERIVATE)
1048 : 0 : a_Vbi_ei=0.0;
1049 : 0 : a_Vbi_ci=0.0;
1050 : 0 : a_Vci_ei=0.0;
1051 : 0 : a_Vtnode_GND=0.0;
1052 : : #endif
1053 : 0 : a=(vdei_t/vdei);
1054 : : #if defined(_DERIVATE)
1055 : 0 : qp0_t_Vtnode_GND=0.0;
1056 : : #endif
1057 : 0 : qp0_t=(qp0*(1.0+((0.5*zei)*(1.0-a))));
1058 : : {
1059 : 0 : double m00_exp(d00_exp0,(zetaci*ln_qtt0))
1060 : : #if defined(_DERIVATE)
1061 : 0 : a_Vbi_ei=0.0;
1062 : 0 : a_Vbi_ci=0.0;
1063 : 0 : a_Vci_ei=0.0;
1064 : 0 : a_Vtnode_GND=0.0;
1065 : : #endif
1066 : 0 : a=((vlim*(1.0-(alvs*dT)))*d00_exp0);
1067 : : }
1068 : : #if defined(_DERIVATE)
1069 : 0 : k_Vtnode_GND=0.0;
1070 : : #endif
1071 : 0 : k=((a-VT)/VT);
1072 [ # # ]: 0 : if
1073 : : (k<11.0)
1074 : : {
1075 : : {
1076 : 0 : double m00_exp(d00_exp0,k)
1077 : 0 : double m00_logE(d00_logE1,(1.0+d00_exp0))
1078 : : #if defined(_DERIVATE)
1079 : 0 : vlim_t_Vtnode_GND=0.0;
1080 : : #endif
1081 : 0 : vlim_t=(VT+(VT*d00_logE1));
1082 : : }
1083 : : }
1084 : : else
1085 : : {
1086 : : #if defined(_DERIVATE)
1087 : 0 : vlim_t_Vtnode_GND=0.0;
1088 : : #endif
1089 : 0 : vlim_t=a;
1090 : : }
1091 : : #if defined(_DERIVATE)
1092 : 0 : a_Vbi_ei=0.0;
1093 : 0 : a_Vbi_ci=0.0;
1094 : 0 : a_Vci_ei=0.0;
1095 : 0 : a_Vtnode_GND=0.0;
1096 : : #endif
1097 : 0 : a=(1.0+(alb*dT));
1098 : : {
1099 : 0 : double m00_sqrt(d00_sqrt0,((a*a)+0.01))
1100 : : #if defined(_DERIVATE)
1101 : 0 : k_Vtnode_GND=0.0;
1102 : : #endif
1103 : 0 : k=(0.5*(a+d00_sqrt0));
1104 : : }
1105 : : #if defined(_DERIVATE)
1106 : 0 : tef0_t_Vtnode_GND=0.0;
1107 : : #endif
1108 : 0 : tef0_t=((tef0*qtt0)/k);
1109 : : }
1110 : : else
1111 : : {
1112 : : {
1113 : 0 : double m00_exp(d00_exp0,((zetabet*ln_qtt0)+((vge/VT)*(qtt0-1))))
1114 : : #if defined(_DERIVATE)
1115 : 0 : ibeis_t_Vtnode_GND=0.0;
1116 : : #endif
1117 : 0 : ibeis_t=(ibeis*d00_exp0);
1118 : : }
1119 : : {
1120 : 0 : double m00_exp(d00_exp0,(((0.5*mg)*ln_qtt0)+(((0.5*vgbe0)/VT)*(qtt0-1))))
1121 : : #if defined(_DERIVATE)
1122 : 0 : ireis_t_Vtnode_GND=0.0;
1123 : : #endif
1124 : 0 : ireis_t=(ireis*d00_exp0);
1125 : : }
1126 : : {
1127 : 0 : double m00_exp(d00_exp0,((zetabet*ln_qtt0)+((vge/VT)*(qtt0-1))))
1128 : : #if defined(_DERIVATE)
1129 : 0 : ibeps_t_Vtnode_GND=0.0;
1130 : : #endif
1131 : 0 : ibeps_t=(ibeps*d00_exp0);
1132 : : }
1133 : : {
1134 : 0 : double m00_exp(d00_exp0,(((0.5*mg)*ln_qtt0)+(((0.5*vgbe0)/VT)*(qtt0-1))))
1135 : : #if defined(_DERIVATE)
1136 : 0 : ireps_t_Vtnode_GND=0.0;
1137 : : #endif
1138 : 0 : ireps_t=(ireps*d00_exp0);
1139 : : }
1140 : : {
1141 : 0 : double m00_exp(d00_exp0,((zetabci*ln_qtt0)+((vgc/VT)*(qtt0-1))))
1142 : : #if defined(_DERIVATE)
1143 : 0 : ibcis_t_Vtnode_GND=0.0;
1144 : : #endif
1145 : 0 : ibcis_t=(ibcis*d00_exp0);
1146 : : }
1147 : : {
1148 : 0 : double m00_exp(d00_exp0,((zetabcxt*ln_qtt0)+((vgc/VT)*(qtt0-1))))
1149 : : #if defined(_DERIVATE)
1150 : 0 : ibcxs_t_Vtnode_GND=0.0;
1151 : : #endif
1152 : 0 : ibcxs_t=(ibcxs*d00_exp0);
1153 : : }
1154 : : {
1155 : 0 : double m00_exp(d00_exp0,((zetasct*ln_qtt0)+((vgc/VT)*(qtt0-1))))
1156 : : #if defined(_DERIVATE)
1157 : 0 : itss_t_Vtnode_GND=0.0;
1158 : : #endif
1159 : 0 : itss_t=(itss*d00_exp0);
1160 : : }
1161 : : {
1162 : 0 : double m00_exp(d00_exp0,((zetasct*ln_qtt0)+((vgs/VT)*(qtt0-1))))
1163 : : #if defined(_DERIVATE)
1164 : 0 : iscs_t_Vtnode_GND=0.0;
1165 : : #endif
1166 : 0 : iscs_t=(iscs*d00_exp0);
1167 : : }
1168 : : {
1169 : 0 : double m00_logE(d00_logE0,(vdei_t/vdei))
1170 : 0 : double m00_exp(d00_exp1,(zei*d00_logE0))
1171 : : #if defined(_DERIVATE)
1172 : 0 : a_Vbi_ei=0.0;
1173 : 0 : a_Vbi_ci=0.0;
1174 : 0 : a_Vci_ei=0.0;
1175 : 0 : a_Vtnode_GND=0.0;
1176 : : #endif
1177 : 0 : a=d00_exp1;
1178 : : }
1179 : : #if defined(_DERIVATE)
1180 : 0 : qp0_t_Vtnode_GND=0.0;
1181 : : #endif
1182 : 0 : qp0_t=(qp0*(2.0-a));
1183 : : {
1184 : 0 : double m00_exp(d00_exp0,((zetaci-avs)*ln_qtt0))
1185 : : #if defined(_DERIVATE)
1186 : 0 : vlim_t_Vtnode_GND=0.0;
1187 : : #endif
1188 : 0 : vlim_t=(vlim*d00_exp0);
1189 : : }
1190 : 0 : zetatef=((zetabet-zetact)-0.5);
1191 : 0 : dvg0=(vgb-vge);
1192 : : {
1193 : 0 : double m00_exp(d00_exp0,((zetatef*ln_qtt0)-((dvg0/VT)*(qtt0-1))))
1194 : : #if defined(_DERIVATE)
1195 : 0 : tef0_t_Vtnode_GND=0.0;
1196 : : #endif
1197 : 0 : tef0_t=(tef0*d00_exp0);
1198 : : }
1199 : : }
1200 : : {
1201 : 0 : double m00_exp(d00_exp0,((zetact*ln_qtt0)+((vgb/VT)*(qtt0-1))))
1202 : : #if defined(_DERIVATE)
1203 : 0 : c10_t_Vtnode_GND=0.0;
1204 : : #endif
1205 : 0 : c10_t=(c10*d00_exp0);
1206 : : }
1207 : : {
1208 : 0 : double m00_exp(d00_exp0,(zetaci*ln_qtt0))
1209 : : #if defined(_DERIVATE)
1210 : 0 : rci0_t_Vtnode_GND=0.0;
1211 : : #endif
1212 : 0 : rci0_t=(rci0*d00_exp0);
1213 : : }
1214 : : #if defined(_DERIVATE)
1215 : 0 : vces_t_Vtnode_GND=0.0;
1216 : : #endif
1217 : 0 : vces_t=(vces*(1+(alces*dT)));
1218 [ # # ]: 0 : if
1219 : : (cjci0>0.0)
1220 : : {
1221 : : {
1222 : 0 : double m00_exp(d00_exp0,((vdci*0.5)/vt0))
1223 : 0 : double m00_exp(d00_exp1,(((-0.5)*vdci)/vt0))
1224 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
1225 : 0 : vdj0=((2*vt0)*d00_logE2);
1226 : : }
1227 : : #if defined(_DERIVATE)
1228 : 0 : vdjt_Vtnode_GND=0.0;
1229 : : #endif
1230 : 0 : vdjt=(((vdj0*qtt0)+(vgbc0*(1-qtt0)))-((mg*VT)*ln_qtt0));
1231 : : {
1232 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
1233 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
1234 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
1235 : : #if defined(_DERIVATE)
1236 : 0 : vdt_Vtnode_GND=0.0;
1237 : : #endif
1238 : 0 : vdt=(vdjt+((2*VT)*d00_logE2));
1239 : : }
1240 : : #if defined(_DERIVATE)
1241 : 0 : vdci_t_Vtnode_GND=0.0;
1242 : : #endif
1243 : 0 : vdci_t=vdt;
1244 : : {
1245 : 0 : double m00_logE(d00_logE0,(vdci/vdci_t))
1246 : 0 : double m00_exp(d00_exp1,(zci*d00_logE0))
1247 : : #if defined(_DERIVATE)
1248 : 0 : cjci0_t_Vtnode_GND=0.0;
1249 : : #endif
1250 : 0 : cjci0_t=(cjci0*d00_exp1);
1251 : : }
1252 : : if
1253 : : (0==1)
1254 : : {
1255 : : #if defined(_DERIVATE)
1256 : : vptci_t_Vtnode_GND=0.0;
1257 : : #endif
1258 : : vptci_t=((vptci*vdci_t)/vdci);
1259 : : }
1260 : : else
1261 : : {
1262 : : #if defined(_DERIVATE)
1263 : 0 : vptci_t_Vtnode_GND=0.0;
1264 : : #endif
1265 : 0 : vptci_t=vptci;
1266 : : }
1267 : : }
1268 : : else
1269 : : {
1270 : : #if defined(_DERIVATE)
1271 : 0 : cjci0_t_Vtnode_GND=0.0;
1272 : : #endif
1273 : 0 : cjci0_t=cjci0;
1274 : : #if defined(_DERIVATE)
1275 : 0 : vdci_t_Vtnode_GND=0.0;
1276 : : #endif
1277 : 0 : vdci_t=vdci;
1278 : : #if defined(_DERIVATE)
1279 : 0 : vptci_t_Vtnode_GND=0.0;
1280 : : #endif
1281 : 0 : vptci_t=vptci;
1282 : : }
1283 : : #if defined(_DERIVATE)
1284 : 0 : t0_t_Vtnode_GND=0.0;
1285 : : #endif
1286 : 0 : t0_t=(t0*((1+(alt0*dT))+((kt0*dT)*dT)));
1287 : : {
1288 : 0 : double m00_exp(d00_exp0,((zetaci-1)*ln_qtt0))
1289 : : #if defined(_DERIVATE)
1290 : 0 : thcs_t_Vtnode_GND=0.0;
1291 : : #endif
1292 : 0 : thcs_t=(thcs*d00_exp0);
1293 : : }
1294 : : {
1295 : 0 : double m00_exp(d00_exp0,(alfav*dT))
1296 : : #if defined(_DERIVATE)
1297 : 0 : favl_t_Vtnode_GND=0.0;
1298 : : #endif
1299 : 0 : favl_t=(favl*d00_exp0);
1300 : : }
1301 : : {
1302 : 0 : double m00_exp(d00_exp0,(alqav*dT))
1303 : : #if defined(_DERIVATE)
1304 : 0 : qavl_t_Vtnode_GND=0.0;
1305 : : #endif
1306 : 0 : qavl_t=(qavl*d00_exp0);
1307 : : }
1308 : : {
1309 : 0 : double m00_exp(d00_exp0,(zetarbi*ln_qtt0))
1310 : : #if defined(_DERIVATE)
1311 : 0 : rbi0_t_Vtnode_GND=0.0;
1312 : : #endif
1313 : 0 : rbi0_t=(rbi0*d00_exp0);
1314 : : }
1315 [ # # ]: 0 : if
1316 : : (cjep0>0.0)
1317 : : {
1318 : : {
1319 : 0 : double m00_exp(d00_exp0,((vdep*0.5)/vt0))
1320 : 0 : double m00_exp(d00_exp1,(((-0.5)*vdep)/vt0))
1321 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
1322 : 0 : vdj0=((2*vt0)*d00_logE2);
1323 : : }
1324 : : #if defined(_DERIVATE)
1325 : 0 : vdjt_Vtnode_GND=0.0;
1326 : : #endif
1327 : 0 : vdjt=(((vdj0*qtt0)+(vgbe0*(1-qtt0)))-((mg*VT)*ln_qtt0));
1328 : : {
1329 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
1330 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
1331 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
1332 : : #if defined(_DERIVATE)
1333 : 0 : vdt_Vtnode_GND=0.0;
1334 : : #endif
1335 : 0 : vdt=(vdjt+((2*VT)*d00_logE2));
1336 : : }
1337 : : #if defined(_DERIVATE)
1338 : 0 : vdep_t_Vtnode_GND=0.0;
1339 : : #endif
1340 : 0 : vdep_t=vdt;
1341 : : {
1342 : 0 : double m00_logE(d00_logE0,(vdep/vdep_t))
1343 : 0 : double m00_exp(d00_exp1,(zep*d00_logE0))
1344 : : #if defined(_DERIVATE)
1345 : 0 : cjep0_t_Vtnode_GND=0.0;
1346 : : #endif
1347 : 0 : cjep0_t=(cjep0*d00_exp1);
1348 : : }
1349 : : if
1350 : : (1==1)
1351 : : {
1352 : : #if defined(_DERIVATE)
1353 : 0 : ajep_t_Vtnode_GND=0.0;
1354 : : #endif
1355 : 0 : ajep_t=((ajep*vdep_t)/vdep);
1356 : : }
1357 : : else
1358 : : {
1359 : : #if defined(_DERIVATE)
1360 : : ajep_t_Vtnode_GND=0.0;
1361 : : #endif
1362 : : ajep_t=ajep;
1363 : : }
1364 : : }
1365 : : else
1366 : : {
1367 : : #if defined(_DERIVATE)
1368 : 0 : cjep0_t_Vtnode_GND=0.0;
1369 : : #endif
1370 : 0 : cjep0_t=cjep0;
1371 : : #if defined(_DERIVATE)
1372 : 0 : vdep_t_Vtnode_GND=0.0;
1373 : : #endif
1374 : 0 : vdep_t=vdep;
1375 : : #if defined(_DERIVATE)
1376 : 0 : ajep_t_Vtnode_GND=0.0;
1377 : : #endif
1378 : 0 : ajep_t=ajep;
1379 : : }
1380 : : {
1381 : : double a_eg;
1382 : : double ab;
1383 : : double aa;
1384 : 0 : ab=1.0;
1385 : 0 : aa=1.0;
1386 : 0 : a_eg=(vgbe_t0/vgbe_t);
1387 [ # # ][ # # ]: 0 : if
[ # # ]
1388 : : (((tunode==1)&&(cjep0>0.0))&&(vdep>0.0))
1389 : : {
1390 : : {
1391 : 0 : double m00_sqrt(d00_sqrt0,a_eg)
1392 : 0 : ab=(((((cjep0_t/cjep0)*d00_sqrt0)*vdep_t)*vdep_t)/(vdep*vdep));
1393 : : }
1394 : : {
1395 : 0 : double m00_pow(d00_pow0,a_eg,(-1.5))
1396 : 0 : aa=(((vdep/vdep_t)*(cjep0/cjep0_t))*d00_pow0);
1397 : 0 : }
1398 : : }
1399 : : else
1400 : : {
1401 [ # # ][ # # ]: 0 : if
[ # # ]
1402 : : (((tunode==0)&&(cjei0>0.0))&&(vdei>0.0))
1403 : : {
1404 : : {
1405 : 0 : double m00_sqrt(d00_sqrt0,a_eg)
1406 : 0 : ab=(((((cjei0_t/cjei0)*d00_sqrt0)*vdei_t)*vdei_t)/(vdei*vdei));
1407 : : }
1408 : : {
1409 : 0 : double m00_pow(d00_pow0,a_eg,(-1.5))
1410 : 0 : aa=(((vdei/vdei_t)*(cjei0/cjei0_t))*d00_pow0);
1411 : : }
1412 : : }
1413 : : }
1414 : : #if defined(_DERIVATE)
1415 : 0 : ibets_t_Vtnode_GND=0.0;
1416 : : #endif
1417 : 0 : ibets_t=(ibets*ab);
1418 : : #if defined(_DERIVATE)
1419 : 0 : abet_t_Vtnode_GND=0.0;
1420 : : #endif
1421 : 0 : abet_t=(abet*aa);
1422 : : }
1423 : : if
1424 : : (1.0>0.0)
1425 : : {
1426 : : {
1427 : 0 : double m00_exp(d00_exp0,((vdcx*0.5)/vt0))
1428 : 0 : double m00_exp(d00_exp1,(((-0.5)*vdcx)/vt0))
1429 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
1430 : 0 : vdj0=((2*vt0)*d00_logE2);
1431 : : }
1432 : : #if defined(_DERIVATE)
1433 : 0 : vdjt_Vtnode_GND=0.0;
1434 : : #endif
1435 : 0 : vdjt=(((vdj0*qtt0)+(vgbc0*(1-qtt0)))-((mg*VT)*ln_qtt0));
1436 : : {
1437 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
1438 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
1439 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
1440 : : #if defined(_DERIVATE)
1441 : 0 : vdt_Vtnode_GND=0.0;
1442 : : #endif
1443 : 0 : vdt=(vdjt+((2*VT)*d00_logE2));
1444 : : }
1445 : : #if defined(_DYNAMIC)
1446 : : #if defined(_DERIVATE)
1447 : 0 : vdcx_t_Vtnode_GND=0.0;
1448 : : #endif
1449 : 0 : vdcx_t=vdt;
1450 : : #endif
1451 : : #if defined(_DYNAMIC)
1452 : : {
1453 : 0 : double m00_logE(d00_logE0,(vdcx/vdcx_t))
1454 : 0 : double m00_exp(d00_exp1,(zcx*d00_logE0))
1455 : : #if defined(_DERIVATE)
1456 : 0 : cratio_t_Vtnode_GND=0.0;
1457 : : #endif
1458 : 0 : cratio_t=(1.0*d00_exp1);
1459 : : }
1460 : : #endif
1461 : : #ifdef _DYNAMIC
1462 : : if
1463 : : (0==1)
1464 : : {
1465 : : #if defined(_DYNAMIC)
1466 : : #if defined(_DERIVATE)
1467 : : vptcx_t_Vtnode_GND=0.0;
1468 : : #endif
1469 : : vptcx_t=((vptcx*vdcx_t)/vdcx);
1470 : : #endif
1471 : : }
1472 : : else
1473 : : {
1474 : : #if defined(_DYNAMIC)
1475 : : #if defined(_DERIVATE)
1476 : 0 : vptcx_t_Vtnode_GND=0.0;
1477 : : #endif
1478 : 0 : vptcx_t=vptcx;
1479 : : #endif
1480 : : }
1481 : : #endif /* if (...) */
1482 : : }
1483 : : else
1484 : : {
1485 : : #if defined(_DYNAMIC)
1486 : : #if defined(_DERIVATE)
1487 : : cratio_t_Vtnode_GND=0.0;
1488 : : #endif
1489 : : cratio_t=1.0;
1490 : : #endif
1491 : : #if defined(_DYNAMIC)
1492 : : #if defined(_DERIVATE)
1493 : : vdcx_t_Vtnode_GND=0.0;
1494 : : #endif
1495 : : vdcx_t=vdcx;
1496 : : #endif
1497 : : #if defined(_DYNAMIC)
1498 : : #if defined(_DERIVATE)
1499 : : vptcx_t_Vtnode_GND=0.0;
1500 : : #endif
1501 : : vptcx_t=vptcx;
1502 : : #endif
1503 : : }
1504 : : #if defined(_DYNAMIC)
1505 : : #if defined(_DERIVATE)
1506 : 0 : cjcx01_t_Vtnode_GND=0.0;
1507 : : #endif
1508 : 0 : cjcx01_t=(cratio_t*cjcx01);
1509 : : #endif
1510 : : #if defined(_DYNAMIC)
1511 : : #if defined(_DERIVATE)
1512 : 0 : cjcx02_t_Vtnode_GND=0.0;
1513 : : #endif
1514 : 0 : cjcx02_t=(cratio_t*cjcx02);
1515 : : #endif
1516 : : {
1517 : 0 : double m00_exp(d00_exp0,(zetarcx*ln_qtt0))
1518 : : #if defined(_DERIVATE)
1519 : 0 : rcx_t_Vtnode_GND=0.0;
1520 : : #endif
1521 : 0 : rcx_t=(rcx*d00_exp0);
1522 : : }
1523 : : {
1524 : 0 : double m00_exp(d00_exp0,(zetarbx*ln_qtt0))
1525 : : #if defined(_DERIVATE)
1526 : 0 : rbx_t_Vtnode_GND=0.0;
1527 : : #endif
1528 : 0 : rbx_t=(rbx*d00_exp0);
1529 : : }
1530 : : {
1531 : 0 : double m00_exp(d00_exp0,(zetare*ln_qtt0))
1532 : : #if defined(_DERIVATE)
1533 : 0 : re_t_Vtnode_GND=0.0;
1534 : : #endif
1535 : 0 : re_t=(re*d00_exp0);
1536 : : }
1537 : : #if defined(_DYNAMIC)
1538 : : {
1539 : 0 : double m00_exp(d00_exp0,((zetacx-1.0)*ln_qtt0))
1540 : : #if defined(_DERIVATE)
1541 : 0 : tsf_t_Vtnode_GND=0.0;
1542 : : #endif
1543 : 0 : tsf_t=(tsf*d00_exp0);
1544 : : }
1545 : : #endif
1546 [ # # ]: 0 : if
1547 : : (cjs0>0.0)
1548 : : {
1549 : : {
1550 : 0 : double m00_exp(d00_exp0,((vds*0.5)/vt0))
1551 : 0 : double m00_exp(d00_exp1,(((-0.5)*vds)/vt0))
1552 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
1553 : 0 : vdj0=((2*vt0)*d00_logE2);
1554 : : }
1555 : : #if defined(_DERIVATE)
1556 : 0 : vdjt_Vtnode_GND=0.0;
1557 : : #endif
1558 : 0 : vdjt=(((vdj0*qtt0)+(vgsc0*(1-qtt0)))-((mg*VT)*ln_qtt0));
1559 : : {
1560 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
1561 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
1562 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
1563 : : #if defined(_DERIVATE)
1564 : 0 : vdt_Vtnode_GND=0.0;
1565 : : #endif
1566 : 0 : vdt=(vdjt+((2*VT)*d00_logE2));
1567 : : }
1568 : : #if defined(_DYNAMIC)
1569 : : #if defined(_DERIVATE)
1570 : 0 : vds_t_Vtnode_GND=0.0;
1571 : : #endif
1572 : 0 : vds_t=vdt;
1573 : : #endif
1574 : : #if defined(_DYNAMIC)
1575 : : {
1576 : 0 : double m00_logE(d00_logE0,(vds/vds_t))
1577 : 0 : double m00_exp(d00_exp1,(zs*d00_logE0))
1578 : : #if defined(_DERIVATE)
1579 : 0 : cjs0_t_Vtnode_GND=0.0;
1580 : : #endif
1581 : 0 : cjs0_t=(cjs0*d00_exp1);
1582 : : }
1583 : : #endif
1584 : : #ifdef _DYNAMIC
1585 : : if
1586 : : (0==1)
1587 : : {
1588 : : #if defined(_DYNAMIC)
1589 : : #if defined(_DERIVATE)
1590 : : vpts_t_Vtnode_GND=0.0;
1591 : : #endif
1592 : : vpts_t=((vpts*vds_t)/vds);
1593 : : #endif
1594 : : }
1595 : : else
1596 : : {
1597 : : #if defined(_DYNAMIC)
1598 : : #if defined(_DERIVATE)
1599 : 0 : vpts_t_Vtnode_GND=0.0;
1600 : : #endif
1601 : 0 : vpts_t=vpts;
1602 : : #endif
1603 : : }
1604 : : #endif /* if (...) */
1605 : : }
1606 : : else
1607 : : {
1608 : : #if defined(_DYNAMIC)
1609 : : #if defined(_DERIVATE)
1610 : 0 : cjs0_t_Vtnode_GND=0.0;
1611 : : #endif
1612 : 0 : cjs0_t=cjs0;
1613 : : #endif
1614 : : #if defined(_DYNAMIC)
1615 : : #if defined(_DERIVATE)
1616 : 0 : vds_t_Vtnode_GND=0.0;
1617 : : #endif
1618 : 0 : vds_t=vds;
1619 : : #endif
1620 : : #if defined(_DYNAMIC)
1621 : : #if defined(_DERIVATE)
1622 : 0 : vpts_t_Vtnode_GND=0.0;
1623 : : #endif
1624 : 0 : vpts_t=vpts;
1625 : : #endif
1626 : : }
1627 : : }
1628 : : }
1629 : 0 : }
1630 : :
1631 : : /* Evaluate Verilog-AMS equations in instance initialization. */
1632 : 0 : void hicumL2V2p24::initializeInstance (void)
1633 : : {
1634 : 0 : }
1635 : :
1636 : : /* Evaluate Verilog-AMS equations in initial step. */
1637 : 0 : void hicumL2V2p24::initialStep (void)
1638 : : {
1639 : 0 : }
1640 : :
1641 : : /* Evaluate Verilog-AMS equations in final step. */
1642 : 0 : void hicumL2V2p24::finalStep (void)
1643 : : {
1644 : 0 : }
1645 : :
1646 : : /* Evaluate Verilog-AMS equations in analog block. */
1647 : 0 : void hicumL2V2p24::calcVerilog (void)
1648 : : {
1649 : :
1650 : : /* ----------------- evaluate verilog analog equations -------------------- */
1651 : : #if defined(_DYNAMIC)
1652 : : double Qxf;
1653 : : #if defined(_DERIVATE)
1654 : : double Qxf_Vxf_GND;
1655 : : #endif
1656 : : #endif
1657 : : double Ixf;
1658 : : #if defined(_DERIVATE)
1659 : : double Ixf_Vxf_GND;
1660 : : double Ixf_Vci_ei;
1661 : : double Ixf_Vtnode_GND;
1662 : : double Ixf_Vbi_ci;
1663 : : double Ixf_Vbi_ei;
1664 : : #endif
1665 : : double fact;
1666 : : #if defined(_DERIVATE)
1667 : : double fact_Vci_ei;
1668 : : double fact_Vbi_ei;
1669 : : double fact_Vtnode_GND;
1670 : : double fact_Vbi_ci;
1671 : : #endif
1672 : : double Vxf;
1673 : : #if defined(_DERIVATE)
1674 : : double Vxf_Vxf_GND;
1675 : : #endif
1676 : : #if defined(_DYNAMIC)
1677 : : double Qxf2;
1678 : : #if defined(_DERIVATE)
1679 : : double Qxf2_Vxf2_GND;
1680 : : #endif
1681 : : #endif
1682 : : #if defined(_DYNAMIC)
1683 : : double Qxf1;
1684 : : #if defined(_DERIVATE)
1685 : : double Qxf1_Vxf1_GND;
1686 : : #endif
1687 : : #endif
1688 : : double Ixf2;
1689 : : #if defined(_DERIVATE)
1690 : : double Ixf2_Vxf2_GND;
1691 : : double Ixf2_Vxf1_GND;
1692 : : double Ixf2_Vci_ei;
1693 : : double Ixf2_Vbi_ei;
1694 : : double Ixf2_Vtnode_GND;
1695 : : double Ixf2_Vbi_ci;
1696 : : #endif
1697 : : double Ixf1;
1698 : : #if defined(_DERIVATE)
1699 : : double Ixf1_Vxf1_GND;
1700 : : double Ixf1_Vxf2_GND;
1701 : : double Ixf1_Vci_ei;
1702 : : double Ixf1_Vtnode_GND;
1703 : : double Ixf1_Vbi_ei;
1704 : : double Ixf1_Vbi_ci;
1705 : : #endif
1706 : : double Vxf2;
1707 : : #if defined(_DERIVATE)
1708 : : double Vxf2_Vxf2_GND;
1709 : : #endif
1710 : : double Vxf1;
1711 : : #if defined(_DERIVATE)
1712 : : double Vxf1_Vxf1_GND;
1713 : : #endif
1714 : : #if defined(_DYNAMIC)
1715 : : double Qdeix;
1716 : : #if defined(_DERIVATE)
1717 : : double Qdeix_Vxf_GND;
1718 : : double Qdeix_Vci_ei;
1719 : : double Qdeix_Vtnode_GND;
1720 : : double Qdeix_Vbi_ci;
1721 : : double Qdeix_Vbi_ei;
1722 : : #endif
1723 : : #endif
1724 : : double Itxf;
1725 : : #if defined(_DERIVATE)
1726 : : double Itxf_Vxf2_GND;
1727 : : double Itxf_Vci_ei;
1728 : : double Itxf_Vtnode_GND;
1729 : : double Itxf_Vbi_ei;
1730 : : double Itxf_Vbi_ci;
1731 : : #endif
1732 : : double pterm;
1733 : : #if defined(_DERIVATE)
1734 : : double pterm_Vb_bp;
1735 : : double pterm_Vci_c;
1736 : : double pterm_Vei_e;
1737 : : double pterm_Vbp_bi;
1738 : : double pterm_Vbp_ei;
1739 : : double pterm_Vbp_ci;
1740 : : double pterm_Vsi_ci;
1741 : : double pterm_Vci_ei;
1742 : : double pterm_Vtnode_GND;
1743 : : double pterm_Vbi_ei;
1744 : : double pterm_Vbi_ci;
1745 : : #endif
1746 : : #if defined(_DERIVATE)
1747 : : double ijsc_Vtnode_GND;
1748 : : double ijsc_Vsi_ci;
1749 : : double ijsc_Vbp_ci;
1750 : : double ijsc_Vbp_ei;
1751 : : double ijsc_Vbi_ci;
1752 : : double ijsc_Vbi_ei;
1753 : : #endif
1754 : : #if defined(_DYNAMIC)
1755 : : #if defined(_DERIVATE)
1756 : : double betadc_Vci_ei;
1757 : : double betadc_Vtnode_GND;
1758 : : double betadc_Vbi_ei;
1759 : : double betadc_Vbi_ci;
1760 : : #endif
1761 : : #endif
1762 : : #if defined(_DYNAMIC)
1763 : : double betan;
1764 : : #if defined(_DERIVATE)
1765 : : double betan_Vci_ei;
1766 : : double betan_Vtnode_GND;
1767 : : double betan_Vbi_ei;
1768 : : double betan_Vbi_ci;
1769 : : #endif
1770 : : #endif
1771 : : double betadin;
1772 : : #if defined(_DYNAMIC)
1773 : : double betad;
1774 : : #if defined(_DERIVATE)
1775 : : double betad_Vtnode_GND;
1776 : : double betad_Vbi_ei;
1777 : : #endif
1778 : : #endif
1779 : : #if defined(_DYNAMIC)
1780 : : double Qdsu;
1781 : : #if defined(_DERIVATE)
1782 : : double Qdsu_Vtnode_GND;
1783 : : double Qdsu_Vbp_ci;
1784 : : #endif
1785 : : #endif
1786 : : double HSI_Tsu;
1787 : : #if defined(_DERIVATE)
1788 : : double HSI_Tsu_Vtnode_GND;
1789 : : double HSI_Tsu_Vbp_ci;
1790 : : double HSI_Tsu_Vsi_ci;
1791 : : #endif
1792 : : double HSb;
1793 : : #if defined(_DERIVATE)
1794 : : double HSb_Vsi_ci;
1795 : : double HSb_Vtnode_GND;
1796 : : #endif
1797 : : double HSa;
1798 : : #if defined(_DERIVATE)
1799 : : double HSa_Vbp_ci;
1800 : : double HSa_Vtnode_GND;
1801 : : #endif
1802 : : double HSUM;
1803 : : #if defined(_DERIVATE)
1804 : : double HSUM_Vtnode_GND;
1805 : : #endif
1806 : : #if defined(_DYNAMIC)
1807 : : double Qjs;
1808 : : #if defined(_DERIVATE)
1809 : : double Qjs_Vbp_ei;
1810 : : double Qjs_Vbi_ei;
1811 : : double Qjs_Vsi_ci;
1812 : : double Qjs_Vb_ci;
1813 : : double Qjs_Vbp_ci;
1814 : : double Qjs_Vtnode_GND;
1815 : : double Qjs_Vbi_ci;
1816 : : #endif
1817 : : #endif
1818 : : #if defined(_DYNAMIC)
1819 : : double qjcx0_t_i;
1820 : : #if defined(_DERIVATE)
1821 : : double qjcx0_t_i_Vbp_ei;
1822 : : double qjcx0_t_i_Vbi_ei;
1823 : : double qjcx0_t_i_Vb_ci;
1824 : : double qjcx0_t_i_Vbp_ci;
1825 : : double qjcx0_t_i_Vtnode_GND;
1826 : : double qjcx0_t_i_Vbi_ci;
1827 : : #endif
1828 : : #endif
1829 : : #if defined(_DERIVATE)
1830 : : double ijbcx_Vtnode_GND;
1831 : : double ijbcx_Vbp_ci;
1832 : : double ijbcx_Vbp_ei;
1833 : : double ijbcx_Vbi_ci;
1834 : : double ijbcx_Vbi_ei;
1835 : : #endif
1836 : : #if defined(_DYNAMIC)
1837 : : double qjcx0_t_ii;
1838 : : #if defined(_DERIVATE)
1839 : : double qjcx0_t_ii_Vbp_ei;
1840 : : double qjcx0_t_ii_Vbi_ei;
1841 : : double qjcx0_t_ii_Vbp_ci;
1842 : : double qjcx0_t_ii_Vtnode_GND;
1843 : : double qjcx0_t_ii_Vbi_ci;
1844 : : #endif
1845 : : #endif
1846 : : double c_dummy;
1847 : : double ibet;
1848 : : #if defined(_DERIVATE)
1849 : : double ibet_Vbp_ei;
1850 : : double ibet_Vtnode_GND;
1851 : : double ibet_Vbi_ci;
1852 : : double ibet_Vbi_ei;
1853 : : #endif
1854 : : #if defined(_DYNAMIC)
1855 : : double Qjep;
1856 : : #if defined(_DERIVATE)
1857 : : double Qjep_Vbp_ei;
1858 : : double Qjep_Vbi_ci;
1859 : : double Qjep_Vtnode_GND;
1860 : : double Qjep_Vbi_ei;
1861 : : #endif
1862 : : #endif
1863 : : double Cjep;
1864 : : #if defined(_DERIVATE)
1865 : : double Cjep_Vbp_ei;
1866 : : double Cjep_Vbi_ci;
1867 : : double Cjep_Vtnode_GND;
1868 : : double Cjep_Vbi_ei;
1869 : : #endif
1870 : : double irep;
1871 : : #if defined(_DERIVATE)
1872 : : double irep_Vtnode_GND;
1873 : : double irep_Vbp_ei;
1874 : : double irep_Vbi_ci;
1875 : : double irep_Vbi_ei;
1876 : : #endif
1877 : : #if defined(_DERIVATE)
1878 : : double ibep_Vtnode_GND;
1879 : : double ibep_Vbp_ei;
1880 : : double ibep_Vbi_ci;
1881 : : double ibep_Vbi_ei;
1882 : : #endif
1883 : : #if defined(_DERIVATE)
1884 : : double rbi_Vtnode_GND;
1885 : : double rbi_Vbi_ei;
1886 : : double rbi_Vbi_ci;
1887 : : double rbi_Vci_ei;
1888 : : #endif
1889 : : double ibh_rec;
1890 : : #if defined(_DERIVATE)
1891 : : double ibh_rec_Vtnode_GND;
1892 : : double ibh_rec_Vbi_ei;
1893 : : double ibh_rec_Vbi_ci;
1894 : : double ibh_rec_Vci_ei;
1895 : : #endif
1896 : : #if defined(_DERIVATE)
1897 : : double iavl_Vci_ei;
1898 : : double iavl_Vtnode_GND;
1899 : : double iavl_Vbi_ei;
1900 : : double iavl_Vbi_ci;
1901 : : #endif
1902 : : #if defined(_DERIVATE)
1903 : : double ibci_Vtnode_GND;
1904 : : double ibci_Vbi_ci;
1905 : : double ibci_Vbi_ei;
1906 : : #endif
1907 : : #if defined(_DYNAMIC)
1908 : : double qrbi;
1909 : : #if defined(_DERIVATE)
1910 : : double qrbi_Vtnode_GND;
1911 : : double qrbi_Vbi_ei;
1912 : : double qrbi_Vbi_ci;
1913 : : double qrbi_Vci_ei;
1914 : : #endif
1915 : : #endif
1916 : : #if defined(_DYNAMIC)
1917 : : double Qdci;
1918 : : #if defined(_DERIVATE)
1919 : : double Qdci_Vci_ei;
1920 : : double Qdci_Vtnode_GND;
1921 : : double Qdci_Vbi_ci;
1922 : : double Qdci_Vbi_ei;
1923 : : #endif
1924 : : #endif
1925 : : double Qdei;
1926 : : #if defined(_DERIVATE)
1927 : : double Qdei_Vci_ei;
1928 : : double Qdei_Vtnode_GND;
1929 : : double Qdei_Vbi_ci;
1930 : : double Qdei_Vbi_ei;
1931 : : #endif
1932 : : #if defined(_DERIVATE)
1933 : : double it_Vci_ei;
1934 : : double it_Vtnode_GND;
1935 : : double it_Vbi_ei;
1936 : : double it_Vbi_ci;
1937 : : #endif
1938 : : double d_Q0;
1939 : : double d_Q;
1940 : : #if defined(_DERIVATE)
1941 : : double d_Q_Vtnode_GND;
1942 : : double d_Q_Vbi_ei;
1943 : : double d_Q_Vbi_ci;
1944 : : double d_Q_Vci_ei;
1945 : : #endif
1946 : : double Q_pT;
1947 : : #if defined(_DERIVATE)
1948 : : double Q_pT_Vtnode_GND;
1949 : : double Q_pT_Vbi_ei;
1950 : : double Q_pT_Vbi_ci;
1951 : : double Q_pT_Vci_ei;
1952 : : #endif
1953 : : int l_it;
1954 : : double Qr;
1955 : : #if defined(_DERIVATE)
1956 : : double Qr_Vci_ei;
1957 : : double Qr_Vtnode_GND;
1958 : : double Qr_Vbi_ci;
1959 : : double Qr_Vbi_ei;
1960 : : #endif
1961 : : double FCd_f;
1962 : : #if defined(_DERIVATE)
1963 : : double FCd_f_Vci_ei;
1964 : : double FCd_f_Vtnode_GND;
1965 : : double FCd_f_Vbi_ei;
1966 : : double FCd_f_Vbi_ci;
1967 : : #endif
1968 : : double FCz_1;
1969 : : #if defined(_DERIVATE)
1970 : : double FCz_1_Vci_ei;
1971 : : double FCz_1_Vtnode_GND;
1972 : : double FCz_1_Vbi_ei;
1973 : : double FCz_1_Vbi_ci;
1974 : : #endif
1975 : : double FCdfCT_ditf;
1976 : : #if defined(_DERIVATE)
1977 : : double FCdfCT_ditf_Vbi_ei;
1978 : : double FCdfCT_ditf_Vbi_ci;
1979 : : double FCdfCT_ditf_Vci_ei;
1980 : : double FCdfCT_ditf_Vtnode_GND;
1981 : : #endif
1982 : : double FCdfCT_dw;
1983 : : #if defined(_DERIVATE)
1984 : : double FCdfCT_dw_Vbi_ei;
1985 : : double FCdfCT_dw_Vbi_ci;
1986 : : double FCdfCT_dw_Vci_ei;
1987 : : double FCdfCT_dw_Vtnode_GND;
1988 : : #endif
1989 : : double lnz;
1990 : : #if defined(_DERIVATE)
1991 : : double lnz_Vci_ei;
1992 : : double lnz_Vtnode_GND;
1993 : : double lnz_Vbi_ei;
1994 : : double lnz_Vbi_ci;
1995 : : #endif
1996 : : double FCdfc_ditf;
1997 : : #if defined(_DERIVATE)
1998 : : double FCdfc_ditf_Vci_ei;
1999 : : double FCdfc_ditf_Vtnode_GND;
2000 : : double FCdfc_ditf_Vbi_ei;
2001 : : double FCdfc_ditf_Vbi_ci;
2002 : : #endif
2003 : : double FCdw_ditf;
2004 : : #if defined(_DERIVATE)
2005 : : double FCdw_ditf_Vci_ei;
2006 : : double FCdw_ditf_Vtnode_GND;
2007 : : double FCdw_ditf_Vbi_ei;
2008 : : double FCdw_ditf_Vbi_ci;
2009 : : #endif
2010 : : double FCdfc_dw;
2011 : : #if defined(_DERIVATE)
2012 : : double FCdfc_dw_Vci_ei;
2013 : : double FCdfc_dw_Vtnode_GND;
2014 : : double FCdfc_dw_Vbi_ei;
2015 : : double FCdfc_dw_Vbi_ci;
2016 : : #endif
2017 : : double FCf_ci;
2018 : : #if defined(_DERIVATE)
2019 : : double FCf_ci_Vci_ei;
2020 : : double FCf_ci_Vtnode_GND;
2021 : : double FCf_ci_Vbi_ei;
2022 : : double FCf_ci_Vbi_ci;
2023 : : #endif
2024 : : double FCdf3_dw;
2025 : : #if defined(_DERIVATE)
2026 : : double FCdf3_dw_Vci_ei;
2027 : : double FCdf3_dw_Vtnode_GND;
2028 : : double FCdf3_dw_Vbi_ei;
2029 : : double FCdf3_dw_Vbi_ci;
2030 : : #endif
2031 : : double FCf3;
2032 : : #if defined(_DERIVATE)
2033 : : double FCf3_Vbi_ei;
2034 : : double FCf3_Vbi_ci;
2035 : : double FCf3_Vci_ei;
2036 : : double FCf3_Vtnode_GND;
2037 : : #endif
2038 : : double FCdf2_dw;
2039 : : #if defined(_DERIVATE)
2040 : : double FCdf2_dw_Vci_ei;
2041 : : double FCdf2_dw_Vtnode_GND;
2042 : : double FCdf2_dw_Vbi_ei;
2043 : : double FCdf2_dw_Vbi_ci;
2044 : : #endif
2045 : : double FCf2;
2046 : : #if defined(_DERIVATE)
2047 : : double FCf2_Vbi_ei;
2048 : : double FCf2_Vbi_ci;
2049 : : double FCf2_Vci_ei;
2050 : : double FCf2_Vtnode_GND;
2051 : : #endif
2052 : : double r;
2053 : : double a3;
2054 : : #if defined(_DERIVATE)
2055 : : double a3_Vbi_ei;
2056 : : double a3_Vbi_ci;
2057 : : double a3_Vci_ei;
2058 : : double a3_Vtnode_GND;
2059 : : #endif
2060 : : double a2;
2061 : : #if defined(_DERIVATE)
2062 : : double a2_Vbi_ei;
2063 : : double a2_Vbi_ci;
2064 : : double a2_Vci_ei;
2065 : : double a2_Vtnode_GND;
2066 : : #endif
2067 : : double x;
2068 : : #if defined(_DERIVATE)
2069 : : double x_Vci_ei;
2070 : : double x_Vtnode_GND;
2071 : : double x_Vbi_ei;
2072 : : double x_Vbi_ci;
2073 : : #endif
2074 : : double lnzb;
2075 : : #if defined(_DERIVATE)
2076 : : double lnzb_Vci_ei;
2077 : : double lnzb_Vtnode_GND;
2078 : : double lnzb_Vbi_ei;
2079 : : double lnzb_Vbi_ci;
2080 : : #endif
2081 : : double z;
2082 : : #if defined(_DERIVATE)
2083 : : double z_Vci_ei;
2084 : : double z_Vtnode_GND;
2085 : : double z_Vbi_ei;
2086 : : double z_Vbi_ci;
2087 : : #endif
2088 : : double FCdf1_dw;
2089 : : #if defined(_DERIVATE)
2090 : : double FCdf1_dw_Vci_ei;
2091 : : double FCdf1_dw_Vtnode_GND;
2092 : : double FCdf1_dw_Vbi_ei;
2093 : : double FCdf1_dw_Vbi_ci;
2094 : : #endif
2095 : : double FCw2;
2096 : : #if defined(_DERIVATE)
2097 : : double FCw2_Vci_ei;
2098 : : double FCw2_Vtnode_GND;
2099 : : double FCw2_Vbi_ei;
2100 : : double FCw2_Vbi_ci;
2101 : : #endif
2102 : : double FCf_CT;
2103 : : #if defined(_DERIVATE)
2104 : : double FCf_CT_Vbi_ei;
2105 : : double FCf_CT_Vbi_ci;
2106 : : double FCf_CT_Vci_ei;
2107 : : double FCf_CT_Vtnode_GND;
2108 : : #endif
2109 : : double FCf1;
2110 : : #if defined(_DERIVATE)
2111 : : double FCf1_Vci_ei;
2112 : : double FCf1_Vtnode_GND;
2113 : : double FCf1_Vbi_ei;
2114 : : double FCf1_Vbi_ci;
2115 : : #endif
2116 : : double FCda1_dw;
2117 : : #if defined(_DERIVATE)
2118 : : double FCda1_dw_Vci_ei;
2119 : : double FCda1_dw_Vtnode_GND;
2120 : : double FCda1_dw_Vbi_ei;
2121 : : double FCda1_dw_Vbi_ci;
2122 : : #endif
2123 : : double FCdw_daick;
2124 : : #if defined(_DERIVATE)
2125 : : double FCdw_daick_Vci_ei;
2126 : : double FCdw_daick_Vtnode_GND;
2127 : : double FCdw_daick_Vbi_ei;
2128 : : double FCdw_daick_Vbi_ci;
2129 : : #endif
2130 : : double FCw;
2131 : : #if defined(_DERIVATE)
2132 : : double FCw_Vci_ei;
2133 : : double FCw_Vtnode_GND;
2134 : : double FCw_Vbi_ei;
2135 : : double FCw_Vbi_ci;
2136 : : #endif
2137 : : double FCd_a;
2138 : : #if defined(_DERIVATE)
2139 : : double FCd_a_Vci_ei;
2140 : : double FCd_a_Vtnode_GND;
2141 : : double FCd_a_Vbi_ei;
2142 : : double FCd_a_Vbi_ci;
2143 : : #endif
2144 : : double FCa1;
2145 : : #if defined(_DERIVATE)
2146 : : double FCa1_Vci_ei;
2147 : : double FCa1_Vtnode_GND;
2148 : : double FCa1_Vbi_ei;
2149 : : double FCa1_Vbi_ci;
2150 : : #endif
2151 : : double FCln;
2152 : : double FCxb;
2153 : : double FCxl;
2154 : : double FCz;
2155 : : #if defined(_DERIVATE)
2156 : : double FCz_Vci_ei;
2157 : : double FCz_Vtnode_GND;
2158 : : double FCz_Vbi_ei;
2159 : : double FCz_Vbi_ci;
2160 : : #endif
2161 : : double FCdaick_ditf;
2162 : : #if defined(_DERIVATE)
2163 : : double FCdaick_ditf_Vci_ei;
2164 : : double FCdaick_ditf_Vtnode_GND;
2165 : : double FCdaick_ditf_Vbi_ei;
2166 : : double FCdaick_ditf_Vbi_ci;
2167 : : #endif
2168 : : double FCa_ck;
2169 : : #if defined(_DERIVATE)
2170 : : double FCa_ck_Vci_ei;
2171 : : double FCa_ck_Vtnode_GND;
2172 : : double FCa_ck_Vbi_ei;
2173 : : double FCa_ck_Vbi_ci;
2174 : : #endif
2175 : : double FCrt;
2176 : : #if defined(_DERIVATE)
2177 : : double FCrt_Vci_ei;
2178 : : double FCrt_Vtnode_GND;
2179 : : double FCrt_Vbi_ei;
2180 : : double FCrt_Vbi_ci;
2181 : : #endif
2182 : : double FCa;
2183 : : #if defined(_DERIVATE)
2184 : : double FCa_Vci_ei;
2185 : : double FCa_Vtnode_GND;
2186 : : double FCa_Vbi_ei;
2187 : : double FCa_Vbi_ci;
2188 : : #endif
2189 : : double FFT_cT;
2190 : : #if defined(_DERIVATE)
2191 : : double FFT_cT_Vtnode_GND;
2192 : : double FFT_cT_Vci_ei;
2193 : : double FFT_cT_Vbi_ei;
2194 : : double FFT_cT_Vbi_ci;
2195 : : #endif
2196 : : double FFQ_cT;
2197 : : #if defined(_DERIVATE)
2198 : : double FFQ_cT_Vtnode_GND;
2199 : : double FFQ_cT_Vbi_ei;
2200 : : double FFQ_cT_Vbi_ci;
2201 : : double FFQ_cT_Vci_ei;
2202 : : #endif
2203 : : double FFT_fC;
2204 : : #if defined(_DERIVATE)
2205 : : double FFT_fC_Vtnode_GND;
2206 : : double FFT_fC_Vci_ei;
2207 : : double FFT_fC_Vbi_ei;
2208 : : double FFT_fC_Vbi_ci;
2209 : : #endif
2210 : : double FFQ_fC;
2211 : : #if defined(_DERIVATE)
2212 : : double FFQ_fC_Vtnode_GND;
2213 : : double FFQ_fC_Vbi_ei;
2214 : : double FFQ_fC_Vbi_ci;
2215 : : double FFQ_fC_Vci_ei;
2216 : : #endif
2217 : : double FFT_pcS;
2218 : : #if defined(_DERIVATE)
2219 : : double FFT_pcS_Vtnode_GND;
2220 : : #endif
2221 : : double FFd_TfB;
2222 : : #if defined(_DERIVATE)
2223 : : double FFd_TfB_Vtnode_GND;
2224 : : double FFd_TfB_Vci_ei;
2225 : : double FFd_TfB_Vbi_ei;
2226 : : double FFd_TfB_Vbi_ci;
2227 : : #endif
2228 : : double FFa_w;
2229 : : #if defined(_DERIVATE)
2230 : : double FFa_w_Vci_ei;
2231 : : double FFa_w_Vtnode_GND;
2232 : : double FFa_w_Vbi_ei;
2233 : : double FFa_w_Vbi_ci;
2234 : : #endif
2235 : : double FFd_QfB;
2236 : : #if defined(_DERIVATE)
2237 : : double FFd_QfB_Vtnode_GND;
2238 : : double FFd_QfB_Vbi_ei;
2239 : : double FFd_QfB_Vbi_ci;
2240 : : double FFd_QfB_Vci_ei;
2241 : : #endif
2242 : : double FFw_2;
2243 : : #if defined(_DERIVATE)
2244 : : double FFw_2_Vci_ei;
2245 : : double FFw_2_Vtnode_GND;
2246 : : double FFw_2_Vbi_ei;
2247 : : double FFw_2_Vbi_ci;
2248 : : #endif
2249 : : double FFw;
2250 : : #if defined(_DERIVATE)
2251 : : double FFw_Vci_ei;
2252 : : double FFw_Vtnode_GND;
2253 : : double FFw_Vbi_ei;
2254 : : double FFw_Vbi_ci;
2255 : : #endif
2256 : : double FFs;
2257 : : #if defined(_DERIVATE)
2258 : : double FFs_Vci_ei;
2259 : : double FFs_Vtnode_GND;
2260 : : double FFs_Vbi_ei;
2261 : : double FFs_Vbi_ci;
2262 : : #endif
2263 : : double FFx;
2264 : : #if defined(_DERIVATE)
2265 : : double FFx_Vci_ei;
2266 : : double FFx_Vtnode_GND;
2267 : : double FFx_Vbi_ei;
2268 : : double FFx_Vbi_ci;
2269 : : #endif
2270 : : double FFT_fbS;
2271 : : #if defined(_DERIVATE)
2272 : : double FFT_fbS_Vtnode_GND;
2273 : : #endif
2274 : : double FFd_QfE;
2275 : : #if defined(_DERIVATE)
2276 : : double FFd_QfE_Vtnode_GND;
2277 : : double FFd_QfE_Vci_ei;
2278 : : double FFd_QfE_Vbi_ei;
2279 : : double FFd_QfE_Vbi_ci;
2280 : : #endif
2281 : : double FFd_TfE;
2282 : : #if defined(_DERIVATE)
2283 : : double FFd_TfE_Vtnode_GND;
2284 : : double FFd_TfE_Vci_ei;
2285 : : double FFd_TfE_Vbi_ei;
2286 : : double FFd_TfE_Vbi_ci;
2287 : : #endif
2288 : : double FFa;
2289 : : #if defined(_DERIVATE)
2290 : : double FFa_Vci_ei;
2291 : : double FFa_Vtnode_GND;
2292 : : double FFa_Vbi_ei;
2293 : : double FFa_Vbi_ci;
2294 : : #endif
2295 : : double T_fT;
2296 : : #if defined(_DERIVATE)
2297 : : double T_fT_Vci_ei;
2298 : : double T_fT_Vbi_ei;
2299 : : double T_fT_Vtnode_GND;
2300 : : double T_fT_Vbi_ci;
2301 : : #endif
2302 : : double Q_fT;
2303 : : #if defined(_DERIVATE)
2304 : : double Q_fT_Vci_ei;
2305 : : double Q_fT_Vtnode_GND;
2306 : : double Q_fT_Vbi_ci;
2307 : : double Q_fT_Vbi_ei;
2308 : : #endif
2309 : : double Qf;
2310 : : #if defined(_DERIVATE)
2311 : : double Qf_Vci_ei;
2312 : : double Qf_Vtnode_GND;
2313 : : double Qf_Vbi_ci;
2314 : : double Qf_Vbi_ei;
2315 : : #endif
2316 : : #if defined(_DERIVATE)
2317 : : double Tf_Vci_ei;
2318 : : double Tf_Vbi_ei;
2319 : : double Tf_Vtnode_GND;
2320 : : double Tf_Vbi_ci;
2321 : : #endif
2322 : : double Q_bf;
2323 : : #if defined(_DERIVATE)
2324 : : double Q_bf_Vtnode_GND;
2325 : : double Q_bf_Vbi_ei;
2326 : : double Q_bf_Vbi_ci;
2327 : : double Q_bf_Vci_ei;
2328 : : #endif
2329 : : double itr;
2330 : : #if defined(_DERIVATE)
2331 : : double itr_Vci_ei;
2332 : : double itr_Vtnode_GND;
2333 : : double itr_Vbi_ci;
2334 : : double itr_Vbi_ei;
2335 : : #endif
2336 : : double itf;
2337 : : #if defined(_DERIVATE)
2338 : : double itf_Vci_ei;
2339 : : double itf_Vtnode_GND;
2340 : : double itf_Vbi_ei;
2341 : : double itf_Vbi_ci;
2342 : : #endif
2343 : : double a_h;
2344 : : #if defined(_DERIVATE)
2345 : : double a_h_Vci_ei;
2346 : : double a_h_Vtnode_GND;
2347 : : double a_h_Vbi_ei;
2348 : : double a_h_Vbi_ci;
2349 : : #endif
2350 : : double I_Tf1;
2351 : : #if defined(_DERIVATE)
2352 : : double I_Tf1_Vci_ei;
2353 : : double I_Tf1_Vtnode_GND;
2354 : : double I_Tf1_Vbi_ei;
2355 : : double I_Tf1_Vbi_ci;
2356 : : #endif
2357 : : double A;
2358 : : #if defined(_DERIVATE)
2359 : : double A_Vtnode_GND;
2360 : : double A_Vbi_ei;
2361 : : double A_Vbi_ci;
2362 : : #endif
2363 : : double Q_p;
2364 : : #if defined(_DERIVATE)
2365 : : double Q_p_Vtnode_GND;
2366 : : double Q_p_Vbi_ei;
2367 : : double Q_p_Vbi_ci;
2368 : : #endif
2369 : : double ICKa;
2370 : : #if defined(_DERIVATE)
2371 : : double ICKa_Vci_ei;
2372 : : double ICKa_Vtnode_GND;
2373 : : #endif
2374 : : double ick;
2375 : : #if defined(_DERIVATE)
2376 : : double ick_Vci_ei;
2377 : : double ick_Vtnode_GND;
2378 : : #endif
2379 : : double vceff;
2380 : : #if defined(_DERIVATE)
2381 : : double vceff_Vci_ei;
2382 : : double vceff_Vtnode_GND;
2383 : : #endif
2384 : : double d1;
2385 : : #if defined(_DERIVATE)
2386 : : double d1_Vci_ei;
2387 : : double d1_Vtnode_GND;
2388 : : #endif
2389 : : double Ovpt;
2390 : : double vc;
2391 : : #if defined(_DERIVATE)
2392 : : double vc_Vci_ei;
2393 : : double vc_Vtnode_GND;
2394 : : #endif
2395 : : double T_f0;
2396 : : #if defined(_DERIVATE)
2397 : : double T_f0_Vtnode_GND;
2398 : : double T_f0_Vbi_ci;
2399 : : #endif
2400 : : double cc;
2401 : : #if defined(_DERIVATE)
2402 : : double cc_Vtnode_GND;
2403 : : double cc_Vbi_ci;
2404 : : #endif
2405 : : double Cjcit;
2406 : : #if defined(_DERIVATE)
2407 : : double Cjcit_Vtnode_GND;
2408 : : double Cjcit_Vbi_ci;
2409 : : #endif
2410 : : double b_q;
2411 : : #if defined(_DERIVATE)
2412 : : double b_q_Vtnode_GND;
2413 : : double b_q_Vbi_ei;
2414 : : double b_q_Vbi_ci;
2415 : : #endif
2416 : : double Q_bpt;
2417 : : #if defined(_DERIVATE)
2418 : : double Q_bpt_Vtnode_GND;
2419 : : #endif
2420 : : double Q_0;
2421 : : #if defined(_DERIVATE)
2422 : : double Q_0_Vtnode_GND;
2423 : : double Q_0_Vbi_ei;
2424 : : double Q_0_Vbi_ci;
2425 : : #endif
2426 : : double a_bpt;
2427 : : double Qjci;
2428 : : #if defined(_DERIVATE)
2429 : : double Qjci_Vbi_ei;
2430 : : double Qjci_Vtnode_GND;
2431 : : double Qjci_Vbi_ci;
2432 : : #endif
2433 : : double DQ_j3;
2434 : : #if defined(_DERIVATE)
2435 : : double DQ_j3_Vsi_ci;
2436 : : double DQ_j3_Vb_ci;
2437 : : double DQ_j3_Vbp_ci;
2438 : : double DQ_j3_Vtnode_GND;
2439 : : double DQ_j3_Vbi_ci;
2440 : : #endif
2441 : : double DQ_j2;
2442 : : #if defined(_DERIVATE)
2443 : : double DQ_j2_Vsi_ci;
2444 : : double DQ_j2_Vb_ci;
2445 : : double DQ_j2_Vbp_ci;
2446 : : double DQ_j2_Vtnode_GND;
2447 : : double DQ_j2_Vbi_ci;
2448 : : #endif
2449 : : double DQ_j1;
2450 : : #if defined(_DERIVATE)
2451 : : double DQ_j1_Vsi_ci;
2452 : : double DQ_j1_Vb_ci;
2453 : : double DQ_j1_Vbp_ci;
2454 : : double DQ_j1_Vtnode_GND;
2455 : : double DQ_j1_Vbi_ci;
2456 : : #endif
2457 : : double Cjci;
2458 : : #if defined(_DERIVATE)
2459 : : double Cjci_Vbi_ei;
2460 : : double Cjci_Vtnode_GND;
2461 : : double Cjci_Vbi_ci;
2462 : : #endif
2463 : : double DC_j3;
2464 : : #if defined(_DERIVATE)
2465 : : double DC_j3_Vsi_ci;
2466 : : double DC_j3_Vb_ci;
2467 : : double DC_j3_Vbp_ci;
2468 : : double DC_j3_Vtnode_GND;
2469 : : double DC_j3_Vbi_ci;
2470 : : #endif
2471 : : double DC_j2;
2472 : : #if defined(_DERIVATE)
2473 : : double DC_j2_Vsi_ci;
2474 : : double DC_j2_Vb_ci;
2475 : : double DC_j2_Vbp_ci;
2476 : : double DC_j2_Vtnode_GND;
2477 : : double DC_j2_Vbi_ci;
2478 : : #endif
2479 : : double DC_j1;
2480 : : #if defined(_DERIVATE)
2481 : : double DC_j1_Vsi_ci;
2482 : : double DC_j1_Vb_ci;
2483 : : double DC_j1_Vbp_ci;
2484 : : double DC_j1_Vtnode_GND;
2485 : : double DC_j1_Vbi_ci;
2486 : : #endif
2487 : : double Dzr1;
2488 : : double Dz1;
2489 : : double DCln2;
2490 : : #if defined(_DERIVATE)
2491 : : double DCln2_Vsi_ci;
2492 : : double DCln2_Vb_ci;
2493 : : double DCln2_Vbp_ci;
2494 : : double DCln2_Vtnode_GND;
2495 : : double DCln2_Vbi_ci;
2496 : : #endif
2497 : : double DCln1;
2498 : : #if defined(_DERIVATE)
2499 : : double DCln1_Vsi_ci;
2500 : : double DCln1_Vb_ci;
2501 : : double DCln1_Vbp_ci;
2502 : : double DCln1_Vtnode_GND;
2503 : : double DCln1_Vbi_ci;
2504 : : #endif
2505 : : double Dv_j4;
2506 : : #if defined(_DERIVATE)
2507 : : double Dv_j4_Vsi_ci;
2508 : : double Dv_j4_Vb_ci;
2509 : : double Dv_j4_Vbp_ci;
2510 : : double Dv_j4_Vbi_ci;
2511 : : double Dv_j4_Vtnode_GND;
2512 : : #endif
2513 : : double Dv_j2;
2514 : : #if defined(_DERIVATE)
2515 : : double Dv_j2_Vsi_ci;
2516 : : double Dv_j2_Vb_ci;
2517 : : double Dv_j2_Vbp_ci;
2518 : : double Dv_j2_Vtnode_GND;
2519 : : double Dv_j2_Vbi_ci;
2520 : : #endif
2521 : : double De_2;
2522 : : #if defined(_DERIVATE)
2523 : : double De_2_Vsi_ci;
2524 : : double De_2_Vb_ci;
2525 : : double De_2_Vbp_ci;
2526 : : double De_2_Vtnode_GND;
2527 : : double De_2_Vbi_ci;
2528 : : #endif
2529 : : double Dv_r;
2530 : : #if defined(_DERIVATE)
2531 : : double Dv_r_Vsi_ci;
2532 : : double Dv_r_Vb_ci;
2533 : : double Dv_r_Vbp_ci;
2534 : : double Dv_r_Vtnode_GND;
2535 : : double Dv_r_Vbi_ci;
2536 : : #endif
2537 : : double Da;
2538 : : #if defined(_DERIVATE)
2539 : : double Da_Vtnode_GND;
2540 : : #endif
2541 : : double Dv_j1;
2542 : : #if defined(_DERIVATE)
2543 : : double Dv_j1_Vsi_ci;
2544 : : double Dv_j1_Vb_ci;
2545 : : double Dv_j1_Vbp_ci;
2546 : : double Dv_j1_Vtnode_GND;
2547 : : double Dv_j1_Vbi_ci;
2548 : : #endif
2549 : : double De_1;
2550 : : #if defined(_DERIVATE)
2551 : : double De_1_Vsi_ci;
2552 : : double De_1_Vb_ci;
2553 : : double De_1_Vbp_ci;
2554 : : double De_1_Vtnode_GND;
2555 : : double De_1_Vbi_ci;
2556 : : #endif
2557 : : double De;
2558 : : #if defined(_DERIVATE)
2559 : : double De_Vsi_ci;
2560 : : double De_Vb_ci;
2561 : : double De_Vbp_ci;
2562 : : double De_Vtnode_GND;
2563 : : double De_Vbi_ci;
2564 : : #endif
2565 : : double Dv_e;
2566 : : #if defined(_DERIVATE)
2567 : : double Dv_e_Vsi_ci;
2568 : : double Dv_e_Vb_ci;
2569 : : double Dv_e_Vbp_ci;
2570 : : double Dv_e_Vtnode_GND;
2571 : : double Dv_e_Vbi_ci;
2572 : : #endif
2573 : : double DC_c;
2574 : : #if defined(_DERIVATE)
2575 : : double DC_c_Vtnode_GND;
2576 : : #endif
2577 : : double DC_max;
2578 : : #if defined(_DERIVATE)
2579 : : double DC_max_Vtnode_GND;
2580 : : #endif
2581 : : double DV_f;
2582 : : #if defined(_DERIVATE)
2583 : : double DV_f_Vtnode_GND;
2584 : : #endif
2585 : : double Dv_p;
2586 : : #if defined(_DERIVATE)
2587 : : double Dv_p_Vtnode_GND;
2588 : : #endif
2589 : : double Dz_r;
2590 : : double Qjei;
2591 : : #if defined(_DERIVATE)
2592 : : double Qjei_Vtnode_GND;
2593 : : double Qjei_Vbi_ei;
2594 : : #endif
2595 : : double DFQ_j;
2596 : : #if defined(_DERIVATE)
2597 : : double DFQ_j_Vsi_ci;
2598 : : double DFQ_j_Vb_ci;
2599 : : double DFQ_j_Vbp_ci;
2600 : : double DFQ_j_Vbp_ei;
2601 : : double DFQ_j_Vbi_ci;
2602 : : double DFQ_j_Vtnode_GND;
2603 : : double DFQ_j_Vbi_ei;
2604 : : #endif
2605 : : double Cjei;
2606 : : #if defined(_DERIVATE)
2607 : : double Cjei_Vtnode_GND;
2608 : : double Cjei_Vbi_ei;
2609 : : #endif
2610 : : double DFC_j1;
2611 : : #if defined(_DERIVATE)
2612 : : double DFC_j1_Vsi_ci;
2613 : : double DFC_j1_Vb_ci;
2614 : : double DFC_j1_Vbp_ci;
2615 : : double DFC_j1_Vbp_ei;
2616 : : double DFC_j1_Vbi_ci;
2617 : : double DFC_j1_Vtnode_GND;
2618 : : double DFC_j1_Vbi_ei;
2619 : : #endif
2620 : : double DFb;
2621 : : #if defined(_DERIVATE)
2622 : : double DFb_Vsi_ci;
2623 : : double DFb_Vb_ci;
2624 : : double DFb_Vbp_ci;
2625 : : double DFb_Vbp_ei;
2626 : : double DFb_Vbi_ci;
2627 : : double DFb_Vtnode_GND;
2628 : : double DFb_Vbi_ei;
2629 : : #endif
2630 : : double DFdvj_dv;
2631 : : #if defined(_DERIVATE)
2632 : : double DFdvj_dv_Vsi_ci;
2633 : : double DFdvj_dv_Vb_ci;
2634 : : double DFdvj_dv_Vbp_ci;
2635 : : double DFdvj_dv_Vbp_ei;
2636 : : double DFdvj_dv_Vbi_ci;
2637 : : double DFdvj_dv_Vtnode_GND;
2638 : : double DFdvj_dv_Vbi_ei;
2639 : : #endif
2640 : : double DFv_j;
2641 : : #if defined(_DERIVATE)
2642 : : double DFv_j_Vsi_ci;
2643 : : double DFv_j_Vb_ci;
2644 : : double DFv_j_Vbp_ci;
2645 : : double DFv_j_Vbp_ei;
2646 : : double DFv_j_Vbi_ci;
2647 : : double DFv_j_Vtnode_GND;
2648 : : double DFv_j_Vbi_ei;
2649 : : #endif
2650 : : double DFs_q2;
2651 : : #if defined(_DERIVATE)
2652 : : double DFs_q2_Vsi_ci;
2653 : : double DFs_q2_Vb_ci;
2654 : : double DFs_q2_Vbp_ci;
2655 : : double DFs_q2_Vbp_ei;
2656 : : double DFs_q2_Vbi_ci;
2657 : : double DFs_q2_Vtnode_GND;
2658 : : double DFs_q2_Vbi_ei;
2659 : : #endif
2660 : : double DFs_q;
2661 : : #if defined(_DERIVATE)
2662 : : double DFs_q_Vsi_ci;
2663 : : double DFs_q_Vb_ci;
2664 : : double DFs_q_Vbp_ci;
2665 : : double DFs_q_Vbp_ei;
2666 : : double DFs_q_Vbi_ci;
2667 : : double DFs_q_Vtnode_GND;
2668 : : double DFs_q_Vbi_ei;
2669 : : #endif
2670 : : double DFv_e;
2671 : : #if defined(_DERIVATE)
2672 : : double DFv_e_Vsi_ci;
2673 : : double DFv_e_Vb_ci;
2674 : : double DFv_e_Vbp_ci;
2675 : : double DFv_e_Vbp_ei;
2676 : : double DFv_e_Vbi_ci;
2677 : : double DFv_e_Vtnode_GND;
2678 : : double DFv_e_Vbi_ei;
2679 : : #endif
2680 : : double DFV_f;
2681 : : #if defined(_DERIVATE)
2682 : : double DFV_f_Vtnode_GND;
2683 : : #endif
2684 : : double i_0r;
2685 : : #if defined(_DERIVATE)
2686 : : double i_0r_Vtnode_GND;
2687 : : double i_0r_Vbi_ci;
2688 : : #endif
2689 : : double i_0f;
2690 : : #if defined(_DERIVATE)
2691 : : double i_0f_Vtnode_GND;
2692 : : double i_0f_Vbi_ei;
2693 : : #endif
2694 : : double VT_f;
2695 : : #if defined(_DERIVATE)
2696 : : double VT_f_Vtnode_GND;
2697 : : #endif
2698 : : double Tr;
2699 : : double Orci0_t;
2700 : : #if defined(_DERIVATE)
2701 : : double Orci0_t_Vtnode_GND;
2702 : : #endif
2703 : : double irei;
2704 : : #if defined(_DERIVATE)
2705 : : double irei_Vtnode_GND;
2706 : : double irei_Vbi_ei;
2707 : : #endif
2708 : : #if defined(_DERIVATE)
2709 : : double ibei_Vtnode_GND;
2710 : : double ibei_Vbi_ei;
2711 : : #endif
2712 : : double le;
2713 : : #if defined(_DERIVATE)
2714 : : double le_Vsi_ci;
2715 : : double le_Vbp_ci;
2716 : : double le_Vbp_ei;
2717 : : double le_Vbi_ci;
2718 : : double le_Vbi_ei;
2719 : : double le_Vtnode_GND;
2720 : : #endif
2721 : : double DIOY;
2722 : : #if defined(_DERIVATE)
2723 : : double DIOY_Vsi_ci;
2724 : : double DIOY_Vbp_ci;
2725 : : double DIOY_Vbp_ei;
2726 : : double DIOY_Vbi_ci;
2727 : : double DIOY_Vbi_ei;
2728 : : double DIOY_Vtnode_GND;
2729 : : #endif
2730 : : #if defined(_DYNAMIC)
2731 : : #if defined(_DERIVATE)
2732 : : double vpts_t_Vtnode_GND;
2733 : : #endif
2734 : : #endif
2735 : : #if defined(_DYNAMIC)
2736 : : #if defined(_DERIVATE)
2737 : : double cjs0_t_Vtnode_GND;
2738 : : #endif
2739 : : #endif
2740 : : #if defined(_DYNAMIC)
2741 : : #if defined(_DERIVATE)
2742 : : double vds_t_Vtnode_GND;
2743 : : #endif
2744 : : #endif
2745 : : #if defined(_DYNAMIC)
2746 : : #if defined(_DERIVATE)
2747 : : double tsf_t_Vtnode_GND;
2748 : : #endif
2749 : : #endif
2750 : : #if defined(_DERIVATE)
2751 : : double re_t_Vtnode_GND;
2752 : : #endif
2753 : : #if defined(_DERIVATE)
2754 : : double rbx_t_Vtnode_GND;
2755 : : #endif
2756 : : #if defined(_DERIVATE)
2757 : : double rcx_t_Vtnode_GND;
2758 : : #endif
2759 : : #if defined(_DYNAMIC)
2760 : : #if defined(_DERIVATE)
2761 : : double cjcx02_t_Vtnode_GND;
2762 : : #endif
2763 : : #endif
2764 : : #if defined(_DYNAMIC)
2765 : : #if defined(_DERIVATE)
2766 : : double cjcx01_t_Vtnode_GND;
2767 : : #endif
2768 : : #endif
2769 : : #if defined(_DYNAMIC)
2770 : : #if defined(_DERIVATE)
2771 : : double vptcx_t_Vtnode_GND;
2772 : : #endif
2773 : : #endif
2774 : : #if defined(_DYNAMIC)
2775 : : #if defined(_DERIVATE)
2776 : : double cratio_t_Vtnode_GND;
2777 : : #endif
2778 : : #endif
2779 : : #if defined(_DYNAMIC)
2780 : : #if defined(_DERIVATE)
2781 : : double vdcx_t_Vtnode_GND;
2782 : : #endif
2783 : : #endif
2784 : : #if defined(_DERIVATE)
2785 : : double abet_t_Vtnode_GND;
2786 : : #endif
2787 : : #if defined(_DERIVATE)
2788 : : double ibets_t_Vtnode_GND;
2789 : : #endif
2790 : : #if defined(_DERIVATE)
2791 : : double ajep_t_Vtnode_GND;
2792 : : #endif
2793 : : #if defined(_DERIVATE)
2794 : : double cjep0_t_Vtnode_GND;
2795 : : #endif
2796 : : #if defined(_DERIVATE)
2797 : : double vdep_t_Vtnode_GND;
2798 : : #endif
2799 : : #if defined(_DERIVATE)
2800 : : double rbi0_t_Vtnode_GND;
2801 : : #endif
2802 : : #if defined(_DERIVATE)
2803 : : double qavl_t_Vtnode_GND;
2804 : : #endif
2805 : : #if defined(_DERIVATE)
2806 : : double favl_t_Vtnode_GND;
2807 : : #endif
2808 : : #if defined(_DERIVATE)
2809 : : double thcs_t_Vtnode_GND;
2810 : : #endif
2811 : : #if defined(_DERIVATE)
2812 : : double t0_t_Vtnode_GND;
2813 : : #endif
2814 : : #if defined(_DERIVATE)
2815 : : double vptci_t_Vtnode_GND;
2816 : : #endif
2817 : : #if defined(_DERIVATE)
2818 : : double cjci0_t_Vtnode_GND;
2819 : : #endif
2820 : : #if defined(_DERIVATE)
2821 : : double vdci_t_Vtnode_GND;
2822 : : #endif
2823 : : #if defined(_DERIVATE)
2824 : : double vces_t_Vtnode_GND;
2825 : : #endif
2826 : : #if defined(_DERIVATE)
2827 : : double rci0_t_Vtnode_GND;
2828 : : #endif
2829 : : #if defined(_DERIVATE)
2830 : : double c10_t_Vtnode_GND;
2831 : : #endif
2832 : : #if defined(_DERIVATE)
2833 : : double tef0_t_Vtnode_GND;
2834 : : #endif
2835 : : #if defined(_DERIVATE)
2836 : : double vlim_t_Vtnode_GND;
2837 : : #endif
2838 : : #if defined(_DERIVATE)
2839 : : double k_Vtnode_GND;
2840 : : #endif
2841 : : #if defined(_DERIVATE)
2842 : : double qp0_t_Vtnode_GND;
2843 : : #endif
2844 : : #if defined(_DERIVATE)
2845 : : double iscs_t_Vtnode_GND;
2846 : : #endif
2847 : : #if defined(_DERIVATE)
2848 : : double itss_t_Vtnode_GND;
2849 : : #endif
2850 : : #if defined(_DERIVATE)
2851 : : double ibcxs_t_Vtnode_GND;
2852 : : #endif
2853 : : #if defined(_DERIVATE)
2854 : : double ibcis_t_Vtnode_GND;
2855 : : #endif
2856 : : #if defined(_DERIVATE)
2857 : : double ireps_t_Vtnode_GND;
2858 : : #endif
2859 : : #if defined(_DERIVATE)
2860 : : double ibeps_t_Vtnode_GND;
2861 : : #endif
2862 : : #if defined(_DERIVATE)
2863 : : double ireis_t_Vtnode_GND;
2864 : : #endif
2865 : : #if defined(_DERIVATE)
2866 : : double ibeis_t_Vtnode_GND;
2867 : : #endif
2868 : : #if defined(_DERIVATE)
2869 : : double a_Vbi_ei;
2870 : : double a_Vbi_ci;
2871 : : double a_Vci_ei;
2872 : : double a_Vtnode_GND;
2873 : : #endif
2874 : : #if defined(_DERIVATE)
2875 : : double r_VgVT_Vtnode_GND;
2876 : : #endif
2877 : : #if defined(_DERIVATE)
2878 : : double V_gT_Vtnode_GND;
2879 : : #endif
2880 : : #if defined(_DERIVATE)
2881 : : double ajei_t_Vtnode_GND;
2882 : : #endif
2883 : : #if defined(_DERIVATE)
2884 : : double cjei0_t_Vtnode_GND;
2885 : : #endif
2886 : : #if defined(_DERIVATE)
2887 : : double vdei_t_Vtnode_GND;
2888 : : #endif
2889 : : #if defined(_DERIVATE)
2890 : : double vdt_Vtnode_GND;
2891 : : #endif
2892 : : #if defined(_DERIVATE)
2893 : : double vdjt_Vtnode_GND;
2894 : : #endif
2895 : : #if defined(_DERIVATE)
2896 : : double vgbe_t_Vtnode_GND;
2897 : : #endif
2898 : : #if defined(_DERIVATE)
2899 : : double vge_t_Vtnode_GND;
2900 : : #endif
2901 : : #if defined(_DERIVATE)
2902 : : double vgb_t_Vtnode_GND;
2903 : : #endif
2904 : : #if defined(_DERIVATE)
2905 : : double k2_Vtnode_GND;
2906 : : #endif
2907 : : #if defined(_DERIVATE)
2908 : : double k1_Vtnode_GND;
2909 : : #endif
2910 : : #if defined(_DERIVATE)
2911 : : double ln_qtt0_Vtnode_GND;
2912 : : #endif
2913 : : #if defined(_DERIVATE)
2914 : : double qtt0_Vtnode_GND;
2915 : : #endif
2916 : : #if defined(_DERIVATE)
2917 : : double dT_Vtnode_GND;
2918 : : #endif
2919 : : #if defined(_DERIVATE)
2920 : : double VT_Vtnode_GND;
2921 : : #endif
2922 : : #if defined(_DERIVATE)
2923 : : double Tdev_Vtnode_GND;
2924 : : #endif
2925 [ # # ][ # # ]: 0 : if
2926 : : ((flsh!=0)&&(rth>=0.001))
2927 : : {
2928 : : #if defined(_DERIVATE)
2929 : 0 : Tdev_Vtnode_GND=1.0;
2930 : : #endif
2931 : 0 : Tdev=((Tamb+dt)+NP(tnode));
2932 [ # # ]: 0 : if
2933 : : (Tdev<((-100.0)+273.15))
2934 : : {
2935 : : #if defined(_DERIVATE)
2936 : 0 : Tdev_Vtnode_GND=0.0;
2937 : : #endif
2938 : 0 : Tdev=((-100.0)+273.15);
2939 : : }
2940 : : else
2941 : : {
2942 [ # # ]: 0 : if
2943 : : (Tdev>(326.85+273.15))
2944 : : {
2945 : : #if defined(_DERIVATE)
2946 : 0 : Tdev_Vtnode_GND=0.0;
2947 : : #endif
2948 : 0 : Tdev=(326.85+273.15);
2949 : : }
2950 : : }
2951 : : #if defined(_DERIVATE)
2952 : 0 : VT_Vtnode_GND=((1.3806503e-23*Tdev_Vtnode_GND)/1.602176462e-19);
2953 : : #endif
2954 : 0 : VT=((1.3806503e-23*Tdev)/1.602176462e-19);
2955 : : #if defined(_DERIVATE)
2956 : 0 : dT_Vtnode_GND=Tdev_Vtnode_GND;
2957 : : #endif
2958 : 0 : dT=(Tdev-Tnom);
2959 : : #if defined(_DERIVATE)
2960 : 0 : qtt0_Vtnode_GND=(Tdev_Vtnode_GND/Tnom);
2961 : : #endif
2962 : 0 : qtt0=(Tdev/Tnom);
2963 : : {
2964 : 0 : double m00_logE(d00_logE0,qtt0)
2965 : : #if defined(_DERIVATE)
2966 : 0 : double m10_logE(d10_logE0,d00_logE0,qtt0)
2967 : : #endif
2968 : : #if defined(_DERIVATE)
2969 : 0 : ln_qtt0_Vtnode_GND=qtt0_Vtnode_GND*d10_logE0;
2970 : : #endif
2971 : 0 : ln_qtt0=d00_logE0;
2972 : : }
2973 : : {
2974 : 0 : double m00_logE(d00_logE0,Tdev)
2975 : : #if defined(_DERIVATE)
2976 : 0 : double m10_logE(d10_logE0,d00_logE0,Tdev)
2977 : : #endif
2978 : : #if defined(_DERIVATE)
2979 : 0 : k1_Vtnode_GND=(((f1vg*Tdev_Vtnode_GND)*d00_logE0)+((f1vg*Tdev)*Tdev_Vtnode_GND*d10_logE0));
2980 : : #endif
2981 : 0 : k1=((f1vg*Tdev)*d00_logE0);
2982 : : }
2983 : : #if defined(_DERIVATE)
2984 : 0 : k2_Vtnode_GND=(f2vg*Tdev_Vtnode_GND);
2985 : : #endif
2986 : 0 : k2=(f2vg*Tdev);
2987 : : #if defined(_DERIVATE)
2988 : 0 : vgb_t_Vtnode_GND=(k1_Vtnode_GND+k2_Vtnode_GND);
2989 : : #endif
2990 : 0 : vgb_t=((vgb+k1)+k2);
2991 : : #if defined(_DERIVATE)
2992 : 0 : vge_t_Vtnode_GND=(k1_Vtnode_GND+k2_Vtnode_GND);
2993 : : #endif
2994 : 0 : vge_t=((vge+k1)+k2);
2995 : : #if defined(_DERIVATE)
2996 : 0 : vgbe_t_Vtnode_GND=((vgb_t_Vtnode_GND+vge_t_Vtnode_GND)/2);
2997 : : #endif
2998 : 0 : vgbe_t=((vgb_t+vge_t)/2);
2999 [ # # ]: 0 : if
3000 : : (cjei0>0.0)
3001 : : {
3002 : : {
3003 : 0 : double m00_exp(d00_exp0,((vdei*0.5)/vt0))
3004 : 0 : double m00_exp(d00_exp1,(((-0.5)*vdei)/vt0))
3005 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
3006 : 0 : vdj0=((2*vt0)*d00_logE2);
3007 : : }
3008 : : #if defined(_DERIVATE)
3009 : 0 : vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgbe0*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
3010 : : #endif
3011 : 0 : vdjt=(((vdj0*qtt0)+(vgbe0*(1-qtt0)))-((mg*VT)*ln_qtt0));
3012 : : {
3013 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
3014 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
3015 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
3016 : : #if defined(_DERIVATE)
3017 : : #define d10_exp0 d00_exp0
3018 : 0 : double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
3019 : 0 : double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
3020 : : #endif
3021 : : #if defined(_DERIVATE)
3022 : 0 : vdt_Vtnode_GND=(vdjt_Vtnode_GND+(((2*VT_Vtnode_GND)*d00_logE2)+((2*VT)*(0.5*(4*(((-vdjt_Vtnode_GND)*VT-(-vdjt)*VT_Vtnode_GND)/VT/VT)*d10_exp0)*d10_sqrt1)*d10_logE2)));
3023 : : #endif
3024 : 0 : vdt=(vdjt+((2*VT)*d00_logE2));
3025 : : }
3026 : : #if defined(_DERIVATE)
3027 : 0 : vdei_t_Vtnode_GND=vdt_Vtnode_GND;
3028 : : #endif
3029 : 0 : vdei_t=vdt;
3030 : : {
3031 : 0 : double m00_logE(d00_logE0,(vdei/vdei_t))
3032 : 0 : double m00_exp(d00_exp1,(zei*d00_logE0))
3033 : : #if defined(_DERIVATE)
3034 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdei/vdei_t))
3035 : : #define d10_exp1 d00_exp1
3036 : : #endif
3037 : : #if defined(_DERIVATE)
3038 : 0 : cjei0_t_Vtnode_GND=(cjei0*(zei*(-vdei*vdei_t_Vtnode_GND/vdei_t/vdei_t)*d10_logE0)*d10_exp1);
3039 : : #endif
3040 : 0 : cjei0_t=(cjei0*d00_exp1);
3041 : : }
3042 : : if
3043 : : (1==1)
3044 : : {
3045 : : #if defined(_DERIVATE)
3046 : 0 : ajei_t_Vtnode_GND=((ajei*vdei_t_Vtnode_GND)/vdei);
3047 : : #endif
3048 : 0 : ajei_t=((ajei*vdei_t)/vdei);
3049 : : }
3050 : : else
3051 : : {
3052 : : #if defined(_DERIVATE)
3053 : : ajei_t_Vtnode_GND=0.0;
3054 : : #endif
3055 : : ajei_t=ajei;
3056 : : }
3057 : : }
3058 : : else
3059 : : {
3060 : : #if defined(_DERIVATE)
3061 : 0 : cjei0_t_Vtnode_GND=0.0;
3062 : : #endif
3063 : 0 : cjei0_t=cjei0;
3064 : : #if defined(_DERIVATE)
3065 : 0 : vdei_t_Vtnode_GND=0.0;
3066 : : #endif
3067 : 0 : vdei_t=vdei;
3068 : : #if defined(_DERIVATE)
3069 : 0 : ajei_t_Vtnode_GND=0.0;
3070 : : #endif
3071 : 0 : ajei_t=ajei;
3072 : : }
3073 [ # # ][ # # ]: 0 : if
3074 : : ((flcomp==0.0)||(flcomp==2.1))
3075 : : {
3076 : : #if defined(_DERIVATE)
3077 : 0 : V_gT_Vtnode_GND=((((3.0*VT_Vtnode_GND)*ln_qtt0)+((3.0*VT)*ln_qtt0_Vtnode_GND))+(vgb*qtt0_Vtnode_GND));
3078 : : #endif
3079 : 0 : V_gT=(((3.0*VT)*ln_qtt0)+(vgb*(qtt0-1.0)));
3080 : : #if defined(_DERIVATE)
3081 : 0 : r_VgVT_Vtnode_GND=((V_gT_Vtnode_GND*VT-V_gT*VT_Vtnode_GND)/VT/VT);
3082 : : #endif
3083 : 0 : r_VgVT=(V_gT/VT);
3084 : : #if defined(_DERIVATE)
3085 : 0 : a_Vbi_ei=0.0;
3086 : 0 : a_Vbi_ci=0.0;
3087 : 0 : a_Vci_ei=0.0;
3088 : 0 : a_Vtnode_GND=(((mcf*r_VgVT_Vtnode_GND)/mbei)-(alb*dT_Vtnode_GND));
3089 : : #endif
3090 : 0 : a=(((mcf*r_VgVT)/mbei)-(alb*dT));
3091 : : {
3092 : 0 : double m00_exp(d00_exp0,a)
3093 : : #if defined(_DERIVATE)
3094 : : #define d10_exp0 d00_exp0
3095 : : #endif
3096 : : #if defined(_DERIVATE)
3097 : 0 : ibeis_t_Vtnode_GND=(ibeis*a_Vtnode_GND*d10_exp0);
3098 : : #endif
3099 : 0 : ibeis_t=(ibeis*d00_exp0);
3100 : : }
3101 : : #if defined(_DERIVATE)
3102 : 0 : a_Vbi_ei=0.0;
3103 : 0 : a_Vbi_ci=0.0;
3104 : 0 : a_Vci_ei=0.0;
3105 : 0 : a_Vtnode_GND=(((mcf*r_VgVT_Vtnode_GND)/mrei)-(alb*dT_Vtnode_GND));
3106 : : #endif
3107 : 0 : a=(((mcf*r_VgVT)/mrei)-(alb*dT));
3108 : : {
3109 : 0 : double m00_exp(d00_exp0,a)
3110 : : #if defined(_DERIVATE)
3111 : : #define d10_exp0 d00_exp0
3112 : : #endif
3113 : : #if defined(_DERIVATE)
3114 : 0 : ireis_t_Vtnode_GND=(ireis*a_Vtnode_GND*d10_exp0);
3115 : : #endif
3116 : 0 : ireis_t=(ireis*d00_exp0);
3117 : : }
3118 : : #if defined(_DERIVATE)
3119 : 0 : a_Vbi_ei=0.0;
3120 : 0 : a_Vbi_ci=0.0;
3121 : 0 : a_Vci_ei=0.0;
3122 : 0 : a_Vtnode_GND=(((mcf*r_VgVT_Vtnode_GND)/mbep)-(alb*dT_Vtnode_GND));
3123 : : #endif
3124 : 0 : a=(((mcf*r_VgVT)/mbep)-(alb*dT));
3125 : : {
3126 : 0 : double m00_exp(d00_exp0,a)
3127 : : #if defined(_DERIVATE)
3128 : : #define d10_exp0 d00_exp0
3129 : : #endif
3130 : : #if defined(_DERIVATE)
3131 : 0 : ibeps_t_Vtnode_GND=(ibeps*a_Vtnode_GND*d10_exp0);
3132 : : #endif
3133 : 0 : ibeps_t=(ibeps*d00_exp0);
3134 : : }
3135 : : #if defined(_DERIVATE)
3136 : 0 : a_Vbi_ei=0.0;
3137 : 0 : a_Vbi_ci=0.0;
3138 : 0 : a_Vci_ei=0.0;
3139 : 0 : a_Vtnode_GND=(((mcf*r_VgVT_Vtnode_GND)/mrep)-(alb*dT_Vtnode_GND));
3140 : : #endif
3141 : 0 : a=(((mcf*r_VgVT)/mrep)-(alb*dT));
3142 : : {
3143 : 0 : double m00_exp(d00_exp0,a)
3144 : : #if defined(_DERIVATE)
3145 : : #define d10_exp0 d00_exp0
3146 : : #endif
3147 : : #if defined(_DERIVATE)
3148 : 0 : ireps_t_Vtnode_GND=(ireps*a_Vtnode_GND*d10_exp0);
3149 : : #endif
3150 : 0 : ireps_t=(ireps*d00_exp0);
3151 : : }
3152 : : #if defined(_DERIVATE)
3153 : 0 : a_Vbi_ei=0.0;
3154 : 0 : a_Vbi_ci=0.0;
3155 : 0 : a_Vci_ei=0.0;
3156 : 0 : a_Vtnode_GND=(r_VgVT_Vtnode_GND/mbci);
3157 : : #endif
3158 : 0 : a=(r_VgVT/mbci);
3159 : : {
3160 : 0 : double m00_exp(d00_exp0,a)
3161 : : #if defined(_DERIVATE)
3162 : : #define d10_exp0 d00_exp0
3163 : : #endif
3164 : : #if defined(_DERIVATE)
3165 : 0 : ibcis_t_Vtnode_GND=(ibcis*a_Vtnode_GND*d10_exp0);
3166 : : #endif
3167 : 0 : ibcis_t=(ibcis*d00_exp0);
3168 : : }
3169 : : #if defined(_DERIVATE)
3170 : 0 : a_Vbi_ei=0.0;
3171 : 0 : a_Vbi_ci=0.0;
3172 : 0 : a_Vci_ei=0.0;
3173 : 0 : a_Vtnode_GND=(r_VgVT_Vtnode_GND/mbcx);
3174 : : #endif
3175 : 0 : a=(r_VgVT/mbcx);
3176 : : {
3177 : 0 : double m00_exp(d00_exp0,a)
3178 : : #if defined(_DERIVATE)
3179 : : #define d10_exp0 d00_exp0
3180 : : #endif
3181 : : #if defined(_DERIVATE)
3182 : 0 : ibcxs_t_Vtnode_GND=(ibcxs*a_Vtnode_GND*d10_exp0);
3183 : : #endif
3184 : 0 : ibcxs_t=(ibcxs*d00_exp0);
3185 : : }
3186 : : #if defined(_DERIVATE)
3187 : 0 : a_Vbi_ei=0.0;
3188 : 0 : a_Vbi_ci=0.0;
3189 : 0 : a_Vci_ei=0.0;
3190 : 0 : a_Vtnode_GND=(r_VgVT_Vtnode_GND/msf);
3191 : : #endif
3192 : 0 : a=(r_VgVT/msf);
3193 : : {
3194 : 0 : double m00_exp(d00_exp0,a)
3195 : : #if defined(_DERIVATE)
3196 : : #define d10_exp0 d00_exp0
3197 : : #endif
3198 : : #if defined(_DERIVATE)
3199 : 0 : itss_t_Vtnode_GND=(itss*a_Vtnode_GND*d10_exp0);
3200 : : #endif
3201 : 0 : itss_t=(itss*d00_exp0);
3202 : : }
3203 : : #if defined(_DERIVATE)
3204 : 0 : a_Vbi_ei=0.0;
3205 : 0 : a_Vbi_ci=0.0;
3206 : 0 : a_Vci_ei=0.0;
3207 : 0 : a_Vtnode_GND=(r_VgVT_Vtnode_GND/msc);
3208 : : #endif
3209 : 0 : a=(r_VgVT/msc);
3210 : : {
3211 : 0 : double m00_exp(d00_exp0,a)
3212 : : #if defined(_DERIVATE)
3213 : : #define d10_exp0 d00_exp0
3214 : : #endif
3215 : : #if defined(_DERIVATE)
3216 : 0 : iscs_t_Vtnode_GND=(iscs*a_Vtnode_GND*d10_exp0);
3217 : : #endif
3218 : 0 : iscs_t=(iscs*d00_exp0);
3219 : : }
3220 : : #if defined(_DERIVATE)
3221 : 0 : a_Vbi_ei=0.0;
3222 : 0 : a_Vbi_ci=0.0;
3223 : 0 : a_Vci_ei=0.0;
3224 : 0 : a_Vtnode_GND=(vdei_t_Vtnode_GND/vdei);
3225 : : #endif
3226 : 0 : a=(vdei_t/vdei);
3227 : : #if defined(_DERIVATE)
3228 : 0 : qp0_t_Vtnode_GND=(qp0*((0.5*zei)*(-a_Vtnode_GND)));
3229 : : #endif
3230 : 0 : qp0_t=(qp0*(1.0+((0.5*zei)*(1.0-a))));
3231 : : {
3232 : 0 : double m00_exp(d00_exp0,(zetaci*ln_qtt0))
3233 : : #if defined(_DERIVATE)
3234 : : #define d10_exp0 d00_exp0
3235 : : #endif
3236 : : #if defined(_DERIVATE)
3237 : 0 : a_Vbi_ei=0.0;
3238 : 0 : a_Vbi_ci=0.0;
3239 : 0 : a_Vci_ei=0.0;
3240 : 0 : a_Vtnode_GND=(((vlim*(-(alvs*dT_Vtnode_GND)))*d00_exp0)+((vlim*(1.0-(alvs*dT)))*(zetaci*ln_qtt0_Vtnode_GND)*d10_exp0));
3241 : : #endif
3242 : 0 : a=((vlim*(1.0-(alvs*dT)))*d00_exp0);
3243 : : }
3244 : : #if defined(_DERIVATE)
3245 : 0 : k_Vtnode_GND=(((a_Vtnode_GND-VT_Vtnode_GND)*VT-(a-VT)*VT_Vtnode_GND)/VT/VT);
3246 : : #endif
3247 : 0 : k=((a-VT)/VT);
3248 [ # # ]: 0 : if
3249 : : (k<11.0)
3250 : : {
3251 : : {
3252 : 0 : double m00_exp(d00_exp0,k)
3253 : 0 : double m00_logE(d00_logE1,(1.0+d00_exp0))
3254 : : #if defined(_DERIVATE)
3255 : : #define d10_exp0 d00_exp0
3256 : 0 : double m10_logE(d10_logE1,d00_logE1,(1.0+d00_exp0))
3257 : : #endif
3258 : : #if defined(_DERIVATE)
3259 : 0 : vlim_t_Vtnode_GND=(VT_Vtnode_GND+((VT_Vtnode_GND*d00_logE1)+(VT*k_Vtnode_GND*d10_exp0*d10_logE1)));
3260 : : #endif
3261 : 0 : vlim_t=(VT+(VT*d00_logE1));
3262 : : }
3263 : : }
3264 : : else
3265 : : {
3266 : : #if defined(_DERIVATE)
3267 : 0 : vlim_t_Vtnode_GND=a_Vtnode_GND;
3268 : : #endif
3269 : 0 : vlim_t=a;
3270 : : }
3271 : : #if defined(_DERIVATE)
3272 : 0 : a_Vbi_ei=0.0;
3273 : 0 : a_Vbi_ci=0.0;
3274 : 0 : a_Vci_ei=0.0;
3275 : 0 : a_Vtnode_GND=(alb*dT_Vtnode_GND);
3276 : : #endif
3277 : 0 : a=(1.0+(alb*dT));
3278 : : {
3279 : 0 : double m00_sqrt(d00_sqrt0,((a*a)+0.01))
3280 : : #if defined(_DERIVATE)
3281 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((a*a)+0.01))
3282 : : #endif
3283 : : #if defined(_DERIVATE)
3284 : 0 : k_Vtnode_GND=(0.5*(a_Vtnode_GND+((a_Vtnode_GND*a)+(a*a_Vtnode_GND))*d10_sqrt0));
3285 : : #endif
3286 : 0 : k=(0.5*(a+d00_sqrt0));
3287 : : }
3288 : : #if defined(_DERIVATE)
3289 : 0 : tef0_t_Vtnode_GND=(((tef0*qtt0_Vtnode_GND)*k-(tef0*qtt0)*k_Vtnode_GND)/k/k);
3290 : : #endif
3291 : 0 : tef0_t=((tef0*qtt0)/k);
3292 : : }
3293 : : else
3294 : : {
3295 : : {
3296 : 0 : double m00_exp(d00_exp0,((zetabet*ln_qtt0)+((vge/VT)*(qtt0-1))))
3297 : : #if defined(_DERIVATE)
3298 : : #define d10_exp0 d00_exp0
3299 : : #endif
3300 : : #if defined(_DERIVATE)
3301 : 0 : ibeis_t_Vtnode_GND=(ibeis*((zetabet*ln_qtt0_Vtnode_GND)+(((-vge*VT_Vtnode_GND/VT/VT)*(qtt0-1))+((vge/VT)*qtt0_Vtnode_GND)))*d10_exp0);
3302 : : #endif
3303 : 0 : ibeis_t=(ibeis*d00_exp0);
3304 : : }
3305 : : {
3306 : 0 : double m00_exp(d00_exp0,(((0.5*mg)*ln_qtt0)+(((0.5*vgbe0)/VT)*(qtt0-1))))
3307 : : #if defined(_DERIVATE)
3308 : : #define d10_exp0 d00_exp0
3309 : : #endif
3310 : : #if defined(_DERIVATE)
3311 : 0 : ireis_t_Vtnode_GND=(ireis*(((0.5*mg)*ln_qtt0_Vtnode_GND)+(((-(0.5*vgbe0)*VT_Vtnode_GND/VT/VT)*(qtt0-1))+(((0.5*vgbe0)/VT)*qtt0_Vtnode_GND)))*d10_exp0);
3312 : : #endif
3313 : 0 : ireis_t=(ireis*d00_exp0);
3314 : : }
3315 : : {
3316 : 0 : double m00_exp(d00_exp0,((zetabet*ln_qtt0)+((vge/VT)*(qtt0-1))))
3317 : : #if defined(_DERIVATE)
3318 : : #define d10_exp0 d00_exp0
3319 : : #endif
3320 : : #if defined(_DERIVATE)
3321 : 0 : ibeps_t_Vtnode_GND=(ibeps*((zetabet*ln_qtt0_Vtnode_GND)+(((-vge*VT_Vtnode_GND/VT/VT)*(qtt0-1))+((vge/VT)*qtt0_Vtnode_GND)))*d10_exp0);
3322 : : #endif
3323 : 0 : ibeps_t=(ibeps*d00_exp0);
3324 : : }
3325 : : {
3326 : 0 : double m00_exp(d00_exp0,(((0.5*mg)*ln_qtt0)+(((0.5*vgbe0)/VT)*(qtt0-1))))
3327 : : #if defined(_DERIVATE)
3328 : : #define d10_exp0 d00_exp0
3329 : : #endif
3330 : : #if defined(_DERIVATE)
3331 : 0 : ireps_t_Vtnode_GND=(ireps*(((0.5*mg)*ln_qtt0_Vtnode_GND)+(((-(0.5*vgbe0)*VT_Vtnode_GND/VT/VT)*(qtt0-1))+(((0.5*vgbe0)/VT)*qtt0_Vtnode_GND)))*d10_exp0);
3332 : : #endif
3333 : 0 : ireps_t=(ireps*d00_exp0);
3334 : : }
3335 : : {
3336 : 0 : double m00_exp(d00_exp0,((zetabci*ln_qtt0)+((vgc/VT)*(qtt0-1))))
3337 : : #if defined(_DERIVATE)
3338 : : #define d10_exp0 d00_exp0
3339 : : #endif
3340 : : #if defined(_DERIVATE)
3341 : 0 : ibcis_t_Vtnode_GND=(ibcis*((zetabci*ln_qtt0_Vtnode_GND)+(((-vgc*VT_Vtnode_GND/VT/VT)*(qtt0-1))+((vgc/VT)*qtt0_Vtnode_GND)))*d10_exp0);
3342 : : #endif
3343 : 0 : ibcis_t=(ibcis*d00_exp0);
3344 : : }
3345 : : {
3346 : 0 : double m00_exp(d00_exp0,((zetabcxt*ln_qtt0)+((vgc/VT)*(qtt0-1))))
3347 : : #if defined(_DERIVATE)
3348 : : #define d10_exp0 d00_exp0
3349 : : #endif
3350 : : #if defined(_DERIVATE)
3351 : 0 : ibcxs_t_Vtnode_GND=(ibcxs*((zetabcxt*ln_qtt0_Vtnode_GND)+(((-vgc*VT_Vtnode_GND/VT/VT)*(qtt0-1))+((vgc/VT)*qtt0_Vtnode_GND)))*d10_exp0);
3352 : : #endif
3353 : 0 : ibcxs_t=(ibcxs*d00_exp0);
3354 : : }
3355 : : {
3356 : 0 : double m00_exp(d00_exp0,((zetasct*ln_qtt0)+((vgc/VT)*(qtt0-1))))
3357 : : #if defined(_DERIVATE)
3358 : : #define d10_exp0 d00_exp0
3359 : : #endif
3360 : : #if defined(_DERIVATE)
3361 : 0 : itss_t_Vtnode_GND=(itss*((zetasct*ln_qtt0_Vtnode_GND)+(((-vgc*VT_Vtnode_GND/VT/VT)*(qtt0-1))+((vgc/VT)*qtt0_Vtnode_GND)))*d10_exp0);
3362 : : #endif
3363 : 0 : itss_t=(itss*d00_exp0);
3364 : : }
3365 : : {
3366 : 0 : double m00_exp(d00_exp0,((zetasct*ln_qtt0)+((vgs/VT)*(qtt0-1))))
3367 : : #if defined(_DERIVATE)
3368 : : #define d10_exp0 d00_exp0
3369 : : #endif
3370 : : #if defined(_DERIVATE)
3371 : 0 : iscs_t_Vtnode_GND=(iscs*((zetasct*ln_qtt0_Vtnode_GND)+(((-vgs*VT_Vtnode_GND/VT/VT)*(qtt0-1))+((vgs/VT)*qtt0_Vtnode_GND)))*d10_exp0);
3372 : : #endif
3373 : 0 : iscs_t=(iscs*d00_exp0);
3374 : : }
3375 : : {
3376 : 0 : double m00_logE(d00_logE0,(vdei_t/vdei))
3377 : 0 : double m00_exp(d00_exp1,(zei*d00_logE0))
3378 : : #if defined(_DERIVATE)
3379 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdei_t/vdei))
3380 : : #define d10_exp1 d00_exp1
3381 : : #endif
3382 : : #if defined(_DERIVATE)
3383 : 0 : a_Vbi_ei=0.0;
3384 : 0 : a_Vbi_ci=0.0;
3385 : 0 : a_Vci_ei=0.0;
3386 : 0 : a_Vtnode_GND=(zei*(vdei_t_Vtnode_GND/vdei)*d10_logE0)*d10_exp1;
3387 : : #endif
3388 : 0 : a=d00_exp1;
3389 : : }
3390 : : #if defined(_DERIVATE)
3391 : 0 : qp0_t_Vtnode_GND=(qp0*(-a_Vtnode_GND));
3392 : : #endif
3393 : 0 : qp0_t=(qp0*(2.0-a));
3394 : : {
3395 : 0 : double m00_exp(d00_exp0,((zetaci-avs)*ln_qtt0))
3396 : : #if defined(_DERIVATE)
3397 : : #define d10_exp0 d00_exp0
3398 : : #endif
3399 : : #if defined(_DERIVATE)
3400 : 0 : vlim_t_Vtnode_GND=(vlim*((zetaci-avs)*ln_qtt0_Vtnode_GND)*d10_exp0);
3401 : : #endif
3402 : 0 : vlim_t=(vlim*d00_exp0);
3403 : : }
3404 : 0 : zetatef=((zetabet-zetact)-0.5);
3405 : 0 : dvg0=(vgb-vge);
3406 : : {
3407 : 0 : double m00_exp(d00_exp0,((zetatef*ln_qtt0)-((dvg0/VT)*(qtt0-1))))
3408 : : #if defined(_DERIVATE)
3409 : : #define d10_exp0 d00_exp0
3410 : : #endif
3411 : : #if defined(_DERIVATE)
3412 : 0 : tef0_t_Vtnode_GND=(tef0*((zetatef*ln_qtt0_Vtnode_GND)-(((-dvg0*VT_Vtnode_GND/VT/VT)*(qtt0-1))+((dvg0/VT)*qtt0_Vtnode_GND)))*d10_exp0);
3413 : : #endif
3414 : 0 : tef0_t=(tef0*d00_exp0);
3415 : : }
3416 : : }
3417 : : {
3418 : 0 : double m00_exp(d00_exp0,((zetact*ln_qtt0)+((vgb/VT)*(qtt0-1))))
3419 : : #if defined(_DERIVATE)
3420 : : #define d10_exp0 d00_exp0
3421 : : #endif
3422 : : #if defined(_DERIVATE)
3423 : 0 : c10_t_Vtnode_GND=(c10*((zetact*ln_qtt0_Vtnode_GND)+(((-vgb*VT_Vtnode_GND/VT/VT)*(qtt0-1))+((vgb/VT)*qtt0_Vtnode_GND)))*d10_exp0);
3424 : : #endif
3425 : 0 : c10_t=(c10*d00_exp0);
3426 : : }
3427 : : {
3428 : 0 : double m00_exp(d00_exp0,(zetaci*ln_qtt0))
3429 : : #if defined(_DERIVATE)
3430 : : #define d10_exp0 d00_exp0
3431 : : #endif
3432 : : #if defined(_DERIVATE)
3433 : 0 : rci0_t_Vtnode_GND=(rci0*(zetaci*ln_qtt0_Vtnode_GND)*d10_exp0);
3434 : : #endif
3435 : 0 : rci0_t=(rci0*d00_exp0);
3436 : : }
3437 : : #if defined(_DERIVATE)
3438 : 0 : vces_t_Vtnode_GND=(vces*(alces*dT_Vtnode_GND));
3439 : : #endif
3440 : 0 : vces_t=(vces*(1+(alces*dT)));
3441 [ # # ]: 0 : if
3442 : : (cjci0>0.0)
3443 : : {
3444 : : {
3445 : 0 : double m00_exp(d00_exp0,((vdci*0.5)/vt0))
3446 : 0 : double m00_exp(d00_exp1,(((-0.5)*vdci)/vt0))
3447 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
3448 : 0 : vdj0=((2*vt0)*d00_logE2);
3449 : : }
3450 : : #if defined(_DERIVATE)
3451 : 0 : vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgbc0*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
3452 : : #endif
3453 : 0 : vdjt=(((vdj0*qtt0)+(vgbc0*(1-qtt0)))-((mg*VT)*ln_qtt0));
3454 : : {
3455 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
3456 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
3457 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
3458 : : #if defined(_DERIVATE)
3459 : : #define d10_exp0 d00_exp0
3460 : 0 : double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
3461 : 0 : double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
3462 : : #endif
3463 : : #if defined(_DERIVATE)
3464 : 0 : vdt_Vtnode_GND=(vdjt_Vtnode_GND+(((2*VT_Vtnode_GND)*d00_logE2)+((2*VT)*(0.5*(4*(((-vdjt_Vtnode_GND)*VT-(-vdjt)*VT_Vtnode_GND)/VT/VT)*d10_exp0)*d10_sqrt1)*d10_logE2)));
3465 : : #endif
3466 : 0 : vdt=(vdjt+((2*VT)*d00_logE2));
3467 : : }
3468 : : #if defined(_DERIVATE)
3469 : 0 : vdci_t_Vtnode_GND=vdt_Vtnode_GND;
3470 : : #endif
3471 : 0 : vdci_t=vdt;
3472 : : {
3473 : 0 : double m00_logE(d00_logE0,(vdci/vdci_t))
3474 : 0 : double m00_exp(d00_exp1,(zci*d00_logE0))
3475 : : #if defined(_DERIVATE)
3476 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdci/vdci_t))
3477 : : #define d10_exp1 d00_exp1
3478 : : #endif
3479 : : #if defined(_DERIVATE)
3480 : 0 : cjci0_t_Vtnode_GND=(cjci0*(zci*(-vdci*vdci_t_Vtnode_GND/vdci_t/vdci_t)*d10_logE0)*d10_exp1);
3481 : : #endif
3482 : 0 : cjci0_t=(cjci0*d00_exp1);
3483 : : }
3484 : : if
3485 : : (0==1)
3486 : : {
3487 : : #if defined(_DERIVATE)
3488 : : vptci_t_Vtnode_GND=((vptci*vdci_t_Vtnode_GND)/vdci);
3489 : : #endif
3490 : : vptci_t=((vptci*vdci_t)/vdci);
3491 : : }
3492 : : else
3493 : : {
3494 : : #if defined(_DERIVATE)
3495 : 0 : vptci_t_Vtnode_GND=0.0;
3496 : : #endif
3497 : 0 : vptci_t=vptci;
3498 : : }
3499 : : }
3500 : : else
3501 : : {
3502 : : #if defined(_DERIVATE)
3503 : 0 : cjci0_t_Vtnode_GND=0.0;
3504 : : #endif
3505 : 0 : cjci0_t=cjci0;
3506 : : #if defined(_DERIVATE)
3507 : 0 : vdci_t_Vtnode_GND=0.0;
3508 : : #endif
3509 : 0 : vdci_t=vdci;
3510 : : #if defined(_DERIVATE)
3511 : 0 : vptci_t_Vtnode_GND=0.0;
3512 : : #endif
3513 : 0 : vptci_t=vptci;
3514 : : }
3515 : : #if defined(_DERIVATE)
3516 : 0 : t0_t_Vtnode_GND=(t0*((alt0*dT_Vtnode_GND)+(((kt0*dT_Vtnode_GND)*dT)+((kt0*dT)*dT_Vtnode_GND))));
3517 : : #endif
3518 : 0 : t0_t=(t0*((1+(alt0*dT))+((kt0*dT)*dT)));
3519 : : {
3520 : 0 : double m00_exp(d00_exp0,((zetaci-1)*ln_qtt0))
3521 : : #if defined(_DERIVATE)
3522 : : #define d10_exp0 d00_exp0
3523 : : #endif
3524 : : #if defined(_DERIVATE)
3525 : 0 : thcs_t_Vtnode_GND=(thcs*((zetaci-1)*ln_qtt0_Vtnode_GND)*d10_exp0);
3526 : : #endif
3527 : 0 : thcs_t=(thcs*d00_exp0);
3528 : : }
3529 : : {
3530 : 0 : double m00_exp(d00_exp0,(alfav*dT))
3531 : : #if defined(_DERIVATE)
3532 : : #define d10_exp0 d00_exp0
3533 : : #endif
3534 : : #if defined(_DERIVATE)
3535 : 0 : favl_t_Vtnode_GND=(favl*(alfav*dT_Vtnode_GND)*d10_exp0);
3536 : : #endif
3537 : 0 : favl_t=(favl*d00_exp0);
3538 : : }
3539 : : {
3540 : 0 : double m00_exp(d00_exp0,(alqav*dT))
3541 : : #if defined(_DERIVATE)
3542 : : #define d10_exp0 d00_exp0
3543 : : #endif
3544 : : #if defined(_DERIVATE)
3545 : 0 : qavl_t_Vtnode_GND=(qavl*(alqav*dT_Vtnode_GND)*d10_exp0);
3546 : : #endif
3547 : 0 : qavl_t=(qavl*d00_exp0);
3548 : : }
3549 : : {
3550 : 0 : double m00_exp(d00_exp0,(zetarbi*ln_qtt0))
3551 : : #if defined(_DERIVATE)
3552 : : #define d10_exp0 d00_exp0
3553 : : #endif
3554 : : #if defined(_DERIVATE)
3555 : 0 : rbi0_t_Vtnode_GND=(rbi0*(zetarbi*ln_qtt0_Vtnode_GND)*d10_exp0);
3556 : : #endif
3557 : 0 : rbi0_t=(rbi0*d00_exp0);
3558 : : }
3559 [ # # ]: 0 : if
3560 : : (cjep0>0.0)
3561 : : {
3562 : : {
3563 : 0 : double m00_exp(d00_exp0,((vdep*0.5)/vt0))
3564 : 0 : double m00_exp(d00_exp1,(((-0.5)*vdep)/vt0))
3565 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
3566 : 0 : vdj0=((2*vt0)*d00_logE2);
3567 : : }
3568 : : #if defined(_DERIVATE)
3569 : 0 : vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgbe0*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
3570 : : #endif
3571 : 0 : vdjt=(((vdj0*qtt0)+(vgbe0*(1-qtt0)))-((mg*VT)*ln_qtt0));
3572 : : {
3573 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
3574 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
3575 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
3576 : : #if defined(_DERIVATE)
3577 : : #define d10_exp0 d00_exp0
3578 : 0 : double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
3579 : 0 : double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
3580 : : #endif
3581 : : #if defined(_DERIVATE)
3582 : 0 : vdt_Vtnode_GND=(vdjt_Vtnode_GND+(((2*VT_Vtnode_GND)*d00_logE2)+((2*VT)*(0.5*(4*(((-vdjt_Vtnode_GND)*VT-(-vdjt)*VT_Vtnode_GND)/VT/VT)*d10_exp0)*d10_sqrt1)*d10_logE2)));
3583 : : #endif
3584 : 0 : vdt=(vdjt+((2*VT)*d00_logE2));
3585 : : }
3586 : : #if defined(_DERIVATE)
3587 : 0 : vdep_t_Vtnode_GND=vdt_Vtnode_GND;
3588 : : #endif
3589 : 0 : vdep_t=vdt;
3590 : : {
3591 : 0 : double m00_logE(d00_logE0,(vdep/vdep_t))
3592 : 0 : double m00_exp(d00_exp1,(zep*d00_logE0))
3593 : : #if defined(_DERIVATE)
3594 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdep/vdep_t))
3595 : : #define d10_exp1 d00_exp1
3596 : : #endif
3597 : : #if defined(_DERIVATE)
3598 : 0 : cjep0_t_Vtnode_GND=(cjep0*(zep*(-vdep*vdep_t_Vtnode_GND/vdep_t/vdep_t)*d10_logE0)*d10_exp1);
3599 : : #endif
3600 : 0 : cjep0_t=(cjep0*d00_exp1);
3601 : : }
3602 : : if
3603 : : (1==1)
3604 : : {
3605 : : #if defined(_DERIVATE)
3606 : 0 : ajep_t_Vtnode_GND=((ajep*vdep_t_Vtnode_GND)/vdep);
3607 : : #endif
3608 : 0 : ajep_t=((ajep*vdep_t)/vdep);
3609 : : }
3610 : : else
3611 : : {
3612 : : #if defined(_DERIVATE)
3613 : : ajep_t_Vtnode_GND=0.0;
3614 : : #endif
3615 : : ajep_t=ajep;
3616 : : }
3617 : : }
3618 : : else
3619 : : {
3620 : : #if defined(_DERIVATE)
3621 : 0 : cjep0_t_Vtnode_GND=0.0;
3622 : : #endif
3623 : 0 : cjep0_t=cjep0;
3624 : : #if defined(_DERIVATE)
3625 : 0 : vdep_t_Vtnode_GND=0.0;
3626 : : #endif
3627 : 0 : vdep_t=vdep;
3628 : : #if defined(_DERIVATE)
3629 : 0 : ajep_t_Vtnode_GND=0.0;
3630 : : #endif
3631 : 0 : ajep_t=ajep;
3632 : : }
3633 [ # # # # ]: 0 : if
[ # # ]
3634 [ # # ][ # # ]: 0 : ((BP(bp,ei)<0.0)||(BP(bi,ei)<0.0))
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # # #
# # # # ]
3635 : : {
3636 : : double a_eg;
3637 : : double ab;
3638 : : double aa;
3639 : : #if defined(_DERIVATE)
3640 : : double a_eg_Vtnode_GND;
3641 : : #endif
3642 : : #if defined(_DERIVATE)
3643 : : double ab_Vtnode_GND;
3644 : : #endif
3645 : : #if defined(_DERIVATE)
3646 : : double aa_Vtnode_GND;
3647 : : #endif
3648 : : #if defined(_DERIVATE)
3649 : 0 : ab_Vtnode_GND=0.0;
3650 : : #endif
3651 : 0 : ab=1.0;
3652 : : #if defined(_DERIVATE)
3653 : 0 : aa_Vtnode_GND=0.0;
3654 : : #endif
3655 : 0 : aa=1.0;
3656 : : #if defined(_DERIVATE)
3657 : 0 : a_eg_Vtnode_GND=(-vgbe_t0*vgbe_t_Vtnode_GND/vgbe_t/vgbe_t);
3658 : : #endif
3659 : 0 : a_eg=(vgbe_t0/vgbe_t);
3660 [ # # ][ # # ]: 0 : if
[ # # ]
3661 : : (((tunode==1)&&(cjep0>0.0))&&(vdep>0.0))
3662 : : {
3663 : : {
3664 : 0 : double m00_sqrt(d00_sqrt0,a_eg)
3665 : : #if defined(_DERIVATE)
3666 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,a_eg)
3667 : : #endif
3668 : : #if defined(_DERIVATE)
3669 : 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));
3670 : : #endif
3671 : 0 : ab=(((((cjep0_t/cjep0)*d00_sqrt0)*vdep_t)*vdep_t)/(vdep*vdep));
3672 : : }
3673 : : {
3674 : 0 : double m00_pow(d00_pow0,a_eg,(-1.5))
3675 : : #if defined(_DERIVATE)
3676 [ # # ]: 0 : double m10_pow(d10_pow0,d00_pow0,a_eg,(-1.5))
3677 : : #endif
3678 : : #if defined(_DERIVATE)
3679 : 0 : aa_Vtnode_GND=(((((-vdep*vdep_t_Vtnode_GND/vdep_t/vdep_t)*(cjep0/cjep0_t))+((vdep/vdep_t)*(-cjep0*cjep0_t_Vtnode_GND/cjep0_t/cjep0_t)))*d00_pow0)+(((vdep/vdep_t)*(cjep0/cjep0_t))*(d10_pow0*a_eg_Vtnode_GND)));
3680 : : #endif
3681 : 0 : aa=(((vdep/vdep_t)*(cjep0/cjep0_t))*d00_pow0);
3682 : 0 : }
3683 : : }
3684 : : else
3685 : : {
3686 [ # # ][ # # ]: 0 : if
[ # # ]
3687 : : (((tunode==0)&&(cjei0>0.0))&&(vdei>0.0))
3688 : : {
3689 : : {
3690 : 0 : double m00_sqrt(d00_sqrt0,a_eg)
3691 : : #if defined(_DERIVATE)
3692 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,a_eg)
3693 : : #endif
3694 : : #if defined(_DERIVATE)
3695 : 0 : ab_Vtnode_GND=((((((((cjei0_t_Vtnode_GND/cjei0)*d00_sqrt0)+((cjei0_t/cjei0)*a_eg_Vtnode_GND*d10_sqrt0))*vdei_t)+(((cjei0_t/cjei0)*d00_sqrt0)*vdei_t_Vtnode_GND))*vdei_t)+((((cjei0_t/cjei0)*d00_sqrt0)*vdei_t)*vdei_t_Vtnode_GND))/(vdei*vdei));
3696 : : #endif
3697 : 0 : ab=(((((cjei0_t/cjei0)*d00_sqrt0)*vdei_t)*vdei_t)/(vdei*vdei));
3698 : : }
3699 : : {
3700 : 0 : double m00_pow(d00_pow0,a_eg,(-1.5))
3701 : : #if defined(_DERIVATE)
3702 [ # # ]: 0 : double m10_pow(d10_pow0,d00_pow0,a_eg,(-1.5))
3703 : : #endif
3704 : : #if defined(_DERIVATE)
3705 : 0 : aa_Vtnode_GND=(((((-vdei*vdei_t_Vtnode_GND/vdei_t/vdei_t)*(cjei0/cjei0_t))+((vdei/vdei_t)*(-cjei0*cjei0_t_Vtnode_GND/cjei0_t/cjei0_t)))*d00_pow0)+(((vdei/vdei_t)*(cjei0/cjei0_t))*(d10_pow0*a_eg_Vtnode_GND)));
3706 : : #endif
3707 : 0 : aa=(((vdei/vdei_t)*(cjei0/cjei0_t))*d00_pow0);
3708 : : }
3709 : : }
3710 : : }
3711 : : #if defined(_DERIVATE)
3712 : 0 : ibets_t_Vtnode_GND=(ibets*ab_Vtnode_GND);
3713 : : #endif
3714 : 0 : ibets_t=(ibets*ab);
3715 : : #if defined(_DERIVATE)
3716 : 0 : abet_t_Vtnode_GND=(abet*aa_Vtnode_GND);
3717 : : #endif
3718 : 0 : abet_t=(abet*aa);
3719 : : }
3720 : : #ifdef _DYNAMIC
3721 : : if
3722 : : (1.0>0.0)
3723 : : {
3724 : : #if defined(_DYNAMIC)
3725 : : {
3726 : 0 : double m00_exp(d00_exp0,((vdcx*0.5)/vt0))
3727 : 0 : double m00_exp(d00_exp1,(((-0.5)*vdcx)/vt0))
3728 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
3729 : 0 : vdj0=((2*vt0)*d00_logE2);
3730 : : }
3731 : : #endif
3732 : : #if defined(_DYNAMIC)
3733 : : #if defined(_DERIVATE)
3734 : 0 : vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgbc0*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
3735 : : #endif
3736 : 0 : vdjt=(((vdj0*qtt0)+(vgbc0*(1-qtt0)))-((mg*VT)*ln_qtt0));
3737 : : #endif
3738 : : #if defined(_DYNAMIC)
3739 : : {
3740 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
3741 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
3742 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
3743 : : #if defined(_DERIVATE)
3744 : : #define d10_exp0 d00_exp0
3745 : 0 : double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
3746 : 0 : double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
3747 : : #endif
3748 : : #if defined(_DERIVATE)
3749 : 0 : vdt_Vtnode_GND=(vdjt_Vtnode_GND+(((2*VT_Vtnode_GND)*d00_logE2)+((2*VT)*(0.5*(4*(((-vdjt_Vtnode_GND)*VT-(-vdjt)*VT_Vtnode_GND)/VT/VT)*d10_exp0)*d10_sqrt1)*d10_logE2)));
3750 : : #endif
3751 : 0 : vdt=(vdjt+((2*VT)*d00_logE2));
3752 : : }
3753 : : #endif
3754 : : #if defined(_DYNAMIC)
3755 : : #if defined(_DERIVATE)
3756 : 0 : vdcx_t_Vtnode_GND=vdt_Vtnode_GND;
3757 : : #endif
3758 : 0 : vdcx_t=vdt;
3759 : : #endif
3760 : : #if defined(_DYNAMIC)
3761 : : {
3762 : 0 : double m00_logE(d00_logE0,(vdcx/vdcx_t))
3763 : 0 : double m00_exp(d00_exp1,(zcx*d00_logE0))
3764 : : #if defined(_DERIVATE)
3765 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdcx/vdcx_t))
3766 : : #define d10_exp1 d00_exp1
3767 : : #endif
3768 : : #if defined(_DERIVATE)
3769 : 0 : cratio_t_Vtnode_GND=(1.0*(zcx*(-vdcx*vdcx_t_Vtnode_GND/vdcx_t/vdcx_t)*d10_logE0)*d10_exp1);
3770 : : #endif
3771 : 0 : cratio_t=(1.0*d00_exp1);
3772 : : }
3773 : : #endif
3774 : : #ifdef _DYNAMIC
3775 : : if
3776 : : (0==1)
3777 : : {
3778 : : #if defined(_DYNAMIC)
3779 : : #if defined(_DERIVATE)
3780 : : vptcx_t_Vtnode_GND=((vptcx*vdcx_t_Vtnode_GND)/vdcx);
3781 : : #endif
3782 : : vptcx_t=((vptcx*vdcx_t)/vdcx);
3783 : : #endif
3784 : : }
3785 : : else
3786 : : {
3787 : : #if defined(_DYNAMIC)
3788 : : #if defined(_DERIVATE)
3789 : 0 : vptcx_t_Vtnode_GND=0.0;
3790 : : #endif
3791 : 0 : vptcx_t=vptcx;
3792 : : #endif
3793 : : }
3794 : : #endif /* if (...) */
3795 : : }
3796 : : else
3797 : : {
3798 : : #if defined(_DYNAMIC)
3799 : : #if defined(_DERIVATE)
3800 : : cratio_t_Vtnode_GND=0.0;
3801 : : #endif
3802 : : cratio_t=1.0;
3803 : : #endif
3804 : : #if defined(_DYNAMIC)
3805 : : #if defined(_DERIVATE)
3806 : : vdcx_t_Vtnode_GND=0.0;
3807 : : #endif
3808 : : vdcx_t=vdcx;
3809 : : #endif
3810 : : #if defined(_DYNAMIC)
3811 : : #if defined(_DERIVATE)
3812 : : vptcx_t_Vtnode_GND=0.0;
3813 : : #endif
3814 : : vptcx_t=vptcx;
3815 : : #endif
3816 : : }
3817 : : #endif /* if (...) */
3818 : : #if defined(_DYNAMIC)
3819 : : #if defined(_DERIVATE)
3820 : 0 : cjcx01_t_Vtnode_GND=cratio_t_Vtnode_GND*cjcx01;
3821 : : #endif
3822 : 0 : cjcx01_t=(cratio_t*cjcx01);
3823 : : #endif
3824 : : #if defined(_DYNAMIC)
3825 : : #if defined(_DERIVATE)
3826 : 0 : cjcx02_t_Vtnode_GND=cratio_t_Vtnode_GND*cjcx02;
3827 : : #endif
3828 : 0 : cjcx02_t=(cratio_t*cjcx02);
3829 : : #endif
3830 : : {
3831 : 0 : double m00_exp(d00_exp0,(zetarcx*ln_qtt0))
3832 : : #if defined(_DERIVATE)
3833 : : #define d10_exp0 d00_exp0
3834 : : #endif
3835 : : #if defined(_DERIVATE)
3836 : 0 : rcx_t_Vtnode_GND=(rcx*(zetarcx*ln_qtt0_Vtnode_GND)*d10_exp0);
3837 : : #endif
3838 : 0 : rcx_t=(rcx*d00_exp0);
3839 : : }
3840 : : {
3841 : 0 : double m00_exp(d00_exp0,(zetarbx*ln_qtt0))
3842 : : #if defined(_DERIVATE)
3843 : : #define d10_exp0 d00_exp0
3844 : : #endif
3845 : : #if defined(_DERIVATE)
3846 : 0 : rbx_t_Vtnode_GND=(rbx*(zetarbx*ln_qtt0_Vtnode_GND)*d10_exp0);
3847 : : #endif
3848 : 0 : rbx_t=(rbx*d00_exp0);
3849 : : }
3850 : : {
3851 : 0 : double m00_exp(d00_exp0,(zetare*ln_qtt0))
3852 : : #if defined(_DERIVATE)
3853 : : #define d10_exp0 d00_exp0
3854 : : #endif
3855 : : #if defined(_DERIVATE)
3856 : 0 : re_t_Vtnode_GND=(re*(zetare*ln_qtt0_Vtnode_GND)*d10_exp0);
3857 : : #endif
3858 : 0 : re_t=(re*d00_exp0);
3859 : : }
3860 : : #if defined(_DYNAMIC)
3861 : : {
3862 : 0 : double m00_exp(d00_exp0,((zetacx-1.0)*ln_qtt0))
3863 : : #if defined(_DERIVATE)
3864 : : #define d10_exp0 d00_exp0
3865 : : #endif
3866 : : #if defined(_DERIVATE)
3867 : 0 : tsf_t_Vtnode_GND=(tsf*((zetacx-1.0)*ln_qtt0_Vtnode_GND)*d10_exp0);
3868 : : #endif
3869 : 0 : tsf_t=(tsf*d00_exp0);
3870 : : }
3871 : : #endif
3872 : : #ifdef _DYNAMIC
3873 [ # # ]: 0 : if
3874 : : (cjs0>0.0)
3875 : : {
3876 : : #if defined(_DYNAMIC)
3877 : : {
3878 : 0 : double m00_exp(d00_exp0,((vds*0.5)/vt0))
3879 : 0 : double m00_exp(d00_exp1,(((-0.5)*vds)/vt0))
3880 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
3881 : 0 : vdj0=((2*vt0)*d00_logE2);
3882 : : }
3883 : : #endif
3884 : : #if defined(_DYNAMIC)
3885 : : #if defined(_DERIVATE)
3886 : 0 : vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgsc0*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
3887 : : #endif
3888 : 0 : vdjt=(((vdj0*qtt0)+(vgsc0*(1-qtt0)))-((mg*VT)*ln_qtt0));
3889 : : #endif
3890 : : #if defined(_DYNAMIC)
3891 : : {
3892 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
3893 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
3894 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
3895 : : #if defined(_DERIVATE)
3896 : : #define d10_exp0 d00_exp0
3897 : 0 : double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
3898 : 0 : double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
3899 : : #endif
3900 : : #if defined(_DERIVATE)
3901 : 0 : vdt_Vtnode_GND=(vdjt_Vtnode_GND+(((2*VT_Vtnode_GND)*d00_logE2)+((2*VT)*(0.5*(4*(((-vdjt_Vtnode_GND)*VT-(-vdjt)*VT_Vtnode_GND)/VT/VT)*d10_exp0)*d10_sqrt1)*d10_logE2)));
3902 : : #endif
3903 : 0 : vdt=(vdjt+((2*VT)*d00_logE2));
3904 : : }
3905 : : #endif
3906 : : #if defined(_DYNAMIC)
3907 : : #if defined(_DERIVATE)
3908 : 0 : vds_t_Vtnode_GND=vdt_Vtnode_GND;
3909 : : #endif
3910 : 0 : vds_t=vdt;
3911 : : #endif
3912 : : #if defined(_DYNAMIC)
3913 : : {
3914 : 0 : double m00_logE(d00_logE0,(vds/vds_t))
3915 : 0 : double m00_exp(d00_exp1,(zs*d00_logE0))
3916 : : #if defined(_DERIVATE)
3917 : 0 : double m10_logE(d10_logE0,d00_logE0,(vds/vds_t))
3918 : : #define d10_exp1 d00_exp1
3919 : : #endif
3920 : : #if defined(_DERIVATE)
3921 : 0 : cjs0_t_Vtnode_GND=(cjs0*(zs*(-vds*vds_t_Vtnode_GND/vds_t/vds_t)*d10_logE0)*d10_exp1);
3922 : : #endif
3923 : 0 : cjs0_t=(cjs0*d00_exp1);
3924 : : }
3925 : : #endif
3926 : : #ifdef _DYNAMIC
3927 : : if
3928 : : (0==1)
3929 : : {
3930 : : #if defined(_DYNAMIC)
3931 : : #if defined(_DERIVATE)
3932 : : vpts_t_Vtnode_GND=((vpts*vds_t_Vtnode_GND)/vds);
3933 : : #endif
3934 : : vpts_t=((vpts*vds_t)/vds);
3935 : : #endif
3936 : : }
3937 : : else
3938 : : {
3939 : : #if defined(_DYNAMIC)
3940 : : #if defined(_DERIVATE)
3941 : 0 : vpts_t_Vtnode_GND=0.0;
3942 : : #endif
3943 : 0 : vpts_t=vpts;
3944 : : #endif
3945 : : }
3946 : : #endif /* if (...) */
3947 : : }
3948 : : else
3949 : : {
3950 : : #if defined(_DYNAMIC)
3951 : : #if defined(_DERIVATE)
3952 : 0 : cjs0_t_Vtnode_GND=0.0;
3953 : : #endif
3954 : 0 : cjs0_t=cjs0;
3955 : : #endif
3956 : : #if defined(_DYNAMIC)
3957 : : #if defined(_DERIVATE)
3958 : 0 : vds_t_Vtnode_GND=0.0;
3959 : : #endif
3960 : 0 : vds_t=vds;
3961 : : #endif
3962 : : #if defined(_DYNAMIC)
3963 : : #if defined(_DERIVATE)
3964 : 0 : vpts_t_Vtnode_GND=0.0;
3965 : : #endif
3966 : 0 : vpts_t=vpts;
3967 : : #endif
3968 : : }
3969 : : #endif /* if (...) */
3970 : : }
3971 : : {
3972 : : #if defined(_DERIVATE)
3973 : 0 : DIOY_Vsi_ci=0.0;
3974 : 0 : DIOY_Vbp_ci=0.0;
3975 : 0 : DIOY_Vbp_ei=0.0;
3976 : 0 : DIOY_Vbi_ci=0.0;
3977 : 0 : DIOY_Vbi_ei=(1/(mbei*VT));
3978 [ # # ]: 0 : DIOY_Vtnode_GND=(-BP(bi,ei)*(mbei*VT_Vtnode_GND)/(mbei*VT)/(mbei*VT));
3979 : : #endif
3980 [ # # ]: 0 : DIOY=(BP(bi,ei)/(mbei*VT));
3981 [ # # ]: 0 : if
3982 : : (ibeis>0.0)
3983 : : {
3984 [ # # ]: 0 : if
3985 : : (DIOY>80.0)
3986 : : {
3987 : : #if defined(_DERIVATE)
3988 : 0 : le_Vsi_ci=0.0;
3989 : 0 : le_Vbp_ci=0.0;
3990 : 0 : le_Vbp_ei=0.0;
3991 : 0 : le_Vbi_ci=0.0;
3992 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
3993 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
3994 : : #endif
3995 : 0 : le=(1+(DIOY-80.0));
3996 : : #if defined(_DERIVATE)
3997 : 0 : DIOY_Vsi_ci=0.0;
3998 : 0 : DIOY_Vbp_ci=0.0;
3999 : 0 : DIOY_Vbp_ei=0.0;
4000 : 0 : DIOY_Vbi_ci=0.0;
4001 : 0 : DIOY_Vbi_ei=0.0;
4002 : 0 : DIOY_Vtnode_GND=0.0;
4003 : : #endif
4004 : 0 : DIOY=80.0;
4005 : : }
4006 : : else
4007 : : {
4008 : : #if defined(_DERIVATE)
4009 : 0 : le_Vsi_ci=0.0;
4010 : 0 : le_Vbp_ci=0.0;
4011 : 0 : le_Vbp_ei=0.0;
4012 : 0 : le_Vbi_ci=0.0;
4013 : 0 : le_Vbi_ei=0.0;
4014 : 0 : le_Vtnode_GND=0.0;
4015 : : #endif
4016 : 0 : le=1;
4017 : : }
4018 : : {
4019 [ # # ]: 0 : double m00_limexp(d00_limexp0,DIOY)
4020 : : #if defined(_DERIVATE)
4021 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
4022 : : #endif
4023 : : #if defined(_DERIVATE)
4024 : 0 : le_Vsi_ci=0.0;
4025 : 0 : le_Vbp_ci=0.0;
4026 : 0 : le_Vbp_ei=0.0;
4027 : 0 : le_Vbi_ci=0.0;
4028 : 0 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
4029 : 0 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
4030 : : #endif
4031 : 0 : le=(le*d00_limexp0);
4032 : : }
4033 : : #if defined(_DERIVATE)
4034 : 0 : ibei_Vtnode_GND=((ibeis_t_Vtnode_GND*(le-1.0))+(ibeis_t*le_Vtnode_GND));
4035 : 0 : ibei_Vbi_ei=(ibeis_t*le_Vbi_ei);
4036 : : #endif
4037 : 0 : ibei=(ibeis_t*(le-1.0));
4038 [ # # ]: 0 : if
4039 : : (DIOY<=(-14.0))
4040 : : {
4041 : : #if defined(_DERIVATE)
4042 : 0 : ibei_Vtnode_GND=(-ibeis_t_Vtnode_GND);
4043 : 0 : ibei_Vbi_ei=0.0;
4044 : : #endif
4045 : 0 : ibei=(-ibeis_t);
4046 : : }
4047 : : }
4048 : : else
4049 : : {
4050 : : #if defined(_DERIVATE)
4051 : 0 : ibei_Vtnode_GND=0.0;
4052 : 0 : ibei_Vbi_ei=0.0;
4053 : : #endif
4054 : 0 : ibei=0.0;
4055 : : }
4056 : : #if defined(_DERIVATE)
4057 : 0 : DIOY_Vsi_ci=0.0;
4058 : 0 : DIOY_Vbp_ci=0.0;
4059 : 0 : DIOY_Vbp_ei=0.0;
4060 : 0 : DIOY_Vbi_ci=0.0;
4061 : 0 : DIOY_Vbi_ei=(1/(mrei*VT));
4062 [ # # ]: 0 : DIOY_Vtnode_GND=(-BP(bi,ei)*(mrei*VT_Vtnode_GND)/(mrei*VT)/(mrei*VT));
4063 : : #endif
4064 [ # # ]: 0 : DIOY=(BP(bi,ei)/(mrei*VT));
4065 [ # # ]: 0 : if
4066 : : (ireis>0.0)
4067 : : {
4068 [ # # ]: 0 : if
4069 : : (DIOY>80.0)
4070 : : {
4071 : : #if defined(_DERIVATE)
4072 : 0 : le_Vsi_ci=0.0;
4073 : 0 : le_Vbp_ci=0.0;
4074 : 0 : le_Vbp_ei=0.0;
4075 : 0 : le_Vbi_ci=0.0;
4076 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
4077 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
4078 : : #endif
4079 : 0 : le=(1+(DIOY-80.0));
4080 : : #if defined(_DERIVATE)
4081 : 0 : DIOY_Vsi_ci=0.0;
4082 : 0 : DIOY_Vbp_ci=0.0;
4083 : 0 : DIOY_Vbp_ei=0.0;
4084 : 0 : DIOY_Vbi_ci=0.0;
4085 : 0 : DIOY_Vbi_ei=0.0;
4086 : 0 : DIOY_Vtnode_GND=0.0;
4087 : : #endif
4088 : 0 : DIOY=80.0;
4089 : : }
4090 : : else
4091 : : {
4092 : : #if defined(_DERIVATE)
4093 : 0 : le_Vsi_ci=0.0;
4094 : 0 : le_Vbp_ci=0.0;
4095 : 0 : le_Vbp_ei=0.0;
4096 : 0 : le_Vbi_ci=0.0;
4097 : 0 : le_Vbi_ei=0.0;
4098 : 0 : le_Vtnode_GND=0.0;
4099 : : #endif
4100 : 0 : le=1;
4101 : : }
4102 : : {
4103 [ # # ]: 0 : double m00_limexp(d00_limexp0,DIOY)
4104 : : #if defined(_DERIVATE)
4105 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
4106 : : #endif
4107 : : #if defined(_DERIVATE)
4108 : 0 : le_Vsi_ci=0.0;
4109 : 0 : le_Vbp_ci=0.0;
4110 : 0 : le_Vbp_ei=0.0;
4111 : 0 : le_Vbi_ci=0.0;
4112 : 0 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
4113 : 0 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
4114 : : #endif
4115 : 0 : le=(le*d00_limexp0);
4116 : : }
4117 : : #if defined(_DERIVATE)
4118 : 0 : irei_Vtnode_GND=((ireis_t_Vtnode_GND*(le-1.0))+(ireis_t*le_Vtnode_GND));
4119 : 0 : irei_Vbi_ei=(ireis_t*le_Vbi_ei);
4120 : : #endif
4121 : 0 : irei=(ireis_t*(le-1.0));
4122 [ # # ]: 0 : if
4123 : : (DIOY<=(-14.0))
4124 : : {
4125 : : #if defined(_DERIVATE)
4126 : 0 : irei_Vtnode_GND=(-ireis_t_Vtnode_GND);
4127 : 0 : irei_Vbi_ei=0.0;
4128 : : #endif
4129 : 0 : irei=(-ireis_t);
4130 : : }
4131 : : }
4132 : : else
4133 : : {
4134 : : #if defined(_DERIVATE)
4135 : 0 : irei_Vtnode_GND=0.0;
4136 : 0 : irei_Vbi_ei=0.0;
4137 : : #endif
4138 : 0 : irei=0.0;
4139 : : }
4140 : : #if defined(_DERIVATE)
4141 : 0 : Orci0_t_Vtnode_GND=(-rci0_t_Vtnode_GND/rci0_t/rci0_t);
4142 : : #endif
4143 : 0 : Orci0_t=(1.0/rci0_t);
4144 : 0 : Tr=tr;
4145 : : #if defined(_DERIVATE)
4146 : 0 : VT_f_Vtnode_GND=(mcf*VT_Vtnode_GND);
4147 : : #endif
4148 : 0 : VT_f=(mcf*VT);
4149 : : {
4150 [ # # ][ # # ]: 0 : double m00_limexp(d00_limexp0,(BP(bi,ei)/VT_f))
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # # #
# # # # ]
4151 : : #if defined(_DERIVATE)
4152 [ # # ][ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,(BP(bi,ei)/VT_f))
4153 : : #endif
4154 : : #if defined(_DERIVATE)
4155 [ # # ]: 0 : 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));
4156 : 0 : i_0f_Vbi_ei=(c10_t*(1/VT_f)*d10_limexp0);
4157 : : #endif
4158 : 0 : i_0f=(c10_t*d00_limexp0);
4159 : : }
4160 : : {
4161 [ # # ][ # # ]: 0 : double m00_limexp(d00_limexp0,(BP(bi,ci)/VT))
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # # #
# # # # ]
4162 : : #if defined(_DERIVATE)
4163 [ # # ][ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,(BP(bi,ci)/VT))
4164 : : #endif
4165 : : #if defined(_DERIVATE)
4166 [ # # ]: 0 : i_0r_Vtnode_GND=((c10_t_Vtnode_GND*d00_limexp0)+(c10_t*(-BP(bi,ci)*VT_Vtnode_GND/VT/VT)*d10_limexp0));
4167 : 0 : i_0r_Vbi_ci=(c10_t*(1/VT)*d10_limexp0);
4168 : : #endif
4169 : 0 : i_0r=(c10_t*d00_limexp0);
4170 : : }
4171 [ # # ]: 0 : if
4172 : : (cjei0_t>0.0)
4173 : : {
4174 : : {
4175 : 0 : double m00_logE(d00_logE0,ajei_t)
4176 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zei))
4177 : : #if defined(_DERIVATE)
4178 : 0 : double m10_logE(d10_logE0,d00_logE0,ajei_t)
4179 : : #define d10_exp1 d00_exp1
4180 : : #endif
4181 : : #if defined(_DERIVATE)
4182 : 0 : DFV_f_Vtnode_GND=((vdei_t_Vtnode_GND*(1.0-d00_exp1))+(vdei_t*(-((-ajei_t_Vtnode_GND*d10_logE0)/zei)*d10_exp1)));
4183 : : #endif
4184 : 0 : DFV_f=(vdei_t*(1.0-d00_exp1));
4185 : : }
4186 : : #if defined(_DERIVATE)
4187 : 0 : DFv_e_Vsi_ci=0.0;
4188 : 0 : DFv_e_Vb_ci=0.0;
4189 : 0 : DFv_e_Vbp_ci=0.0;
4190 : 0 : DFv_e_Vbp_ei=0.0;
4191 : 0 : DFv_e_Vbi_ci=0.0;
4192 [ # # ]: 0 : DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(bi,ei))*VT_Vtnode_GND)/VT/VT);
4193 : 0 : DFv_e_Vbi_ei=((-1.0)/VT);
4194 : : #endif
4195 [ # # ]: 0 : DFv_e=((DFV_f-BP(bi,ei))/VT);
4196 : : {
4197 : 0 : double m00_sqrt(d00_sqrt0,((DFv_e*DFv_e)+1.921812))
4198 : : #if defined(_DERIVATE)
4199 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((DFv_e*DFv_e)+1.921812))
4200 : : #endif
4201 : : #if defined(_DERIVATE)
4202 : 0 : DFs_q_Vsi_ci=0.0;
4203 : 0 : DFs_q_Vb_ci=0.0;
4204 : 0 : DFs_q_Vbp_ci=0.0;
4205 : 0 : DFs_q_Vbp_ei=0.0;
4206 : 0 : DFs_q_Vbi_ci=0.0;
4207 : 0 : DFs_q_Vtnode_GND=((DFv_e_Vtnode_GND*DFv_e)+(DFv_e*DFv_e_Vtnode_GND))*d10_sqrt0;
4208 : 0 : DFs_q_Vbi_ei=((DFv_e_Vbi_ei*DFv_e)+(DFv_e*DFv_e_Vbi_ei))*d10_sqrt0;
4209 : : #endif
4210 : 0 : DFs_q=d00_sqrt0;
4211 : : }
4212 : : #if defined(_DERIVATE)
4213 : 0 : DFs_q2_Vsi_ci=0.0;
4214 : 0 : DFs_q2_Vb_ci=0.0;
4215 : 0 : DFs_q2_Vbp_ci=0.0;
4216 : 0 : DFs_q2_Vbp_ei=0.0;
4217 : 0 : DFs_q2_Vbi_ci=0.0;
4218 : 0 : DFs_q2_Vtnode_GND=(DFv_e_Vtnode_GND+DFs_q_Vtnode_GND)*0.5;
4219 : 0 : DFs_q2_Vbi_ei=(DFv_e_Vbi_ei+DFs_q_Vbi_ei)*0.5;
4220 : : #endif
4221 : 0 : DFs_q2=((DFv_e+DFs_q)*0.5);
4222 : : #if defined(_DERIVATE)
4223 : 0 : DFv_j_Vsi_ci=0.0;
4224 : 0 : DFv_j_Vb_ci=0.0;
4225 : 0 : DFv_j_Vbp_ci=0.0;
4226 : 0 : DFv_j_Vbp_ei=0.0;
4227 : 0 : DFv_j_Vbi_ci=0.0;
4228 : 0 : DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*DFs_q2)+(VT*DFs_q2_Vtnode_GND)));
4229 : 0 : DFv_j_Vbi_ei=(-(VT*DFs_q2_Vbi_ei));
4230 : : #endif
4231 : 0 : DFv_j=(DFV_f-(VT*DFs_q2));
4232 : : #if defined(_DERIVATE)
4233 : 0 : DFdvj_dv_Vsi_ci=0.0;
4234 : 0 : DFdvj_dv_Vb_ci=0.0;
4235 : 0 : DFdvj_dv_Vbp_ci=0.0;
4236 : 0 : DFdvj_dv_Vbp_ei=0.0;
4237 : 0 : DFdvj_dv_Vbi_ci=0.0;
4238 : 0 : DFdvj_dv_Vtnode_GND=((DFs_q2_Vtnode_GND*DFs_q-DFs_q2*DFs_q_Vtnode_GND)/DFs_q/DFs_q);
4239 : 0 : DFdvj_dv_Vbi_ei=((DFs_q2_Vbi_ei*DFs_q-DFs_q2*DFs_q_Vbi_ei)/DFs_q/DFs_q);
4240 : : #endif
4241 : 0 : DFdvj_dv=(DFs_q2/DFs_q);
4242 : : {
4243 : 0 : double m00_logE(d00_logE0,(1.0-(DFv_j/vdei_t)))
4244 : : #if defined(_DERIVATE)
4245 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdei_t)))
4246 : : #endif
4247 : : #if defined(_DERIVATE)
4248 : 0 : DFb_Vsi_ci=0.0;
4249 : 0 : DFb_Vb_ci=0.0;
4250 : 0 : DFb_Vbp_ci=0.0;
4251 : 0 : DFb_Vbp_ei=0.0;
4252 : 0 : DFb_Vbi_ci=0.0;
4253 : 0 : DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdei_t-DFv_j*vdei_t_Vtnode_GND)/vdei_t/vdei_t))*d10_logE0;
4254 : 0 : DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdei_t))*d10_logE0;
4255 : : #endif
4256 : 0 : DFb=d00_logE0;
4257 : : }
4258 : : {
4259 : 0 : double m00_exp(d00_exp0,((-zei)*DFb))
4260 : : #if defined(_DERIVATE)
4261 : : #define d10_exp0 d00_exp0
4262 : : #endif
4263 : : #if defined(_DERIVATE)
4264 : 0 : DFC_j1_Vsi_ci=0.0;
4265 : 0 : DFC_j1_Vb_ci=0.0;
4266 : 0 : DFC_j1_Vbp_ci=0.0;
4267 : 0 : DFC_j1_Vbp_ei=0.0;
4268 : 0 : DFC_j1_Vbi_ci=0.0;
4269 : 0 : 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));
4270 : 0 : DFC_j1_Vbi_ei=(((cjei0_t*((-zei)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjei0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
4271 : : #endif
4272 : 0 : DFC_j1=((cjei0_t*d00_exp0)*DFdvj_dv);
4273 : : }
4274 : : #if defined(_DERIVATE)
4275 : 0 : Cjei_Vtnode_GND=(DFC_j1_Vtnode_GND+((((ajei_t_Vtnode_GND*cjei0_t)+(ajei_t*cjei0_t_Vtnode_GND))*(1.0-DFdvj_dv))+((ajei_t*cjei0_t)*(-DFdvj_dv_Vtnode_GND))));
4276 : 0 : Cjei_Vbi_ei=(DFC_j1_Vbi_ei+((ajei_t*cjei0_t)*(-DFdvj_dv_Vbi_ei)));
4277 : : #endif
4278 : 0 : Cjei=(DFC_j1+((ajei_t*cjei0_t)*(1.0-DFdvj_dv)));
4279 : : {
4280 : 0 : double m00_exp(d00_exp0,(DFb*(1.0-zei)))
4281 : : #if defined(_DERIVATE)
4282 : : #define d10_exp0 d00_exp0
4283 : : #endif
4284 : : #if defined(_DERIVATE)
4285 : 0 : DFQ_j_Vsi_ci=0.0;
4286 : 0 : DFQ_j_Vb_ci=0.0;
4287 : 0 : DFQ_j_Vbp_ci=0.0;
4288 : 0 : DFQ_j_Vbp_ei=0.0;
4289 : 0 : DFQ_j_Vbi_ci=0.0;
4290 : 0 : 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));
4291 : 0 : DFQ_j_Vbi_ei=(((cjei0_t*vdei_t)*(-DFb_Vbi_ei*(1.0-zei)*d10_exp0))/(1.0-zei));
4292 : : #endif
4293 : 0 : DFQ_j=(((cjei0_t*vdei_t)*(1.0-d00_exp0))/(1.0-zei));
4294 : : }
4295 : : #if defined(_DERIVATE)
4296 [ # # ]: 0 : Qjei_Vtnode_GND=(DFQ_j_Vtnode_GND+((((ajei_t_Vtnode_GND*cjei0_t)+(ajei_t*cjei0_t_Vtnode_GND))*(BP(bi,ei)-DFv_j))+((ajei_t*cjei0_t)*(-DFv_j_Vtnode_GND))));
4297 : 0 : Qjei_Vbi_ei=(DFQ_j_Vbi_ei+((ajei_t*cjei0_t)*(1.0-DFv_j_Vbi_ei)));
4298 : : #endif
4299 [ # # ]: 0 : Qjei=(DFQ_j+((ajei_t*cjei0_t)*(BP(bi,ei)-DFv_j)));
4300 : : }
4301 : : else
4302 : : {
4303 : : #if defined(_DERIVATE)
4304 : 0 : Cjei_Vtnode_GND=0.0;
4305 : 0 : Cjei_Vbi_ei=0.0;
4306 : : #endif
4307 : 0 : Cjei=0.0;
4308 : : #if defined(_DERIVATE)
4309 : 0 : Qjei_Vtnode_GND=0.0;
4310 : 0 : Qjei_Vbi_ei=0.0;
4311 : : #endif
4312 : 0 : Qjei=0.0;
4313 : : }
4314 [ # # ]: 0 : if
4315 : : (vptci_t<1.0e2)
4316 : : {
4317 [ # # ]: 0 : if
4318 : : (cjci0_t>0.0)
4319 : : {
4320 : 0 : Dz_r=(zci/4.0);
4321 : : #if defined(_DERIVATE)
4322 : 0 : Dv_p_Vtnode_GND=(vptci_t_Vtnode_GND-vdci_t_Vtnode_GND);
4323 : : #endif
4324 : 0 : Dv_p=(vptci_t-vdci_t);
4325 : : {
4326 : 0 : double m00_logE(d00_logE0,2.4)
4327 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zci))
4328 : : #if defined(_DERIVATE)
4329 : 0 : DV_f_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
4330 : : #endif
4331 : 0 : DV_f=(vdci_t*(1.0-d00_exp1));
4332 : : }
4333 : : #if defined(_DERIVATE)
4334 : 0 : DC_max_Vtnode_GND=(2.4*cjci0_t_Vtnode_GND);
4335 : : #endif
4336 : 0 : DC_max=(2.4*cjci0_t);
4337 : : {
4338 : 0 : double m00_logE(d00_logE0,(vptci_t/vdci_t))
4339 : 0 : double m00_exp(d00_exp1,((Dz_r-zci)*d00_logE0))
4340 : : #if defined(_DERIVATE)
4341 : 0 : double m10_logE(d10_logE0,d00_logE0,(vptci_t/vdci_t))
4342 : : #define d10_exp1 d00_exp1
4343 : : #endif
4344 : : #if defined(_DERIVATE)
4345 : 0 : DC_c_Vtnode_GND=((cjci0_t_Vtnode_GND*d00_exp1)+(cjci0_t*((Dz_r-zci)*((vptci_t_Vtnode_GND*vdci_t-vptci_t*vdci_t_Vtnode_GND)/vdci_t/vdci_t)*d10_logE0)*d10_exp1));
4346 : : #endif
4347 : 0 : DC_c=(cjci0_t*d00_exp1);
4348 : : }
4349 : : #if defined(_DERIVATE)
4350 : 0 : Dv_e_Vsi_ci=0.0;
4351 : 0 : Dv_e_Vb_ci=0.0;
4352 : 0 : Dv_e_Vbp_ci=0.0;
4353 [ # # ]: 0 : Dv_e_Vtnode_GND=((DV_f_Vtnode_GND*VT-(DV_f-BP(bi,ci))*VT_Vtnode_GND)/VT/VT);
4354 : 0 : Dv_e_Vbi_ci=((-1.0)/VT);
4355 : : #endif
4356 [ # # ]: 0 : Dv_e=((DV_f-BP(bi,ci))/VT);
4357 [ # # ]: 0 : if
4358 : : (Dv_e<80.0)
4359 : : {
4360 : : {
4361 : 0 : double m00_exp(d00_exp0,Dv_e)
4362 : : #if defined(_DERIVATE)
4363 : : #define d10_exp0 d00_exp0
4364 : : #endif
4365 : : #if defined(_DERIVATE)
4366 : 0 : De_Vsi_ci=0.0;
4367 : 0 : De_Vb_ci=0.0;
4368 : 0 : De_Vbp_ci=0.0;
4369 : 0 : De_Vtnode_GND=Dv_e_Vtnode_GND*d10_exp0;
4370 : 0 : De_Vbi_ci=Dv_e_Vbi_ci*d10_exp0;
4371 : : #endif
4372 : 0 : De=d00_exp0;
4373 : : }
4374 : : #if defined(_DERIVATE)
4375 : 0 : De_1_Vsi_ci=0.0;
4376 : 0 : De_1_Vb_ci=0.0;
4377 : 0 : De_1_Vbp_ci=0.0;
4378 : 0 : De_1_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
4379 : 0 : De_1_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
4380 : : #endif
4381 : 0 : De_1=(De/(1.0+De));
4382 : : {
4383 : 0 : double m00_logE(d00_logE0,(1.0+De))
4384 : : #if defined(_DERIVATE)
4385 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
4386 : : #endif
4387 : : #if defined(_DERIVATE)
4388 : 0 : Dv_j1_Vsi_ci=0.0;
4389 : 0 : Dv_j1_Vb_ci=0.0;
4390 : 0 : Dv_j1_Vbp_ci=0.0;
4391 : 0 : Dv_j1_Vtnode_GND=(DV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*De_Vtnode_GND*d10_logE0)));
4392 : 0 : Dv_j1_Vbi_ci=(-(VT*De_Vbi_ci*d10_logE0));
4393 : : #endif
4394 : 0 : Dv_j1=(DV_f-(VT*d00_logE0));
4395 : : }
4396 : : }
4397 : : else
4398 : : {
4399 : : #if defined(_DERIVATE)
4400 : 0 : De_1_Vsi_ci=0.0;
4401 : 0 : De_1_Vb_ci=0.0;
4402 : 0 : De_1_Vbp_ci=0.0;
4403 : 0 : De_1_Vtnode_GND=0.0;
4404 : 0 : De_1_Vbi_ci=0.0;
4405 : : #endif
4406 : 0 : De_1=1.0;
4407 : : #if defined(_DERIVATE)
4408 : 0 : Dv_j1_Vsi_ci=0.0;
4409 : 0 : Dv_j1_Vb_ci=0.0;
4410 : 0 : Dv_j1_Vbp_ci=0.0;
4411 : 0 : Dv_j1_Vtnode_GND=0.0;
4412 : 0 : Dv_j1_Vbi_ci=1.0;
4413 : : #endif
4414 [ # # ]: 0 : Dv_j1=BP(bi,ci);
4415 : : }
4416 : : #if defined(_DERIVATE)
4417 : 0 : Da_Vtnode_GND=((0.1*Dv_p_Vtnode_GND)+(4.0*VT_Vtnode_GND));
4418 : : #endif
4419 : 0 : Da=((0.1*Dv_p)+(4.0*VT));
4420 : : #if defined(_DERIVATE)
4421 : 0 : Dv_r_Vsi_ci=0.0;
4422 : 0 : Dv_r_Vb_ci=0.0;
4423 : 0 : Dv_r_Vbp_ci=0.0;
4424 : 0 : Dv_r_Vtnode_GND=(((Dv_p_Vtnode_GND+Dv_j1_Vtnode_GND)*Da-(Dv_p+Dv_j1)*Da_Vtnode_GND)/Da/Da);
4425 : 0 : Dv_r_Vbi_ci=(Dv_j1_Vbi_ci/Da);
4426 : : #endif
4427 : 0 : Dv_r=((Dv_p+Dv_j1)/Da);
4428 [ # # ]: 0 : if
4429 : : (Dv_r<80.0)
4430 : : {
4431 : : {
4432 : 0 : double m00_exp(d00_exp0,Dv_r)
4433 : : #if defined(_DERIVATE)
4434 : : #define d10_exp0 d00_exp0
4435 : : #endif
4436 : : #if defined(_DERIVATE)
4437 : 0 : De_Vsi_ci=0.0;
4438 : 0 : De_Vb_ci=0.0;
4439 : 0 : De_Vbp_ci=0.0;
4440 : 0 : De_Vtnode_GND=Dv_r_Vtnode_GND*d10_exp0;
4441 : 0 : De_Vbi_ci=Dv_r_Vbi_ci*d10_exp0;
4442 : : #endif
4443 : 0 : De=d00_exp0;
4444 : : }
4445 : : #if defined(_DERIVATE)
4446 : 0 : De_2_Vsi_ci=0.0;
4447 : 0 : De_2_Vb_ci=0.0;
4448 : 0 : De_2_Vbp_ci=0.0;
4449 : 0 : De_2_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
4450 : 0 : De_2_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
4451 : : #endif
4452 : 0 : De_2=(De/(1.0+De));
4453 : : {
4454 : 0 : double m00_logE(d00_logE0,(1.0+De))
4455 : : #if defined(_DERIVATE)
4456 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
4457 : : #endif
4458 : : #if defined(_DERIVATE)
4459 : 0 : Dv_j2_Vsi_ci=0.0;
4460 : 0 : Dv_j2_Vb_ci=0.0;
4461 : 0 : Dv_j2_Vbp_ci=0.0;
4462 : 0 : Dv_j2_Vtnode_GND=((-Dv_p_Vtnode_GND)+((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
4463 : 0 : Dv_j2_Vbi_ci=(Da*De_Vbi_ci*d10_logE0);
4464 : : #endif
4465 : 0 : Dv_j2=((-Dv_p)+(Da*d00_logE0));
4466 : : }
4467 : : }
4468 : : else
4469 : : {
4470 : : #if defined(_DERIVATE)
4471 : 0 : De_2_Vsi_ci=0.0;
4472 : 0 : De_2_Vb_ci=0.0;
4473 : 0 : De_2_Vbp_ci=0.0;
4474 : 0 : De_2_Vtnode_GND=0.0;
4475 : 0 : De_2_Vbi_ci=0.0;
4476 : : #endif
4477 : 0 : De_2=1.0;
4478 : : #if defined(_DERIVATE)
4479 : 0 : Dv_j2_Vsi_ci=0.0;
4480 : 0 : Dv_j2_Vb_ci=0.0;
4481 : 0 : Dv_j2_Vbp_ci=0.0;
4482 : 0 : Dv_j2_Vtnode_GND=Dv_j1_Vtnode_GND;
4483 : 0 : Dv_j2_Vbi_ci=Dv_j1_Vbi_ci;
4484 : : #endif
4485 : 0 : Dv_j2=Dv_j1;
4486 : : }
4487 : : #if defined(_DERIVATE)
4488 : 0 : Dv_j4_Vsi_ci=0.0;
4489 : 0 : Dv_j4_Vb_ci=0.0;
4490 : 0 : Dv_j4_Vbp_ci=0.0;
4491 : 0 : Dv_j4_Vbi_ci=(1.0-Dv_j1_Vbi_ci);
4492 : 0 : Dv_j4_Vtnode_GND=(-Dv_j1_Vtnode_GND);
4493 : : #endif
4494 [ # # ]: 0 : Dv_j4=(BP(bi,ci)-Dv_j1);
4495 : : {
4496 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j1/vdci_t)))
4497 : : #if defined(_DERIVATE)
4498 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j1/vdci_t)))
4499 : : #endif
4500 : : #if defined(_DERIVATE)
4501 : 0 : DCln1_Vsi_ci=0.0;
4502 : 0 : DCln1_Vb_ci=0.0;
4503 : 0 : DCln1_Vbp_ci=0.0;
4504 : 0 : DCln1_Vtnode_GND=(-((Dv_j1_Vtnode_GND*vdci_t-Dv_j1*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
4505 : 0 : DCln1_Vbi_ci=(-(Dv_j1_Vbi_ci/vdci_t))*d10_logE0;
4506 : : #endif
4507 : 0 : DCln1=d00_logE0;
4508 : : }
4509 : : {
4510 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j2/vdci_t)))
4511 : : #if defined(_DERIVATE)
4512 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j2/vdci_t)))
4513 : : #endif
4514 : : #if defined(_DERIVATE)
4515 : 0 : DCln2_Vsi_ci=0.0;
4516 : 0 : DCln2_Vb_ci=0.0;
4517 : 0 : DCln2_Vbp_ci=0.0;
4518 : 0 : DCln2_Vtnode_GND=(-((Dv_j2_Vtnode_GND*vdci_t-Dv_j2*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
4519 : 0 : DCln2_Vbi_ci=(-(Dv_j2_Vbi_ci/vdci_t))*d10_logE0;
4520 : : #endif
4521 : 0 : DCln2=d00_logE0;
4522 : : }
4523 : 0 : Dz1=(1.0-zci);
4524 : 0 : Dzr1=(1.0-Dz_r);
4525 : : {
4526 : 0 : double m00_exp(d00_exp0,(DCln2*(-zci)))
4527 : : #if defined(_DERIVATE)
4528 : : #define d10_exp0 d00_exp0
4529 : : #endif
4530 : : #if defined(_DERIVATE)
4531 : 0 : DC_j1_Vsi_ci=0.0;
4532 : 0 : DC_j1_Vb_ci=0.0;
4533 : 0 : DC_j1_Vbp_ci=0.0;
4534 : 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));
4535 : 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));
4536 : : #endif
4537 : 0 : DC_j1=(((cjci0_t*d00_exp0)*De_1)*De_2);
4538 : : }
4539 : : {
4540 : 0 : double m00_exp(d00_exp0,(DCln1*(-Dz_r)))
4541 : : #if defined(_DERIVATE)
4542 : : #define d10_exp0 d00_exp0
4543 : : #endif
4544 : : #if defined(_DERIVATE)
4545 : 0 : DC_j2_Vsi_ci=0.0;
4546 : 0 : DC_j2_Vb_ci=0.0;
4547 : 0 : DC_j2_Vbp_ci=0.0;
4548 : 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)));
4549 : 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)));
4550 : : #endif
4551 : 0 : DC_j2=((DC_c*d00_exp0)*(1.0-De_2));
4552 : : }
4553 : : #if defined(_DERIVATE)
4554 : 0 : DC_j3_Vsi_ci=0.0;
4555 : 0 : DC_j3_Vb_ci=0.0;
4556 : 0 : DC_j3_Vbp_ci=0.0;
4557 : 0 : DC_j3_Vtnode_GND=((DC_max_Vtnode_GND*(1.0-De_1))+(DC_max*(-De_1_Vtnode_GND)));
4558 : 0 : DC_j3_Vbi_ci=(DC_max*(-De_1_Vbi_ci));
4559 : : #endif
4560 : 0 : DC_j3=(DC_max*(1.0-De_1));
4561 : : #if defined(_DERIVATE)
4562 : 0 : Cjci_Vbi_ei=0.0;
4563 : 0 : Cjci_Vtnode_GND=((DC_j1_Vtnode_GND+DC_j2_Vtnode_GND)+DC_j3_Vtnode_GND);
4564 : 0 : Cjci_Vbi_ci=((DC_j1_Vbi_ci+DC_j2_Vbi_ci)+DC_j3_Vbi_ci);
4565 : : #endif
4566 : 0 : Cjci=((DC_j1+DC_j2)+DC_j3);
4567 : : {
4568 : 0 : double m00_exp(d00_exp0,(DCln2*Dz1))
4569 : : #if defined(_DERIVATE)
4570 : : #define d10_exp0 d00_exp0
4571 : : #endif
4572 : : #if defined(_DERIVATE)
4573 : 0 : DQ_j1_Vsi_ci=0.0;
4574 : 0 : DQ_j1_Vb_ci=0.0;
4575 : 0 : DQ_j1_Vbp_ci=0.0;
4576 : 0 : DQ_j1_Vtnode_GND=(((cjci0_t_Vtnode_GND*(1.0-d00_exp0))+(cjci0_t*(-DCln2_Vtnode_GND*Dz1*d10_exp0)))/Dz1);
4577 : 0 : DQ_j1_Vbi_ci=((cjci0_t*(-DCln2_Vbi_ci*Dz1*d10_exp0))/Dz1);
4578 : : #endif
4579 : 0 : DQ_j1=((cjci0_t*(1.0-d00_exp0))/Dz1);
4580 : : }
4581 : : {
4582 : 0 : double m00_exp(d00_exp0,(DCln1*Dzr1))
4583 : : #if defined(_DERIVATE)
4584 : : #define d10_exp0 d00_exp0
4585 : : #endif
4586 : : #if defined(_DERIVATE)
4587 : 0 : DQ_j2_Vsi_ci=0.0;
4588 : 0 : DQ_j2_Vb_ci=0.0;
4589 : 0 : DQ_j2_Vbp_ci=0.0;
4590 : 0 : DQ_j2_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln1_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
4591 : 0 : DQ_j2_Vbi_ci=((DC_c*(-DCln1_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
4592 : : #endif
4593 : 0 : DQ_j2=((DC_c*(1.0-d00_exp0))/Dzr1);
4594 : : }
4595 : : {
4596 : 0 : double m00_exp(d00_exp0,(DCln2*Dzr1))
4597 : : #if defined(_DERIVATE)
4598 : : #define d10_exp0 d00_exp0
4599 : : #endif
4600 : : #if defined(_DERIVATE)
4601 : 0 : DQ_j3_Vsi_ci=0.0;
4602 : 0 : DQ_j3_Vb_ci=0.0;
4603 : 0 : DQ_j3_Vbp_ci=0.0;
4604 : 0 : DQ_j3_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln2_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
4605 : 0 : DQ_j3_Vbi_ci=((DC_c*(-DCln2_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
4606 : : #endif
4607 : 0 : DQ_j3=((DC_c*(1.0-d00_exp0))/Dzr1);
4608 : : }
4609 : : #if defined(_DERIVATE)
4610 : 0 : Qjci_Vbi_ei=0.0;
4611 : 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)));
4612 : 0 : Qjci_Vbi_ci=(((DQ_j1_Vbi_ci+DQ_j2_Vbi_ci)-DQ_j3_Vbi_ci)*vdci_t+(DC_max*Dv_j4_Vbi_ci));
4613 : : #endif
4614 : 0 : Qjci=((((DQ_j1+DQ_j2)-DQ_j3)*vdci_t)+(DC_max*Dv_j4));
4615 : : }
4616 : : else
4617 : : {
4618 : : #if defined(_DERIVATE)
4619 : 0 : Cjci_Vbi_ei=0.0;
4620 : 0 : Cjci_Vtnode_GND=0.0;
4621 : 0 : Cjci_Vbi_ci=0.0;
4622 : : #endif
4623 : 0 : Cjci=0.0;
4624 : : #if defined(_DERIVATE)
4625 : 0 : Qjci_Vbi_ei=0.0;
4626 : 0 : Qjci_Vtnode_GND=0.0;
4627 : 0 : Qjci_Vbi_ci=0.0;
4628 : : #endif
4629 : 0 : Qjci=0.0;
4630 : : }
4631 : : }
4632 : : else
4633 : : {
4634 [ # # ]: 0 : if
4635 : : (cjci0_t>0.0)
4636 : : {
4637 : : {
4638 : 0 : double m00_logE(d00_logE0,2.4)
4639 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zci))
4640 : : #if defined(_DERIVATE)
4641 : 0 : DFV_f_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
4642 : : #endif
4643 : 0 : DFV_f=(vdci_t*(1.0-d00_exp1));
4644 : : }
4645 : : #if defined(_DERIVATE)
4646 : 0 : DFv_e_Vsi_ci=0.0;
4647 : 0 : DFv_e_Vb_ci=0.0;
4648 : 0 : DFv_e_Vbp_ci=0.0;
4649 : 0 : DFv_e_Vbp_ei=0.0;
4650 : 0 : DFv_e_Vbi_ci=((-1.0)/VT);
4651 [ # # ]: 0 : DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(bi,ci))*VT_Vtnode_GND)/VT/VT);
4652 : 0 : DFv_e_Vbi_ei=0.0;
4653 : : #endif
4654 [ # # ]: 0 : DFv_e=((DFV_f-BP(bi,ci))/VT);
4655 : : {
4656 : 0 : double m00_sqrt(d00_sqrt0,((DFv_e*DFv_e)+1.921812))
4657 : : #if defined(_DERIVATE)
4658 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((DFv_e*DFv_e)+1.921812))
4659 : : #endif
4660 : : #if defined(_DERIVATE)
4661 : 0 : DFs_q_Vsi_ci=0.0;
4662 : 0 : DFs_q_Vb_ci=0.0;
4663 : 0 : DFs_q_Vbp_ci=0.0;
4664 : 0 : DFs_q_Vbp_ei=0.0;
4665 : 0 : DFs_q_Vbi_ci=((DFv_e_Vbi_ci*DFv_e)+(DFv_e*DFv_e_Vbi_ci))*d10_sqrt0;
4666 : 0 : DFs_q_Vtnode_GND=((DFv_e_Vtnode_GND*DFv_e)+(DFv_e*DFv_e_Vtnode_GND))*d10_sqrt0;
4667 : 0 : DFs_q_Vbi_ei=((DFv_e_Vbi_ei*DFv_e)+(DFv_e*DFv_e_Vbi_ei))*d10_sqrt0;
4668 : : #endif
4669 : 0 : DFs_q=d00_sqrt0;
4670 : : }
4671 : : #if defined(_DERIVATE)
4672 : 0 : DFs_q2_Vsi_ci=0.0;
4673 : 0 : DFs_q2_Vb_ci=0.0;
4674 : 0 : DFs_q2_Vbp_ci=0.0;
4675 : 0 : DFs_q2_Vbp_ei=0.0;
4676 : 0 : DFs_q2_Vbi_ci=(DFv_e_Vbi_ci+DFs_q_Vbi_ci)*0.5;
4677 : 0 : DFs_q2_Vtnode_GND=(DFv_e_Vtnode_GND+DFs_q_Vtnode_GND)*0.5;
4678 : 0 : DFs_q2_Vbi_ei=(DFv_e_Vbi_ei+DFs_q_Vbi_ei)*0.5;
4679 : : #endif
4680 : 0 : DFs_q2=((DFv_e+DFs_q)*0.5);
4681 : : #if defined(_DERIVATE)
4682 : 0 : DFv_j_Vsi_ci=0.0;
4683 : 0 : DFv_j_Vb_ci=0.0;
4684 : 0 : DFv_j_Vbp_ci=0.0;
4685 : 0 : DFv_j_Vbp_ei=0.0;
4686 : 0 : DFv_j_Vbi_ci=(-(VT*DFs_q2_Vbi_ci));
4687 : 0 : DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*DFs_q2)+(VT*DFs_q2_Vtnode_GND)));
4688 : 0 : DFv_j_Vbi_ei=(-(VT*DFs_q2_Vbi_ei));
4689 : : #endif
4690 : 0 : DFv_j=(DFV_f-(VT*DFs_q2));
4691 : : #if defined(_DERIVATE)
4692 : 0 : DFdvj_dv_Vsi_ci=0.0;
4693 : 0 : DFdvj_dv_Vb_ci=0.0;
4694 : 0 : DFdvj_dv_Vbp_ci=0.0;
4695 : 0 : DFdvj_dv_Vbp_ei=0.0;
4696 : 0 : DFdvj_dv_Vbi_ci=((DFs_q2_Vbi_ci*DFs_q-DFs_q2*DFs_q_Vbi_ci)/DFs_q/DFs_q);
4697 : 0 : DFdvj_dv_Vtnode_GND=((DFs_q2_Vtnode_GND*DFs_q-DFs_q2*DFs_q_Vtnode_GND)/DFs_q/DFs_q);
4698 : 0 : DFdvj_dv_Vbi_ei=((DFs_q2_Vbi_ei*DFs_q-DFs_q2*DFs_q_Vbi_ei)/DFs_q/DFs_q);
4699 : : #endif
4700 : 0 : DFdvj_dv=(DFs_q2/DFs_q);
4701 : : {
4702 : 0 : double m00_logE(d00_logE0,(1.0-(DFv_j/vdci_t)))
4703 : : #if defined(_DERIVATE)
4704 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdci_t)))
4705 : : #endif
4706 : : #if defined(_DERIVATE)
4707 : 0 : DFb_Vsi_ci=0.0;
4708 : 0 : DFb_Vb_ci=0.0;
4709 : 0 : DFb_Vbp_ci=0.0;
4710 : 0 : DFb_Vbp_ei=0.0;
4711 : 0 : DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdci_t))*d10_logE0;
4712 : 0 : DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdci_t-DFv_j*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
4713 : 0 : DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdci_t))*d10_logE0;
4714 : : #endif
4715 : 0 : DFb=d00_logE0;
4716 : : }
4717 : : {
4718 : 0 : double m00_exp(d00_exp0,((-zci)*DFb))
4719 : : #if defined(_DERIVATE)
4720 : : #define d10_exp0 d00_exp0
4721 : : #endif
4722 : : #if defined(_DERIVATE)
4723 : 0 : DFC_j1_Vsi_ci=0.0;
4724 : 0 : DFC_j1_Vb_ci=0.0;
4725 : 0 : DFC_j1_Vbp_ci=0.0;
4726 : 0 : DFC_j1_Vbp_ei=0.0;
4727 : 0 : DFC_j1_Vbi_ci=(((cjci0_t*((-zci)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjci0_t*d00_exp0)*DFdvj_dv_Vbi_ci));
4728 : 0 : 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));
4729 : 0 : DFC_j1_Vbi_ei=(((cjci0_t*((-zci)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjci0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
4730 : : #endif
4731 : 0 : DFC_j1=((cjci0_t*d00_exp0)*DFdvj_dv);
4732 : : }
4733 : : #if defined(_DERIVATE)
4734 : 0 : Cjci_Vbi_ei=(DFC_j1_Vbi_ei+((2.4*cjci0_t)*(-DFdvj_dv_Vbi_ei)));
4735 : 0 : Cjci_Vtnode_GND=(DFC_j1_Vtnode_GND+(((2.4*cjci0_t_Vtnode_GND)*(1.0-DFdvj_dv))+((2.4*cjci0_t)*(-DFdvj_dv_Vtnode_GND))));
4736 : 0 : Cjci_Vbi_ci=(DFC_j1_Vbi_ci+((2.4*cjci0_t)*(-DFdvj_dv_Vbi_ci)));
4737 : : #endif
4738 : 0 : Cjci=(DFC_j1+((2.4*cjci0_t)*(1.0-DFdvj_dv)));
4739 : : {
4740 : 0 : double m00_exp(d00_exp0,(DFb*(1.0-zci)))
4741 : : #if defined(_DERIVATE)
4742 : : #define d10_exp0 d00_exp0
4743 : : #endif
4744 : : #if defined(_DERIVATE)
4745 : 0 : DFQ_j_Vsi_ci=0.0;
4746 : 0 : DFQ_j_Vb_ci=0.0;
4747 : 0 : DFQ_j_Vbp_ci=0.0;
4748 : 0 : DFQ_j_Vbp_ei=0.0;
4749 : 0 : DFQ_j_Vbi_ci=(((cjci0_t*vdci_t)*(-DFb_Vbi_ci*(1.0-zci)*d10_exp0))/(1.0-zci));
4750 : 0 : 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));
4751 : 0 : DFQ_j_Vbi_ei=(((cjci0_t*vdci_t)*(-DFb_Vbi_ei*(1.0-zci)*d10_exp0))/(1.0-zci));
4752 : : #endif
4753 : 0 : DFQ_j=(((cjci0_t*vdci_t)*(1.0-d00_exp0))/(1.0-zci));
4754 : : }
4755 : : #if defined(_DERIVATE)
4756 : 0 : Qjci_Vbi_ei=(DFQ_j_Vbi_ei+((2.4*cjci0_t)*(-DFv_j_Vbi_ei)));
4757 [ # # ]: 0 : Qjci_Vtnode_GND=(DFQ_j_Vtnode_GND+(((2.4*cjci0_t_Vtnode_GND)*(BP(bi,ci)-DFv_j))+((2.4*cjci0_t)*(-DFv_j_Vtnode_GND))));
4758 : 0 : Qjci_Vbi_ci=(DFQ_j_Vbi_ci+((2.4*cjci0_t)*(1.0-DFv_j_Vbi_ci)));
4759 : : #endif
4760 [ # # ]: 0 : Qjci=(DFQ_j+((2.4*cjci0_t)*(BP(bi,ci)-DFv_j)));
4761 : : }
4762 : : else
4763 : : {
4764 : : #if defined(_DERIVATE)
4765 : 0 : Cjci_Vbi_ei=0.0;
4766 : 0 : Cjci_Vtnode_GND=0.0;
4767 : 0 : Cjci_Vbi_ci=0.0;
4768 : : #endif
4769 : 0 : Cjci=0.0;
4770 : : #if defined(_DERIVATE)
4771 : 0 : Qjci_Vbi_ei=0.0;
4772 : 0 : Qjci_Vtnode_GND=0.0;
4773 : 0 : Qjci_Vbi_ci=0.0;
4774 : : #endif
4775 : 0 : Qjci=0.0;
4776 : : }
4777 : : }
4778 : 0 : a_bpt=0.05;
4779 : : #if defined(_DERIVATE)
4780 : 0 : Q_0_Vtnode_GND=((qp0_t_Vtnode_GND+(hjei*Qjei_Vtnode_GND))+(hjci*Qjci_Vtnode_GND));
4781 : 0 : Q_0_Vbi_ei=((hjei*Qjei_Vbi_ei)+(hjci*Qjci_Vbi_ei));
4782 : 0 : Q_0_Vbi_ci=(hjci*Qjci_Vbi_ci);
4783 : : #endif
4784 : 0 : Q_0=((qp0_t+(hjei*Qjei))+(hjci*Qjci));
4785 : : #if defined(_DERIVATE)
4786 : 0 : Q_bpt_Vtnode_GND=(a_bpt*qp0_t_Vtnode_GND);
4787 : : #endif
4788 : 0 : Q_bpt=(a_bpt*qp0_t);
4789 : : #if defined(_DERIVATE)
4790 : 0 : b_q_Vtnode_GND=((Q_0_Vtnode_GND*Q_bpt-Q_0*Q_bpt_Vtnode_GND)/Q_bpt/Q_bpt);
4791 : 0 : b_q_Vbi_ei=(Q_0_Vbi_ei/Q_bpt);
4792 : 0 : b_q_Vbi_ci=(Q_0_Vbi_ci/Q_bpt);
4793 : : #endif
4794 : 0 : b_q=((Q_0/Q_bpt)-1);
4795 : : {
4796 : 0 : double m00_sqrt(d00_sqrt0,((b_q*b_q)+1.921812))
4797 : : #if defined(_DERIVATE)
4798 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((b_q*b_q)+1.921812))
4799 : : #endif
4800 : : #if defined(_DERIVATE)
4801 : 0 : Q_0_Vtnode_GND=((Q_bpt_Vtnode_GND*(1+((b_q+d00_sqrt0)/2)))+(Q_bpt*((b_q_Vtnode_GND+((b_q_Vtnode_GND*b_q)+(b_q*b_q_Vtnode_GND))*d10_sqrt0)/2)));
4802 : 0 : Q_0_Vbi_ei=(Q_bpt*((b_q_Vbi_ei+((b_q_Vbi_ei*b_q)+(b_q*b_q_Vbi_ei))*d10_sqrt0)/2));
4803 : 0 : Q_0_Vbi_ci=(Q_bpt*((b_q_Vbi_ci+((b_q_Vbi_ci*b_q)+(b_q*b_q_Vbi_ci))*d10_sqrt0)/2));
4804 : : #endif
4805 : 0 : Q_0=(Q_bpt*(1+((b_q+d00_sqrt0)/2)));
4806 : : }
4807 [ # # ]: 0 : if
4808 : : (cjci0_t>0.0)
4809 : : {
4810 : : double cV_f;
4811 : : double cv_e;
4812 : : double cs_q;
4813 : : double cs_q2;
4814 : : double cv_j;
4815 : : double cdvj_dv;
4816 : : #if defined(_DERIVATE)
4817 : : double cV_f_Vtnode_GND;
4818 : : #endif
4819 : : #if defined(_DERIVATE)
4820 : : double cv_e_Vtnode_GND;
4821 : : #endif
4822 : : #if defined(_DERIVATE)
4823 : : double cv_e_Vbi_ci;
4824 : : #endif
4825 : : #if defined(_DERIVATE)
4826 : : double cs_q_Vtnode_GND;
4827 : : #endif
4828 : : #if defined(_DERIVATE)
4829 : : double cs_q_Vbi_ci;
4830 : : #endif
4831 : : #if defined(_DERIVATE)
4832 : : double cs_q2_Vtnode_GND;
4833 : : #endif
4834 : : #if defined(_DERIVATE)
4835 : : double cs_q2_Vbi_ci;
4836 : : #endif
4837 : : #if defined(_DERIVATE)
4838 : : double cv_j_Vtnode_GND;
4839 : : #endif
4840 : : #if defined(_DERIVATE)
4841 : : double cv_j_Vbi_ci;
4842 : : #endif
4843 : : #if defined(_DERIVATE)
4844 : : double cdvj_dv_Vtnode_GND;
4845 : : #endif
4846 : : #if defined(_DERIVATE)
4847 : : double cdvj_dv_Vbi_ci;
4848 : : #endif
4849 : : {
4850 : 0 : double m00_logE(d00_logE0,2.4)
4851 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zci))
4852 : : #if defined(_DERIVATE)
4853 : 0 : cV_f_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
4854 : : #endif
4855 : 0 : cV_f=(vdci_t*(1.0-d00_exp1));
4856 : : }
4857 : : #if defined(_DERIVATE)
4858 [ # # ]: 0 : cv_e_Vtnode_GND=((cV_f_Vtnode_GND*VT-(cV_f-BP(bi,ci))*VT_Vtnode_GND)/VT/VT);
4859 : 0 : cv_e_Vbi_ci=((-1.0)/VT);
4860 : : #endif
4861 [ # # ]: 0 : cv_e=((cV_f-BP(bi,ci))/VT);
4862 : : {
4863 : 0 : double m00_sqrt(d00_sqrt0,((cv_e*cv_e)+1.921812))
4864 : : #if defined(_DERIVATE)
4865 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((cv_e*cv_e)+1.921812))
4866 : : #endif
4867 : : #if defined(_DERIVATE)
4868 : 0 : cs_q_Vtnode_GND=((cv_e_Vtnode_GND*cv_e)+(cv_e*cv_e_Vtnode_GND))*d10_sqrt0;
4869 : 0 : cs_q_Vbi_ci=((cv_e_Vbi_ci*cv_e)+(cv_e*cv_e_Vbi_ci))*d10_sqrt0;
4870 : : #endif
4871 : 0 : cs_q=d00_sqrt0;
4872 : : }
4873 : : #if defined(_DERIVATE)
4874 : 0 : cs_q2_Vtnode_GND=(cv_e_Vtnode_GND+cs_q_Vtnode_GND)*0.5;
4875 : 0 : cs_q2_Vbi_ci=(cv_e_Vbi_ci+cs_q_Vbi_ci)*0.5;
4876 : : #endif
4877 : 0 : cs_q2=((cv_e+cs_q)*0.5);
4878 : : #if defined(_DERIVATE)
4879 : 0 : cv_j_Vtnode_GND=(cV_f_Vtnode_GND-((VT_Vtnode_GND*cs_q2)+(VT*cs_q2_Vtnode_GND)));
4880 : 0 : cv_j_Vbi_ci=(-(VT*cs_q2_Vbi_ci));
4881 : : #endif
4882 : 0 : cv_j=(cV_f-(VT*cs_q2));
4883 : : #if defined(_DERIVATE)
4884 : 0 : cdvj_dv_Vtnode_GND=((cs_q2_Vtnode_GND*cs_q-cs_q2*cs_q_Vtnode_GND)/cs_q/cs_q);
4885 : 0 : cdvj_dv_Vbi_ci=((cs_q2_Vbi_ci*cs_q-cs_q2*cs_q_Vbi_ci)/cs_q/cs_q);
4886 : : #endif
4887 : 0 : cdvj_dv=(cs_q2/cs_q);
4888 : : {
4889 : 0 : double m00_logE(d00_logE0,(1.0-(cv_j/vdci_t)))
4890 : 0 : double m00_exp(d00_exp1,((-zci)*d00_logE0))
4891 : : #if defined(_DERIVATE)
4892 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(cv_j/vdci_t)))
4893 : : #define d10_exp1 d00_exp1
4894 : : #endif
4895 : : #if defined(_DERIVATE)
4896 : 0 : Cjcit_Vtnode_GND=(((((cjci0_t_Vtnode_GND*d00_exp1)+(cjci0_t*((-zci)*(-((cv_j_Vtnode_GND*vdci_t-cv_j*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0)*d10_exp1))*cdvj_dv)+((cjci0_t*d00_exp1)*cdvj_dv_Vtnode_GND))+(((2.4*cjci0_t_Vtnode_GND)*(1.0-cdvj_dv))+((2.4*cjci0_t)*(-cdvj_dv_Vtnode_GND))));
4897 : 0 : Cjcit_Vbi_ci=((((cjci0_t*((-zci)*(-(cv_j_Vbi_ci/vdci_t))*d10_logE0)*d10_exp1)*cdvj_dv)+((cjci0_t*d00_exp1)*cdvj_dv_Vbi_ci))+((2.4*cjci0_t)*(-cdvj_dv_Vbi_ci)));
4898 : : #endif
4899 : 0 : Cjcit=(((cjci0_t*d00_exp1)*cdvj_dv)+((2.4*cjci0_t)*(1.0-cdvj_dv)));
4900 : : }
4901 : : }
4902 : : else
4903 : : {
4904 : : #if defined(_DERIVATE)
4905 : 0 : Cjcit_Vtnode_GND=0.0;
4906 : 0 : Cjcit_Vbi_ci=0.0;
4907 : : #endif
4908 : 0 : Cjcit=0.0;
4909 : : }
4910 [ # # ]: 0 : if
4911 : : (Cjcit>0.0)
4912 : : {
4913 : : #if defined(_DERIVATE)
4914 : 0 : cc_Vtnode_GND=((cjci0_t_Vtnode_GND*Cjcit-cjci0_t*Cjcit_Vtnode_GND)/Cjcit/Cjcit);
4915 : 0 : cc_Vbi_ci=(-cjci0_t*Cjcit_Vbi_ci/Cjcit/Cjcit);
4916 : : #endif
4917 : 0 : cc=(cjci0_t/Cjcit);
4918 : : }
4919 : : else
4920 : : {
4921 : : #if defined(_DERIVATE)
4922 : 0 : cc_Vtnode_GND=0.0;
4923 : 0 : cc_Vbi_ci=0.0;
4924 : : #endif
4925 : 0 : cc=1.0;
4926 : : }
4927 : : #if defined(_DERIVATE)
4928 : 0 : T_f0_Vtnode_GND=((t0_t_Vtnode_GND+(dt0h*cc_Vtnode_GND))+(tbvl*(-1*cc_Vtnode_GND/cc/cc)));
4929 : 0 : T_f0_Vbi_ci=((dt0h*cc_Vbi_ci)+(tbvl*(-1*cc_Vbi_ci/cc/cc)));
4930 : : #endif
4931 : 0 : T_f0=((t0_t+(dt0h*(cc-1.0)))+(tbvl*((1/cc)-1.0)));
4932 : : #if defined(_DERIVATE)
4933 : 0 : vc_Vci_ei=1.0;
4934 : 0 : vc_Vtnode_GND=(-vces_t_Vtnode_GND);
4935 : : #endif
4936 [ # # ]: 0 : vc=(BP(ci,ei)-vces_t);
4937 : : {
4938 : 0 : Ovpt=(1.0/vpt);
4939 : : #if defined(_DERIVATE)
4940 : 0 : a_Vbi_ei=0.0;
4941 : 0 : a_Vbi_ci=0.0;
4942 : 0 : a_Vci_ei=(vc_Vci_ei/VT);
4943 : 0 : a_Vtnode_GND=((vc_Vtnode_GND*VT-vc*VT_Vtnode_GND)/VT/VT);
4944 : : #endif
4945 : 0 : a=(vc/VT);
4946 : : #if defined(_DERIVATE)
4947 : 0 : d1_Vci_ei=a_Vci_ei;
4948 : 0 : d1_Vtnode_GND=a_Vtnode_GND;
4949 : : #endif
4950 : 0 : d1=(a-1);
4951 : : {
4952 : 0 : double m00_sqrt(d00_sqrt0,((d1*d1)+1.921812))
4953 : : #if defined(_DERIVATE)
4954 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((d1*d1)+1.921812))
4955 : : #endif
4956 : : #if defined(_DERIVATE)
4957 : 0 : vceff_Vci_ei=((d1_Vci_ei+((d1_Vci_ei*d1)+(d1*d1_Vci_ei))*d10_sqrt0)/2)*VT;
4958 : 0 : vceff_Vtnode_GND=((((d1_Vtnode_GND+((d1_Vtnode_GND*d1)+(d1*d1_Vtnode_GND))*d10_sqrt0)/2)*VT)+((1.0+((d1+d00_sqrt0)/2))*VT_Vtnode_GND));
4959 : : #endif
4960 : 0 : vceff=((1.0+((d1+d00_sqrt0)/2))*VT);
4961 : : }
4962 : : #if defined(_DERIVATE)
4963 : 0 : a_Vbi_ei=0.0;
4964 : 0 : a_Vbi_ci=0.0;
4965 : 0 : a_Vci_ei=(vceff_Vci_ei/vlim_t);
4966 : 0 : a_Vtnode_GND=((vceff_Vtnode_GND*vlim_t-vceff*vlim_t_Vtnode_GND)/vlim_t/vlim_t);
4967 : : #endif
4968 : 0 : a=(vceff/vlim_t);
4969 : : {
4970 : 0 : double m00_sqrt(d00_sqrt0,(1.0+(a*a)))
4971 : : #if defined(_DERIVATE)
4972 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,(1.0+(a*a)))
4973 : : #endif
4974 : : #if defined(_DERIVATE)
4975 : 0 : ick_Vci_ei=((vceff_Vci_ei*Orci0_t*d00_sqrt0-(vceff*Orci0_t)*((a_Vci_ei*a)+(a*a_Vci_ei))*d10_sqrt0)/d00_sqrt0/d00_sqrt0);
4976 : 0 : ick_Vtnode_GND=((((vceff_Vtnode_GND*Orci0_t)+(vceff*Orci0_t_Vtnode_GND))*d00_sqrt0-(vceff*Orci0_t)*((a_Vtnode_GND*a)+(a*a_Vtnode_GND))*d10_sqrt0)/d00_sqrt0/d00_sqrt0);
4977 : : #endif
4978 : 0 : ick=((vceff*Orci0_t)/d00_sqrt0);
4979 : : }
4980 : : #if defined(_DERIVATE)
4981 : 0 : ICKa_Vci_ei=vceff_Vci_ei*Ovpt;
4982 : 0 : ICKa_Vtnode_GND=(vceff_Vtnode_GND-vlim_t_Vtnode_GND)*Ovpt;
4983 : : #endif
4984 : 0 : ICKa=((vceff-vlim_t)*Ovpt);
4985 : : {
4986 : 0 : double m00_sqrt(d00_sqrt0,((ICKa*ICKa)+1.0e-3))
4987 : : #if defined(_DERIVATE)
4988 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((ICKa*ICKa)+1.0e-3))
4989 : : #endif
4990 : : #if defined(_DERIVATE)
4991 : 0 : 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))));
4992 : 0 : 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))));
4993 : : #endif
4994 : 0 : ick=(ick*(1.0+(0.5*(ICKa+d00_sqrt0))));
4995 : : }
4996 : : }
4997 : : #if defined(_DERIVATE)
4998 : 0 : Q_p_Vtnode_GND=Q_0_Vtnode_GND;
4999 : 0 : Q_p_Vbi_ei=Q_0_Vbi_ei;
5000 : 0 : Q_p_Vbi_ci=Q_0_Vbi_ci;
5001 : : #endif
5002 : 0 : Q_p=Q_0;
5003 [ # # ][ # # ]: 0 : if
5004 : : ((T_f0>0.0)||(Tr>0.0))
5005 : : {
5006 : : #if defined(_DERIVATE)
5007 : 0 : A_Vtnode_GND=(0.5*Q_0_Vtnode_GND);
5008 : 0 : A_Vbi_ei=(0.5*Q_0_Vbi_ei);
5009 : 0 : A_Vbi_ci=(0.5*Q_0_Vbi_ci);
5010 : : #endif
5011 : 0 : A=(0.5*Q_0);
5012 : : {
5013 : 0 : double m00_sqrt(d00_sqrt0,(((A*A)+(T_f0*i_0f))+(Tr*i_0r)))
5014 : : #if defined(_DERIVATE)
5015 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,(((A*A)+(T_f0*i_0f))+(Tr*i_0r)))
5016 : : #endif
5017 : : #if defined(_DERIVATE)
5018 : 0 : 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);
5019 : 0 : Q_p_Vbi_ei=(A_Vbi_ei+(((A_Vbi_ei*A)+(A*A_Vbi_ei))+(T_f0*i_0f_Vbi_ei))*d10_sqrt0);
5020 : 0 : 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);
5021 : : #endif
5022 : 0 : Q_p=(A+d00_sqrt0);
5023 : : }
5024 : : }
5025 : : #if defined(_DERIVATE)
5026 : 0 : I_Tf1_Vci_ei=0.0;
5027 : 0 : I_Tf1_Vtnode_GND=((i_0f_Vtnode_GND*Q_p-i_0f*Q_p_Vtnode_GND)/Q_p/Q_p);
5028 : 0 : I_Tf1_Vbi_ei=((i_0f_Vbi_ei*Q_p-i_0f*Q_p_Vbi_ei)/Q_p/Q_p);
5029 : 0 : I_Tf1_Vbi_ci=(-i_0f*Q_p_Vbi_ci/Q_p/Q_p);
5030 : : #endif
5031 : 0 : I_Tf1=(i_0f/Q_p);
5032 : : #if defined(_DERIVATE)
5033 : 0 : a_h_Vci_ei=0.0;
5034 : 0 : a_h_Vtnode_GND=(Oich*I_Tf1_Vtnode_GND);
5035 : 0 : a_h_Vbi_ei=(Oich*I_Tf1_Vbi_ei);
5036 : 0 : a_h_Vbi_ci=(Oich*I_Tf1_Vbi_ci);
5037 : : #endif
5038 : 0 : a_h=(Oich*I_Tf1);
5039 : : #if defined(_DERIVATE)
5040 : 0 : itf_Vci_ei=0.0;
5041 : 0 : itf_Vtnode_GND=((I_Tf1_Vtnode_GND*(1.0+a_h))+(I_Tf1*a_h_Vtnode_GND));
5042 : 0 : itf_Vbi_ei=((I_Tf1_Vbi_ei*(1.0+a_h))+(I_Tf1*a_h_Vbi_ei));
5043 : 0 : itf_Vbi_ci=((I_Tf1_Vbi_ci*(1.0+a_h))+(I_Tf1*a_h_Vbi_ci));
5044 : : #endif
5045 : 0 : itf=(I_Tf1*(1.0+a_h));
5046 : : #if defined(_DERIVATE)
5047 : 0 : itr_Vci_ei=0.0;
5048 : 0 : itr_Vtnode_GND=((i_0r_Vtnode_GND*Q_p-i_0r*Q_p_Vtnode_GND)/Q_p/Q_p);
5049 : 0 : itr_Vbi_ci=((i_0r_Vbi_ci*Q_p-i_0r*Q_p_Vbi_ci)/Q_p/Q_p);
5050 : 0 : itr_Vbi_ei=(-i_0r*Q_p_Vbi_ei/Q_p/Q_p);
5051 : : #endif
5052 : 0 : itr=(i_0r/Q_p);
5053 : : #if defined(_DERIVATE)
5054 : 0 : Q_bf_Vtnode_GND=0.0;
5055 : 0 : Q_bf_Vbi_ei=0.0;
5056 : 0 : Q_bf_Vbi_ci=0.0;
5057 : 0 : Q_bf_Vci_ei=0.0;
5058 : : #endif
5059 : 0 : Q_bf=0.0;
5060 : : #if defined(_DERIVATE)
5061 : 0 : Tf_Vci_ei=0.0;
5062 : 0 : Tf_Vbi_ei=0.0;
5063 : 0 : Tf_Vtnode_GND=T_f0_Vtnode_GND;
5064 : 0 : Tf_Vbi_ci=T_f0_Vbi_ci;
5065 : : #endif
5066 : 0 : Tf=T_f0;
5067 : : #if defined(_DERIVATE)
5068 : 0 : Qf_Vci_ei=0.0;
5069 : 0 : Qf_Vtnode_GND=((T_f0_Vtnode_GND*itf)+(T_f0*itf_Vtnode_GND));
5070 : 0 : Qf_Vbi_ci=((T_f0_Vbi_ci*itf)+(T_f0*itf_Vbi_ci));
5071 : 0 : Qf_Vbi_ei=(T_f0*itf_Vbi_ei);
5072 : : #endif
5073 : 0 : Qf=(T_f0*itf);
5074 [ # # ]: 0 : if
5075 : : (itf<(1.0e-6*ick))
5076 : : {
5077 : : #if defined(_DERIVATE)
5078 : 0 : Q_fT_Vci_ei=0.0;
5079 : 0 : Q_fT_Vtnode_GND=Qf_Vtnode_GND;
5080 : 0 : Q_fT_Vbi_ci=Qf_Vbi_ci;
5081 : 0 : Q_fT_Vbi_ei=Qf_Vbi_ei;
5082 : : #endif
5083 : 0 : Q_fT=Qf;
5084 : : #if defined(_DERIVATE)
5085 : 0 : T_fT_Vci_ei=0.0;
5086 : 0 : T_fT_Vbi_ei=0.0;
5087 : 0 : T_fT_Vtnode_GND=Tf_Vtnode_GND;
5088 : 0 : T_fT_Vbi_ci=Tf_Vbi_ci;
5089 : : #endif
5090 : 0 : T_fT=Tf;
5091 : : }
5092 : : else
5093 : : {
5094 : : #if defined(_DERIVATE)
5095 : 0 : FFa_Vci_ei=((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf);
5096 : 0 : FFa_Vtnode_GND=((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf);
5097 : 0 : FFa_Vbi_ei=(-ick*itf_Vbi_ei/itf/itf);
5098 : 0 : FFa_Vbi_ci=(-ick*itf_Vbi_ci/itf/itf);
5099 : : #endif
5100 : 0 : FFa=(ick/itf);
5101 : : {
5102 : 0 : double m00_logE(d00_logE0,FFa)
5103 : 0 : double m00_exp(d00_exp1,((-gtfe)*d00_logE0))
5104 : : #if defined(_DERIVATE)
5105 : 0 : double m10_logE(d10_logE0,d00_logE0,FFa)
5106 : : #define d10_exp1 d00_exp1
5107 : : #endif
5108 : : #if defined(_DERIVATE)
5109 : 0 : FFd_TfE_Vtnode_GND=((tef0_t_Vtnode_GND*d00_exp1)+(tef0_t*((-gtfe)*FFa_Vtnode_GND*d10_logE0)*d10_exp1));
5110 : 0 : FFd_TfE_Vci_ei=(tef0_t*((-gtfe)*FFa_Vci_ei*d10_logE0)*d10_exp1);
5111 : 0 : FFd_TfE_Vbi_ei=(tef0_t*((-gtfe)*FFa_Vbi_ei*d10_logE0)*d10_exp1);
5112 : 0 : FFd_TfE_Vbi_ci=(tef0_t*((-gtfe)*FFa_Vbi_ci*d10_logE0)*d10_exp1);
5113 : : #endif
5114 : 0 : FFd_TfE=(tef0_t*d00_exp1);
5115 : : }
5116 : : #if defined(_DERIVATE)
5117 : 0 : FFd_QfE_Vtnode_GND=(((FFd_TfE_Vtnode_GND*itf)+(FFd_TfE*itf_Vtnode_GND))/(gtfe+1.0));
5118 : 0 : FFd_QfE_Vci_ei=(((FFd_TfE_Vci_ei*itf)+(FFd_TfE*itf_Vci_ei))/(gtfe+1.0));
5119 : 0 : FFd_QfE_Vbi_ei=(((FFd_TfE_Vbi_ei*itf)+(FFd_TfE*itf_Vbi_ei))/(gtfe+1.0));
5120 : 0 : FFd_QfE_Vbi_ci=(((FFd_TfE_Vbi_ci*itf)+(FFd_TfE*itf_Vbi_ci))/(gtfe+1.0));
5121 : : #endif
5122 : 0 : FFd_QfE=((FFd_TfE*itf)/(gtfe+1.0));
5123 : : #if defined(_DERIVATE)
5124 : 0 : FFT_fbS_Vtnode_GND=((1.0-fthc)*thcs_t_Vtnode_GND);
5125 : : #endif
5126 : 0 : FFT_fbS=((1.0-fthc)*thcs_t);
5127 : : #if defined(_DERIVATE)
5128 : 0 : FFx_Vci_ei=(-FFa_Vci_ei);
5129 : 0 : FFx_Vtnode_GND=(-FFa_Vtnode_GND);
5130 : 0 : FFx_Vbi_ei=(-FFa_Vbi_ei);
5131 : 0 : FFx_Vbi_ci=(-FFa_Vbi_ci);
5132 : : #endif
5133 : 0 : FFx=(1.0-FFa);
5134 : : {
5135 : 0 : double m00_sqrt(d00_sqrt0,((FFx*FFx)+ahc))
5136 : : #if defined(_DERIVATE)
5137 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFx*FFx)+ahc))
5138 : : #endif
5139 : : #if defined(_DERIVATE)
5140 : 0 : FFs_Vci_ei=((FFx_Vci_ei*FFx)+(FFx*FFx_Vci_ei))*d10_sqrt0;
5141 : 0 : FFs_Vtnode_GND=((FFx_Vtnode_GND*FFx)+(FFx*FFx_Vtnode_GND))*d10_sqrt0;
5142 : 0 : FFs_Vbi_ei=((FFx_Vbi_ei*FFx)+(FFx*FFx_Vbi_ei))*d10_sqrt0;
5143 : 0 : FFs_Vbi_ci=((FFx_Vbi_ci*FFx)+(FFx*FFx_Vbi_ci))*d10_sqrt0;
5144 : : #endif
5145 : 0 : FFs=d00_sqrt0;
5146 : : }
5147 : : {
5148 : 0 : double m00_sqrt(d00_sqrt0,(1.0+ahc))
5149 : : #if defined(_DERIVATE)
5150 : 0 : FFw_Vci_ei=((FFx_Vci_ei+FFs_Vci_ei)/(1.0+d00_sqrt0));
5151 : 0 : FFw_Vtnode_GND=((FFx_Vtnode_GND+FFs_Vtnode_GND)/(1.0+d00_sqrt0));
5152 : 0 : FFw_Vbi_ei=((FFx_Vbi_ei+FFs_Vbi_ei)/(1.0+d00_sqrt0));
5153 : 0 : FFw_Vbi_ci=((FFx_Vbi_ci+FFs_Vbi_ci)/(1.0+d00_sqrt0));
5154 : : #endif
5155 : 0 : FFw=((FFx+FFs)/(1.0+d00_sqrt0));
5156 : : }
5157 : : #if defined(_DERIVATE)
5158 : 0 : FFw_2_Vci_ei=((FFw_Vci_ei*FFw)+(FFw*FFw_Vci_ei));
5159 : 0 : FFw_2_Vtnode_GND=((FFw_Vtnode_GND*FFw)+(FFw*FFw_Vtnode_GND));
5160 : 0 : FFw_2_Vbi_ei=((FFw_Vbi_ei*FFw)+(FFw*FFw_Vbi_ei));
5161 : 0 : FFw_2_Vbi_ci=((FFw_Vbi_ci*FFw)+(FFw*FFw_Vbi_ci));
5162 : : #endif
5163 : 0 : FFw_2=(FFw*FFw);
5164 : : #if defined(_DERIVATE)
5165 : 0 : FFd_QfB_Vtnode_GND=((((FFT_fbS_Vtnode_GND*itf)+(FFT_fbS*itf_Vtnode_GND))*FFw_2)+((FFT_fbS*itf)*FFw_2_Vtnode_GND));
5166 : 0 : FFd_QfB_Vbi_ei=(((FFT_fbS*itf_Vbi_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ei));
5167 : 0 : FFd_QfB_Vbi_ci=(((FFT_fbS*itf_Vbi_ci)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ci));
5168 : 0 : FFd_QfB_Vci_ei=(((FFT_fbS*itf_Vci_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vci_ei));
5169 : : #endif
5170 : 0 : FFd_QfB=((FFT_fbS*itf)*FFw_2);
5171 : : #if defined(_DERIVATE)
5172 : 0 : Q_bf_Vtnode_GND=FFd_QfB_Vtnode_GND;
5173 : 0 : Q_bf_Vbi_ei=FFd_QfB_Vbi_ei;
5174 : 0 : Q_bf_Vbi_ci=FFd_QfB_Vbi_ci;
5175 : 0 : Q_bf_Vci_ei=FFd_QfB_Vci_ei;
5176 : : #endif
5177 : 0 : Q_bf=FFd_QfB;
5178 : : #if defined(_DERIVATE)
5179 : 0 : 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)));
5180 : 0 : 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)));
5181 : 0 : 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)));
5182 : 0 : 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)));
5183 : : #endif
5184 : 0 : FFa_w=(FFw_2*(1.0+((2.0*FFa)/FFs)));
5185 : : #if defined(_DERIVATE)
5186 : 0 : FFd_TfB_Vtnode_GND=((FFT_fbS_Vtnode_GND*FFa_w)+(FFT_fbS*FFa_w_Vtnode_GND));
5187 : 0 : FFd_TfB_Vci_ei=(FFT_fbS*FFa_w_Vci_ei);
5188 : 0 : FFd_TfB_Vbi_ei=(FFT_fbS*FFa_w_Vbi_ei);
5189 : 0 : FFd_TfB_Vbi_ci=(FFT_fbS*FFa_w_Vbi_ci);
5190 : : #endif
5191 : 0 : FFd_TfB=(FFT_fbS*FFa_w);
5192 : : #if defined(_DERIVATE)
5193 : 0 : FFT_pcS_Vtnode_GND=(fthc*thcs_t_Vtnode_GND);
5194 : : #endif
5195 : 0 : FFT_pcS=(fthc*thcs_t);
5196 [ # # ][ # # ]: 0 : if
5197 : : ((latb<=0.0)&&(latl<=0.0))
5198 : : {
5199 : : #if defined(_DERIVATE)
5200 : 0 : FFQ_fC_Vtnode_GND=((((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND))*FFw_2)+((FFT_pcS*itf)*FFw_2_Vtnode_GND));
5201 : 0 : FFQ_fC_Vbi_ei=(((FFT_pcS*itf_Vbi_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ei));
5202 : 0 : FFQ_fC_Vbi_ci=(((FFT_pcS*itf_Vbi_ci)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ci));
5203 : 0 : FFQ_fC_Vci_ei=(((FFT_pcS*itf_Vci_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vci_ei));
5204 : : #endif
5205 : 0 : FFQ_fC=((FFT_pcS*itf)*FFw_2);
5206 : : #if defined(_DERIVATE)
5207 : 0 : FFT_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*FFa_w)+(FFT_pcS*FFa_w_Vtnode_GND));
5208 : 0 : FFT_fC_Vci_ei=(FFT_pcS*FFa_w_Vci_ei);
5209 : 0 : FFT_fC_Vbi_ei=(FFT_pcS*FFa_w_Vbi_ei);
5210 : 0 : FFT_fC_Vbi_ci=(FFT_pcS*FFa_w_Vbi_ci);
5211 : : #endif
5212 : 0 : FFT_fC=(FFT_pcS*FFa_w);
5213 : : #if defined(_DERIVATE)
5214 : 0 : FFQ_cT_Vtnode_GND=FFQ_fC_Vtnode_GND;
5215 : 0 : FFQ_cT_Vbi_ei=FFQ_fC_Vbi_ei;
5216 : 0 : FFQ_cT_Vbi_ci=FFQ_fC_Vbi_ci;
5217 : 0 : FFQ_cT_Vci_ei=FFQ_fC_Vci_ei;
5218 : : #endif
5219 : 0 : FFQ_cT=FFQ_fC;
5220 : : #if defined(_DERIVATE)
5221 : 0 : FFT_cT_Vtnode_GND=FFT_fC_Vtnode_GND;
5222 : 0 : FFT_cT_Vci_ei=FFT_fC_Vci_ei;
5223 : 0 : FFT_cT_Vbi_ei=FFT_fC_Vbi_ei;
5224 : 0 : FFT_cT_Vbi_ci=FFT_fC_Vbi_ci;
5225 : : #endif
5226 : 0 : FFT_cT=FFT_fC;
5227 : : }
5228 : : else
5229 : : {
5230 : : #if defined(_DERIVATE)
5231 : 0 : FFQ_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND));
5232 : 0 : FFQ_fC_Vbi_ei=(FFT_pcS*itf_Vbi_ei);
5233 : 0 : FFQ_fC_Vbi_ci=(FFT_pcS*itf_Vbi_ci);
5234 : 0 : FFQ_fC_Vci_ei=0.0;
5235 : : #endif
5236 : 0 : FFQ_fC=(FFT_pcS*itf);
5237 : : #if defined(_DERIVATE)
5238 : 0 : FCa_Vci_ei=(-((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf));
5239 : 0 : FCa_Vtnode_GND=(-((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf));
5240 : 0 : FCa_Vbi_ei=(-(-ick*itf_Vbi_ei/itf/itf));
5241 : 0 : FCa_Vbi_ci=(-(-ick*itf_Vbi_ci/itf/itf));
5242 : : #endif
5243 : 0 : FCa=(1.0-(ick/itf));
5244 : : {
5245 : 0 : double m00_sqrt(d00_sqrt0,((FCa*FCa)+ahc))
5246 : : #if defined(_DERIVATE)
5247 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FCa*FCa)+ahc))
5248 : : #endif
5249 : : #if defined(_DERIVATE)
5250 : 0 : FCrt_Vci_ei=((FCa_Vci_ei*FCa)+(FCa*FCa_Vci_ei))*d10_sqrt0;
5251 : 0 : FCrt_Vtnode_GND=((FCa_Vtnode_GND*FCa)+(FCa*FCa_Vtnode_GND))*d10_sqrt0;
5252 : 0 : FCrt_Vbi_ei=((FCa_Vbi_ei*FCa)+(FCa*FCa_Vbi_ei))*d10_sqrt0;
5253 : 0 : FCrt_Vbi_ci=((FCa_Vbi_ci*FCa)+(FCa*FCa_Vbi_ci))*d10_sqrt0;
5254 : : #endif
5255 : 0 : FCrt=d00_sqrt0;
5256 : : }
5257 : : {
5258 : 0 : double m00_sqrt(d00_sqrt0,(1.0+ahc))
5259 : : #if defined(_DERIVATE)
5260 : 0 : FCa_ck_Vci_ei=(-((FCa_Vci_ei+FCrt_Vci_ei)/(1.0+d00_sqrt0)));
5261 : 0 : FCa_ck_Vtnode_GND=(-((FCa_Vtnode_GND+FCrt_Vtnode_GND)/(1.0+d00_sqrt0)));
5262 : 0 : FCa_ck_Vbi_ei=(-((FCa_Vbi_ei+FCrt_Vbi_ei)/(1.0+d00_sqrt0)));
5263 : 0 : FCa_ck_Vbi_ci=(-((FCa_Vbi_ci+FCrt_Vbi_ci)/(1.0+d00_sqrt0)));
5264 : : #endif
5265 : 0 : FCa_ck=(1.0-((FCa+FCrt)/(1.0+d00_sqrt0)));
5266 : : }
5267 : : #if defined(_DERIVATE)
5268 : 0 : 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));
5269 : 0 : 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));
5270 : 0 : 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));
5271 : 0 : 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));
5272 : : #endif
5273 : 0 : FCdaick_ditf=(((FCa_ck-1.0)*(1-FCa))/(FCrt*itf));
5274 [ # # ]: 0 : if
5275 : : (latb>latl)
5276 : : {
5277 : : #if defined(_DERIVATE)
5278 : 0 : FCz_Vci_ei=0.0;
5279 : 0 : FCz_Vtnode_GND=0.0;
5280 : 0 : FCz_Vbi_ei=0.0;
5281 : 0 : FCz_Vbi_ci=0.0;
5282 : : #endif
5283 : 0 : FCz=(latb-latl);
5284 : 0 : FCxl=(1.0+latl);
5285 : 0 : FCxb=(1.0+latb);
5286 [ # # ]: 0 : if
5287 : : (latb>0.01)
5288 : : {
5289 : : {
5290 : 0 : double m00_logE(d00_logE0,(FCxb/FCxl))
5291 : 0 : FCln=d00_logE0;
5292 : : }
5293 : : {
5294 : 0 : double m00_exp(d00_exp0,((FCa_ck-1.0)*FCln))
5295 : : #if defined(_DERIVATE)
5296 : : #define d10_exp0 d00_exp0
5297 : : #endif
5298 : : #if defined(_DERIVATE)
5299 : 0 : FCa1_Vci_ei=FCa_ck_Vci_ei*FCln*d10_exp0;
5300 : 0 : FCa1_Vtnode_GND=FCa_ck_Vtnode_GND*FCln*d10_exp0;
5301 : 0 : FCa1_Vbi_ei=FCa_ck_Vbi_ei*FCln*d10_exp0;
5302 : 0 : FCa1_Vbi_ci=FCa_ck_Vbi_ci*FCln*d10_exp0;
5303 : : #endif
5304 : 0 : FCa1=d00_exp0;
5305 : : }
5306 : : #if defined(_DERIVATE)
5307 : 0 : FCd_a_Vci_ei=(-(-FCa1_Vci_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
5308 : 0 : FCd_a_Vtnode_GND=(-(-FCa1_Vtnode_GND*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
5309 : 0 : FCd_a_Vbi_ei=(-(-FCa1_Vbi_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
5310 : 0 : FCd_a_Vbi_ci=(-(-FCa1_Vbi_ci*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
5311 : : #endif
5312 : 0 : FCd_a=(1.0/(latl-(FCa1*latb)));
5313 : : #if defined(_DERIVATE)
5314 : 0 : FCw_Vci_ei=((FCa1_Vci_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vci_ei));
5315 : 0 : FCw_Vtnode_GND=((FCa1_Vtnode_GND*FCd_a)+((FCa1-1.0)*FCd_a_Vtnode_GND));
5316 : 0 : FCw_Vbi_ei=((FCa1_Vbi_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ei));
5317 : 0 : FCw_Vbi_ci=((FCa1_Vbi_ci*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ci));
5318 : : #endif
5319 : 0 : FCw=((FCa1-1.0)*FCd_a);
5320 : : #if defined(_DERIVATE)
5321 : 0 : 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));
5322 : 0 : 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));
5323 : 0 : 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));
5324 : 0 : 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));
5325 : : #endif
5326 : 0 : FCdw_daick=(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a);
5327 : : {
5328 : 0 : double m00_logE(d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
5329 : : #if defined(_DERIVATE)
5330 : 0 : double m10_logE(d10_logE0,d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
5331 : : #endif
5332 : : #if defined(_DERIVATE)
5333 : 0 : FCa1_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;
5334 : 0 : FCa1_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;
5335 : 0 : FCa1_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;
5336 : 0 : FCa1_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;
5337 : : #endif
5338 : 0 : FCa1=d00_logE0;
5339 : : }
5340 : : #if defined(_DERIVATE)
5341 : 0 : 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))));
5342 : 0 : 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))));
5343 : 0 : 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))));
5344 : 0 : 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))));
5345 : : #endif
5346 : 0 : FCda1_dw=((latb/(1.0+(latb*FCw)))-(latl/(1.0+(latl*FCw))));
5347 : : }
5348 : : else
5349 : : {
5350 : : #if defined(_DERIVATE)
5351 : 0 : FCf1_Vci_ei=(-FCa_ck_Vci_ei);
5352 : 0 : FCf1_Vtnode_GND=(-FCa_ck_Vtnode_GND);
5353 : 0 : FCf1_Vbi_ei=(-FCa_ck_Vbi_ei);
5354 : 0 : FCf1_Vbi_ci=(-FCa_ck_Vbi_ci);
5355 : : #endif
5356 : 0 : FCf1=(1.0-FCa_ck);
5357 : : #if defined(_DERIVATE)
5358 : 0 : FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5359 : 0 : FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5360 : 0 : FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5361 : 0 : FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5362 : : #endif
5363 : 0 : FCd_a=(1.0/(1.0+(FCa_ck*latb)));
5364 : : #if defined(_DERIVATE)
5365 : 0 : FCw_Vci_ei=((FCf1_Vci_ei*FCd_a)+(FCf1*FCd_a_Vci_ei));
5366 : 0 : FCw_Vtnode_GND=((FCf1_Vtnode_GND*FCd_a)+(FCf1*FCd_a_Vtnode_GND));
5367 : 0 : FCw_Vbi_ei=((FCf1_Vbi_ei*FCd_a)+(FCf1*FCd_a_Vbi_ei));
5368 : 0 : FCw_Vbi_ci=((FCf1_Vbi_ci*FCd_a)+(FCf1*FCd_a_Vbi_ci));
5369 : : #endif
5370 : 0 : FCw=(FCf1*FCd_a);
5371 : : #if defined(_DERIVATE)
5372 : 0 : FCdw_daick_Vci_ei=((((((-1.0)*FCd_a_Vci_ei)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vci_ei))*FCxb*FCd_a)+(((((-1.0)*FCd_a)*FCd_a)*FCxb)*FCd_a_Vci_ei));
5373 : 0 : FCdw_daick_Vtnode_GND=((((((-1.0)*FCd_a_Vtnode_GND)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vtnode_GND))*FCxb*FCd_a)+(((((-1.0)*FCd_a)*FCd_a)*FCxb)*FCd_a_Vtnode_GND));
5374 : 0 : FCdw_daick_Vbi_ei=((((((-1.0)*FCd_a_Vbi_ei)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vbi_ei))*FCxb*FCd_a)+(((((-1.0)*FCd_a)*FCd_a)*FCxb)*FCd_a_Vbi_ei));
5375 : 0 : FCdw_daick_Vbi_ci=((((((-1.0)*FCd_a_Vbi_ci)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vbi_ci))*FCxb*FCd_a)+(((((-1.0)*FCd_a)*FCd_a)*FCxb)*FCd_a_Vbi_ci));
5376 : : #endif
5377 : 0 : FCdw_daick=(((((-1.0)*FCd_a)*FCd_a)*FCxb)*FCd_a);
5378 : : #if defined(_DERIVATE)
5379 : 0 : FCa1_Vci_ei=((FCz_Vci_ei*FCw)+(FCz*FCw_Vci_ei));
5380 : 0 : FCa1_Vtnode_GND=((FCz_Vtnode_GND*FCw)+(FCz*FCw_Vtnode_GND));
5381 : 0 : FCa1_Vbi_ei=((FCz_Vbi_ei*FCw)+(FCz*FCw_Vbi_ei));
5382 : 0 : FCa1_Vbi_ci=((FCz_Vbi_ci*FCw)+(FCz*FCw_Vbi_ci));
5383 : : #endif
5384 : 0 : FCa1=(FCz*FCw);
5385 : : #if defined(_DERIVATE)
5386 : 0 : FCda1_dw_Vci_ei=0.0;
5387 : 0 : FCda1_dw_Vtnode_GND=0.0;
5388 : 0 : FCda1_dw_Vbi_ei=0.0;
5389 : 0 : FCda1_dw_Vbi_ci=0.0;
5390 : : #endif
5391 : 0 : FCda1_dw=FCz;
5392 : : }
5393 : : #if defined(_DERIVATE)
5394 : 0 : FCf_CT_Vbi_ei=0.0;
5395 : 0 : FCf_CT_Vbi_ci=0.0;
5396 : 0 : FCf_CT_Vci_ei=0.0;
5397 : 0 : FCf_CT_Vtnode_GND=0.0;
5398 : : #endif
5399 : 0 : FCf_CT=(2.0/FCz);
5400 : : #if defined(_DERIVATE)
5401 : 0 : FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
5402 : 0 : FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
5403 : 0 : FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
5404 : 0 : FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
5405 : : #endif
5406 : 0 : FCw2=(FCw*FCw);
5407 : : #if defined(_DERIVATE)
5408 : 0 : 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);
5409 : 0 : 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);
5410 : 0 : 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);
5411 : 0 : 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);
5412 : : #endif
5413 : 0 : FCf1=((((((latb*latl)*FCw)*FCw2)/3.0)+(((latb+latl)*FCw2)/2.0))+FCw);
5414 : : #if defined(_DERIVATE)
5415 : 0 : FCdf1_dw_Vci_ei=(((latb*latl)*FCw2_Vci_ei)+((latb+latl)*FCw_Vci_ei));
5416 : 0 : FCdf1_dw_Vtnode_GND=(((latb*latl)*FCw2_Vtnode_GND)+((latb+latl)*FCw_Vtnode_GND));
5417 : 0 : FCdf1_dw_Vbi_ei=(((latb*latl)*FCw2_Vbi_ei)+((latb+latl)*FCw_Vbi_ei));
5418 : 0 : FCdf1_dw_Vbi_ci=(((latb*latl)*FCw2_Vbi_ci)+((latb+latl)*FCw_Vbi_ci));
5419 : : #endif
5420 : 0 : FCdf1_dw=((((latb*latl)*FCw2)+((latb+latl)*FCw))+1.0);
5421 : : #if defined(_DERIVATE)
5422 : 0 : z_Vci_ei=(latb*FCw_Vci_ei);
5423 : 0 : z_Vtnode_GND=(latb*FCw_Vtnode_GND);
5424 : 0 : z_Vbi_ei=(latb*FCw_Vbi_ei);
5425 : 0 : z_Vbi_ci=(latb*FCw_Vbi_ci);
5426 : : #endif
5427 : 0 : z=(latb*FCw);
5428 : : {
5429 : 0 : double m00_logE(d00_logE0,(1+(latb*FCw)))
5430 : : #if defined(_DERIVATE)
5431 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latb*FCw)))
5432 : : #endif
5433 : : #if defined(_DERIVATE)
5434 : 0 : lnzb_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
5435 : 0 : lnzb_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
5436 : 0 : lnzb_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
5437 : 0 : lnzb_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
5438 : : #endif
5439 : 0 : lnzb=d00_logE0;
5440 : : }
5441 [ # # ]: 0 : if
5442 : : (z>1.0e-6)
5443 : : {
5444 : : #if defined(_DERIVATE)
5445 : 0 : x_Vci_ei=z_Vci_ei;
5446 : 0 : x_Vtnode_GND=z_Vtnode_GND;
5447 : 0 : x_Vbi_ei=z_Vbi_ei;
5448 : 0 : x_Vbi_ci=z_Vbi_ci;
5449 : : #endif
5450 : 0 : x=(1.0+z);
5451 : : #if defined(_DERIVATE)
5452 : 0 : a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
5453 : 0 : a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
5454 : 0 : a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
5455 : 0 : a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
5456 : : #endif
5457 : 0 : a=(x*x);
5458 : : #if defined(_DERIVATE)
5459 : 0 : a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ei))));
5460 : 0 : a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ci))));
5461 : 0 : a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vci_ei))));
5462 : 0 : a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vtnode_GND))));
5463 : : #endif
5464 : 0 : a2=(0.250*((a*((2.0*lnzb)-1.0))+1.0));
5465 : : #if defined(_DERIVATE)
5466 : 0 : a3_Vbi_ei=(((((a_Vbi_ei*x)+(a*x_Vbi_ei))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vbi_ei)))/9.0);
5467 : 0 : a3_Vbi_ci=(((((a_Vbi_ci*x)+(a*x_Vbi_ci))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vbi_ci)))/9.0);
5468 : 0 : a3_Vci_ei=(((((a_Vci_ei*x)+(a*x_Vci_ei))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vci_ei)))/9.0);
5469 : 0 : a3_Vtnode_GND=(((((a_Vtnode_GND*x)+(a*x_Vtnode_GND))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vtnode_GND)))/9.0);
5470 : : #endif
5471 : 0 : a3=((((a*x)*((3.0*lnzb)-1.0))+1.0)/9.0);
5472 : 0 : r=(latl/latb);
5473 : : #if defined(_DERIVATE)
5474 : 0 : FCf2_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latb);
5475 : 0 : FCf2_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latb);
5476 : 0 : FCf2_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latb);
5477 : 0 : FCf2_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latb);
5478 : : #endif
5479 : 0 : FCf2=((((1.0-r)*a2)+(r*a3))/latb);
5480 : : #if defined(_DERIVATE)
5481 : 0 : FCdf2_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vci_ei));
5482 : 0 : FCdf2_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vtnode_GND));
5483 : 0 : FCdf2_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ei));
5484 : 0 : FCdf2_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ci));
5485 : : #endif
5486 : 0 : FCdf2_dw=((((1.0-r)*x)+(r*a))*lnzb);
5487 : : }
5488 : : else
5489 : : {
5490 : : #if defined(_DERIVATE)
5491 : 0 : a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
5492 : 0 : a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
5493 : 0 : a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
5494 : 0 : a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
5495 : : #endif
5496 : 0 : a=(z*z);
5497 : : #if defined(_DERIVATE)
5498 : 0 : a2_Vbi_ei=((z_Vbi_ei-(0.25*a_Vbi_ei))+(((0.10*z_Vbi_ei)*a)+((0.10*z)*a_Vbi_ei)));
5499 : 0 : a2_Vbi_ci=((z_Vbi_ci-(0.25*a_Vbi_ci))+(((0.10*z_Vbi_ci)*a)+((0.10*z)*a_Vbi_ci)));
5500 : 0 : a2_Vci_ei=((z_Vci_ei-(0.25*a_Vci_ei))+(((0.10*z_Vci_ei)*a)+((0.10*z)*a_Vci_ei)));
5501 : 0 : a2_Vtnode_GND=((z_Vtnode_GND-(0.25*a_Vtnode_GND))+(((0.10*z_Vtnode_GND)*a)+((0.10*z)*a_Vtnode_GND)));
5502 : : #endif
5503 : 0 : a2=(((3.0+z)-(0.25*a))+((0.10*z)*a));
5504 : : #if defined(_DERIVATE)
5505 : 0 : a3_Vbi_ei=(((2.0*z_Vbi_ei)+(0.75*a_Vbi_ei))-(((0.20*a_Vbi_ei)*z)+((0.20*a)*z_Vbi_ei)));
5506 : 0 : a3_Vbi_ci=(((2.0*z_Vbi_ci)+(0.75*a_Vbi_ci))-(((0.20*a_Vbi_ci)*z)+((0.20*a)*z_Vbi_ci)));
5507 : 0 : a3_Vci_ei=(((2.0*z_Vci_ei)+(0.75*a_Vci_ei))-(((0.20*a_Vci_ei)*z)+((0.20*a)*z_Vci_ei)));
5508 : 0 : a3_Vtnode_GND=(((2.0*z_Vtnode_GND)+(0.75*a_Vtnode_GND))-(((0.20*a_Vtnode_GND)*z)+((0.20*a)*z_Vtnode_GND)));
5509 : : #endif
5510 : 0 : a3=(((2.0*z)+(0.75*a))-((0.20*a)*z));
5511 : : #if defined(_DERIVATE)
5512 : 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);
5513 : 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);
5514 : 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);
5515 : 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);
5516 : : #endif
5517 : 0 : FCf2=(((((latb*a2)+(latl*a3))*FCw)*FCw)/6.0);
5518 : : #if defined(_DERIVATE)
5519 : 0 : FCdf2_dw_Vci_ei=(((((latl*FCw_Vci_ei)*(1+z))+((1+(latl*FCw))*z_Vci_ei))*lnzb)+(((1+(latl*FCw))*(1+z))*lnzb_Vci_ei));
5520 : 0 : FCdf2_dw_Vtnode_GND=(((((latl*FCw_Vtnode_GND)*(1+z))+((1+(latl*FCw))*z_Vtnode_GND))*lnzb)+(((1+(latl*FCw))*(1+z))*lnzb_Vtnode_GND));
5521 : 0 : FCdf2_dw_Vbi_ei=(((((latl*FCw_Vbi_ei)*(1+z))+((1+(latl*FCw))*z_Vbi_ei))*lnzb)+(((1+(latl*FCw))*(1+z))*lnzb_Vbi_ei));
5522 : 0 : FCdf2_dw_Vbi_ci=(((((latl*FCw_Vbi_ci)*(1+z))+((1+(latl*FCw))*z_Vbi_ci))*lnzb)+(((1+(latl*FCw))*(1+z))*lnzb_Vbi_ci));
5523 : : #endif
5524 : 0 : FCdf2_dw=(((1+(latl*FCw))*(1+z))*lnzb);
5525 : : }
5526 : : #if defined(_DERIVATE)
5527 : 0 : z_Vci_ei=(latl*FCw_Vci_ei);
5528 : 0 : z_Vtnode_GND=(latl*FCw_Vtnode_GND);
5529 : 0 : z_Vbi_ei=(latl*FCw_Vbi_ei);
5530 : 0 : z_Vbi_ci=(latl*FCw_Vbi_ci);
5531 : : #endif
5532 : 0 : z=(latl*FCw);
5533 : : {
5534 : 0 : double m00_logE(d00_logE0,(1+(latl*FCw)))
5535 : : #if defined(_DERIVATE)
5536 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latl*FCw)))
5537 : : #endif
5538 : : #if defined(_DERIVATE)
5539 : 0 : lnzb_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
5540 : 0 : lnzb_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
5541 : 0 : lnzb_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
5542 : 0 : lnzb_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
5543 : : #endif
5544 : 0 : lnzb=d00_logE0;
5545 : : }
5546 [ # # ]: 0 : if
5547 : : (z>1.0e-6)
5548 : : {
5549 : : #if defined(_DERIVATE)
5550 : 0 : x_Vci_ei=z_Vci_ei;
5551 : 0 : x_Vtnode_GND=z_Vtnode_GND;
5552 : 0 : x_Vbi_ei=z_Vbi_ei;
5553 : 0 : x_Vbi_ci=z_Vbi_ci;
5554 : : #endif
5555 : 0 : x=(1.0+z);
5556 : : #if defined(_DERIVATE)
5557 : 0 : a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
5558 : 0 : a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
5559 : 0 : a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
5560 : 0 : a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
5561 : : #endif
5562 : 0 : a=(x*x);
5563 : : #if defined(_DERIVATE)
5564 : 0 : a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ei))));
5565 : 0 : a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ci))));
5566 : 0 : a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vci_ei))));
5567 : 0 : a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vtnode_GND))));
5568 : : #endif
5569 : 0 : a2=(0.250*((a*((2.0*lnzb)-1.0))+1.0));
5570 : : #if defined(_DERIVATE)
5571 : 0 : a3_Vbi_ei=(((((a_Vbi_ei*x)+(a*x_Vbi_ei))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vbi_ei)))/9.0);
5572 : 0 : a3_Vbi_ci=(((((a_Vbi_ci*x)+(a*x_Vbi_ci))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vbi_ci)))/9.0);
5573 : 0 : a3_Vci_ei=(((((a_Vci_ei*x)+(a*x_Vci_ei))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vci_ei)))/9.0);
5574 : 0 : a3_Vtnode_GND=(((((a_Vtnode_GND*x)+(a*x_Vtnode_GND))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vtnode_GND)))/9.0);
5575 : : #endif
5576 : 0 : a3=((((a*x)*((3.0*lnzb)-1.0))+1.0)/9.0);
5577 : 0 : r=(latb/latl);
5578 : : #if defined(_DERIVATE)
5579 : 0 : FCf3_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latl);
5580 : 0 : FCf3_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latl);
5581 : 0 : FCf3_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latl);
5582 : 0 : FCf3_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latl);
5583 : : #endif
5584 : 0 : FCf3=((((1.0-r)*a2)+(r*a3))/latl);
5585 : : #if defined(_DERIVATE)
5586 : 0 : FCdf3_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vci_ei));
5587 : 0 : FCdf3_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vtnode_GND));
5588 : 0 : FCdf3_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ei));
5589 : 0 : FCdf3_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ci));
5590 : : #endif
5591 : 0 : FCdf3_dw=((((1.0-r)*x)+(r*a))*lnzb);
5592 : : }
5593 : : else
5594 : : {
5595 : : #if defined(_DERIVATE)
5596 : 0 : a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
5597 : 0 : a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
5598 : 0 : a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
5599 : 0 : a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
5600 : : #endif
5601 : 0 : a=(z*z);
5602 : : #if defined(_DERIVATE)
5603 : 0 : a2_Vbi_ei=((z_Vbi_ei-(0.25*a_Vbi_ei))+(((0.10*z_Vbi_ei)*a)+((0.10*z)*a_Vbi_ei)));
5604 : 0 : a2_Vbi_ci=((z_Vbi_ci-(0.25*a_Vbi_ci))+(((0.10*z_Vbi_ci)*a)+((0.10*z)*a_Vbi_ci)));
5605 : 0 : a2_Vci_ei=((z_Vci_ei-(0.25*a_Vci_ei))+(((0.10*z_Vci_ei)*a)+((0.10*z)*a_Vci_ei)));
5606 : 0 : a2_Vtnode_GND=((z_Vtnode_GND-(0.25*a_Vtnode_GND))+(((0.10*z_Vtnode_GND)*a)+((0.10*z)*a_Vtnode_GND)));
5607 : : #endif
5608 : 0 : a2=(((3.0+z)-(0.25*a))+((0.10*z)*a));
5609 : : #if defined(_DERIVATE)
5610 : 0 : a3_Vbi_ei=(((2.0*z_Vbi_ei)+(0.75*a_Vbi_ei))-(((0.20*a_Vbi_ei)*z)+((0.20*a)*z_Vbi_ei)));
5611 : 0 : a3_Vbi_ci=(((2.0*z_Vbi_ci)+(0.75*a_Vbi_ci))-(((0.20*a_Vbi_ci)*z)+((0.20*a)*z_Vbi_ci)));
5612 : 0 : a3_Vci_ei=(((2.0*z_Vci_ei)+(0.75*a_Vci_ei))-(((0.20*a_Vci_ei)*z)+((0.20*a)*z_Vci_ei)));
5613 : 0 : a3_Vtnode_GND=(((2.0*z_Vtnode_GND)+(0.75*a_Vtnode_GND))-(((0.20*a_Vtnode_GND)*z)+((0.20*a)*z_Vtnode_GND)));
5614 : : #endif
5615 : 0 : a3=(((2.0*z)+(0.75*a))-((0.20*a)*z));
5616 : : #if defined(_DERIVATE)
5617 : 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);
5618 : 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);
5619 : 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);
5620 : 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);
5621 : : #endif
5622 : 0 : FCf3=(((((latl*a2)+(latb*a3))*FCw)*FCw)/6.0);
5623 : : #if defined(_DERIVATE)
5624 : 0 : FCdf3_dw_Vci_ei=(((((latb*FCw_Vci_ei)*(1+z))+((1+(latb*FCw))*z_Vci_ei))*lnzb)+(((1+(latb*FCw))*(1+z))*lnzb_Vci_ei));
5625 : 0 : FCdf3_dw_Vtnode_GND=(((((latb*FCw_Vtnode_GND)*(1+z))+((1+(latb*FCw))*z_Vtnode_GND))*lnzb)+(((1+(latb*FCw))*(1+z))*lnzb_Vtnode_GND));
5626 : 0 : FCdf3_dw_Vbi_ei=(((((latb*FCw_Vbi_ei)*(1+z))+((1+(latb*FCw))*z_Vbi_ei))*lnzb)+(((1+(latb*FCw))*(1+z))*lnzb_Vbi_ei));
5627 : 0 : FCdf3_dw_Vbi_ci=(((((latb*FCw_Vbi_ci)*(1+z))+((1+(latb*FCw))*z_Vbi_ci))*lnzb)+(((1+(latb*FCw))*(1+z))*lnzb_Vbi_ci));
5628 : : #endif
5629 : 0 : FCdf3_dw=(((1+(latb*FCw))*(1+z))*lnzb);
5630 : : }
5631 : : #if defined(_DERIVATE)
5632 : 0 : FCf_ci_Vci_ei=((FCf_CT_Vci_ei*(((FCa1*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa1_Vci_ei*FCf1)+(FCa1*FCf1_Vci_ei))-FCf2_Vci_ei)+FCf3_Vci_ei)));
5633 : 0 : FCf_ci_Vtnode_GND=((FCf_CT_Vtnode_GND*(((FCa1*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa1_Vtnode_GND*FCf1)+(FCa1*FCf1_Vtnode_GND))-FCf2_Vtnode_GND)+FCf3_Vtnode_GND)));
5634 : 0 : FCf_ci_Vbi_ei=((FCf_CT_Vbi_ei*(((FCa1*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa1_Vbi_ei*FCf1)+(FCa1*FCf1_Vbi_ei))-FCf2_Vbi_ei)+FCf3_Vbi_ei)));
5635 : 0 : FCf_ci_Vbi_ci=((FCf_CT_Vbi_ci*(((FCa1*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa1_Vbi_ci*FCf1)+(FCa1*FCf1_Vbi_ci))-FCf2_Vbi_ci)+FCf3_Vbi_ci)));
5636 : : #endif
5637 : 0 : FCf_ci=(FCf_CT*(((FCa1*FCf1)-FCf2)+FCf3));
5638 : : #if defined(_DERIVATE)
5639 : 0 : 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)));
5640 : 0 : 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)));
5641 : 0 : 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)));
5642 : 0 : 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)));
5643 : : #endif
5644 : 0 : FCdfc_dw=(FCf_CT*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw));
5645 : : #if defined(_DERIVATE)
5646 : 0 : FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
5647 : 0 : FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
5648 : 0 : FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
5649 : 0 : FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
5650 : : #endif
5651 : 0 : FCdw_ditf=(FCdw_daick*FCdaick_ditf);
5652 : : #if defined(_DERIVATE)
5653 : 0 : FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
5654 : 0 : FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
5655 : 0 : FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
5656 : 0 : FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
5657 : : #endif
5658 : 0 : FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
5659 [ # # ][ # # ]: 0 : if
5660 : : ((flcomp==0.0)||(flcomp==2.1))
5661 : : {
5662 : : #if defined(_DERIVATE)
5663 : 0 : a_Vbi_ei=(latb*FCw_Vbi_ei);
5664 : 0 : a_Vbi_ci=(latb*FCw_Vbi_ci);
5665 : 0 : a_Vci_ei=(latb*FCw_Vci_ei);
5666 : 0 : a_Vtnode_GND=(latb*FCw_Vtnode_GND);
5667 : : #endif
5668 : 0 : a=(latb*FCw);
5669 : : {
5670 : 0 : double m00_logE(d00_logE0,(1+(latb*FCw)))
5671 : : #if defined(_DERIVATE)
5672 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latb*FCw)))
5673 : : #endif
5674 : : #if defined(_DERIVATE)
5675 : 0 : lnz_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
5676 : 0 : lnz_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
5677 : 0 : lnz_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
5678 : 0 : lnz_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
5679 : : #endif
5680 : 0 : lnz=d00_logE0;
5681 : : }
5682 [ # # ]: 0 : if
5683 : : (a>1.0e-6)
5684 : : {
5685 : : #if defined(_DERIVATE)
5686 : 0 : FCf2_Vbi_ei=((a_Vbi_ei-lnz_Vbi_ei)/latb);
5687 : 0 : FCf2_Vbi_ci=((a_Vbi_ci-lnz_Vbi_ci)/latb);
5688 : 0 : FCf2_Vci_ei=((a_Vci_ei-lnz_Vci_ei)/latb);
5689 : 0 : FCf2_Vtnode_GND=((a_Vtnode_GND-lnz_Vtnode_GND)/latb);
5690 : : #endif
5691 : 0 : FCf2=((a-lnz)/latb);
5692 : : #if defined(_DERIVATE)
5693 : 0 : FCdf2_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
5694 : 0 : FCdf2_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
5695 : 0 : FCdf2_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
5696 : 0 : FCdf2_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
5697 : : #endif
5698 : 0 : FCdf2_dw=(a/(1.0+a));
5699 : : }
5700 : : else
5701 : : {
5702 : : #if defined(_DERIVATE)
5703 : 0 : FCf2_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
5704 : 0 : FCf2_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
5705 : 0 : FCf2_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
5706 : 0 : FCf2_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
5707 : : #endif
5708 : 0 : FCf2=((0.5*a)*FCw);
5709 : : #if defined(_DERIVATE)
5710 : 0 : FCdf2_dw_Vci_ei=a_Vci_ei;
5711 : 0 : FCdf2_dw_Vtnode_GND=a_Vtnode_GND;
5712 : 0 : FCdf2_dw_Vbi_ei=a_Vbi_ei;
5713 : 0 : FCdf2_dw_Vbi_ci=a_Vbi_ci;
5714 : : #endif
5715 : 0 : FCdf2_dw=a;
5716 : : }
5717 : : #if defined(_DERIVATE)
5718 : 0 : a_Vbi_ei=(latl*FCw_Vbi_ei);
5719 : 0 : a_Vbi_ci=(latl*FCw_Vbi_ci);
5720 : 0 : a_Vci_ei=(latl*FCw_Vci_ei);
5721 : 0 : a_Vtnode_GND=(latl*FCw_Vtnode_GND);
5722 : : #endif
5723 : 0 : a=(latl*FCw);
5724 : : {
5725 : 0 : double m00_logE(d00_logE0,(1+(latl*FCw)))
5726 : : #if defined(_DERIVATE)
5727 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latl*FCw)))
5728 : : #endif
5729 : : #if defined(_DERIVATE)
5730 : 0 : lnz_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
5731 : 0 : lnz_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
5732 : 0 : lnz_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
5733 : 0 : lnz_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
5734 : : #endif
5735 : 0 : lnz=d00_logE0;
5736 : : }
5737 [ # # ]: 0 : if
5738 : : (a>1.0e-6)
5739 : : {
5740 : : #if defined(_DERIVATE)
5741 : 0 : FCf3_Vbi_ei=((a_Vbi_ei-lnz_Vbi_ei)/latl);
5742 : 0 : FCf3_Vbi_ci=((a_Vbi_ci-lnz_Vbi_ci)/latl);
5743 : 0 : FCf3_Vci_ei=((a_Vci_ei-lnz_Vci_ei)/latl);
5744 : 0 : FCf3_Vtnode_GND=((a_Vtnode_GND-lnz_Vtnode_GND)/latl);
5745 : : #endif
5746 : 0 : FCf3=((a-lnz)/latl);
5747 : : #if defined(_DERIVATE)
5748 : 0 : FCdf3_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
5749 : 0 : FCdf3_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
5750 : 0 : FCdf3_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
5751 : 0 : FCdf3_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
5752 : : #endif
5753 : 0 : FCdf3_dw=(a/(1.0+a));
5754 : : }
5755 : : else
5756 : : {
5757 : : #if defined(_DERIVATE)
5758 : 0 : FCf3_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
5759 : 0 : FCf3_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
5760 : 0 : FCf3_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
5761 : 0 : FCf3_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
5762 : : #endif
5763 : 0 : FCf3=((0.5*a)*FCw);
5764 : : #if defined(_DERIVATE)
5765 : 0 : FCdf3_dw_Vci_ei=a_Vci_ei;
5766 : 0 : FCdf3_dw_Vtnode_GND=a_Vtnode_GND;
5767 : 0 : FCdf3_dw_Vbi_ei=a_Vbi_ei;
5768 : 0 : FCdf3_dw_Vbi_ci=a_Vbi_ci;
5769 : : #endif
5770 : 0 : FCdf3_dw=a;
5771 : : }
5772 : : #if defined(_DERIVATE)
5773 : 0 : FCf_CT_Vbi_ei=((FCf_CT_Vbi_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ei-FCf3_Vbi_ei)));
5774 : 0 : FCf_CT_Vbi_ci=((FCf_CT_Vbi_ci*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ci-FCf3_Vbi_ci)));
5775 : 0 : FCf_CT_Vci_ei=((FCf_CT_Vci_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vci_ei-FCf3_Vci_ei)));
5776 : 0 : FCf_CT_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCf2-FCf3))+(FCf_CT*(FCf2_Vtnode_GND-FCf3_Vtnode_GND)));
5777 : : #endif
5778 : 0 : FCf_CT=(FCf_CT*(FCf2-FCf3));
5779 : : #if defined(_DERIVATE)
5780 : 0 : FCdfCT_dw_Vbi_ei=((FCf_CT_Vbi_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ei-FCdf3_dw_Vbi_ei)));
5781 : 0 : FCdfCT_dw_Vbi_ci=((FCf_CT_Vbi_ci*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ci-FCdf3_dw_Vbi_ci)));
5782 : 0 : FCdfCT_dw_Vci_ei=((FCf_CT_Vci_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vci_ei-FCdf3_dw_Vci_ei)));
5783 : 0 : FCdfCT_dw_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vtnode_GND-FCdf3_dw_Vtnode_GND)));
5784 : : #endif
5785 : 0 : FCdfCT_dw=(FCf_CT*(FCdf2_dw-FCdf3_dw));
5786 : : #if defined(_DERIVATE)
5787 : 0 : FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
5788 : 0 : FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
5789 : 0 : FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
5790 : 0 : FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
5791 : : #endif
5792 : 0 : FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
5793 : : }
5794 : : else
5795 : : {
5796 : : #if defined(_DERIVATE)
5797 : 0 : FCf_CT_Vbi_ei=FCf_ci_Vbi_ei;
5798 : 0 : FCf_CT_Vbi_ci=FCf_ci_Vbi_ci;
5799 : 0 : FCf_CT_Vci_ei=FCf_ci_Vci_ei;
5800 : 0 : FCf_CT_Vtnode_GND=FCf_ci_Vtnode_GND;
5801 : : #endif
5802 : 0 : FCf_CT=FCf_ci;
5803 : : #if defined(_DERIVATE)
5804 : 0 : FCdfCT_ditf_Vbi_ei=FCdfc_ditf_Vbi_ei;
5805 : 0 : FCdfCT_ditf_Vbi_ci=FCdfc_ditf_Vbi_ci;
5806 : 0 : FCdfCT_ditf_Vci_ei=FCdfc_ditf_Vci_ei;
5807 : 0 : FCdfCT_ditf_Vtnode_GND=FCdfc_ditf_Vtnode_GND;
5808 : : #endif
5809 : 0 : FCdfCT_ditf=FCdfc_ditf;
5810 : : }
5811 : : }
5812 : : else
5813 : : {
5814 [ # # ]: 0 : if
5815 : : (latb>0.01)
5816 : : {
5817 : : #if defined(_DERIVATE)
5818 : 0 : FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5819 : 0 : FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5820 : 0 : FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5821 : 0 : FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5822 : : #endif
5823 : 0 : FCd_a=(1.0/(1.0+(FCa_ck*latb)));
5824 : : #if defined(_DERIVATE)
5825 : 0 : FCw_Vci_ei=(((-FCa_ck_Vci_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vci_ei));
5826 : 0 : FCw_Vtnode_GND=(((-FCa_ck_Vtnode_GND)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vtnode_GND));
5827 : 0 : FCw_Vbi_ei=(((-FCa_ck_Vbi_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ei));
5828 : 0 : FCw_Vbi_ci=(((-FCa_ck_Vbi_ci)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ci));
5829 : : #endif
5830 : 0 : FCw=((1.0-FCa_ck)*FCd_a);
5831 : : #if defined(_DERIVATE)
5832 : 0 : FCdw_daick_Vci_ei=((((-(1.0+latb))*FCd_a_Vci_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vci_ei));
5833 : 0 : FCdw_daick_Vtnode_GND=((((-(1.0+latb))*FCd_a_Vtnode_GND)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vtnode_GND));
5834 : 0 : FCdw_daick_Vbi_ei=((((-(1.0+latb))*FCd_a_Vbi_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ei));
5835 : 0 : FCdw_daick_Vbi_ci=((((-(1.0+latb))*FCd_a_Vbi_ci)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ci));
5836 : : #endif
5837 : 0 : FCdw_daick=(((-(1.0+latb))*FCd_a)*FCd_a);
5838 : : }
5839 : : else
5840 : : {
5841 : : #if defined(_DERIVATE)
5842 : 0 : FCw_Vci_ei=((-FCa_ck_Vci_ei)-FCa_ck_Vci_ei*latb);
5843 : 0 : FCw_Vtnode_GND=((-FCa_ck_Vtnode_GND)-FCa_ck_Vtnode_GND*latb);
5844 : 0 : FCw_Vbi_ei=((-FCa_ck_Vbi_ei)-FCa_ck_Vbi_ei*latb);
5845 : 0 : FCw_Vbi_ci=((-FCa_ck_Vbi_ci)-FCa_ck_Vbi_ci*latb);
5846 : : #endif
5847 : 0 : FCw=((1.0-FCa_ck)-(FCa_ck*latb));
5848 : : #if defined(_DERIVATE)
5849 : 0 : FCdw_daick_Vci_ei=0.0;
5850 : 0 : FCdw_daick_Vtnode_GND=0.0;
5851 : 0 : FCdw_daick_Vbi_ei=0.0;
5852 : 0 : FCdw_daick_Vbi_ci=0.0;
5853 : : #endif
5854 : 0 : FCdw_daick=(-(1.0+latb));
5855 : : }
5856 : : #if defined(_DERIVATE)
5857 : 0 : FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
5858 : 0 : FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
5859 : 0 : FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
5860 : 0 : FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
5861 : : #endif
5862 : 0 : FCw2=(FCw*FCw);
5863 : : #if defined(_DERIVATE)
5864 : 0 : FCz_Vci_ei=(latb*FCw_Vci_ei);
5865 : 0 : FCz_Vtnode_GND=(latb*FCw_Vtnode_GND);
5866 : 0 : FCz_Vbi_ei=(latb*FCw_Vbi_ei);
5867 : 0 : FCz_Vbi_ci=(latb*FCw_Vbi_ci);
5868 : : #endif
5869 : 0 : FCz=(latb*FCw);
5870 : : #if defined(_DERIVATE)
5871 : 0 : FCz_1_Vci_ei=FCz_Vci_ei;
5872 : 0 : FCz_1_Vtnode_GND=FCz_Vtnode_GND;
5873 : 0 : FCz_1_Vbi_ei=FCz_Vbi_ei;
5874 : 0 : FCz_1_Vbi_ci=FCz_Vbi_ci;
5875 : : #endif
5876 : 0 : FCz_1=(1.0+FCz);
5877 : : #if defined(_DERIVATE)
5878 : 0 : FCd_f_Vci_ei=(-FCz_1_Vci_ei/FCz_1/FCz_1);
5879 : 0 : FCd_f_Vtnode_GND=(-FCz_1_Vtnode_GND/FCz_1/FCz_1);
5880 : 0 : FCd_f_Vbi_ei=(-FCz_1_Vbi_ei/FCz_1/FCz_1);
5881 : 0 : FCd_f_Vbi_ci=(-FCz_1_Vbi_ci/FCz_1/FCz_1);
5882 : : #endif
5883 : 0 : FCd_f=(1.0/FCz_1);
5884 : : #if defined(_DERIVATE)
5885 : 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));
5886 : 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));
5887 : 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));
5888 : 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));
5889 : : #endif
5890 : 0 : FCf_ci=((FCw2*(1.0+(FCz/3.0)))*FCd_f);
5891 : : #if defined(_DERIVATE)
5892 : 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));
5893 : 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));
5894 : 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));
5895 : 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));
5896 : : #endif
5897 : 0 : FCdfc_dw=((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
5898 : : #if defined(_DERIVATE)
5899 : 0 : FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
5900 : 0 : FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
5901 : 0 : FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
5902 : 0 : FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
5903 : : #endif
5904 : 0 : FCdw_ditf=(FCdw_daick*FCdaick_ditf);
5905 : : #if defined(_DERIVATE)
5906 : 0 : FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
5907 : 0 : FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
5908 : 0 : FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
5909 : 0 : FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
5910 : : #endif
5911 : 0 : FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
5912 [ # # ][ # # ]: 0 : if
5913 : : ((flcomp==0.0)||(flcomp==2.1))
5914 : : {
5915 [ # # ]: 0 : if
5916 : : (FCz>0.001)
5917 : : {
5918 : : {
5919 : 0 : double m00_logE(d00_logE0,FCz_1)
5920 : : #if defined(_DERIVATE)
5921 : 0 : double m10_logE(d10_logE0,d00_logE0,FCz_1)
5922 : : #endif
5923 : : #if defined(_DERIVATE)
5924 : 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));
5925 : 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));
5926 : 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));
5927 : 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));
5928 : : #endif
5929 : 0 : FCf_CT=((2.0*((FCz_1*d00_logE0)-FCz))/((latb*latb)*FCz_1));
5930 : : }
5931 : : #if defined(_DERIVATE)
5932 : 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));
5933 : 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));
5934 : 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));
5935 : 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));
5936 : : #endif
5937 : 0 : FCdfCT_dw=(((2.0*FCw)*FCd_f)*FCd_f);
5938 : : }
5939 : : else
5940 : : {
5941 : : #if defined(_DERIVATE)
5942 : 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));
5943 : 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));
5944 : 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));
5945 : 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));
5946 : : #endif
5947 : 0 : FCf_CT=((FCw2*(1.0-(FCz/3.0)))*FCd_f);
5948 : : #if defined(_DERIVATE)
5949 : 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));
5950 : 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));
5951 : 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));
5952 : 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));
5953 : : #endif
5954 : 0 : FCdfCT_dw=((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
5955 : : }
5956 : : #if defined(_DERIVATE)
5957 : 0 : FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
5958 : 0 : FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
5959 : 0 : FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
5960 : 0 : FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
5961 : : #endif
5962 : 0 : FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
5963 : : }
5964 : : else
5965 : : {
5966 : : #if defined(_DERIVATE)
5967 : 0 : FCf_CT_Vbi_ei=FCf_ci_Vbi_ei;
5968 : 0 : FCf_CT_Vbi_ci=FCf_ci_Vbi_ci;
5969 : 0 : FCf_CT_Vci_ei=FCf_ci_Vci_ei;
5970 : 0 : FCf_CT_Vtnode_GND=FCf_ci_Vtnode_GND;
5971 : : #endif
5972 : 0 : FCf_CT=FCf_ci;
5973 : : #if defined(_DERIVATE)
5974 : 0 : FCdfCT_ditf_Vbi_ei=FCdfc_ditf_Vbi_ei;
5975 : 0 : FCdfCT_ditf_Vbi_ci=FCdfc_ditf_Vbi_ci;
5976 : 0 : FCdfCT_ditf_Vci_ei=FCdfc_ditf_Vci_ei;
5977 : 0 : FCdfCT_ditf_Vtnode_GND=FCdfc_ditf_Vtnode_GND;
5978 : : #endif
5979 : 0 : FCdfCT_ditf=FCdfc_ditf;
5980 : : }
5981 : : }
5982 : : #if defined(_DERIVATE)
5983 : 0 : FFQ_cT_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_CT)+(FFQ_fC*FCf_CT_Vtnode_GND));
5984 : 0 : FFQ_cT_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ei));
5985 : 0 : FFQ_cT_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ci));
5986 : 0 : FFQ_cT_Vci_ei=((FFQ_fC_Vci_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vci_ei));
5987 : : #endif
5988 : 0 : FFQ_cT=(FFQ_fC*FCf_CT);
5989 : : #if defined(_DERIVATE)
5990 : 0 : FFQ_fC_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_ci)+(FFQ_fC*FCf_ci_Vtnode_GND));
5991 : 0 : FFQ_fC_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ei));
5992 : 0 : FFQ_fC_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ci));
5993 : 0 : FFQ_fC_Vci_ei=((FFQ_fC_Vci_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vci_ei));
5994 : : #endif
5995 : 0 : FFQ_fC=(FFQ_fC*FCf_ci);
5996 : : #if defined(_DERIVATE)
5997 : 0 : 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)))));
5998 : 0 : FFT_fC_Vci_ei=(FFT_pcS*(FCf_ci_Vci_ei+((itf_Vci_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vci_ei))));
5999 : 0 : FFT_fC_Vbi_ei=(FFT_pcS*(FCf_ci_Vbi_ei+((itf_Vbi_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ei))));
6000 : 0 : FFT_fC_Vbi_ci=(FFT_pcS*(FCf_ci_Vbi_ci+((itf_Vbi_ci*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ci))));
6001 : : #endif
6002 : 0 : FFT_fC=(FFT_pcS*(FCf_ci+(itf*FCdfc_ditf)));
6003 : : #if defined(_DERIVATE)
6004 : 0 : 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)))));
6005 : 0 : FFT_cT_Vci_ei=(FFT_pcS*(FCf_CT_Vci_ei+((itf_Vci_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vci_ei))));
6006 : 0 : FFT_cT_Vbi_ei=(FFT_pcS*(FCf_CT_Vbi_ei+((itf_Vbi_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ei))));
6007 : 0 : FFT_cT_Vbi_ci=(FFT_pcS*(FCf_CT_Vbi_ci+((itf_Vbi_ci*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ci))));
6008 : : #endif
6009 : 0 : FFT_cT=(FFT_pcS*(FCf_CT+(itf*FCdfCT_ditf)));
6010 : : }
6011 : : #if defined(_DERIVATE)
6012 : 0 : Qf_Vci_ei=(Qf_Vci_ei+FFd_QfB_Vci_ei);
6013 : 0 : Qf_Vtnode_GND=(Qf_Vtnode_GND+FFd_QfB_Vtnode_GND);
6014 : 0 : Qf_Vbi_ci=(Qf_Vbi_ci+FFd_QfB_Vbi_ci);
6015 : 0 : Qf_Vbi_ei=(Qf_Vbi_ei+FFd_QfB_Vbi_ei);
6016 : : #endif
6017 : 0 : Qf=(Qf+FFd_QfB);
6018 : : #if defined(_DERIVATE)
6019 : 0 : Tf_Vci_ei=(Tf_Vci_ei+FFd_TfB_Vci_ei);
6020 : 0 : Tf_Vbi_ei=(Tf_Vbi_ei+FFd_TfB_Vbi_ei);
6021 : 0 : Tf_Vtnode_GND=(Tf_Vtnode_GND+FFd_TfB_Vtnode_GND);
6022 : 0 : Tf_Vbi_ci=(Tf_Vbi_ci+FFd_TfB_Vbi_ci);
6023 : : #endif
6024 : 0 : Tf=(Tf+FFd_TfB);
6025 : : #if defined(_DERIVATE)
6026 : 0 : Q_fT_Vci_ei=((Qf_Vci_ei+(hfe*FFd_QfE_Vci_ei))+(hfc*FFQ_cT_Vci_ei));
6027 : 0 : Q_fT_Vtnode_GND=((Qf_Vtnode_GND+(hfe*FFd_QfE_Vtnode_GND))+(hfc*FFQ_cT_Vtnode_GND));
6028 : 0 : Q_fT_Vbi_ci=((Qf_Vbi_ci+(hfe*FFd_QfE_Vbi_ci))+(hfc*FFQ_cT_Vbi_ci));
6029 : 0 : Q_fT_Vbi_ei=((Qf_Vbi_ei+(hfe*FFd_QfE_Vbi_ei))+(hfc*FFQ_cT_Vbi_ei));
6030 : : #endif
6031 : 0 : Q_fT=((Qf+(hfe*FFd_QfE))+(hfc*FFQ_cT));
6032 : : #if defined(_DERIVATE)
6033 : 0 : T_fT_Vci_ei=((Tf_Vci_ei+(hfe*FFd_TfE_Vci_ei))+(hfc*FFT_cT_Vci_ei));
6034 : 0 : T_fT_Vbi_ei=((Tf_Vbi_ei+(hfe*FFd_TfE_Vbi_ei))+(hfc*FFT_cT_Vbi_ei));
6035 : 0 : T_fT_Vtnode_GND=((Tf_Vtnode_GND+(hfe*FFd_TfE_Vtnode_GND))+(hfc*FFT_cT_Vtnode_GND));
6036 : 0 : T_fT_Vbi_ci=((Tf_Vbi_ci+(hfe*FFd_TfE_Vbi_ci))+(hfc*FFT_cT_Vbi_ci));
6037 : : #endif
6038 : 0 : T_fT=((Tf+(hfe*FFd_TfE))+(hfc*FFT_cT));
6039 : : #if defined(_DERIVATE)
6040 : 0 : Qf_Vci_ei=((Qf_Vci_ei+FFd_QfE_Vci_ei)+FFQ_fC_Vci_ei);
6041 : 0 : Qf_Vtnode_GND=((Qf_Vtnode_GND+FFd_QfE_Vtnode_GND)+FFQ_fC_Vtnode_GND);
6042 : 0 : Qf_Vbi_ci=((Qf_Vbi_ci+FFd_QfE_Vbi_ci)+FFQ_fC_Vbi_ci);
6043 : 0 : Qf_Vbi_ei=((Qf_Vbi_ei+FFd_QfE_Vbi_ei)+FFQ_fC_Vbi_ei);
6044 : : #endif
6045 : 0 : Qf=((Qf+FFd_QfE)+FFQ_fC);
6046 : : #if defined(_DERIVATE)
6047 : 0 : Tf_Vci_ei=((Tf_Vci_ei+FFd_TfE_Vci_ei)+FFT_fC_Vci_ei);
6048 : 0 : Tf_Vbi_ei=((Tf_Vbi_ei+FFd_TfE_Vbi_ei)+FFT_fC_Vbi_ei);
6049 : 0 : Tf_Vtnode_GND=((Tf_Vtnode_GND+FFd_TfE_Vtnode_GND)+FFT_fC_Vtnode_GND);
6050 : 0 : Tf_Vbi_ci=((Tf_Vbi_ci+FFd_TfE_Vbi_ci)+FFT_fC_Vbi_ci);
6051 : : #endif
6052 : 0 : Tf=((Tf+FFd_TfE)+FFT_fC);
6053 : : }
6054 : : #if defined(_DERIVATE)
6055 : 0 : Qr_Vci_ei=0.0;
6056 : 0 : Qr_Vtnode_GND=(Tr*itr_Vtnode_GND);
6057 : 0 : Qr_Vbi_ci=(Tr*itr_Vbi_ci);
6058 : 0 : Qr_Vbi_ei=(Tr*itr_Vbi_ei);
6059 : : #endif
6060 : 0 : Qr=(Tr*itr);
6061 : 0 : l_it=0;
6062 [ # # ][ # # ]: 0 : if
6063 : : ((Qf>(1.0e-5*Q_p))||(a_h>1.0e-5))
6064 : : {
6065 : : {
6066 : 0 : double m00_sqrt(d00_sqrt0,((T_f0*itf)*Q_fT))
6067 : : #if defined(_DERIVATE)
6068 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((T_f0*itf)*Q_fT))
6069 : : #endif
6070 : : #if defined(_DERIVATE)
6071 : 0 : Qf_Vci_ei=(((T_f0*itf_Vci_ei)*Q_fT)+((T_f0*itf)*Q_fT_Vci_ei))*d10_sqrt0;
6072 : 0 : Qf_Vtnode_GND=((((T_f0_Vtnode_GND*itf)+(T_f0*itf_Vtnode_GND))*Q_fT)+((T_f0*itf)*Q_fT_Vtnode_GND))*d10_sqrt0;
6073 : 0 : Qf_Vbi_ci=((((T_f0_Vbi_ci*itf)+(T_f0*itf_Vbi_ci))*Q_fT)+((T_f0*itf)*Q_fT_Vbi_ci))*d10_sqrt0;
6074 : 0 : Qf_Vbi_ei=(((T_f0*itf_Vbi_ei)*Q_fT)+((T_f0*itf)*Q_fT_Vbi_ei))*d10_sqrt0;
6075 : : #endif
6076 : 0 : Qf=d00_sqrt0;
6077 : : }
6078 : : #if defined(_DERIVATE)
6079 : 0 : Q_pT_Vtnode_GND=((Q_0_Vtnode_GND+Qf_Vtnode_GND)+Qr_Vtnode_GND);
6080 : 0 : Q_pT_Vbi_ei=((Q_0_Vbi_ei+Qf_Vbi_ei)+Qr_Vbi_ei);
6081 : 0 : Q_pT_Vbi_ci=((Q_0_Vbi_ci+Qf_Vbi_ci)+Qr_Vbi_ci);
6082 : 0 : Q_pT_Vci_ei=(Qf_Vci_ei+Qr_Vci_ei);
6083 : : #endif
6084 : 0 : Q_pT=((Q_0+Qf)+Qr);
6085 : : #if defined(_DERIVATE)
6086 : 0 : d_Q_Vtnode_GND=Q_pT_Vtnode_GND;
6087 : 0 : d_Q_Vbi_ei=Q_pT_Vbi_ei;
6088 : 0 : d_Q_Vbi_ci=Q_pT_Vbi_ci;
6089 : 0 : d_Q_Vci_ei=Q_pT_Vci_ei;
6090 : : #endif
6091 : 0 : d_Q=Q_pT;
6092 [ # # ][ # # ]: 0 : while
[ # # ]
6093 : 0 : (((abs(d_Q)>=(1.0e-5*abs(Q_pT)))&&(l_it<=100)))
6094 : : {
6095 : : #if defined(_DYNAMIC)
6096 : 0 : d_Q0=d_Q;
6097 : : #endif
6098 : : #if defined(_DERIVATE)
6099 : 0 : I_Tf1_Vci_ei=(-i_0f*Q_pT_Vci_ei/Q_pT/Q_pT);
6100 : 0 : I_Tf1_Vtnode_GND=((i_0f_Vtnode_GND*Q_pT-i_0f*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
6101 : 0 : I_Tf1_Vbi_ei=((i_0f_Vbi_ei*Q_pT-i_0f*Q_pT_Vbi_ei)/Q_pT/Q_pT);
6102 : 0 : I_Tf1_Vbi_ci=(-i_0f*Q_pT_Vbi_ci/Q_pT/Q_pT);
6103 : : #endif
6104 : 0 : I_Tf1=(i_0f/Q_pT);
6105 : : #if defined(_DERIVATE)
6106 : 0 : a_h_Vci_ei=(Oich*I_Tf1_Vci_ei);
6107 : 0 : a_h_Vtnode_GND=(Oich*I_Tf1_Vtnode_GND);
6108 : 0 : a_h_Vbi_ei=(Oich*I_Tf1_Vbi_ei);
6109 : 0 : a_h_Vbi_ci=(Oich*I_Tf1_Vbi_ci);
6110 : : #endif
6111 : 0 : a_h=(Oich*I_Tf1);
6112 : : #if defined(_DERIVATE)
6113 : 0 : itf_Vci_ei=((I_Tf1_Vci_ei*(1.0+a_h))+(I_Tf1*a_h_Vci_ei));
6114 : 0 : itf_Vtnode_GND=((I_Tf1_Vtnode_GND*(1.0+a_h))+(I_Tf1*a_h_Vtnode_GND));
6115 : 0 : itf_Vbi_ei=((I_Tf1_Vbi_ei*(1.0+a_h))+(I_Tf1*a_h_Vbi_ei));
6116 : 0 : itf_Vbi_ci=((I_Tf1_Vbi_ci*(1.0+a_h))+(I_Tf1*a_h_Vbi_ci));
6117 : : #endif
6118 : 0 : itf=(I_Tf1*(1.0+a_h));
6119 : : #if defined(_DERIVATE)
6120 : 0 : itr_Vci_ei=(-i_0r*Q_pT_Vci_ei/Q_pT/Q_pT);
6121 : 0 : itr_Vtnode_GND=((i_0r_Vtnode_GND*Q_pT-i_0r*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
6122 : 0 : itr_Vbi_ci=((i_0r_Vbi_ci*Q_pT-i_0r*Q_pT_Vbi_ci)/Q_pT/Q_pT);
6123 : 0 : itr_Vbi_ei=(-i_0r*Q_pT_Vbi_ei/Q_pT/Q_pT);
6124 : : #endif
6125 : 0 : itr=(i_0r/Q_pT);
6126 : : #if defined(_DERIVATE)
6127 : 0 : Tf_Vci_ei=0.0;
6128 : 0 : Tf_Vbi_ei=0.0;
6129 : 0 : Tf_Vtnode_GND=T_f0_Vtnode_GND;
6130 : 0 : Tf_Vbi_ci=T_f0_Vbi_ci;
6131 : : #endif
6132 : 0 : Tf=T_f0;
6133 : : #if defined(_DERIVATE)
6134 : 0 : Qf_Vci_ei=(T_f0*itf_Vci_ei);
6135 : 0 : Qf_Vtnode_GND=((T_f0_Vtnode_GND*itf)+(T_f0*itf_Vtnode_GND));
6136 : 0 : Qf_Vbi_ci=((T_f0_Vbi_ci*itf)+(T_f0*itf_Vbi_ci));
6137 : 0 : Qf_Vbi_ei=(T_f0*itf_Vbi_ei);
6138 : : #endif
6139 : 0 : Qf=(T_f0*itf);
6140 [ # # ]: 0 : if
6141 : : (itf<(1.0e-6*ick))
6142 : : {
6143 : : #if defined(_DERIVATE)
6144 : 0 : Q_fT_Vci_ei=Qf_Vci_ei;
6145 : 0 : Q_fT_Vtnode_GND=Qf_Vtnode_GND;
6146 : 0 : Q_fT_Vbi_ci=Qf_Vbi_ci;
6147 : 0 : Q_fT_Vbi_ei=Qf_Vbi_ei;
6148 : : #endif
6149 : 0 : Q_fT=Qf;
6150 : : #if defined(_DERIVATE)
6151 : 0 : T_fT_Vci_ei=Tf_Vci_ei;
6152 : 0 : T_fT_Vbi_ei=Tf_Vbi_ei;
6153 : 0 : T_fT_Vtnode_GND=Tf_Vtnode_GND;
6154 : 0 : T_fT_Vbi_ci=Tf_Vbi_ci;
6155 : : #endif
6156 : 0 : T_fT=Tf;
6157 : : }
6158 : : else
6159 : : {
6160 : : #if defined(_DERIVATE)
6161 : 0 : FFa_Vci_ei=((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf);
6162 : 0 : FFa_Vtnode_GND=((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf);
6163 : 0 : FFa_Vbi_ei=(-ick*itf_Vbi_ei/itf/itf);
6164 : 0 : FFa_Vbi_ci=(-ick*itf_Vbi_ci/itf/itf);
6165 : : #endif
6166 : 0 : FFa=(ick/itf);
6167 : : {
6168 : 0 : double m00_logE(d00_logE0,FFa)
6169 : 0 : double m00_exp(d00_exp1,((-gtfe)*d00_logE0))
6170 : : #if defined(_DERIVATE)
6171 : 0 : double m10_logE(d10_logE0,d00_logE0,FFa)
6172 : : #define d10_exp1 d00_exp1
6173 : : #endif
6174 : : #if defined(_DERIVATE)
6175 : 0 : FFd_TfE_Vtnode_GND=((tef0_t_Vtnode_GND*d00_exp1)+(tef0_t*((-gtfe)*FFa_Vtnode_GND*d10_logE0)*d10_exp1));
6176 : 0 : FFd_TfE_Vci_ei=(tef0_t*((-gtfe)*FFa_Vci_ei*d10_logE0)*d10_exp1);
6177 : 0 : FFd_TfE_Vbi_ei=(tef0_t*((-gtfe)*FFa_Vbi_ei*d10_logE0)*d10_exp1);
6178 : 0 : FFd_TfE_Vbi_ci=(tef0_t*((-gtfe)*FFa_Vbi_ci*d10_logE0)*d10_exp1);
6179 : : #endif
6180 : 0 : FFd_TfE=(tef0_t*d00_exp1);
6181 : : }
6182 : : #if defined(_DERIVATE)
6183 : 0 : FFd_QfE_Vtnode_GND=(((FFd_TfE_Vtnode_GND*itf)+(FFd_TfE*itf_Vtnode_GND))/(gtfe+1.0));
6184 : 0 : FFd_QfE_Vci_ei=(((FFd_TfE_Vci_ei*itf)+(FFd_TfE*itf_Vci_ei))/(gtfe+1.0));
6185 : 0 : FFd_QfE_Vbi_ei=(((FFd_TfE_Vbi_ei*itf)+(FFd_TfE*itf_Vbi_ei))/(gtfe+1.0));
6186 : 0 : FFd_QfE_Vbi_ci=(((FFd_TfE_Vbi_ci*itf)+(FFd_TfE*itf_Vbi_ci))/(gtfe+1.0));
6187 : : #endif
6188 : 0 : FFd_QfE=((FFd_TfE*itf)/(gtfe+1.0));
6189 : : #if defined(_DERIVATE)
6190 : 0 : FFT_fbS_Vtnode_GND=((1.0-fthc)*thcs_t_Vtnode_GND);
6191 : : #endif
6192 : 0 : FFT_fbS=((1.0-fthc)*thcs_t);
6193 : : #if defined(_DERIVATE)
6194 : 0 : FFx_Vci_ei=(-FFa_Vci_ei);
6195 : 0 : FFx_Vtnode_GND=(-FFa_Vtnode_GND);
6196 : 0 : FFx_Vbi_ei=(-FFa_Vbi_ei);
6197 : 0 : FFx_Vbi_ci=(-FFa_Vbi_ci);
6198 : : #endif
6199 : 0 : FFx=(1.0-FFa);
6200 : : {
6201 : 0 : double m00_sqrt(d00_sqrt0,((FFx*FFx)+ahc))
6202 : : #if defined(_DERIVATE)
6203 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFx*FFx)+ahc))
6204 : : #endif
6205 : : #if defined(_DERIVATE)
6206 : 0 : FFs_Vci_ei=((FFx_Vci_ei*FFx)+(FFx*FFx_Vci_ei))*d10_sqrt0;
6207 : 0 : FFs_Vtnode_GND=((FFx_Vtnode_GND*FFx)+(FFx*FFx_Vtnode_GND))*d10_sqrt0;
6208 : 0 : FFs_Vbi_ei=((FFx_Vbi_ei*FFx)+(FFx*FFx_Vbi_ei))*d10_sqrt0;
6209 : 0 : FFs_Vbi_ci=((FFx_Vbi_ci*FFx)+(FFx*FFx_Vbi_ci))*d10_sqrt0;
6210 : : #endif
6211 : 0 : FFs=d00_sqrt0;
6212 : : }
6213 : : {
6214 : 0 : double m00_sqrt(d00_sqrt0,(1.0+ahc))
6215 : : #if defined(_DERIVATE)
6216 : 0 : FFw_Vci_ei=((FFx_Vci_ei+FFs_Vci_ei)/(1.0+d00_sqrt0));
6217 : 0 : FFw_Vtnode_GND=((FFx_Vtnode_GND+FFs_Vtnode_GND)/(1.0+d00_sqrt0));
6218 : 0 : FFw_Vbi_ei=((FFx_Vbi_ei+FFs_Vbi_ei)/(1.0+d00_sqrt0));
6219 : 0 : FFw_Vbi_ci=((FFx_Vbi_ci+FFs_Vbi_ci)/(1.0+d00_sqrt0));
6220 : : #endif
6221 : 0 : FFw=((FFx+FFs)/(1.0+d00_sqrt0));
6222 : : }
6223 : : #if defined(_DERIVATE)
6224 : 0 : FFw_2_Vci_ei=((FFw_Vci_ei*FFw)+(FFw*FFw_Vci_ei));
6225 : 0 : FFw_2_Vtnode_GND=((FFw_Vtnode_GND*FFw)+(FFw*FFw_Vtnode_GND));
6226 : 0 : FFw_2_Vbi_ei=((FFw_Vbi_ei*FFw)+(FFw*FFw_Vbi_ei));
6227 : 0 : FFw_2_Vbi_ci=((FFw_Vbi_ci*FFw)+(FFw*FFw_Vbi_ci));
6228 : : #endif
6229 : 0 : FFw_2=(FFw*FFw);
6230 : : #if defined(_DERIVATE)
6231 : 0 : FFd_QfB_Vtnode_GND=((((FFT_fbS_Vtnode_GND*itf)+(FFT_fbS*itf_Vtnode_GND))*FFw_2)+((FFT_fbS*itf)*FFw_2_Vtnode_GND));
6232 : 0 : FFd_QfB_Vbi_ei=(((FFT_fbS*itf_Vbi_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ei));
6233 : 0 : FFd_QfB_Vbi_ci=(((FFT_fbS*itf_Vbi_ci)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ci));
6234 : 0 : FFd_QfB_Vci_ei=(((FFT_fbS*itf_Vci_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vci_ei));
6235 : : #endif
6236 : 0 : FFd_QfB=((FFT_fbS*itf)*FFw_2);
6237 : : #if defined(_DERIVATE)
6238 : 0 : Q_bf_Vtnode_GND=FFd_QfB_Vtnode_GND;
6239 : 0 : Q_bf_Vbi_ei=FFd_QfB_Vbi_ei;
6240 : 0 : Q_bf_Vbi_ci=FFd_QfB_Vbi_ci;
6241 : 0 : Q_bf_Vci_ei=FFd_QfB_Vci_ei;
6242 : : #endif
6243 : 0 : Q_bf=FFd_QfB;
6244 : : #if defined(_DERIVATE)
6245 : 0 : 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)));
6246 : 0 : 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)));
6247 : 0 : 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)));
6248 : 0 : 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)));
6249 : : #endif
6250 : 0 : FFa_w=(FFw_2*(1.0+((2.0*FFa)/FFs)));
6251 : : #if defined(_DERIVATE)
6252 : 0 : FFd_TfB_Vtnode_GND=((FFT_fbS_Vtnode_GND*FFa_w)+(FFT_fbS*FFa_w_Vtnode_GND));
6253 : 0 : FFd_TfB_Vci_ei=(FFT_fbS*FFa_w_Vci_ei);
6254 : 0 : FFd_TfB_Vbi_ei=(FFT_fbS*FFa_w_Vbi_ei);
6255 : 0 : FFd_TfB_Vbi_ci=(FFT_fbS*FFa_w_Vbi_ci);
6256 : : #endif
6257 : 0 : FFd_TfB=(FFT_fbS*FFa_w);
6258 : : #if defined(_DERIVATE)
6259 : 0 : FFT_pcS_Vtnode_GND=(fthc*thcs_t_Vtnode_GND);
6260 : : #endif
6261 : 0 : FFT_pcS=(fthc*thcs_t);
6262 [ # # ][ # # ]: 0 : if
6263 : : ((latb<=0.0)&&(latl<=0.0))
6264 : : {
6265 : : #if defined(_DERIVATE)
6266 : 0 : FFQ_fC_Vtnode_GND=((((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND))*FFw_2)+((FFT_pcS*itf)*FFw_2_Vtnode_GND));
6267 : 0 : FFQ_fC_Vbi_ei=(((FFT_pcS*itf_Vbi_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ei));
6268 : 0 : FFQ_fC_Vbi_ci=(((FFT_pcS*itf_Vbi_ci)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ci));
6269 : 0 : FFQ_fC_Vci_ei=(((FFT_pcS*itf_Vci_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vci_ei));
6270 : : #endif
6271 : 0 : FFQ_fC=((FFT_pcS*itf)*FFw_2);
6272 : : #if defined(_DERIVATE)
6273 : 0 : FFT_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*FFa_w)+(FFT_pcS*FFa_w_Vtnode_GND));
6274 : 0 : FFT_fC_Vci_ei=(FFT_pcS*FFa_w_Vci_ei);
6275 : 0 : FFT_fC_Vbi_ei=(FFT_pcS*FFa_w_Vbi_ei);
6276 : 0 : FFT_fC_Vbi_ci=(FFT_pcS*FFa_w_Vbi_ci);
6277 : : #endif
6278 : 0 : FFT_fC=(FFT_pcS*FFa_w);
6279 : : #if defined(_DERIVATE)
6280 : 0 : FFQ_cT_Vtnode_GND=FFQ_fC_Vtnode_GND;
6281 : 0 : FFQ_cT_Vbi_ei=FFQ_fC_Vbi_ei;
6282 : 0 : FFQ_cT_Vbi_ci=FFQ_fC_Vbi_ci;
6283 : 0 : FFQ_cT_Vci_ei=FFQ_fC_Vci_ei;
6284 : : #endif
6285 : 0 : FFQ_cT=FFQ_fC;
6286 : : #if defined(_DERIVATE)
6287 : 0 : FFT_cT_Vtnode_GND=FFT_fC_Vtnode_GND;
6288 : 0 : FFT_cT_Vci_ei=FFT_fC_Vci_ei;
6289 : 0 : FFT_cT_Vbi_ei=FFT_fC_Vbi_ei;
6290 : 0 : FFT_cT_Vbi_ci=FFT_fC_Vbi_ci;
6291 : : #endif
6292 : 0 : FFT_cT=FFT_fC;
6293 : : }
6294 : : else
6295 : : {
6296 : : #if defined(_DERIVATE)
6297 : 0 : FFQ_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND));
6298 : 0 : FFQ_fC_Vbi_ei=(FFT_pcS*itf_Vbi_ei);
6299 : 0 : FFQ_fC_Vbi_ci=(FFT_pcS*itf_Vbi_ci);
6300 : 0 : FFQ_fC_Vci_ei=(FFT_pcS*itf_Vci_ei);
6301 : : #endif
6302 : 0 : FFQ_fC=(FFT_pcS*itf);
6303 : : #if defined(_DERIVATE)
6304 : 0 : FCa_Vci_ei=(-((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf));
6305 : 0 : FCa_Vtnode_GND=(-((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf));
6306 : 0 : FCa_Vbi_ei=(-(-ick*itf_Vbi_ei/itf/itf));
6307 : 0 : FCa_Vbi_ci=(-(-ick*itf_Vbi_ci/itf/itf));
6308 : : #endif
6309 : 0 : FCa=(1.0-(ick/itf));
6310 : : {
6311 : 0 : double m00_sqrt(d00_sqrt0,((FCa*FCa)+ahc))
6312 : : #if defined(_DERIVATE)
6313 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FCa*FCa)+ahc))
6314 : : #endif
6315 : : #if defined(_DERIVATE)
6316 : 0 : FCrt_Vci_ei=((FCa_Vci_ei*FCa)+(FCa*FCa_Vci_ei))*d10_sqrt0;
6317 : 0 : FCrt_Vtnode_GND=((FCa_Vtnode_GND*FCa)+(FCa*FCa_Vtnode_GND))*d10_sqrt0;
6318 : 0 : FCrt_Vbi_ei=((FCa_Vbi_ei*FCa)+(FCa*FCa_Vbi_ei))*d10_sqrt0;
6319 : 0 : FCrt_Vbi_ci=((FCa_Vbi_ci*FCa)+(FCa*FCa_Vbi_ci))*d10_sqrt0;
6320 : : #endif
6321 : 0 : FCrt=d00_sqrt0;
6322 : : }
6323 : : {
6324 : 0 : double m00_sqrt(d00_sqrt0,(1.0+ahc))
6325 : : #if defined(_DERIVATE)
6326 : 0 : FCa_ck_Vci_ei=(-((FCa_Vci_ei+FCrt_Vci_ei)/(1.0+d00_sqrt0)));
6327 : 0 : FCa_ck_Vtnode_GND=(-((FCa_Vtnode_GND+FCrt_Vtnode_GND)/(1.0+d00_sqrt0)));
6328 : 0 : FCa_ck_Vbi_ei=(-((FCa_Vbi_ei+FCrt_Vbi_ei)/(1.0+d00_sqrt0)));
6329 : 0 : FCa_ck_Vbi_ci=(-((FCa_Vbi_ci+FCrt_Vbi_ci)/(1.0+d00_sqrt0)));
6330 : : #endif
6331 : 0 : FCa_ck=(1.0-((FCa+FCrt)/(1.0+d00_sqrt0)));
6332 : : }
6333 : : #if defined(_DERIVATE)
6334 : 0 : 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));
6335 : 0 : 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));
6336 : 0 : 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));
6337 : 0 : 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));
6338 : : #endif
6339 : 0 : FCdaick_ditf=(((FCa_ck-1.0)*(1-FCa))/(FCrt*itf));
6340 [ # # ]: 0 : if
6341 : : (latb>latl)
6342 : : {
6343 : : #if defined(_DERIVATE)
6344 : 0 : FCz_Vci_ei=0.0;
6345 : 0 : FCz_Vtnode_GND=0.0;
6346 : 0 : FCz_Vbi_ei=0.0;
6347 : 0 : FCz_Vbi_ci=0.0;
6348 : : #endif
6349 : 0 : FCz=(latb-latl);
6350 : 0 : FCxl=(1.0+latl);
6351 : 0 : FCxb=(1.0+latb);
6352 [ # # ]: 0 : if
6353 : : (latb>0.01)
6354 : : {
6355 : : {
6356 : 0 : double m00_logE(d00_logE0,(FCxb/FCxl))
6357 : 0 : FCln=d00_logE0;
6358 : : }
6359 : : {
6360 : 0 : double m00_exp(d00_exp0,((FCa_ck-1.0)*FCln))
6361 : : #if defined(_DERIVATE)
6362 : : #define d10_exp0 d00_exp0
6363 : : #endif
6364 : : #if defined(_DERIVATE)
6365 : 0 : FCa1_Vci_ei=FCa_ck_Vci_ei*FCln*d10_exp0;
6366 : 0 : FCa1_Vtnode_GND=FCa_ck_Vtnode_GND*FCln*d10_exp0;
6367 : 0 : FCa1_Vbi_ei=FCa_ck_Vbi_ei*FCln*d10_exp0;
6368 : 0 : FCa1_Vbi_ci=FCa_ck_Vbi_ci*FCln*d10_exp0;
6369 : : #endif
6370 : 0 : FCa1=d00_exp0;
6371 : : }
6372 : : #if defined(_DERIVATE)
6373 : 0 : FCd_a_Vci_ei=(-(-FCa1_Vci_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
6374 : 0 : FCd_a_Vtnode_GND=(-(-FCa1_Vtnode_GND*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
6375 : 0 : FCd_a_Vbi_ei=(-(-FCa1_Vbi_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
6376 : 0 : FCd_a_Vbi_ci=(-(-FCa1_Vbi_ci*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
6377 : : #endif
6378 : 0 : FCd_a=(1.0/(latl-(FCa1*latb)));
6379 : : #if defined(_DERIVATE)
6380 : 0 : FCw_Vci_ei=((FCa1_Vci_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vci_ei));
6381 : 0 : FCw_Vtnode_GND=((FCa1_Vtnode_GND*FCd_a)+((FCa1-1.0)*FCd_a_Vtnode_GND));
6382 : 0 : FCw_Vbi_ei=((FCa1_Vbi_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ei));
6383 : 0 : FCw_Vbi_ci=((FCa1_Vbi_ci*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ci));
6384 : : #endif
6385 : 0 : FCw=((FCa1-1.0)*FCd_a);
6386 : : #if defined(_DERIVATE)
6387 : 0 : 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));
6388 : 0 : 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));
6389 : 0 : 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));
6390 : 0 : 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));
6391 : : #endif
6392 : 0 : FCdw_daick=(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a);
6393 : : {
6394 : 0 : double m00_logE(d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
6395 : : #if defined(_DERIVATE)
6396 : 0 : double m10_logE(d10_logE0,d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
6397 : : #endif
6398 : : #if defined(_DERIVATE)
6399 : 0 : FCa1_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;
6400 : 0 : FCa1_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;
6401 : 0 : FCa1_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;
6402 : 0 : FCa1_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;
6403 : : #endif
6404 : 0 : FCa1=d00_logE0;
6405 : : }
6406 : : #if defined(_DERIVATE)
6407 : 0 : 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))));
6408 : 0 : 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))));
6409 : 0 : 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))));
6410 : 0 : 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))));
6411 : : #endif
6412 : 0 : FCda1_dw=((latb/(1.0+(latb*FCw)))-(latl/(1.0+(latl*FCw))));
6413 : : }
6414 : : else
6415 : : {
6416 : : #if defined(_DERIVATE)
6417 : 0 : FCf1_Vci_ei=(-FCa_ck_Vci_ei);
6418 : 0 : FCf1_Vtnode_GND=(-FCa_ck_Vtnode_GND);
6419 : 0 : FCf1_Vbi_ei=(-FCa_ck_Vbi_ei);
6420 : 0 : FCf1_Vbi_ci=(-FCa_ck_Vbi_ci);
6421 : : #endif
6422 : 0 : FCf1=(1.0-FCa_ck);
6423 : : #if defined(_DERIVATE)
6424 : 0 : FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6425 : 0 : FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6426 : 0 : FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6427 : 0 : FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6428 : : #endif
6429 : 0 : FCd_a=(1.0/(1.0+(FCa_ck*latb)));
6430 : : #if defined(_DERIVATE)
6431 : 0 : FCw_Vci_ei=((FCf1_Vci_ei*FCd_a)+(FCf1*FCd_a_Vci_ei));
6432 : 0 : FCw_Vtnode_GND=((FCf1_Vtnode_GND*FCd_a)+(FCf1*FCd_a_Vtnode_GND));
6433 : 0 : FCw_Vbi_ei=((FCf1_Vbi_ei*FCd_a)+(FCf1*FCd_a_Vbi_ei));
6434 : 0 : FCw_Vbi_ci=((FCf1_Vbi_ci*FCd_a)+(FCf1*FCd_a_Vbi_ci));
6435 : : #endif
6436 : 0 : FCw=(FCf1*FCd_a);
6437 : : #if defined(_DERIVATE)
6438 : 0 : FCdw_daick_Vci_ei=((((((-1.0)*FCd_a_Vci_ei)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vci_ei))*FCxb*FCd_a)+(((((-1.0)*FCd_a)*FCd_a)*FCxb)*FCd_a_Vci_ei));
6439 : 0 : FCdw_daick_Vtnode_GND=((((((-1.0)*FCd_a_Vtnode_GND)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vtnode_GND))*FCxb*FCd_a)+(((((-1.0)*FCd_a)*FCd_a)*FCxb)*FCd_a_Vtnode_GND));
6440 : 0 : FCdw_daick_Vbi_ei=((((((-1.0)*FCd_a_Vbi_ei)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vbi_ei))*FCxb*FCd_a)+(((((-1.0)*FCd_a)*FCd_a)*FCxb)*FCd_a_Vbi_ei));
6441 : 0 : FCdw_daick_Vbi_ci=((((((-1.0)*FCd_a_Vbi_ci)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vbi_ci))*FCxb*FCd_a)+(((((-1.0)*FCd_a)*FCd_a)*FCxb)*FCd_a_Vbi_ci));
6442 : : #endif
6443 : 0 : FCdw_daick=(((((-1.0)*FCd_a)*FCd_a)*FCxb)*FCd_a);
6444 : : #if defined(_DERIVATE)
6445 : 0 : FCa1_Vci_ei=((FCz_Vci_ei*FCw)+(FCz*FCw_Vci_ei));
6446 : 0 : FCa1_Vtnode_GND=((FCz_Vtnode_GND*FCw)+(FCz*FCw_Vtnode_GND));
6447 : 0 : FCa1_Vbi_ei=((FCz_Vbi_ei*FCw)+(FCz*FCw_Vbi_ei));
6448 : 0 : FCa1_Vbi_ci=((FCz_Vbi_ci*FCw)+(FCz*FCw_Vbi_ci));
6449 : : #endif
6450 : 0 : FCa1=(FCz*FCw);
6451 : : #if defined(_DERIVATE)
6452 : 0 : FCda1_dw_Vci_ei=FCz_Vci_ei;
6453 : 0 : FCda1_dw_Vtnode_GND=FCz_Vtnode_GND;
6454 : 0 : FCda1_dw_Vbi_ei=FCz_Vbi_ei;
6455 : 0 : FCda1_dw_Vbi_ci=FCz_Vbi_ci;
6456 : : #endif
6457 : 0 : FCda1_dw=FCz;
6458 : : }
6459 : : #if defined(_DERIVATE)
6460 : 0 : FCf_CT_Vbi_ei=(-2.0*FCz_Vbi_ei/FCz/FCz);
6461 : 0 : FCf_CT_Vbi_ci=(-2.0*FCz_Vbi_ci/FCz/FCz);
6462 : 0 : FCf_CT_Vci_ei=(-2.0*FCz_Vci_ei/FCz/FCz);
6463 : 0 : FCf_CT_Vtnode_GND=(-2.0*FCz_Vtnode_GND/FCz/FCz);
6464 : : #endif
6465 : 0 : FCf_CT=(2.0/FCz);
6466 : : #if defined(_DERIVATE)
6467 : 0 : FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
6468 : 0 : FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
6469 : 0 : FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
6470 : 0 : FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
6471 : : #endif
6472 : 0 : FCw2=(FCw*FCw);
6473 : : #if defined(_DERIVATE)
6474 : 0 : 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);
6475 : 0 : 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);
6476 : 0 : 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);
6477 : 0 : 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);
6478 : : #endif
6479 : 0 : FCf1=((((((latb*latl)*FCw)*FCw2)/3.0)+(((latb+latl)*FCw2)/2.0))+FCw);
6480 : : #if defined(_DERIVATE)
6481 : 0 : FCdf1_dw_Vci_ei=(((latb*latl)*FCw2_Vci_ei)+((latb+latl)*FCw_Vci_ei));
6482 : 0 : FCdf1_dw_Vtnode_GND=(((latb*latl)*FCw2_Vtnode_GND)+((latb+latl)*FCw_Vtnode_GND));
6483 : 0 : FCdf1_dw_Vbi_ei=(((latb*latl)*FCw2_Vbi_ei)+((latb+latl)*FCw_Vbi_ei));
6484 : 0 : FCdf1_dw_Vbi_ci=(((latb*latl)*FCw2_Vbi_ci)+((latb+latl)*FCw_Vbi_ci));
6485 : : #endif
6486 : 0 : FCdf1_dw=((((latb*latl)*FCw2)+((latb+latl)*FCw))+1.0);
6487 : : #if defined(_DERIVATE)
6488 : 0 : z_Vci_ei=(latb*FCw_Vci_ei);
6489 : 0 : z_Vtnode_GND=(latb*FCw_Vtnode_GND);
6490 : 0 : z_Vbi_ei=(latb*FCw_Vbi_ei);
6491 : 0 : z_Vbi_ci=(latb*FCw_Vbi_ci);
6492 : : #endif
6493 : 0 : z=(latb*FCw);
6494 : : {
6495 : 0 : double m00_logE(d00_logE0,(1+(latb*FCw)))
6496 : : #if defined(_DERIVATE)
6497 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latb*FCw)))
6498 : : #endif
6499 : : #if defined(_DERIVATE)
6500 : 0 : lnzb_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
6501 : 0 : lnzb_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
6502 : 0 : lnzb_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
6503 : 0 : lnzb_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
6504 : : #endif
6505 : 0 : lnzb=d00_logE0;
6506 : : }
6507 [ # # ]: 0 : if
6508 : : (z>1.0e-6)
6509 : : {
6510 : : #if defined(_DERIVATE)
6511 : 0 : x_Vci_ei=z_Vci_ei;
6512 : 0 : x_Vtnode_GND=z_Vtnode_GND;
6513 : 0 : x_Vbi_ei=z_Vbi_ei;
6514 : 0 : x_Vbi_ci=z_Vbi_ci;
6515 : : #endif
6516 : 0 : x=(1.0+z);
6517 : : #if defined(_DERIVATE)
6518 : 0 : a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
6519 : 0 : a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
6520 : 0 : a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
6521 : 0 : a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
6522 : : #endif
6523 : 0 : a=(x*x);
6524 : : #if defined(_DERIVATE)
6525 : 0 : a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ei))));
6526 : 0 : a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ci))));
6527 : 0 : a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vci_ei))));
6528 : 0 : a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vtnode_GND))));
6529 : : #endif
6530 : 0 : a2=(0.250*((a*((2.0*lnzb)-1.0))+1.0));
6531 : : #if defined(_DERIVATE)
6532 : 0 : a3_Vbi_ei=(((((a_Vbi_ei*x)+(a*x_Vbi_ei))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vbi_ei)))/9.0);
6533 : 0 : a3_Vbi_ci=(((((a_Vbi_ci*x)+(a*x_Vbi_ci))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vbi_ci)))/9.0);
6534 : 0 : a3_Vci_ei=(((((a_Vci_ei*x)+(a*x_Vci_ei))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vci_ei)))/9.0);
6535 : 0 : a3_Vtnode_GND=(((((a_Vtnode_GND*x)+(a*x_Vtnode_GND))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vtnode_GND)))/9.0);
6536 : : #endif
6537 : 0 : a3=((((a*x)*((3.0*lnzb)-1.0))+1.0)/9.0);
6538 : 0 : r=(latl/latb);
6539 : : #if defined(_DERIVATE)
6540 : 0 : FCf2_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latb);
6541 : 0 : FCf2_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latb);
6542 : 0 : FCf2_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latb);
6543 : 0 : FCf2_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latb);
6544 : : #endif
6545 : 0 : FCf2=((((1.0-r)*a2)+(r*a3))/latb);
6546 : : #if defined(_DERIVATE)
6547 : 0 : FCdf2_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vci_ei));
6548 : 0 : FCdf2_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vtnode_GND));
6549 : 0 : FCdf2_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ei));
6550 : 0 : FCdf2_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ci));
6551 : : #endif
6552 : 0 : FCdf2_dw=((((1.0-r)*x)+(r*a))*lnzb);
6553 : : }
6554 : : else
6555 : : {
6556 : : #if defined(_DERIVATE)
6557 : 0 : a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
6558 : 0 : a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
6559 : 0 : a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
6560 : 0 : a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
6561 : : #endif
6562 : 0 : a=(z*z);
6563 : : #if defined(_DERIVATE)
6564 : 0 : a2_Vbi_ei=((z_Vbi_ei-(0.25*a_Vbi_ei))+(((0.10*z_Vbi_ei)*a)+((0.10*z)*a_Vbi_ei)));
6565 : 0 : a2_Vbi_ci=((z_Vbi_ci-(0.25*a_Vbi_ci))+(((0.10*z_Vbi_ci)*a)+((0.10*z)*a_Vbi_ci)));
6566 : 0 : a2_Vci_ei=((z_Vci_ei-(0.25*a_Vci_ei))+(((0.10*z_Vci_ei)*a)+((0.10*z)*a_Vci_ei)));
6567 : 0 : a2_Vtnode_GND=((z_Vtnode_GND-(0.25*a_Vtnode_GND))+(((0.10*z_Vtnode_GND)*a)+((0.10*z)*a_Vtnode_GND)));
6568 : : #endif
6569 : 0 : a2=(((3.0+z)-(0.25*a))+((0.10*z)*a));
6570 : : #if defined(_DERIVATE)
6571 : 0 : a3_Vbi_ei=(((2.0*z_Vbi_ei)+(0.75*a_Vbi_ei))-(((0.20*a_Vbi_ei)*z)+((0.20*a)*z_Vbi_ei)));
6572 : 0 : a3_Vbi_ci=(((2.0*z_Vbi_ci)+(0.75*a_Vbi_ci))-(((0.20*a_Vbi_ci)*z)+((0.20*a)*z_Vbi_ci)));
6573 : 0 : a3_Vci_ei=(((2.0*z_Vci_ei)+(0.75*a_Vci_ei))-(((0.20*a_Vci_ei)*z)+((0.20*a)*z_Vci_ei)));
6574 : 0 : a3_Vtnode_GND=(((2.0*z_Vtnode_GND)+(0.75*a_Vtnode_GND))-(((0.20*a_Vtnode_GND)*z)+((0.20*a)*z_Vtnode_GND)));
6575 : : #endif
6576 : 0 : a3=(((2.0*z)+(0.75*a))-((0.20*a)*z));
6577 : : #if defined(_DERIVATE)
6578 : 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);
6579 : 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);
6580 : 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);
6581 : 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);
6582 : : #endif
6583 : 0 : FCf2=(((((latb*a2)+(latl*a3))*FCw)*FCw)/6.0);
6584 : : #if defined(_DERIVATE)
6585 : 0 : FCdf2_dw_Vci_ei=(((((latl*FCw_Vci_ei)*(1+z))+((1+(latl*FCw))*z_Vci_ei))*lnzb)+(((1+(latl*FCw))*(1+z))*lnzb_Vci_ei));
6586 : 0 : FCdf2_dw_Vtnode_GND=(((((latl*FCw_Vtnode_GND)*(1+z))+((1+(latl*FCw))*z_Vtnode_GND))*lnzb)+(((1+(latl*FCw))*(1+z))*lnzb_Vtnode_GND));
6587 : 0 : FCdf2_dw_Vbi_ei=(((((latl*FCw_Vbi_ei)*(1+z))+((1+(latl*FCw))*z_Vbi_ei))*lnzb)+(((1+(latl*FCw))*(1+z))*lnzb_Vbi_ei));
6588 : 0 : FCdf2_dw_Vbi_ci=(((((latl*FCw_Vbi_ci)*(1+z))+((1+(latl*FCw))*z_Vbi_ci))*lnzb)+(((1+(latl*FCw))*(1+z))*lnzb_Vbi_ci));
6589 : : #endif
6590 : 0 : FCdf2_dw=(((1+(latl*FCw))*(1+z))*lnzb);
6591 : : }
6592 : : #if defined(_DERIVATE)
6593 : 0 : z_Vci_ei=(latl*FCw_Vci_ei);
6594 : 0 : z_Vtnode_GND=(latl*FCw_Vtnode_GND);
6595 : 0 : z_Vbi_ei=(latl*FCw_Vbi_ei);
6596 : 0 : z_Vbi_ci=(latl*FCw_Vbi_ci);
6597 : : #endif
6598 : 0 : z=(latl*FCw);
6599 : : {
6600 : 0 : double m00_logE(d00_logE0,(1+(latl*FCw)))
6601 : : #if defined(_DERIVATE)
6602 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latl*FCw)))
6603 : : #endif
6604 : : #if defined(_DERIVATE)
6605 : 0 : lnzb_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
6606 : 0 : lnzb_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
6607 : 0 : lnzb_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
6608 : 0 : lnzb_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
6609 : : #endif
6610 : 0 : lnzb=d00_logE0;
6611 : : }
6612 [ # # ]: 0 : if
6613 : : (z>1.0e-6)
6614 : : {
6615 : : #if defined(_DERIVATE)
6616 : 0 : x_Vci_ei=z_Vci_ei;
6617 : 0 : x_Vtnode_GND=z_Vtnode_GND;
6618 : 0 : x_Vbi_ei=z_Vbi_ei;
6619 : 0 : x_Vbi_ci=z_Vbi_ci;
6620 : : #endif
6621 : 0 : x=(1.0+z);
6622 : : #if defined(_DERIVATE)
6623 : 0 : a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
6624 : 0 : a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
6625 : 0 : a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
6626 : 0 : a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
6627 : : #endif
6628 : 0 : a=(x*x);
6629 : : #if defined(_DERIVATE)
6630 : 0 : a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ei))));
6631 : 0 : a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ci))));
6632 : 0 : a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vci_ei))));
6633 : 0 : a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vtnode_GND))));
6634 : : #endif
6635 : 0 : a2=(0.250*((a*((2.0*lnzb)-1.0))+1.0));
6636 : : #if defined(_DERIVATE)
6637 : 0 : a3_Vbi_ei=(((((a_Vbi_ei*x)+(a*x_Vbi_ei))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vbi_ei)))/9.0);
6638 : 0 : a3_Vbi_ci=(((((a_Vbi_ci*x)+(a*x_Vbi_ci))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vbi_ci)))/9.0);
6639 : 0 : a3_Vci_ei=(((((a_Vci_ei*x)+(a*x_Vci_ei))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vci_ei)))/9.0);
6640 : 0 : a3_Vtnode_GND=(((((a_Vtnode_GND*x)+(a*x_Vtnode_GND))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vtnode_GND)))/9.0);
6641 : : #endif
6642 : 0 : a3=((((a*x)*((3.0*lnzb)-1.0))+1.0)/9.0);
6643 : 0 : r=(latb/latl);
6644 : : #if defined(_DERIVATE)
6645 : 0 : FCf3_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latl);
6646 : 0 : FCf3_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latl);
6647 : 0 : FCf3_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latl);
6648 : 0 : FCf3_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latl);
6649 : : #endif
6650 : 0 : FCf3=((((1.0-r)*a2)+(r*a3))/latl);
6651 : : #if defined(_DERIVATE)
6652 : 0 : FCdf3_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vci_ei));
6653 : 0 : FCdf3_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vtnode_GND));
6654 : 0 : FCdf3_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ei));
6655 : 0 : FCdf3_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ci));
6656 : : #endif
6657 : 0 : FCdf3_dw=((((1.0-r)*x)+(r*a))*lnzb);
6658 : : }
6659 : : else
6660 : : {
6661 : : #if defined(_DERIVATE)
6662 : 0 : a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
6663 : 0 : a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
6664 : 0 : a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
6665 : 0 : a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
6666 : : #endif
6667 : 0 : a=(z*z);
6668 : : #if defined(_DERIVATE)
6669 : 0 : a2_Vbi_ei=((z_Vbi_ei-(0.25*a_Vbi_ei))+(((0.10*z_Vbi_ei)*a)+((0.10*z)*a_Vbi_ei)));
6670 : 0 : a2_Vbi_ci=((z_Vbi_ci-(0.25*a_Vbi_ci))+(((0.10*z_Vbi_ci)*a)+((0.10*z)*a_Vbi_ci)));
6671 : 0 : a2_Vci_ei=((z_Vci_ei-(0.25*a_Vci_ei))+(((0.10*z_Vci_ei)*a)+((0.10*z)*a_Vci_ei)));
6672 : 0 : a2_Vtnode_GND=((z_Vtnode_GND-(0.25*a_Vtnode_GND))+(((0.10*z_Vtnode_GND)*a)+((0.10*z)*a_Vtnode_GND)));
6673 : : #endif
6674 : 0 : a2=(((3.0+z)-(0.25*a))+((0.10*z)*a));
6675 : : #if defined(_DERIVATE)
6676 : 0 : a3_Vbi_ei=(((2.0*z_Vbi_ei)+(0.75*a_Vbi_ei))-(((0.20*a_Vbi_ei)*z)+((0.20*a)*z_Vbi_ei)));
6677 : 0 : a3_Vbi_ci=(((2.0*z_Vbi_ci)+(0.75*a_Vbi_ci))-(((0.20*a_Vbi_ci)*z)+((0.20*a)*z_Vbi_ci)));
6678 : 0 : a3_Vci_ei=(((2.0*z_Vci_ei)+(0.75*a_Vci_ei))-(((0.20*a_Vci_ei)*z)+((0.20*a)*z_Vci_ei)));
6679 : 0 : a3_Vtnode_GND=(((2.0*z_Vtnode_GND)+(0.75*a_Vtnode_GND))-(((0.20*a_Vtnode_GND)*z)+((0.20*a)*z_Vtnode_GND)));
6680 : : #endif
6681 : 0 : a3=(((2.0*z)+(0.75*a))-((0.20*a)*z));
6682 : : #if defined(_DERIVATE)
6683 : 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);
6684 : 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);
6685 : 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);
6686 : 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);
6687 : : #endif
6688 : 0 : FCf3=(((((latl*a2)+(latb*a3))*FCw)*FCw)/6.0);
6689 : : #if defined(_DERIVATE)
6690 : 0 : FCdf3_dw_Vci_ei=(((((latb*FCw_Vci_ei)*(1+z))+((1+(latb*FCw))*z_Vci_ei))*lnzb)+(((1+(latb*FCw))*(1+z))*lnzb_Vci_ei));
6691 : 0 : FCdf3_dw_Vtnode_GND=(((((latb*FCw_Vtnode_GND)*(1+z))+((1+(latb*FCw))*z_Vtnode_GND))*lnzb)+(((1+(latb*FCw))*(1+z))*lnzb_Vtnode_GND));
6692 : 0 : FCdf3_dw_Vbi_ei=(((((latb*FCw_Vbi_ei)*(1+z))+((1+(latb*FCw))*z_Vbi_ei))*lnzb)+(((1+(latb*FCw))*(1+z))*lnzb_Vbi_ei));
6693 : 0 : FCdf3_dw_Vbi_ci=(((((latb*FCw_Vbi_ci)*(1+z))+((1+(latb*FCw))*z_Vbi_ci))*lnzb)+(((1+(latb*FCw))*(1+z))*lnzb_Vbi_ci));
6694 : : #endif
6695 : 0 : FCdf3_dw=(((1+(latb*FCw))*(1+z))*lnzb);
6696 : : }
6697 : : #if defined(_DERIVATE)
6698 : 0 : FCf_ci_Vci_ei=((FCf_CT_Vci_ei*(((FCa1*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa1_Vci_ei*FCf1)+(FCa1*FCf1_Vci_ei))-FCf2_Vci_ei)+FCf3_Vci_ei)));
6699 : 0 : FCf_ci_Vtnode_GND=((FCf_CT_Vtnode_GND*(((FCa1*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa1_Vtnode_GND*FCf1)+(FCa1*FCf1_Vtnode_GND))-FCf2_Vtnode_GND)+FCf3_Vtnode_GND)));
6700 : 0 : FCf_ci_Vbi_ei=((FCf_CT_Vbi_ei*(((FCa1*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa1_Vbi_ei*FCf1)+(FCa1*FCf1_Vbi_ei))-FCf2_Vbi_ei)+FCf3_Vbi_ei)));
6701 : 0 : FCf_ci_Vbi_ci=((FCf_CT_Vbi_ci*(((FCa1*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa1_Vbi_ci*FCf1)+(FCa1*FCf1_Vbi_ci))-FCf2_Vbi_ci)+FCf3_Vbi_ci)));
6702 : : #endif
6703 : 0 : FCf_ci=(FCf_CT*(((FCa1*FCf1)-FCf2)+FCf3));
6704 : : #if defined(_DERIVATE)
6705 : 0 : 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)));
6706 : 0 : 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)));
6707 : 0 : 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)));
6708 : 0 : 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)));
6709 : : #endif
6710 : 0 : FCdfc_dw=(FCf_CT*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw));
6711 : : #if defined(_DERIVATE)
6712 : 0 : FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
6713 : 0 : FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
6714 : 0 : FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
6715 : 0 : FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
6716 : : #endif
6717 : 0 : FCdw_ditf=(FCdw_daick*FCdaick_ditf);
6718 : : #if defined(_DERIVATE)
6719 : 0 : FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
6720 : 0 : FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
6721 : 0 : FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
6722 : 0 : FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
6723 : : #endif
6724 : 0 : FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
6725 [ # # ][ # # ]: 0 : if
6726 : : ((flcomp==0.0)||(flcomp==2.1))
6727 : : {
6728 : : #if defined(_DERIVATE)
6729 : 0 : a_Vbi_ei=(latb*FCw_Vbi_ei);
6730 : 0 : a_Vbi_ci=(latb*FCw_Vbi_ci);
6731 : 0 : a_Vci_ei=(latb*FCw_Vci_ei);
6732 : 0 : a_Vtnode_GND=(latb*FCw_Vtnode_GND);
6733 : : #endif
6734 : 0 : a=(latb*FCw);
6735 : : {
6736 : 0 : double m00_logE(d00_logE0,(1+(latb*FCw)))
6737 : : #if defined(_DERIVATE)
6738 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latb*FCw)))
6739 : : #endif
6740 : : #if defined(_DERIVATE)
6741 : 0 : lnz_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
6742 : 0 : lnz_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
6743 : 0 : lnz_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
6744 : 0 : lnz_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
6745 : : #endif
6746 : 0 : lnz=d00_logE0;
6747 : : }
6748 [ # # ]: 0 : if
6749 : : (a>1.0e-6)
6750 : : {
6751 : : #if defined(_DERIVATE)
6752 : 0 : FCf2_Vbi_ei=((a_Vbi_ei-lnz_Vbi_ei)/latb);
6753 : 0 : FCf2_Vbi_ci=((a_Vbi_ci-lnz_Vbi_ci)/latb);
6754 : 0 : FCf2_Vci_ei=((a_Vci_ei-lnz_Vci_ei)/latb);
6755 : 0 : FCf2_Vtnode_GND=((a_Vtnode_GND-lnz_Vtnode_GND)/latb);
6756 : : #endif
6757 : 0 : FCf2=((a-lnz)/latb);
6758 : : #if defined(_DERIVATE)
6759 : 0 : FCdf2_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
6760 : 0 : FCdf2_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
6761 : 0 : FCdf2_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
6762 : 0 : FCdf2_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
6763 : : #endif
6764 : 0 : FCdf2_dw=(a/(1.0+a));
6765 : : }
6766 : : else
6767 : : {
6768 : : #if defined(_DERIVATE)
6769 : 0 : FCf2_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
6770 : 0 : FCf2_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
6771 : 0 : FCf2_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
6772 : 0 : FCf2_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
6773 : : #endif
6774 : 0 : FCf2=((0.5*a)*FCw);
6775 : : #if defined(_DERIVATE)
6776 : 0 : FCdf2_dw_Vci_ei=a_Vci_ei;
6777 : 0 : FCdf2_dw_Vtnode_GND=a_Vtnode_GND;
6778 : 0 : FCdf2_dw_Vbi_ei=a_Vbi_ei;
6779 : 0 : FCdf2_dw_Vbi_ci=a_Vbi_ci;
6780 : : #endif
6781 : 0 : FCdf2_dw=a;
6782 : : }
6783 : : #if defined(_DERIVATE)
6784 : 0 : a_Vbi_ei=(latl*FCw_Vbi_ei);
6785 : 0 : a_Vbi_ci=(latl*FCw_Vbi_ci);
6786 : 0 : a_Vci_ei=(latl*FCw_Vci_ei);
6787 : 0 : a_Vtnode_GND=(latl*FCw_Vtnode_GND);
6788 : : #endif
6789 : 0 : a=(latl*FCw);
6790 : : {
6791 : 0 : double m00_logE(d00_logE0,(1+(latl*FCw)))
6792 : : #if defined(_DERIVATE)
6793 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latl*FCw)))
6794 : : #endif
6795 : : #if defined(_DERIVATE)
6796 : 0 : lnz_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
6797 : 0 : lnz_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
6798 : 0 : lnz_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
6799 : 0 : lnz_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
6800 : : #endif
6801 : 0 : lnz=d00_logE0;
6802 : : }
6803 [ # # ]: 0 : if
6804 : : (a>1.0e-6)
6805 : : {
6806 : : #if defined(_DERIVATE)
6807 : 0 : FCf3_Vbi_ei=((a_Vbi_ei-lnz_Vbi_ei)/latl);
6808 : 0 : FCf3_Vbi_ci=((a_Vbi_ci-lnz_Vbi_ci)/latl);
6809 : 0 : FCf3_Vci_ei=((a_Vci_ei-lnz_Vci_ei)/latl);
6810 : 0 : FCf3_Vtnode_GND=((a_Vtnode_GND-lnz_Vtnode_GND)/latl);
6811 : : #endif
6812 : 0 : FCf3=((a-lnz)/latl);
6813 : : #if defined(_DERIVATE)
6814 : 0 : FCdf3_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
6815 : 0 : FCdf3_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
6816 : 0 : FCdf3_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
6817 : 0 : FCdf3_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
6818 : : #endif
6819 : 0 : FCdf3_dw=(a/(1.0+a));
6820 : : }
6821 : : else
6822 : : {
6823 : : #if defined(_DERIVATE)
6824 : 0 : FCf3_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
6825 : 0 : FCf3_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
6826 : 0 : FCf3_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
6827 : 0 : FCf3_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
6828 : : #endif
6829 : 0 : FCf3=((0.5*a)*FCw);
6830 : : #if defined(_DERIVATE)
6831 : 0 : FCdf3_dw_Vci_ei=a_Vci_ei;
6832 : 0 : FCdf3_dw_Vtnode_GND=a_Vtnode_GND;
6833 : 0 : FCdf3_dw_Vbi_ei=a_Vbi_ei;
6834 : 0 : FCdf3_dw_Vbi_ci=a_Vbi_ci;
6835 : : #endif
6836 : 0 : FCdf3_dw=a;
6837 : : }
6838 : : #if defined(_DERIVATE)
6839 : 0 : FCf_CT_Vbi_ei=((FCf_CT_Vbi_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ei-FCf3_Vbi_ei)));
6840 : 0 : FCf_CT_Vbi_ci=((FCf_CT_Vbi_ci*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ci-FCf3_Vbi_ci)));
6841 : 0 : FCf_CT_Vci_ei=((FCf_CT_Vci_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vci_ei-FCf3_Vci_ei)));
6842 : 0 : FCf_CT_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCf2-FCf3))+(FCf_CT*(FCf2_Vtnode_GND-FCf3_Vtnode_GND)));
6843 : : #endif
6844 : 0 : FCf_CT=(FCf_CT*(FCf2-FCf3));
6845 : : #if defined(_DERIVATE)
6846 : 0 : FCdfCT_dw_Vbi_ei=((FCf_CT_Vbi_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ei-FCdf3_dw_Vbi_ei)));
6847 : 0 : FCdfCT_dw_Vbi_ci=((FCf_CT_Vbi_ci*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ci-FCdf3_dw_Vbi_ci)));
6848 : 0 : FCdfCT_dw_Vci_ei=((FCf_CT_Vci_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vci_ei-FCdf3_dw_Vci_ei)));
6849 : 0 : FCdfCT_dw_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vtnode_GND-FCdf3_dw_Vtnode_GND)));
6850 : : #endif
6851 : 0 : FCdfCT_dw=(FCf_CT*(FCdf2_dw-FCdf3_dw));
6852 : : #if defined(_DERIVATE)
6853 : 0 : FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
6854 : 0 : FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
6855 : 0 : FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
6856 : 0 : FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
6857 : : #endif
6858 : 0 : FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
6859 : : }
6860 : : else
6861 : : {
6862 : : #if defined(_DERIVATE)
6863 : 0 : FCf_CT_Vbi_ei=FCf_ci_Vbi_ei;
6864 : 0 : FCf_CT_Vbi_ci=FCf_ci_Vbi_ci;
6865 : 0 : FCf_CT_Vci_ei=FCf_ci_Vci_ei;
6866 : 0 : FCf_CT_Vtnode_GND=FCf_ci_Vtnode_GND;
6867 : : #endif
6868 : 0 : FCf_CT=FCf_ci;
6869 : : #if defined(_DERIVATE)
6870 : 0 : FCdfCT_ditf_Vbi_ei=FCdfc_ditf_Vbi_ei;
6871 : 0 : FCdfCT_ditf_Vbi_ci=FCdfc_ditf_Vbi_ci;
6872 : 0 : FCdfCT_ditf_Vci_ei=FCdfc_ditf_Vci_ei;
6873 : 0 : FCdfCT_ditf_Vtnode_GND=FCdfc_ditf_Vtnode_GND;
6874 : : #endif
6875 : 0 : FCdfCT_ditf=FCdfc_ditf;
6876 : : }
6877 : : }
6878 : : else
6879 : : {
6880 [ # # ]: 0 : if
6881 : : (latb>0.01)
6882 : : {
6883 : : #if defined(_DERIVATE)
6884 : 0 : FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6885 : 0 : FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6886 : 0 : FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6887 : 0 : FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6888 : : #endif
6889 : 0 : FCd_a=(1.0/(1.0+(FCa_ck*latb)));
6890 : : #if defined(_DERIVATE)
6891 : 0 : FCw_Vci_ei=(((-FCa_ck_Vci_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vci_ei));
6892 : 0 : FCw_Vtnode_GND=(((-FCa_ck_Vtnode_GND)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vtnode_GND));
6893 : 0 : FCw_Vbi_ei=(((-FCa_ck_Vbi_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ei));
6894 : 0 : FCw_Vbi_ci=(((-FCa_ck_Vbi_ci)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ci));
6895 : : #endif
6896 : 0 : FCw=((1.0-FCa_ck)*FCd_a);
6897 : : #if defined(_DERIVATE)
6898 : 0 : FCdw_daick_Vci_ei=((((-(1.0+latb))*FCd_a_Vci_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vci_ei));
6899 : 0 : FCdw_daick_Vtnode_GND=((((-(1.0+latb))*FCd_a_Vtnode_GND)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vtnode_GND));
6900 : 0 : FCdw_daick_Vbi_ei=((((-(1.0+latb))*FCd_a_Vbi_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ei));
6901 : 0 : FCdw_daick_Vbi_ci=((((-(1.0+latb))*FCd_a_Vbi_ci)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ci));
6902 : : #endif
6903 : 0 : FCdw_daick=(((-(1.0+latb))*FCd_a)*FCd_a);
6904 : : }
6905 : : else
6906 : : {
6907 : : #if defined(_DERIVATE)
6908 : 0 : FCw_Vci_ei=((-FCa_ck_Vci_ei)-FCa_ck_Vci_ei*latb);
6909 : 0 : FCw_Vtnode_GND=((-FCa_ck_Vtnode_GND)-FCa_ck_Vtnode_GND*latb);
6910 : 0 : FCw_Vbi_ei=((-FCa_ck_Vbi_ei)-FCa_ck_Vbi_ei*latb);
6911 : 0 : FCw_Vbi_ci=((-FCa_ck_Vbi_ci)-FCa_ck_Vbi_ci*latb);
6912 : : #endif
6913 : 0 : FCw=((1.0-FCa_ck)-(FCa_ck*latb));
6914 : : #if defined(_DERIVATE)
6915 : 0 : FCdw_daick_Vci_ei=0.0;
6916 : 0 : FCdw_daick_Vtnode_GND=0.0;
6917 : 0 : FCdw_daick_Vbi_ei=0.0;
6918 : 0 : FCdw_daick_Vbi_ci=0.0;
6919 : : #endif
6920 : 0 : FCdw_daick=(-(1.0+latb));
6921 : : }
6922 : : #if defined(_DERIVATE)
6923 : 0 : FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
6924 : 0 : FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
6925 : 0 : FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
6926 : 0 : FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
6927 : : #endif
6928 : 0 : FCw2=(FCw*FCw);
6929 : : #if defined(_DERIVATE)
6930 : 0 : FCz_Vci_ei=(latb*FCw_Vci_ei);
6931 : 0 : FCz_Vtnode_GND=(latb*FCw_Vtnode_GND);
6932 : 0 : FCz_Vbi_ei=(latb*FCw_Vbi_ei);
6933 : 0 : FCz_Vbi_ci=(latb*FCw_Vbi_ci);
6934 : : #endif
6935 : 0 : FCz=(latb*FCw);
6936 : : #if defined(_DERIVATE)
6937 : 0 : FCz_1_Vci_ei=FCz_Vci_ei;
6938 : 0 : FCz_1_Vtnode_GND=FCz_Vtnode_GND;
6939 : 0 : FCz_1_Vbi_ei=FCz_Vbi_ei;
6940 : 0 : FCz_1_Vbi_ci=FCz_Vbi_ci;
6941 : : #endif
6942 : 0 : FCz_1=(1.0+FCz);
6943 : : #if defined(_DERIVATE)
6944 : 0 : FCd_f_Vci_ei=(-FCz_1_Vci_ei/FCz_1/FCz_1);
6945 : 0 : FCd_f_Vtnode_GND=(-FCz_1_Vtnode_GND/FCz_1/FCz_1);
6946 : 0 : FCd_f_Vbi_ei=(-FCz_1_Vbi_ei/FCz_1/FCz_1);
6947 : 0 : FCd_f_Vbi_ci=(-FCz_1_Vbi_ci/FCz_1/FCz_1);
6948 : : #endif
6949 : 0 : FCd_f=(1.0/FCz_1);
6950 : : #if defined(_DERIVATE)
6951 : 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));
6952 : 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));
6953 : 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));
6954 : 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));
6955 : : #endif
6956 : 0 : FCf_ci=((FCw2*(1.0+(FCz/3.0)))*FCd_f);
6957 : : #if defined(_DERIVATE)
6958 : 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));
6959 : 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));
6960 : 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));
6961 : 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));
6962 : : #endif
6963 : 0 : FCdfc_dw=((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
6964 : : #if defined(_DERIVATE)
6965 : 0 : FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
6966 : 0 : FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
6967 : 0 : FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
6968 : 0 : FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
6969 : : #endif
6970 : 0 : FCdw_ditf=(FCdw_daick*FCdaick_ditf);
6971 : : #if defined(_DERIVATE)
6972 : 0 : FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
6973 : 0 : FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
6974 : 0 : FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
6975 : 0 : FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
6976 : : #endif
6977 : 0 : FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
6978 [ # # ][ # # ]: 0 : if
6979 : : ((flcomp==0.0)||(flcomp==2.1))
6980 : : {
6981 [ # # ]: 0 : if
6982 : : (FCz>0.001)
6983 : : {
6984 : : {
6985 : 0 : double m00_logE(d00_logE0,FCz_1)
6986 : : #if defined(_DERIVATE)
6987 : 0 : double m10_logE(d10_logE0,d00_logE0,FCz_1)
6988 : : #endif
6989 : : #if defined(_DERIVATE)
6990 : 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));
6991 : 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));
6992 : 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));
6993 : 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));
6994 : : #endif
6995 : 0 : FCf_CT=((2.0*((FCz_1*d00_logE0)-FCz))/((latb*latb)*FCz_1));
6996 : : }
6997 : : #if defined(_DERIVATE)
6998 : 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));
6999 : 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));
7000 : 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));
7001 : 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));
7002 : : #endif
7003 : 0 : FCdfCT_dw=(((2.0*FCw)*FCd_f)*FCd_f);
7004 : : }
7005 : : else
7006 : : {
7007 : : #if defined(_DERIVATE)
7008 : 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));
7009 : 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));
7010 : 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));
7011 : 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));
7012 : : #endif
7013 : 0 : FCf_CT=((FCw2*(1.0-(FCz/3.0)))*FCd_f);
7014 : : #if defined(_DERIVATE)
7015 : 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));
7016 : 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));
7017 : 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));
7018 : 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));
7019 : : #endif
7020 : 0 : FCdfCT_dw=((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
7021 : : }
7022 : : #if defined(_DERIVATE)
7023 : 0 : FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
7024 : 0 : FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
7025 : 0 : FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
7026 : 0 : FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
7027 : : #endif
7028 : 0 : FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
7029 : : }
7030 : : else
7031 : : {
7032 : : #if defined(_DERIVATE)
7033 : 0 : FCf_CT_Vbi_ei=FCf_ci_Vbi_ei;
7034 : 0 : FCf_CT_Vbi_ci=FCf_ci_Vbi_ci;
7035 : 0 : FCf_CT_Vci_ei=FCf_ci_Vci_ei;
7036 : 0 : FCf_CT_Vtnode_GND=FCf_ci_Vtnode_GND;
7037 : : #endif
7038 : 0 : FCf_CT=FCf_ci;
7039 : : #if defined(_DERIVATE)
7040 : 0 : FCdfCT_ditf_Vbi_ei=FCdfc_ditf_Vbi_ei;
7041 : 0 : FCdfCT_ditf_Vbi_ci=FCdfc_ditf_Vbi_ci;
7042 : 0 : FCdfCT_ditf_Vci_ei=FCdfc_ditf_Vci_ei;
7043 : 0 : FCdfCT_ditf_Vtnode_GND=FCdfc_ditf_Vtnode_GND;
7044 : : #endif
7045 : 0 : FCdfCT_ditf=FCdfc_ditf;
7046 : : }
7047 : : }
7048 : : #if defined(_DERIVATE)
7049 : 0 : FFQ_cT_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_CT)+(FFQ_fC*FCf_CT_Vtnode_GND));
7050 : 0 : FFQ_cT_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ei));
7051 : 0 : FFQ_cT_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ci));
7052 : 0 : FFQ_cT_Vci_ei=((FFQ_fC_Vci_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vci_ei));
7053 : : #endif
7054 : 0 : FFQ_cT=(FFQ_fC*FCf_CT);
7055 : : #if defined(_DERIVATE)
7056 : 0 : FFQ_fC_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_ci)+(FFQ_fC*FCf_ci_Vtnode_GND));
7057 : 0 : FFQ_fC_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ei));
7058 : 0 : FFQ_fC_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ci));
7059 : 0 : FFQ_fC_Vci_ei=((FFQ_fC_Vci_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vci_ei));
7060 : : #endif
7061 : 0 : FFQ_fC=(FFQ_fC*FCf_ci);
7062 : : #if defined(_DERIVATE)
7063 : 0 : 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)))));
7064 : 0 : FFT_fC_Vci_ei=(FFT_pcS*(FCf_ci_Vci_ei+((itf_Vci_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vci_ei))));
7065 : 0 : FFT_fC_Vbi_ei=(FFT_pcS*(FCf_ci_Vbi_ei+((itf_Vbi_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ei))));
7066 : 0 : FFT_fC_Vbi_ci=(FFT_pcS*(FCf_ci_Vbi_ci+((itf_Vbi_ci*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ci))));
7067 : : #endif
7068 : 0 : FFT_fC=(FFT_pcS*(FCf_ci+(itf*FCdfc_ditf)));
7069 : : #if defined(_DERIVATE)
7070 : 0 : 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)))));
7071 : 0 : FFT_cT_Vci_ei=(FFT_pcS*(FCf_CT_Vci_ei+((itf_Vci_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vci_ei))));
7072 : 0 : FFT_cT_Vbi_ei=(FFT_pcS*(FCf_CT_Vbi_ei+((itf_Vbi_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ei))));
7073 : 0 : FFT_cT_Vbi_ci=(FFT_pcS*(FCf_CT_Vbi_ci+((itf_Vbi_ci*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ci))));
7074 : : #endif
7075 : 0 : FFT_cT=(FFT_pcS*(FCf_CT+(itf*FCdfCT_ditf)));
7076 : : }
7077 : : #if defined(_DERIVATE)
7078 : 0 : Qf_Vci_ei=(Qf_Vci_ei+FFd_QfB_Vci_ei);
7079 : 0 : Qf_Vtnode_GND=(Qf_Vtnode_GND+FFd_QfB_Vtnode_GND);
7080 : 0 : Qf_Vbi_ci=(Qf_Vbi_ci+FFd_QfB_Vbi_ci);
7081 : 0 : Qf_Vbi_ei=(Qf_Vbi_ei+FFd_QfB_Vbi_ei);
7082 : : #endif
7083 : 0 : Qf=(Qf+FFd_QfB);
7084 : : #if defined(_DERIVATE)
7085 : 0 : Tf_Vci_ei=(Tf_Vci_ei+FFd_TfB_Vci_ei);
7086 : 0 : Tf_Vbi_ei=(Tf_Vbi_ei+FFd_TfB_Vbi_ei);
7087 : 0 : Tf_Vtnode_GND=(Tf_Vtnode_GND+FFd_TfB_Vtnode_GND);
7088 : 0 : Tf_Vbi_ci=(Tf_Vbi_ci+FFd_TfB_Vbi_ci);
7089 : : #endif
7090 : 0 : Tf=(Tf+FFd_TfB);
7091 : : #if defined(_DERIVATE)
7092 : 0 : Q_fT_Vci_ei=((Qf_Vci_ei+(hfe*FFd_QfE_Vci_ei))+(hfc*FFQ_cT_Vci_ei));
7093 : 0 : Q_fT_Vtnode_GND=((Qf_Vtnode_GND+(hfe*FFd_QfE_Vtnode_GND))+(hfc*FFQ_cT_Vtnode_GND));
7094 : 0 : Q_fT_Vbi_ci=((Qf_Vbi_ci+(hfe*FFd_QfE_Vbi_ci))+(hfc*FFQ_cT_Vbi_ci));
7095 : 0 : Q_fT_Vbi_ei=((Qf_Vbi_ei+(hfe*FFd_QfE_Vbi_ei))+(hfc*FFQ_cT_Vbi_ei));
7096 : : #endif
7097 : 0 : Q_fT=((Qf+(hfe*FFd_QfE))+(hfc*FFQ_cT));
7098 : : #if defined(_DERIVATE)
7099 : 0 : T_fT_Vci_ei=((Tf_Vci_ei+(hfe*FFd_TfE_Vci_ei))+(hfc*FFT_cT_Vci_ei));
7100 : 0 : T_fT_Vbi_ei=((Tf_Vbi_ei+(hfe*FFd_TfE_Vbi_ei))+(hfc*FFT_cT_Vbi_ei));
7101 : 0 : T_fT_Vtnode_GND=((Tf_Vtnode_GND+(hfe*FFd_TfE_Vtnode_GND))+(hfc*FFT_cT_Vtnode_GND));
7102 : 0 : T_fT_Vbi_ci=((Tf_Vbi_ci+(hfe*FFd_TfE_Vbi_ci))+(hfc*FFT_cT_Vbi_ci));
7103 : : #endif
7104 : 0 : T_fT=((Tf+(hfe*FFd_TfE))+(hfc*FFT_cT));
7105 : : #if defined(_DERIVATE)
7106 : 0 : Qf_Vci_ei=((Qf_Vci_ei+FFd_QfE_Vci_ei)+FFQ_fC_Vci_ei);
7107 : 0 : Qf_Vtnode_GND=((Qf_Vtnode_GND+FFd_QfE_Vtnode_GND)+FFQ_fC_Vtnode_GND);
7108 : 0 : Qf_Vbi_ci=((Qf_Vbi_ci+FFd_QfE_Vbi_ci)+FFQ_fC_Vbi_ci);
7109 : 0 : Qf_Vbi_ei=((Qf_Vbi_ei+FFd_QfE_Vbi_ei)+FFQ_fC_Vbi_ei);
7110 : : #endif
7111 : 0 : Qf=((Qf+FFd_QfE)+FFQ_fC);
7112 : : #if defined(_DERIVATE)
7113 : 0 : Tf_Vci_ei=((Tf_Vci_ei+FFd_TfE_Vci_ei)+FFT_fC_Vci_ei);
7114 : 0 : Tf_Vbi_ei=((Tf_Vbi_ei+FFd_TfE_Vbi_ei)+FFT_fC_Vbi_ei);
7115 : 0 : Tf_Vtnode_GND=((Tf_Vtnode_GND+FFd_TfE_Vtnode_GND)+FFT_fC_Vtnode_GND);
7116 : 0 : Tf_Vbi_ci=((Tf_Vbi_ci+FFd_TfE_Vbi_ci)+FFT_fC_Vbi_ci);
7117 : : #endif
7118 : 0 : Tf=((Tf+FFd_TfE)+FFT_fC);
7119 : : }
7120 : : #if defined(_DERIVATE)
7121 : 0 : Qr_Vci_ei=(Tr*itr_Vci_ei);
7122 : 0 : Qr_Vtnode_GND=(Tr*itr_Vtnode_GND);
7123 : 0 : Qr_Vbi_ci=(Tr*itr_Vbi_ci);
7124 : 0 : Qr_Vbi_ei=(Tr*itr_Vbi_ei);
7125 : : #endif
7126 : 0 : Qr=(Tr*itr);
7127 [ # # ]: 0 : if
7128 : : (Oich==0.0)
7129 : : {
7130 : : #if defined(_DERIVATE)
7131 : 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);
7132 : 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);
7133 : 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);
7134 : 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);
7135 : : #endif
7136 : 0 : a=(1.0+(((T_fT*itf)+Qr)/Q_pT));
7137 : : }
7138 : : else
7139 : : {
7140 : : #if defined(_DERIVATE)
7141 : 0 : 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);
7142 : 0 : 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);
7143 : 0 : 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);
7144 : 0 : 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);
7145 : : #endif
7146 : 0 : a=(1.0+((((T_fT*I_Tf1)*(1.0+(2.0*a_h)))+Qr)/Q_pT));
7147 : : }
7148 : : #if defined(_DERIVATE)
7149 : 0 : 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);
7150 : 0 : 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);
7151 : 0 : 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);
7152 : 0 : 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);
7153 : : #endif
7154 : 0 : d_Q=((-(Q_pT-((Q_0+Q_fT)+Qr)))/a);
7155 : : {
7156 [ # # ]: 0 : double m00_abs(d00_abs0,(0.3*Q_pT))
7157 : : #if defined(_DERIVATE)
7158 [ # # ]: 0 : double m10_abs(d10_abs0,d00_abs0,(0.3*Q_pT))
7159 : : #endif
7160 : : #if defined(_DERIVATE)
7161 : 0 : a_Vbi_ei=(0.3*Q_pT_Vbi_ei)*d10_abs0;
7162 : 0 : a_Vbi_ci=(0.3*Q_pT_Vbi_ci)*d10_abs0;
7163 : 0 : a_Vci_ei=(0.3*Q_pT_Vci_ei)*d10_abs0;
7164 : 0 : a_Vtnode_GND=(0.3*Q_pT_Vtnode_GND)*d10_abs0;
7165 : : #endif
7166 : 0 : a=d00_abs0;
7167 : : }
7168 : : {
7169 [ # # ]: 0 : double m00_abs(d00_abs0,d_Q)
7170 [ # # ]: 0 : if
7171 : : (d00_abs0>a)
7172 : : {
7173 [ # # ]: 0 : if
7174 : : (d_Q>=0)
7175 : : {
7176 : : #if defined(_DERIVATE)
7177 : 0 : d_Q_Vtnode_GND=a_Vtnode_GND;
7178 : 0 : d_Q_Vbi_ei=a_Vbi_ei;
7179 : 0 : d_Q_Vbi_ci=a_Vbi_ci;
7180 : 0 : d_Q_Vci_ei=a_Vci_ei;
7181 : : #endif
7182 : 0 : d_Q=a;
7183 : : }
7184 : : else
7185 : : {
7186 : : #if defined(_DERIVATE)
7187 : 0 : d_Q_Vtnode_GND=(-a_Vtnode_GND);
7188 : 0 : d_Q_Vbi_ei=(-a_Vbi_ei);
7189 : 0 : d_Q_Vbi_ci=(-a_Vbi_ci);
7190 : 0 : d_Q_Vci_ei=(-a_Vci_ei);
7191 : : #endif
7192 : 0 : d_Q=(-a);
7193 : : }
7194 : : }
7195 : : }
7196 : : #if defined(_DERIVATE)
7197 : 0 : Q_pT_Vtnode_GND=(Q_pT_Vtnode_GND+d_Q_Vtnode_GND);
7198 : 0 : Q_pT_Vbi_ei=(Q_pT_Vbi_ei+d_Q_Vbi_ei);
7199 : 0 : Q_pT_Vbi_ci=(Q_pT_Vbi_ci+d_Q_Vbi_ci);
7200 : 0 : Q_pT_Vci_ei=(Q_pT_Vci_ei+d_Q_Vci_ei);
7201 : : #endif
7202 : 0 : Q_pT=(Q_pT+d_Q);
7203 : 0 : l_it=(l_it+1);
7204 : : }
7205 : : #if defined(_DERIVATE)
7206 : 0 : I_Tf1_Vci_ei=(-i_0f*Q_pT_Vci_ei/Q_pT/Q_pT);
7207 : 0 : I_Tf1_Vtnode_GND=((i_0f_Vtnode_GND*Q_pT-i_0f*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
7208 : 0 : I_Tf1_Vbi_ei=((i_0f_Vbi_ei*Q_pT-i_0f*Q_pT_Vbi_ei)/Q_pT/Q_pT);
7209 : 0 : I_Tf1_Vbi_ci=(-i_0f*Q_pT_Vbi_ci/Q_pT/Q_pT);
7210 : : #endif
7211 : 0 : I_Tf1=(i_0f/Q_pT);
7212 : : #if defined(_DERIVATE)
7213 : 0 : a_h_Vci_ei=(Oich*I_Tf1_Vci_ei);
7214 : 0 : a_h_Vtnode_GND=(Oich*I_Tf1_Vtnode_GND);
7215 : 0 : a_h_Vbi_ei=(Oich*I_Tf1_Vbi_ei);
7216 : 0 : a_h_Vbi_ci=(Oich*I_Tf1_Vbi_ci);
7217 : : #endif
7218 : 0 : a_h=(Oich*I_Tf1);
7219 : : #if defined(_DERIVATE)
7220 : 0 : itf_Vci_ei=((I_Tf1_Vci_ei*(1.0+a_h))+(I_Tf1*a_h_Vci_ei));
7221 : 0 : itf_Vtnode_GND=((I_Tf1_Vtnode_GND*(1.0+a_h))+(I_Tf1*a_h_Vtnode_GND));
7222 : 0 : itf_Vbi_ei=((I_Tf1_Vbi_ei*(1.0+a_h))+(I_Tf1*a_h_Vbi_ei));
7223 : 0 : itf_Vbi_ci=((I_Tf1_Vbi_ci*(1.0+a_h))+(I_Tf1*a_h_Vbi_ci));
7224 : : #endif
7225 : 0 : itf=(I_Tf1*(1.0+a_h));
7226 : : #if defined(_DERIVATE)
7227 : 0 : itr_Vci_ei=(-i_0r*Q_pT_Vci_ei/Q_pT/Q_pT);
7228 : 0 : itr_Vtnode_GND=((i_0r_Vtnode_GND*Q_pT-i_0r*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
7229 : 0 : itr_Vbi_ci=((i_0r_Vbi_ci*Q_pT-i_0r*Q_pT_Vbi_ci)/Q_pT/Q_pT);
7230 : 0 : itr_Vbi_ei=(-i_0r*Q_pT_Vbi_ei/Q_pT/Q_pT);
7231 : : #endif
7232 : 0 : itr=(i_0r/Q_pT);
7233 : : #if defined(_DERIVATE)
7234 : 0 : Tf_Vci_ei=0.0;
7235 : 0 : Tf_Vbi_ei=0.0;
7236 : 0 : Tf_Vtnode_GND=T_f0_Vtnode_GND;
7237 : 0 : Tf_Vbi_ci=T_f0_Vbi_ci;
7238 : : #endif
7239 : 0 : Tf=T_f0;
7240 : : #if defined(_DERIVATE)
7241 : 0 : Qf_Vci_ei=(T_f0*itf_Vci_ei);
7242 : 0 : Qf_Vtnode_GND=((T_f0_Vtnode_GND*itf)+(T_f0*itf_Vtnode_GND));
7243 : 0 : Qf_Vbi_ci=((T_f0_Vbi_ci*itf)+(T_f0*itf_Vbi_ci));
7244 : 0 : Qf_Vbi_ei=(T_f0*itf_Vbi_ei);
7245 : : #endif
7246 : 0 : Qf=(T_f0*itf);
7247 [ # # ]: 0 : if
7248 : : (itf<(1.0e-6*ick))
7249 : : {
7250 : : #if defined(_DYNAMIC)
7251 : : #if defined(_DERIVATE)
7252 : 0 : Q_fT_Vci_ei=Qf_Vci_ei;
7253 : 0 : Q_fT_Vtnode_GND=Qf_Vtnode_GND;
7254 : 0 : Q_fT_Vbi_ci=Qf_Vbi_ci;
7255 : 0 : Q_fT_Vbi_ei=Qf_Vbi_ei;
7256 : : #endif
7257 : 0 : Q_fT=Qf;
7258 : : #endif
7259 : : #if defined(_DYNAMIC)
7260 : : #if defined(_DERIVATE)
7261 : 0 : T_fT_Vci_ei=Tf_Vci_ei;
7262 : 0 : T_fT_Vbi_ei=Tf_Vbi_ei;
7263 : 0 : T_fT_Vtnode_GND=Tf_Vtnode_GND;
7264 : 0 : T_fT_Vbi_ci=Tf_Vbi_ci;
7265 : : #endif
7266 : 0 : T_fT=Tf;
7267 : : #endif
7268 : : }
7269 : : else
7270 : : {
7271 : : #if defined(_DERIVATE)
7272 : 0 : FFa_Vci_ei=((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf);
7273 : 0 : FFa_Vtnode_GND=((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf);
7274 : 0 : FFa_Vbi_ei=(-ick*itf_Vbi_ei/itf/itf);
7275 : 0 : FFa_Vbi_ci=(-ick*itf_Vbi_ci/itf/itf);
7276 : : #endif
7277 : 0 : FFa=(ick/itf);
7278 : : {
7279 : 0 : double m00_logE(d00_logE0,FFa)
7280 : 0 : double m00_exp(d00_exp1,((-gtfe)*d00_logE0))
7281 : : #if defined(_DERIVATE)
7282 : 0 : double m10_logE(d10_logE0,d00_logE0,FFa)
7283 : : #define d10_exp1 d00_exp1
7284 : : #endif
7285 : : #if defined(_DERIVATE)
7286 : 0 : FFd_TfE_Vtnode_GND=((tef0_t_Vtnode_GND*d00_exp1)+(tef0_t*((-gtfe)*FFa_Vtnode_GND*d10_logE0)*d10_exp1));
7287 : 0 : FFd_TfE_Vci_ei=(tef0_t*((-gtfe)*FFa_Vci_ei*d10_logE0)*d10_exp1);
7288 : 0 : FFd_TfE_Vbi_ei=(tef0_t*((-gtfe)*FFa_Vbi_ei*d10_logE0)*d10_exp1);
7289 : 0 : FFd_TfE_Vbi_ci=(tef0_t*((-gtfe)*FFa_Vbi_ci*d10_logE0)*d10_exp1);
7290 : : #endif
7291 : 0 : FFd_TfE=(tef0_t*d00_exp1);
7292 : : }
7293 : : #if defined(_DERIVATE)
7294 : 0 : FFd_QfE_Vtnode_GND=(((FFd_TfE_Vtnode_GND*itf)+(FFd_TfE*itf_Vtnode_GND))/(gtfe+1.0));
7295 : 0 : FFd_QfE_Vci_ei=(((FFd_TfE_Vci_ei*itf)+(FFd_TfE*itf_Vci_ei))/(gtfe+1.0));
7296 : 0 : FFd_QfE_Vbi_ei=(((FFd_TfE_Vbi_ei*itf)+(FFd_TfE*itf_Vbi_ei))/(gtfe+1.0));
7297 : 0 : FFd_QfE_Vbi_ci=(((FFd_TfE_Vbi_ci*itf)+(FFd_TfE*itf_Vbi_ci))/(gtfe+1.0));
7298 : : #endif
7299 : 0 : FFd_QfE=((FFd_TfE*itf)/(gtfe+1.0));
7300 : : #if defined(_DERIVATE)
7301 : 0 : FFT_fbS_Vtnode_GND=((1.0-fthc)*thcs_t_Vtnode_GND);
7302 : : #endif
7303 : 0 : FFT_fbS=((1.0-fthc)*thcs_t);
7304 : : #if defined(_DERIVATE)
7305 : 0 : FFx_Vci_ei=(-FFa_Vci_ei);
7306 : 0 : FFx_Vtnode_GND=(-FFa_Vtnode_GND);
7307 : 0 : FFx_Vbi_ei=(-FFa_Vbi_ei);
7308 : 0 : FFx_Vbi_ci=(-FFa_Vbi_ci);
7309 : : #endif
7310 : 0 : FFx=(1.0-FFa);
7311 : : {
7312 : 0 : double m00_sqrt(d00_sqrt0,((FFx*FFx)+ahc))
7313 : : #if defined(_DERIVATE)
7314 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFx*FFx)+ahc))
7315 : : #endif
7316 : : #if defined(_DERIVATE)
7317 : 0 : FFs_Vci_ei=((FFx_Vci_ei*FFx)+(FFx*FFx_Vci_ei))*d10_sqrt0;
7318 : 0 : FFs_Vtnode_GND=((FFx_Vtnode_GND*FFx)+(FFx*FFx_Vtnode_GND))*d10_sqrt0;
7319 : 0 : FFs_Vbi_ei=((FFx_Vbi_ei*FFx)+(FFx*FFx_Vbi_ei))*d10_sqrt0;
7320 : 0 : FFs_Vbi_ci=((FFx_Vbi_ci*FFx)+(FFx*FFx_Vbi_ci))*d10_sqrt0;
7321 : : #endif
7322 : 0 : FFs=d00_sqrt0;
7323 : : }
7324 : : {
7325 : 0 : double m00_sqrt(d00_sqrt0,(1.0+ahc))
7326 : : #if defined(_DERIVATE)
7327 : 0 : FFw_Vci_ei=((FFx_Vci_ei+FFs_Vci_ei)/(1.0+d00_sqrt0));
7328 : 0 : FFw_Vtnode_GND=((FFx_Vtnode_GND+FFs_Vtnode_GND)/(1.0+d00_sqrt0));
7329 : 0 : FFw_Vbi_ei=((FFx_Vbi_ei+FFs_Vbi_ei)/(1.0+d00_sqrt0));
7330 : 0 : FFw_Vbi_ci=((FFx_Vbi_ci+FFs_Vbi_ci)/(1.0+d00_sqrt0));
7331 : : #endif
7332 : 0 : FFw=((FFx+FFs)/(1.0+d00_sqrt0));
7333 : : }
7334 : : #if defined(_DERIVATE)
7335 : 0 : FFw_2_Vci_ei=((FFw_Vci_ei*FFw)+(FFw*FFw_Vci_ei));
7336 : 0 : FFw_2_Vtnode_GND=((FFw_Vtnode_GND*FFw)+(FFw*FFw_Vtnode_GND));
7337 : 0 : FFw_2_Vbi_ei=((FFw_Vbi_ei*FFw)+(FFw*FFw_Vbi_ei));
7338 : 0 : FFw_2_Vbi_ci=((FFw_Vbi_ci*FFw)+(FFw*FFw_Vbi_ci));
7339 : : #endif
7340 : 0 : FFw_2=(FFw*FFw);
7341 : : #if defined(_DERIVATE)
7342 : 0 : FFd_QfB_Vtnode_GND=((((FFT_fbS_Vtnode_GND*itf)+(FFT_fbS*itf_Vtnode_GND))*FFw_2)+((FFT_fbS*itf)*FFw_2_Vtnode_GND));
7343 : 0 : FFd_QfB_Vbi_ei=(((FFT_fbS*itf_Vbi_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ei));
7344 : 0 : FFd_QfB_Vbi_ci=(((FFT_fbS*itf_Vbi_ci)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ci));
7345 : 0 : FFd_QfB_Vci_ei=(((FFT_fbS*itf_Vci_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vci_ei));
7346 : : #endif
7347 : 0 : FFd_QfB=((FFT_fbS*itf)*FFw_2);
7348 : : #if defined(_DERIVATE)
7349 : 0 : Q_bf_Vtnode_GND=FFd_QfB_Vtnode_GND;
7350 : 0 : Q_bf_Vbi_ei=FFd_QfB_Vbi_ei;
7351 : 0 : Q_bf_Vbi_ci=FFd_QfB_Vbi_ci;
7352 : 0 : Q_bf_Vci_ei=FFd_QfB_Vci_ei;
7353 : : #endif
7354 : 0 : Q_bf=FFd_QfB;
7355 : : #if defined(_DERIVATE)
7356 : 0 : 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)));
7357 : 0 : 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)));
7358 : 0 : 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)));
7359 : 0 : 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)));
7360 : : #endif
7361 : 0 : FFa_w=(FFw_2*(1.0+((2.0*FFa)/FFs)));
7362 : : #if defined(_DERIVATE)
7363 : 0 : FFd_TfB_Vtnode_GND=((FFT_fbS_Vtnode_GND*FFa_w)+(FFT_fbS*FFa_w_Vtnode_GND));
7364 : 0 : FFd_TfB_Vci_ei=(FFT_fbS*FFa_w_Vci_ei);
7365 : 0 : FFd_TfB_Vbi_ei=(FFT_fbS*FFa_w_Vbi_ei);
7366 : 0 : FFd_TfB_Vbi_ci=(FFT_fbS*FFa_w_Vbi_ci);
7367 : : #endif
7368 : 0 : FFd_TfB=(FFT_fbS*FFa_w);
7369 : : #if defined(_DERIVATE)
7370 : 0 : FFT_pcS_Vtnode_GND=(fthc*thcs_t_Vtnode_GND);
7371 : : #endif
7372 : 0 : FFT_pcS=(fthc*thcs_t);
7373 [ # # ][ # # ]: 0 : if
7374 : : ((latb<=0.0)&&(latl<=0.0))
7375 : : {
7376 : : #if defined(_DERIVATE)
7377 : 0 : FFQ_fC_Vtnode_GND=((((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND))*FFw_2)+((FFT_pcS*itf)*FFw_2_Vtnode_GND));
7378 : 0 : FFQ_fC_Vbi_ei=(((FFT_pcS*itf_Vbi_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ei));
7379 : 0 : FFQ_fC_Vbi_ci=(((FFT_pcS*itf_Vbi_ci)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ci));
7380 : 0 : FFQ_fC_Vci_ei=(((FFT_pcS*itf_Vci_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vci_ei));
7381 : : #endif
7382 : 0 : FFQ_fC=((FFT_pcS*itf)*FFw_2);
7383 : : #if defined(_DERIVATE)
7384 : 0 : FFT_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*FFa_w)+(FFT_pcS*FFa_w_Vtnode_GND));
7385 : 0 : FFT_fC_Vci_ei=(FFT_pcS*FFa_w_Vci_ei);
7386 : 0 : FFT_fC_Vbi_ei=(FFT_pcS*FFa_w_Vbi_ei);
7387 : 0 : FFT_fC_Vbi_ci=(FFT_pcS*FFa_w_Vbi_ci);
7388 : : #endif
7389 : 0 : FFT_fC=(FFT_pcS*FFa_w);
7390 : : #if defined(_DYNAMIC)
7391 : : #if defined(_DERIVATE)
7392 : 0 : FFQ_cT_Vtnode_GND=FFQ_fC_Vtnode_GND;
7393 : 0 : FFQ_cT_Vbi_ei=FFQ_fC_Vbi_ei;
7394 : 0 : FFQ_cT_Vbi_ci=FFQ_fC_Vbi_ci;
7395 : 0 : FFQ_cT_Vci_ei=FFQ_fC_Vci_ei;
7396 : : #endif
7397 : 0 : FFQ_cT=FFQ_fC;
7398 : : #endif
7399 : : #if defined(_DYNAMIC)
7400 : : #if defined(_DERIVATE)
7401 : 0 : FFT_cT_Vtnode_GND=FFT_fC_Vtnode_GND;
7402 : 0 : FFT_cT_Vci_ei=FFT_fC_Vci_ei;
7403 : 0 : FFT_cT_Vbi_ei=FFT_fC_Vbi_ei;
7404 : 0 : FFT_cT_Vbi_ci=FFT_fC_Vbi_ci;
7405 : : #endif
7406 : 0 : FFT_cT=FFT_fC;
7407 : : #endif
7408 : : }
7409 : : else
7410 : : {
7411 : : #if defined(_DERIVATE)
7412 : 0 : FFQ_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND));
7413 : 0 : FFQ_fC_Vbi_ei=(FFT_pcS*itf_Vbi_ei);
7414 : 0 : FFQ_fC_Vbi_ci=(FFT_pcS*itf_Vbi_ci);
7415 : 0 : FFQ_fC_Vci_ei=(FFT_pcS*itf_Vci_ei);
7416 : : #endif
7417 : 0 : FFQ_fC=(FFT_pcS*itf);
7418 : : #if defined(_DERIVATE)
7419 : 0 : FCa_Vci_ei=(-((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf));
7420 : 0 : FCa_Vtnode_GND=(-((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf));
7421 : 0 : FCa_Vbi_ei=(-(-ick*itf_Vbi_ei/itf/itf));
7422 : 0 : FCa_Vbi_ci=(-(-ick*itf_Vbi_ci/itf/itf));
7423 : : #endif
7424 : 0 : FCa=(1.0-(ick/itf));
7425 : : {
7426 : 0 : double m00_sqrt(d00_sqrt0,((FCa*FCa)+ahc))
7427 : : #if defined(_DERIVATE)
7428 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FCa*FCa)+ahc))
7429 : : #endif
7430 : : #if defined(_DERIVATE)
7431 : 0 : FCrt_Vci_ei=((FCa_Vci_ei*FCa)+(FCa*FCa_Vci_ei))*d10_sqrt0;
7432 : 0 : FCrt_Vtnode_GND=((FCa_Vtnode_GND*FCa)+(FCa*FCa_Vtnode_GND))*d10_sqrt0;
7433 : 0 : FCrt_Vbi_ei=((FCa_Vbi_ei*FCa)+(FCa*FCa_Vbi_ei))*d10_sqrt0;
7434 : 0 : FCrt_Vbi_ci=((FCa_Vbi_ci*FCa)+(FCa*FCa_Vbi_ci))*d10_sqrt0;
7435 : : #endif
7436 : 0 : FCrt=d00_sqrt0;
7437 : : }
7438 : : {
7439 : 0 : double m00_sqrt(d00_sqrt0,(1.0+ahc))
7440 : : #if defined(_DERIVATE)
7441 : 0 : FCa_ck_Vci_ei=(-((FCa_Vci_ei+FCrt_Vci_ei)/(1.0+d00_sqrt0)));
7442 : 0 : FCa_ck_Vtnode_GND=(-((FCa_Vtnode_GND+FCrt_Vtnode_GND)/(1.0+d00_sqrt0)));
7443 : 0 : FCa_ck_Vbi_ei=(-((FCa_Vbi_ei+FCrt_Vbi_ei)/(1.0+d00_sqrt0)));
7444 : 0 : FCa_ck_Vbi_ci=(-((FCa_Vbi_ci+FCrt_Vbi_ci)/(1.0+d00_sqrt0)));
7445 : : #endif
7446 : 0 : FCa_ck=(1.0-((FCa+FCrt)/(1.0+d00_sqrt0)));
7447 : : }
7448 : : #if defined(_DERIVATE)
7449 : 0 : 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));
7450 : 0 : 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));
7451 : 0 : 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));
7452 : 0 : 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));
7453 : : #endif
7454 : 0 : FCdaick_ditf=(((FCa_ck-1.0)*(1-FCa))/(FCrt*itf));
7455 [ # # ]: 0 : if
7456 : : (latb>latl)
7457 : : {
7458 : : #if defined(_DERIVATE)
7459 : 0 : FCz_Vci_ei=0.0;
7460 : 0 : FCz_Vtnode_GND=0.0;
7461 : 0 : FCz_Vbi_ei=0.0;
7462 : 0 : FCz_Vbi_ci=0.0;
7463 : : #endif
7464 : 0 : FCz=(latb-latl);
7465 : 0 : FCxl=(1.0+latl);
7466 : 0 : FCxb=(1.0+latb);
7467 [ # # ]: 0 : if
7468 : : (latb>0.01)
7469 : : {
7470 : : {
7471 : 0 : double m00_logE(d00_logE0,(FCxb/FCxl))
7472 : 0 : FCln=d00_logE0;
7473 : : }
7474 : : {
7475 : 0 : double m00_exp(d00_exp0,((FCa_ck-1.0)*FCln))
7476 : : #if defined(_DERIVATE)
7477 : : #define d10_exp0 d00_exp0
7478 : : #endif
7479 : : #if defined(_DERIVATE)
7480 : 0 : FCa1_Vci_ei=FCa_ck_Vci_ei*FCln*d10_exp0;
7481 : 0 : FCa1_Vtnode_GND=FCa_ck_Vtnode_GND*FCln*d10_exp0;
7482 : 0 : FCa1_Vbi_ei=FCa_ck_Vbi_ei*FCln*d10_exp0;
7483 : 0 : FCa1_Vbi_ci=FCa_ck_Vbi_ci*FCln*d10_exp0;
7484 : : #endif
7485 : 0 : FCa1=d00_exp0;
7486 : : }
7487 : : #if defined(_DERIVATE)
7488 : 0 : FCd_a_Vci_ei=(-(-FCa1_Vci_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
7489 : 0 : FCd_a_Vtnode_GND=(-(-FCa1_Vtnode_GND*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
7490 : 0 : FCd_a_Vbi_ei=(-(-FCa1_Vbi_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
7491 : 0 : FCd_a_Vbi_ci=(-(-FCa1_Vbi_ci*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
7492 : : #endif
7493 : 0 : FCd_a=(1.0/(latl-(FCa1*latb)));
7494 : : #if defined(_DERIVATE)
7495 : 0 : FCw_Vci_ei=((FCa1_Vci_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vci_ei));
7496 : 0 : FCw_Vtnode_GND=((FCa1_Vtnode_GND*FCd_a)+((FCa1-1.0)*FCd_a_Vtnode_GND));
7497 : 0 : FCw_Vbi_ei=((FCa1_Vbi_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ei));
7498 : 0 : FCw_Vbi_ci=((FCa1_Vbi_ci*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ci));
7499 : : #endif
7500 : 0 : FCw=((FCa1-1.0)*FCd_a);
7501 : : #if defined(_DERIVATE)
7502 : 0 : 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));
7503 : 0 : 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));
7504 : 0 : 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));
7505 : 0 : 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));
7506 : : #endif
7507 : 0 : FCdw_daick=(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a);
7508 : : {
7509 : 0 : double m00_logE(d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
7510 : : #if defined(_DERIVATE)
7511 : 0 : double m10_logE(d10_logE0,d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
7512 : : #endif
7513 : : #if defined(_DERIVATE)
7514 : 0 : FCa1_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;
7515 : 0 : FCa1_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;
7516 : 0 : FCa1_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;
7517 : 0 : FCa1_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;
7518 : : #endif
7519 : 0 : FCa1=d00_logE0;
7520 : : }
7521 : : #if defined(_DERIVATE)
7522 : 0 : 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))));
7523 : 0 : 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))));
7524 : 0 : 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))));
7525 : 0 : 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))));
7526 : : #endif
7527 : 0 : FCda1_dw=((latb/(1.0+(latb*FCw)))-(latl/(1.0+(latl*FCw))));
7528 : : }
7529 : : else
7530 : : {
7531 : : #if defined(_DERIVATE)
7532 : 0 : FCf1_Vci_ei=(-FCa_ck_Vci_ei);
7533 : 0 : FCf1_Vtnode_GND=(-FCa_ck_Vtnode_GND);
7534 : 0 : FCf1_Vbi_ei=(-FCa_ck_Vbi_ei);
7535 : 0 : FCf1_Vbi_ci=(-FCa_ck_Vbi_ci);
7536 : : #endif
7537 : 0 : FCf1=(1.0-FCa_ck);
7538 : : #if defined(_DERIVATE)
7539 : 0 : FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
7540 : 0 : FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
7541 : 0 : FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
7542 : 0 : FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
7543 : : #endif
7544 : 0 : FCd_a=(1.0/(1.0+(FCa_ck*latb)));
7545 : : #if defined(_DERIVATE)
7546 : 0 : FCw_Vci_ei=((FCf1_Vci_ei*FCd_a)+(FCf1*FCd_a_Vci_ei));
7547 : 0 : FCw_Vtnode_GND=((FCf1_Vtnode_GND*FCd_a)+(FCf1*FCd_a_Vtnode_GND));
7548 : 0 : FCw_Vbi_ei=((FCf1_Vbi_ei*FCd_a)+(FCf1*FCd_a_Vbi_ei));
7549 : 0 : FCw_Vbi_ci=((FCf1_Vbi_ci*FCd_a)+(FCf1*FCd_a_Vbi_ci));
7550 : : #endif
7551 : 0 : FCw=(FCf1*FCd_a);
7552 : : #if defined(_DERIVATE)
7553 : 0 : FCdw_daick_Vci_ei=((((((-1.0)*FCd_a_Vci_ei)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vci_ei))*FCxb*FCd_a)+(((((-1.0)*FCd_a)*FCd_a)*FCxb)*FCd_a_Vci_ei));
7554 : 0 : FCdw_daick_Vtnode_GND=((((((-1.0)*FCd_a_Vtnode_GND)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vtnode_GND))*FCxb*FCd_a)+(((((-1.0)*FCd_a)*FCd_a)*FCxb)*FCd_a_Vtnode_GND));
7555 : 0 : FCdw_daick_Vbi_ei=((((((-1.0)*FCd_a_Vbi_ei)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vbi_ei))*FCxb*FCd_a)+(((((-1.0)*FCd_a)*FCd_a)*FCxb)*FCd_a_Vbi_ei));
7556 : 0 : FCdw_daick_Vbi_ci=((((((-1.0)*FCd_a_Vbi_ci)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vbi_ci))*FCxb*FCd_a)+(((((-1.0)*FCd_a)*FCd_a)*FCxb)*FCd_a_Vbi_ci));
7557 : : #endif
7558 : 0 : FCdw_daick=(((((-1.0)*FCd_a)*FCd_a)*FCxb)*FCd_a);
7559 : : #if defined(_DERIVATE)
7560 : 0 : FCa1_Vci_ei=((FCz_Vci_ei*FCw)+(FCz*FCw_Vci_ei));
7561 : 0 : FCa1_Vtnode_GND=((FCz_Vtnode_GND*FCw)+(FCz*FCw_Vtnode_GND));
7562 : 0 : FCa1_Vbi_ei=((FCz_Vbi_ei*FCw)+(FCz*FCw_Vbi_ei));
7563 : 0 : FCa1_Vbi_ci=((FCz_Vbi_ci*FCw)+(FCz*FCw_Vbi_ci));
7564 : : #endif
7565 : 0 : FCa1=(FCz*FCw);
7566 : : #if defined(_DERIVATE)
7567 : 0 : FCda1_dw_Vci_ei=FCz_Vci_ei;
7568 : 0 : FCda1_dw_Vtnode_GND=FCz_Vtnode_GND;
7569 : 0 : FCda1_dw_Vbi_ei=FCz_Vbi_ei;
7570 : 0 : FCda1_dw_Vbi_ci=FCz_Vbi_ci;
7571 : : #endif
7572 : 0 : FCda1_dw=FCz;
7573 : : }
7574 : : #if defined(_DERIVATE)
7575 : 0 : FCf_CT_Vbi_ei=(-2.0*FCz_Vbi_ei/FCz/FCz);
7576 : 0 : FCf_CT_Vbi_ci=(-2.0*FCz_Vbi_ci/FCz/FCz);
7577 : 0 : FCf_CT_Vci_ei=(-2.0*FCz_Vci_ei/FCz/FCz);
7578 : 0 : FCf_CT_Vtnode_GND=(-2.0*FCz_Vtnode_GND/FCz/FCz);
7579 : : #endif
7580 : 0 : FCf_CT=(2.0/FCz);
7581 : : #if defined(_DERIVATE)
7582 : 0 : FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
7583 : 0 : FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
7584 : 0 : FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
7585 : 0 : FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
7586 : : #endif
7587 : 0 : FCw2=(FCw*FCw);
7588 : : #if defined(_DERIVATE)
7589 : 0 : 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);
7590 : 0 : 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);
7591 : 0 : 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);
7592 : 0 : 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);
7593 : : #endif
7594 : 0 : FCf1=((((((latb*latl)*FCw)*FCw2)/3.0)+(((latb+latl)*FCw2)/2.0))+FCw);
7595 : : #if defined(_DERIVATE)
7596 : 0 : FCdf1_dw_Vci_ei=(((latb*latl)*FCw2_Vci_ei)+((latb+latl)*FCw_Vci_ei));
7597 : 0 : FCdf1_dw_Vtnode_GND=(((latb*latl)*FCw2_Vtnode_GND)+((latb+latl)*FCw_Vtnode_GND));
7598 : 0 : FCdf1_dw_Vbi_ei=(((latb*latl)*FCw2_Vbi_ei)+((latb+latl)*FCw_Vbi_ei));
7599 : 0 : FCdf1_dw_Vbi_ci=(((latb*latl)*FCw2_Vbi_ci)+((latb+latl)*FCw_Vbi_ci));
7600 : : #endif
7601 : 0 : FCdf1_dw=((((latb*latl)*FCw2)+((latb+latl)*FCw))+1.0);
7602 : : #if defined(_DERIVATE)
7603 : 0 : z_Vci_ei=(latb*FCw_Vci_ei);
7604 : 0 : z_Vtnode_GND=(latb*FCw_Vtnode_GND);
7605 : 0 : z_Vbi_ei=(latb*FCw_Vbi_ei);
7606 : 0 : z_Vbi_ci=(latb*FCw_Vbi_ci);
7607 : : #endif
7608 : 0 : z=(latb*FCw);
7609 : : {
7610 : 0 : double m00_logE(d00_logE0,(1+(latb*FCw)))
7611 : : #if defined(_DERIVATE)
7612 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latb*FCw)))
7613 : : #endif
7614 : : #if defined(_DERIVATE)
7615 : 0 : lnzb_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
7616 : 0 : lnzb_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
7617 : 0 : lnzb_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
7618 : 0 : lnzb_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
7619 : : #endif
7620 : 0 : lnzb=d00_logE0;
7621 : : }
7622 [ # # ]: 0 : if
7623 : : (z>1.0e-6)
7624 : : {
7625 : : #if defined(_DERIVATE)
7626 : 0 : x_Vci_ei=z_Vci_ei;
7627 : 0 : x_Vtnode_GND=z_Vtnode_GND;
7628 : 0 : x_Vbi_ei=z_Vbi_ei;
7629 : 0 : x_Vbi_ci=z_Vbi_ci;
7630 : : #endif
7631 : 0 : x=(1.0+z);
7632 : : #if defined(_DERIVATE)
7633 : 0 : a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
7634 : 0 : a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
7635 : 0 : a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
7636 : 0 : a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
7637 : : #endif
7638 : 0 : a=(x*x);
7639 : : #if defined(_DERIVATE)
7640 : 0 : a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ei))));
7641 : 0 : a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ci))));
7642 : 0 : a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vci_ei))));
7643 : 0 : a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vtnode_GND))));
7644 : : #endif
7645 : 0 : a2=(0.250*((a*((2.0*lnzb)-1.0))+1.0));
7646 : : #if defined(_DERIVATE)
7647 : 0 : a3_Vbi_ei=(((((a_Vbi_ei*x)+(a*x_Vbi_ei))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vbi_ei)))/9.0);
7648 : 0 : a3_Vbi_ci=(((((a_Vbi_ci*x)+(a*x_Vbi_ci))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vbi_ci)))/9.0);
7649 : 0 : a3_Vci_ei=(((((a_Vci_ei*x)+(a*x_Vci_ei))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vci_ei)))/9.0);
7650 : 0 : a3_Vtnode_GND=(((((a_Vtnode_GND*x)+(a*x_Vtnode_GND))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vtnode_GND)))/9.0);
7651 : : #endif
7652 : 0 : a3=((((a*x)*((3.0*lnzb)-1.0))+1.0)/9.0);
7653 : 0 : r=(latl/latb);
7654 : : #if defined(_DERIVATE)
7655 : 0 : FCf2_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latb);
7656 : 0 : FCf2_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latb);
7657 : 0 : FCf2_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latb);
7658 : 0 : FCf2_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latb);
7659 : : #endif
7660 : 0 : FCf2=((((1.0-r)*a2)+(r*a3))/latb);
7661 : : #if defined(_DERIVATE)
7662 : 0 : FCdf2_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vci_ei));
7663 : 0 : FCdf2_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vtnode_GND));
7664 : 0 : FCdf2_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ei));
7665 : 0 : FCdf2_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ci));
7666 : : #endif
7667 : 0 : FCdf2_dw=((((1.0-r)*x)+(r*a))*lnzb);
7668 : : }
7669 : : else
7670 : : {
7671 : : #if defined(_DERIVATE)
7672 : 0 : a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
7673 : 0 : a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
7674 : 0 : a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
7675 : 0 : a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
7676 : : #endif
7677 : 0 : a=(z*z);
7678 : : #if defined(_DERIVATE)
7679 : 0 : a2_Vbi_ei=((z_Vbi_ei-(0.25*a_Vbi_ei))+(((0.10*z_Vbi_ei)*a)+((0.10*z)*a_Vbi_ei)));
7680 : 0 : a2_Vbi_ci=((z_Vbi_ci-(0.25*a_Vbi_ci))+(((0.10*z_Vbi_ci)*a)+((0.10*z)*a_Vbi_ci)));
7681 : 0 : a2_Vci_ei=((z_Vci_ei-(0.25*a_Vci_ei))+(((0.10*z_Vci_ei)*a)+((0.10*z)*a_Vci_ei)));
7682 : 0 : a2_Vtnode_GND=((z_Vtnode_GND-(0.25*a_Vtnode_GND))+(((0.10*z_Vtnode_GND)*a)+((0.10*z)*a_Vtnode_GND)));
7683 : : #endif
7684 : 0 : a2=(((3.0+z)-(0.25*a))+((0.10*z)*a));
7685 : : #if defined(_DERIVATE)
7686 : 0 : a3_Vbi_ei=(((2.0*z_Vbi_ei)+(0.75*a_Vbi_ei))-(((0.20*a_Vbi_ei)*z)+((0.20*a)*z_Vbi_ei)));
7687 : 0 : a3_Vbi_ci=(((2.0*z_Vbi_ci)+(0.75*a_Vbi_ci))-(((0.20*a_Vbi_ci)*z)+((0.20*a)*z_Vbi_ci)));
7688 : 0 : a3_Vci_ei=(((2.0*z_Vci_ei)+(0.75*a_Vci_ei))-(((0.20*a_Vci_ei)*z)+((0.20*a)*z_Vci_ei)));
7689 : 0 : a3_Vtnode_GND=(((2.0*z_Vtnode_GND)+(0.75*a_Vtnode_GND))-(((0.20*a_Vtnode_GND)*z)+((0.20*a)*z_Vtnode_GND)));
7690 : : #endif
7691 : 0 : a3=(((2.0*z)+(0.75*a))-((0.20*a)*z));
7692 : : #if defined(_DERIVATE)
7693 : 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);
7694 : 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);
7695 : 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);
7696 : 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);
7697 : : #endif
7698 : 0 : FCf2=(((((latb*a2)+(latl*a3))*FCw)*FCw)/6.0);
7699 : : #if defined(_DERIVATE)
7700 : 0 : FCdf2_dw_Vci_ei=(((((latl*FCw_Vci_ei)*(1+z))+((1+(latl*FCw))*z_Vci_ei))*lnzb)+(((1+(latl*FCw))*(1+z))*lnzb_Vci_ei));
7701 : 0 : FCdf2_dw_Vtnode_GND=(((((latl*FCw_Vtnode_GND)*(1+z))+((1+(latl*FCw))*z_Vtnode_GND))*lnzb)+(((1+(latl*FCw))*(1+z))*lnzb_Vtnode_GND));
7702 : 0 : FCdf2_dw_Vbi_ei=(((((latl*FCw_Vbi_ei)*(1+z))+((1+(latl*FCw))*z_Vbi_ei))*lnzb)+(((1+(latl*FCw))*(1+z))*lnzb_Vbi_ei));
7703 : 0 : FCdf2_dw_Vbi_ci=(((((latl*FCw_Vbi_ci)*(1+z))+((1+(latl*FCw))*z_Vbi_ci))*lnzb)+(((1+(latl*FCw))*(1+z))*lnzb_Vbi_ci));
7704 : : #endif
7705 : 0 : FCdf2_dw=(((1+(latl*FCw))*(1+z))*lnzb);
7706 : : }
7707 : : #if defined(_DERIVATE)
7708 : 0 : z_Vci_ei=(latl*FCw_Vci_ei);
7709 : 0 : z_Vtnode_GND=(latl*FCw_Vtnode_GND);
7710 : 0 : z_Vbi_ei=(latl*FCw_Vbi_ei);
7711 : 0 : z_Vbi_ci=(latl*FCw_Vbi_ci);
7712 : : #endif
7713 : 0 : z=(latl*FCw);
7714 : : {
7715 : 0 : double m00_logE(d00_logE0,(1+(latl*FCw)))
7716 : : #if defined(_DERIVATE)
7717 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latl*FCw)))
7718 : : #endif
7719 : : #if defined(_DERIVATE)
7720 : 0 : lnzb_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
7721 : 0 : lnzb_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
7722 : 0 : lnzb_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
7723 : 0 : lnzb_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
7724 : : #endif
7725 : 0 : lnzb=d00_logE0;
7726 : : }
7727 [ # # ]: 0 : if
7728 : : (z>1.0e-6)
7729 : : {
7730 : : #if defined(_DERIVATE)
7731 : 0 : x_Vci_ei=z_Vci_ei;
7732 : 0 : x_Vtnode_GND=z_Vtnode_GND;
7733 : 0 : x_Vbi_ei=z_Vbi_ei;
7734 : 0 : x_Vbi_ci=z_Vbi_ci;
7735 : : #endif
7736 : 0 : x=(1.0+z);
7737 : : #if defined(_DERIVATE)
7738 : 0 : a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
7739 : 0 : a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
7740 : 0 : a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
7741 : 0 : a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
7742 : : #endif
7743 : 0 : a=(x*x);
7744 : : #if defined(_DERIVATE)
7745 : 0 : a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ei))));
7746 : 0 : a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ci))));
7747 : 0 : a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vci_ei))));
7748 : 0 : a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vtnode_GND))));
7749 : : #endif
7750 : 0 : a2=(0.250*((a*((2.0*lnzb)-1.0))+1.0));
7751 : : #if defined(_DERIVATE)
7752 : 0 : a3_Vbi_ei=(((((a_Vbi_ei*x)+(a*x_Vbi_ei))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vbi_ei)))/9.0);
7753 : 0 : a3_Vbi_ci=(((((a_Vbi_ci*x)+(a*x_Vbi_ci))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vbi_ci)))/9.0);
7754 : 0 : a3_Vci_ei=(((((a_Vci_ei*x)+(a*x_Vci_ei))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vci_ei)))/9.0);
7755 : 0 : a3_Vtnode_GND=(((((a_Vtnode_GND*x)+(a*x_Vtnode_GND))*((3.0*lnzb)-1.0))+((a*x)*(3.0*lnzb_Vtnode_GND)))/9.0);
7756 : : #endif
7757 : 0 : a3=((((a*x)*((3.0*lnzb)-1.0))+1.0)/9.0);
7758 : 0 : r=(latb/latl);
7759 : : #if defined(_DERIVATE)
7760 : 0 : FCf3_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latl);
7761 : 0 : FCf3_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latl);
7762 : 0 : FCf3_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latl);
7763 : 0 : FCf3_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latl);
7764 : : #endif
7765 : 0 : FCf3=((((1.0-r)*a2)+(r*a3))/latl);
7766 : : #if defined(_DERIVATE)
7767 : 0 : FCdf3_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vci_ei));
7768 : 0 : FCdf3_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vtnode_GND));
7769 : 0 : FCdf3_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ei));
7770 : 0 : FCdf3_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ci));
7771 : : #endif
7772 : 0 : FCdf3_dw=((((1.0-r)*x)+(r*a))*lnzb);
7773 : : }
7774 : : else
7775 : : {
7776 : : #if defined(_DERIVATE)
7777 : 0 : a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
7778 : 0 : a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
7779 : 0 : a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
7780 : 0 : a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
7781 : : #endif
7782 : 0 : a=(z*z);
7783 : : #if defined(_DERIVATE)
7784 : 0 : a2_Vbi_ei=((z_Vbi_ei-(0.25*a_Vbi_ei))+(((0.10*z_Vbi_ei)*a)+((0.10*z)*a_Vbi_ei)));
7785 : 0 : a2_Vbi_ci=((z_Vbi_ci-(0.25*a_Vbi_ci))+(((0.10*z_Vbi_ci)*a)+((0.10*z)*a_Vbi_ci)));
7786 : 0 : a2_Vci_ei=((z_Vci_ei-(0.25*a_Vci_ei))+(((0.10*z_Vci_ei)*a)+((0.10*z)*a_Vci_ei)));
7787 : 0 : a2_Vtnode_GND=((z_Vtnode_GND-(0.25*a_Vtnode_GND))+(((0.10*z_Vtnode_GND)*a)+((0.10*z)*a_Vtnode_GND)));
7788 : : #endif
7789 : 0 : a2=(((3.0+z)-(0.25*a))+((0.10*z)*a));
7790 : : #if defined(_DERIVATE)
7791 : 0 : a3_Vbi_ei=(((2.0*z_Vbi_ei)+(0.75*a_Vbi_ei))-(((0.20*a_Vbi_ei)*z)+((0.20*a)*z_Vbi_ei)));
7792 : 0 : a3_Vbi_ci=(((2.0*z_Vbi_ci)+(0.75*a_Vbi_ci))-(((0.20*a_Vbi_ci)*z)+((0.20*a)*z_Vbi_ci)));
7793 : 0 : a3_Vci_ei=(((2.0*z_Vci_ei)+(0.75*a_Vci_ei))-(((0.20*a_Vci_ei)*z)+((0.20*a)*z_Vci_ei)));
7794 : 0 : a3_Vtnode_GND=(((2.0*z_Vtnode_GND)+(0.75*a_Vtnode_GND))-(((0.20*a_Vtnode_GND)*z)+((0.20*a)*z_Vtnode_GND)));
7795 : : #endif
7796 : 0 : a3=(((2.0*z)+(0.75*a))-((0.20*a)*z));
7797 : : #if defined(_DERIVATE)
7798 : 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);
7799 : 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);
7800 : 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);
7801 : 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);
7802 : : #endif
7803 : 0 : FCf3=(((((latl*a2)+(latb*a3))*FCw)*FCw)/6.0);
7804 : : #if defined(_DERIVATE)
7805 : 0 : FCdf3_dw_Vci_ei=(((((latb*FCw_Vci_ei)*(1+z))+((1+(latb*FCw))*z_Vci_ei))*lnzb)+(((1+(latb*FCw))*(1+z))*lnzb_Vci_ei));
7806 : 0 : FCdf3_dw_Vtnode_GND=(((((latb*FCw_Vtnode_GND)*(1+z))+((1+(latb*FCw))*z_Vtnode_GND))*lnzb)+(((1+(latb*FCw))*(1+z))*lnzb_Vtnode_GND));
7807 : 0 : FCdf3_dw_Vbi_ei=(((((latb*FCw_Vbi_ei)*(1+z))+((1+(latb*FCw))*z_Vbi_ei))*lnzb)+(((1+(latb*FCw))*(1+z))*lnzb_Vbi_ei));
7808 : 0 : FCdf3_dw_Vbi_ci=(((((latb*FCw_Vbi_ci)*(1+z))+((1+(latb*FCw))*z_Vbi_ci))*lnzb)+(((1+(latb*FCw))*(1+z))*lnzb_Vbi_ci));
7809 : : #endif
7810 : 0 : FCdf3_dw=(((1+(latb*FCw))*(1+z))*lnzb);
7811 : : }
7812 : : #if defined(_DERIVATE)
7813 : 0 : FCf_ci_Vci_ei=((FCf_CT_Vci_ei*(((FCa1*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa1_Vci_ei*FCf1)+(FCa1*FCf1_Vci_ei))-FCf2_Vci_ei)+FCf3_Vci_ei)));
7814 : 0 : FCf_ci_Vtnode_GND=((FCf_CT_Vtnode_GND*(((FCa1*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa1_Vtnode_GND*FCf1)+(FCa1*FCf1_Vtnode_GND))-FCf2_Vtnode_GND)+FCf3_Vtnode_GND)));
7815 : 0 : FCf_ci_Vbi_ei=((FCf_CT_Vbi_ei*(((FCa1*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa1_Vbi_ei*FCf1)+(FCa1*FCf1_Vbi_ei))-FCf2_Vbi_ei)+FCf3_Vbi_ei)));
7816 : 0 : FCf_ci_Vbi_ci=((FCf_CT_Vbi_ci*(((FCa1*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa1_Vbi_ci*FCf1)+(FCa1*FCf1_Vbi_ci))-FCf2_Vbi_ci)+FCf3_Vbi_ci)));
7817 : : #endif
7818 : 0 : FCf_ci=(FCf_CT*(((FCa1*FCf1)-FCf2)+FCf3));
7819 : : #if defined(_DERIVATE)
7820 : 0 : 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)));
7821 : 0 : 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)));
7822 : 0 : 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)));
7823 : 0 : 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)));
7824 : : #endif
7825 : 0 : FCdfc_dw=(FCf_CT*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw));
7826 : : #if defined(_DERIVATE)
7827 : 0 : FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
7828 : 0 : FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
7829 : 0 : FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
7830 : 0 : FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
7831 : : #endif
7832 : 0 : FCdw_ditf=(FCdw_daick*FCdaick_ditf);
7833 : : #if defined(_DERIVATE)
7834 : 0 : FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
7835 : 0 : FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
7836 : 0 : FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
7837 : 0 : FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
7838 : : #endif
7839 : 0 : FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
7840 : : #ifdef _DYNAMIC
7841 [ # # ][ # # ]: 0 : if
7842 : : ((flcomp==0.0)||(flcomp==2.1))
7843 : : {
7844 : : #if defined(_DYNAMIC)
7845 : : #if defined(_DERIVATE)
7846 : 0 : a_Vbi_ei=(latb*FCw_Vbi_ei);
7847 : 0 : a_Vbi_ci=(latb*FCw_Vbi_ci);
7848 : 0 : a_Vci_ei=(latb*FCw_Vci_ei);
7849 : 0 : a_Vtnode_GND=(latb*FCw_Vtnode_GND);
7850 : : #endif
7851 : 0 : a=(latb*FCw);
7852 : : #endif
7853 : : #if defined(_DYNAMIC)
7854 : : {
7855 : 0 : double m00_logE(d00_logE0,(1+(latb*FCw)))
7856 : : #if defined(_DERIVATE)
7857 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latb*FCw)))
7858 : : #endif
7859 : : #if defined(_DERIVATE)
7860 : 0 : lnz_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
7861 : 0 : lnz_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
7862 : 0 : lnz_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
7863 : 0 : lnz_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
7864 : : #endif
7865 : 0 : lnz=d00_logE0;
7866 : : }
7867 : : #endif
7868 : : #ifdef _DYNAMIC
7869 [ # # ]: 0 : if
7870 : : (a>1.0e-6)
7871 : : {
7872 : : #if defined(_DYNAMIC)
7873 : : #if defined(_DERIVATE)
7874 : 0 : FCf2_Vbi_ei=((a_Vbi_ei-lnz_Vbi_ei)/latb);
7875 : 0 : FCf2_Vbi_ci=((a_Vbi_ci-lnz_Vbi_ci)/latb);
7876 : 0 : FCf2_Vci_ei=((a_Vci_ei-lnz_Vci_ei)/latb);
7877 : 0 : FCf2_Vtnode_GND=((a_Vtnode_GND-lnz_Vtnode_GND)/latb);
7878 : : #endif
7879 : 0 : FCf2=((a-lnz)/latb);
7880 : : #endif
7881 : : #if defined(_DYNAMIC)
7882 : : #if defined(_DERIVATE)
7883 : 0 : FCdf2_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
7884 : 0 : FCdf2_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
7885 : 0 : FCdf2_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
7886 : 0 : FCdf2_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
7887 : : #endif
7888 : 0 : FCdf2_dw=(a/(1.0+a));
7889 : : #endif
7890 : : }
7891 : : else
7892 : : {
7893 : : #if defined(_DYNAMIC)
7894 : : #if defined(_DERIVATE)
7895 : 0 : FCf2_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
7896 : 0 : FCf2_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
7897 : 0 : FCf2_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
7898 : 0 : FCf2_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
7899 : : #endif
7900 : 0 : FCf2=((0.5*a)*FCw);
7901 : : #endif
7902 : : #if defined(_DYNAMIC)
7903 : : #if defined(_DERIVATE)
7904 : 0 : FCdf2_dw_Vci_ei=a_Vci_ei;
7905 : 0 : FCdf2_dw_Vtnode_GND=a_Vtnode_GND;
7906 : 0 : FCdf2_dw_Vbi_ei=a_Vbi_ei;
7907 : 0 : FCdf2_dw_Vbi_ci=a_Vbi_ci;
7908 : : #endif
7909 : 0 : FCdf2_dw=a;
7910 : : #endif
7911 : : }
7912 : : #endif /* if (...) */
7913 : : #if defined(_DYNAMIC)
7914 : : #if defined(_DERIVATE)
7915 : 0 : a_Vbi_ei=(latl*FCw_Vbi_ei);
7916 : 0 : a_Vbi_ci=(latl*FCw_Vbi_ci);
7917 : 0 : a_Vci_ei=(latl*FCw_Vci_ei);
7918 : 0 : a_Vtnode_GND=(latl*FCw_Vtnode_GND);
7919 : : #endif
7920 : 0 : a=(latl*FCw);
7921 : : #endif
7922 : : #if defined(_DYNAMIC)
7923 : : {
7924 : 0 : double m00_logE(d00_logE0,(1+(latl*FCw)))
7925 : : #if defined(_DERIVATE)
7926 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latl*FCw)))
7927 : : #endif
7928 : : #if defined(_DERIVATE)
7929 : 0 : lnz_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
7930 : 0 : lnz_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
7931 : 0 : lnz_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
7932 : 0 : lnz_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
7933 : : #endif
7934 : 0 : lnz=d00_logE0;
7935 : : }
7936 : : #endif
7937 : : #ifdef _DYNAMIC
7938 [ # # ]: 0 : if
7939 : : (a>1.0e-6)
7940 : : {
7941 : : #if defined(_DYNAMIC)
7942 : : #if defined(_DERIVATE)
7943 : 0 : FCf3_Vbi_ei=((a_Vbi_ei-lnz_Vbi_ei)/latl);
7944 : 0 : FCf3_Vbi_ci=((a_Vbi_ci-lnz_Vbi_ci)/latl);
7945 : 0 : FCf3_Vci_ei=((a_Vci_ei-lnz_Vci_ei)/latl);
7946 : 0 : FCf3_Vtnode_GND=((a_Vtnode_GND-lnz_Vtnode_GND)/latl);
7947 : : #endif
7948 : 0 : FCf3=((a-lnz)/latl);
7949 : : #endif
7950 : : #if defined(_DYNAMIC)
7951 : : #if defined(_DERIVATE)
7952 : 0 : FCdf3_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
7953 : 0 : FCdf3_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
7954 : 0 : FCdf3_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
7955 : 0 : FCdf3_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
7956 : : #endif
7957 : 0 : FCdf3_dw=(a/(1.0+a));
7958 : : #endif
7959 : : }
7960 : : else
7961 : : {
7962 : : #if defined(_DYNAMIC)
7963 : : #if defined(_DERIVATE)
7964 : 0 : FCf3_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
7965 : 0 : FCf3_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
7966 : 0 : FCf3_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
7967 : 0 : FCf3_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
7968 : : #endif
7969 : 0 : FCf3=((0.5*a)*FCw);
7970 : : #endif
7971 : : #if defined(_DYNAMIC)
7972 : : #if defined(_DERIVATE)
7973 : 0 : FCdf3_dw_Vci_ei=a_Vci_ei;
7974 : 0 : FCdf3_dw_Vtnode_GND=a_Vtnode_GND;
7975 : 0 : FCdf3_dw_Vbi_ei=a_Vbi_ei;
7976 : 0 : FCdf3_dw_Vbi_ci=a_Vbi_ci;
7977 : : #endif
7978 : 0 : FCdf3_dw=a;
7979 : : #endif
7980 : : }
7981 : : #endif /* if (...) */
7982 : : #if defined(_DYNAMIC)
7983 : : #if defined(_DERIVATE)
7984 : 0 : FCf_CT_Vbi_ei=((FCf_CT_Vbi_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ei-FCf3_Vbi_ei)));
7985 : 0 : FCf_CT_Vbi_ci=((FCf_CT_Vbi_ci*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ci-FCf3_Vbi_ci)));
7986 : 0 : FCf_CT_Vci_ei=((FCf_CT_Vci_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vci_ei-FCf3_Vci_ei)));
7987 : 0 : FCf_CT_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCf2-FCf3))+(FCf_CT*(FCf2_Vtnode_GND-FCf3_Vtnode_GND)));
7988 : : #endif
7989 : 0 : FCf_CT=(FCf_CT*(FCf2-FCf3));
7990 : : #endif
7991 : : #if defined(_DYNAMIC)
7992 : : #if defined(_DERIVATE)
7993 : 0 : FCdfCT_dw_Vbi_ei=((FCf_CT_Vbi_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ei-FCdf3_dw_Vbi_ei)));
7994 : 0 : FCdfCT_dw_Vbi_ci=((FCf_CT_Vbi_ci*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ci-FCdf3_dw_Vbi_ci)));
7995 : 0 : FCdfCT_dw_Vci_ei=((FCf_CT_Vci_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vci_ei-FCdf3_dw_Vci_ei)));
7996 : 0 : FCdfCT_dw_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vtnode_GND-FCdf3_dw_Vtnode_GND)));
7997 : : #endif
7998 : 0 : FCdfCT_dw=(FCf_CT*(FCdf2_dw-FCdf3_dw));
7999 : : #endif
8000 : : #if defined(_DYNAMIC)
8001 : : #if defined(_DERIVATE)
8002 : 0 : FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
8003 : 0 : FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
8004 : 0 : FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
8005 : 0 : FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
8006 : : #endif
8007 : 0 : FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
8008 : : #endif
8009 : : }
8010 : : else
8011 : : {
8012 : : #if defined(_DYNAMIC)
8013 : : #if defined(_DERIVATE)
8014 : 0 : FCf_CT_Vbi_ei=FCf_ci_Vbi_ei;
8015 : 0 : FCf_CT_Vbi_ci=FCf_ci_Vbi_ci;
8016 : 0 : FCf_CT_Vci_ei=FCf_ci_Vci_ei;
8017 : 0 : FCf_CT_Vtnode_GND=FCf_ci_Vtnode_GND;
8018 : : #endif
8019 : 0 : FCf_CT=FCf_ci;
8020 : : #endif
8021 : : #if defined(_DYNAMIC)
8022 : : #if defined(_DERIVATE)
8023 : 0 : FCdfCT_ditf_Vbi_ei=FCdfc_ditf_Vbi_ei;
8024 : 0 : FCdfCT_ditf_Vbi_ci=FCdfc_ditf_Vbi_ci;
8025 : 0 : FCdfCT_ditf_Vci_ei=FCdfc_ditf_Vci_ei;
8026 : 0 : FCdfCT_ditf_Vtnode_GND=FCdfc_ditf_Vtnode_GND;
8027 : : #endif
8028 : 0 : FCdfCT_ditf=FCdfc_ditf;
8029 : : #endif
8030 : : }
8031 : : #endif /* if (...) */
8032 : : }
8033 : : else
8034 : : {
8035 [ # # ]: 0 : if
8036 : : (latb>0.01)
8037 : : {
8038 : : #if defined(_DERIVATE)
8039 : 0 : FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
8040 : 0 : FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
8041 : 0 : FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
8042 : 0 : FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
8043 : : #endif
8044 : 0 : FCd_a=(1.0/(1.0+(FCa_ck*latb)));
8045 : : #if defined(_DERIVATE)
8046 : 0 : FCw_Vci_ei=(((-FCa_ck_Vci_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vci_ei));
8047 : 0 : FCw_Vtnode_GND=(((-FCa_ck_Vtnode_GND)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vtnode_GND));
8048 : 0 : FCw_Vbi_ei=(((-FCa_ck_Vbi_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ei));
8049 : 0 : FCw_Vbi_ci=(((-FCa_ck_Vbi_ci)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ci));
8050 : : #endif
8051 : 0 : FCw=((1.0-FCa_ck)*FCd_a);
8052 : : #if defined(_DERIVATE)
8053 : 0 : FCdw_daick_Vci_ei=((((-(1.0+latb))*FCd_a_Vci_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vci_ei));
8054 : 0 : FCdw_daick_Vtnode_GND=((((-(1.0+latb))*FCd_a_Vtnode_GND)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vtnode_GND));
8055 : 0 : FCdw_daick_Vbi_ei=((((-(1.0+latb))*FCd_a_Vbi_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ei));
8056 : 0 : FCdw_daick_Vbi_ci=((((-(1.0+latb))*FCd_a_Vbi_ci)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ci));
8057 : : #endif
8058 : 0 : FCdw_daick=(((-(1.0+latb))*FCd_a)*FCd_a);
8059 : : }
8060 : : else
8061 : : {
8062 : : #if defined(_DERIVATE)
8063 : 0 : FCw_Vci_ei=((-FCa_ck_Vci_ei)-FCa_ck_Vci_ei*latb);
8064 : 0 : FCw_Vtnode_GND=((-FCa_ck_Vtnode_GND)-FCa_ck_Vtnode_GND*latb);
8065 : 0 : FCw_Vbi_ei=((-FCa_ck_Vbi_ei)-FCa_ck_Vbi_ei*latb);
8066 : 0 : FCw_Vbi_ci=((-FCa_ck_Vbi_ci)-FCa_ck_Vbi_ci*latb);
8067 : : #endif
8068 : 0 : FCw=((1.0-FCa_ck)-(FCa_ck*latb));
8069 : : #if defined(_DERIVATE)
8070 : 0 : FCdw_daick_Vci_ei=0.0;
8071 : 0 : FCdw_daick_Vtnode_GND=0.0;
8072 : 0 : FCdw_daick_Vbi_ei=0.0;
8073 : 0 : FCdw_daick_Vbi_ci=0.0;
8074 : : #endif
8075 : 0 : FCdw_daick=(-(1.0+latb));
8076 : : }
8077 : : #if defined(_DERIVATE)
8078 : 0 : FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
8079 : 0 : FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
8080 : 0 : FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
8081 : 0 : FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
8082 : : #endif
8083 : 0 : FCw2=(FCw*FCw);
8084 : : #if defined(_DERIVATE)
8085 : 0 : FCz_Vci_ei=(latb*FCw_Vci_ei);
8086 : 0 : FCz_Vtnode_GND=(latb*FCw_Vtnode_GND);
8087 : 0 : FCz_Vbi_ei=(latb*FCw_Vbi_ei);
8088 : 0 : FCz_Vbi_ci=(latb*FCw_Vbi_ci);
8089 : : #endif
8090 : 0 : FCz=(latb*FCw);
8091 : : #if defined(_DERIVATE)
8092 : 0 : FCz_1_Vci_ei=FCz_Vci_ei;
8093 : 0 : FCz_1_Vtnode_GND=FCz_Vtnode_GND;
8094 : 0 : FCz_1_Vbi_ei=FCz_Vbi_ei;
8095 : 0 : FCz_1_Vbi_ci=FCz_Vbi_ci;
8096 : : #endif
8097 : 0 : FCz_1=(1.0+FCz);
8098 : : #if defined(_DERIVATE)
8099 : 0 : FCd_f_Vci_ei=(-FCz_1_Vci_ei/FCz_1/FCz_1);
8100 : 0 : FCd_f_Vtnode_GND=(-FCz_1_Vtnode_GND/FCz_1/FCz_1);
8101 : 0 : FCd_f_Vbi_ei=(-FCz_1_Vbi_ei/FCz_1/FCz_1);
8102 : 0 : FCd_f_Vbi_ci=(-FCz_1_Vbi_ci/FCz_1/FCz_1);
8103 : : #endif
8104 : 0 : FCd_f=(1.0/FCz_1);
8105 : : #if defined(_DERIVATE)
8106 : 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));
8107 : 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));
8108 : 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));
8109 : 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));
8110 : : #endif
8111 : 0 : FCf_ci=((FCw2*(1.0+(FCz/3.0)))*FCd_f);
8112 : : #if defined(_DERIVATE)
8113 : 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));
8114 : 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));
8115 : 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));
8116 : 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));
8117 : : #endif
8118 : 0 : FCdfc_dw=((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
8119 : : #if defined(_DERIVATE)
8120 : 0 : FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
8121 : 0 : FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
8122 : 0 : FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
8123 : 0 : FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
8124 : : #endif
8125 : 0 : FCdw_ditf=(FCdw_daick*FCdaick_ditf);
8126 : : #if defined(_DERIVATE)
8127 : 0 : FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
8128 : 0 : FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
8129 : 0 : FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
8130 : 0 : FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
8131 : : #endif
8132 : 0 : FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
8133 : : #ifdef _DYNAMIC
8134 [ # # ][ # # ]: 0 : if
8135 : : ((flcomp==0.0)||(flcomp==2.1))
8136 : : {
8137 : : #ifdef _DYNAMIC
8138 [ # # ]: 0 : if
8139 : : (FCz>0.001)
8140 : : {
8141 : : #if defined(_DYNAMIC)
8142 : : {
8143 : 0 : double m00_logE(d00_logE0,FCz_1)
8144 : : #if defined(_DERIVATE)
8145 : 0 : double m10_logE(d10_logE0,d00_logE0,FCz_1)
8146 : : #endif
8147 : : #if defined(_DERIVATE)
8148 : 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));
8149 : 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));
8150 : 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));
8151 : 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));
8152 : : #endif
8153 : 0 : FCf_CT=((2.0*((FCz_1*d00_logE0)-FCz))/((latb*latb)*FCz_1));
8154 : : }
8155 : : #endif
8156 : : #if defined(_DYNAMIC)
8157 : : #if defined(_DERIVATE)
8158 : 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));
8159 : 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));
8160 : 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));
8161 : 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));
8162 : : #endif
8163 : 0 : FCdfCT_dw=(((2.0*FCw)*FCd_f)*FCd_f);
8164 : : #endif
8165 : : }
8166 : : else
8167 : : {
8168 : : #if defined(_DYNAMIC)
8169 : : #if defined(_DERIVATE)
8170 : 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));
8171 : 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));
8172 : 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));
8173 : 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));
8174 : : #endif
8175 : 0 : FCf_CT=((FCw2*(1.0-(FCz/3.0)))*FCd_f);
8176 : : #endif
8177 : : #if defined(_DYNAMIC)
8178 : : #if defined(_DERIVATE)
8179 : 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));
8180 : 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));
8181 : 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));
8182 : 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));
8183 : : #endif
8184 : 0 : FCdfCT_dw=((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
8185 : : #endif
8186 : : }
8187 : : #endif /* if (...) */
8188 : : #if defined(_DYNAMIC)
8189 : : #if defined(_DERIVATE)
8190 : 0 : FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
8191 : 0 : FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
8192 : 0 : FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
8193 : 0 : FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
8194 : : #endif
8195 : 0 : FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
8196 : : #endif
8197 : : }
8198 : : else
8199 : : {
8200 : : #if defined(_DYNAMIC)
8201 : : #if defined(_DERIVATE)
8202 : 0 : FCf_CT_Vbi_ei=FCf_ci_Vbi_ei;
8203 : 0 : FCf_CT_Vbi_ci=FCf_ci_Vbi_ci;
8204 : 0 : FCf_CT_Vci_ei=FCf_ci_Vci_ei;
8205 : 0 : FCf_CT_Vtnode_GND=FCf_ci_Vtnode_GND;
8206 : : #endif
8207 : 0 : FCf_CT=FCf_ci;
8208 : : #endif
8209 : : #if defined(_DYNAMIC)
8210 : : #if defined(_DERIVATE)
8211 : 0 : FCdfCT_ditf_Vbi_ei=FCdfc_ditf_Vbi_ei;
8212 : 0 : FCdfCT_ditf_Vbi_ci=FCdfc_ditf_Vbi_ci;
8213 : 0 : FCdfCT_ditf_Vci_ei=FCdfc_ditf_Vci_ei;
8214 : 0 : FCdfCT_ditf_Vtnode_GND=FCdfc_ditf_Vtnode_GND;
8215 : : #endif
8216 : 0 : FCdfCT_ditf=FCdfc_ditf;
8217 : : #endif
8218 : : }
8219 : : #endif /* if (...) */
8220 : : }
8221 : : #if defined(_DYNAMIC)
8222 : : #if defined(_DERIVATE)
8223 : 0 : FFQ_cT_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_CT)+(FFQ_fC*FCf_CT_Vtnode_GND));
8224 : 0 : FFQ_cT_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ei));
8225 : 0 : FFQ_cT_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ci));
8226 : 0 : FFQ_cT_Vci_ei=((FFQ_fC_Vci_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vci_ei));
8227 : : #endif
8228 : 0 : FFQ_cT=(FFQ_fC*FCf_CT);
8229 : : #endif
8230 : : #if defined(_DERIVATE)
8231 : 0 : FFQ_fC_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_ci)+(FFQ_fC*FCf_ci_Vtnode_GND));
8232 : 0 : FFQ_fC_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ei));
8233 : 0 : FFQ_fC_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ci));
8234 : 0 : FFQ_fC_Vci_ei=((FFQ_fC_Vci_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vci_ei));
8235 : : #endif
8236 : 0 : FFQ_fC=(FFQ_fC*FCf_ci);
8237 : : #if defined(_DERIVATE)
8238 : 0 : 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)))));
8239 : 0 : FFT_fC_Vci_ei=(FFT_pcS*(FCf_ci_Vci_ei+((itf_Vci_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vci_ei))));
8240 : 0 : FFT_fC_Vbi_ei=(FFT_pcS*(FCf_ci_Vbi_ei+((itf_Vbi_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ei))));
8241 : 0 : FFT_fC_Vbi_ci=(FFT_pcS*(FCf_ci_Vbi_ci+((itf_Vbi_ci*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ci))));
8242 : : #endif
8243 : 0 : FFT_fC=(FFT_pcS*(FCf_ci+(itf*FCdfc_ditf)));
8244 : : #if defined(_DYNAMIC)
8245 : : #if defined(_DERIVATE)
8246 : 0 : 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)))));
8247 : 0 : FFT_cT_Vci_ei=(FFT_pcS*(FCf_CT_Vci_ei+((itf_Vci_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vci_ei))));
8248 : 0 : FFT_cT_Vbi_ei=(FFT_pcS*(FCf_CT_Vbi_ei+((itf_Vbi_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ei))));
8249 : 0 : FFT_cT_Vbi_ci=(FFT_pcS*(FCf_CT_Vbi_ci+((itf_Vbi_ci*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ci))));
8250 : : #endif
8251 : 0 : FFT_cT=(FFT_pcS*(FCf_CT+(itf*FCdfCT_ditf)));
8252 : : #endif
8253 : : }
8254 : : #if defined(_DERIVATE)
8255 : 0 : Qf_Vci_ei=(Qf_Vci_ei+FFd_QfB_Vci_ei);
8256 : 0 : Qf_Vtnode_GND=(Qf_Vtnode_GND+FFd_QfB_Vtnode_GND);
8257 : 0 : Qf_Vbi_ci=(Qf_Vbi_ci+FFd_QfB_Vbi_ci);
8258 : 0 : Qf_Vbi_ei=(Qf_Vbi_ei+FFd_QfB_Vbi_ei);
8259 : : #endif
8260 : 0 : Qf=(Qf+FFd_QfB);
8261 : : #if defined(_DERIVATE)
8262 : 0 : Tf_Vci_ei=(Tf_Vci_ei+FFd_TfB_Vci_ei);
8263 : 0 : Tf_Vbi_ei=(Tf_Vbi_ei+FFd_TfB_Vbi_ei);
8264 : 0 : Tf_Vtnode_GND=(Tf_Vtnode_GND+FFd_TfB_Vtnode_GND);
8265 : 0 : Tf_Vbi_ci=(Tf_Vbi_ci+FFd_TfB_Vbi_ci);
8266 : : #endif
8267 : 0 : Tf=(Tf+FFd_TfB);
8268 : : #if defined(_DYNAMIC)
8269 : : #if defined(_DERIVATE)
8270 : 0 : Q_fT_Vci_ei=((Qf_Vci_ei+(hfe*FFd_QfE_Vci_ei))+(hfc*FFQ_cT_Vci_ei));
8271 : 0 : Q_fT_Vtnode_GND=((Qf_Vtnode_GND+(hfe*FFd_QfE_Vtnode_GND))+(hfc*FFQ_cT_Vtnode_GND));
8272 : 0 : Q_fT_Vbi_ci=((Qf_Vbi_ci+(hfe*FFd_QfE_Vbi_ci))+(hfc*FFQ_cT_Vbi_ci));
8273 : 0 : Q_fT_Vbi_ei=((Qf_Vbi_ei+(hfe*FFd_QfE_Vbi_ei))+(hfc*FFQ_cT_Vbi_ei));
8274 : : #endif
8275 : 0 : Q_fT=((Qf+(hfe*FFd_QfE))+(hfc*FFQ_cT));
8276 : : #endif
8277 : : #if defined(_DYNAMIC)
8278 : : #if defined(_DERIVATE)
8279 : 0 : T_fT_Vci_ei=((Tf_Vci_ei+(hfe*FFd_TfE_Vci_ei))+(hfc*FFT_cT_Vci_ei));
8280 : 0 : T_fT_Vbi_ei=((Tf_Vbi_ei+(hfe*FFd_TfE_Vbi_ei))+(hfc*FFT_cT_Vbi_ei));
8281 : 0 : T_fT_Vtnode_GND=((Tf_Vtnode_GND+(hfe*FFd_TfE_Vtnode_GND))+(hfc*FFT_cT_Vtnode_GND));
8282 : 0 : T_fT_Vbi_ci=((Tf_Vbi_ci+(hfe*FFd_TfE_Vbi_ci))+(hfc*FFT_cT_Vbi_ci));
8283 : : #endif
8284 : 0 : T_fT=((Tf+(hfe*FFd_TfE))+(hfc*FFT_cT));
8285 : : #endif
8286 : : #if defined(_DERIVATE)
8287 : 0 : Qf_Vci_ei=((Qf_Vci_ei+FFd_QfE_Vci_ei)+FFQ_fC_Vci_ei);
8288 : 0 : Qf_Vtnode_GND=((Qf_Vtnode_GND+FFd_QfE_Vtnode_GND)+FFQ_fC_Vtnode_GND);
8289 : 0 : Qf_Vbi_ci=((Qf_Vbi_ci+FFd_QfE_Vbi_ci)+FFQ_fC_Vbi_ci);
8290 : 0 : Qf_Vbi_ei=((Qf_Vbi_ei+FFd_QfE_Vbi_ei)+FFQ_fC_Vbi_ei);
8291 : : #endif
8292 : 0 : Qf=((Qf+FFd_QfE)+FFQ_fC);
8293 : : #if defined(_DERIVATE)
8294 : 0 : Tf_Vci_ei=((Tf_Vci_ei+FFd_TfE_Vci_ei)+FFT_fC_Vci_ei);
8295 : 0 : Tf_Vbi_ei=((Tf_Vbi_ei+FFd_TfE_Vbi_ei)+FFT_fC_Vbi_ei);
8296 : 0 : Tf_Vtnode_GND=((Tf_Vtnode_GND+FFd_TfE_Vtnode_GND)+FFT_fC_Vtnode_GND);
8297 : 0 : Tf_Vbi_ci=((Tf_Vbi_ci+FFd_TfE_Vbi_ci)+FFT_fC_Vbi_ci);
8298 : : #endif
8299 : 0 : Tf=((Tf+FFd_TfE)+FFT_fC);
8300 : : }
8301 : : #if defined(_DYNAMIC)
8302 : : #if defined(_DERIVATE)
8303 : 0 : Qr_Vci_ei=(Tr*itr_Vci_ei);
8304 : 0 : Qr_Vtnode_GND=(Tr*itr_Vtnode_GND);
8305 : 0 : Qr_Vbi_ci=(Tr*itr_Vbi_ci);
8306 : 0 : Qr_Vbi_ei=(Tr*itr_Vbi_ei);
8307 : : #endif
8308 : 0 : Qr=(Tr*itr);
8309 : : #endif
8310 : : }
8311 : : #if defined(_DERIVATE)
8312 : 0 : it_Vci_ei=(itf_Vci_ei-itr_Vci_ei);
8313 : 0 : it_Vtnode_GND=(itf_Vtnode_GND-itr_Vtnode_GND);
8314 : 0 : it_Vbi_ei=(itf_Vbi_ei-itr_Vbi_ei);
8315 : 0 : it_Vbi_ci=(itf_Vbi_ci-itr_Vbi_ci);
8316 : : #endif
8317 : 0 : it=(itf-itr);
8318 : : #if defined(_DERIVATE)
8319 : 0 : Qdei_Vci_ei=Qf_Vci_ei;
8320 : 0 : Qdei_Vtnode_GND=Qf_Vtnode_GND;
8321 : 0 : Qdei_Vbi_ci=Qf_Vbi_ci;
8322 : 0 : Qdei_Vbi_ei=Qf_Vbi_ei;
8323 : : #endif
8324 : 0 : Qdei=Qf;
8325 : : #if defined(_DYNAMIC)
8326 : : #if defined(_DERIVATE)
8327 : 0 : Qdci_Vci_ei=Qr_Vci_ei;
8328 : 0 : Qdci_Vtnode_GND=Qr_Vtnode_GND;
8329 : 0 : Qdci_Vbi_ci=Qr_Vbi_ci;
8330 : 0 : Qdci_Vbi_ei=Qr_Vbi_ei;
8331 : : #endif
8332 : 0 : Qdci=Qr;
8333 : : #endif
8334 : : #if defined(_DYNAMIC)
8335 : : #if defined(_DERIVATE)
8336 : 0 : qrbi_Vtnode_GND=(fcrbi*(((Qjei_Vtnode_GND+Qjci_Vtnode_GND)+Qdei_Vtnode_GND)+Qdci_Vtnode_GND));
8337 : 0 : qrbi_Vbi_ei=(fcrbi*(((Qjei_Vbi_ei+Qjci_Vbi_ei)+Qdei_Vbi_ei)+Qdci_Vbi_ei));
8338 : 0 : qrbi_Vbi_ci=(fcrbi*((Qjci_Vbi_ci+Qdei_Vbi_ci)+Qdci_Vbi_ci));
8339 : 0 : qrbi_Vci_ei=(fcrbi*(Qdei_Vci_ei+Qdci_Vci_ei));
8340 : : #endif
8341 : 0 : qrbi=(fcrbi*(((Qjei+Qjci)+Qdei)+Qdci));
8342 : : #endif
8343 : : #if defined(_DERIVATE)
8344 : 0 : DIOY_Vsi_ci=0.0;
8345 : 0 : DIOY_Vbp_ci=0.0;
8346 : 0 : DIOY_Vbp_ei=0.0;
8347 : 0 : DIOY_Vbi_ci=(1/(mbci*VT));
8348 : 0 : DIOY_Vbi_ei=0.0;
8349 [ # # ]: 0 : DIOY_Vtnode_GND=(-BP(bi,ci)*(mbci*VT_Vtnode_GND)/(mbci*VT)/(mbci*VT));
8350 : : #endif
8351 [ # # ]: 0 : DIOY=(BP(bi,ci)/(mbci*VT));
8352 [ # # ]: 0 : if
8353 : : (ibcis>0.0)
8354 : : {
8355 [ # # ]: 0 : if
8356 : : (DIOY>80.0)
8357 : : {
8358 : : #if defined(_DERIVATE)
8359 : 0 : le_Vsi_ci=0.0;
8360 : 0 : le_Vbp_ci=0.0;
8361 : 0 : le_Vbp_ei=0.0;
8362 : 0 : le_Vbi_ci=DIOY_Vbi_ci;
8363 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
8364 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
8365 : : #endif
8366 : 0 : le=(1+(DIOY-80.0));
8367 : : #if defined(_DERIVATE)
8368 : 0 : DIOY_Vsi_ci=0.0;
8369 : 0 : DIOY_Vbp_ci=0.0;
8370 : 0 : DIOY_Vbp_ei=0.0;
8371 : 0 : DIOY_Vbi_ci=0.0;
8372 : 0 : DIOY_Vbi_ei=0.0;
8373 : 0 : DIOY_Vtnode_GND=0.0;
8374 : : #endif
8375 : 0 : DIOY=80.0;
8376 : : }
8377 : : else
8378 : : {
8379 : : #if defined(_DERIVATE)
8380 : 0 : le_Vsi_ci=0.0;
8381 : 0 : le_Vbp_ci=0.0;
8382 : 0 : le_Vbp_ei=0.0;
8383 : 0 : le_Vbi_ci=0.0;
8384 : 0 : le_Vbi_ei=0.0;
8385 : 0 : le_Vtnode_GND=0.0;
8386 : : #endif
8387 : 0 : le=1;
8388 : : }
8389 : : {
8390 [ # # ]: 0 : double m00_limexp(d00_limexp0,DIOY)
8391 : : #if defined(_DERIVATE)
8392 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
8393 : : #endif
8394 : : #if defined(_DERIVATE)
8395 : 0 : le_Vsi_ci=0.0;
8396 : 0 : le_Vbp_ci=0.0;
8397 : 0 : le_Vbp_ei=0.0;
8398 : 0 : le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
8399 : 0 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
8400 : 0 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
8401 : : #endif
8402 : 0 : le=(le*d00_limexp0);
8403 : : }
8404 : : #if defined(_DERIVATE)
8405 : 0 : ibci_Vtnode_GND=((ibcis_t_Vtnode_GND*(le-1.0))+(ibcis_t*le_Vtnode_GND));
8406 : 0 : ibci_Vbi_ci=(ibcis_t*le_Vbi_ci);
8407 : 0 : ibci_Vbi_ei=(ibcis_t*le_Vbi_ei);
8408 : : #endif
8409 : 0 : ibci=(ibcis_t*(le-1.0));
8410 [ # # ]: 0 : if
8411 : : (DIOY<=(-14.0))
8412 : : {
8413 : : #if defined(_DERIVATE)
8414 : 0 : ibci_Vtnode_GND=(-ibcis_t_Vtnode_GND);
8415 : 0 : ibci_Vbi_ci=0.0;
8416 : 0 : ibci_Vbi_ei=0.0;
8417 : : #endif
8418 : 0 : ibci=(-ibcis_t);
8419 : : }
8420 : : }
8421 : : else
8422 : : {
8423 : : #if defined(_DERIVATE)
8424 : 0 : ibci_Vtnode_GND=0.0;
8425 : 0 : ibci_Vbi_ci=0.0;
8426 : 0 : ibci_Vbi_ei=0.0;
8427 : : #endif
8428 : 0 : ibci=0.0;
8429 : : }
8430 [ # # ][ # # ]: 0 : if
[ # # ][ # # ]
8431 [ # # ][ # # ]: 0 : (((BP(bi,ci)<0.0)&&(favl_t>0.0))&&(cjci0_t>0.0))
[ # # ][ # # ]
[ # # # # ]
8432 : : {
8433 : : double v_bord;
8434 : : double v_q;
8435 : : double U0;
8436 : : double av;
8437 : : double avl;
8438 : : double S_avl;
8439 : : #if defined(_DERIVATE)
8440 : : double v_bord_Vtnode_GND;
8441 : : #endif
8442 : : #if defined(_DERIVATE)
8443 : : double v_bord_Vbi_ci;
8444 : : #endif
8445 : : #if defined(_DERIVATE)
8446 : : double v_q_Vtnode_GND;
8447 : : #endif
8448 : : #if defined(_DERIVATE)
8449 : : double v_q_Vbi_ei;
8450 : : #endif
8451 : : #if defined(_DERIVATE)
8452 : : double v_q_Vbi_ci;
8453 : : #endif
8454 : : #if defined(_DERIVATE)
8455 : : double U0_Vtnode_GND;
8456 : : #endif
8457 : : #if defined(_DERIVATE)
8458 : : double av_Vtnode_GND;
8459 : : #endif
8460 : : #if defined(_DERIVATE)
8461 : : double av_Vbi_ei;
8462 : : #endif
8463 : : #if defined(_DERIVATE)
8464 : : double av_Vbi_ci;
8465 : : #endif
8466 : : #if defined(_DERIVATE)
8467 : : double avl_Vtnode_GND;
8468 : : #endif
8469 : : #if defined(_DERIVATE)
8470 : : double avl_Vbi_ei;
8471 : : #endif
8472 : : #if defined(_DERIVATE)
8473 : : double avl_Vbi_ci;
8474 : : #endif
8475 : : #if defined(_DERIVATE)
8476 : 0 : v_bord_Vtnode_GND=vdci_t_Vtnode_GND;
8477 : 0 : v_bord_Vbi_ci=(-1.0);
8478 : : #endif
8479 [ # # ]: 0 : v_bord=(vdci_t-BP(bi,ci));
8480 : : #if defined(_DERIVATE)
8481 : 0 : v_q_Vtnode_GND=((qavl_t_Vtnode_GND*Cjci-qavl_t*Cjci_Vtnode_GND)/Cjci/Cjci);
8482 : 0 : v_q_Vbi_ei=(-qavl_t*Cjci_Vbi_ei/Cjci/Cjci);
8483 : 0 : v_q_Vbi_ci=(-qavl_t*Cjci_Vbi_ci/Cjci/Cjci);
8484 : : #endif
8485 : 0 : v_q=(qavl_t/Cjci);
8486 : : #if defined(_DERIVATE)
8487 : 0 : U0_Vtnode_GND=((qavl_t_Vtnode_GND*cjci0_t-qavl_t*cjci0_t_Vtnode_GND)/cjci0_t/cjci0_t);
8488 : : #endif
8489 : 0 : U0=(qavl_t/cjci0_t);
8490 [ # # ]: 0 : if
8491 : : (v_bord>U0)
8492 : : {
8493 : : {
8494 : 0 : double m00_exp(d00_exp0,((-v_q)/U0))
8495 : : #if defined(_DERIVATE)
8496 : : #define d10_exp0 d00_exp0
8497 : : #endif
8498 : : #if defined(_DERIVATE)
8499 : 0 : av_Vtnode_GND=((favl_t_Vtnode_GND*d00_exp0)+(favl_t*(((-v_q_Vtnode_GND)*U0-(-v_q)*U0_Vtnode_GND)/U0/U0)*d10_exp0));
8500 : 0 : av_Vbi_ei=(favl_t*((-v_q_Vbi_ei)/U0)*d10_exp0);
8501 : 0 : av_Vbi_ci=(favl_t*((-v_q_Vbi_ci)/U0)*d10_exp0);
8502 : : #endif
8503 : 0 : av=(favl_t*d00_exp0);
8504 : : }
8505 : : #if defined(_DERIVATE)
8506 : 0 : avl_Vtnode_GND=((av_Vtnode_GND*(U0+((1.0+(v_q/U0))*(v_bord-U0))))+(av*(U0_Vtnode_GND+((((v_q_Vtnode_GND*U0-v_q*U0_Vtnode_GND)/U0/U0)*(v_bord-U0))+((1.0+(v_q/U0))*(v_bord_Vtnode_GND-U0_Vtnode_GND))))));
8507 : 0 : avl_Vbi_ei=((av_Vbi_ei*(U0+((1.0+(v_q/U0))*(v_bord-U0))))+(av*(v_q_Vbi_ei/U0)*(v_bord-U0)));
8508 : 0 : avl_Vbi_ci=((av_Vbi_ci*(U0+((1.0+(v_q/U0))*(v_bord-U0))))+(av*(((v_q_Vbi_ci/U0)*(v_bord-U0))+((1.0+(v_q/U0))*v_bord_Vbi_ci))));
8509 : : #endif
8510 : 0 : avl=(av*(U0+((1.0+(v_q/U0))*(v_bord-U0))));
8511 : : }
8512 : : else
8513 : : {
8514 : : {
8515 : 0 : double m00_exp(d00_exp0,((-v_q)/v_bord))
8516 : : #if defined(_DERIVATE)
8517 : : #define d10_exp0 d00_exp0
8518 : : #endif
8519 : : #if defined(_DERIVATE)
8520 : 0 : avl_Vtnode_GND=((((favl_t_Vtnode_GND*v_bord)+(favl_t*v_bord_Vtnode_GND))*d00_exp0)+((favl_t*v_bord)*(((-v_q_Vtnode_GND)*v_bord-(-v_q)*v_bord_Vtnode_GND)/v_bord/v_bord)*d10_exp0));
8521 : 0 : avl_Vbi_ei=((favl_t*v_bord)*((-v_q_Vbi_ei)/v_bord)*d10_exp0);
8522 : 0 : avl_Vbi_ci=(((favl_t*v_bord_Vbi_ci)*d00_exp0)+((favl_t*v_bord)*(((-v_q_Vbi_ci)*v_bord-(-v_q)*v_bord_Vbi_ci)/v_bord/v_bord)*d10_exp0));
8523 : : #endif
8524 : 0 : avl=((favl_t*v_bord)*d00_exp0);
8525 : : }
8526 : : }
8527 : : #if defined(_DERIVATE)
8528 : 0 : iavl_Vci_ei=itf_Vci_ei*avl;
8529 : 0 : iavl_Vtnode_GND=((itf_Vtnode_GND*avl)+(itf*avl_Vtnode_GND));
8530 : 0 : iavl_Vbi_ei=((itf_Vbi_ei*avl)+(itf*avl_Vbi_ei));
8531 : 0 : iavl_Vbi_ci=((itf_Vbi_ci*avl)+(itf*avl_Vbi_ci));
8532 : : #endif
8533 : 0 : iavl=(itf*avl);
8534 : : }
8535 : : else
8536 : : {
8537 : : #if defined(_DERIVATE)
8538 : 0 : iavl_Vci_ei=0.0;
8539 : 0 : iavl_Vtnode_GND=0.0;
8540 : 0 : iavl_Vbi_ei=0.0;
8541 : 0 : iavl_Vbi_ci=0.0;
8542 : : #endif
8543 : 0 : iavl=0.0;
8544 : : }
8545 : : #if defined(_DERIVATE)
8546 : 0 : ibh_rec_Vtnode_GND=Q_bf_Vtnode_GND*Otbhrec;
8547 : 0 : ibh_rec_Vbi_ei=Q_bf_Vbi_ei*Otbhrec;
8548 : 0 : ibh_rec_Vbi_ci=Q_bf_Vbi_ci*Otbhrec;
8549 : 0 : ibh_rec_Vci_ei=Q_bf_Vci_ei*Otbhrec;
8550 : : #endif
8551 : 0 : ibh_rec=(Q_bf*Otbhrec);
8552 [ # # ]: 0 : if
8553 : : (rbi0_t>0.0)
8554 : : {
8555 : : double Qz_nom;
8556 : : double f_QR;
8557 : : double f_p;
8558 : : double ETA;
8559 : : double Qz0;
8560 : : double fQz;
8561 : : #if defined(_DERIVATE)
8562 : : double Qz_nom_Vtnode_GND;
8563 : : #endif
8564 : : #if defined(_DERIVATE)
8565 : : double Qz_nom_Vbi_ei;
8566 : : #endif
8567 : : #if defined(_DERIVATE)
8568 : : double Qz_nom_Vbi_ci;
8569 : : #endif
8570 : : #if defined(_DERIVATE)
8571 : : double Qz_nom_Vci_ei;
8572 : : #endif
8573 : : #if defined(_DERIVATE)
8574 : : double f_QR_Vtnode_GND;
8575 : : #endif
8576 : : #if defined(_DERIVATE)
8577 : : double ETA_Vtnode_GND;
8578 : : #endif
8579 : : #if defined(_DERIVATE)
8580 : : double ETA_Vbi_ei;
8581 : : #endif
8582 : : #if defined(_DERIVATE)
8583 : : double ETA_Vbi_ci;
8584 : : #endif
8585 : : #if defined(_DERIVATE)
8586 : : double ETA_Vci_ei;
8587 : : #endif
8588 : : #if defined(_DERIVATE)
8589 : : double Qz0_Vtnode_GND;
8590 : : #endif
8591 : : #if defined(_DERIVATE)
8592 : : double Qz0_Vbi_ei;
8593 : : #endif
8594 : : #if defined(_DERIVATE)
8595 : : double Qz0_Vbi_ci;
8596 : : #endif
8597 : : #if defined(_DERIVATE)
8598 : : double Qz0_Vci_ei;
8599 : : #endif
8600 : : #if defined(_DERIVATE)
8601 : : double fQz_Vtnode_GND;
8602 : : #endif
8603 : : #if defined(_DERIVATE)
8604 : : double fQz_Vbi_ei;
8605 : : #endif
8606 : : #if defined(_DERIVATE)
8607 : : double fQz_Vbi_ci;
8608 : : #endif
8609 : : #if defined(_DERIVATE)
8610 : : double fQz_Vci_ei;
8611 : : #endif
8612 : : #if defined(_DERIVATE)
8613 : 0 : f_QR_Vtnode_GND=((1+fdqr0)*qp0_t_Vtnode_GND);
8614 : : #endif
8615 : 0 : f_QR=((1+fdqr0)*qp0_t);
8616 : : #if defined(_DERIVATE)
8617 : 0 : Qz0_Vtnode_GND=((Qjei_Vtnode_GND+Qjci_Vtnode_GND)+Qf_Vtnode_GND);
8618 : 0 : Qz0_Vbi_ei=((Qjei_Vbi_ei+Qjci_Vbi_ei)+Qf_Vbi_ei);
8619 : 0 : Qz0_Vbi_ci=(Qjci_Vbi_ci+Qf_Vbi_ci);
8620 : 0 : Qz0_Vci_ei=Qf_Vci_ei;
8621 : : #endif
8622 : 0 : Qz0=((Qjei+Qjci)+Qf);
8623 : : #if defined(_DERIVATE)
8624 : 0 : Qz_nom_Vtnode_GND=((Qz0_Vtnode_GND*f_QR-Qz0*f_QR_Vtnode_GND)/f_QR/f_QR);
8625 : 0 : Qz_nom_Vbi_ei=(Qz0_Vbi_ei/f_QR);
8626 : 0 : Qz_nom_Vbi_ci=(Qz0_Vbi_ci/f_QR);
8627 : 0 : Qz_nom_Vci_ei=(Qz0_Vci_ei/f_QR);
8628 : : #endif
8629 : 0 : Qz_nom=(1+(Qz0/f_QR));
8630 : : {
8631 : 0 : double m00_sqrt(d00_sqrt0,((Qz_nom*Qz_nom)+0.01))
8632 : : #if defined(_DERIVATE)
8633 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((Qz_nom*Qz_nom)+0.01))
8634 : : #endif
8635 : : #if defined(_DERIVATE)
8636 : 0 : fQz_Vtnode_GND=(0.5*(Qz_nom_Vtnode_GND+((Qz_nom_Vtnode_GND*Qz_nom)+(Qz_nom*Qz_nom_Vtnode_GND))*d10_sqrt0));
8637 : 0 : fQz_Vbi_ei=(0.5*(Qz_nom_Vbi_ei+((Qz_nom_Vbi_ei*Qz_nom)+(Qz_nom*Qz_nom_Vbi_ei))*d10_sqrt0));
8638 : 0 : fQz_Vbi_ci=(0.5*(Qz_nom_Vbi_ci+((Qz_nom_Vbi_ci*Qz_nom)+(Qz_nom*Qz_nom_Vbi_ci))*d10_sqrt0));
8639 : 0 : fQz_Vci_ei=(0.5*(Qz_nom_Vci_ei+((Qz_nom_Vci_ei*Qz_nom)+(Qz_nom*Qz_nom_Vci_ei))*d10_sqrt0));
8640 : : #endif
8641 : 0 : fQz=(0.5*(Qz_nom+d00_sqrt0));
8642 : : }
8643 : : #if defined(_DERIVATE)
8644 : 0 : rbi_Vtnode_GND=((rbi0_t_Vtnode_GND*fQz-rbi0_t*fQz_Vtnode_GND)/fQz/fQz);
8645 : 0 : rbi_Vbi_ei=(-rbi0_t*fQz_Vbi_ei/fQz/fQz);
8646 : 0 : rbi_Vbi_ci=(-rbi0_t*fQz_Vbi_ci/fQz/fQz);
8647 : 0 : rbi_Vci_ei=(-rbi0_t*fQz_Vci_ei/fQz/fQz);
8648 : : #endif
8649 : 0 : rbi=(rbi0_t/fQz);
8650 [ # # ]: 0 : if
8651 : : (ibei>0.0)
8652 : : {
8653 : : #if defined(_DERIVATE)
8654 : 0 : ETA_Vtnode_GND=((((rbi_Vtnode_GND*ibei)+(rbi*ibei_Vtnode_GND))*fgeo*VT-((rbi*ibei)*fgeo)*VT_Vtnode_GND)/VT/VT);
8655 : 0 : ETA_Vbi_ei=(((rbi_Vbi_ei*ibei)+(rbi*ibei_Vbi_ei))*fgeo/VT);
8656 : 0 : ETA_Vbi_ci=(rbi_Vbi_ci*ibei*fgeo/VT);
8657 : 0 : ETA_Vci_ei=(rbi_Vci_ei*ibei*fgeo/VT);
8658 : : #endif
8659 : 0 : ETA=(((rbi*ibei)*fgeo)/VT);
8660 [ # # ]: 0 : if
8661 : : (ETA<1.0e-6)
8662 : : {
8663 : : #if defined(_DERIVATE)
8664 : 0 : rbi_Vtnode_GND=((rbi_Vtnode_GND*(1.0-(0.5*ETA)))+(rbi*(-(0.5*ETA_Vtnode_GND))));
8665 : 0 : rbi_Vbi_ei=((rbi_Vbi_ei*(1.0-(0.5*ETA)))+(rbi*(-(0.5*ETA_Vbi_ei))));
8666 : 0 : rbi_Vbi_ci=((rbi_Vbi_ci*(1.0-(0.5*ETA)))+(rbi*(-(0.5*ETA_Vbi_ci))));
8667 : 0 : rbi_Vci_ei=((rbi_Vci_ei*(1.0-(0.5*ETA)))+(rbi*(-(0.5*ETA_Vci_ei))));
8668 : : #endif
8669 : 0 : rbi=(rbi*(1.0-(0.5*ETA)));
8670 : : }
8671 : : else
8672 : : {
8673 : : {
8674 : 0 : double m00_logE(d00_logE0,(1.0+ETA))
8675 : : #if defined(_DERIVATE)
8676 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+ETA))
8677 : : #endif
8678 : : #if defined(_DERIVATE)
8679 : 0 : rbi_Vtnode_GND=((((rbi_Vtnode_GND*d00_logE0)+(rbi*ETA_Vtnode_GND*d10_logE0))*ETA-(rbi*d00_logE0)*ETA_Vtnode_GND)/ETA/ETA);
8680 : 0 : rbi_Vbi_ei=((((rbi_Vbi_ei*d00_logE0)+(rbi*ETA_Vbi_ei*d10_logE0))*ETA-(rbi*d00_logE0)*ETA_Vbi_ei)/ETA/ETA);
8681 : 0 : rbi_Vbi_ci=((((rbi_Vbi_ci*d00_logE0)+(rbi*ETA_Vbi_ci*d10_logE0))*ETA-(rbi*d00_logE0)*ETA_Vbi_ci)/ETA/ETA);
8682 : 0 : rbi_Vci_ei=((((rbi_Vci_ei*d00_logE0)+(rbi*ETA_Vci_ei*d10_logE0))*ETA-(rbi*d00_logE0)*ETA_Vci_ei)/ETA/ETA);
8683 : : #endif
8684 : 0 : rbi=((rbi*d00_logE0)/ETA);
8685 : : }
8686 : : }
8687 : : }
8688 [ # # ]: 0 : if
8689 : : (Qf>0.0)
8690 : : {
8691 : : #if defined(_DERIVATE)
8692 : 0 : rbi_Vtnode_GND=((((rbi_Vtnode_GND*(Qjei+(Qf*fqi)))+(rbi*(Qjei_Vtnode_GND+Qf_Vtnode_GND*fqi)))*(Qjei+Qf)-(rbi*(Qjei+(Qf*fqi)))*(Qjei_Vtnode_GND+Qf_Vtnode_GND))/(Qjei+Qf)/(Qjei+Qf));
8693 : 0 : rbi_Vbi_ei=((((rbi_Vbi_ei*(Qjei+(Qf*fqi)))+(rbi*(Qjei_Vbi_ei+Qf_Vbi_ei*fqi)))*(Qjei+Qf)-(rbi*(Qjei+(Qf*fqi)))*(Qjei_Vbi_ei+Qf_Vbi_ei))/(Qjei+Qf)/(Qjei+Qf));
8694 : 0 : rbi_Vbi_ci=((((rbi_Vbi_ci*(Qjei+(Qf*fqi)))+(rbi*Qf_Vbi_ci*fqi))*(Qjei+Qf)-(rbi*(Qjei+(Qf*fqi)))*Qf_Vbi_ci)/(Qjei+Qf)/(Qjei+Qf));
8695 : 0 : rbi_Vci_ei=((((rbi_Vci_ei*(Qjei+(Qf*fqi)))+(rbi*Qf_Vci_ei*fqi))*(Qjei+Qf)-(rbi*(Qjei+(Qf*fqi)))*Qf_Vci_ei)/(Qjei+Qf)/(Qjei+Qf));
8696 : : #endif
8697 : 0 : rbi=((rbi*(Qjei+(Qf*fqi)))/(Qjei+Qf));
8698 : : }
8699 : : }
8700 : : else
8701 : : {
8702 : : #if defined(_DERIVATE)
8703 : 0 : rbi_Vtnode_GND=0.0;
8704 : 0 : rbi_Vbi_ei=0.0;
8705 : 0 : rbi_Vbi_ci=0.0;
8706 : 0 : rbi_Vci_ei=0.0;
8707 : : #endif
8708 : 0 : rbi=0.0;
8709 : : }
8710 : : #if defined(_DERIVATE)
8711 : 0 : DIOY_Vsi_ci=0.0;
8712 : 0 : DIOY_Vbp_ci=0.0;
8713 : 0 : DIOY_Vbp_ei=(1/(mbep*VT));
8714 : 0 : DIOY_Vbi_ci=0.0;
8715 : 0 : DIOY_Vbi_ei=0.0;
8716 [ # # ]: 0 : DIOY_Vtnode_GND=(-BP(bp,ei)*(mbep*VT_Vtnode_GND)/(mbep*VT)/(mbep*VT));
8717 : : #endif
8718 [ # # ]: 0 : DIOY=(BP(bp,ei)/(mbep*VT));
8719 [ # # ]: 0 : if
8720 : : (ibeps>0.0)
8721 : : {
8722 [ # # ]: 0 : if
8723 : : (DIOY>80.0)
8724 : : {
8725 : : #if defined(_DERIVATE)
8726 : 0 : le_Vsi_ci=0.0;
8727 : 0 : le_Vbp_ci=0.0;
8728 : 0 : le_Vbp_ei=DIOY_Vbp_ei;
8729 : 0 : le_Vbi_ci=DIOY_Vbi_ci;
8730 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
8731 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
8732 : : #endif
8733 : 0 : le=(1+(DIOY-80.0));
8734 : : #if defined(_DERIVATE)
8735 : 0 : DIOY_Vsi_ci=0.0;
8736 : 0 : DIOY_Vbp_ci=0.0;
8737 : 0 : DIOY_Vbp_ei=0.0;
8738 : 0 : DIOY_Vbi_ci=0.0;
8739 : 0 : DIOY_Vbi_ei=0.0;
8740 : 0 : DIOY_Vtnode_GND=0.0;
8741 : : #endif
8742 : 0 : DIOY=80.0;
8743 : : }
8744 : : else
8745 : : {
8746 : : #if defined(_DERIVATE)
8747 : 0 : le_Vsi_ci=0.0;
8748 : 0 : le_Vbp_ci=0.0;
8749 : 0 : le_Vbp_ei=0.0;
8750 : 0 : le_Vbi_ci=0.0;
8751 : 0 : le_Vbi_ei=0.0;
8752 : 0 : le_Vtnode_GND=0.0;
8753 : : #endif
8754 : 0 : le=1;
8755 : : }
8756 : : {
8757 [ # # ]: 0 : double m00_limexp(d00_limexp0,DIOY)
8758 : : #if defined(_DERIVATE)
8759 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
8760 : : #endif
8761 : : #if defined(_DERIVATE)
8762 : 0 : le_Vsi_ci=0.0;
8763 : 0 : le_Vbp_ci=0.0;
8764 : 0 : le_Vbp_ei=((le_Vbp_ei*d00_limexp0)+(le*DIOY_Vbp_ei*d10_limexp0));
8765 : 0 : le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
8766 : 0 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
8767 : 0 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
8768 : : #endif
8769 : 0 : le=(le*d00_limexp0);
8770 : : }
8771 : : #if defined(_DERIVATE)
8772 : 0 : ibep_Vtnode_GND=((ibeps_t_Vtnode_GND*(le-1.0))+(ibeps_t*le_Vtnode_GND));
8773 : 0 : ibep_Vbp_ei=(ibeps_t*le_Vbp_ei);
8774 : 0 : ibep_Vbi_ci=(ibeps_t*le_Vbi_ci);
8775 : 0 : ibep_Vbi_ei=(ibeps_t*le_Vbi_ei);
8776 : : #endif
8777 : 0 : ibep=(ibeps_t*(le-1.0));
8778 [ # # ]: 0 : if
8779 : : (DIOY<=(-14.0))
8780 : : {
8781 : : #if defined(_DERIVATE)
8782 : 0 : ibep_Vtnode_GND=(-ibeps_t_Vtnode_GND);
8783 : 0 : ibep_Vbp_ei=0.0;
8784 : 0 : ibep_Vbi_ci=0.0;
8785 : 0 : ibep_Vbi_ei=0.0;
8786 : : #endif
8787 : 0 : ibep=(-ibeps_t);
8788 : : }
8789 : : }
8790 : : else
8791 : : {
8792 : : #if defined(_DERIVATE)
8793 : 0 : ibep_Vtnode_GND=0.0;
8794 : 0 : ibep_Vbp_ei=0.0;
8795 : 0 : ibep_Vbi_ci=0.0;
8796 : 0 : ibep_Vbi_ei=0.0;
8797 : : #endif
8798 : 0 : ibep=0.0;
8799 : : }
8800 : : #if defined(_DERIVATE)
8801 : 0 : DIOY_Vsi_ci=0.0;
8802 : 0 : DIOY_Vbp_ci=0.0;
8803 : 0 : DIOY_Vbp_ei=(1/(mrep*VT));
8804 : 0 : DIOY_Vbi_ci=0.0;
8805 : 0 : DIOY_Vbi_ei=0.0;
8806 [ # # ]: 0 : DIOY_Vtnode_GND=(-BP(bp,ei)*(mrep*VT_Vtnode_GND)/(mrep*VT)/(mrep*VT));
8807 : : #endif
8808 [ # # ]: 0 : DIOY=(BP(bp,ei)/(mrep*VT));
8809 [ # # ]: 0 : if
8810 : : (ireps>0.0)
8811 : : {
8812 [ # # ]: 0 : if
8813 : : (DIOY>80.0)
8814 : : {
8815 : : #if defined(_DERIVATE)
8816 : 0 : le_Vsi_ci=0.0;
8817 : 0 : le_Vbp_ci=0.0;
8818 : 0 : le_Vbp_ei=DIOY_Vbp_ei;
8819 : 0 : le_Vbi_ci=DIOY_Vbi_ci;
8820 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
8821 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
8822 : : #endif
8823 : 0 : le=(1+(DIOY-80.0));
8824 : : #if defined(_DERIVATE)
8825 : 0 : DIOY_Vsi_ci=0.0;
8826 : 0 : DIOY_Vbp_ci=0.0;
8827 : 0 : DIOY_Vbp_ei=0.0;
8828 : 0 : DIOY_Vbi_ci=0.0;
8829 : 0 : DIOY_Vbi_ei=0.0;
8830 : 0 : DIOY_Vtnode_GND=0.0;
8831 : : #endif
8832 : 0 : DIOY=80.0;
8833 : : }
8834 : : else
8835 : : {
8836 : : #if defined(_DERIVATE)
8837 : 0 : le_Vsi_ci=0.0;
8838 : 0 : le_Vbp_ci=0.0;
8839 : 0 : le_Vbp_ei=0.0;
8840 : 0 : le_Vbi_ci=0.0;
8841 : 0 : le_Vbi_ei=0.0;
8842 : 0 : le_Vtnode_GND=0.0;
8843 : : #endif
8844 : 0 : le=1;
8845 : : }
8846 : : {
8847 [ # # ]: 0 : double m00_limexp(d00_limexp0,DIOY)
8848 : : #if defined(_DERIVATE)
8849 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
8850 : : #endif
8851 : : #if defined(_DERIVATE)
8852 : 0 : le_Vsi_ci=0.0;
8853 : 0 : le_Vbp_ci=0.0;
8854 : 0 : le_Vbp_ei=((le_Vbp_ei*d00_limexp0)+(le*DIOY_Vbp_ei*d10_limexp0));
8855 : 0 : le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
8856 : 0 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
8857 : 0 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
8858 : : #endif
8859 : 0 : le=(le*d00_limexp0);
8860 : : }
8861 : : #if defined(_DERIVATE)
8862 : 0 : irep_Vtnode_GND=((ireps_t_Vtnode_GND*(le-1.0))+(ireps_t*le_Vtnode_GND));
8863 : 0 : irep_Vbp_ei=(ireps_t*le_Vbp_ei);
8864 : 0 : irep_Vbi_ci=(ireps_t*le_Vbi_ci);
8865 : 0 : irep_Vbi_ei=(ireps_t*le_Vbi_ei);
8866 : : #endif
8867 : 0 : irep=(ireps_t*(le-1.0));
8868 [ # # ]: 0 : if
8869 : : (DIOY<=(-14.0))
8870 : : {
8871 : : #if defined(_DERIVATE)
8872 : 0 : irep_Vtnode_GND=(-ireps_t_Vtnode_GND);
8873 : 0 : irep_Vbp_ei=0.0;
8874 : 0 : irep_Vbi_ci=0.0;
8875 : 0 : irep_Vbi_ei=0.0;
8876 : : #endif
8877 : 0 : irep=(-ireps_t);
8878 : : }
8879 : : }
8880 : : else
8881 : : {
8882 : : #if defined(_DERIVATE)
8883 : 0 : irep_Vtnode_GND=0.0;
8884 : 0 : irep_Vbp_ei=0.0;
8885 : 0 : irep_Vbi_ci=0.0;
8886 : 0 : irep_Vbi_ei=0.0;
8887 : : #endif
8888 : 0 : irep=0.0;
8889 : : }
8890 [ # # ]: 0 : if
8891 : : (cjep0_t>0.0)
8892 : : {
8893 : : {
8894 : 0 : double m00_logE(d00_logE0,ajep_t)
8895 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zep))
8896 : : #if defined(_DERIVATE)
8897 : 0 : double m10_logE(d10_logE0,d00_logE0,ajep_t)
8898 : : #define d10_exp1 d00_exp1
8899 : : #endif
8900 : : #if defined(_DERIVATE)
8901 : 0 : DFV_f_Vtnode_GND=((vdep_t_Vtnode_GND*(1.0-d00_exp1))+(vdep_t*(-((-ajep_t_Vtnode_GND*d10_logE0)/zep)*d10_exp1)));
8902 : : #endif
8903 : 0 : DFV_f=(vdep_t*(1.0-d00_exp1));
8904 : : }
8905 : : #if defined(_DERIVATE)
8906 : 0 : DFv_e_Vsi_ci=0.0;
8907 : 0 : DFv_e_Vb_ci=0.0;
8908 : 0 : DFv_e_Vbp_ci=0.0;
8909 : 0 : DFv_e_Vbp_ei=((-1.0)/VT);
8910 : 0 : DFv_e_Vbi_ci=0.0;
8911 [ # # ]: 0 : DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(bp,ei))*VT_Vtnode_GND)/VT/VT);
8912 : 0 : DFv_e_Vbi_ei=0.0;
8913 : : #endif
8914 [ # # ]: 0 : DFv_e=((DFV_f-BP(bp,ei))/VT);
8915 : : {
8916 : 0 : double m00_sqrt(d00_sqrt0,((DFv_e*DFv_e)+1.921812))
8917 : : #if defined(_DERIVATE)
8918 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((DFv_e*DFv_e)+1.921812))
8919 : : #endif
8920 : : #if defined(_DERIVATE)
8921 : 0 : DFs_q_Vsi_ci=0.0;
8922 : 0 : DFs_q_Vb_ci=0.0;
8923 : 0 : DFs_q_Vbp_ci=0.0;
8924 : 0 : DFs_q_Vbp_ei=((DFv_e_Vbp_ei*DFv_e)+(DFv_e*DFv_e_Vbp_ei))*d10_sqrt0;
8925 : 0 : DFs_q_Vbi_ci=((DFv_e_Vbi_ci*DFv_e)+(DFv_e*DFv_e_Vbi_ci))*d10_sqrt0;
8926 : 0 : DFs_q_Vtnode_GND=((DFv_e_Vtnode_GND*DFv_e)+(DFv_e*DFv_e_Vtnode_GND))*d10_sqrt0;
8927 : 0 : DFs_q_Vbi_ei=((DFv_e_Vbi_ei*DFv_e)+(DFv_e*DFv_e_Vbi_ei))*d10_sqrt0;
8928 : : #endif
8929 : 0 : DFs_q=d00_sqrt0;
8930 : : }
8931 : : #if defined(_DERIVATE)
8932 : 0 : DFs_q2_Vsi_ci=0.0;
8933 : 0 : DFs_q2_Vb_ci=0.0;
8934 : 0 : DFs_q2_Vbp_ci=0.0;
8935 : 0 : DFs_q2_Vbp_ei=(DFv_e_Vbp_ei+DFs_q_Vbp_ei)*0.5;
8936 : 0 : DFs_q2_Vbi_ci=(DFv_e_Vbi_ci+DFs_q_Vbi_ci)*0.5;
8937 : 0 : DFs_q2_Vtnode_GND=(DFv_e_Vtnode_GND+DFs_q_Vtnode_GND)*0.5;
8938 : 0 : DFs_q2_Vbi_ei=(DFv_e_Vbi_ei+DFs_q_Vbi_ei)*0.5;
8939 : : #endif
8940 : 0 : DFs_q2=((DFv_e+DFs_q)*0.5);
8941 : : #if defined(_DERIVATE)
8942 : 0 : DFv_j_Vsi_ci=0.0;
8943 : 0 : DFv_j_Vb_ci=0.0;
8944 : 0 : DFv_j_Vbp_ci=0.0;
8945 : 0 : DFv_j_Vbp_ei=(-(VT*DFs_q2_Vbp_ei));
8946 : 0 : DFv_j_Vbi_ci=(-(VT*DFs_q2_Vbi_ci));
8947 : 0 : DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*DFs_q2)+(VT*DFs_q2_Vtnode_GND)));
8948 : 0 : DFv_j_Vbi_ei=(-(VT*DFs_q2_Vbi_ei));
8949 : : #endif
8950 : 0 : DFv_j=(DFV_f-(VT*DFs_q2));
8951 : : #if defined(_DERIVATE)
8952 : 0 : DFdvj_dv_Vsi_ci=0.0;
8953 : 0 : DFdvj_dv_Vb_ci=0.0;
8954 : 0 : DFdvj_dv_Vbp_ci=0.0;
8955 : 0 : DFdvj_dv_Vbp_ei=((DFs_q2_Vbp_ei*DFs_q-DFs_q2*DFs_q_Vbp_ei)/DFs_q/DFs_q);
8956 : 0 : DFdvj_dv_Vbi_ci=((DFs_q2_Vbi_ci*DFs_q-DFs_q2*DFs_q_Vbi_ci)/DFs_q/DFs_q);
8957 : 0 : DFdvj_dv_Vtnode_GND=((DFs_q2_Vtnode_GND*DFs_q-DFs_q2*DFs_q_Vtnode_GND)/DFs_q/DFs_q);
8958 : 0 : DFdvj_dv_Vbi_ei=((DFs_q2_Vbi_ei*DFs_q-DFs_q2*DFs_q_Vbi_ei)/DFs_q/DFs_q);
8959 : : #endif
8960 : 0 : DFdvj_dv=(DFs_q2/DFs_q);
8961 : : {
8962 : 0 : double m00_logE(d00_logE0,(1.0-(DFv_j/vdep_t)))
8963 : : #if defined(_DERIVATE)
8964 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdep_t)))
8965 : : #endif
8966 : : #if defined(_DERIVATE)
8967 : 0 : DFb_Vsi_ci=0.0;
8968 : 0 : DFb_Vb_ci=0.0;
8969 : 0 : DFb_Vbp_ci=0.0;
8970 : 0 : DFb_Vbp_ei=(-(DFv_j_Vbp_ei/vdep_t))*d10_logE0;
8971 : 0 : DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdep_t))*d10_logE0;
8972 : 0 : DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdep_t-DFv_j*vdep_t_Vtnode_GND)/vdep_t/vdep_t))*d10_logE0;
8973 : 0 : DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdep_t))*d10_logE0;
8974 : : #endif
8975 : 0 : DFb=d00_logE0;
8976 : : }
8977 : : {
8978 : 0 : double m00_exp(d00_exp0,((-zep)*DFb))
8979 : : #if defined(_DERIVATE)
8980 : : #define d10_exp0 d00_exp0
8981 : : #endif
8982 : : #if defined(_DERIVATE)
8983 : 0 : DFC_j1_Vsi_ci=0.0;
8984 : 0 : DFC_j1_Vb_ci=0.0;
8985 : 0 : DFC_j1_Vbp_ci=0.0;
8986 : 0 : DFC_j1_Vbp_ei=(((cjep0_t*((-zep)*DFb_Vbp_ei)*d10_exp0)*DFdvj_dv)+((cjep0_t*d00_exp0)*DFdvj_dv_Vbp_ei));
8987 : 0 : DFC_j1_Vbi_ci=(((cjep0_t*((-zep)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjep0_t*d00_exp0)*DFdvj_dv_Vbi_ci));
8988 : 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));
8989 : 0 : DFC_j1_Vbi_ei=(((cjep0_t*((-zep)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjep0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
8990 : : #endif
8991 : 0 : DFC_j1=((cjep0_t*d00_exp0)*DFdvj_dv);
8992 : : }
8993 : : #if defined(_DERIVATE)
8994 : 0 : Cjep_Vbp_ei=(DFC_j1_Vbp_ei+((ajep_t*cjep0_t)*(-DFdvj_dv_Vbp_ei)));
8995 : 0 : Cjep_Vbi_ci=(DFC_j1_Vbi_ci+((ajep_t*cjep0_t)*(-DFdvj_dv_Vbi_ci)));
8996 : 0 : Cjep_Vtnode_GND=(DFC_j1_Vtnode_GND+((((ajep_t_Vtnode_GND*cjep0_t)+(ajep_t*cjep0_t_Vtnode_GND))*(1.0-DFdvj_dv))+((ajep_t*cjep0_t)*(-DFdvj_dv_Vtnode_GND))));
8997 : 0 : Cjep_Vbi_ei=(DFC_j1_Vbi_ei+((ajep_t*cjep0_t)*(-DFdvj_dv_Vbi_ei)));
8998 : : #endif
8999 : 0 : Cjep=(DFC_j1+((ajep_t*cjep0_t)*(1.0-DFdvj_dv)));
9000 : : #if defined(_DYNAMIC)
9001 : : {
9002 : 0 : double m00_exp(d00_exp0,(DFb*(1.0-zep)))
9003 : : #if defined(_DERIVATE)
9004 : : #define d10_exp0 d00_exp0
9005 : : #endif
9006 : : #if defined(_DERIVATE)
9007 : 0 : DFQ_j_Vsi_ci=0.0;
9008 : 0 : DFQ_j_Vb_ci=0.0;
9009 : 0 : DFQ_j_Vbp_ci=0.0;
9010 : 0 : DFQ_j_Vbp_ei=(((cjep0_t*vdep_t)*(-DFb_Vbp_ei*(1.0-zep)*d10_exp0))/(1.0-zep));
9011 : 0 : DFQ_j_Vbi_ci=(((cjep0_t*vdep_t)*(-DFb_Vbi_ci*(1.0-zep)*d10_exp0))/(1.0-zep));
9012 : 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));
9013 : 0 : DFQ_j_Vbi_ei=(((cjep0_t*vdep_t)*(-DFb_Vbi_ei*(1.0-zep)*d10_exp0))/(1.0-zep));
9014 : : #endif
9015 : 0 : DFQ_j=(((cjep0_t*vdep_t)*(1.0-d00_exp0))/(1.0-zep));
9016 : : }
9017 : : #endif
9018 : : #if defined(_DYNAMIC)
9019 : : #if defined(_DERIVATE)
9020 : 0 : Qjep_Vbp_ei=(DFQ_j_Vbp_ei+((ajep_t*cjep0_t)*(1.0-DFv_j_Vbp_ei)));
9021 : 0 : Qjep_Vbi_ci=(DFQ_j_Vbi_ci+((ajep_t*cjep0_t)*(-DFv_j_Vbi_ci)));
9022 [ # # ]: 0 : Qjep_Vtnode_GND=(DFQ_j_Vtnode_GND+((((ajep_t_Vtnode_GND*cjep0_t)+(ajep_t*cjep0_t_Vtnode_GND))*(BP(bp,ei)-DFv_j))+((ajep_t*cjep0_t)*(-DFv_j_Vtnode_GND))));
9023 : 0 : Qjep_Vbi_ei=(DFQ_j_Vbi_ei+((ajep_t*cjep0_t)*(-DFv_j_Vbi_ei)));
9024 : : #endif
9025 [ # # ]: 0 : Qjep=(DFQ_j+((ajep_t*cjep0_t)*(BP(bp,ei)-DFv_j)));
9026 : : #endif
9027 : : }
9028 : : else
9029 : : {
9030 : : #if defined(_DERIVATE)
9031 : 0 : Cjep_Vbp_ei=0.0;
9032 : 0 : Cjep_Vbi_ci=0.0;
9033 : 0 : Cjep_Vtnode_GND=0.0;
9034 : 0 : Cjep_Vbi_ei=0.0;
9035 : : #endif
9036 : 0 : Cjep=0.0;
9037 : : #if defined(_DYNAMIC)
9038 : : #if defined(_DERIVATE)
9039 : 0 : Qjep_Vbp_ei=0.0;
9040 : 0 : Qjep_Vbi_ci=0.0;
9041 : 0 : Qjep_Vtnode_GND=0.0;
9042 : 0 : Qjep_Vbi_ei=0.0;
9043 : : #endif
9044 : 0 : Qjep=0.0;
9045 : : #endif
9046 : : }
9047 [ # # # # ]: 0 : if
[ # # ]
9048 [ # # ][ # # ]: 0 : ((BP(bp,ei)<0.0)||(BP(bi,ei)<0.0))
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # # #
# # # # ]
9049 : : {
9050 : : double pocce;
9051 : : double czz;
9052 : : #if defined(_DERIVATE)
9053 : : double pocce_Vbp_ei;
9054 : : #endif
9055 : : #if defined(_DERIVATE)
9056 : : double pocce_Vbi_ci;
9057 : : #endif
9058 : : #if defined(_DERIVATE)
9059 : : double pocce_Vtnode_GND;
9060 : : #endif
9061 : : #if defined(_DERIVATE)
9062 : : double pocce_Vbi_ei;
9063 : : #endif
9064 : : #if defined(_DERIVATE)
9065 : : double czz_Vbp_ei;
9066 : : #endif
9067 : : #if defined(_DERIVATE)
9068 : : double czz_Vtnode_GND;
9069 : : #endif
9070 : : #if defined(_DERIVATE)
9071 : : double czz_Vbi_ci;
9072 : : #endif
9073 : : #if defined(_DERIVATE)
9074 : : double czz_Vbi_ei;
9075 : : #endif
9076 [ # # ][ # # ]: 0 : if
[ # # ]
9077 : : (((tunode==1)&&(cjep0_t>0.0))&&(vdep_t>0.0))
9078 : : {
9079 : : {
9080 : 0 : double m00_logE(d00_logE0,(Cjep/cjep0_t))
9081 : 0 : double m00_exp(d00_exp1,((1-(1/zep))*d00_logE0))
9082 : : #if defined(_DERIVATE)
9083 : 0 : double m10_logE(d10_logE0,d00_logE0,(Cjep/cjep0_t))
9084 : : #define d10_exp1 d00_exp1
9085 : : #endif
9086 : : #if defined(_DERIVATE)
9087 : 0 : pocce_Vbp_ei=((1-(1/zep))*(Cjep_Vbp_ei/cjep0_t)*d10_logE0)*d10_exp1;
9088 : 0 : pocce_Vbi_ci=((1-(1/zep))*(Cjep_Vbi_ci/cjep0_t)*d10_logE0)*d10_exp1;
9089 : 0 : pocce_Vtnode_GND=((1-(1/zep))*((Cjep_Vtnode_GND*cjep0_t-Cjep*cjep0_t_Vtnode_GND)/cjep0_t/cjep0_t)*d10_logE0)*d10_exp1;
9090 : 0 : pocce_Vbi_ei=((1-(1/zep))*(Cjep_Vbi_ei/cjep0_t)*d10_logE0)*d10_exp1;
9091 : : #endif
9092 : 0 : pocce=d00_exp1;
9093 : : }
9094 : : #if defined(_DERIVATE)
9095 [ # # ]: 0 : czz_Vbp_ei=(((-(1/vdep_t))*ibets_t*pocce)+(((-(BP(bp,ei)/vdep_t))*ibets_t)*pocce_Vbp_ei));
9096 [ # # ][ # # ]: 0 : czz_Vtnode_GND=(((((-(-BP(bp,ei)*vdep_t_Vtnode_GND/vdep_t/vdep_t))*ibets_t)+((-(BP(bp,ei)/vdep_t))*ibets_t_Vtnode_GND))*pocce)+(((-(BP(bp,ei)/vdep_t))*ibets_t)*pocce_Vtnode_GND));
[ # # ][ # # ]
[ # # ]
9097 [ # # ]: 0 : czz_Vbi_ci=(((-(BP(bp,ei)/vdep_t))*ibets_t)*pocce_Vbi_ci);
9098 [ # # ]: 0 : czz_Vbi_ei=(((-(BP(bp,ei)/vdep_t))*ibets_t)*pocce_Vbi_ei);
9099 : : #endif
9100 [ # # ]: 0 : czz=(((-(BP(bp,ei)/vdep_t))*ibets_t)*pocce);
9101 : : {
9102 : 0 : double m00_exp(d00_exp0,((-abet_t)/pocce))
9103 : : #if defined(_DERIVATE)
9104 : : #define d10_exp0 d00_exp0
9105 : : #endif
9106 : : #if defined(_DERIVATE)
9107 : 0 : ibet_Vbp_ei=((czz_Vbp_ei*d00_exp0)+(czz*(-(-abet_t)*pocce_Vbp_ei/pocce/pocce)*d10_exp0));
9108 : 0 : ibet_Vtnode_GND=((czz_Vtnode_GND*d00_exp0)+(czz*(((-abet_t_Vtnode_GND)*pocce-(-abet_t)*pocce_Vtnode_GND)/pocce/pocce)*d10_exp0));
9109 : 0 : ibet_Vbi_ci=((czz_Vbi_ci*d00_exp0)+(czz*(-(-abet_t)*pocce_Vbi_ci/pocce/pocce)*d10_exp0));
9110 : 0 : ibet_Vbi_ei=((czz_Vbi_ei*d00_exp0)+(czz*(-(-abet_t)*pocce_Vbi_ei/pocce/pocce)*d10_exp0));
9111 : : #endif
9112 : 0 : ibet=(czz*d00_exp0);
9113 : 0 : }
9114 : : }
9115 : : else
9116 : : {
9117 [ # # ][ # # ]: 0 : if
[ # # ]
9118 : : (((tunode==0)&&(cjei0_t>0.0))&&(vdei_t>0.0))
9119 : : {
9120 : : {
9121 : 0 : double m00_logE(d00_logE0,(Cjei/cjei0_t))
9122 : 0 : double m00_exp(d00_exp1,((1-(1/zei))*d00_logE0))
9123 : : #if defined(_DERIVATE)
9124 : 0 : double m10_logE(d10_logE0,d00_logE0,(Cjei/cjei0_t))
9125 : : #define d10_exp1 d00_exp1
9126 : : #endif
9127 : : #if defined(_DERIVATE)
9128 : 0 : pocce_Vbp_ei=0.0;
9129 : 0 : pocce_Vbi_ci=0.0;
9130 : 0 : pocce_Vtnode_GND=((1-(1/zei))*((Cjei_Vtnode_GND*cjei0_t-Cjei*cjei0_t_Vtnode_GND)/cjei0_t/cjei0_t)*d10_logE0)*d10_exp1;
9131 : 0 : pocce_Vbi_ei=((1-(1/zei))*(Cjei_Vbi_ei/cjei0_t)*d10_logE0)*d10_exp1;
9132 : : #endif
9133 : 0 : pocce=d00_exp1;
9134 : : }
9135 : : #if defined(_DERIVATE)
9136 [ # # ]: 0 : czz_Vbp_ei=(((-(BP(bi,ei)/vdei_t))*ibets_t)*pocce_Vbp_ei);
9137 [ # # ][ # # ]: 0 : czz_Vtnode_GND=(((((-(-BP(bi,ei)*vdei_t_Vtnode_GND/vdei_t/vdei_t))*ibets_t)+((-(BP(bi,ei)/vdei_t))*ibets_t_Vtnode_GND))*pocce)+(((-(BP(bi,ei)/vdei_t))*ibets_t)*pocce_Vtnode_GND));
[ # # ][ # # ]
[ # # ]
9138 [ # # ]: 0 : czz_Vbi_ci=(((-(BP(bi,ei)/vdei_t))*ibets_t)*pocce_Vbi_ci);
9139 [ # # ]: 0 : czz_Vbi_ei=(((-(1/vdei_t))*ibets_t*pocce)+(((-(BP(bi,ei)/vdei_t))*ibets_t)*pocce_Vbi_ei));
9140 : : #endif
9141 [ # # ]: 0 : czz=(((-(BP(bi,ei)/vdei_t))*ibets_t)*pocce);
9142 : : {
9143 : 0 : double m00_exp(d00_exp0,((-abet_t)/pocce))
9144 : : #if defined(_DERIVATE)
9145 : : #define d10_exp0 d00_exp0
9146 : : #endif
9147 : : #if defined(_DERIVATE)
9148 : 0 : ibet_Vbp_ei=((czz_Vbp_ei*d00_exp0)+(czz*(-(-abet_t)*pocce_Vbp_ei/pocce/pocce)*d10_exp0));
9149 : 0 : ibet_Vtnode_GND=((czz_Vtnode_GND*d00_exp0)+(czz*(((-abet_t_Vtnode_GND)*pocce-(-abet_t)*pocce_Vtnode_GND)/pocce/pocce)*d10_exp0));
9150 : 0 : ibet_Vbi_ci=((czz_Vbi_ci*d00_exp0)+(czz*(-(-abet_t)*pocce_Vbi_ci/pocce/pocce)*d10_exp0));
9151 : 0 : ibet_Vbi_ei=((czz_Vbi_ei*d00_exp0)+(czz*(-(-abet_t)*pocce_Vbi_ei/pocce/pocce)*d10_exp0));
9152 : : #endif
9153 : 0 : ibet=(czz*d00_exp0);
9154 : 0 : }
9155 : : }
9156 : : else
9157 : : {
9158 : : #if defined(_DERIVATE)
9159 : 0 : ibet_Vbp_ei=0.0;
9160 : 0 : ibet_Vtnode_GND=0.0;
9161 : 0 : ibet_Vbi_ci=0.0;
9162 : 0 : ibet_Vbi_ei=0.0;
9163 : : #endif
9164 : 0 : ibet=0.0;
9165 : : }
9166 : : }
9167 : : }
9168 : : else
9169 : : {
9170 : : #if defined(_DERIVATE)
9171 : 0 : ibet_Vbp_ei=0.0;
9172 : 0 : ibet_Vtnode_GND=0.0;
9173 : 0 : ibet_Vbi_ci=0.0;
9174 : 0 : ibet_Vbi_ei=0.0;
9175 : : #endif
9176 : 0 : ibet=0.0;
9177 : : }
9178 : : #ifdef _DYNAMIC
9179 [ # # ]: 0 : if
9180 : : (vptcx_t<1.0e2)
9181 : : {
9182 : : #ifdef _DYNAMIC
9183 [ # # ]: 0 : if
9184 : : (cjcx02_t>0.0)
9185 : : {
9186 : : #if defined(_DYNAMIC)
9187 : 0 : Dz_r=(zcx/4.0);
9188 : : #endif
9189 : : #if defined(_DYNAMIC)
9190 : : #if defined(_DERIVATE)
9191 : 0 : Dv_p_Vtnode_GND=(vptcx_t_Vtnode_GND-vdcx_t_Vtnode_GND);
9192 : : #endif
9193 : 0 : Dv_p=(vptcx_t-vdcx_t);
9194 : : #endif
9195 : : #if defined(_DYNAMIC)
9196 : : {
9197 : 0 : double m00_logE(d00_logE0,2.4)
9198 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zcx))
9199 : : #if defined(_DERIVATE)
9200 : 0 : DV_f_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
9201 : : #endif
9202 : 0 : DV_f=(vdcx_t*(1.0-d00_exp1));
9203 : : }
9204 : : #endif
9205 : : #if defined(_DYNAMIC)
9206 : : #if defined(_DERIVATE)
9207 : 0 : DC_max_Vtnode_GND=(2.4*cjcx02_t_Vtnode_GND);
9208 : : #endif
9209 : 0 : DC_max=(2.4*cjcx02_t);
9210 : : #endif
9211 : : #if defined(_DYNAMIC)
9212 : : {
9213 : 0 : double m00_logE(d00_logE0,(vptcx_t/vdcx_t))
9214 : 0 : double m00_exp(d00_exp1,((Dz_r-zcx)*d00_logE0))
9215 : : #if defined(_DERIVATE)
9216 : 0 : double m10_logE(d10_logE0,d00_logE0,(vptcx_t/vdcx_t))
9217 : : #define d10_exp1 d00_exp1
9218 : : #endif
9219 : : #if defined(_DERIVATE)
9220 : 0 : DC_c_Vtnode_GND=((cjcx02_t_Vtnode_GND*d00_exp1)+(cjcx02_t*((Dz_r-zcx)*((vptcx_t_Vtnode_GND*vdcx_t-vptcx_t*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t)*d10_logE0)*d10_exp1));
9221 : : #endif
9222 : 0 : DC_c=(cjcx02_t*d00_exp1);
9223 : : }
9224 : : #endif
9225 : : #if defined(_DYNAMIC)
9226 : : #if defined(_DERIVATE)
9227 : 0 : Dv_e_Vsi_ci=0.0;
9228 : 0 : Dv_e_Vb_ci=0.0;
9229 : 0 : Dv_e_Vbp_ci=((-1.0)/VT);
9230 [ # # ]: 0 : Dv_e_Vtnode_GND=((DV_f_Vtnode_GND*VT-(DV_f-BP(bp,ci))*VT_Vtnode_GND)/VT/VT);
9231 : 0 : Dv_e_Vbi_ci=0.0;
9232 : : #endif
9233 [ # # ]: 0 : Dv_e=((DV_f-BP(bp,ci))/VT);
9234 : : #endif
9235 : : #ifdef _DYNAMIC
9236 [ # # ]: 0 : if
9237 : : (Dv_e<80.0)
9238 : : {
9239 : : #if defined(_DYNAMIC)
9240 : : {
9241 : 0 : double m00_exp(d00_exp0,Dv_e)
9242 : : #if defined(_DERIVATE)
9243 : : #define d10_exp0 d00_exp0
9244 : : #endif
9245 : : #if defined(_DERIVATE)
9246 : 0 : De_Vsi_ci=0.0;
9247 : 0 : De_Vb_ci=0.0;
9248 : 0 : De_Vbp_ci=Dv_e_Vbp_ci*d10_exp0;
9249 : 0 : De_Vtnode_GND=Dv_e_Vtnode_GND*d10_exp0;
9250 : 0 : De_Vbi_ci=Dv_e_Vbi_ci*d10_exp0;
9251 : : #endif
9252 : 0 : De=d00_exp0;
9253 : : }
9254 : : #endif
9255 : : #if defined(_DYNAMIC)
9256 : : #if defined(_DERIVATE)
9257 : 0 : De_1_Vsi_ci=0.0;
9258 : 0 : De_1_Vb_ci=0.0;
9259 : 0 : De_1_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
9260 : 0 : De_1_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
9261 : 0 : De_1_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
9262 : : #endif
9263 : 0 : De_1=(De/(1.0+De));
9264 : : #endif
9265 : : #if defined(_DYNAMIC)
9266 : : {
9267 : 0 : double m00_logE(d00_logE0,(1.0+De))
9268 : : #if defined(_DERIVATE)
9269 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
9270 : : #endif
9271 : : #if defined(_DERIVATE)
9272 : 0 : Dv_j1_Vsi_ci=0.0;
9273 : 0 : Dv_j1_Vb_ci=0.0;
9274 : 0 : Dv_j1_Vbp_ci=(-(VT*De_Vbp_ci*d10_logE0));
9275 : 0 : Dv_j1_Vtnode_GND=(DV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*De_Vtnode_GND*d10_logE0)));
9276 : 0 : Dv_j1_Vbi_ci=(-(VT*De_Vbi_ci*d10_logE0));
9277 : : #endif
9278 : 0 : Dv_j1=(DV_f-(VT*d00_logE0));
9279 : : }
9280 : : #endif
9281 : : }
9282 : : else
9283 : : {
9284 : : #if defined(_DYNAMIC)
9285 : : #if defined(_DERIVATE)
9286 : 0 : De_1_Vsi_ci=0.0;
9287 : 0 : De_1_Vb_ci=0.0;
9288 : 0 : De_1_Vbp_ci=0.0;
9289 : 0 : De_1_Vtnode_GND=0.0;
9290 : 0 : De_1_Vbi_ci=0.0;
9291 : : #endif
9292 : 0 : De_1=1.0;
9293 : : #endif
9294 : : #if defined(_DYNAMIC)
9295 : : #if defined(_DERIVATE)
9296 : 0 : Dv_j1_Vsi_ci=0.0;
9297 : 0 : Dv_j1_Vb_ci=0.0;
9298 : 0 : Dv_j1_Vbp_ci=1.0;
9299 : 0 : Dv_j1_Vtnode_GND=0.0;
9300 : 0 : Dv_j1_Vbi_ci=0.0;
9301 : : #endif
9302 [ # # ]: 0 : Dv_j1=BP(bp,ci);
9303 : : #endif
9304 : : }
9305 : : #endif /* if (...) */
9306 : : #if defined(_DYNAMIC)
9307 : : #if defined(_DERIVATE)
9308 : 0 : Da_Vtnode_GND=((0.1*Dv_p_Vtnode_GND)+(4.0*VT_Vtnode_GND));
9309 : : #endif
9310 : 0 : Da=((0.1*Dv_p)+(4.0*VT));
9311 : : #endif
9312 : : #if defined(_DYNAMIC)
9313 : : #if defined(_DERIVATE)
9314 : 0 : Dv_r_Vsi_ci=0.0;
9315 : 0 : Dv_r_Vb_ci=0.0;
9316 : 0 : Dv_r_Vbp_ci=(Dv_j1_Vbp_ci/Da);
9317 : 0 : Dv_r_Vtnode_GND=(((Dv_p_Vtnode_GND+Dv_j1_Vtnode_GND)*Da-(Dv_p+Dv_j1)*Da_Vtnode_GND)/Da/Da);
9318 : 0 : Dv_r_Vbi_ci=(Dv_j1_Vbi_ci/Da);
9319 : : #endif
9320 : 0 : Dv_r=((Dv_p+Dv_j1)/Da);
9321 : : #endif
9322 : : #ifdef _DYNAMIC
9323 [ # # ]: 0 : if
9324 : : (Dv_r<80.0)
9325 : : {
9326 : : #if defined(_DYNAMIC)
9327 : : {
9328 : 0 : double m00_exp(d00_exp0,Dv_r)
9329 : : #if defined(_DERIVATE)
9330 : : #define d10_exp0 d00_exp0
9331 : : #endif
9332 : : #if defined(_DERIVATE)
9333 : 0 : De_Vsi_ci=0.0;
9334 : 0 : De_Vb_ci=0.0;
9335 : 0 : De_Vbp_ci=Dv_r_Vbp_ci*d10_exp0;
9336 : 0 : De_Vtnode_GND=Dv_r_Vtnode_GND*d10_exp0;
9337 : 0 : De_Vbi_ci=Dv_r_Vbi_ci*d10_exp0;
9338 : : #endif
9339 : 0 : De=d00_exp0;
9340 : : }
9341 : : #endif
9342 : : #if defined(_DYNAMIC)
9343 : : #if defined(_DERIVATE)
9344 : 0 : De_2_Vsi_ci=0.0;
9345 : 0 : De_2_Vb_ci=0.0;
9346 : 0 : De_2_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
9347 : 0 : De_2_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
9348 : 0 : De_2_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
9349 : : #endif
9350 : 0 : De_2=(De/(1.0+De));
9351 : : #endif
9352 : : #if defined(_DYNAMIC)
9353 : : {
9354 : 0 : double m00_logE(d00_logE0,(1.0+De))
9355 : : #if defined(_DERIVATE)
9356 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
9357 : : #endif
9358 : : #if defined(_DERIVATE)
9359 : 0 : Dv_j2_Vsi_ci=0.0;
9360 : 0 : Dv_j2_Vb_ci=0.0;
9361 : 0 : Dv_j2_Vbp_ci=(Da*De_Vbp_ci*d10_logE0);
9362 : 0 : Dv_j2_Vtnode_GND=((-Dv_p_Vtnode_GND)+((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
9363 : 0 : Dv_j2_Vbi_ci=(Da*De_Vbi_ci*d10_logE0);
9364 : : #endif
9365 : 0 : Dv_j2=((-Dv_p)+(Da*d00_logE0));
9366 : : }
9367 : : #endif
9368 : : }
9369 : : else
9370 : : {
9371 : : #if defined(_DYNAMIC)
9372 : : #if defined(_DERIVATE)
9373 : 0 : De_2_Vsi_ci=0.0;
9374 : 0 : De_2_Vb_ci=0.0;
9375 : 0 : De_2_Vbp_ci=0.0;
9376 : 0 : De_2_Vtnode_GND=0.0;
9377 : 0 : De_2_Vbi_ci=0.0;
9378 : : #endif
9379 : 0 : De_2=1.0;
9380 : : #endif
9381 : : #if defined(_DYNAMIC)
9382 : : #if defined(_DERIVATE)
9383 : 0 : Dv_j2_Vsi_ci=0.0;
9384 : 0 : Dv_j2_Vb_ci=0.0;
9385 : 0 : Dv_j2_Vbp_ci=Dv_j1_Vbp_ci;
9386 : 0 : Dv_j2_Vtnode_GND=Dv_j1_Vtnode_GND;
9387 : 0 : Dv_j2_Vbi_ci=Dv_j1_Vbi_ci;
9388 : : #endif
9389 : 0 : Dv_j2=Dv_j1;
9390 : : #endif
9391 : : }
9392 : : #endif /* if (...) */
9393 : : #if defined(_DYNAMIC)
9394 : : #if defined(_DERIVATE)
9395 : 0 : Dv_j4_Vsi_ci=0.0;
9396 : 0 : Dv_j4_Vb_ci=0.0;
9397 : 0 : Dv_j4_Vbp_ci=(1.0-Dv_j1_Vbp_ci);
9398 : 0 : Dv_j4_Vbi_ci=(-Dv_j1_Vbi_ci);
9399 : 0 : Dv_j4_Vtnode_GND=(-Dv_j1_Vtnode_GND);
9400 : : #endif
9401 [ # # ]: 0 : Dv_j4=(BP(bp,ci)-Dv_j1);
9402 : : #endif
9403 : : #if defined(_DYNAMIC)
9404 : : {
9405 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j1/vdcx_t)))
9406 : : #if defined(_DERIVATE)
9407 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j1/vdcx_t)))
9408 : : #endif
9409 : : #if defined(_DERIVATE)
9410 : 0 : DCln1_Vsi_ci=0.0;
9411 : 0 : DCln1_Vb_ci=0.0;
9412 : 0 : DCln1_Vbp_ci=(-(Dv_j1_Vbp_ci/vdcx_t))*d10_logE0;
9413 : 0 : DCln1_Vtnode_GND=(-((Dv_j1_Vtnode_GND*vdcx_t-Dv_j1*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
9414 : 0 : DCln1_Vbi_ci=(-(Dv_j1_Vbi_ci/vdcx_t))*d10_logE0;
9415 : : #endif
9416 : 0 : DCln1=d00_logE0;
9417 : : }
9418 : : #endif
9419 : : #if defined(_DYNAMIC)
9420 : : {
9421 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j2/vdcx_t)))
9422 : : #if defined(_DERIVATE)
9423 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j2/vdcx_t)))
9424 : : #endif
9425 : : #if defined(_DERIVATE)
9426 : 0 : DCln2_Vsi_ci=0.0;
9427 : 0 : DCln2_Vb_ci=0.0;
9428 : 0 : DCln2_Vbp_ci=(-(Dv_j2_Vbp_ci/vdcx_t))*d10_logE0;
9429 : 0 : DCln2_Vtnode_GND=(-((Dv_j2_Vtnode_GND*vdcx_t-Dv_j2*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
9430 : 0 : DCln2_Vbi_ci=(-(Dv_j2_Vbi_ci/vdcx_t))*d10_logE0;
9431 : : #endif
9432 : 0 : DCln2=d00_logE0;
9433 : : }
9434 : : #endif
9435 : : #if defined(_DYNAMIC)
9436 : 0 : Dz1=(1.0-zcx);
9437 : : #endif
9438 : : #if defined(_DYNAMIC)
9439 : 0 : Dzr1=(1.0-Dz_r);
9440 : : #endif
9441 : : #if defined(_DYNAMIC)
9442 : : {
9443 : 0 : double m00_exp(d00_exp0,(DCln2*(-zcx)))
9444 : : #if defined(_DERIVATE)
9445 : : #define d10_exp0 d00_exp0
9446 : : #endif
9447 : : #if defined(_DERIVATE)
9448 : 0 : DC_j1_Vsi_ci=0.0;
9449 : 0 : DC_j1_Vb_ci=0.0;
9450 : 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));
9451 : 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));
9452 : 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));
9453 : : #endif
9454 : 0 : DC_j1=(((cjcx02_t*d00_exp0)*De_1)*De_2);
9455 : : }
9456 : : #endif
9457 : : #if defined(_DYNAMIC)
9458 : : {
9459 : 0 : double m00_exp(d00_exp0,(DCln1*(-Dz_r)))
9460 : : #if defined(_DERIVATE)
9461 : : #define d10_exp0 d00_exp0
9462 : : #endif
9463 : : #if defined(_DERIVATE)
9464 : 0 : DC_j2_Vsi_ci=0.0;
9465 : 0 : DC_j2_Vb_ci=0.0;
9466 : 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)));
9467 : 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)));
9468 : 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)));
9469 : : #endif
9470 : 0 : DC_j2=((DC_c*d00_exp0)*(1.0-De_2));
9471 : : }
9472 : : #endif
9473 : : #if defined(_DYNAMIC)
9474 : : #if defined(_DERIVATE)
9475 : 0 : DC_j3_Vsi_ci=0.0;
9476 : 0 : DC_j3_Vb_ci=0.0;
9477 : 0 : DC_j3_Vbp_ci=(DC_max*(-De_1_Vbp_ci));
9478 : 0 : DC_j3_Vtnode_GND=((DC_max_Vtnode_GND*(1.0-De_1))+(DC_max*(-De_1_Vtnode_GND)));
9479 : 0 : DC_j3_Vbi_ci=(DC_max*(-De_1_Vbi_ci));
9480 : : #endif
9481 : 0 : DC_j3=(DC_max*(1.0-De_1));
9482 : : #endif
9483 : : #if defined(_DYNAMIC)
9484 : 0 : c_dummy=((DC_j1+DC_j2)+DC_j3);
9485 : : #endif
9486 : : #if defined(_DYNAMIC)
9487 : : {
9488 : 0 : double m00_exp(d00_exp0,(DCln2*Dz1))
9489 : : #if defined(_DERIVATE)
9490 : : #define d10_exp0 d00_exp0
9491 : : #endif
9492 : : #if defined(_DERIVATE)
9493 : 0 : DQ_j1_Vsi_ci=0.0;
9494 : 0 : DQ_j1_Vb_ci=0.0;
9495 : 0 : DQ_j1_Vbp_ci=((cjcx02_t*(-DCln2_Vbp_ci*Dz1*d10_exp0))/Dz1);
9496 : 0 : DQ_j1_Vtnode_GND=(((cjcx02_t_Vtnode_GND*(1.0-d00_exp0))+(cjcx02_t*(-DCln2_Vtnode_GND*Dz1*d10_exp0)))/Dz1);
9497 : 0 : DQ_j1_Vbi_ci=((cjcx02_t*(-DCln2_Vbi_ci*Dz1*d10_exp0))/Dz1);
9498 : : #endif
9499 : 0 : DQ_j1=((cjcx02_t*(1.0-d00_exp0))/Dz1);
9500 : : }
9501 : : #endif
9502 : : #if defined(_DYNAMIC)
9503 : : {
9504 : 0 : double m00_exp(d00_exp0,(DCln1*Dzr1))
9505 : : #if defined(_DERIVATE)
9506 : : #define d10_exp0 d00_exp0
9507 : : #endif
9508 : : #if defined(_DERIVATE)
9509 : 0 : DQ_j2_Vsi_ci=0.0;
9510 : 0 : DQ_j2_Vb_ci=0.0;
9511 : 0 : DQ_j2_Vbp_ci=((DC_c*(-DCln1_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
9512 : 0 : DQ_j2_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln1_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
9513 : 0 : DQ_j2_Vbi_ci=((DC_c*(-DCln1_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
9514 : : #endif
9515 : 0 : DQ_j2=((DC_c*(1.0-d00_exp0))/Dzr1);
9516 : : }
9517 : : #endif
9518 : : #if defined(_DYNAMIC)
9519 : : {
9520 : 0 : double m00_exp(d00_exp0,(DCln2*Dzr1))
9521 : : #if defined(_DERIVATE)
9522 : : #define d10_exp0 d00_exp0
9523 : : #endif
9524 : : #if defined(_DERIVATE)
9525 : 0 : DQ_j3_Vsi_ci=0.0;
9526 : 0 : DQ_j3_Vb_ci=0.0;
9527 : 0 : DQ_j3_Vbp_ci=((DC_c*(-DCln2_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
9528 : 0 : DQ_j3_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln2_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
9529 : 0 : DQ_j3_Vbi_ci=((DC_c*(-DCln2_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
9530 : : #endif
9531 : 0 : DQ_j3=((DC_c*(1.0-d00_exp0))/Dzr1);
9532 : : }
9533 : : #endif
9534 : : #if defined(_DYNAMIC)
9535 : : #if defined(_DERIVATE)
9536 : 0 : qjcx0_t_ii_Vbp_ei=0.0;
9537 : 0 : qjcx0_t_ii_Vbi_ei=0.0;
9538 : 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));
9539 : 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)));
9540 : 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));
9541 : : #endif
9542 : 0 : qjcx0_t_ii=((((DQ_j1+DQ_j2)-DQ_j3)*vdcx_t)+(DC_max*Dv_j4));
9543 : : #endif
9544 : : }
9545 : : else
9546 : : {
9547 : : #if defined(_DYNAMIC)
9548 : 0 : c_dummy=0.0;
9549 : : #endif
9550 : : #if defined(_DYNAMIC)
9551 : : #if defined(_DERIVATE)
9552 : 0 : qjcx0_t_ii_Vbp_ei=0.0;
9553 : 0 : qjcx0_t_ii_Vbi_ei=0.0;
9554 : 0 : qjcx0_t_ii_Vbp_ci=0.0;
9555 : 0 : qjcx0_t_ii_Vtnode_GND=0.0;
9556 : 0 : qjcx0_t_ii_Vbi_ci=0.0;
9557 : : #endif
9558 : 0 : qjcx0_t_ii=0.0;
9559 : : #endif
9560 : : }
9561 : : #endif /* if (...) */
9562 : : }
9563 : : else
9564 : : {
9565 : : #ifdef _DYNAMIC
9566 [ # # ]: 0 : if
9567 : : (cjcx02_t>0.0)
9568 : : {
9569 : : #if defined(_DYNAMIC)
9570 : : {
9571 : 0 : double m00_logE(d00_logE0,2.4)
9572 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zcx))
9573 : : #if defined(_DERIVATE)
9574 : 0 : DFV_f_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
9575 : : #endif
9576 : 0 : DFV_f=(vdcx_t*(1.0-d00_exp1));
9577 : : }
9578 : : #endif
9579 : : #if defined(_DYNAMIC)
9580 : : #if defined(_DERIVATE)
9581 : 0 : DFv_e_Vsi_ci=0.0;
9582 : 0 : DFv_e_Vb_ci=0.0;
9583 : 0 : DFv_e_Vbp_ci=((-1.0)/VT);
9584 : 0 : DFv_e_Vbp_ei=0.0;
9585 : 0 : DFv_e_Vbi_ci=0.0;
9586 [ # # ]: 0 : DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(bp,ci))*VT_Vtnode_GND)/VT/VT);
9587 : 0 : DFv_e_Vbi_ei=0.0;
9588 : : #endif
9589 [ # # ]: 0 : DFv_e=((DFV_f-BP(bp,ci))/VT);
9590 : : #endif
9591 : : #if defined(_DYNAMIC)
9592 : : {
9593 : 0 : double m00_sqrt(d00_sqrt0,((DFv_e*DFv_e)+1.921812))
9594 : : #if defined(_DERIVATE)
9595 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((DFv_e*DFv_e)+1.921812))
9596 : : #endif
9597 : : #if defined(_DERIVATE)
9598 : 0 : DFs_q_Vsi_ci=0.0;
9599 : 0 : DFs_q_Vb_ci=0.0;
9600 : 0 : DFs_q_Vbp_ci=((DFv_e_Vbp_ci*DFv_e)+(DFv_e*DFv_e_Vbp_ci))*d10_sqrt0;
9601 : 0 : DFs_q_Vbp_ei=((DFv_e_Vbp_ei*DFv_e)+(DFv_e*DFv_e_Vbp_ei))*d10_sqrt0;
9602 : 0 : DFs_q_Vbi_ci=((DFv_e_Vbi_ci*DFv_e)+(DFv_e*DFv_e_Vbi_ci))*d10_sqrt0;
9603 : 0 : DFs_q_Vtnode_GND=((DFv_e_Vtnode_GND*DFv_e)+(DFv_e*DFv_e_Vtnode_GND))*d10_sqrt0;
9604 : 0 : DFs_q_Vbi_ei=((DFv_e_Vbi_ei*DFv_e)+(DFv_e*DFv_e_Vbi_ei))*d10_sqrt0;
9605 : : #endif
9606 : 0 : DFs_q=d00_sqrt0;
9607 : : }
9608 : : #endif
9609 : : #if defined(_DYNAMIC)
9610 : : #if defined(_DERIVATE)
9611 : 0 : DFs_q2_Vsi_ci=0.0;
9612 : 0 : DFs_q2_Vb_ci=0.0;
9613 : 0 : DFs_q2_Vbp_ci=(DFv_e_Vbp_ci+DFs_q_Vbp_ci)*0.5;
9614 : 0 : DFs_q2_Vbp_ei=(DFv_e_Vbp_ei+DFs_q_Vbp_ei)*0.5;
9615 : 0 : DFs_q2_Vbi_ci=(DFv_e_Vbi_ci+DFs_q_Vbi_ci)*0.5;
9616 : 0 : DFs_q2_Vtnode_GND=(DFv_e_Vtnode_GND+DFs_q_Vtnode_GND)*0.5;
9617 : 0 : DFs_q2_Vbi_ei=(DFv_e_Vbi_ei+DFs_q_Vbi_ei)*0.5;
9618 : : #endif
9619 : 0 : DFs_q2=((DFv_e+DFs_q)*0.5);
9620 : : #endif
9621 : : #if defined(_DYNAMIC)
9622 : : #if defined(_DERIVATE)
9623 : 0 : DFv_j_Vsi_ci=0.0;
9624 : 0 : DFv_j_Vb_ci=0.0;
9625 : 0 : DFv_j_Vbp_ci=(-(VT*DFs_q2_Vbp_ci));
9626 : 0 : DFv_j_Vbp_ei=(-(VT*DFs_q2_Vbp_ei));
9627 : 0 : DFv_j_Vbi_ci=(-(VT*DFs_q2_Vbi_ci));
9628 : 0 : DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*DFs_q2)+(VT*DFs_q2_Vtnode_GND)));
9629 : 0 : DFv_j_Vbi_ei=(-(VT*DFs_q2_Vbi_ei));
9630 : : #endif
9631 : 0 : DFv_j=(DFV_f-(VT*DFs_q2));
9632 : : #endif
9633 : : #if defined(_DYNAMIC)
9634 : : #if defined(_DERIVATE)
9635 : 0 : DFdvj_dv_Vsi_ci=0.0;
9636 : 0 : DFdvj_dv_Vb_ci=0.0;
9637 : 0 : DFdvj_dv_Vbp_ci=((DFs_q2_Vbp_ci*DFs_q-DFs_q2*DFs_q_Vbp_ci)/DFs_q/DFs_q);
9638 : 0 : DFdvj_dv_Vbp_ei=((DFs_q2_Vbp_ei*DFs_q-DFs_q2*DFs_q_Vbp_ei)/DFs_q/DFs_q);
9639 : 0 : DFdvj_dv_Vbi_ci=((DFs_q2_Vbi_ci*DFs_q-DFs_q2*DFs_q_Vbi_ci)/DFs_q/DFs_q);
9640 : 0 : DFdvj_dv_Vtnode_GND=((DFs_q2_Vtnode_GND*DFs_q-DFs_q2*DFs_q_Vtnode_GND)/DFs_q/DFs_q);
9641 : 0 : DFdvj_dv_Vbi_ei=((DFs_q2_Vbi_ei*DFs_q-DFs_q2*DFs_q_Vbi_ei)/DFs_q/DFs_q);
9642 : : #endif
9643 : 0 : DFdvj_dv=(DFs_q2/DFs_q);
9644 : : #endif
9645 : : #if defined(_DYNAMIC)
9646 : : {
9647 : 0 : double m00_logE(d00_logE0,(1.0-(DFv_j/vdcx_t)))
9648 : : #if defined(_DERIVATE)
9649 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdcx_t)))
9650 : : #endif
9651 : : #if defined(_DERIVATE)
9652 : 0 : DFb_Vsi_ci=0.0;
9653 : 0 : DFb_Vb_ci=0.0;
9654 : 0 : DFb_Vbp_ci=(-(DFv_j_Vbp_ci/vdcx_t))*d10_logE0;
9655 : 0 : DFb_Vbp_ei=(-(DFv_j_Vbp_ei/vdcx_t))*d10_logE0;
9656 : 0 : DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdcx_t))*d10_logE0;
9657 : 0 : DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdcx_t-DFv_j*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
9658 : 0 : DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdcx_t))*d10_logE0;
9659 : : #endif
9660 : 0 : DFb=d00_logE0;
9661 : : }
9662 : : #endif
9663 : : #if defined(_DYNAMIC)
9664 : : {
9665 : 0 : double m00_exp(d00_exp0,((-zcx)*DFb))
9666 : : #if defined(_DERIVATE)
9667 : : #define d10_exp0 d00_exp0
9668 : : #endif
9669 : : #if defined(_DERIVATE)
9670 : 0 : DFC_j1_Vsi_ci=0.0;
9671 : 0 : DFC_j1_Vb_ci=0.0;
9672 : 0 : DFC_j1_Vbp_ci=(((cjcx02_t*((-zcx)*DFb_Vbp_ci)*d10_exp0)*DFdvj_dv)+((cjcx02_t*d00_exp0)*DFdvj_dv_Vbp_ci));
9673 : 0 : DFC_j1_Vbp_ei=(((cjcx02_t*((-zcx)*DFb_Vbp_ei)*d10_exp0)*DFdvj_dv)+((cjcx02_t*d00_exp0)*DFdvj_dv_Vbp_ei));
9674 : 0 : DFC_j1_Vbi_ci=(((cjcx02_t*((-zcx)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjcx02_t*d00_exp0)*DFdvj_dv_Vbi_ci));
9675 : 0 : 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));
9676 : 0 : DFC_j1_Vbi_ei=(((cjcx02_t*((-zcx)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjcx02_t*d00_exp0)*DFdvj_dv_Vbi_ei));
9677 : : #endif
9678 : 0 : DFC_j1=((cjcx02_t*d00_exp0)*DFdvj_dv);
9679 : : }
9680 : : #endif
9681 : : #if defined(_DYNAMIC)
9682 : 0 : c_dummy=(DFC_j1+((2.4*cjcx02_t)*(1.0-DFdvj_dv)));
9683 : : #endif
9684 : : #if defined(_DYNAMIC)
9685 : : {
9686 : 0 : double m00_exp(d00_exp0,(DFb*(1.0-zcx)))
9687 : : #if defined(_DERIVATE)
9688 : : #define d10_exp0 d00_exp0
9689 : : #endif
9690 : : #if defined(_DERIVATE)
9691 : 0 : DFQ_j_Vsi_ci=0.0;
9692 : 0 : DFQ_j_Vb_ci=0.0;
9693 : 0 : DFQ_j_Vbp_ci=(((cjcx02_t*vdcx_t)*(-DFb_Vbp_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
9694 : 0 : DFQ_j_Vbp_ei=(((cjcx02_t*vdcx_t)*(-DFb_Vbp_ei*(1.0-zcx)*d10_exp0))/(1.0-zcx));
9695 : 0 : DFQ_j_Vbi_ci=(((cjcx02_t*vdcx_t)*(-DFb_Vbi_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
9696 : 0 : 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));
9697 : 0 : DFQ_j_Vbi_ei=(((cjcx02_t*vdcx_t)*(-DFb_Vbi_ei*(1.0-zcx)*d10_exp0))/(1.0-zcx));
9698 : : #endif
9699 : 0 : DFQ_j=(((cjcx02_t*vdcx_t)*(1.0-d00_exp0))/(1.0-zcx));
9700 : : }
9701 : : #endif
9702 : : #if defined(_DYNAMIC)
9703 : : #if defined(_DERIVATE)
9704 : 0 : qjcx0_t_ii_Vbp_ei=(DFQ_j_Vbp_ei+((2.4*cjcx02_t)*(-DFv_j_Vbp_ei)));
9705 : 0 : qjcx0_t_ii_Vbi_ei=(DFQ_j_Vbi_ei+((2.4*cjcx02_t)*(-DFv_j_Vbi_ei)));
9706 : 0 : qjcx0_t_ii_Vbp_ci=(DFQ_j_Vbp_ci+((2.4*cjcx02_t)*(1.0-DFv_j_Vbp_ci)));
9707 [ # # ]: 0 : qjcx0_t_ii_Vtnode_GND=(DFQ_j_Vtnode_GND+(((2.4*cjcx02_t_Vtnode_GND)*(BP(bp,ci)-DFv_j))+((2.4*cjcx02_t)*(-DFv_j_Vtnode_GND))));
9708 : 0 : qjcx0_t_ii_Vbi_ci=(DFQ_j_Vbi_ci+((2.4*cjcx02_t)*(-DFv_j_Vbi_ci)));
9709 : : #endif
9710 [ # # ]: 0 : qjcx0_t_ii=(DFQ_j+((2.4*cjcx02_t)*(BP(bp,ci)-DFv_j)));
9711 : : #endif
9712 : : }
9713 : : else
9714 : : {
9715 : : #if defined(_DYNAMIC)
9716 : 0 : c_dummy=0.0;
9717 : : #endif
9718 : : #if defined(_DYNAMIC)
9719 : : #if defined(_DERIVATE)
9720 : 0 : qjcx0_t_ii_Vbp_ei=0.0;
9721 : 0 : qjcx0_t_ii_Vbi_ei=0.0;
9722 : 0 : qjcx0_t_ii_Vbp_ci=0.0;
9723 : 0 : qjcx0_t_ii_Vtnode_GND=0.0;
9724 : 0 : qjcx0_t_ii_Vbi_ci=0.0;
9725 : : #endif
9726 : 0 : qjcx0_t_ii=0.0;
9727 : : #endif
9728 : : }
9729 : : #endif /* if (...) */
9730 : : }
9731 : : #endif /* if (...) */
9732 : : #if defined(_DERIVATE)
9733 : 0 : DIOY_Vsi_ci=0.0;
9734 : 0 : DIOY_Vbp_ci=(1/(mbcx*VT));
9735 : 0 : DIOY_Vbp_ei=0.0;
9736 : 0 : DIOY_Vbi_ci=0.0;
9737 : 0 : DIOY_Vbi_ei=0.0;
9738 [ # # ]: 0 : DIOY_Vtnode_GND=(-BP(bp,ci)*(mbcx*VT_Vtnode_GND)/(mbcx*VT)/(mbcx*VT));
9739 : : #endif
9740 [ # # ]: 0 : DIOY=(BP(bp,ci)/(mbcx*VT));
9741 [ # # ]: 0 : if
9742 : : (ibcxs>0.0)
9743 : : {
9744 [ # # ]: 0 : if
9745 : : (DIOY>80.0)
9746 : : {
9747 : : #if defined(_DERIVATE)
9748 : 0 : le_Vsi_ci=0.0;
9749 : 0 : le_Vbp_ci=DIOY_Vbp_ci;
9750 : 0 : le_Vbp_ei=DIOY_Vbp_ei;
9751 : 0 : le_Vbi_ci=DIOY_Vbi_ci;
9752 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
9753 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
9754 : : #endif
9755 : 0 : le=(1+(DIOY-80.0));
9756 : : #if defined(_DERIVATE)
9757 : 0 : DIOY_Vsi_ci=0.0;
9758 : 0 : DIOY_Vbp_ci=0.0;
9759 : 0 : DIOY_Vbp_ei=0.0;
9760 : 0 : DIOY_Vbi_ci=0.0;
9761 : 0 : DIOY_Vbi_ei=0.0;
9762 : 0 : DIOY_Vtnode_GND=0.0;
9763 : : #endif
9764 : 0 : DIOY=80.0;
9765 : : }
9766 : : else
9767 : : {
9768 : : #if defined(_DERIVATE)
9769 : 0 : le_Vsi_ci=0.0;
9770 : 0 : le_Vbp_ci=0.0;
9771 : 0 : le_Vbp_ei=0.0;
9772 : 0 : le_Vbi_ci=0.0;
9773 : 0 : le_Vbi_ei=0.0;
9774 : 0 : le_Vtnode_GND=0.0;
9775 : : #endif
9776 : 0 : le=1;
9777 : : }
9778 : : {
9779 [ # # ]: 0 : double m00_limexp(d00_limexp0,DIOY)
9780 : : #if defined(_DERIVATE)
9781 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
9782 : : #endif
9783 : : #if defined(_DERIVATE)
9784 : 0 : le_Vsi_ci=0.0;
9785 : 0 : le_Vbp_ci=((le_Vbp_ci*d00_limexp0)+(le*DIOY_Vbp_ci*d10_limexp0));
9786 : 0 : le_Vbp_ei=((le_Vbp_ei*d00_limexp0)+(le*DIOY_Vbp_ei*d10_limexp0));
9787 : 0 : le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
9788 : 0 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
9789 : 0 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
9790 : : #endif
9791 : 0 : le=(le*d00_limexp0);
9792 : : }
9793 : : #if defined(_DERIVATE)
9794 : 0 : ijbcx_Vtnode_GND=((ibcxs_t_Vtnode_GND*(le-1.0))+(ibcxs_t*le_Vtnode_GND));
9795 : 0 : ijbcx_Vbp_ci=(ibcxs_t*le_Vbp_ci);
9796 : 0 : ijbcx_Vbp_ei=(ibcxs_t*le_Vbp_ei);
9797 : 0 : ijbcx_Vbi_ci=(ibcxs_t*le_Vbi_ci);
9798 : 0 : ijbcx_Vbi_ei=(ibcxs_t*le_Vbi_ei);
9799 : : #endif
9800 : 0 : ijbcx=(ibcxs_t*(le-1.0));
9801 [ # # ]: 0 : if
9802 : : (DIOY<=(-14.0))
9803 : : {
9804 : : #if defined(_DERIVATE)
9805 : 0 : ijbcx_Vtnode_GND=(-ibcxs_t_Vtnode_GND);
9806 : 0 : ijbcx_Vbp_ci=0.0;
9807 : 0 : ijbcx_Vbp_ei=0.0;
9808 : 0 : ijbcx_Vbi_ci=0.0;
9809 : 0 : ijbcx_Vbi_ei=0.0;
9810 : : #endif
9811 : 0 : ijbcx=(-ibcxs_t);
9812 : : }
9813 : : }
9814 : : else
9815 : : {
9816 : : #if defined(_DERIVATE)
9817 : 0 : ijbcx_Vtnode_GND=0.0;
9818 : 0 : ijbcx_Vbp_ci=0.0;
9819 : 0 : ijbcx_Vbp_ei=0.0;
9820 : 0 : ijbcx_Vbi_ci=0.0;
9821 : 0 : ijbcx_Vbi_ei=0.0;
9822 : : #endif
9823 : 0 : ijbcx=0.0;
9824 : : }
9825 : : #ifdef _DYNAMIC
9826 [ # # ]: 0 : if
9827 : : (vptcx_t<1.0e2)
9828 : : {
9829 : : #ifdef _DYNAMIC
9830 [ # # ]: 0 : if
9831 : : (cjcx01_t>0.0)
9832 : : {
9833 : : #if defined(_DYNAMIC)
9834 : 0 : Dz_r=(zcx/4.0);
9835 : : #endif
9836 : : #if defined(_DYNAMIC)
9837 : : #if defined(_DERIVATE)
9838 : 0 : Dv_p_Vtnode_GND=(vptcx_t_Vtnode_GND-vdcx_t_Vtnode_GND);
9839 : : #endif
9840 : 0 : Dv_p=(vptcx_t-vdcx_t);
9841 : : #endif
9842 : : #if defined(_DYNAMIC)
9843 : : {
9844 : 0 : double m00_logE(d00_logE0,2.4)
9845 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zcx))
9846 : : #if defined(_DERIVATE)
9847 : 0 : DV_f_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
9848 : : #endif
9849 : 0 : DV_f=(vdcx_t*(1.0-d00_exp1));
9850 : : }
9851 : : #endif
9852 : : #if defined(_DYNAMIC)
9853 : : #if defined(_DERIVATE)
9854 : 0 : DC_max_Vtnode_GND=(2.4*cjcx01_t_Vtnode_GND);
9855 : : #endif
9856 : 0 : DC_max=(2.4*cjcx01_t);
9857 : : #endif
9858 : : #if defined(_DYNAMIC)
9859 : : {
9860 : 0 : double m00_logE(d00_logE0,(vptcx_t/vdcx_t))
9861 : 0 : double m00_exp(d00_exp1,((Dz_r-zcx)*d00_logE0))
9862 : : #if defined(_DERIVATE)
9863 : 0 : double m10_logE(d10_logE0,d00_logE0,(vptcx_t/vdcx_t))
9864 : : #define d10_exp1 d00_exp1
9865 : : #endif
9866 : : #if defined(_DERIVATE)
9867 : 0 : DC_c_Vtnode_GND=((cjcx01_t_Vtnode_GND*d00_exp1)+(cjcx01_t*((Dz_r-zcx)*((vptcx_t_Vtnode_GND*vdcx_t-vptcx_t*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t)*d10_logE0)*d10_exp1));
9868 : : #endif
9869 : 0 : DC_c=(cjcx01_t*d00_exp1);
9870 : : }
9871 : : #endif
9872 : : #if defined(_DYNAMIC)
9873 : : #if defined(_DERIVATE)
9874 : 0 : Dv_e_Vsi_ci=0.0;
9875 : 0 : Dv_e_Vb_ci=((-1.0)/VT);
9876 : 0 : Dv_e_Vbp_ci=0.0;
9877 [ # # ]: 0 : Dv_e_Vtnode_GND=((DV_f_Vtnode_GND*VT-(DV_f-BP(b,ci))*VT_Vtnode_GND)/VT/VT);
9878 : 0 : Dv_e_Vbi_ci=0.0;
9879 : : #endif
9880 [ # # ]: 0 : Dv_e=((DV_f-BP(b,ci))/VT);
9881 : : #endif
9882 : : #ifdef _DYNAMIC
9883 [ # # ]: 0 : if
9884 : : (Dv_e<80.0)
9885 : : {
9886 : : #if defined(_DYNAMIC)
9887 : : {
9888 : 0 : double m00_exp(d00_exp0,Dv_e)
9889 : : #if defined(_DERIVATE)
9890 : : #define d10_exp0 d00_exp0
9891 : : #endif
9892 : : #if defined(_DERIVATE)
9893 : 0 : De_Vsi_ci=0.0;
9894 : 0 : De_Vb_ci=Dv_e_Vb_ci*d10_exp0;
9895 : 0 : De_Vbp_ci=Dv_e_Vbp_ci*d10_exp0;
9896 : 0 : De_Vtnode_GND=Dv_e_Vtnode_GND*d10_exp0;
9897 : 0 : De_Vbi_ci=Dv_e_Vbi_ci*d10_exp0;
9898 : : #endif
9899 : 0 : De=d00_exp0;
9900 : : }
9901 : : #endif
9902 : : #if defined(_DYNAMIC)
9903 : : #if defined(_DERIVATE)
9904 : 0 : De_1_Vsi_ci=0.0;
9905 : 0 : De_1_Vb_ci=((De_Vb_ci*(1.0+De)-De*De_Vb_ci)/(1.0+De)/(1.0+De));
9906 : 0 : De_1_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
9907 : 0 : De_1_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
9908 : 0 : De_1_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
9909 : : #endif
9910 : 0 : De_1=(De/(1.0+De));
9911 : : #endif
9912 : : #if defined(_DYNAMIC)
9913 : : {
9914 : 0 : double m00_logE(d00_logE0,(1.0+De))
9915 : : #if defined(_DERIVATE)
9916 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
9917 : : #endif
9918 : : #if defined(_DERIVATE)
9919 : 0 : Dv_j1_Vsi_ci=0.0;
9920 : 0 : Dv_j1_Vb_ci=(-(VT*De_Vb_ci*d10_logE0));
9921 : 0 : Dv_j1_Vbp_ci=(-(VT*De_Vbp_ci*d10_logE0));
9922 : 0 : Dv_j1_Vtnode_GND=(DV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*De_Vtnode_GND*d10_logE0)));
9923 : 0 : Dv_j1_Vbi_ci=(-(VT*De_Vbi_ci*d10_logE0));
9924 : : #endif
9925 : 0 : Dv_j1=(DV_f-(VT*d00_logE0));
9926 : : }
9927 : : #endif
9928 : : }
9929 : : else
9930 : : {
9931 : : #if defined(_DYNAMIC)
9932 : : #if defined(_DERIVATE)
9933 : 0 : De_1_Vsi_ci=0.0;
9934 : 0 : De_1_Vb_ci=0.0;
9935 : 0 : De_1_Vbp_ci=0.0;
9936 : 0 : De_1_Vtnode_GND=0.0;
9937 : 0 : De_1_Vbi_ci=0.0;
9938 : : #endif
9939 : 0 : De_1=1.0;
9940 : : #endif
9941 : : #if defined(_DYNAMIC)
9942 : : #if defined(_DERIVATE)
9943 : 0 : Dv_j1_Vsi_ci=0.0;
9944 : 0 : Dv_j1_Vb_ci=1.0;
9945 : 0 : Dv_j1_Vbp_ci=0.0;
9946 : 0 : Dv_j1_Vtnode_GND=0.0;
9947 : 0 : Dv_j1_Vbi_ci=0.0;
9948 : : #endif
9949 [ # # ]: 0 : Dv_j1=BP(b,ci);
9950 : : #endif
9951 : : }
9952 : : #endif /* if (...) */
9953 : : #if defined(_DYNAMIC)
9954 : : #if defined(_DERIVATE)
9955 : 0 : Da_Vtnode_GND=((0.1*Dv_p_Vtnode_GND)+(4.0*VT_Vtnode_GND));
9956 : : #endif
9957 : 0 : Da=((0.1*Dv_p)+(4.0*VT));
9958 : : #endif
9959 : : #if defined(_DYNAMIC)
9960 : : #if defined(_DERIVATE)
9961 : 0 : Dv_r_Vsi_ci=0.0;
9962 : 0 : Dv_r_Vb_ci=(Dv_j1_Vb_ci/Da);
9963 : 0 : Dv_r_Vbp_ci=(Dv_j1_Vbp_ci/Da);
9964 : 0 : Dv_r_Vtnode_GND=(((Dv_p_Vtnode_GND+Dv_j1_Vtnode_GND)*Da-(Dv_p+Dv_j1)*Da_Vtnode_GND)/Da/Da);
9965 : 0 : Dv_r_Vbi_ci=(Dv_j1_Vbi_ci/Da);
9966 : : #endif
9967 : 0 : Dv_r=((Dv_p+Dv_j1)/Da);
9968 : : #endif
9969 : : #ifdef _DYNAMIC
9970 [ # # ]: 0 : if
9971 : : (Dv_r<80.0)
9972 : : {
9973 : : #if defined(_DYNAMIC)
9974 : : {
9975 : 0 : double m00_exp(d00_exp0,Dv_r)
9976 : : #if defined(_DERIVATE)
9977 : : #define d10_exp0 d00_exp0
9978 : : #endif
9979 : : #if defined(_DERIVATE)
9980 : 0 : De_Vsi_ci=0.0;
9981 : 0 : De_Vb_ci=Dv_r_Vb_ci*d10_exp0;
9982 : 0 : De_Vbp_ci=Dv_r_Vbp_ci*d10_exp0;
9983 : 0 : De_Vtnode_GND=Dv_r_Vtnode_GND*d10_exp0;
9984 : 0 : De_Vbi_ci=Dv_r_Vbi_ci*d10_exp0;
9985 : : #endif
9986 : 0 : De=d00_exp0;
9987 : : }
9988 : : #endif
9989 : : #if defined(_DYNAMIC)
9990 : : #if defined(_DERIVATE)
9991 : 0 : De_2_Vsi_ci=0.0;
9992 : 0 : De_2_Vb_ci=((De_Vb_ci*(1.0+De)-De*De_Vb_ci)/(1.0+De)/(1.0+De));
9993 : 0 : De_2_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
9994 : 0 : De_2_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
9995 : 0 : De_2_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
9996 : : #endif
9997 : 0 : De_2=(De/(1.0+De));
9998 : : #endif
9999 : : #if defined(_DYNAMIC)
10000 : : {
10001 : 0 : double m00_logE(d00_logE0,(1.0+De))
10002 : : #if defined(_DERIVATE)
10003 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
10004 : : #endif
10005 : : #if defined(_DERIVATE)
10006 : 0 : Dv_j2_Vsi_ci=0.0;
10007 : 0 : Dv_j2_Vb_ci=(Da*De_Vb_ci*d10_logE0);
10008 : 0 : Dv_j2_Vbp_ci=(Da*De_Vbp_ci*d10_logE0);
10009 : 0 : Dv_j2_Vtnode_GND=((-Dv_p_Vtnode_GND)+((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
10010 : 0 : Dv_j2_Vbi_ci=(Da*De_Vbi_ci*d10_logE0);
10011 : : #endif
10012 : 0 : Dv_j2=((-Dv_p)+(Da*d00_logE0));
10013 : : }
10014 : : #endif
10015 : : }
10016 : : else
10017 : : {
10018 : : #if defined(_DYNAMIC)
10019 : : #if defined(_DERIVATE)
10020 : 0 : De_2_Vsi_ci=0.0;
10021 : 0 : De_2_Vb_ci=0.0;
10022 : 0 : De_2_Vbp_ci=0.0;
10023 : 0 : De_2_Vtnode_GND=0.0;
10024 : 0 : De_2_Vbi_ci=0.0;
10025 : : #endif
10026 : 0 : De_2=1.0;
10027 : : #endif
10028 : : #if defined(_DYNAMIC)
10029 : : #if defined(_DERIVATE)
10030 : 0 : Dv_j2_Vsi_ci=0.0;
10031 : 0 : Dv_j2_Vb_ci=Dv_j1_Vb_ci;
10032 : 0 : Dv_j2_Vbp_ci=Dv_j1_Vbp_ci;
10033 : 0 : Dv_j2_Vtnode_GND=Dv_j1_Vtnode_GND;
10034 : 0 : Dv_j2_Vbi_ci=Dv_j1_Vbi_ci;
10035 : : #endif
10036 : 0 : Dv_j2=Dv_j1;
10037 : : #endif
10038 : : }
10039 : : #endif /* if (...) */
10040 : : #if defined(_DYNAMIC)
10041 : : #if defined(_DERIVATE)
10042 : 0 : Dv_j4_Vsi_ci=0.0;
10043 : 0 : Dv_j4_Vb_ci=(1.0-Dv_j1_Vb_ci);
10044 : 0 : Dv_j4_Vbp_ci=(-Dv_j1_Vbp_ci);
10045 : 0 : Dv_j4_Vbi_ci=(-Dv_j1_Vbi_ci);
10046 : 0 : Dv_j4_Vtnode_GND=(-Dv_j1_Vtnode_GND);
10047 : : #endif
10048 [ # # ]: 0 : Dv_j4=(BP(b,ci)-Dv_j1);
10049 : : #endif
10050 : : #if defined(_DYNAMIC)
10051 : : {
10052 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j1/vdcx_t)))
10053 : : #if defined(_DERIVATE)
10054 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j1/vdcx_t)))
10055 : : #endif
10056 : : #if defined(_DERIVATE)
10057 : 0 : DCln1_Vsi_ci=0.0;
10058 : 0 : DCln1_Vb_ci=(-(Dv_j1_Vb_ci/vdcx_t))*d10_logE0;
10059 : 0 : DCln1_Vbp_ci=(-(Dv_j1_Vbp_ci/vdcx_t))*d10_logE0;
10060 : 0 : DCln1_Vtnode_GND=(-((Dv_j1_Vtnode_GND*vdcx_t-Dv_j1*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
10061 : 0 : DCln1_Vbi_ci=(-(Dv_j1_Vbi_ci/vdcx_t))*d10_logE0;
10062 : : #endif
10063 : 0 : DCln1=d00_logE0;
10064 : : }
10065 : : #endif
10066 : : #if defined(_DYNAMIC)
10067 : : {
10068 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j2/vdcx_t)))
10069 : : #if defined(_DERIVATE)
10070 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j2/vdcx_t)))
10071 : : #endif
10072 : : #if defined(_DERIVATE)
10073 : 0 : DCln2_Vsi_ci=0.0;
10074 : 0 : DCln2_Vb_ci=(-(Dv_j2_Vb_ci/vdcx_t))*d10_logE0;
10075 : 0 : DCln2_Vbp_ci=(-(Dv_j2_Vbp_ci/vdcx_t))*d10_logE0;
10076 : 0 : DCln2_Vtnode_GND=(-((Dv_j2_Vtnode_GND*vdcx_t-Dv_j2*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
10077 : 0 : DCln2_Vbi_ci=(-(Dv_j2_Vbi_ci/vdcx_t))*d10_logE0;
10078 : : #endif
10079 : 0 : DCln2=d00_logE0;
10080 : : }
10081 : : #endif
10082 : : #if defined(_DYNAMIC)
10083 : 0 : Dz1=(1.0-zcx);
10084 : : #endif
10085 : : #if defined(_DYNAMIC)
10086 : 0 : Dzr1=(1.0-Dz_r);
10087 : : #endif
10088 : : #if defined(_DYNAMIC)
10089 : : {
10090 : 0 : double m00_exp(d00_exp0,(DCln2*(-zcx)))
10091 : : #if defined(_DERIVATE)
10092 : : #define d10_exp0 d00_exp0
10093 : : #endif
10094 : : #if defined(_DERIVATE)
10095 : 0 : DC_j1_Vsi_ci=0.0;
10096 : 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));
10097 : 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));
10098 : 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));
10099 : 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));
10100 : : #endif
10101 : 0 : DC_j1=(((cjcx01_t*d00_exp0)*De_1)*De_2);
10102 : : }
10103 : : #endif
10104 : : #if defined(_DYNAMIC)
10105 : : {
10106 : 0 : double m00_exp(d00_exp0,(DCln1*(-Dz_r)))
10107 : : #if defined(_DERIVATE)
10108 : : #define d10_exp0 d00_exp0
10109 : : #endif
10110 : : #if defined(_DERIVATE)
10111 : 0 : DC_j2_Vsi_ci=0.0;
10112 : 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)));
10113 : 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)));
10114 : 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)));
10115 : 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)));
10116 : : #endif
10117 : 0 : DC_j2=((DC_c*d00_exp0)*(1.0-De_2));
10118 : : }
10119 : : #endif
10120 : : #if defined(_DYNAMIC)
10121 : : #if defined(_DERIVATE)
10122 : 0 : DC_j3_Vsi_ci=0.0;
10123 : 0 : DC_j3_Vb_ci=(DC_max*(-De_1_Vb_ci));
10124 : 0 : DC_j3_Vbp_ci=(DC_max*(-De_1_Vbp_ci));
10125 : 0 : DC_j3_Vtnode_GND=((DC_max_Vtnode_GND*(1.0-De_1))+(DC_max*(-De_1_Vtnode_GND)));
10126 : 0 : DC_j3_Vbi_ci=(DC_max*(-De_1_Vbi_ci));
10127 : : #endif
10128 : 0 : DC_j3=(DC_max*(1.0-De_1));
10129 : : #endif
10130 : : #if defined(_DYNAMIC)
10131 : 0 : c_dummy=((DC_j1+DC_j2)+DC_j3);
10132 : : #endif
10133 : : #if defined(_DYNAMIC)
10134 : : {
10135 : 0 : double m00_exp(d00_exp0,(DCln2*Dz1))
10136 : : #if defined(_DERIVATE)
10137 : : #define d10_exp0 d00_exp0
10138 : : #endif
10139 : : #if defined(_DERIVATE)
10140 : 0 : DQ_j1_Vsi_ci=0.0;
10141 : 0 : DQ_j1_Vb_ci=((cjcx01_t*(-DCln2_Vb_ci*Dz1*d10_exp0))/Dz1);
10142 : 0 : DQ_j1_Vbp_ci=((cjcx01_t*(-DCln2_Vbp_ci*Dz1*d10_exp0))/Dz1);
10143 : 0 : DQ_j1_Vtnode_GND=(((cjcx01_t_Vtnode_GND*(1.0-d00_exp0))+(cjcx01_t*(-DCln2_Vtnode_GND*Dz1*d10_exp0)))/Dz1);
10144 : 0 : DQ_j1_Vbi_ci=((cjcx01_t*(-DCln2_Vbi_ci*Dz1*d10_exp0))/Dz1);
10145 : : #endif
10146 : 0 : DQ_j1=((cjcx01_t*(1.0-d00_exp0))/Dz1);
10147 : : }
10148 : : #endif
10149 : : #if defined(_DYNAMIC)
10150 : : {
10151 : 0 : double m00_exp(d00_exp0,(DCln1*Dzr1))
10152 : : #if defined(_DERIVATE)
10153 : : #define d10_exp0 d00_exp0
10154 : : #endif
10155 : : #if defined(_DERIVATE)
10156 : 0 : DQ_j2_Vsi_ci=0.0;
10157 : 0 : DQ_j2_Vb_ci=((DC_c*(-DCln1_Vb_ci*Dzr1*d10_exp0))/Dzr1);
10158 : 0 : DQ_j2_Vbp_ci=((DC_c*(-DCln1_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
10159 : 0 : DQ_j2_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln1_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
10160 : 0 : DQ_j2_Vbi_ci=((DC_c*(-DCln1_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
10161 : : #endif
10162 : 0 : DQ_j2=((DC_c*(1.0-d00_exp0))/Dzr1);
10163 : : }
10164 : : #endif
10165 : : #if defined(_DYNAMIC)
10166 : : {
10167 : 0 : double m00_exp(d00_exp0,(DCln2*Dzr1))
10168 : : #if defined(_DERIVATE)
10169 : : #define d10_exp0 d00_exp0
10170 : : #endif
10171 : : #if defined(_DERIVATE)
10172 : 0 : DQ_j3_Vsi_ci=0.0;
10173 : 0 : DQ_j3_Vb_ci=((DC_c*(-DCln2_Vb_ci*Dzr1*d10_exp0))/Dzr1);
10174 : 0 : DQ_j3_Vbp_ci=((DC_c*(-DCln2_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
10175 : 0 : DQ_j3_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln2_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
10176 : 0 : DQ_j3_Vbi_ci=((DC_c*(-DCln2_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
10177 : : #endif
10178 : 0 : DQ_j3=((DC_c*(1.0-d00_exp0))/Dzr1);
10179 : : }
10180 : : #endif
10181 : : #if defined(_DYNAMIC)
10182 : : #if defined(_DERIVATE)
10183 : 0 : qjcx0_t_i_Vbp_ei=0.0;
10184 : 0 : qjcx0_t_i_Vbi_ei=0.0;
10185 : 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));
10186 : 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));
10187 : 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)));
10188 : 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));
10189 : : #endif
10190 : 0 : qjcx0_t_i=((((DQ_j1+DQ_j2)-DQ_j3)*vdcx_t)+(DC_max*Dv_j4));
10191 : : #endif
10192 : : }
10193 : : else
10194 : : {
10195 : : #if defined(_DYNAMIC)
10196 : 0 : c_dummy=0.0;
10197 : : #endif
10198 : : #if defined(_DYNAMIC)
10199 : : #if defined(_DERIVATE)
10200 : 0 : qjcx0_t_i_Vbp_ei=0.0;
10201 : 0 : qjcx0_t_i_Vbi_ei=0.0;
10202 : 0 : qjcx0_t_i_Vb_ci=0.0;
10203 : 0 : qjcx0_t_i_Vbp_ci=0.0;
10204 : 0 : qjcx0_t_i_Vtnode_GND=0.0;
10205 : 0 : qjcx0_t_i_Vbi_ci=0.0;
10206 : : #endif
10207 : 0 : qjcx0_t_i=0.0;
10208 : : #endif
10209 : : }
10210 : : #endif /* if (...) */
10211 : : }
10212 : : else
10213 : : {
10214 : : #ifdef _DYNAMIC
10215 [ # # ]: 0 : if
10216 : : (cjcx01_t>0.0)
10217 : : {
10218 : : #if defined(_DYNAMIC)
10219 : : {
10220 : 0 : double m00_logE(d00_logE0,2.4)
10221 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zcx))
10222 : : #if defined(_DERIVATE)
10223 : 0 : DFV_f_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
10224 : : #endif
10225 : 0 : DFV_f=(vdcx_t*(1.0-d00_exp1));
10226 : : }
10227 : : #endif
10228 : : #if defined(_DYNAMIC)
10229 : : #if defined(_DERIVATE)
10230 : 0 : DFv_e_Vsi_ci=0.0;
10231 : 0 : DFv_e_Vb_ci=((-1.0)/VT);
10232 : 0 : DFv_e_Vbp_ci=0.0;
10233 : 0 : DFv_e_Vbp_ei=0.0;
10234 : 0 : DFv_e_Vbi_ci=0.0;
10235 [ # # ]: 0 : DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(b,ci))*VT_Vtnode_GND)/VT/VT);
10236 : 0 : DFv_e_Vbi_ei=0.0;
10237 : : #endif
10238 [ # # ]: 0 : DFv_e=((DFV_f-BP(b,ci))/VT);
10239 : : #endif
10240 : : #if defined(_DYNAMIC)
10241 : : {
10242 : 0 : double m00_sqrt(d00_sqrt0,((DFv_e*DFv_e)+1.921812))
10243 : : #if defined(_DERIVATE)
10244 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((DFv_e*DFv_e)+1.921812))
10245 : : #endif
10246 : : #if defined(_DERIVATE)
10247 : 0 : DFs_q_Vsi_ci=0.0;
10248 : 0 : DFs_q_Vb_ci=((DFv_e_Vb_ci*DFv_e)+(DFv_e*DFv_e_Vb_ci))*d10_sqrt0;
10249 : 0 : DFs_q_Vbp_ci=((DFv_e_Vbp_ci*DFv_e)+(DFv_e*DFv_e_Vbp_ci))*d10_sqrt0;
10250 : 0 : DFs_q_Vbp_ei=((DFv_e_Vbp_ei*DFv_e)+(DFv_e*DFv_e_Vbp_ei))*d10_sqrt0;
10251 : 0 : DFs_q_Vbi_ci=((DFv_e_Vbi_ci*DFv_e)+(DFv_e*DFv_e_Vbi_ci))*d10_sqrt0;
10252 : 0 : DFs_q_Vtnode_GND=((DFv_e_Vtnode_GND*DFv_e)+(DFv_e*DFv_e_Vtnode_GND))*d10_sqrt0;
10253 : 0 : DFs_q_Vbi_ei=((DFv_e_Vbi_ei*DFv_e)+(DFv_e*DFv_e_Vbi_ei))*d10_sqrt0;
10254 : : #endif
10255 : 0 : DFs_q=d00_sqrt0;
10256 : : }
10257 : : #endif
10258 : : #if defined(_DYNAMIC)
10259 : : #if defined(_DERIVATE)
10260 : 0 : DFs_q2_Vsi_ci=0.0;
10261 : 0 : DFs_q2_Vb_ci=(DFv_e_Vb_ci+DFs_q_Vb_ci)*0.5;
10262 : 0 : DFs_q2_Vbp_ci=(DFv_e_Vbp_ci+DFs_q_Vbp_ci)*0.5;
10263 : 0 : DFs_q2_Vbp_ei=(DFv_e_Vbp_ei+DFs_q_Vbp_ei)*0.5;
10264 : 0 : DFs_q2_Vbi_ci=(DFv_e_Vbi_ci+DFs_q_Vbi_ci)*0.5;
10265 : 0 : DFs_q2_Vtnode_GND=(DFv_e_Vtnode_GND+DFs_q_Vtnode_GND)*0.5;
10266 : 0 : DFs_q2_Vbi_ei=(DFv_e_Vbi_ei+DFs_q_Vbi_ei)*0.5;
10267 : : #endif
10268 : 0 : DFs_q2=((DFv_e+DFs_q)*0.5);
10269 : : #endif
10270 : : #if defined(_DYNAMIC)
10271 : : #if defined(_DERIVATE)
10272 : 0 : DFv_j_Vsi_ci=0.0;
10273 : 0 : DFv_j_Vb_ci=(-(VT*DFs_q2_Vb_ci));
10274 : 0 : DFv_j_Vbp_ci=(-(VT*DFs_q2_Vbp_ci));
10275 : 0 : DFv_j_Vbp_ei=(-(VT*DFs_q2_Vbp_ei));
10276 : 0 : DFv_j_Vbi_ci=(-(VT*DFs_q2_Vbi_ci));
10277 : 0 : DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*DFs_q2)+(VT*DFs_q2_Vtnode_GND)));
10278 : 0 : DFv_j_Vbi_ei=(-(VT*DFs_q2_Vbi_ei));
10279 : : #endif
10280 : 0 : DFv_j=(DFV_f-(VT*DFs_q2));
10281 : : #endif
10282 : : #if defined(_DYNAMIC)
10283 : : #if defined(_DERIVATE)
10284 : 0 : DFdvj_dv_Vsi_ci=0.0;
10285 : 0 : DFdvj_dv_Vb_ci=((DFs_q2_Vb_ci*DFs_q-DFs_q2*DFs_q_Vb_ci)/DFs_q/DFs_q);
10286 : 0 : DFdvj_dv_Vbp_ci=((DFs_q2_Vbp_ci*DFs_q-DFs_q2*DFs_q_Vbp_ci)/DFs_q/DFs_q);
10287 : 0 : DFdvj_dv_Vbp_ei=((DFs_q2_Vbp_ei*DFs_q-DFs_q2*DFs_q_Vbp_ei)/DFs_q/DFs_q);
10288 : 0 : DFdvj_dv_Vbi_ci=((DFs_q2_Vbi_ci*DFs_q-DFs_q2*DFs_q_Vbi_ci)/DFs_q/DFs_q);
10289 : 0 : DFdvj_dv_Vtnode_GND=((DFs_q2_Vtnode_GND*DFs_q-DFs_q2*DFs_q_Vtnode_GND)/DFs_q/DFs_q);
10290 : 0 : DFdvj_dv_Vbi_ei=((DFs_q2_Vbi_ei*DFs_q-DFs_q2*DFs_q_Vbi_ei)/DFs_q/DFs_q);
10291 : : #endif
10292 : 0 : DFdvj_dv=(DFs_q2/DFs_q);
10293 : : #endif
10294 : : #if defined(_DYNAMIC)
10295 : : {
10296 : 0 : double m00_logE(d00_logE0,(1.0-(DFv_j/vdcx_t)))
10297 : : #if defined(_DERIVATE)
10298 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdcx_t)))
10299 : : #endif
10300 : : #if defined(_DERIVATE)
10301 : 0 : DFb_Vsi_ci=0.0;
10302 : 0 : DFb_Vb_ci=(-(DFv_j_Vb_ci/vdcx_t))*d10_logE0;
10303 : 0 : DFb_Vbp_ci=(-(DFv_j_Vbp_ci/vdcx_t))*d10_logE0;
10304 : 0 : DFb_Vbp_ei=(-(DFv_j_Vbp_ei/vdcx_t))*d10_logE0;
10305 : 0 : DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdcx_t))*d10_logE0;
10306 : 0 : DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdcx_t-DFv_j*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
10307 : 0 : DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdcx_t))*d10_logE0;
10308 : : #endif
10309 : 0 : DFb=d00_logE0;
10310 : : }
10311 : : #endif
10312 : : #if defined(_DYNAMIC)
10313 : : {
10314 : 0 : double m00_exp(d00_exp0,((-zcx)*DFb))
10315 : : #if defined(_DERIVATE)
10316 : : #define d10_exp0 d00_exp0
10317 : : #endif
10318 : : #if defined(_DERIVATE)
10319 : 0 : DFC_j1_Vsi_ci=0.0;
10320 : 0 : DFC_j1_Vb_ci=(((cjcx01_t*((-zcx)*DFb_Vb_ci)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vb_ci));
10321 : 0 : DFC_j1_Vbp_ci=(((cjcx01_t*((-zcx)*DFb_Vbp_ci)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vbp_ci));
10322 : 0 : DFC_j1_Vbp_ei=(((cjcx01_t*((-zcx)*DFb_Vbp_ei)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vbp_ei));
10323 : 0 : DFC_j1_Vbi_ci=(((cjcx01_t*((-zcx)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vbi_ci));
10324 : 0 : 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));
10325 : 0 : DFC_j1_Vbi_ei=(((cjcx01_t*((-zcx)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vbi_ei));
10326 : : #endif
10327 : 0 : DFC_j1=((cjcx01_t*d00_exp0)*DFdvj_dv);
10328 : : }
10329 : : #endif
10330 : : #if defined(_DYNAMIC)
10331 : 0 : c_dummy=(DFC_j1+((2.4*cjcx01_t)*(1.0-DFdvj_dv)));
10332 : : #endif
10333 : : #if defined(_DYNAMIC)
10334 : : {
10335 : 0 : double m00_exp(d00_exp0,(DFb*(1.0-zcx)))
10336 : : #if defined(_DERIVATE)
10337 : : #define d10_exp0 d00_exp0
10338 : : #endif
10339 : : #if defined(_DERIVATE)
10340 : 0 : DFQ_j_Vsi_ci=0.0;
10341 : 0 : DFQ_j_Vb_ci=(((cjcx01_t*vdcx_t)*(-DFb_Vb_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
10342 : 0 : DFQ_j_Vbp_ci=(((cjcx01_t*vdcx_t)*(-DFb_Vbp_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
10343 : 0 : DFQ_j_Vbp_ei=(((cjcx01_t*vdcx_t)*(-DFb_Vbp_ei*(1.0-zcx)*d10_exp0))/(1.0-zcx));
10344 : 0 : DFQ_j_Vbi_ci=(((cjcx01_t*vdcx_t)*(-DFb_Vbi_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
10345 : 0 : 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));
10346 : 0 : DFQ_j_Vbi_ei=(((cjcx01_t*vdcx_t)*(-DFb_Vbi_ei*(1.0-zcx)*d10_exp0))/(1.0-zcx));
10347 : : #endif
10348 : 0 : DFQ_j=(((cjcx01_t*vdcx_t)*(1.0-d00_exp0))/(1.0-zcx));
10349 : : }
10350 : : #endif
10351 : : #if defined(_DYNAMIC)
10352 : : #if defined(_DERIVATE)
10353 : 0 : qjcx0_t_i_Vbp_ei=(DFQ_j_Vbp_ei+((2.4*cjcx01_t)*(-DFv_j_Vbp_ei)));
10354 : 0 : qjcx0_t_i_Vbi_ei=(DFQ_j_Vbi_ei+((2.4*cjcx01_t)*(-DFv_j_Vbi_ei)));
10355 : 0 : qjcx0_t_i_Vb_ci=(DFQ_j_Vb_ci+((2.4*cjcx01_t)*(1.0-DFv_j_Vb_ci)));
10356 : 0 : qjcx0_t_i_Vbp_ci=(DFQ_j_Vbp_ci+((2.4*cjcx01_t)*(-DFv_j_Vbp_ci)));
10357 [ # # ]: 0 : qjcx0_t_i_Vtnode_GND=(DFQ_j_Vtnode_GND+(((2.4*cjcx01_t_Vtnode_GND)*(BP(b,ci)-DFv_j))+((2.4*cjcx01_t)*(-DFv_j_Vtnode_GND))));
10358 : 0 : qjcx0_t_i_Vbi_ci=(DFQ_j_Vbi_ci+((2.4*cjcx01_t)*(-DFv_j_Vbi_ci)));
10359 : : #endif
10360 [ # # ]: 0 : qjcx0_t_i=(DFQ_j+((2.4*cjcx01_t)*(BP(b,ci)-DFv_j)));
10361 : : #endif
10362 : : }
10363 : : else
10364 : : {
10365 : : #if defined(_DYNAMIC)
10366 : 0 : c_dummy=0.0;
10367 : : #endif
10368 : : #if defined(_DYNAMIC)
10369 : : #if defined(_DERIVATE)
10370 : 0 : qjcx0_t_i_Vbp_ei=0.0;
10371 : 0 : qjcx0_t_i_Vbi_ei=0.0;
10372 : 0 : qjcx0_t_i_Vb_ci=0.0;
10373 : 0 : qjcx0_t_i_Vbp_ci=0.0;
10374 : 0 : qjcx0_t_i_Vtnode_GND=0.0;
10375 : 0 : qjcx0_t_i_Vbi_ci=0.0;
10376 : : #endif
10377 : 0 : qjcx0_t_i=0.0;
10378 : : #endif
10379 : : }
10380 : : #endif /* if (...) */
10381 : : }
10382 : : #endif /* if (...) */
10383 : : #ifdef _DYNAMIC
10384 [ # # ]: 0 : if
10385 : : (vpts_t<1.0e2)
10386 : : {
10387 : : #ifdef _DYNAMIC
10388 [ # # ]: 0 : if
10389 : : (cjs0_t>0.0)
10390 : : {
10391 : : #if defined(_DYNAMIC)
10392 : 0 : Dz_r=(zs/4.0);
10393 : : #endif
10394 : : #if defined(_DYNAMIC)
10395 : : #if defined(_DERIVATE)
10396 : 0 : Dv_p_Vtnode_GND=(vpts_t_Vtnode_GND-vds_t_Vtnode_GND);
10397 : : #endif
10398 : 0 : Dv_p=(vpts_t-vds_t);
10399 : : #endif
10400 : : #if defined(_DYNAMIC)
10401 : : {
10402 : 0 : double m00_logE(d00_logE0,2.4)
10403 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zs))
10404 : : #if defined(_DERIVATE)
10405 : 0 : DV_f_Vtnode_GND=vds_t_Vtnode_GND*(1.0-d00_exp1);
10406 : : #endif
10407 : 0 : DV_f=(vds_t*(1.0-d00_exp1));
10408 : : }
10409 : : #endif
10410 : : #if defined(_DYNAMIC)
10411 : : #if defined(_DERIVATE)
10412 : 0 : DC_max_Vtnode_GND=(2.4*cjs0_t_Vtnode_GND);
10413 : : #endif
10414 : 0 : DC_max=(2.4*cjs0_t);
10415 : : #endif
10416 : : #if defined(_DYNAMIC)
10417 : : {
10418 : 0 : double m00_logE(d00_logE0,(vpts_t/vds_t))
10419 : 0 : double m00_exp(d00_exp1,((Dz_r-zs)*d00_logE0))
10420 : : #if defined(_DERIVATE)
10421 : 0 : double m10_logE(d10_logE0,d00_logE0,(vpts_t/vds_t))
10422 : : #define d10_exp1 d00_exp1
10423 : : #endif
10424 : : #if defined(_DERIVATE)
10425 : 0 : DC_c_Vtnode_GND=((cjs0_t_Vtnode_GND*d00_exp1)+(cjs0_t*((Dz_r-zs)*((vpts_t_Vtnode_GND*vds_t-vpts_t*vds_t_Vtnode_GND)/vds_t/vds_t)*d10_logE0)*d10_exp1));
10426 : : #endif
10427 : 0 : DC_c=(cjs0_t*d00_exp1);
10428 : : }
10429 : : #endif
10430 : : #if defined(_DYNAMIC)
10431 : : #if defined(_DERIVATE)
10432 : 0 : Dv_e_Vsi_ci=((-1.0)/VT);
10433 : 0 : Dv_e_Vb_ci=0.0;
10434 : 0 : Dv_e_Vbp_ci=0.0;
10435 [ # # ]: 0 : Dv_e_Vtnode_GND=((DV_f_Vtnode_GND*VT-(DV_f-BP(si,ci))*VT_Vtnode_GND)/VT/VT);
10436 : 0 : Dv_e_Vbi_ci=0.0;
10437 : : #endif
10438 [ # # ]: 0 : Dv_e=((DV_f-BP(si,ci))/VT);
10439 : : #endif
10440 : : #ifdef _DYNAMIC
10441 [ # # ]: 0 : if
10442 : : (Dv_e<80.0)
10443 : : {
10444 : : #if defined(_DYNAMIC)
10445 : : {
10446 : 0 : double m00_exp(d00_exp0,Dv_e)
10447 : : #if defined(_DERIVATE)
10448 : : #define d10_exp0 d00_exp0
10449 : : #endif
10450 : : #if defined(_DERIVATE)
10451 : 0 : De_Vsi_ci=Dv_e_Vsi_ci*d10_exp0;
10452 : 0 : De_Vb_ci=Dv_e_Vb_ci*d10_exp0;
10453 : 0 : De_Vbp_ci=Dv_e_Vbp_ci*d10_exp0;
10454 : 0 : De_Vtnode_GND=Dv_e_Vtnode_GND*d10_exp0;
10455 : 0 : De_Vbi_ci=Dv_e_Vbi_ci*d10_exp0;
10456 : : #endif
10457 : 0 : De=d00_exp0;
10458 : : }
10459 : : #endif
10460 : : #if defined(_DYNAMIC)
10461 : : #if defined(_DERIVATE)
10462 : 0 : De_1_Vsi_ci=((De_Vsi_ci*(1.0+De)-De*De_Vsi_ci)/(1.0+De)/(1.0+De));
10463 : 0 : De_1_Vb_ci=((De_Vb_ci*(1.0+De)-De*De_Vb_ci)/(1.0+De)/(1.0+De));
10464 : 0 : De_1_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
10465 : 0 : De_1_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
10466 : 0 : De_1_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
10467 : : #endif
10468 : 0 : De_1=(De/(1.0+De));
10469 : : #endif
10470 : : #if defined(_DYNAMIC)
10471 : : {
10472 : 0 : double m00_logE(d00_logE0,(1.0+De))
10473 : : #if defined(_DERIVATE)
10474 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
10475 : : #endif
10476 : : #if defined(_DERIVATE)
10477 : 0 : Dv_j1_Vsi_ci=(-(VT*De_Vsi_ci*d10_logE0));
10478 : 0 : Dv_j1_Vb_ci=(-(VT*De_Vb_ci*d10_logE0));
10479 : 0 : Dv_j1_Vbp_ci=(-(VT*De_Vbp_ci*d10_logE0));
10480 : 0 : Dv_j1_Vtnode_GND=(DV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*De_Vtnode_GND*d10_logE0)));
10481 : 0 : Dv_j1_Vbi_ci=(-(VT*De_Vbi_ci*d10_logE0));
10482 : : #endif
10483 : 0 : Dv_j1=(DV_f-(VT*d00_logE0));
10484 : : }
10485 : : #endif
10486 : : }
10487 : : else
10488 : : {
10489 : : #if defined(_DYNAMIC)
10490 : : #if defined(_DERIVATE)
10491 : 0 : De_1_Vsi_ci=0.0;
10492 : 0 : De_1_Vb_ci=0.0;
10493 : 0 : De_1_Vbp_ci=0.0;
10494 : 0 : De_1_Vtnode_GND=0.0;
10495 : 0 : De_1_Vbi_ci=0.0;
10496 : : #endif
10497 : 0 : De_1=1.0;
10498 : : #endif
10499 : : #if defined(_DYNAMIC)
10500 : : #if defined(_DERIVATE)
10501 : 0 : Dv_j1_Vsi_ci=1.0;
10502 : 0 : Dv_j1_Vb_ci=0.0;
10503 : 0 : Dv_j1_Vbp_ci=0.0;
10504 : 0 : Dv_j1_Vtnode_GND=0.0;
10505 : 0 : Dv_j1_Vbi_ci=0.0;
10506 : : #endif
10507 [ # # ]: 0 : Dv_j1=BP(si,ci);
10508 : : #endif
10509 : : }
10510 : : #endif /* if (...) */
10511 : : #if defined(_DYNAMIC)
10512 : : #if defined(_DERIVATE)
10513 : 0 : Da_Vtnode_GND=((0.1*Dv_p_Vtnode_GND)+(4.0*VT_Vtnode_GND));
10514 : : #endif
10515 : 0 : Da=((0.1*Dv_p)+(4.0*VT));
10516 : : #endif
10517 : : #if defined(_DYNAMIC)
10518 : : #if defined(_DERIVATE)
10519 : 0 : Dv_r_Vsi_ci=(Dv_j1_Vsi_ci/Da);
10520 : 0 : Dv_r_Vb_ci=(Dv_j1_Vb_ci/Da);
10521 : 0 : Dv_r_Vbp_ci=(Dv_j1_Vbp_ci/Da);
10522 : 0 : Dv_r_Vtnode_GND=(((Dv_p_Vtnode_GND+Dv_j1_Vtnode_GND)*Da-(Dv_p+Dv_j1)*Da_Vtnode_GND)/Da/Da);
10523 : 0 : Dv_r_Vbi_ci=(Dv_j1_Vbi_ci/Da);
10524 : : #endif
10525 : 0 : Dv_r=((Dv_p+Dv_j1)/Da);
10526 : : #endif
10527 : : #ifdef _DYNAMIC
10528 [ # # ]: 0 : if
10529 : : (Dv_r<80.0)
10530 : : {
10531 : : #if defined(_DYNAMIC)
10532 : : {
10533 : 0 : double m00_exp(d00_exp0,Dv_r)
10534 : : #if defined(_DERIVATE)
10535 : : #define d10_exp0 d00_exp0
10536 : : #endif
10537 : : #if defined(_DERIVATE)
10538 : 0 : De_Vsi_ci=Dv_r_Vsi_ci*d10_exp0;
10539 : 0 : De_Vb_ci=Dv_r_Vb_ci*d10_exp0;
10540 : 0 : De_Vbp_ci=Dv_r_Vbp_ci*d10_exp0;
10541 : 0 : De_Vtnode_GND=Dv_r_Vtnode_GND*d10_exp0;
10542 : 0 : De_Vbi_ci=Dv_r_Vbi_ci*d10_exp0;
10543 : : #endif
10544 : 0 : De=d00_exp0;
10545 : : }
10546 : : #endif
10547 : : #if defined(_DYNAMIC)
10548 : : #if defined(_DERIVATE)
10549 : 0 : De_2_Vsi_ci=((De_Vsi_ci*(1.0+De)-De*De_Vsi_ci)/(1.0+De)/(1.0+De));
10550 : 0 : De_2_Vb_ci=((De_Vb_ci*(1.0+De)-De*De_Vb_ci)/(1.0+De)/(1.0+De));
10551 : 0 : De_2_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
10552 : 0 : De_2_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
10553 : 0 : De_2_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
10554 : : #endif
10555 : 0 : De_2=(De/(1.0+De));
10556 : : #endif
10557 : : #if defined(_DYNAMIC)
10558 : : {
10559 : 0 : double m00_logE(d00_logE0,(1.0+De))
10560 : : #if defined(_DERIVATE)
10561 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
10562 : : #endif
10563 : : #if defined(_DERIVATE)
10564 : 0 : Dv_j2_Vsi_ci=(Da*De_Vsi_ci*d10_logE0);
10565 : 0 : Dv_j2_Vb_ci=(Da*De_Vb_ci*d10_logE0);
10566 : 0 : Dv_j2_Vbp_ci=(Da*De_Vbp_ci*d10_logE0);
10567 : 0 : Dv_j2_Vtnode_GND=((-Dv_p_Vtnode_GND)+((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
10568 : 0 : Dv_j2_Vbi_ci=(Da*De_Vbi_ci*d10_logE0);
10569 : : #endif
10570 : 0 : Dv_j2=((-Dv_p)+(Da*d00_logE0));
10571 : : }
10572 : : #endif
10573 : : }
10574 : : else
10575 : : {
10576 : : #if defined(_DYNAMIC)
10577 : : #if defined(_DERIVATE)
10578 : 0 : De_2_Vsi_ci=0.0;
10579 : 0 : De_2_Vb_ci=0.0;
10580 : 0 : De_2_Vbp_ci=0.0;
10581 : 0 : De_2_Vtnode_GND=0.0;
10582 : 0 : De_2_Vbi_ci=0.0;
10583 : : #endif
10584 : 0 : De_2=1.0;
10585 : : #endif
10586 : : #if defined(_DYNAMIC)
10587 : : #if defined(_DERIVATE)
10588 : 0 : Dv_j2_Vsi_ci=Dv_j1_Vsi_ci;
10589 : 0 : Dv_j2_Vb_ci=Dv_j1_Vb_ci;
10590 : 0 : Dv_j2_Vbp_ci=Dv_j1_Vbp_ci;
10591 : 0 : Dv_j2_Vtnode_GND=Dv_j1_Vtnode_GND;
10592 : 0 : Dv_j2_Vbi_ci=Dv_j1_Vbi_ci;
10593 : : #endif
10594 : 0 : Dv_j2=Dv_j1;
10595 : : #endif
10596 : : }
10597 : : #endif /* if (...) */
10598 : : #if defined(_DYNAMIC)
10599 : : #if defined(_DERIVATE)
10600 : 0 : Dv_j4_Vsi_ci=(1.0-Dv_j1_Vsi_ci);
10601 : 0 : Dv_j4_Vb_ci=(-Dv_j1_Vb_ci);
10602 : 0 : Dv_j4_Vbp_ci=(-Dv_j1_Vbp_ci);
10603 : 0 : Dv_j4_Vbi_ci=(-Dv_j1_Vbi_ci);
10604 : 0 : Dv_j4_Vtnode_GND=(-Dv_j1_Vtnode_GND);
10605 : : #endif
10606 [ # # ]: 0 : Dv_j4=(BP(si,ci)-Dv_j1);
10607 : : #endif
10608 : : #if defined(_DYNAMIC)
10609 : : {
10610 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j1/vds_t)))
10611 : : #if defined(_DERIVATE)
10612 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j1/vds_t)))
10613 : : #endif
10614 : : #if defined(_DERIVATE)
10615 : 0 : DCln1_Vsi_ci=(-(Dv_j1_Vsi_ci/vds_t))*d10_logE0;
10616 : 0 : DCln1_Vb_ci=(-(Dv_j1_Vb_ci/vds_t))*d10_logE0;
10617 : 0 : DCln1_Vbp_ci=(-(Dv_j1_Vbp_ci/vds_t))*d10_logE0;
10618 : 0 : DCln1_Vtnode_GND=(-((Dv_j1_Vtnode_GND*vds_t-Dv_j1*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0;
10619 : 0 : DCln1_Vbi_ci=(-(Dv_j1_Vbi_ci/vds_t))*d10_logE0;
10620 : : #endif
10621 : 0 : DCln1=d00_logE0;
10622 : : }
10623 : : #endif
10624 : : #if defined(_DYNAMIC)
10625 : : {
10626 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j2/vds_t)))
10627 : : #if defined(_DERIVATE)
10628 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j2/vds_t)))
10629 : : #endif
10630 : : #if defined(_DERIVATE)
10631 : 0 : DCln2_Vsi_ci=(-(Dv_j2_Vsi_ci/vds_t))*d10_logE0;
10632 : 0 : DCln2_Vb_ci=(-(Dv_j2_Vb_ci/vds_t))*d10_logE0;
10633 : 0 : DCln2_Vbp_ci=(-(Dv_j2_Vbp_ci/vds_t))*d10_logE0;
10634 : 0 : DCln2_Vtnode_GND=(-((Dv_j2_Vtnode_GND*vds_t-Dv_j2*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0;
10635 : 0 : DCln2_Vbi_ci=(-(Dv_j2_Vbi_ci/vds_t))*d10_logE0;
10636 : : #endif
10637 : 0 : DCln2=d00_logE0;
10638 : : }
10639 : : #endif
10640 : : #if defined(_DYNAMIC)
10641 : 0 : Dz1=(1.0-zs);
10642 : : #endif
10643 : : #if defined(_DYNAMIC)
10644 : 0 : Dzr1=(1.0-Dz_r);
10645 : : #endif
10646 : : #if defined(_DYNAMIC)
10647 : : {
10648 : 0 : double m00_exp(d00_exp0,(DCln2*(-zs)))
10649 : : #if defined(_DERIVATE)
10650 : : #define d10_exp0 d00_exp0
10651 : : #endif
10652 : : #if defined(_DERIVATE)
10653 : 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));
10654 : 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));
10655 : 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));
10656 : 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));
10657 : 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));
10658 : : #endif
10659 : 0 : DC_j1=(((cjs0_t*d00_exp0)*De_1)*De_2);
10660 : : }
10661 : : #endif
10662 : : #if defined(_DYNAMIC)
10663 : : {
10664 : 0 : double m00_exp(d00_exp0,(DCln1*(-Dz_r)))
10665 : : #if defined(_DERIVATE)
10666 : : #define d10_exp0 d00_exp0
10667 : : #endif
10668 : : #if defined(_DERIVATE)
10669 : 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)));
10670 : 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)));
10671 : 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)));
10672 : 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)));
10673 : 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)));
10674 : : #endif
10675 : 0 : DC_j2=((DC_c*d00_exp0)*(1.0-De_2));
10676 : : }
10677 : : #endif
10678 : : #if defined(_DYNAMIC)
10679 : : #if defined(_DERIVATE)
10680 : 0 : DC_j3_Vsi_ci=(DC_max*(-De_1_Vsi_ci));
10681 : 0 : DC_j3_Vb_ci=(DC_max*(-De_1_Vb_ci));
10682 : 0 : DC_j3_Vbp_ci=(DC_max*(-De_1_Vbp_ci));
10683 : 0 : DC_j3_Vtnode_GND=((DC_max_Vtnode_GND*(1.0-De_1))+(DC_max*(-De_1_Vtnode_GND)));
10684 : 0 : DC_j3_Vbi_ci=(DC_max*(-De_1_Vbi_ci));
10685 : : #endif
10686 : 0 : DC_j3=(DC_max*(1.0-De_1));
10687 : : #endif
10688 : : #if defined(_DYNAMIC)
10689 : 0 : c_dummy=((DC_j1+DC_j2)+DC_j3);
10690 : : #endif
10691 : : #if defined(_DYNAMIC)
10692 : : {
10693 : 0 : double m00_exp(d00_exp0,(DCln2*Dz1))
10694 : : #if defined(_DERIVATE)
10695 : : #define d10_exp0 d00_exp0
10696 : : #endif
10697 : : #if defined(_DERIVATE)
10698 : 0 : DQ_j1_Vsi_ci=((cjs0_t*(-DCln2_Vsi_ci*Dz1*d10_exp0))/Dz1);
10699 : 0 : DQ_j1_Vb_ci=((cjs0_t*(-DCln2_Vb_ci*Dz1*d10_exp0))/Dz1);
10700 : 0 : DQ_j1_Vbp_ci=((cjs0_t*(-DCln2_Vbp_ci*Dz1*d10_exp0))/Dz1);
10701 : 0 : DQ_j1_Vtnode_GND=(((cjs0_t_Vtnode_GND*(1.0-d00_exp0))+(cjs0_t*(-DCln2_Vtnode_GND*Dz1*d10_exp0)))/Dz1);
10702 : 0 : DQ_j1_Vbi_ci=((cjs0_t*(-DCln2_Vbi_ci*Dz1*d10_exp0))/Dz1);
10703 : : #endif
10704 : 0 : DQ_j1=((cjs0_t*(1.0-d00_exp0))/Dz1);
10705 : : }
10706 : : #endif
10707 : : #if defined(_DYNAMIC)
10708 : : {
10709 : 0 : double m00_exp(d00_exp0,(DCln1*Dzr1))
10710 : : #if defined(_DERIVATE)
10711 : : #define d10_exp0 d00_exp0
10712 : : #endif
10713 : : #if defined(_DERIVATE)
10714 : 0 : DQ_j2_Vsi_ci=((DC_c*(-DCln1_Vsi_ci*Dzr1*d10_exp0))/Dzr1);
10715 : 0 : DQ_j2_Vb_ci=((DC_c*(-DCln1_Vb_ci*Dzr1*d10_exp0))/Dzr1);
10716 : 0 : DQ_j2_Vbp_ci=((DC_c*(-DCln1_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
10717 : 0 : DQ_j2_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln1_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
10718 : 0 : DQ_j2_Vbi_ci=((DC_c*(-DCln1_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
10719 : : #endif
10720 : 0 : DQ_j2=((DC_c*(1.0-d00_exp0))/Dzr1);
10721 : : }
10722 : : #endif
10723 : : #if defined(_DYNAMIC)
10724 : : {
10725 : 0 : double m00_exp(d00_exp0,(DCln2*Dzr1))
10726 : : #if defined(_DERIVATE)
10727 : : #define d10_exp0 d00_exp0
10728 : : #endif
10729 : : #if defined(_DERIVATE)
10730 : 0 : DQ_j3_Vsi_ci=((DC_c*(-DCln2_Vsi_ci*Dzr1*d10_exp0))/Dzr1);
10731 : 0 : DQ_j3_Vb_ci=((DC_c*(-DCln2_Vb_ci*Dzr1*d10_exp0))/Dzr1);
10732 : 0 : DQ_j3_Vbp_ci=((DC_c*(-DCln2_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
10733 : 0 : DQ_j3_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln2_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
10734 : 0 : DQ_j3_Vbi_ci=((DC_c*(-DCln2_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
10735 : : #endif
10736 : 0 : DQ_j3=((DC_c*(1.0-d00_exp0))/Dzr1);
10737 : : }
10738 : : #endif
10739 : : #if defined(_DYNAMIC)
10740 : : #if defined(_DERIVATE)
10741 : 0 : Qjs_Vbp_ei=0.0;
10742 : 0 : Qjs_Vbi_ei=0.0;
10743 : 0 : Qjs_Vsi_ci=(((DQ_j1_Vsi_ci+DQ_j2_Vsi_ci)-DQ_j3_Vsi_ci)*vds_t+(DC_max*Dv_j4_Vsi_ci));
10744 : 0 : Qjs_Vb_ci=(((DQ_j1_Vb_ci+DQ_j2_Vb_ci)-DQ_j3_Vb_ci)*vds_t+(DC_max*Dv_j4_Vb_ci));
10745 : 0 : Qjs_Vbp_ci=(((DQ_j1_Vbp_ci+DQ_j2_Vbp_ci)-DQ_j3_Vbp_ci)*vds_t+(DC_max*Dv_j4_Vbp_ci));
10746 : 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)));
10747 : 0 : Qjs_Vbi_ci=(((DQ_j1_Vbi_ci+DQ_j2_Vbi_ci)-DQ_j3_Vbi_ci)*vds_t+(DC_max*Dv_j4_Vbi_ci));
10748 : : #endif
10749 : 0 : Qjs=((((DQ_j1+DQ_j2)-DQ_j3)*vds_t)+(DC_max*Dv_j4));
10750 : : #endif
10751 : : }
10752 : : else
10753 : : {
10754 : : #if defined(_DYNAMIC)
10755 : 0 : c_dummy=0.0;
10756 : : #endif
10757 : : #if defined(_DYNAMIC)
10758 : : #if defined(_DERIVATE)
10759 : 0 : Qjs_Vbp_ei=0.0;
10760 : 0 : Qjs_Vbi_ei=0.0;
10761 : 0 : Qjs_Vsi_ci=0.0;
10762 : 0 : Qjs_Vb_ci=0.0;
10763 : 0 : Qjs_Vbp_ci=0.0;
10764 : 0 : Qjs_Vtnode_GND=0.0;
10765 : 0 : Qjs_Vbi_ci=0.0;
10766 : : #endif
10767 : 0 : Qjs=0.0;
10768 : : #endif
10769 : : }
10770 : : #endif /* if (...) */
10771 : : }
10772 : : else
10773 : : {
10774 : : #ifdef _DYNAMIC
10775 [ # # ]: 0 : if
10776 : : (cjs0_t>0.0)
10777 : : {
10778 : : #if defined(_DYNAMIC)
10779 : : {
10780 : 0 : double m00_logE(d00_logE0,2.4)
10781 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zs))
10782 : : #if defined(_DERIVATE)
10783 : 0 : DFV_f_Vtnode_GND=vds_t_Vtnode_GND*(1.0-d00_exp1);
10784 : : #endif
10785 : 0 : DFV_f=(vds_t*(1.0-d00_exp1));
10786 : : }
10787 : : #endif
10788 : : #if defined(_DYNAMIC)
10789 : : #if defined(_DERIVATE)
10790 : 0 : DFv_e_Vsi_ci=((-1.0)/VT);
10791 : 0 : DFv_e_Vb_ci=0.0;
10792 : 0 : DFv_e_Vbp_ci=0.0;
10793 : 0 : DFv_e_Vbp_ei=0.0;
10794 : 0 : DFv_e_Vbi_ci=0.0;
10795 [ # # ]: 0 : DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(si,ci))*VT_Vtnode_GND)/VT/VT);
10796 : 0 : DFv_e_Vbi_ei=0.0;
10797 : : #endif
10798 [ # # ]: 0 : DFv_e=((DFV_f-BP(si,ci))/VT);
10799 : : #endif
10800 : : #if defined(_DYNAMIC)
10801 : : {
10802 : 0 : double m00_sqrt(d00_sqrt0,((DFv_e*DFv_e)+1.921812))
10803 : : #if defined(_DERIVATE)
10804 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((DFv_e*DFv_e)+1.921812))
10805 : : #endif
10806 : : #if defined(_DERIVATE)
10807 : 0 : DFs_q_Vsi_ci=((DFv_e_Vsi_ci*DFv_e)+(DFv_e*DFv_e_Vsi_ci))*d10_sqrt0;
10808 : 0 : DFs_q_Vb_ci=((DFv_e_Vb_ci*DFv_e)+(DFv_e*DFv_e_Vb_ci))*d10_sqrt0;
10809 : 0 : DFs_q_Vbp_ci=((DFv_e_Vbp_ci*DFv_e)+(DFv_e*DFv_e_Vbp_ci))*d10_sqrt0;
10810 : 0 : DFs_q_Vbp_ei=((DFv_e_Vbp_ei*DFv_e)+(DFv_e*DFv_e_Vbp_ei))*d10_sqrt0;
10811 : 0 : DFs_q_Vbi_ci=((DFv_e_Vbi_ci*DFv_e)+(DFv_e*DFv_e_Vbi_ci))*d10_sqrt0;
10812 : 0 : DFs_q_Vtnode_GND=((DFv_e_Vtnode_GND*DFv_e)+(DFv_e*DFv_e_Vtnode_GND))*d10_sqrt0;
10813 : 0 : DFs_q_Vbi_ei=((DFv_e_Vbi_ei*DFv_e)+(DFv_e*DFv_e_Vbi_ei))*d10_sqrt0;
10814 : : #endif
10815 : 0 : DFs_q=d00_sqrt0;
10816 : : }
10817 : : #endif
10818 : : #if defined(_DYNAMIC)
10819 : : #if defined(_DERIVATE)
10820 : 0 : DFs_q2_Vsi_ci=(DFv_e_Vsi_ci+DFs_q_Vsi_ci)*0.5;
10821 : 0 : DFs_q2_Vb_ci=(DFv_e_Vb_ci+DFs_q_Vb_ci)*0.5;
10822 : 0 : DFs_q2_Vbp_ci=(DFv_e_Vbp_ci+DFs_q_Vbp_ci)*0.5;
10823 : 0 : DFs_q2_Vbp_ei=(DFv_e_Vbp_ei+DFs_q_Vbp_ei)*0.5;
10824 : 0 : DFs_q2_Vbi_ci=(DFv_e_Vbi_ci+DFs_q_Vbi_ci)*0.5;
10825 : 0 : DFs_q2_Vtnode_GND=(DFv_e_Vtnode_GND+DFs_q_Vtnode_GND)*0.5;
10826 : 0 : DFs_q2_Vbi_ei=(DFv_e_Vbi_ei+DFs_q_Vbi_ei)*0.5;
10827 : : #endif
10828 : 0 : DFs_q2=((DFv_e+DFs_q)*0.5);
10829 : : #endif
10830 : : #if defined(_DYNAMIC)
10831 : : #if defined(_DERIVATE)
10832 : 0 : DFv_j_Vsi_ci=(-(VT*DFs_q2_Vsi_ci));
10833 : 0 : DFv_j_Vb_ci=(-(VT*DFs_q2_Vb_ci));
10834 : 0 : DFv_j_Vbp_ci=(-(VT*DFs_q2_Vbp_ci));
10835 : 0 : DFv_j_Vbp_ei=(-(VT*DFs_q2_Vbp_ei));
10836 : 0 : DFv_j_Vbi_ci=(-(VT*DFs_q2_Vbi_ci));
10837 : 0 : DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*DFs_q2)+(VT*DFs_q2_Vtnode_GND)));
10838 : 0 : DFv_j_Vbi_ei=(-(VT*DFs_q2_Vbi_ei));
10839 : : #endif
10840 : 0 : DFv_j=(DFV_f-(VT*DFs_q2));
10841 : : #endif
10842 : : #if defined(_DYNAMIC)
10843 : : #if defined(_DERIVATE)
10844 : 0 : DFdvj_dv_Vsi_ci=((DFs_q2_Vsi_ci*DFs_q-DFs_q2*DFs_q_Vsi_ci)/DFs_q/DFs_q);
10845 : 0 : DFdvj_dv_Vb_ci=((DFs_q2_Vb_ci*DFs_q-DFs_q2*DFs_q_Vb_ci)/DFs_q/DFs_q);
10846 : 0 : DFdvj_dv_Vbp_ci=((DFs_q2_Vbp_ci*DFs_q-DFs_q2*DFs_q_Vbp_ci)/DFs_q/DFs_q);
10847 : 0 : DFdvj_dv_Vbp_ei=((DFs_q2_Vbp_ei*DFs_q-DFs_q2*DFs_q_Vbp_ei)/DFs_q/DFs_q);
10848 : 0 : DFdvj_dv_Vbi_ci=((DFs_q2_Vbi_ci*DFs_q-DFs_q2*DFs_q_Vbi_ci)/DFs_q/DFs_q);
10849 : 0 : DFdvj_dv_Vtnode_GND=((DFs_q2_Vtnode_GND*DFs_q-DFs_q2*DFs_q_Vtnode_GND)/DFs_q/DFs_q);
10850 : 0 : DFdvj_dv_Vbi_ei=((DFs_q2_Vbi_ei*DFs_q-DFs_q2*DFs_q_Vbi_ei)/DFs_q/DFs_q);
10851 : : #endif
10852 : 0 : DFdvj_dv=(DFs_q2/DFs_q);
10853 : : #endif
10854 : : #if defined(_DYNAMIC)
10855 : : {
10856 : 0 : double m00_logE(d00_logE0,(1.0-(DFv_j/vds_t)))
10857 : : #if defined(_DERIVATE)
10858 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vds_t)))
10859 : : #endif
10860 : : #if defined(_DERIVATE)
10861 : 0 : DFb_Vsi_ci=(-(DFv_j_Vsi_ci/vds_t))*d10_logE0;
10862 : 0 : DFb_Vb_ci=(-(DFv_j_Vb_ci/vds_t))*d10_logE0;
10863 : 0 : DFb_Vbp_ci=(-(DFv_j_Vbp_ci/vds_t))*d10_logE0;
10864 : 0 : DFb_Vbp_ei=(-(DFv_j_Vbp_ei/vds_t))*d10_logE0;
10865 : 0 : DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vds_t))*d10_logE0;
10866 : 0 : DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vds_t-DFv_j*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0;
10867 : 0 : DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vds_t))*d10_logE0;
10868 : : #endif
10869 : 0 : DFb=d00_logE0;
10870 : : }
10871 : : #endif
10872 : : #if defined(_DYNAMIC)
10873 : : {
10874 : 0 : double m00_exp(d00_exp0,((-zs)*DFb))
10875 : : #if defined(_DERIVATE)
10876 : : #define d10_exp0 d00_exp0
10877 : : #endif
10878 : : #if defined(_DERIVATE)
10879 : 0 : DFC_j1_Vsi_ci=(((cjs0_t*((-zs)*DFb_Vsi_ci)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vsi_ci));
10880 : 0 : DFC_j1_Vb_ci=(((cjs0_t*((-zs)*DFb_Vb_ci)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vb_ci));
10881 : 0 : DFC_j1_Vbp_ci=(((cjs0_t*((-zs)*DFb_Vbp_ci)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vbp_ci));
10882 : 0 : DFC_j1_Vbp_ei=(((cjs0_t*((-zs)*DFb_Vbp_ei)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vbp_ei));
10883 : 0 : DFC_j1_Vbi_ci=(((cjs0_t*((-zs)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vbi_ci));
10884 : 0 : 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));
10885 : 0 : DFC_j1_Vbi_ei=(((cjs0_t*((-zs)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
10886 : : #endif
10887 : 0 : DFC_j1=((cjs0_t*d00_exp0)*DFdvj_dv);
10888 : : }
10889 : : #endif
10890 : : #if defined(_DYNAMIC)
10891 : 0 : c_dummy=(DFC_j1+((2.4*cjs0_t)*(1.0-DFdvj_dv)));
10892 : : #endif
10893 : : #if defined(_DYNAMIC)
10894 : : {
10895 : 0 : double m00_exp(d00_exp0,(DFb*(1.0-zs)))
10896 : : #if defined(_DERIVATE)
10897 : : #define d10_exp0 d00_exp0
10898 : : #endif
10899 : : #if defined(_DERIVATE)
10900 : 0 : DFQ_j_Vsi_ci=(((cjs0_t*vds_t)*(-DFb_Vsi_ci*(1.0-zs)*d10_exp0))/(1.0-zs));
10901 : 0 : DFQ_j_Vb_ci=(((cjs0_t*vds_t)*(-DFb_Vb_ci*(1.0-zs)*d10_exp0))/(1.0-zs));
10902 : 0 : DFQ_j_Vbp_ci=(((cjs0_t*vds_t)*(-DFb_Vbp_ci*(1.0-zs)*d10_exp0))/(1.0-zs));
10903 : 0 : DFQ_j_Vbp_ei=(((cjs0_t*vds_t)*(-DFb_Vbp_ei*(1.0-zs)*d10_exp0))/(1.0-zs));
10904 : 0 : DFQ_j_Vbi_ci=(((cjs0_t*vds_t)*(-DFb_Vbi_ci*(1.0-zs)*d10_exp0))/(1.0-zs));
10905 : 0 : 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));
10906 : 0 : DFQ_j_Vbi_ei=(((cjs0_t*vds_t)*(-DFb_Vbi_ei*(1.0-zs)*d10_exp0))/(1.0-zs));
10907 : : #endif
10908 : 0 : DFQ_j=(((cjs0_t*vds_t)*(1.0-d00_exp0))/(1.0-zs));
10909 : : }
10910 : : #endif
10911 : : #if defined(_DYNAMIC)
10912 : : #if defined(_DERIVATE)
10913 : 0 : Qjs_Vbp_ei=(DFQ_j_Vbp_ei+((2.4*cjs0_t)*(-DFv_j_Vbp_ei)));
10914 : 0 : Qjs_Vbi_ei=(DFQ_j_Vbi_ei+((2.4*cjs0_t)*(-DFv_j_Vbi_ei)));
10915 : 0 : Qjs_Vsi_ci=(DFQ_j_Vsi_ci+((2.4*cjs0_t)*(1.0-DFv_j_Vsi_ci)));
10916 : 0 : Qjs_Vb_ci=(DFQ_j_Vb_ci+((2.4*cjs0_t)*(-DFv_j_Vb_ci)));
10917 : 0 : Qjs_Vbp_ci=(DFQ_j_Vbp_ci+((2.4*cjs0_t)*(-DFv_j_Vbp_ci)));
10918 [ # # ]: 0 : Qjs_Vtnode_GND=(DFQ_j_Vtnode_GND+(((2.4*cjs0_t_Vtnode_GND)*(BP(si,ci)-DFv_j))+((2.4*cjs0_t)*(-DFv_j_Vtnode_GND))));
10919 : 0 : Qjs_Vbi_ci=(DFQ_j_Vbi_ci+((2.4*cjs0_t)*(-DFv_j_Vbi_ci)));
10920 : : #endif
10921 [ # # ]: 0 : Qjs=(DFQ_j+((2.4*cjs0_t)*(BP(si,ci)-DFv_j)));
10922 : : #endif
10923 : : }
10924 : : else
10925 : : {
10926 : : #if defined(_DYNAMIC)
10927 : 0 : c_dummy=0.0;
10928 : : #endif
10929 : : #if defined(_DYNAMIC)
10930 : : #if defined(_DERIVATE)
10931 : 0 : Qjs_Vbp_ei=0.0;
10932 : 0 : Qjs_Vbi_ei=0.0;
10933 : 0 : Qjs_Vsi_ci=0.0;
10934 : 0 : Qjs_Vb_ci=0.0;
10935 : 0 : Qjs_Vbp_ci=0.0;
10936 : 0 : Qjs_Vtnode_GND=0.0;
10937 : 0 : Qjs_Vbi_ci=0.0;
10938 : : #endif
10939 : 0 : Qjs=0.0;
10940 : : #endif
10941 : : }
10942 : : #endif /* if (...) */
10943 : : }
10944 : : #endif /* if (...) */
10945 [ # # ]: 0 : if
10946 : : (itss>0.0)
10947 : : {
10948 : : #if defined(_DERIVATE)
10949 : 0 : HSUM_Vtnode_GND=(msf*VT_Vtnode_GND);
10950 : : #endif
10951 : 0 : HSUM=(msf*VT);
10952 : : {
10953 [ # # ][ # # ]: 0 : double m00_limexp(d00_limexp0,(BP(bp,ci)/HSUM))
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # # #
# # # # ]
10954 : : #if defined(_DERIVATE)
10955 [ # # ][ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,(BP(bp,ci)/HSUM))
10956 : : #endif
10957 : : #if defined(_DERIVATE)
10958 : 0 : HSa_Vbp_ci=(1/HSUM)*d10_limexp0;
10959 [ # # ]: 0 : HSa_Vtnode_GND=(-BP(bp,ci)*HSUM_Vtnode_GND/HSUM/HSUM)*d10_limexp0;
10960 : : #endif
10961 : 0 : HSa=d00_limexp0;
10962 : : }
10963 : : {
10964 [ # # ][ # # ]: 0 : double m00_limexp(d00_limexp0,(BP(si,ci)/HSUM))
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # # #
# # # # ]
10965 : : #if defined(_DERIVATE)
10966 [ # # ][ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,(BP(si,ci)/HSUM))
10967 : : #endif
10968 : : #if defined(_DERIVATE)
10969 : 0 : HSb_Vsi_ci=(1/HSUM)*d10_limexp0;
10970 [ # # ]: 0 : HSb_Vtnode_GND=(-BP(si,ci)*HSUM_Vtnode_GND/HSUM/HSUM)*d10_limexp0;
10971 : : #endif
10972 : 0 : HSb=d00_limexp0;
10973 : : }
10974 : : #if defined(_DERIVATE)
10975 : 0 : HSI_Tsu_Vtnode_GND=((itss_t_Vtnode_GND*(HSa-HSb))+(itss_t*(HSa_Vtnode_GND-HSb_Vtnode_GND)));
10976 : 0 : HSI_Tsu_Vbp_ci=(itss_t*HSa_Vbp_ci);
10977 : 0 : HSI_Tsu_Vsi_ci=(itss_t*(-HSb_Vsi_ci));
10978 : : #endif
10979 : 0 : HSI_Tsu=(itss_t*(HSa-HSb));
10980 : : #ifdef _DYNAMIC
10981 [ # # ]: 0 : if
10982 : : (tsf>0.0)
10983 : : {
10984 : : #if defined(_DYNAMIC)
10985 : : #if defined(_DERIVATE)
10986 : 0 : Qdsu_Vtnode_GND=((((tsf_t_Vtnode_GND*itss_t)+(tsf_t*itss_t_Vtnode_GND))*HSa)+((tsf_t*itss_t)*HSa_Vtnode_GND));
10987 : 0 : Qdsu_Vbp_ci=((tsf_t*itss_t)*HSa_Vbp_ci);
10988 : : #endif
10989 : 0 : Qdsu=((tsf_t*itss_t)*HSa);
10990 : : #endif
10991 : : }
10992 : : else
10993 : : {
10994 : : #if defined(_DYNAMIC)
10995 : : #if defined(_DERIVATE)
10996 : 0 : Qdsu_Vtnode_GND=0.0;
10997 : 0 : Qdsu_Vbp_ci=0.0;
10998 : : #endif
10999 : 0 : Qdsu=0.0;
11000 : : #endif
11001 : : }
11002 : : #endif /* if (...) */
11003 : : }
11004 : : else
11005 : : {
11006 : : #if defined(_DERIVATE)
11007 : 0 : HSI_Tsu_Vtnode_GND=0.0;
11008 : 0 : HSI_Tsu_Vbp_ci=0.0;
11009 : 0 : HSI_Tsu_Vsi_ci=0.0;
11010 : : #endif
11011 : 0 : HSI_Tsu=0.0;
11012 : : #if defined(_DYNAMIC)
11013 : : #if defined(_DERIVATE)
11014 : 0 : Qdsu_Vtnode_GND=0.0;
11015 : 0 : Qdsu_Vbp_ci=0.0;
11016 : : #endif
11017 : 0 : Qdsu=0.0;
11018 : : #endif
11019 : : }
11020 : : #if defined(_DYNAMIC)
11021 : : #if defined(_DERIVATE)
11022 : 0 : betad_Vtnode_GND=ibei_Vtnode_GND;
11023 : 0 : betad_Vbi_ei=ibei_Vbi_ei;
11024 : : #endif
11025 : 0 : betad=ibei;
11026 : : #endif
11027 : : #ifdef _DYNAMIC
11028 [ # # ]: 0 : if
11029 : : (betad>0.0)
11030 : : {
11031 : : #if defined(_DYNAMIC)
11032 : 0 : betadin=betad;
11033 : : #endif
11034 : : #if defined(_DYNAMIC)
11035 : : #if defined(_DERIVATE)
11036 : 0 : betan_Vci_ei=it_Vci_ei;
11037 : 0 : betan_Vtnode_GND=it_Vtnode_GND;
11038 : 0 : betan_Vbi_ei=it_Vbi_ei;
11039 : 0 : betan_Vbi_ci=it_Vbi_ci;
11040 : : #endif
11041 : 0 : betan=it;
11042 : : #endif
11043 : : #if defined(_DYNAMIC)
11044 : : #if defined(_DERIVATE)
11045 : 0 : betadc_Vci_ei=(betan_Vci_ei/betad);
11046 : 0 : betadc_Vtnode_GND=((betan_Vtnode_GND*betad-betan*betad_Vtnode_GND)/betad/betad);
11047 : 0 : betadc_Vbi_ei=((betan_Vbi_ei*betad-betan*betad_Vbi_ei)/betad/betad);
11048 : 0 : betadc_Vbi_ci=(betan_Vbi_ci/betad);
11049 : : #endif
11050 : 0 : betadc=(betan/betad);
11051 : : #endif
11052 : : }
11053 : : else
11054 : : {
11055 : : #if defined(_DYNAMIC)
11056 : : #if defined(_DERIVATE)
11057 : 0 : betadc_Vci_ei=0.0;
11058 : 0 : betadc_Vtnode_GND=0.0;
11059 : 0 : betadc_Vbi_ei=0.0;
11060 : 0 : betadc_Vbi_ci=0.0;
11061 : : #endif
11062 : 0 : betadc=0.0;
11063 : : #endif
11064 : : }
11065 : : #endif /* if (...) */
11066 : : #if defined(_DERIVATE)
11067 : 0 : DIOY_Vsi_ci=(1/(msc*VT));
11068 : 0 : DIOY_Vbp_ci=0.0;
11069 : 0 : DIOY_Vbp_ei=0.0;
11070 : 0 : DIOY_Vbi_ci=0.0;
11071 : 0 : DIOY_Vbi_ei=0.0;
11072 [ # # ]: 0 : DIOY_Vtnode_GND=(-BP(si,ci)*(msc*VT_Vtnode_GND)/(msc*VT)/(msc*VT));
11073 : : #endif
11074 [ # # ]: 0 : DIOY=(BP(si,ci)/(msc*VT));
11075 [ # # ]: 0 : if
11076 : : (iscs>0.0)
11077 : : {
11078 [ # # ]: 0 : if
11079 : : (DIOY>80.0)
11080 : : {
11081 : : #if defined(_DERIVATE)
11082 : 0 : le_Vsi_ci=DIOY_Vsi_ci;
11083 : 0 : le_Vbp_ci=DIOY_Vbp_ci;
11084 : 0 : le_Vbp_ei=DIOY_Vbp_ei;
11085 : 0 : le_Vbi_ci=DIOY_Vbi_ci;
11086 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
11087 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
11088 : : #endif
11089 : 0 : le=(1+(DIOY-80.0));
11090 : : #if defined(_DERIVATE)
11091 : 0 : DIOY_Vsi_ci=0.0;
11092 : 0 : DIOY_Vbp_ci=0.0;
11093 : 0 : DIOY_Vbp_ei=0.0;
11094 : 0 : DIOY_Vbi_ci=0.0;
11095 : 0 : DIOY_Vbi_ei=0.0;
11096 : 0 : DIOY_Vtnode_GND=0.0;
11097 : : #endif
11098 : 0 : DIOY=80.0;
11099 : : }
11100 : : else
11101 : : {
11102 : : #if defined(_DERIVATE)
11103 : 0 : le_Vsi_ci=0.0;
11104 : 0 : le_Vbp_ci=0.0;
11105 : 0 : le_Vbp_ei=0.0;
11106 : 0 : le_Vbi_ci=0.0;
11107 : 0 : le_Vbi_ei=0.0;
11108 : 0 : le_Vtnode_GND=0.0;
11109 : : #endif
11110 : 0 : le=1;
11111 : : }
11112 : : {
11113 [ # # ]: 0 : double m00_limexp(d00_limexp0,DIOY)
11114 : : #if defined(_DERIVATE)
11115 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
11116 : : #endif
11117 : : #if defined(_DERIVATE)
11118 : 0 : le_Vsi_ci=((le_Vsi_ci*d00_limexp0)+(le*DIOY_Vsi_ci*d10_limexp0));
11119 : 0 : le_Vbp_ci=((le_Vbp_ci*d00_limexp0)+(le*DIOY_Vbp_ci*d10_limexp0));
11120 : 0 : le_Vbp_ei=((le_Vbp_ei*d00_limexp0)+(le*DIOY_Vbp_ei*d10_limexp0));
11121 : 0 : le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
11122 : 0 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
11123 : 0 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
11124 : : #endif
11125 : 0 : le=(le*d00_limexp0);
11126 : : }
11127 : : #if defined(_DERIVATE)
11128 : 0 : ijsc_Vtnode_GND=((iscs_t_Vtnode_GND*(le-1.0))+(iscs_t*le_Vtnode_GND));
11129 : 0 : ijsc_Vsi_ci=(iscs_t*le_Vsi_ci);
11130 : 0 : ijsc_Vbp_ci=(iscs_t*le_Vbp_ci);
11131 : 0 : ijsc_Vbp_ei=(iscs_t*le_Vbp_ei);
11132 : 0 : ijsc_Vbi_ci=(iscs_t*le_Vbi_ci);
11133 : 0 : ijsc_Vbi_ei=(iscs_t*le_Vbi_ei);
11134 : : #endif
11135 : 0 : ijsc=(iscs_t*(le-1.0));
11136 [ # # ]: 0 : if
11137 : : (DIOY<=(-14.0))
11138 : : {
11139 : : #if defined(_DERIVATE)
11140 : 0 : ijsc_Vtnode_GND=(-iscs_t_Vtnode_GND);
11141 : 0 : ijsc_Vsi_ci=0.0;
11142 : 0 : ijsc_Vbp_ci=0.0;
11143 : 0 : ijsc_Vbp_ei=0.0;
11144 : 0 : ijsc_Vbi_ci=0.0;
11145 : 0 : ijsc_Vbi_ei=0.0;
11146 : : #endif
11147 : 0 : ijsc=(-iscs_t);
11148 : : }
11149 : : }
11150 : : else
11151 : : {
11152 : : #if defined(_DERIVATE)
11153 : 0 : ijsc_Vtnode_GND=0.0;
11154 : 0 : ijsc_Vsi_ci=0.0;
11155 : 0 : ijsc_Vbp_ci=0.0;
11156 : 0 : ijsc_Vbp_ei=0.0;
11157 : 0 : ijsc_Vbi_ci=0.0;
11158 : 0 : ijsc_Vbi_ei=0.0;
11159 : : #endif
11160 : 0 : ijsc=0.0;
11161 : : }
11162 [ # # ][ # # ]: 0 : if
11163 : : ((flsh==1)&&(rth>=0.001))
11164 : : {
11165 : : #if defined(_DERIVATE)
11166 : 0 : pterm_Vb_bp=0.0;
11167 : 0 : pterm_Vci_c=0.0;
11168 : 0 : pterm_Vei_e=0.0;
11169 : 0 : pterm_Vbp_bi=0.0;
11170 : 0 : pterm_Vbp_ei=0.0;
11171 : 0 : pterm_Vbp_ci=0.0;
11172 : 0 : pterm_Vsi_ci=0.0;
11173 [ # # ][ # # ]: 0 : pterm_Vci_ei=((it+(it_Vci_ei*BP(ci,ei)))+((vdci_t-BP(bi,ci))*iavl_Vci_ei));
[ # # ]
11174 [ # # ][ # # ]: 0 : pterm_Vtnode_GND=((BP(ci,ei)*it_Vtnode_GND)+((vdci_t_Vtnode_GND*iavl)+((vdci_t-BP(bi,ci))*iavl_Vtnode_GND)));
[ # # ]
11175 [ # # ][ # # ]: 0 : pterm_Vbi_ei=((BP(ci,ei)*it_Vbi_ei)+((vdci_t-BP(bi,ci))*iavl_Vbi_ei));
[ # # ]
11176 [ # # ][ # # ]: 0 : pterm_Vbi_ci=((BP(ci,ei)*it_Vbi_ci)+(((-1.0)*iavl)+((vdci_t-BP(bi,ci))*iavl_Vbi_ci)));
[ # # ]
11177 : : #endif
11178 [ # # ][ # # ]: 0 : pterm=((BP(ci,ei)*it)+((vdci_t-BP(bi,ci))*iavl));
[ # # ]
11179 : : }
11180 : : else
11181 : : {
11182 [ # # ][ # # ]: 0 : if
11183 : : ((flsh==2)&&(rth>=0.001))
11184 : : {
11185 : : #if defined(_DERIVATE)
11186 : 0 : pterm_Vb_bp=0.0;
11187 : 0 : pterm_Vci_c=0.0;
11188 : 0 : pterm_Vei_e=0.0;
11189 : 0 : pterm_Vbp_bi=0.0;
11190 [ # # ][ # # ]: 0 : pterm_Vbp_ei=((((ibep_Vbp_ei*BP(bp,ei))+ibep)+ijbcx_Vbp_ei*BP(bp,ci))+ijsc_Vbp_ei*BP(si,ci));
[ # # ][ # # ]
[ # # ]
11191 [ # # ][ # # ]: 0 : pterm_Vbp_ci=(((ijbcx_Vbp_ci*BP(bp,ci))+ijbcx)+ijsc_Vbp_ci*BP(si,ci));
[ # # ]
11192 [ # # ]: 0 : pterm_Vsi_ci=((ijsc_Vsi_ci*BP(si,ci))+ijsc);
11193 [ # # ][ # # ]: 0 : pterm_Vci_ei=((it+(it_Vci_ei*BP(ci,ei)))+((vdci_t-BP(bi,ci))*iavl_Vci_ei));
[ # # ]
11194 [ # # ][ # # ]: 0 : pterm_Vtnode_GND=(((((((BP(ci,ei)*it_Vtnode_GND)+((vdci_t_Vtnode_GND*iavl)+((vdci_t-BP(bi,ci))*iavl_Vtnode_GND)))+ibei_Vtnode_GND*BP(bi,ei))+ibci_Vtnode_GND*BP(bi,ci))+ibep_Vtnode_GND*BP(bp,ei))+ijbcx_Vtnode_GND*BP(bp,ci))+ijsc_Vtnode_GND*BP(si,ci));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
11195 [ # # ][ # # ]: 0 : pterm_Vbi_ei=(((((((BP(ci,ei)*it_Vbi_ei)+((vdci_t-BP(bi,ci))*iavl_Vbi_ei))+((ibei_Vbi_ei*BP(bi,ei))+ibei))+ibci_Vbi_ei*BP(bi,ci))+ibep_Vbi_ei*BP(bp,ei))+ijbcx_Vbi_ei*BP(bp,ci))+ijsc_Vbi_ei*BP(si,ci));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
11196 [ # # ][ # # ]: 0 : pterm_Vbi_ci=((((((BP(ci,ei)*it_Vbi_ci)+(((-1.0)*iavl)+((vdci_t-BP(bi,ci))*iavl_Vbi_ci)))+((ibci_Vbi_ci*BP(bi,ci))+ibci))+ibep_Vbi_ci*BP(bp,ei))+ijbcx_Vbi_ci*BP(bp,ci))+ijsc_Vbi_ci*BP(si,ci));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
11197 : : #endif
11198 [ # # ][ # # ]: 0 : pterm=(((((((BP(ci,ei)*it)+((vdci_t-BP(bi,ci))*iavl))+(ibei*BP(bi,ei)))+(ibci*BP(bi,ci)))+(ibep*BP(bp,ei)))+(ijbcx*BP(bp,ci)))+(ijsc*BP(si,ci)));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
11199 [ # # ]: 0 : if
11200 : : (rbi>=0.001)
11201 : : {
11202 : : #if defined(_DERIVATE)
11203 : 0 : pterm_Vb_bp=0.0;
11204 : 0 : pterm_Vci_c=0.0;
11205 : 0 : pterm_Vei_e=0.0;
11206 [ # # ][ # # ]: 0 : pterm_Vbp_bi=(pterm_Vbp_bi+((BP(bp,bi)+BP(bp,bi))/rbi));
[ # # ]
11207 : 0 : pterm_Vbp_ei=pterm_Vbp_ei;
11208 : 0 : pterm_Vbp_ci=pterm_Vbp_ci;
11209 : 0 : pterm_Vsi_ci=pterm_Vsi_ci;
11210 [ # # ][ # # ]: 0 : pterm_Vci_ei=(pterm_Vci_ei+(-(BP(bp,bi)*BP(bp,bi))*rbi_Vci_ei/rbi/rbi));
[ # # ]
11211 [ # # ][ # # ]: 0 : pterm_Vtnode_GND=(pterm_Vtnode_GND+(-(BP(bp,bi)*BP(bp,bi))*rbi_Vtnode_GND/rbi/rbi));
[ # # ]
11212 [ # # ][ # # ]: 0 : pterm_Vbi_ei=(pterm_Vbi_ei+(-(BP(bp,bi)*BP(bp,bi))*rbi_Vbi_ei/rbi/rbi));
[ # # ]
11213 [ # # ][ # # ]: 0 : pterm_Vbi_ci=(pterm_Vbi_ci+(-(BP(bp,bi)*BP(bp,bi))*rbi_Vbi_ci/rbi/rbi));
[ # # ]
11214 : : #endif
11215 [ # # ][ # # ]: 0 : pterm=(pterm+((BP(bp,bi)*BP(bp,bi))/rbi));
[ # # ]
11216 : : }
11217 [ # # ]: 0 : if
11218 : : (re_t>=0.001)
11219 : : {
11220 : : #if defined(_DERIVATE)
11221 : 0 : pterm_Vb_bp=0.0;
11222 : 0 : pterm_Vci_c=0.0;
11223 [ # # ][ # # ]: 0 : pterm_Vei_e=(pterm_Vei_e+((BP(ei,e)+BP(ei,e))/re_t));
[ # # ]
11224 : 0 : pterm_Vbp_bi=pterm_Vbp_bi;
11225 : 0 : pterm_Vbp_ei=pterm_Vbp_ei;
11226 : 0 : pterm_Vbp_ci=pterm_Vbp_ci;
11227 : 0 : pterm_Vsi_ci=pterm_Vsi_ci;
11228 : 0 : pterm_Vci_ei=pterm_Vci_ei;
11229 [ # # ][ # # ]: 0 : pterm_Vtnode_GND=(pterm_Vtnode_GND+(-(BP(ei,e)*BP(ei,e))*re_t_Vtnode_GND/re_t/re_t));
[ # # ]
11230 : 0 : pterm_Vbi_ei=pterm_Vbi_ei;
11231 : 0 : pterm_Vbi_ci=pterm_Vbi_ci;
11232 : : #endif
11233 [ # # ][ # # ]: 0 : pterm=(pterm+((BP(ei,e)*BP(ei,e))/re_t));
[ # # ]
11234 : : }
11235 [ # # ]: 0 : if
11236 : : (rcx_t>=0.001)
11237 : : {
11238 : : #if defined(_DERIVATE)
11239 : 0 : pterm_Vb_bp=0.0;
11240 [ # # ][ # # ]: 0 : pterm_Vci_c=(pterm_Vci_c+((BP(ci,c)+BP(ci,c))/rcx_t));
[ # # ]
11241 : 0 : pterm_Vei_e=pterm_Vei_e;
11242 : 0 : pterm_Vbp_bi=pterm_Vbp_bi;
11243 : 0 : pterm_Vbp_ei=pterm_Vbp_ei;
11244 : 0 : pterm_Vbp_ci=pterm_Vbp_ci;
11245 : 0 : pterm_Vsi_ci=pterm_Vsi_ci;
11246 : 0 : pterm_Vci_ei=pterm_Vci_ei;
11247 [ # # ][ # # ]: 0 : pterm_Vtnode_GND=(pterm_Vtnode_GND+(-(BP(ci,c)*BP(ci,c))*rcx_t_Vtnode_GND/rcx_t/rcx_t));
[ # # ]
11248 : 0 : pterm_Vbi_ei=pterm_Vbi_ei;
11249 : 0 : pterm_Vbi_ci=pterm_Vbi_ci;
11250 : : #endif
11251 [ # # ][ # # ]: 0 : pterm=(pterm+((BP(ci,c)*BP(ci,c))/rcx_t));
[ # # ]
11252 : : }
11253 [ # # ]: 0 : if
11254 : : (rbx_t>=0.001)
11255 : : {
11256 : : #if defined(_DERIVATE)
11257 [ # # ][ # # ]: 0 : pterm_Vb_bp=(pterm_Vb_bp+((BP(b,bp)+BP(b,bp))/rbx_t));
[ # # ]
11258 : 0 : pterm_Vci_c=pterm_Vci_c;
11259 : 0 : pterm_Vei_e=pterm_Vei_e;
11260 : 0 : pterm_Vbp_bi=pterm_Vbp_bi;
11261 : 0 : pterm_Vbp_ei=pterm_Vbp_ei;
11262 : 0 : pterm_Vbp_ci=pterm_Vbp_ci;
11263 : 0 : pterm_Vsi_ci=pterm_Vsi_ci;
11264 : 0 : pterm_Vci_ei=pterm_Vci_ei;
11265 [ # # ][ # # ]: 0 : pterm_Vtnode_GND=(pterm_Vtnode_GND+(-(BP(b,bp)*BP(b,bp))*rbx_t_Vtnode_GND/rbx_t/rbx_t));
[ # # ]
11266 : 0 : pterm_Vbi_ei=pterm_Vbi_ei;
11267 : 0 : pterm_Vbi_ci=pterm_Vbi_ci;
11268 : : #endif
11269 [ # # ][ # # ]: 0 : pterm=(pterm+((BP(b,bp)*BP(b,bp))/rbx_t));
[ # # ]
11270 : : }
11271 : : }
11272 : : }
11273 : : #if defined(_DERIVATE)
11274 : 0 : Itxf_Vxf2_GND=0.0;
11275 : 0 : Itxf_Vci_ei=itf_Vci_ei;
11276 : 0 : Itxf_Vtnode_GND=itf_Vtnode_GND;
11277 : 0 : Itxf_Vbi_ei=itf_Vbi_ei;
11278 : 0 : Itxf_Vbi_ci=itf_Vbi_ci;
11279 : : #endif
11280 : 0 : Itxf=itf;
11281 : : #if defined(_DYNAMIC)
11282 : : #if defined(_DERIVATE)
11283 : 0 : Qdeix_Vxf_GND=0.0;
11284 : 0 : Qdeix_Vci_ei=Qdei_Vci_ei;
11285 : 0 : Qdeix_Vtnode_GND=Qdei_Vtnode_GND;
11286 : 0 : Qdeix_Vbi_ci=Qdei_Vbi_ci;
11287 : 0 : Qdeix_Vbi_ei=Qdei_Vbi_ei;
11288 : : #endif
11289 : 0 : Qdeix=Qdei;
11290 : : #endif
11291 [ # # ][ # # ]: 0 : if
11292 : : ((flnqs!=0)&&(Tf!=0))
11293 : : {
11294 : : #if defined(_DERIVATE)
11295 : 0 : Vxf1_Vxf1_GND=1.0;
11296 : : #endif
11297 : 0 : Vxf1=NP(xf1);
11298 : : #if defined(_DERIVATE)
11299 : 0 : Vxf2_Vxf2_GND=1.0;
11300 : : #endif
11301 : 0 : Vxf2=NP(xf2);
11302 : : #if defined(_DERIVATE)
11303 : 0 : Ixf1_Vxf1_GND=0.0;
11304 : 0 : Ixf1_Vxf2_GND=(Vxf2_Vxf2_GND/Tf)*t0;
11305 : 0 : Ixf1_Vci_ei=(((-itf_Vci_ei)*Tf-(Vxf2-itf)*Tf_Vci_ei)/Tf/Tf)*t0;
11306 : 0 : Ixf1_Vtnode_GND=(((-itf_Vtnode_GND)*Tf-(Vxf2-itf)*Tf_Vtnode_GND)/Tf/Tf)*t0;
11307 : 0 : Ixf1_Vbi_ei=(((-itf_Vbi_ei)*Tf-(Vxf2-itf)*Tf_Vbi_ei)/Tf/Tf)*t0;
11308 : 0 : Ixf1_Vbi_ci=(((-itf_Vbi_ci)*Tf-(Vxf2-itf)*Tf_Vbi_ci)/Tf/Tf)*t0;
11309 : : #endif
11310 : 0 : Ixf1=(((Vxf2-itf)/Tf)*t0);
11311 : : #if defined(_DERIVATE)
11312 : 0 : Ixf2_Vxf2_GND=(Vxf2_Vxf2_GND/Tf)*t0;
11313 : 0 : Ixf2_Vxf1_GND=((-Vxf1_Vxf1_GND)/Tf)*t0;
11314 : 0 : Ixf2_Vci_ei=(-(Vxf2-Vxf1)*Tf_Vci_ei/Tf/Tf)*t0;
11315 : 0 : Ixf2_Vbi_ei=(-(Vxf2-Vxf1)*Tf_Vbi_ei/Tf/Tf)*t0;
11316 : 0 : Ixf2_Vtnode_GND=(-(Vxf2-Vxf1)*Tf_Vtnode_GND/Tf/Tf)*t0;
11317 : 0 : Ixf2_Vbi_ci=(-(Vxf2-Vxf1)*Tf_Vbi_ci/Tf/Tf)*t0;
11318 : : #endif
11319 : 0 : Ixf2=(((Vxf2-Vxf1)/Tf)*t0);
11320 : : #if defined(_DYNAMIC)
11321 : : #if defined(_DERIVATE)
11322 : 0 : Qxf1_Vxf1_GND=(alit*Vxf1_Vxf1_GND)*t0;
11323 : : #endif
11324 : 0 : Qxf1=((alit*Vxf1)*t0);
11325 : : #endif
11326 : : #if defined(_DYNAMIC)
11327 : : #if defined(_DERIVATE)
11328 : 0 : Qxf2_Vxf2_GND=((alit*Vxf2_Vxf2_GND)/3)*t0;
11329 : : #endif
11330 : 0 : Qxf2=(((alit*Vxf2)/3)*t0);
11331 : : #endif
11332 : : #if defined(_DERIVATE)
11333 : 0 : Itxf_Vxf2_GND=Vxf2_Vxf2_GND;
11334 : 0 : Itxf_Vci_ei=0.0;
11335 : 0 : Itxf_Vtnode_GND=0.0;
11336 : 0 : Itxf_Vbi_ei=0.0;
11337 : 0 : Itxf_Vbi_ci=0.0;
11338 : : #endif
11339 : 0 : Itxf=Vxf2;
11340 : : #if defined(_DERIVATE)
11341 : 0 : Vxf_Vxf_GND=1.0;
11342 : : #endif
11343 : 0 : Vxf=NP(xf);
11344 : : #if defined(_DERIVATE)
11345 : 0 : fact_Vci_ei=(-t0*Tf_Vci_ei/Tf/Tf);
11346 : 0 : fact_Vbi_ei=(-t0*Tf_Vbi_ei/Tf/Tf);
11347 : 0 : fact_Vtnode_GND=(-t0*Tf_Vtnode_GND/Tf/Tf);
11348 : 0 : fact_Vbi_ci=(-t0*Tf_Vbi_ci/Tf/Tf);
11349 : : #endif
11350 : 0 : fact=(t0/Tf);
11351 : : #if defined(_DERIVATE)
11352 : 0 : Ixf_Vxf_GND=Vxf_Vxf_GND*fact;
11353 : 0 : Ixf_Vci_ei=(((-Qdei_Vci_ei)*fact)+((Vxf-Qdei)*fact_Vci_ei));
11354 : 0 : Ixf_Vtnode_GND=(((-Qdei_Vtnode_GND)*fact)+((Vxf-Qdei)*fact_Vtnode_GND));
11355 : 0 : Ixf_Vbi_ci=(((-Qdei_Vbi_ci)*fact)+((Vxf-Qdei)*fact_Vbi_ci));
11356 : 0 : Ixf_Vbi_ei=(((-Qdei_Vbi_ei)*fact)+((Vxf-Qdei)*fact_Vbi_ei));
11357 : : #endif
11358 : 0 : Ixf=((Vxf-Qdei)*fact);
11359 : : #if defined(_DYNAMIC)
11360 : : #if defined(_DERIVATE)
11361 : 0 : Qxf_Vxf_GND=(alqf*Vxf_Vxf_GND)*t0;
11362 : : #endif
11363 : 0 : Qxf=((alqf*Vxf)*t0);
11364 : : #endif
11365 : : #if defined(_DYNAMIC)
11366 : : #if defined(_DERIVATE)
11367 : 0 : Qdeix_Vxf_GND=Vxf_Vxf_GND;
11368 : 0 : Qdeix_Vci_ei=0.0;
11369 : 0 : Qdeix_Vtnode_GND=0.0;
11370 : 0 : Qdeix_Vbi_ci=0.0;
11371 : 0 : Qdeix_Vbi_ei=0.0;
11372 : : #endif
11373 : 0 : Qdeix=Vxf;
11374 : : #endif
11375 : : }
11376 : : else
11377 : : {
11378 : : #if defined(_DERIVATE)
11379 : 0 : Ixf1_Vxf1_GND=1.0;
11380 : 0 : Ixf1_Vxf2_GND=0.0;
11381 : 0 : Ixf1_Vci_ei=0.0;
11382 : 0 : Ixf1_Vtnode_GND=0.0;
11383 : 0 : Ixf1_Vbi_ei=0.0;
11384 : 0 : Ixf1_Vbi_ci=0.0;
11385 : : #endif
11386 : 0 : Ixf1=NP(xf1);
11387 : : #if defined(_DERIVATE)
11388 : 0 : Ixf2_Vxf2_GND=1.0;
11389 : 0 : Ixf2_Vxf1_GND=0.0;
11390 : 0 : Ixf2_Vci_ei=0.0;
11391 : 0 : Ixf2_Vbi_ei=0.0;
11392 : 0 : Ixf2_Vtnode_GND=0.0;
11393 : 0 : Ixf2_Vbi_ci=0.0;
11394 : : #endif
11395 : 0 : Ixf2=NP(xf2);
11396 : : #if defined(_DYNAMIC)
11397 : : #if defined(_DERIVATE)
11398 : 0 : Qxf1_Vxf1_GND=0.0;
11399 : : #endif
11400 : 0 : Qxf1=0;
11401 : : #endif
11402 : : #if defined(_DYNAMIC)
11403 : : #if defined(_DERIVATE)
11404 : 0 : Qxf2_Vxf2_GND=0.0;
11405 : : #endif
11406 : 0 : Qxf2=0;
11407 : : #endif
11408 : : #if defined(_DERIVATE)
11409 : 0 : Ixf_Vxf_GND=1.0;
11410 : 0 : Ixf_Vci_ei=0.0;
11411 : 0 : Ixf_Vtnode_GND=0.0;
11412 : 0 : Ixf_Vbi_ci=0.0;
11413 : 0 : Ixf_Vbi_ei=0.0;
11414 : : #endif
11415 : 0 : Ixf=NP(xf);
11416 : : #if defined(_DYNAMIC)
11417 : : #if defined(_DERIVATE)
11418 : 0 : Qxf_Vxf_GND=0.0;
11419 : : #endif
11420 : 0 : Qxf=0;
11421 : : #endif
11422 : : }
11423 : : }
11424 : : {
11425 [ # # ][ # # ]: 0 : _load_static_residual2(bi,ei,(1.0e-12*BP(bi,ei)));
11426 : : #if defined(_DERIVATE)
11427 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,bi,ei,(1.0e-12));
[ # # ][ # # ]
[ # # ]
11428 : : #endif
11429 [ # # ][ # # ]: 0 : _load_static_residual2(bi,ci,(1.0e-12*BP(bi,ci)));
11430 : : #if defined(_DERIVATE)
11431 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ci,bi,ci,(1.0e-12));
[ # # ][ # # ]
[ # # ]
11432 : : #endif
11433 : : #if defined(_DYNAMIC)
11434 [ # # ][ # # ]: 0 : _load_dynamic_residual2(b,ci,_DDT(qjcx0_t_i));
11435 : : #if defined(_DERIVATE)
11436 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(b,ci,bi,ci,qjcx0_t_i_Vbi_ci);
[ # # ][ # # ]
[ # # ]
11437 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(b,ci,tnode,qjcx0_t_i_Vtnode_GND);
[ # # ]
11438 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(b,ci,bp,ci,qjcx0_t_i_Vbp_ci);
[ # # ][ # # ]
[ # # ]
11439 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(b,ci,b,ci,qjcx0_t_i_Vb_ci);
[ # # ][ # # ]
[ # # ]
11440 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(b,ci,bi,ei,qjcx0_t_i_Vbi_ei);
[ # # ][ # # ]
[ # # ]
11441 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(b,ci,bp,ei,qjcx0_t_i_Vbp_ei);
[ # # ][ # # ]
[ # # ]
11442 : : #endif
11443 : : #endif
11444 : : #if defined(_DYNAMIC)
11445 [ # # ][ # # ]: 0 : _load_dynamic_residual2(b,ci,_DDT((cbcpar1*BP(b,ci))));
[ # # ][ # # ]
[ # # ]
11446 : : #if defined(_DERIVATE)
11447 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(b,ci,b,ci,(cbcpar1));
[ # # ][ # # ]
[ # # ]
11448 : : #endif
11449 : : #endif
11450 : : #if defined(_DYNAMIC)
11451 [ # # ][ # # ]: 0 : _load_dynamic_residual2(bp,ci,_DDT((cbcpar2*BP(bp,ci))));
[ # # ][ # # ]
[ # # ]
11452 : : #if defined(_DERIVATE)
11453 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,ci,bp,ci,(cbcpar2));
[ # # ][ # # ]
[ # # ]
11454 : : #endif
11455 : : #endif
11456 [ # # ]: 0 : if
11457 : : (rbx>=0.001)
11458 : : {
11459 [ # # ][ # # ]: 0 : _load_static_residual2(b,bp,(BP(b,bp)/rbx_t));
11460 : : #if defined(_DERIVATE)
11461 [ # # ][ # # ]: 0 : _load_static_jacobian2s(b,bp,tnode,(-BP(b,bp)*rbx_t_Vtnode_GND/rbx_t/rbx_t));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
11462 [ # # ][ # # ]: 0 : _load_static_jacobian4(b,bp,b,bp,(1/rbx_t));
[ # # ][ # # ]
[ # # ]
11463 : : #endif
11464 : : }
11465 : : else
11466 : : {
11467 [ # # ][ # # ]: 0 : _load_static_residual2(b,bp,(BP(b,bp)/1e-6));
11468 : : #if defined(_DERIVATE)
11469 [ # # ][ # # ]: 0 : _load_static_jacobian4(b,bp,b,bp,(1/1e-6));
[ # # ][ # # ]
[ # # ]
11470 : : #endif
11471 : : }
11472 [ # # ]: 0 : if
11473 : : (rbi0>=0.001)
11474 : : {
11475 [ # # ][ # # ]: 0 : _load_static_residual2(bp,bi,(BP(bp,bi)/rbi));
11476 : : #if defined(_DERIVATE)
11477 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,bi,ci,ei,(-BP(bp,bi)*rbi_Vci_ei/rbi/rbi));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
11478 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,bi,bi,ci,(-BP(bp,bi)*rbi_Vbi_ci/rbi/rbi));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
11479 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,bi,bi,ei,(-BP(bp,bi)*rbi_Vbi_ei/rbi/rbi));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
11480 [ # # ][ # # ]: 0 : _load_static_jacobian2s(bp,bi,tnode,(-BP(bp,bi)*rbi_Vtnode_GND/rbi/rbi));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
11481 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,bi,bp,bi,(1/rbi));
[ # # ][ # # ]
[ # # ]
11482 : : #endif
11483 : : #if defined(_DYNAMIC)
11484 [ # # ][ # # ]: 0 : _load_dynamic_residual2(bp,bi,_DDT(qrbi));
11485 : : #if defined(_DERIVATE)
11486 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,bi,ci,ei,qrbi_Vci_ei);
[ # # ][ # # ]
[ # # ]
11487 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,bi,bi,ci,qrbi_Vbi_ci);
[ # # ][ # # ]
[ # # ]
11488 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,bi,bi,ei,qrbi_Vbi_ei);
[ # # ][ # # ]
[ # # ]
11489 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(bp,bi,tnode,qrbi_Vtnode_GND);
[ # # ]
11490 : : #endif
11491 : : #endif
11492 : : }
11493 : : else
11494 : : {
11495 [ # # ][ # # ]: 0 : _load_static_residual2(bp,bi,(BP(bp,bi)/1e-6));
11496 : : #if defined(_DERIVATE)
11497 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,bi,bp,bi,(1/1e-6));
[ # # ][ # # ]
[ # # ]
11498 : : #endif
11499 : : }
11500 [ # # ]: 0 : if
11501 : : (tunode==1.0)
11502 : : {
11503 : 0 : _load_static_residual2(bp,ei,(-ibet));
11504 : : #if defined(_DERIVATE)
11505 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ei,bi,ei,(-ibet_Vbi_ei));
[ # # ][ # # ]
[ # # ]
11506 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ei,bi,ci,(-ibet_Vbi_ci));
[ # # ][ # # ]
[ # # ]
11507 [ # # ]: 0 : _load_static_jacobian2s(bp,ei,tnode,(-ibet_Vtnode_GND));
11508 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ei,bp,ei,(-ibet_Vbp_ei));
[ # # ][ # # ]
[ # # ]
11509 : : #endif
11510 : : }
11511 : : else
11512 : : {
11513 : 0 : _load_static_residual2(bi,ei,(-ibet));
11514 : : #if defined(_DERIVATE)
11515 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,bi,ei,(-ibet_Vbi_ei));
[ # # ][ # # ]
[ # # ]
11516 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,bi,ci,(-ibet_Vbi_ci));
[ # # ][ # # ]
[ # # ]
11517 [ # # ]: 0 : _load_static_jacobian2s(bi,ei,tnode,(-ibet_Vtnode_GND));
11518 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,bp,ei,(-ibet_Vbp_ei));
[ # # ][ # # ]
[ # # ]
11519 : : #endif
11520 : : }
11521 : 0 : _load_static_residual2(bp,ei,ibep);
11522 : : #if defined(_DERIVATE)
11523 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ei,bi,ei,ibep_Vbi_ei);
[ # # ][ # # ]
[ # # ]
11524 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ei,bi,ci,ibep_Vbi_ci);
[ # # ][ # # ]
[ # # ]
11525 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ei,bp,ei,ibep_Vbp_ei);
[ # # ][ # # ]
[ # # ]
11526 [ # # ]: 0 : _load_static_jacobian2s(bp,ei,tnode,ibep_Vtnode_GND);
11527 : : #endif
11528 : 0 : _load_static_residual2(bp,ei,irep);
11529 : : #if defined(_DERIVATE)
11530 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ei,bi,ei,irep_Vbi_ei);
[ # # ][ # # ]
[ # # ]
11531 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ei,bi,ci,irep_Vbi_ci);
[ # # ][ # # ]
[ # # ]
11532 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ei,bp,ei,irep_Vbp_ei);
[ # # ][ # # ]
[ # # ]
11533 [ # # ]: 0 : _load_static_jacobian2s(bp,ei,tnode,irep_Vtnode_GND);
11534 : : #endif
11535 : : #if defined(_DYNAMIC)
11536 [ # # ][ # # ]: 0 : _load_dynamic_residual2(bp,ei,_DDT(Qjep));
11537 : : #if defined(_DERIVATE)
11538 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,ei,bi,ei,Qjep_Vbi_ei);
[ # # ][ # # ]
[ # # ]
11539 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(bp,ei,tnode,Qjep_Vtnode_GND);
[ # # ]
11540 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,ei,bi,ci,Qjep_Vbi_ci);
[ # # ][ # # ]
[ # # ]
11541 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,ei,bp,ei,Qjep_Vbp_ei);
[ # # ][ # # ]
[ # # ]
11542 : : #endif
11543 : : #endif
11544 : 0 : _load_static_residual2(bi,ei,ibei);
11545 : : #if defined(_DERIVATE)
11546 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,bi,ei,ibei_Vbi_ei);
[ # # ][ # # ]
[ # # ]
11547 [ # # ]: 0 : _load_static_jacobian2s(bi,ei,tnode,ibei_Vtnode_GND);
11548 : : #endif
11549 : 0 : _load_static_residual2(bi,ei,irei);
11550 : : #if defined(_DERIVATE)
11551 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,bi,ei,irei_Vbi_ei);
[ # # ][ # # ]
[ # # ]
11552 [ # # ]: 0 : _load_static_jacobian2s(bi,ei,tnode,irei_Vtnode_GND);
11553 : : #endif
11554 : 0 : _load_static_residual2(bi,ei,ibh_rec);
11555 : : #if defined(_DERIVATE)
11556 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,ci,ei,ibh_rec_Vci_ei);
[ # # ][ # # ]
[ # # ]
11557 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,bi,ci,ibh_rec_Vbi_ci);
[ # # ][ # # ]
[ # # ]
11558 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,bi,ei,ibh_rec_Vbi_ei);
[ # # ][ # # ]
[ # # ]
11559 [ # # ]: 0 : _load_static_jacobian2s(bi,ei,tnode,ibh_rec_Vtnode_GND);
11560 : : #endif
11561 : : #if defined(_DYNAMIC)
11562 [ # # ][ # # ]: 0 : _load_dynamic_residual2(bi,ei,_DDT((Qdeix+Qjei)));
11563 : : #if defined(_DERIVATE)
11564 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ei,bi,ei,(Qdeix_Vbi_ei+Qjei_Vbi_ei));
[ # # ][ # # ]
[ # # ]
11565 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ei,bi,ci,Qdeix_Vbi_ci);
[ # # ][ # # ]
[ # # ]
11566 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(bi,ei,tnode,(Qdeix_Vtnode_GND+Qjei_Vtnode_GND));
[ # # ]
11567 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ei,ci,ei,Qdeix_Vci_ei);
[ # # ][ # # ]
[ # # ]
11568 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(bi,ei,xf,Qdeix_Vxf_GND);
[ # # ]
11569 : : #endif
11570 : : #endif
11571 : 0 : _load_static_residual2(bp,si,HSI_Tsu);
11572 : : #if defined(_DERIVATE)
11573 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,si,si,ci,HSI_Tsu_Vsi_ci);
[ # # ][ # # ]
[ # # ]
11574 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,si,bp,ci,HSI_Tsu_Vbp_ci);
[ # # ][ # # ]
[ # # ]
11575 [ # # ]: 0 : _load_static_jacobian2s(bp,si,tnode,HSI_Tsu_Vtnode_GND);
11576 : : #endif
11577 : 0 : _load_static_residual2(bp,ci,ijbcx);
11578 : : #if defined(_DERIVATE)
11579 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ci,bi,ei,ijbcx_Vbi_ei);
[ # # ][ # # ]
[ # # ]
11580 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ci,bi,ci,ijbcx_Vbi_ci);
[ # # ][ # # ]
[ # # ]
11581 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ci,bp,ei,ijbcx_Vbp_ei);
[ # # ][ # # ]
[ # # ]
11582 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ci,bp,ci,ijbcx_Vbp_ci);
[ # # ][ # # ]
[ # # ]
11583 [ # # ]: 0 : _load_static_jacobian2s(bp,ci,tnode,ijbcx_Vtnode_GND);
11584 : : #endif
11585 : : #if defined(_DYNAMIC)
11586 [ # # ][ # # ]: 0 : _load_dynamic_residual2(bp,ci,_DDT((qjcx0_t_ii+Qdsu)));
11587 : : #if defined(_DERIVATE)
11588 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,ci,bi,ci,qjcx0_t_ii_Vbi_ci);
[ # # ][ # # ]
[ # # ]
11589 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(bp,ci,tnode,(qjcx0_t_ii_Vtnode_GND+Qdsu_Vtnode_GND));
[ # # ]
11590 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,ci,bp,ci,(qjcx0_t_ii_Vbp_ci+Qdsu_Vbp_ci));
[ # # ][ # # ]
[ # # ]
11591 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,ci,bi,ei,qjcx0_t_ii_Vbi_ei);
[ # # ][ # # ]
[ # # ]
11592 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,ci,bp,ei,qjcx0_t_ii_Vbp_ei);
[ # # ][ # # ]
[ # # ]
11593 : : #endif
11594 : : #endif
11595 : : #if defined(_DYNAMIC)
11596 [ # # ][ # # ]: 0 : _load_dynamic_residual2(b,e,_DDT((cbepar1*BP(b,e))));
[ # # ][ # # ]
[ # # ]
11597 : : #if defined(_DERIVATE)
11598 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(b,e,b,e,(cbepar1));
[ # # ][ # # ]
[ # # ]
11599 : : #endif
11600 : : #endif
11601 : : #if defined(_DYNAMIC)
11602 [ # # ][ # # ]: 0 : _load_dynamic_residual2(bp,e,_DDT((cbepar2*BP(bp,e))));
[ # # ][ # # ]
[ # # ]
11603 : : #if defined(_DERIVATE)
11604 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,e,bp,e,(cbepar2));
[ # # ][ # # ]
[ # # ]
11605 : : #endif
11606 : : #endif
11607 : 0 : _load_static_residual2(bi,ci,(ibci-iavl));
11608 : : #if defined(_DERIVATE)
11609 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ci,ci,ei,(-iavl_Vci_ei));
[ # # ][ # # ]
[ # # ]
11610 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ci,bi,ei,(ibci_Vbi_ei-iavl_Vbi_ei));
[ # # ][ # # ]
[ # # ]
11611 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ci,bi,ci,(ibci_Vbi_ci-iavl_Vbi_ci));
[ # # ][ # # ]
[ # # ]
11612 [ # # ]: 0 : _load_static_jacobian2s(bi,ci,tnode,(ibci_Vtnode_GND-iavl_Vtnode_GND));
11613 : : #endif
11614 : : #if defined(_DYNAMIC)
11615 [ # # ][ # # ]: 0 : _load_dynamic_residual2(bi,ci,_DDT((Qdci+Qjci)));
11616 : : #if defined(_DERIVATE)
11617 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ci,bi,ei,(Qdci_Vbi_ei+Qjci_Vbi_ei));
[ # # ][ # # ]
[ # # ]
11618 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ci,bi,ci,(Qdci_Vbi_ci+Qjci_Vbi_ci));
[ # # ][ # # ]
[ # # ]
11619 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(bi,ci,tnode,(Qdci_Vtnode_GND+Qjci_Vtnode_GND));
[ # # ]
11620 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ci,ci,ei,Qdci_Vci_ei);
[ # # ][ # # ]
[ # # ]
11621 : : #endif
11622 : : #endif
11623 : 0 : _load_static_residual2(si,ci,ijsc);
11624 : : #if defined(_DERIVATE)
11625 [ # # ][ # # ]: 0 : _load_static_jacobian4(si,ci,bi,ei,ijsc_Vbi_ei);
[ # # ][ # # ]
[ # # ]
11626 [ # # ][ # # ]: 0 : _load_static_jacobian4(si,ci,bi,ci,ijsc_Vbi_ci);
[ # # ][ # # ]
[ # # ]
11627 [ # # ][ # # ]: 0 : _load_static_jacobian4(si,ci,bp,ei,ijsc_Vbp_ei);
[ # # ][ # # ]
[ # # ]
11628 [ # # ][ # # ]: 0 : _load_static_jacobian4(si,ci,bp,ci,ijsc_Vbp_ci);
[ # # ][ # # ]
[ # # ]
11629 [ # # ][ # # ]: 0 : _load_static_jacobian4(si,ci,si,ci,ijsc_Vsi_ci);
[ # # ][ # # ]
[ # # ]
11630 [ # # ]: 0 : _load_static_jacobian2s(si,ci,tnode,ijsc_Vtnode_GND);
11631 : : #endif
11632 : : #if defined(_DYNAMIC)
11633 [ # # ][ # # ]: 0 : _load_dynamic_residual2(si,ci,_DDT(Qjs));
11634 : : #if defined(_DERIVATE)
11635 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(si,ci,bi,ci,Qjs_Vbi_ci);
[ # # ][ # # ]
[ # # ]
11636 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(si,ci,tnode,Qjs_Vtnode_GND);
[ # # ]
11637 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(si,ci,bp,ci,Qjs_Vbp_ci);
[ # # ][ # # ]
[ # # ]
11638 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(si,ci,b,ci,Qjs_Vb_ci);
[ # # ][ # # ]
[ # # ]
11639 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(si,ci,si,ci,Qjs_Vsi_ci);
[ # # ][ # # ]
[ # # ]
11640 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(si,ci,bi,ei,Qjs_Vbi_ei);
[ # # ][ # # ]
[ # # ]
11641 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(si,ci,bp,ei,Qjs_Vbp_ei);
[ # # ][ # # ]
[ # # ]
11642 : : #endif
11643 : : #endif
11644 : 0 : _load_static_residual2(ci,ei,Itxf);
11645 : : #if defined(_DERIVATE)
11646 [ # # ][ # # ]: 0 : _load_static_jacobian4(ci,ei,bi,ci,Itxf_Vbi_ci);
[ # # ][ # # ]
[ # # ]
11647 [ # # ][ # # ]: 0 : _load_static_jacobian4(ci,ei,bi,ei,Itxf_Vbi_ei);
[ # # ][ # # ]
[ # # ]
11648 [ # # ]: 0 : _load_static_jacobian2s(ci,ei,tnode,Itxf_Vtnode_GND);
11649 [ # # ][ # # ]: 0 : _load_static_jacobian4(ci,ei,ci,ei,Itxf_Vci_ei);
[ # # ][ # # ]
[ # # ]
11650 [ # # ]: 0 : _load_static_jacobian2s(ci,ei,xf2,Itxf_Vxf2_GND);
11651 : : #endif
11652 : 0 : _load_static_residual2(ei,ci,itr);
11653 : : #if defined(_DERIVATE)
11654 [ # # ][ # # ]: 0 : _load_static_jacobian4(ei,ci,bi,ei,itr_Vbi_ei);
[ # # ][ # # ]
[ # # ]
11655 [ # # ][ # # ]: 0 : _load_static_jacobian4(ei,ci,bi,ci,itr_Vbi_ci);
[ # # ][ # # ]
[ # # ]
11656 [ # # ]: 0 : _load_static_jacobian2s(ei,ci,tnode,itr_Vtnode_GND);
11657 [ # # ][ # # ]: 0 : _load_static_jacobian4(ei,ci,ci,ei,itr_Vci_ei);
[ # # ][ # # ]
[ # # ]
11658 : : #endif
11659 [ # # ]: 0 : if
11660 : : (rcx>=0.001)
11661 : : {
11662 [ # # ][ # # ]: 0 : _load_static_residual2(ci,c,(BP(ci,c)/rcx_t));
11663 : : #if defined(_DERIVATE)
11664 [ # # ][ # # ]: 0 : _load_static_jacobian2s(ci,c,tnode,(-BP(ci,c)*rcx_t_Vtnode_GND/rcx_t/rcx_t));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
11665 [ # # ][ # # ]: 0 : _load_static_jacobian4(ci,c,ci,c,(1/rcx_t));
[ # # ][ # # ]
[ # # ]
11666 : : #endif
11667 : : }
11668 : : else
11669 : : {
11670 [ # # ][ # # ]: 0 : _load_static_residual2(ci,c,(BP(ci,c)/1e-6));
11671 : : #if defined(_DERIVATE)
11672 [ # # ][ # # ]: 0 : _load_static_jacobian4(ci,c,ci,c,(1/1e-6));
[ # # ][ # # ]
[ # # ]
11673 : : #endif
11674 : : }
11675 [ # # ]: 0 : if
11676 : : (re>=0.001)
11677 : : {
11678 [ # # ][ # # ]: 0 : _load_static_residual2(ei,e,(BP(ei,e)/re_t));
11679 : : #if defined(_DERIVATE)
11680 [ # # ][ # # ]: 0 : _load_static_jacobian2s(ei,e,tnode,(-BP(ei,e)*re_t_Vtnode_GND/re_t/re_t));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
11681 [ # # ][ # # ]: 0 : _load_static_jacobian4(ei,e,ei,e,(1/re_t));
[ # # ][ # # ]
[ # # ]
11682 : : #endif
11683 : : }
11684 : : else
11685 : : {
11686 [ # # ][ # # ]: 0 : _load_static_residual2(ei,e,(BP(ei,e)/1e-6));
11687 : : #if defined(_DERIVATE)
11688 [ # # ][ # # ]: 0 : _load_static_jacobian4(ei,e,ei,e,(1/1e-6));
[ # # ][ # # ]
[ # # ]
11689 : : #endif
11690 : : }
11691 [ # # ]: 0 : if
11692 : : (rsu>=0.001)
11693 : : {
11694 [ # # ][ # # ]: 0 : _load_static_residual2(si,s,(BP(si,s)/rsu));
11695 : : #if defined(_DERIVATE)
11696 [ # # ][ # # ]: 0 : _load_static_jacobian4(si,s,si,s,(1/rsu));
[ # # ][ # # ]
[ # # ]
11697 : : #endif
11698 : : #if defined(_DYNAMIC)
11699 [ # # ][ # # ]: 0 : _load_dynamic_residual2(si,s,_DDT((csu*BP(si,s))));
[ # # ][ # # ]
[ # # ]
11700 : : #if defined(_DERIVATE)
11701 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(si,s,si,s,(csu));
[ # # ][ # # ]
[ # # ]
11702 : : #endif
11703 : : #endif
11704 : : }
11705 : : else
11706 : : {
11707 [ # # ][ # # ]: 0 : _load_static_residual2(si,s,(BP(si,s)/1e-6));
11708 : : #if defined(_DERIVATE)
11709 [ # # ][ # # ]: 0 : _load_static_jacobian4(si,s,si,s,(1/1e-6));
[ # # ][ # # ]
[ # # ]
11710 : : #endif
11711 : : }
11712 [ # # ][ # # ]: 0 : if
11713 : : ((flsh==0)||(rth<0.001))
11714 : : {
11715 : 0 : _load_static_residual1(tnode,(NP(tnode)/0.001));
11716 : : #if defined(_DERIVATE)
11717 [ # # ]: 0 : _load_static_jacobian1(tnode,tnode,(1/0.001));
11718 : : #endif
11719 : : }
11720 : : else
11721 : : {
11722 : 0 : _load_static_residual1(tnode,((NP(tnode)/rth)-pterm));
11723 : : #if defined(_DERIVATE)
11724 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,bi,ci,(-pterm_Vbi_ci));
[ # # ]
11725 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,bi,ei,(-pterm_Vbi_ei));
[ # # ]
11726 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,ci,ei,(-pterm_Vci_ei));
[ # # ]
11727 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,si,ci,(-pterm_Vsi_ci));
[ # # ]
11728 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,bp,ci,(-pterm_Vbp_ci));
[ # # ]
11729 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,bp,ei,(-pterm_Vbp_ei));
[ # # ]
11730 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,bp,bi,(-pterm_Vbp_bi));
[ # # ]
11731 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,ei,e,(-pterm_Vei_e));
[ # # ]
11732 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,ci,c,(-pterm_Vci_c));
[ # # ]
11733 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,b,bp,(-pterm_Vb_bp));
[ # # ]
11734 [ # # ]: 0 : _load_static_jacobian1(tnode,tnode,((1/rth)-pterm_Vtnode_GND));
11735 : : #endif
11736 : : #if defined(_DYNAMIC)
11737 [ # # ][ # # ]: 0 : _load_dynamic_residual1(tnode,_DDT((cth*NP(tnode))));
11738 : : #if defined(_DERIVATE)
11739 [ # # ][ # # ]: 0 : _load_dynamic_jacobian1(tnode,tnode,(cth));
[ # # ]
11740 : : #endif
11741 : : #endif
11742 : : }
11743 : 0 : _load_static_residual1(xf1,Ixf1);
11744 : : #if defined(_DERIVATE)
11745 [ # # ][ # # ]: 0 : _load_static_jacobian2p(xf1,bi,ci,Ixf1_Vbi_ci);
[ # # ]
11746 [ # # ][ # # ]: 0 : _load_static_jacobian2p(xf1,bi,ei,Ixf1_Vbi_ei);
[ # # ]
11747 [ # # ]: 0 : _load_static_jacobian1(xf1,tnode,Ixf1_Vtnode_GND);
11748 [ # # ][ # # ]: 0 : _load_static_jacobian2p(xf1,ci,ei,Ixf1_Vci_ei);
[ # # ]
11749 [ # # ]: 0 : _load_static_jacobian1(xf1,xf2,Ixf1_Vxf2_GND);
11750 [ # # ]: 0 : _load_static_jacobian1(xf1,xf1,Ixf1_Vxf1_GND);
11751 : : #endif
11752 : : #if defined(_DYNAMIC)
11753 [ # # ][ # # ]: 0 : _load_dynamic_residual1(xf1,_DDT(Qxf1));
11754 : : #if defined(_DERIVATE)
11755 [ # # ][ # # ]: 0 : _load_dynamic_jacobian1(xf1,xf1,Qxf1_Vxf1_GND);
[ # # ]
11756 : : #endif
11757 : : #endif
11758 : 0 : _load_static_residual1(xf2,Ixf2);
11759 : : #if defined(_DERIVATE)
11760 [ # # ][ # # ]: 0 : _load_static_jacobian2p(xf2,bi,ci,Ixf2_Vbi_ci);
[ # # ]
11761 [ # # ]: 0 : _load_static_jacobian1(xf2,tnode,Ixf2_Vtnode_GND);
11762 [ # # ][ # # ]: 0 : _load_static_jacobian2p(xf2,bi,ei,Ixf2_Vbi_ei);
[ # # ]
11763 [ # # ][ # # ]: 0 : _load_static_jacobian2p(xf2,ci,ei,Ixf2_Vci_ei);
[ # # ]
11764 [ # # ]: 0 : _load_static_jacobian1(xf2,xf1,Ixf2_Vxf1_GND);
11765 [ # # ]: 0 : _load_static_jacobian1(xf2,xf2,Ixf2_Vxf2_GND);
11766 : : #endif
11767 : : #if defined(_DYNAMIC)
11768 [ # # ][ # # ]: 0 : _load_dynamic_residual1(xf2,_DDT(Qxf2));
11769 : : #if defined(_DERIVATE)
11770 [ # # ][ # # ]: 0 : _load_dynamic_jacobian1(xf2,xf2,Qxf2_Vxf2_GND);
[ # # ]
11771 : : #endif
11772 : : #endif
11773 : 0 : _load_static_residual1(xf,Ixf);
11774 : : #if defined(_DERIVATE)
11775 [ # # ][ # # ]: 0 : _load_static_jacobian2p(xf,bi,ei,Ixf_Vbi_ei);
[ # # ]
11776 [ # # ][ # # ]: 0 : _load_static_jacobian2p(xf,bi,ci,Ixf_Vbi_ci);
[ # # ]
11777 [ # # ]: 0 : _load_static_jacobian1(xf,tnode,Ixf_Vtnode_GND);
11778 [ # # ][ # # ]: 0 : _load_static_jacobian2p(xf,ci,ei,Ixf_Vci_ei);
[ # # ]
11779 [ # # ]: 0 : _load_static_jacobian1(xf,xf,Ixf_Vxf_GND);
11780 : : #endif
11781 : : #if defined(_DYNAMIC)
11782 [ # # ][ # # ]: 0 : _load_dynamic_residual1(xf,_DDT(Qxf));
11783 : : #if defined(_DERIVATE)
11784 [ # # ][ # # ]: 0 : _load_dynamic_jacobian1(xf,xf,Qxf_Vxf_GND);
[ # # ]
11785 : : #endif
11786 : : #endif
11787 : : }
11788 : :
11789 : : /* ------------------ end of verilog analog equations --------------------- */
11790 : :
11791 : : /* ------------------ evaluate verilog noise equations -------------------- */
11792 : : double twoq;
11793 : : double flicker_Pwr;
11794 : : #if defined(_DERIVATE)
11795 : : double flicker_Pwr_Vtnode_GND;
11796 : : double flicker_Pwr_Vbi_ei;
11797 : : double flicker_Pwr_Vbp_ei;
11798 : : double flicker_Pwr_Vbi_ci;
11799 : : #endif
11800 : : double fourkt;
11801 : : #if defined(_DERIVATE)
11802 : : double fourkt_Vtnode_GND;
11803 : : #endif
11804 : : {
11805 : : #if defined(_DERIVATE)
11806 : 0 : fourkt_Vtnode_GND=((4.0*1.3806503e-23)*Tdev_Vtnode_GND);
11807 : : #endif
11808 : 0 : fourkt=((4.0*1.3806503e-23)*Tdev);
11809 [ # # ]: 0 : if
11810 : : (rbx>=0.001)
11811 : : {
11812 : 0 : _save_whitenoise2(b,bp,(fourkt/rbx_t),"thermal");
11813 : : }
11814 [ # # ]: 0 : if
11815 : : (rbi0>=0.001)
11816 : : {
11817 : 0 : _save_whitenoise2(bp,bi,(fourkt/rbi),"thermal");
11818 : : }
11819 [ # # ]: 0 : if
11820 : : (rcx>=0.001)
11821 : : {
11822 : 0 : _save_whitenoise2(ci,c,(fourkt/rcx_t),"thermal");
11823 : : }
11824 [ # # ]: 0 : if
11825 : : (re>=0.001)
11826 : : {
11827 : 0 : _save_whitenoise2(ei,e,(fourkt/re_t),"thermal");
11828 : : }
11829 [ # # ]: 0 : if
11830 : : (rsu>=0.001)
11831 : : {
11832 : 0 : _save_whitenoise2(si,s,(fourkt/rsu),"thermal");
11833 : : }
11834 : : {
11835 : 0 : double m00_pow(d00_pow0,(ibei+ibep),af)
11836 : : #if defined(_DERIVATE)
11837 [ # # ]: 0 : double m10_pow(d10_pow0,d00_pow0,(ibei+ibep),af)
11838 : : #endif
11839 : : #if defined(_DERIVATE)
11840 : 0 : flicker_Pwr_Vtnode_GND=(kf*(d10_pow0*(ibei_Vtnode_GND+ibep_Vtnode_GND)));
11841 : 0 : flicker_Pwr_Vbi_ei=(kf*(d10_pow0*(ibei_Vbi_ei+ibep_Vbi_ei)));
11842 : 0 : flicker_Pwr_Vbp_ei=(kf*(d10_pow0*ibep_Vbp_ei));
11843 : 0 : flicker_Pwr_Vbi_ci=(kf*(d10_pow0*ibep_Vbi_ci));
11844 : : #endif
11845 : 0 : flicker_Pwr=(kf*d00_pow0);
11846 : : }
11847 [ # # ]: 0 : if
11848 : : (cfbe==(-1))
11849 : : {
11850 : 0 : _save_flickernoise2(bi,ei,flicker_Pwr,1.0,NULL);
11851 : : }
11852 : : else
11853 : : {
11854 : 0 : _save_flickernoise2(bp,ei,flicker_Pwr,1.0,NULL);
11855 : : }
11856 : 0 : twoq=(2.0*1.602176462e-19);
11857 : 0 : _save_whitenoise2(ci,bi,(twoq*iavl),"shot");
11858 : 0 : _save_whitenoise2(bi,ci,(twoq*abs(ibci)),"shot");
11859 : 0 : _save_whitenoise2(bp,ei,(twoq*ibep),"shot");
11860 : 0 : _save_whitenoise2(bp,ci,(twoq*abs(ijbcx)),"shot");
11861 : 0 : _save_whitenoise2(si,ci,(twoq*abs(ijsc)),"shot");
11862 : 0 : _save_whitenoise1(n1,((2*1.602176462e-19)*ibei),"shot");
11863 : 0 : _load_static_residual1(n1,NP(n1));
11864 : : #if defined(_DERIVATE)
11865 [ # # ]: 0 : _load_static_jacobian1(n1,n1,1.0);
11866 : : #endif
11867 : 0 : _save_whitenoise1(n2,((2*1.602176462e-19)*it),"shot");
11868 : 0 : _load_static_residual1(n2,NP(n2));
11869 : : #if defined(_DERIVATE)
11870 [ # # ]: 0 : _load_static_jacobian1(n2,n2,1.0);
11871 : : #endif
11872 : 0 : _load_static_residual2(bi,ei,NP(n1));
11873 : : #if defined(_DERIVATE)
11874 [ # # ]: 0 : _load_static_jacobian2s(bi,ei,n1,1.0);
11875 : : #endif
11876 : : #if defined(_DYNAMIC)
11877 [ # # ][ # # ]: 0 : _load_dynamic_residual2(ci,ei,(NP(n2)+_DDT(((((((betadc/2)*alit)*Tf)*alit)*Tf)*_DDT(NP(n2))))));
[ # # ][ # # ]
[ # # ]
11878 : : #if defined(_DERIVATE)
11879 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(ci,ei,bi,ci,(((((betadc_Vbi_ci/2)*alit*Tf)+(((betadc/2)*alit)*Tf_Vbi_ci))*alit*Tf)+(((((betadc/2)*alit)*Tf)*alit)*Tf_Vbi_ci))*_DDT(NP(n2)));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
11880 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(ci,ei,bi,ei,(((((betadc_Vbi_ei/2)*alit*Tf)+(((betadc/2)*alit)*Tf_Vbi_ei))*alit*Tf)+(((((betadc/2)*alit)*Tf)*alit)*Tf_Vbi_ei))*_DDT(NP(n2)));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
11881 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(ci,ei,tnode,(((((betadc_Vtnode_GND/2)*alit*Tf)+(((betadc/2)*alit)*Tf_Vtnode_GND))*alit*Tf)+(((((betadc/2)*alit)*Tf)*alit)*Tf_Vtnode_GND))*_DDT(NP(n2)));
[ # # ][ # # ]
[ # # ]
11882 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(ci,ei,ci,ei,(((((betadc_Vci_ei/2)*alit*Tf)+(((betadc/2)*alit)*Tf_Vci_ei))*alit*Tf)+(((((betadc/2)*alit)*Tf)*alit)*Tf_Vci_ei))*_DDT(NP(n2)));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
11883 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(ci,ei,n2,(1.0+((((((betadc/2)*alit)*Tf)*alit)*Tf))));
[ # # ]
11884 : : #endif
11885 : : #endif
11886 : : #if defined(_DYNAMIC)
11887 [ # # ][ # # ]: 0 : _load_dynamic_residual2(ci,ei,(betadc*_DDT(((-(Tf*alit))*NP(n1)))));
11888 : : #if defined(_DERIVATE)
11889 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(ci,ei,n1,(betadc*((-(Tf*alit)))));
[ # # ]
11890 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(ci,ei,bi,ci,((betadc_Vbi_ci*_DDT(((-(Tf*alit))*NP(n1))))+(betadc*(-Tf_Vbi_ci*alit)*NP(n1))));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
11891 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(ci,ei,bi,ei,((betadc_Vbi_ei*_DDT(((-(Tf*alit))*NP(n1))))+(betadc*(-Tf_Vbi_ei*alit)*NP(n1))));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
11892 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(ci,ei,tnode,((betadc_Vtnode_GND*_DDT(((-(Tf*alit))*NP(n1))))+(betadc*(-Tf_Vtnode_GND*alit)*NP(n1))));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
11893 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(ci,ei,ci,ei,((betadc_Vci_ei*_DDT(((-(Tf*alit))*NP(n1))))+(betadc*(-Tf_Vci_ei*alit)*NP(n1))));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
11894 : : #endif
11895 : : #endif
11896 : : }
11897 : :
11898 : : /* ------------------- end of verilog noise equations --------------------- */
11899 : 0 : }
11900 : :
11901 : : /* Perform DC iteration. */
11902 : 0 : void hicumL2V2p24::calcDC (void)
11903 : : {
11904 : : // evaluate Verilog code
11905 : 0 : initVerilog ();
11906 : 0 : calcVerilog ();
11907 : :
11908 : : // fill right hand side and static jacobian
11909 [ # # ]: 0 : for (int i1 = 0; i1 < 15; i1++) {
11910 [ # # ]: 0 : setI (i1, _rhs[i1]);
11911 [ # # ]: 0 : for (int i2 = 0; i2 < 15; i2++) {
11912 [ # # ]: 0 : setY (i1, i2, _jstat[i1][i2]);
11913 : : }
11914 : : }
11915 : 0 : }
11916 : :
11917 : : /* Save operating points. */
11918 : 0 : void hicumL2V2p24::saveOperatingPoints (void)
11919 : : {
11920 : : // save global instance operating points
11921 : 0 : setOperatingPoint ("it", it);
11922 : 0 : setOperatingPoint ("ibei", ibei);
11923 : 0 : setOperatingPoint ("ibci", ibci);
11924 : 0 : setOperatingPoint ("ibep", ibep);
11925 : 0 : setOperatingPoint ("iavl", iavl);
11926 : 0 : setOperatingPoint ("ijbcx", ijbcx);
11927 : 0 : setOperatingPoint ("ijsc", ijsc);
11928 : 0 : setOperatingPoint ("rbi", rbi);
11929 : 0 : setOperatingPoint ("Tf", Tf);
11930 : 0 : setOperatingPoint ("betadc", betadc);
11931 : 0 : }
11932 : :
11933 : : /* Load operating points. */
11934 : 0 : void hicumL2V2p24::loadOperatingPoints (void)
11935 : : {
11936 : 0 : }
11937 : :
11938 : : /* Calculate operating points. */
11939 : 0 : void hicumL2V2p24::calcOperatingPoints (void)
11940 : : {
11941 : 0 : }
11942 : :
11943 : : /* Initialization of AC analysis. */
11944 : 0 : void hicumL2V2p24::initAC (void)
11945 : : {
11946 : 0 : allocMatrixMNA ();
11947 : 0 : }
11948 : :
11949 : : /* Perform AC calculations. */
11950 : 0 : void hicumL2V2p24::calcAC (nr_double_t frequency)
11951 : : {
11952 [ # # ]: 0 : setMatrixY (calcMatrixY (frequency));
11953 : 0 : }
11954 : :
11955 : : /* Compute Y-matrix for AC analysis. */
11956 : 0 : matrix hicumL2V2p24::calcMatrixY (nr_double_t frequency)
11957 : : {
11958 : 0 : _freq = frequency;
11959 : 0 : saveOperatingPoints ();
11960 : 0 : matrix y (15);
11961 : :
11962 [ # # ]: 0 : for (int i1 = 0; i1 < 15; i1++) {
11963 [ # # ]: 0 : for (int i2 = 0; i2 < 15; i2++) {
11964 : 0 : y (i1,i2) = nr_complex_t (_jstat[i1][i2], _jdyna[i1][i2] * 2 * M_PI * _freq);
11965 : : }
11966 : : }
11967 : :
11968 : 0 : return y;
11969 : : }
11970 : :
11971 : : /* Initialization of S-parameter analysis. */
11972 : 0 : void hicumL2V2p24::initSP (void)
11973 : : {
11974 : 0 : allocMatrixS ();
11975 : 0 : }
11976 : :
11977 : : /* Perform S-parameter calculations. */
11978 : 0 : void hicumL2V2p24::calcSP (nr_double_t frequency)
11979 : : {
11980 [ # # ][ # # ]: 0 : setMatrixS (ytos (calcMatrixY (frequency)));
[ # # ][ # # ]
[ # # ]
11981 : 0 : }
11982 : :
11983 : : /* Initialization of transient analysis. */
11984 : 0 : void hicumL2V2p24::initTR (void)
11985 : : {
11986 : 0 : setStates (2 * 15 * 15);
11987 : 0 : initDC ();
11988 : 0 : }
11989 : :
11990 : : /* Perform transient analysis iteration step. */
11991 : 0 : void hicumL2V2p24::calcTR (nr_double_t)
11992 : : {
11993 : 0 : doHB = 0;
11994 : 0 : doAC = 1;
11995 : 0 : doTR = 1;
11996 : 0 : calcDC ();
11997 : :
11998 : : int i1, i2, i3, i4, state;
11999 : :
12000 : : // 2-node charge integrations
12001 [ # # ]: 0 : for (i1 = 0; i1 < 15; i1++) {
12002 [ # # ]: 0 : for (i2 = 0; i2 < 15; i2++) {
12003 : 0 : state = 2 * (i2 + 15 * i1);
12004 [ # # ]: 0 : if (i1 != i2)
12005 [ # # ]: 0 : if (_charges[i1][i2] != 0.0)
12006 : 0 : transientCapacitanceQ (state, i1, i2, _charges[i1][i2]);
12007 : : } }
12008 : :
12009 : : // 1-node charge integrations
12010 [ # # ]: 0 : for (i1 = 0; i1 < 15; i1++) {
12011 : 0 : state = 2 * (i1 + 15 * i1);
12012 [ # # ]: 0 : if (_charges[i1][i1] != 0.0)
12013 : 0 : transientCapacitanceQ (state, i1, _charges[i1][i1]);
12014 : : }
12015 : :
12016 : : // charge: 2-node, voltage: 2-node
12017 [ # # ]: 0 : for (i1 = 0; i1 < 15; i1++) {
12018 [ # # ]: 0 : for (i2 = 0; i2 < 15; i2++) {
12019 [ # # ]: 0 : if (i1 != i2)
12020 [ # # ]: 0 : for (i3 = 0; i3 < 15; i3++) {
12021 [ # # ]: 0 : for (i4 = 0; i4 < 15; i4++) {
12022 [ # # ]: 0 : if (i3 != i4)
12023 [ # # ]: 0 : if (_caps[i1][i2][i3][i4] != 0.0)
12024 [ # # ][ # # ]: 0 : transientCapacitanceC (i1, i2, i3, i4, _caps[i1][i2][i3][i4], BP(i3,i4));
12025 : : } } } }
12026 : :
12027 : : // charge: 2-node, voltage: 1-node
12028 [ # # ]: 0 : for (i1 = 0; i1 < 15; i1++) {
12029 [ # # ]: 0 : for (i2 = 0; i2 < 15; i2++) {
12030 [ # # ]: 0 : if (i1 != i2)
12031 [ # # ]: 0 : for (i3 = 0; i3 < 15; i3++) {
12032 [ # # ]: 0 : if (_caps[i1][i2][i3][i3] != 0.0)
12033 [ # # ]: 0 : transientCapacitanceC2Q (i1, i2, i3, _caps[i1][i2][i3][i3], NP(i3));
12034 : : } } }
12035 : :
12036 : : // charge: 1-node, voltage: 2-node
12037 [ # # ]: 0 : for (i1 = 0; i1 < 15; i1++) {
12038 [ # # ]: 0 : for (i3 = 0; i3 < 15; i3++) {
12039 [ # # ]: 0 : for (i4 = 0; i4 < 15; i4++) {
12040 [ # # ]: 0 : if (i3 != i4)
12041 [ # # ]: 0 : if (_caps[i1][i1][i3][i4] != 0.0)
12042 [ # # ][ # # ]: 0 : transientCapacitanceC2V (i1, i3, i4, _caps[i1][i1][i3][i4], BP(i3,i4));
12043 : : } } }
12044 : :
12045 : : // charge: 1-node, voltage: 1-node
12046 [ # # ]: 0 : for (i1 = 0; i1 < 15; i1++) {
12047 [ # # ]: 0 : for (i3 = 0; i3 < 15; i3++) {
12048 [ # # ]: 0 : if (_caps[i1][i1][i3][i3] != 0.0)
12049 [ # # ]: 0 : transientCapacitanceC (i1, i3, _caps[i1][i1][i3][i3], NP(i3));
12050 : : } }
12051 : 0 : }
12052 : :
12053 : : /* Compute Cy-matrix for AC noise analysis. */
12054 : 0 : matrix hicumL2V2p24::calcMatrixCy (nr_double_t frequency)
12055 : : {
12056 : 0 : _freq = frequency;
12057 : 0 : matrix cy (15);
12058 : :
12059 : 0 : _load_flickernoise2 (bp,ei,_flicker_pwr[bp][ei],_flicker_exp[bp][ei]);
12060 : 0 : _load_flickernoise2 (bi,ei,_flicker_pwr[bi][ei],_flicker_exp[bi][ei]);
12061 : 0 : _load_whitenoise1 (n2,_white_pwr[n2][n2]);
12062 : 0 : _load_whitenoise1 (n1,_white_pwr[n1][n1]);
12063 : 0 : _load_whitenoise2 (ci,bi,_white_pwr[ci][bi]);
12064 : 0 : _load_whitenoise2 (si,s,_white_pwr[si][s]);
12065 : 0 : _load_whitenoise2 (ei,e,_white_pwr[ei][e]);
12066 : 0 : _load_whitenoise2 (ci,c,_white_pwr[ci][c]);
12067 : 0 : _load_whitenoise2 (si,ci,_white_pwr[si][ci]);
12068 : 0 : _load_whitenoise2 (bp,ei,_white_pwr[bp][ei]);
12069 : 0 : _load_whitenoise2 (bp,bi,_white_pwr[bp][bi]);
12070 : 0 : _load_whitenoise2 (b,bp,_white_pwr[b][bp]);
12071 : 0 : _load_whitenoise2 (bp,ci,_white_pwr[bp][ci]);
12072 : 0 : _load_whitenoise2 (bi,ci,_white_pwr[bi][ci]);
12073 : :
12074 : 0 : return cy;
12075 : : }
12076 : :
12077 : : /* Perform AC noise computations. */
12078 : 0 : void hicumL2V2p24::calcNoiseAC (nr_double_t frequency)
12079 : : {
12080 [ # # ]: 0 : setMatrixN (calcMatrixCy (frequency));
12081 : 0 : }
12082 : :
12083 : : /* Perform S-parameter noise computations. */
12084 : 0 : void hicumL2V2p24::calcNoiseSP (nr_double_t frequency)
12085 : : {
12086 [ # # ][ # # ]: 0 : setMatrixN (cytocs (calcMatrixCy (frequency) * z0, getMatrixS ()));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
12087 : 0 : }
12088 : :
12089 : : /* Initialization of HB analysis. */
12090 : 0 : void hicumL2V2p24::initHB (int)
12091 : : {
12092 : 0 : initDC ();
12093 : 0 : allocMatrixHB ();
12094 : 0 : }
12095 : :
12096 : : /* Perform HB analysis. */
12097 : 0 : void hicumL2V2p24::calcHB (int)
12098 : : {
12099 : 0 : doHB = 1;
12100 : 0 : doAC = 1;
12101 : 0 : doTR = 0;
12102 : :
12103 : : // jacobian dI/dV and currents get filled
12104 : 0 : calcDC ();
12105 : 0 : saveOperatingPoints ();
12106 : :
12107 : : // fill in HB matrices
12108 [ # # ]: 0 : for (int i1 = 0; i1 < 15; i1++) {
12109 [ # # ]: 0 : setQ (i1, _qhs[i1]); // charges
12110 [ # # ]: 0 : setCV (i1, _chs[i1]); // jacobian dQ/dV * V
12111 [ # # ]: 0 : setGV (i1, _ghs[i1]); // jacobian dI/dV * V
12112 [ # # ]: 0 : for (int i2 = 0; i2 < 15; i2++) {
12113 [ # # ]: 0 : setQV (i1, i2, _jdyna[i1][i2]); // jacobian dQ/dV
12114 : : }
12115 : : }
12116 : 0 : }
12117 : :
12118 : : #include "hicumL2V2p24.defs.h"
12119 : :
|
