Branch data Line data Source code
1 : : /*
2 : : * hicumL2V2p31n.core.cpp - device implementations for hicumL2V2p31n 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 "hicumL2V2p31n.analogfunction.h"
16 : : #include "component.h"
17 : : #include "device.h"
18 : : #include "hicumL2V2p31n.core.h"
19 : :
20 : : #ifndef CIR_hicumL2V2p31n
21 : : #define CIR_hicumL2V2p31n -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 "hicumL2V2p31n"
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 : hicumL2V2p31n::hicumL2V2p31n() : circuit (15)
272 : : {
273 : 0 : type = CIR_hicumL2V2p31n;
274 : 0 : }
275 : :
276 : : /* Initialization of model. */
277 : 0 : void hicumL2V2p31n::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 hicumL2V2p31n::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 hicumL2V2p31n::restartDC (void)
315 : : {
316 : 0 : }
317 : :
318 : : /* Initialize Verilog-AMS code. */
319 : 0 : void hicumL2V2p31n::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[ci][ei] = 0.0;
334 : 0 : _white_pwr[bi][ci] = 0.0;
335 : 0 : _white_pwr[bi][ei] = 0.0;
336 : 0 : _flicker_pwr[ei][e] = 0.0;
337 : 0 : _flicker_exp[ei][e] = 0.0;
338 : 0 : _flicker_pwr[bp][ei] = 0.0;
339 : 0 : _flicker_exp[bp][ei] = 0.0;
340 : 0 : _flicker_pwr[bi][ei] = 0.0;
341 : 0 : _flicker_exp[bi][ei] = 0.0;
342 : :
343 : : int i1, i2, i3, i4;
344 : :
345 : : // zero charges
346 [ # # ]: 0 : for (i1 = 0; i1 < 15; i1++) {
347 [ # # ]: 0 : for (i2 = 0; i2 < 15; i2++) {
348 : 0 : _charges[i1][i2] = 0.0;
349 : : } }
350 : :
351 : : // zero capacitances
352 [ # # ]: 0 : for (i1 = 0; i1 < 15; i1++) {
353 [ # # ]: 0 : for (i2 = 0; i2 < 15; i2++) {
354 [ # # ]: 0 : for (i3 = 0; i3 < 15; i3++) {
355 [ # # ]: 0 : for (i4 = 0; i4 < 15; i4++) {
356 : 0 : _caps[i1][i2][i3][i4] = 0.0;
357 : : } } } }
358 : :
359 : : // zero right hand side, static and dynamic jacobian
360 [ # # ]: 0 : for (i1 = 0; i1 < 15; i1++) {
361 : 0 : _rhs[i1] = 0.0;
362 : 0 : _qhs[i1] = 0.0;
363 : 0 : _chs[i1] = 0.0;
364 : 0 : _ghs[i1] = 0.0;
365 [ # # ]: 0 : for (i2 = 0; i2 < 15; i2++) {
366 : 0 : _jstat[i1][i2] = 0.0;
367 : 0 : _jdyna[i1][i2] = 0.0;
368 : : }
369 : : }
370 : 0 : }
371 : :
372 : : /* Load device model input parameters. */
373 : 0 : void hicumL2V2p31n::loadVariables (void)
374 : : {
375 : 0 : c10 = getPropertyDouble ("c10");
376 : 0 : qp0 = getPropertyDouble ("qp0");
377 : 0 : ich = getPropertyDouble ("ich");
378 : 0 : hf0 = getPropertyDouble ("hf0");
379 : 0 : hfe = getPropertyDouble ("hfe");
380 : 0 : hfc = getPropertyDouble ("hfc");
381 : 0 : hjei = getPropertyDouble ("hjei");
382 : 0 : ahjei = getPropertyDouble ("ahjei");
383 : 0 : rhjei = getPropertyDouble ("rhjei");
384 : 0 : hjci = getPropertyDouble ("hjci");
385 : 0 : ibeis = getPropertyDouble ("ibeis");
386 : 0 : mbei = getPropertyDouble ("mbei");
387 : 0 : ireis = getPropertyDouble ("ireis");
388 : 0 : mrei = getPropertyDouble ("mrei");
389 : 0 : ibeps = getPropertyDouble ("ibeps");
390 : 0 : mbep = getPropertyDouble ("mbep");
391 : 0 : ireps = getPropertyDouble ("ireps");
392 : 0 : mrep = getPropertyDouble ("mrep");
393 : 0 : mcf = getPropertyDouble ("mcf");
394 : 0 : tbhrec = getPropertyDouble ("tbhrec");
395 : 0 : ibcis = getPropertyDouble ("ibcis");
396 : 0 : mbci = getPropertyDouble ("mbci");
397 : 0 : ibcxs = getPropertyDouble ("ibcxs");
398 : 0 : mbcx = getPropertyDouble ("mbcx");
399 : 0 : ibets = getPropertyDouble ("ibets");
400 : 0 : abet = getPropertyDouble ("abet");
401 : 0 : tunode = getPropertyInteger ("tunode");
402 : 0 : favl = getPropertyDouble ("favl");
403 : 0 : qavl = getPropertyDouble ("qavl");
404 : 0 : alfav = getPropertyDouble ("alfav");
405 : 0 : alqav = getPropertyDouble ("alqav");
406 : 0 : rbi0 = getPropertyDouble ("rbi0");
407 : 0 : rbx = getPropertyDouble ("rbx");
408 : 0 : fgeo = getPropertyDouble ("fgeo");
409 : 0 : fdqr0 = getPropertyDouble ("fdqr0");
410 : 0 : fcrbi = getPropertyDouble ("fcrbi");
411 : 0 : fqi = getPropertyDouble ("fqi");
412 : 0 : re = getPropertyDouble ("re");
413 : 0 : rcx = getPropertyDouble ("rcx");
414 : 0 : itss = getPropertyDouble ("itss");
415 : 0 : msf = getPropertyDouble ("msf");
416 : 0 : iscs = getPropertyDouble ("iscs");
417 : 0 : msc = getPropertyDouble ("msc");
418 : 0 : tsf = getPropertyDouble ("tsf");
419 : 0 : rsu = getPropertyDouble ("rsu");
420 : 0 : csu = getPropertyDouble ("csu");
421 : 0 : cjei0 = getPropertyDouble ("cjei0");
422 : 0 : vdei = getPropertyDouble ("vdei");
423 : 0 : zei = getPropertyDouble ("zei");
424 : 0 : ajei = getPropertyDouble ("ajei");
425 : 0 : cjep0 = getPropertyDouble ("cjep0");
426 : 0 : vdep = getPropertyDouble ("vdep");
427 : 0 : zep = getPropertyDouble ("zep");
428 : 0 : ajep = getPropertyDouble ("ajep");
429 : 0 : cjci0 = getPropertyDouble ("cjci0");
430 : 0 : vdci = getPropertyDouble ("vdci");
431 : 0 : zci = getPropertyDouble ("zci");
432 : 0 : vptci = getPropertyDouble ("vptci");
433 : 0 : cjcx0 = getPropertyDouble ("cjcx0");
434 : 0 : vdcx = getPropertyDouble ("vdcx");
435 : 0 : zcx = getPropertyDouble ("zcx");
436 : 0 : vptcx = getPropertyDouble ("vptcx");
437 : 0 : fbcpar = getPropertyDouble ("fbcpar");
438 : 0 : fbepar = getPropertyDouble ("fbepar");
439 : 0 : cjs0 = getPropertyDouble ("cjs0");
440 : 0 : vds = getPropertyDouble ("vds");
441 : 0 : zs = getPropertyDouble ("zs");
442 : 0 : vpts = getPropertyDouble ("vpts");
443 : 0 : t0 = getPropertyDouble ("t0");
444 : 0 : dt0h = getPropertyDouble ("dt0h");
445 : 0 : tbvl = getPropertyDouble ("tbvl");
446 : 0 : tef0 = getPropertyDouble ("tef0");
447 : 0 : gtfe = getPropertyDouble ("gtfe");
448 : 0 : thcs = getPropertyDouble ("thcs");
449 : 0 : ahc = getPropertyDouble ("ahc");
450 : 0 : fthc = getPropertyDouble ("fthc");
451 : 0 : rci0 = getPropertyDouble ("rci0");
452 : 0 : vlim = getPropertyDouble ("vlim");
453 : 0 : vces = getPropertyDouble ("vces");
454 : 0 : vpt = getPropertyDouble ("vpt");
455 : 0 : tr = getPropertyDouble ("tr");
456 : 0 : vcbar = getPropertyDouble ("vcbar");
457 : 0 : icbar = getPropertyDouble ("icbar");
458 : 0 : acbar = getPropertyDouble ("acbar");
459 : 0 : delck = getPropertyDouble ("delck");
460 : 0 : cbepar = getPropertyDouble ("cbepar");
461 : 0 : cbcpar = getPropertyDouble ("cbcpar");
462 : 0 : alqf = getPropertyDouble ("alqf");
463 : 0 : alit = getPropertyDouble ("alit");
464 : 0 : flnqs = getPropertyInteger ("flnqs");
465 : 0 : kf = getPropertyDouble ("kf");
466 : 0 : af = getPropertyDouble ("af");
467 : 0 : cfbe = getPropertyInteger ("cfbe");
468 : 0 : flcono = getPropertyInteger ("flcono");
469 : 0 : kfre = getPropertyDouble ("kfre");
470 : 0 : afre = getPropertyDouble ("afre");
471 : 0 : latb = getPropertyDouble ("latb");
472 : 0 : latl = getPropertyDouble ("latl");
473 : 0 : vgb = getPropertyDouble ("vgb");
474 : 0 : alt0 = getPropertyDouble ("alt0");
475 : 0 : kt0 = getPropertyDouble ("kt0");
476 : 0 : zetaci = getPropertyDouble ("zetaci");
477 : 0 : alvs = getPropertyDouble ("alvs");
478 : 0 : alces = getPropertyDouble ("alces");
479 : 0 : zetarbi = getPropertyDouble ("zetarbi");
480 : 0 : zetarbx = getPropertyDouble ("zetarbx");
481 : 0 : zetarcx = getPropertyDouble ("zetarcx");
482 : 0 : zetare = getPropertyDouble ("zetare");
483 : 0 : zetacx = getPropertyDouble ("zetacx");
484 : 0 : vge = getPropertyDouble ("vge");
485 : 0 : vgc = getPropertyDouble ("vgc");
486 : 0 : vgs = getPropertyDouble ("vgs");
487 : 0 : f1vg = getPropertyDouble ("f1vg");
488 : 0 : f2vg = getPropertyDouble ("f2vg");
489 : 0 : zetact = getPropertyDouble ("zetact");
490 : 0 : zetabet = getPropertyDouble ("zetabet");
491 : 0 : alb = getPropertyDouble ("alb");
492 : 0 : dvgbe = getPropertyDouble ("dvgbe");
493 : 0 : zetahjei = getPropertyDouble ("zetahjei");
494 : 0 : zetavgbe = getPropertyDouble ("zetavgbe");
495 : 0 : flsh = getPropertyInteger ("flsh");
496 : 0 : rth = getPropertyDouble ("rth");
497 : 0 : zetarth = getPropertyDouble ("zetarth");
498 : 0 : alrth = getPropertyDouble ("alrth");
499 : 0 : cth = getPropertyDouble ("cth");
500 : 0 : flcomp = getPropertyDouble ("flcomp");
501 : 0 : tnom = getPropertyDouble ("tnom");
502 : 0 : dt = getPropertyDouble ("dt");
503 : 0 : }
504 : :
505 : : /* #define's for translated code */
506 : : #undef _DDT
507 : : #define _DDT(q) q
508 : : #define _DYNAMIC
509 : : #define _DERIVATE
510 : : #define _DDX
511 : : #define _DERIVATEFORDDX
512 : :
513 : : /* Evaluate Verilog-AMS equations in model initialization. */
514 : 0 : void hicumL2V2p31n::initializeModel (void)
515 : : {
516 : : #if defined(_DERIVATE)
517 : : double rth_t_Vtnode_GND;
518 : : #endif
519 : : #if defined(_DERIVATE)
520 : : double hfc_t_Vtnode_GND;
521 : : #endif
522 : : #if defined(_DERIVATE)
523 : : double hfe_t_Vtnode_GND;
524 : : #endif
525 : : #if defined(_DERIVATE)
526 : : double hf0_t_Vtnode_GND;
527 : : #endif
528 : : #if defined(_DERIVATE)
529 : : double hjei0_t_Vtnode_GND;
530 : : #endif
531 : : #if defined(_DERIVATE)
532 : : double ahjei_t_Vtnode_GND;
533 : : #endif
534 : : #if defined(_DYNAMIC)
535 : : #if defined(_DERIVATE)
536 : : double vpts_t_Vtnode_GND;
537 : : #endif
538 : : #endif
539 : : #if defined(_DYNAMIC)
540 : : #if defined(_DERIVATE)
541 : : double cjs0_t_Vtnode_GND;
542 : : #endif
543 : : #endif
544 : : #if defined(_DYNAMIC)
545 : : #if defined(_DERIVATE)
546 : : double vds_t_Vtnode_GND;
547 : : #endif
548 : : #endif
549 : : #if defined(_DYNAMIC)
550 : : #if defined(_DERIVATE)
551 : : double tsf_t_Vtnode_GND;
552 : : #endif
553 : : #endif
554 : : #if defined(_DERIVATE)
555 : : double re_t_Vtnode_GND;
556 : : #endif
557 : : #if defined(_DERIVATE)
558 : : double rbx_t_Vtnode_GND;
559 : : #endif
560 : : #if defined(_DERIVATE)
561 : : double rcx_t_Vtnode_GND;
562 : : #endif
563 : : #if defined(_DYNAMIC)
564 : : #if defined(_DERIVATE)
565 : : double cjcx02_t_Vtnode_GND;
566 : : #endif
567 : : #endif
568 : : #if defined(_DYNAMIC)
569 : : #if defined(_DERIVATE)
570 : : double cjcx01_t_Vtnode_GND;
571 : : #endif
572 : : #endif
573 : : #if defined(_DYNAMIC)
574 : : #if defined(_DERIVATE)
575 : : double vptcx_t_Vtnode_GND;
576 : : #endif
577 : : #endif
578 : : #if defined(_DYNAMIC)
579 : : #if defined(_DERIVATE)
580 : : double cratio_t_Vtnode_GND;
581 : : #endif
582 : : #endif
583 : : #if defined(_DYNAMIC)
584 : : #if defined(_DERIVATE)
585 : : double vdcx_t_Vtnode_GND;
586 : : #endif
587 : : #endif
588 : : #if defined(_DERIVATE)
589 : : double abet_t_Vtnode_GND;
590 : : #endif
591 : : #if defined(_DERIVATE)
592 : : double ibets_t_Vtnode_GND;
593 : : #endif
594 : : #if defined(_DERIVATE)
595 : : double ajep_t_Vtnode_GND;
596 : : #endif
597 : : #if defined(_DERIVATE)
598 : : double cjep0_t_Vtnode_GND;
599 : : #endif
600 : : #if defined(_DERIVATE)
601 : : double vdep_t_Vtnode_GND;
602 : : #endif
603 : : #if defined(_DERIVATE)
604 : : double rbi0_t_Vtnode_GND;
605 : : #endif
606 : : #if defined(_DERIVATE)
607 : : double qavl_t_Vtnode_GND;
608 : : #endif
609 : : #if defined(_DERIVATE)
610 : : double favl_t_Vtnode_GND;
611 : : #endif
612 : : #if defined(_DERIVATE)
613 : : double thcs_t_Vtnode_GND;
614 : : #endif
615 : : #if defined(_DERIVATE)
616 : : double t0_t_Vtnode_GND;
617 : : #endif
618 : : #if defined(_DERIVATE)
619 : : double vptci_t_Vtnode_GND;
620 : : #endif
621 : : #if defined(_DERIVATE)
622 : : double cjci0_t_Vtnode_GND;
623 : : #endif
624 : : #if defined(_DERIVATE)
625 : : double vdci_t_Vtnode_GND;
626 : : #endif
627 : : #if defined(_DERIVATE)
628 : : double vces_t_Vtnode_GND;
629 : : #endif
630 : : #if defined(_DERIVATE)
631 : : double rci0_t_Vtnode_GND;
632 : : #endif
633 : : #if defined(_DERIVATE)
634 : : double c10_t_Vtnode_GND;
635 : : #endif
636 : : #if defined(_DERIVATE)
637 : : double tef0_t_Vtnode_GND;
638 : : #endif
639 : : #if defined(_DERIVATE)
640 : : double vlim_t_Vtnode_GND;
641 : : #endif
642 : : #if defined(_DERIVATE)
643 : : double k_Vtnode_GND;
644 : : #endif
645 : : #if defined(_DERIVATE)
646 : : double qp0_t_Vtnode_GND;
647 : : #endif
648 : : #if defined(_DERIVATE)
649 : : double iscs_t_Vtnode_GND;
650 : : #endif
651 : : #if defined(_DERIVATE)
652 : : double itss_t_Vtnode_GND;
653 : : #endif
654 : : #if defined(_DERIVATE)
655 : : double ibcxs_t_Vtnode_GND;
656 : : #endif
657 : : #if defined(_DERIVATE)
658 : : double ibcis_t_Vtnode_GND;
659 : : #endif
660 : : #if defined(_DERIVATE)
661 : : double ireps_t_Vtnode_GND;
662 : : #endif
663 : : #if defined(_DERIVATE)
664 : : double ibeps_t_Vtnode_GND;
665 : : #endif
666 : : #if defined(_DERIVATE)
667 : : double ireis_t_Vtnode_GND;
668 : : #endif
669 : : #if defined(_DERIVATE)
670 : : double ibeis_t_Vtnode_GND;
671 : : #endif
672 : : #if defined(_DERIVATE)
673 : : double a_Vbi_ei;
674 : : double a_Vbi_ci;
675 : : double a_Vci_ei;
676 : : double a_Vtnode_GND;
677 : : #endif
678 : : #if defined(_DERIVATE)
679 : : double r_VgVT_Vtnode_GND;
680 : : #endif
681 : : #if defined(_DERIVATE)
682 : : double V_gT_Vtnode_GND;
683 : : #endif
684 : : #if defined(_DERIVATE)
685 : : double ajei_t_Vtnode_GND;
686 : : #endif
687 : : #if defined(_DERIVATE)
688 : : double cjei0_t_Vtnode_GND;
689 : : #endif
690 : : #if defined(_DERIVATE)
691 : : double vdei_t_Vtnode_GND;
692 : : #endif
693 : : #if defined(_DERIVATE)
694 : : double vdt_Vtnode_GND;
695 : : #endif
696 : : #if defined(_DERIVATE)
697 : : double vdjt_Vtnode_GND;
698 : : #endif
699 : : #if defined(_DERIVATE)
700 : : double vgbe_t_Vtnode_GND;
701 : : #endif
702 : : #if defined(_DERIVATE)
703 : : double vge_t_Vtnode_GND;
704 : : #endif
705 : : #if defined(_DERIVATE)
706 : : double vgb_t_Vtnode_GND;
707 : : #endif
708 : : #if defined(_DERIVATE)
709 : : double k2_Vtnode_GND;
710 : : #endif
711 : : #if defined(_DERIVATE)
712 : : double k1_Vtnode_GND;
713 : : #endif
714 : : #if defined(_DERIVATE)
715 : : double ln_qtt0_Vtnode_GND;
716 : : #endif
717 : : #if defined(_DERIVATE)
718 : : double qtt0_Vtnode_GND;
719 : : #endif
720 : : #if defined(_DERIVATE)
721 : : double dT_Vtnode_GND;
722 : : #endif
723 : : #if defined(_DERIVATE)
724 : : double VT_Vtnode_GND;
725 : : #endif
726 : : #if defined(_DERIVATE)
727 : : double Tdev_Vtnode_GND;
728 : : #endif
729 : : #if defined(_DYNAMIC)
730 : : #endif
731 : : #if defined(_DYNAMIC)
732 : : #endif
733 : : #if defined(_DYNAMIC)
734 : : #endif
735 : : #if defined(_DYNAMIC)
736 : : #endif
737 : : #if defined(_DYNAMIC)
738 : : #endif
739 : : #if defined(_DYNAMIC)
740 : : #endif
741 : : #if defined(_DYNAMIC)
742 : : double C_1;
743 : : #endif
744 : : double vge_t0;
745 : : double vgb_t0;
746 : : double k20;
747 : : double k10;
748 : : {
749 : 0 : Tnom=(tnom+273.15);
750 : 0 : Tamb=_circuit_temp;
751 : 0 : vt0=((1.3806503e-23*Tnom)/1.602176462e-19);
752 : : {
753 : 0 : double m00_logE(d00_logE0,Tnom)
754 : 0 : k10=((f1vg*Tnom)*d00_logE0);
755 : : }
756 : 0 : k20=(f2vg*Tnom);
757 : 0 : avs=(alvs*Tnom);
758 : 0 : vgb_t0=((vgb+k10)+k20);
759 : 0 : vge_t0=((vge+k10)+k20);
760 : 0 : vgbe_t0=((vgb_t0+vge_t0)/2);
761 : 0 : vgbe0=((vgb+vge)/2);
762 : 0 : vgbc0=((vgb+vgc)/2);
763 : 0 : vgsc0=((vgs+vgc)/2);
764 : 0 : mg=(3-((1.602176462e-19*f1vg)/1.3806503e-23));
765 : 0 : zetabci=((mg+1)-zetaci);
766 : 0 : zetabcxt=((mg+1)-zetacx);
767 : 0 : zetasct=(mg-1.5);
768 : : #if defined(_DYNAMIC)
769 : 0 : C_1=((1.0-fbcpar)*(cjcx0+cbcpar));
770 : : #endif
771 : : #ifdef _DYNAMIC
772 [ # # ]: 0 : if
773 : : (C_1>=cbcpar)
774 : : {
775 : : #if defined(_DYNAMIC)
776 : 0 : cbcpar1=cbcpar;
777 : : #endif
778 : : #if defined(_DYNAMIC)
779 : 0 : cbcpar2=0.0;
780 : : #endif
781 : : #if defined(_DYNAMIC)
782 : 0 : cjcx01=(C_1-cbcpar);
783 : : #endif
784 : : #if defined(_DYNAMIC)
785 : 0 : cjcx02=(cjcx0-cjcx01);
786 : : #endif
787 : : }
788 : : else
789 : : {
790 : : #if defined(_DYNAMIC)
791 : 0 : cbcpar1=C_1;
792 : : #endif
793 : : #if defined(_DYNAMIC)
794 : 0 : cbcpar2=(cbcpar-cbcpar1);
795 : : #endif
796 : : #if defined(_DYNAMIC)
797 : 0 : cjcx01=0.0;
798 : : #endif
799 : : #if defined(_DYNAMIC)
800 : 0 : cjcx02=cjcx0;
801 : : #endif
802 : : }
803 : : #endif /* if (...) */
804 : : #if defined(_DYNAMIC)
805 : 0 : cbepar2=(fbepar*cbepar);
806 : : #endif
807 : : #if defined(_DYNAMIC)
808 : 0 : cbepar1=(cbepar-cbepar2);
809 : : #endif
810 [ # # ]: 0 : if
811 : : (ich!=0.0)
812 : : {
813 : 0 : Oich=(1.0/ich);
814 : : }
815 : : else
816 : : {
817 : 0 : Oich=0.0;
818 : : }
819 [ # # ]: 0 : if
820 : : (tbhrec!=0.0)
821 : : {
822 : 0 : Otbhrec=(1.0/tbhrec);
823 : : }
824 : : else
825 : : {
826 : 0 : Otbhrec=0.0;
827 : : }
828 [ # # ][ # # ]: 0 : if
829 : : ((flsh==0)||(rth<0.001))
830 : : {
831 : : #if defined(_DERIVATE)
832 : 0 : Tdev_Vtnode_GND=0.0;
833 : : #endif
834 : 0 : Tdev=(Tamb+dt);
835 [ # # ]: 0 : if
836 : : (Tdev<((-100.0)+273.15))
837 : : {
838 : : #if defined(_DERIVATE)
839 : 0 : Tdev_Vtnode_GND=0.0;
840 : : #endif
841 : 0 : Tdev=((-100.0)+273.15);
842 : : }
843 : : else
844 : : {
845 [ # # ]: 0 : if
846 : : (Tdev>(326.85+273.15))
847 : : {
848 : : #if defined(_DERIVATE)
849 : 0 : Tdev_Vtnode_GND=0.0;
850 : : #endif
851 : 0 : Tdev=(326.85+273.15);
852 : : }
853 : : }
854 : : #if defined(_DERIVATE)
855 : 0 : VT_Vtnode_GND=0.0;
856 : : #endif
857 : 0 : VT=((1.3806503e-23*Tdev)/1.602176462e-19);
858 : : #if defined(_DERIVATE)
859 : 0 : dT_Vtnode_GND=0.0;
860 : : #endif
861 : 0 : dT=(Tdev-Tnom);
862 : : #if defined(_DERIVATE)
863 : 0 : qtt0_Vtnode_GND=0.0;
864 : : #endif
865 : 0 : qtt0=(Tdev/Tnom);
866 : : {
867 : 0 : double m00_logE(d00_logE0,qtt0)
868 : : #if defined(_DERIVATE)
869 : 0 : ln_qtt0_Vtnode_GND=0.0;
870 : : #endif
871 : 0 : ln_qtt0=d00_logE0;
872 : : }
873 : : {
874 : 0 : double m00_logE(d00_logE0,Tdev)
875 : : #if defined(_DERIVATE)
876 : 0 : k1_Vtnode_GND=0.0;
877 : : #endif
878 : 0 : k1=((f1vg*Tdev)*d00_logE0);
879 : : }
880 : : #if defined(_DERIVATE)
881 : 0 : k2_Vtnode_GND=0.0;
882 : : #endif
883 : 0 : k2=(f2vg*Tdev);
884 : : #if defined(_DERIVATE)
885 : 0 : vgb_t_Vtnode_GND=0.0;
886 : : #endif
887 : 0 : vgb_t=((vgb+k1)+k2);
888 : : #if defined(_DERIVATE)
889 : 0 : vge_t_Vtnode_GND=0.0;
890 : : #endif
891 : 0 : vge_t=((vge+k1)+k2);
892 : : #if defined(_DERIVATE)
893 : 0 : vgbe_t_Vtnode_GND=0.0;
894 : : #endif
895 : 0 : vgbe_t=((vgb_t+vge_t)/2);
896 [ # # ]: 0 : if
897 : : (cjei0>0.0)
898 : : {
899 : : {
900 : 0 : double m00_exp(d00_exp0,((vdei*0.5)/vt0))
901 : 0 : double m00_exp(d00_exp1,(((-0.5)*vdei)/vt0))
902 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
903 : 0 : vdj0=((2*vt0)*d00_logE2);
904 : : }
905 : : #if defined(_DERIVATE)
906 : 0 : vdjt_Vtnode_GND=0.0;
907 : : #endif
908 : 0 : vdjt=(((vdj0*qtt0)+(vgbe0*(1-qtt0)))-((mg*VT)*ln_qtt0));
909 : : {
910 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
911 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
912 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
913 : : #if defined(_DERIVATE)
914 : 0 : vdt_Vtnode_GND=0.0;
915 : : #endif
916 : 0 : vdt=(vdjt+((2*VT)*d00_logE2));
917 : : }
918 : : #if defined(_DERIVATE)
919 : 0 : vdei_t_Vtnode_GND=0.0;
920 : : #endif
921 : 0 : vdei_t=vdt;
922 : : {
923 : 0 : double m00_logE(d00_logE0,(vdei/vdei_t))
924 : 0 : double m00_exp(d00_exp1,(zei*d00_logE0))
925 : : #if defined(_DERIVATE)
926 : 0 : cjei0_t_Vtnode_GND=0.0;
927 : : #endif
928 : 0 : cjei0_t=(cjei0*d00_exp1);
929 : : }
930 : : if
931 : : (1==1)
932 : : {
933 : : #if defined(_DERIVATE)
934 : 0 : ajei_t_Vtnode_GND=0.0;
935 : : #endif
936 : 0 : ajei_t=((ajei*vdei_t)/vdei);
937 : : }
938 : : else
939 : : {
940 : : #if defined(_DERIVATE)
941 : : ajei_t_Vtnode_GND=0.0;
942 : : #endif
943 : : ajei_t=ajei;
944 : : }
945 : : }
946 : : else
947 : : {
948 : : #if defined(_DERIVATE)
949 : 0 : cjei0_t_Vtnode_GND=0.0;
950 : : #endif
951 : 0 : cjei0_t=cjei0;
952 : : #if defined(_DERIVATE)
953 : 0 : vdei_t_Vtnode_GND=0.0;
954 : : #endif
955 : 0 : vdei_t=vdei;
956 : : #if defined(_DERIVATE)
957 : 0 : ajei_t_Vtnode_GND=0.0;
958 : : #endif
959 : 0 : ajei_t=ajei;
960 : : }
961 [ # # ][ # # ]: 0 : if
962 : : ((flcomp==0.0)||(flcomp==2.1))
963 : : {
964 : : #if defined(_DERIVATE)
965 : 0 : V_gT_Vtnode_GND=0.0;
966 : : #endif
967 : 0 : V_gT=(((3.0*VT)*ln_qtt0)+(vgb*(qtt0-1.0)));
968 : : #if defined(_DERIVATE)
969 : 0 : r_VgVT_Vtnode_GND=0.0;
970 : : #endif
971 : 0 : r_VgVT=(V_gT/VT);
972 : : #if defined(_DERIVATE)
973 : 0 : a_Vbi_ei=0.0;
974 : 0 : a_Vbi_ci=0.0;
975 : 0 : a_Vci_ei=0.0;
976 : 0 : a_Vtnode_GND=0.0;
977 : : #endif
978 : 0 : a=(((mcf*r_VgVT)/mbei)-(alb*dT));
979 : : {
980 : 0 : double m00_exp(d00_exp0,a)
981 : : #if defined(_DERIVATE)
982 : 0 : ibeis_t_Vtnode_GND=0.0;
983 : : #endif
984 : 0 : ibeis_t=(ibeis*d00_exp0);
985 : : }
986 : : #if defined(_DERIVATE)
987 : 0 : a_Vbi_ei=0.0;
988 : 0 : a_Vbi_ci=0.0;
989 : 0 : a_Vci_ei=0.0;
990 : 0 : a_Vtnode_GND=0.0;
991 : : #endif
992 : 0 : a=(((mcf*r_VgVT)/mrei)-(alb*dT));
993 : : {
994 : 0 : double m00_exp(d00_exp0,a)
995 : : #if defined(_DERIVATE)
996 : 0 : ireis_t_Vtnode_GND=0.0;
997 : : #endif
998 : 0 : ireis_t=(ireis*d00_exp0);
999 : : }
1000 : : #if defined(_DERIVATE)
1001 : 0 : a_Vbi_ei=0.0;
1002 : 0 : a_Vbi_ci=0.0;
1003 : 0 : a_Vci_ei=0.0;
1004 : 0 : a_Vtnode_GND=0.0;
1005 : : #endif
1006 : 0 : a=(((mcf*r_VgVT)/mbep)-(alb*dT));
1007 : : {
1008 : 0 : double m00_exp(d00_exp0,a)
1009 : : #if defined(_DERIVATE)
1010 : 0 : ibeps_t_Vtnode_GND=0.0;
1011 : : #endif
1012 : 0 : ibeps_t=(ibeps*d00_exp0);
1013 : : }
1014 : : #if defined(_DERIVATE)
1015 : 0 : a_Vbi_ei=0.0;
1016 : 0 : a_Vbi_ci=0.0;
1017 : 0 : a_Vci_ei=0.0;
1018 : 0 : a_Vtnode_GND=0.0;
1019 : : #endif
1020 : 0 : a=(((mcf*r_VgVT)/mrep)-(alb*dT));
1021 : : {
1022 : 0 : double m00_exp(d00_exp0,a)
1023 : : #if defined(_DERIVATE)
1024 : 0 : ireps_t_Vtnode_GND=0.0;
1025 : : #endif
1026 : 0 : ireps_t=(ireps*d00_exp0);
1027 : : }
1028 : : #if defined(_DERIVATE)
1029 : 0 : a_Vbi_ei=0.0;
1030 : 0 : a_Vbi_ci=0.0;
1031 : 0 : a_Vci_ei=0.0;
1032 : 0 : a_Vtnode_GND=0.0;
1033 : : #endif
1034 : 0 : a=(r_VgVT/mbci);
1035 : : {
1036 : 0 : double m00_exp(d00_exp0,a)
1037 : : #if defined(_DERIVATE)
1038 : 0 : ibcis_t_Vtnode_GND=0.0;
1039 : : #endif
1040 : 0 : ibcis_t=(ibcis*d00_exp0);
1041 : : }
1042 : : #if defined(_DERIVATE)
1043 : 0 : a_Vbi_ei=0.0;
1044 : 0 : a_Vbi_ci=0.0;
1045 : 0 : a_Vci_ei=0.0;
1046 : 0 : a_Vtnode_GND=0.0;
1047 : : #endif
1048 : 0 : a=(r_VgVT/mbcx);
1049 : : {
1050 : 0 : double m00_exp(d00_exp0,a)
1051 : : #if defined(_DERIVATE)
1052 : 0 : ibcxs_t_Vtnode_GND=0.0;
1053 : : #endif
1054 : 0 : ibcxs_t=(ibcxs*d00_exp0);
1055 : : }
1056 : : #if defined(_DERIVATE)
1057 : 0 : a_Vbi_ei=0.0;
1058 : 0 : a_Vbi_ci=0.0;
1059 : 0 : a_Vci_ei=0.0;
1060 : 0 : a_Vtnode_GND=0.0;
1061 : : #endif
1062 : 0 : a=(r_VgVT/msf);
1063 : : {
1064 : 0 : double m00_exp(d00_exp0,a)
1065 : : #if defined(_DERIVATE)
1066 : 0 : itss_t_Vtnode_GND=0.0;
1067 : : #endif
1068 : 0 : itss_t=(itss*d00_exp0);
1069 : : }
1070 : : #if defined(_DERIVATE)
1071 : 0 : a_Vbi_ei=0.0;
1072 : 0 : a_Vbi_ci=0.0;
1073 : 0 : a_Vci_ei=0.0;
1074 : 0 : a_Vtnode_GND=0.0;
1075 : : #endif
1076 : 0 : a=(r_VgVT/msc);
1077 : : {
1078 : 0 : double m00_exp(d00_exp0,a)
1079 : : #if defined(_DERIVATE)
1080 : 0 : iscs_t_Vtnode_GND=0.0;
1081 : : #endif
1082 : 0 : iscs_t=(iscs*d00_exp0);
1083 : : }
1084 : : #if defined(_DERIVATE)
1085 : 0 : a_Vbi_ei=0.0;
1086 : 0 : a_Vbi_ci=0.0;
1087 : 0 : a_Vci_ei=0.0;
1088 : 0 : a_Vtnode_GND=0.0;
1089 : : #endif
1090 : 0 : a=(vdei_t/vdei);
1091 : : #if defined(_DERIVATE)
1092 : 0 : qp0_t_Vtnode_GND=0.0;
1093 : : #endif
1094 : 0 : qp0_t=(qp0*(1.0+((0.5*zei)*(1.0-a))));
1095 : : {
1096 : 0 : double m00_exp(d00_exp0,(zetaci*ln_qtt0))
1097 : : #if defined(_DERIVATE)
1098 : 0 : a_Vbi_ei=0.0;
1099 : 0 : a_Vbi_ci=0.0;
1100 : 0 : a_Vci_ei=0.0;
1101 : 0 : a_Vtnode_GND=0.0;
1102 : : #endif
1103 : 0 : a=((vlim*(1.0-(alvs*dT)))*d00_exp0);
1104 : : }
1105 : : #if defined(_DERIVATE)
1106 : 0 : k_Vtnode_GND=0.0;
1107 : : #endif
1108 : 0 : k=((a-VT)/VT);
1109 [ # # ]: 0 : if
1110 : : (k<11.0)
1111 : : {
1112 : : {
1113 : 0 : double m00_exp(d00_exp0,k)
1114 : 0 : double m00_logE(d00_logE1,(1.0+d00_exp0))
1115 : : #if defined(_DERIVATE)
1116 : 0 : vlim_t_Vtnode_GND=0.0;
1117 : : #endif
1118 : 0 : vlim_t=(VT+(VT*d00_logE1));
1119 : : }
1120 : : }
1121 : : else
1122 : : {
1123 : : #if defined(_DERIVATE)
1124 : 0 : vlim_t_Vtnode_GND=0.0;
1125 : : #endif
1126 : 0 : vlim_t=a;
1127 : : }
1128 : : #if defined(_DERIVATE)
1129 : 0 : a_Vbi_ei=0.0;
1130 : 0 : a_Vbi_ci=0.0;
1131 : 0 : a_Vci_ei=0.0;
1132 : 0 : a_Vtnode_GND=0.0;
1133 : : #endif
1134 : 0 : a=(1.0+(alb*dT));
1135 : : {
1136 : 0 : double m00_sqrt(d00_sqrt0,((a*a)+0.01))
1137 : : #if defined(_DERIVATE)
1138 : 0 : k_Vtnode_GND=0.0;
1139 : : #endif
1140 : 0 : k=(0.5*(a+d00_sqrt0));
1141 : : }
1142 : : #if defined(_DERIVATE)
1143 : 0 : tef0_t_Vtnode_GND=0.0;
1144 : : #endif
1145 : 0 : tef0_t=((tef0*qtt0)/k);
1146 : : }
1147 : : else
1148 : : {
1149 : : {
1150 : 0 : double m00_exp(d00_exp0,((zetabet*ln_qtt0)+((vge/VT)*(qtt0-1))))
1151 : : #if defined(_DERIVATE)
1152 : 0 : ibeis_t_Vtnode_GND=0.0;
1153 : : #endif
1154 : 0 : ibeis_t=(ibeis*d00_exp0);
1155 : : }
1156 [ # # ]: 0 : if
1157 : : (flcomp>=2.3)
1158 : : {
1159 : : {
1160 : 0 : double m00_exp(d00_exp0,(((mg/mrei)*ln_qtt0)+((vgbe0/(mrei*VT))*(qtt0-1))))
1161 : : #if defined(_DERIVATE)
1162 : 0 : ireis_t_Vtnode_GND=0.0;
1163 : : #endif
1164 : 0 : ireis_t=(ireis*d00_exp0);
1165 : : }
1166 : : }
1167 : : else
1168 : : {
1169 : : {
1170 : 0 : double m00_exp(d00_exp0,(((0.5*mg)*ln_qtt0)+(((0.5*vgbe0)/VT)*(qtt0-1))))
1171 : : #if defined(_DERIVATE)
1172 : 0 : ireis_t_Vtnode_GND=0.0;
1173 : : #endif
1174 : 0 : ireis_t=(ireis*d00_exp0);
1175 : : }
1176 : : }
1177 : : {
1178 : 0 : double m00_exp(d00_exp0,((zetabet*ln_qtt0)+((vge/VT)*(qtt0-1))))
1179 : : #if defined(_DERIVATE)
1180 : 0 : ibeps_t_Vtnode_GND=0.0;
1181 : : #endif
1182 : 0 : ibeps_t=(ibeps*d00_exp0);
1183 : : }
1184 [ # # ]: 0 : if
1185 : : (flcomp>=2.3)
1186 : : {
1187 : : {
1188 : 0 : double m00_exp(d00_exp0,(((mg/mrep)*ln_qtt0)+((vgbe0/(mrep*VT))*(qtt0-1))))
1189 : : #if defined(_DERIVATE)
1190 : 0 : ireps_t_Vtnode_GND=0.0;
1191 : : #endif
1192 : 0 : ireps_t=(ireps*d00_exp0);
1193 : : }
1194 : : }
1195 : : else
1196 : : {
1197 : : {
1198 : 0 : double m00_exp(d00_exp0,(((0.5*mg)*ln_qtt0)+(((0.5*vgbe0)/VT)*(qtt0-1))))
1199 : : #if defined(_DERIVATE)
1200 : 0 : ireps_t_Vtnode_GND=0.0;
1201 : : #endif
1202 : 0 : ireps_t=(ireps*d00_exp0);
1203 : : }
1204 : : }
1205 : : {
1206 : 0 : double m00_exp(d00_exp0,((zetabci*ln_qtt0)+((vgc/VT)*(qtt0-1))))
1207 : : #if defined(_DERIVATE)
1208 : 0 : ibcis_t_Vtnode_GND=0.0;
1209 : : #endif
1210 : 0 : ibcis_t=(ibcis*d00_exp0);
1211 : : }
1212 : : {
1213 : 0 : double m00_exp(d00_exp0,((zetabcxt*ln_qtt0)+((vgc/VT)*(qtt0-1))))
1214 : : #if defined(_DERIVATE)
1215 : 0 : ibcxs_t_Vtnode_GND=0.0;
1216 : : #endif
1217 : 0 : ibcxs_t=(ibcxs*d00_exp0);
1218 : : }
1219 : : {
1220 : 0 : double m00_exp(d00_exp0,((zetasct*ln_qtt0)+((vgc/VT)*(qtt0-1))))
1221 : : #if defined(_DERIVATE)
1222 : 0 : itss_t_Vtnode_GND=0.0;
1223 : : #endif
1224 : 0 : itss_t=(itss*d00_exp0);
1225 : : }
1226 : : {
1227 : 0 : double m00_exp(d00_exp0,((zetasct*ln_qtt0)+((vgs/VT)*(qtt0-1))))
1228 : : #if defined(_DERIVATE)
1229 : 0 : iscs_t_Vtnode_GND=0.0;
1230 : : #endif
1231 : 0 : iscs_t=(iscs*d00_exp0);
1232 : : }
1233 : : {
1234 : 0 : double m00_logE(d00_logE0,(vdei_t/vdei))
1235 : 0 : double m00_exp(d00_exp1,(zei*d00_logE0))
1236 : : #if defined(_DERIVATE)
1237 : 0 : a_Vbi_ei=0.0;
1238 : 0 : a_Vbi_ci=0.0;
1239 : 0 : a_Vci_ei=0.0;
1240 : 0 : a_Vtnode_GND=0.0;
1241 : : #endif
1242 : 0 : a=d00_exp1;
1243 : : }
1244 : : #if defined(_DERIVATE)
1245 : 0 : qp0_t_Vtnode_GND=0.0;
1246 : : #endif
1247 : 0 : qp0_t=(qp0*(2.0-a));
1248 : : {
1249 : 0 : double m00_exp(d00_exp0,((zetaci-avs)*ln_qtt0))
1250 : : #if defined(_DERIVATE)
1251 : 0 : vlim_t_Vtnode_GND=0.0;
1252 : : #endif
1253 : 0 : vlim_t=(vlim*d00_exp0);
1254 : : }
1255 [ # # ]: 0 : if
1256 : : (flcomp>=2.3)
1257 : : {
1258 : : #if defined(_DERIVATE)
1259 : 0 : tef0_t_Vtnode_GND=0.0;
1260 : : #endif
1261 : 0 : tef0_t=tef0;
1262 : : }
1263 : : else
1264 : : {
1265 : 0 : zetatef=((zetabet-zetact)-0.5);
1266 : 0 : dvg0=(vgb-vge);
1267 : : {
1268 : 0 : double m00_exp(d00_exp0,((zetatef*ln_qtt0)-((dvg0/VT)*(qtt0-1))))
1269 : : #if defined(_DERIVATE)
1270 : 0 : tef0_t_Vtnode_GND=0.0;
1271 : : #endif
1272 : 0 : tef0_t=(tef0*d00_exp0);
1273 : : }
1274 : : }
1275 : : }
1276 : : {
1277 : 0 : double m00_exp(d00_exp0,((zetact*ln_qtt0)+((vgb/VT)*(qtt0-1))))
1278 : : #if defined(_DERIVATE)
1279 : 0 : c10_t_Vtnode_GND=0.0;
1280 : : #endif
1281 : 0 : c10_t=(c10*d00_exp0);
1282 : : }
1283 : : {
1284 : 0 : double m00_exp(d00_exp0,(zetaci*ln_qtt0))
1285 : : #if defined(_DERIVATE)
1286 : 0 : rci0_t_Vtnode_GND=0.0;
1287 : : #endif
1288 : 0 : rci0_t=(rci0*d00_exp0);
1289 : : }
1290 : : #if defined(_DERIVATE)
1291 : 0 : vces_t_Vtnode_GND=0.0;
1292 : : #endif
1293 : 0 : vces_t=(vces*(1+(alces*dT)));
1294 [ # # ]: 0 : if
1295 : : (cjci0>0.0)
1296 : : {
1297 : : {
1298 : 0 : double m00_exp(d00_exp0,((vdci*0.5)/vt0))
1299 : 0 : double m00_exp(d00_exp1,(((-0.5)*vdci)/vt0))
1300 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
1301 : 0 : vdj0=((2*vt0)*d00_logE2);
1302 : : }
1303 : : #if defined(_DERIVATE)
1304 : 0 : vdjt_Vtnode_GND=0.0;
1305 : : #endif
1306 : 0 : vdjt=(((vdj0*qtt0)+(vgbc0*(1-qtt0)))-((mg*VT)*ln_qtt0));
1307 : : {
1308 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
1309 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
1310 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
1311 : : #if defined(_DERIVATE)
1312 : 0 : vdt_Vtnode_GND=0.0;
1313 : : #endif
1314 : 0 : vdt=(vdjt+((2*VT)*d00_logE2));
1315 : : }
1316 : : #if defined(_DERIVATE)
1317 : 0 : vdci_t_Vtnode_GND=0.0;
1318 : : #endif
1319 : 0 : vdci_t=vdt;
1320 : : {
1321 : 0 : double m00_logE(d00_logE0,(vdci/vdci_t))
1322 : 0 : double m00_exp(d00_exp1,(zci*d00_logE0))
1323 : : #if defined(_DERIVATE)
1324 : 0 : cjci0_t_Vtnode_GND=0.0;
1325 : : #endif
1326 : 0 : cjci0_t=(cjci0*d00_exp1);
1327 : : }
1328 : : if
1329 : : (0==1)
1330 : : {
1331 : : #if defined(_DERIVATE)
1332 : : vptci_t_Vtnode_GND=0.0;
1333 : : #endif
1334 : : vptci_t=((vptci*vdci_t)/vdci);
1335 : : }
1336 : : else
1337 : : {
1338 : : #if defined(_DERIVATE)
1339 : 0 : vptci_t_Vtnode_GND=0.0;
1340 : : #endif
1341 : 0 : vptci_t=vptci;
1342 : : }
1343 : : }
1344 : : else
1345 : : {
1346 : : #if defined(_DERIVATE)
1347 : 0 : cjci0_t_Vtnode_GND=0.0;
1348 : : #endif
1349 : 0 : cjci0_t=cjci0;
1350 : : #if defined(_DERIVATE)
1351 : 0 : vdci_t_Vtnode_GND=0.0;
1352 : : #endif
1353 : 0 : vdci_t=vdci;
1354 : : #if defined(_DERIVATE)
1355 : 0 : vptci_t_Vtnode_GND=0.0;
1356 : : #endif
1357 : 0 : vptci_t=vptci;
1358 : : }
1359 : : #if defined(_DERIVATE)
1360 : 0 : t0_t_Vtnode_GND=0.0;
1361 : : #endif
1362 : 0 : t0_t=(t0*((1+(alt0*dT))+((kt0*dT)*dT)));
1363 : : {
1364 : 0 : double m00_exp(d00_exp0,((zetaci-1)*ln_qtt0))
1365 : : #if defined(_DERIVATE)
1366 : 0 : thcs_t_Vtnode_GND=0.0;
1367 : : #endif
1368 : 0 : thcs_t=(thcs*d00_exp0);
1369 : : }
1370 : : {
1371 : 0 : double m00_exp(d00_exp0,(alfav*dT))
1372 : : #if defined(_DERIVATE)
1373 : 0 : favl_t_Vtnode_GND=0.0;
1374 : : #endif
1375 : 0 : favl_t=(favl*d00_exp0);
1376 : : }
1377 : : {
1378 : 0 : double m00_exp(d00_exp0,(alqav*dT))
1379 : : #if defined(_DERIVATE)
1380 : 0 : qavl_t_Vtnode_GND=0.0;
1381 : : #endif
1382 : 0 : qavl_t=(qavl*d00_exp0);
1383 : : }
1384 : : {
1385 : 0 : double m00_exp(d00_exp0,(zetarbi*ln_qtt0))
1386 : : #if defined(_DERIVATE)
1387 : 0 : rbi0_t_Vtnode_GND=0.0;
1388 : : #endif
1389 : 0 : rbi0_t=(rbi0*d00_exp0);
1390 : : }
1391 [ # # ]: 0 : if
1392 : : (cjep0>0.0)
1393 : : {
1394 : : {
1395 : 0 : double m00_exp(d00_exp0,((vdep*0.5)/vt0))
1396 : 0 : double m00_exp(d00_exp1,(((-0.5)*vdep)/vt0))
1397 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
1398 : 0 : vdj0=((2*vt0)*d00_logE2);
1399 : : }
1400 : : #if defined(_DERIVATE)
1401 : 0 : vdjt_Vtnode_GND=0.0;
1402 : : #endif
1403 : 0 : vdjt=(((vdj0*qtt0)+(vgbe0*(1-qtt0)))-((mg*VT)*ln_qtt0));
1404 : : {
1405 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
1406 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
1407 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
1408 : : #if defined(_DERIVATE)
1409 : 0 : vdt_Vtnode_GND=0.0;
1410 : : #endif
1411 : 0 : vdt=(vdjt+((2*VT)*d00_logE2));
1412 : : }
1413 : : #if defined(_DERIVATE)
1414 : 0 : vdep_t_Vtnode_GND=0.0;
1415 : : #endif
1416 : 0 : vdep_t=vdt;
1417 : : {
1418 : 0 : double m00_logE(d00_logE0,(vdep/vdep_t))
1419 : 0 : double m00_exp(d00_exp1,(zep*d00_logE0))
1420 : : #if defined(_DERIVATE)
1421 : 0 : cjep0_t_Vtnode_GND=0.0;
1422 : : #endif
1423 : 0 : cjep0_t=(cjep0*d00_exp1);
1424 : : }
1425 : : if
1426 : : (1==1)
1427 : : {
1428 : : #if defined(_DERIVATE)
1429 : 0 : ajep_t_Vtnode_GND=0.0;
1430 : : #endif
1431 : 0 : ajep_t=((ajep*vdep_t)/vdep);
1432 : : }
1433 : : else
1434 : : {
1435 : : #if defined(_DERIVATE)
1436 : : ajep_t_Vtnode_GND=0.0;
1437 : : #endif
1438 : : ajep_t=ajep;
1439 : : }
1440 : : }
1441 : : else
1442 : : {
1443 : : #if defined(_DERIVATE)
1444 : 0 : cjep0_t_Vtnode_GND=0.0;
1445 : : #endif
1446 : 0 : cjep0_t=cjep0;
1447 : : #if defined(_DERIVATE)
1448 : 0 : vdep_t_Vtnode_GND=0.0;
1449 : : #endif
1450 : 0 : vdep_t=vdep;
1451 : : #if defined(_DERIVATE)
1452 : 0 : ajep_t_Vtnode_GND=0.0;
1453 : : #endif
1454 : 0 : ajep_t=ajep;
1455 : : }
1456 : : {
1457 : : double a_eg;
1458 : : double ab;
1459 : : double aa;
1460 : 0 : ab=1.0;
1461 : 0 : aa=1.0;
1462 : 0 : a_eg=(vgbe_t0/vgbe_t);
1463 [ # # ][ # # ]: 0 : if
[ # # ]
1464 : : (((tunode==1)&&(cjep0>0.0))&&(vdep>0.0))
1465 : : {
1466 : : {
1467 : 0 : double m00_sqrt(d00_sqrt0,a_eg)
1468 : 0 : ab=(((((cjep0_t/cjep0)*d00_sqrt0)*vdep_t)*vdep_t)/(vdep*vdep));
1469 : : }
1470 : : {
1471 : 0 : double m00_pow(d00_pow0,a_eg,(-1.5))
1472 : 0 : aa=(((vdep/vdep_t)*(cjep0/cjep0_t))*d00_pow0);
1473 : 0 : }
1474 : : }
1475 : : else
1476 : : {
1477 [ # # ][ # # ]: 0 : if
[ # # ]
1478 : : (((tunode==0)&&(cjei0>0.0))&&(vdei>0.0))
1479 : : {
1480 : : {
1481 : 0 : double m00_sqrt(d00_sqrt0,a_eg)
1482 : 0 : ab=(((((cjei0_t/cjei0)*d00_sqrt0)*vdei_t)*vdei_t)/(vdei*vdei));
1483 : : }
1484 : : {
1485 : 0 : double m00_pow(d00_pow0,a_eg,(-1.5))
1486 : 0 : aa=(((vdei/vdei_t)*(cjei0/cjei0_t))*d00_pow0);
1487 : : }
1488 : : }
1489 : : }
1490 : : #if defined(_DERIVATE)
1491 : 0 : ibets_t_Vtnode_GND=0.0;
1492 : : #endif
1493 : 0 : ibets_t=(ibets*ab);
1494 : : #if defined(_DERIVATE)
1495 : 0 : abet_t_Vtnode_GND=0.0;
1496 : : #endif
1497 : 0 : abet_t=(abet*aa);
1498 : : }
1499 : : if
1500 : : (1.0>0.0)
1501 : : {
1502 : : {
1503 : 0 : double m00_exp(d00_exp0,((vdcx*0.5)/vt0))
1504 : 0 : double m00_exp(d00_exp1,(((-0.5)*vdcx)/vt0))
1505 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
1506 : 0 : vdj0=((2*vt0)*d00_logE2);
1507 : : }
1508 : : #if defined(_DERIVATE)
1509 : 0 : vdjt_Vtnode_GND=0.0;
1510 : : #endif
1511 : 0 : vdjt=(((vdj0*qtt0)+(vgbc0*(1-qtt0)))-((mg*VT)*ln_qtt0));
1512 : : {
1513 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
1514 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
1515 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
1516 : : #if defined(_DERIVATE)
1517 : 0 : vdt_Vtnode_GND=0.0;
1518 : : #endif
1519 : 0 : vdt=(vdjt+((2*VT)*d00_logE2));
1520 : : }
1521 : : #if defined(_DYNAMIC)
1522 : : #if defined(_DERIVATE)
1523 : 0 : vdcx_t_Vtnode_GND=0.0;
1524 : : #endif
1525 : 0 : vdcx_t=vdt;
1526 : : #endif
1527 : : #if defined(_DYNAMIC)
1528 : : {
1529 : 0 : double m00_logE(d00_logE0,(vdcx/vdcx_t))
1530 : 0 : double m00_exp(d00_exp1,(zcx*d00_logE0))
1531 : : #if defined(_DERIVATE)
1532 : 0 : cratio_t_Vtnode_GND=0.0;
1533 : : #endif
1534 : 0 : cratio_t=(1.0*d00_exp1);
1535 : : }
1536 : : #endif
1537 : : #ifdef _DYNAMIC
1538 : : if
1539 : : (0==1)
1540 : : {
1541 : : #if defined(_DYNAMIC)
1542 : : #if defined(_DERIVATE)
1543 : : vptcx_t_Vtnode_GND=0.0;
1544 : : #endif
1545 : : vptcx_t=((vptcx*vdcx_t)/vdcx);
1546 : : #endif
1547 : : }
1548 : : else
1549 : : {
1550 : : #if defined(_DYNAMIC)
1551 : : #if defined(_DERIVATE)
1552 : 0 : vptcx_t_Vtnode_GND=0.0;
1553 : : #endif
1554 : 0 : vptcx_t=vptcx;
1555 : : #endif
1556 : : }
1557 : : #endif /* if (...) */
1558 : : }
1559 : : else
1560 : : {
1561 : : #if defined(_DYNAMIC)
1562 : : #if defined(_DERIVATE)
1563 : : cratio_t_Vtnode_GND=0.0;
1564 : : #endif
1565 : : cratio_t=1.0;
1566 : : #endif
1567 : : #if defined(_DYNAMIC)
1568 : : #if defined(_DERIVATE)
1569 : : vdcx_t_Vtnode_GND=0.0;
1570 : : #endif
1571 : : vdcx_t=vdcx;
1572 : : #endif
1573 : : #if defined(_DYNAMIC)
1574 : : #if defined(_DERIVATE)
1575 : : vptcx_t_Vtnode_GND=0.0;
1576 : : #endif
1577 : : vptcx_t=vptcx;
1578 : : #endif
1579 : : }
1580 : : #if defined(_DYNAMIC)
1581 : : #if defined(_DERIVATE)
1582 : 0 : cjcx01_t_Vtnode_GND=0.0;
1583 : : #endif
1584 : 0 : cjcx01_t=(cratio_t*cjcx01);
1585 : : #endif
1586 : : #if defined(_DYNAMIC)
1587 : : #if defined(_DERIVATE)
1588 : 0 : cjcx02_t_Vtnode_GND=0.0;
1589 : : #endif
1590 : 0 : cjcx02_t=(cratio_t*cjcx02);
1591 : : #endif
1592 : : {
1593 : 0 : double m00_exp(d00_exp0,(zetarcx*ln_qtt0))
1594 : : #if defined(_DERIVATE)
1595 : 0 : rcx_t_Vtnode_GND=0.0;
1596 : : #endif
1597 : 0 : rcx_t=(rcx*d00_exp0);
1598 : : }
1599 : : {
1600 : 0 : double m00_exp(d00_exp0,(zetarbx*ln_qtt0))
1601 : : #if defined(_DERIVATE)
1602 : 0 : rbx_t_Vtnode_GND=0.0;
1603 : : #endif
1604 : 0 : rbx_t=(rbx*d00_exp0);
1605 : : }
1606 : : {
1607 : 0 : double m00_exp(d00_exp0,(zetare*ln_qtt0))
1608 : : #if defined(_DERIVATE)
1609 : 0 : re_t_Vtnode_GND=0.0;
1610 : : #endif
1611 : 0 : re_t=(re*d00_exp0);
1612 : : }
1613 : : #if defined(_DYNAMIC)
1614 : : {
1615 : 0 : double m00_exp(d00_exp0,((zetacx-1.0)*ln_qtt0))
1616 : : #if defined(_DERIVATE)
1617 : 0 : tsf_t_Vtnode_GND=0.0;
1618 : : #endif
1619 : 0 : tsf_t=(tsf*d00_exp0);
1620 : : }
1621 : : #endif
1622 [ # # ]: 0 : if
1623 : : (cjs0>0.0)
1624 : : {
1625 : : {
1626 : 0 : double m00_exp(d00_exp0,((vds*0.5)/vt0))
1627 : 0 : double m00_exp(d00_exp1,(((-0.5)*vds)/vt0))
1628 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
1629 : 0 : vdj0=((2*vt0)*d00_logE2);
1630 : : }
1631 : : #if defined(_DERIVATE)
1632 : 0 : vdjt_Vtnode_GND=0.0;
1633 : : #endif
1634 : 0 : vdjt=(((vdj0*qtt0)+(vgsc0*(1-qtt0)))-((mg*VT)*ln_qtt0));
1635 : : {
1636 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
1637 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
1638 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
1639 : : #if defined(_DERIVATE)
1640 : 0 : vdt_Vtnode_GND=0.0;
1641 : : #endif
1642 : 0 : vdt=(vdjt+((2*VT)*d00_logE2));
1643 : : }
1644 : : #if defined(_DYNAMIC)
1645 : : #if defined(_DERIVATE)
1646 : 0 : vds_t_Vtnode_GND=0.0;
1647 : : #endif
1648 : 0 : vds_t=vdt;
1649 : : #endif
1650 : : #if defined(_DYNAMIC)
1651 : : {
1652 : 0 : double m00_logE(d00_logE0,(vds/vds_t))
1653 : 0 : double m00_exp(d00_exp1,(zs*d00_logE0))
1654 : : #if defined(_DERIVATE)
1655 : 0 : cjs0_t_Vtnode_GND=0.0;
1656 : : #endif
1657 : 0 : cjs0_t=(cjs0*d00_exp1);
1658 : : }
1659 : : #endif
1660 : : #ifdef _DYNAMIC
1661 : : if
1662 : : (0==1)
1663 : : {
1664 : : #if defined(_DYNAMIC)
1665 : : #if defined(_DERIVATE)
1666 : : vpts_t_Vtnode_GND=0.0;
1667 : : #endif
1668 : : vpts_t=((vpts*vds_t)/vds);
1669 : : #endif
1670 : : }
1671 : : else
1672 : : {
1673 : : #if defined(_DYNAMIC)
1674 : : #if defined(_DERIVATE)
1675 : 0 : vpts_t_Vtnode_GND=0.0;
1676 : : #endif
1677 : 0 : vpts_t=vpts;
1678 : : #endif
1679 : : }
1680 : : #endif /* if (...) */
1681 : : }
1682 : : else
1683 : : {
1684 : : #if defined(_DYNAMIC)
1685 : : #if defined(_DERIVATE)
1686 : 0 : cjs0_t_Vtnode_GND=0.0;
1687 : : #endif
1688 : 0 : cjs0_t=cjs0;
1689 : : #endif
1690 : : #if defined(_DYNAMIC)
1691 : : #if defined(_DERIVATE)
1692 : 0 : vds_t_Vtnode_GND=0.0;
1693 : : #endif
1694 : 0 : vds_t=vds;
1695 : : #endif
1696 : : #if defined(_DYNAMIC)
1697 : : #if defined(_DERIVATE)
1698 : 0 : vpts_t_Vtnode_GND=0.0;
1699 : : #endif
1700 : 0 : vpts_t=vpts;
1701 : : #endif
1702 : : }
1703 : : {
1704 : 0 : double m00_exp(d00_exp0,(zetahjei*ln_qtt0))
1705 : : #if defined(_DERIVATE)
1706 : 0 : ahjei_t_Vtnode_GND=0.0;
1707 : : #endif
1708 : 0 : ahjei_t=(ahjei*d00_exp0);
1709 : : }
1710 : : {
1711 : 0 : double m00_logE(d00_logE0,qtt0)
1712 : 0 : double m00_exp(d00_exp1,(zetavgbe*d00_logE0))
1713 : 0 : double m00_exp(d00_exp2,((dvgbe/VT)*(d00_exp1-1)))
1714 : : #if defined(_DERIVATE)
1715 : 0 : hjei0_t_Vtnode_GND=0.0;
1716 : : #endif
1717 : 0 : hjei0_t=(hjei*d00_exp2);
1718 : : }
1719 : : {
1720 : 0 : double m00_exp(d00_exp0,((dvgbe/VT)*(qtt0-1)))
1721 : : #if defined(_DERIVATE)
1722 : 0 : hf0_t_Vtnode_GND=0.0;
1723 : : #endif
1724 : 0 : hf0_t=(hf0*d00_exp0);
1725 : : }
1726 [ # # ]: 0 : if
1727 : : (flcomp>=2.3)
1728 : : {
1729 : : {
1730 : 0 : double m00_exp(d00_exp0,(((vgb-vge)/VT)*(qtt0-1)))
1731 : : #if defined(_DERIVATE)
1732 : 0 : hfe_t_Vtnode_GND=0.0;
1733 : : #endif
1734 : 0 : hfe_t=(hfe*d00_exp0);
1735 : : }
1736 : : {
1737 : 0 : double m00_exp(d00_exp0,(((vgb-vgc)/VT)*(qtt0-1)))
1738 : : #if defined(_DERIVATE)
1739 : 0 : hfc_t_Vtnode_GND=0.0;
1740 : : #endif
1741 : 0 : hfc_t=(hfc*d00_exp0);
1742 : : }
1743 : : }
1744 : : else
1745 : : {
1746 : : #if defined(_DERIVATE)
1747 : 0 : hfe_t_Vtnode_GND=0.0;
1748 : : #endif
1749 : 0 : hfe_t=hfe;
1750 : : #if defined(_DERIVATE)
1751 : 0 : hfc_t_Vtnode_GND=0.0;
1752 : : #endif
1753 : 0 : hfc_t=hfc;
1754 : : }
1755 : : {
1756 : 0 : double m00_exp(d00_exp0,(zetarth*ln_qtt0))
1757 : : #if defined(_DERIVATE)
1758 : 0 : rth_t_Vtnode_GND=0.0;
1759 : : #endif
1760 : 0 : rth_t=((rth*d00_exp0)*(1+(alrth*dT)));
1761 : : }
1762 : : }
1763 : : }
1764 : 0 : }
1765 : :
1766 : : /* Evaluate Verilog-AMS equations in instance initialization. */
1767 : 0 : void hicumL2V2p31n::initializeInstance (void)
1768 : : {
1769 : 0 : }
1770 : :
1771 : : /* Evaluate Verilog-AMS equations in initial step. */
1772 : 0 : void hicumL2V2p31n::initialStep (void)
1773 : : {
1774 : 0 : }
1775 : :
1776 : : /* Evaluate Verilog-AMS equations in final step. */
1777 : 0 : void hicumL2V2p31n::finalStep (void)
1778 : : {
1779 : 0 : }
1780 : :
1781 : : /* Evaluate Verilog-AMS equations in analog block. */
1782 : 0 : void hicumL2V2p31n::calcVerilog (void)
1783 : : {
1784 : :
1785 : : /* ----------------- evaluate verilog analog equations -------------------- */
1786 : : #if defined(_DYNAMIC)
1787 : : double Qxf;
1788 : : #if defined(_DERIVATE)
1789 : : double Qxf_Vxf_GND;
1790 : : #endif
1791 : : #endif
1792 : : double Ixf;
1793 : : #if defined(_DERIVATE)
1794 : : double Ixf_Vxf_GND;
1795 : : double Ixf_Vci_ei;
1796 : : double Ixf_Vtnode_GND;
1797 : : double Ixf_Vbi_ci;
1798 : : double Ixf_Vbi_ei;
1799 : : #endif
1800 : : double fact;
1801 : : #if defined(_DERIVATE)
1802 : : double fact_Vbi_ei;
1803 : : double fact_Vci_ei;
1804 : : double fact_Vtnode_GND;
1805 : : double fact_Vbi_ci;
1806 : : #endif
1807 : : double Vxf;
1808 : : #if defined(_DERIVATE)
1809 : : double Vxf_Vxf_GND;
1810 : : #endif
1811 : : #if defined(_DYNAMIC)
1812 : : double Qxf2;
1813 : : #if defined(_DERIVATE)
1814 : : double Qxf2_Vxf2_GND;
1815 : : #endif
1816 : : #endif
1817 : : #if defined(_DYNAMIC)
1818 : : double Qxf1;
1819 : : #if defined(_DERIVATE)
1820 : : double Qxf1_Vxf1_GND;
1821 : : #endif
1822 : : #endif
1823 : : double Ixf2;
1824 : : #if defined(_DERIVATE)
1825 : : double Ixf2_Vxf2_GND;
1826 : : double Ixf2_Vxf1_GND;
1827 : : double Ixf2_Vbi_ei;
1828 : : double Ixf2_Vci_ei;
1829 : : double Ixf2_Vtnode_GND;
1830 : : double Ixf2_Vbi_ci;
1831 : : #endif
1832 : : double Ixf1;
1833 : : #if defined(_DERIVATE)
1834 : : double Ixf1_Vxf1_GND;
1835 : : double Ixf1_Vxf2_GND;
1836 : : double Ixf1_Vci_ei;
1837 : : double Ixf1_Vtnode_GND;
1838 : : double Ixf1_Vbi_ei;
1839 : : double Ixf1_Vbi_ci;
1840 : : #endif
1841 : : double Vxf2;
1842 : : #if defined(_DERIVATE)
1843 : : double Vxf2_Vxf2_GND;
1844 : : #endif
1845 : : double Vxf1;
1846 : : #if defined(_DERIVATE)
1847 : : double Vxf1_Vxf1_GND;
1848 : : #endif
1849 : : #if defined(_DYNAMIC)
1850 : : double Qdeix;
1851 : : #if defined(_DERIVATE)
1852 : : double Qdeix_Vxf_GND;
1853 : : double Qdeix_Vci_ei;
1854 : : double Qdeix_Vtnode_GND;
1855 : : double Qdeix_Vbi_ci;
1856 : : double Qdeix_Vbi_ei;
1857 : : #endif
1858 : : #endif
1859 : : double Itxf;
1860 : : #if defined(_DERIVATE)
1861 : : double Itxf_Vxf2_GND;
1862 : : double Itxf_Vci_ei;
1863 : : double Itxf_Vtnode_GND;
1864 : : double Itxf_Vbi_ei;
1865 : : double Itxf_Vbi_ci;
1866 : : #endif
1867 : : double pterm;
1868 : : #if defined(_DERIVATE)
1869 : : double pterm_Vb_bp;
1870 : : double pterm_Vci_c;
1871 : : double pterm_Vei_e;
1872 : : double pterm_Vbp_bi;
1873 : : double pterm_Vbp_ei;
1874 : : double pterm_Vbp_ci;
1875 : : double pterm_Vsi_ci;
1876 : : double pterm_Vci_ei;
1877 : : double pterm_Vtnode_GND;
1878 : : double pterm_Vbi_ei;
1879 : : double pterm_Vbi_ci;
1880 : : #endif
1881 : : #if defined(_DERIVATE)
1882 : : double ijsc_Vtnode_GND;
1883 : : double ijsc_Vsi_ci;
1884 : : double ijsc_Vbp_ci;
1885 : : double ijsc_Vbp_ei;
1886 : : double ijsc_Vbi_ci;
1887 : : double ijsc_Vbi_ei;
1888 : : #endif
1889 : : #if defined(_DYNAMIC)
1890 : : #if defined(_DERIVATE)
1891 : : double betadc_Vci_ei;
1892 : : double betadc_Vtnode_GND;
1893 : : double betadc_Vbi_ei;
1894 : : double betadc_Vbi_ci;
1895 : : #endif
1896 : : #endif
1897 : : #if defined(_DYNAMIC)
1898 : : double betan;
1899 : : #if defined(_DERIVATE)
1900 : : double betan_Vci_ei;
1901 : : double betan_Vtnode_GND;
1902 : : double betan_Vbi_ei;
1903 : : double betan_Vbi_ci;
1904 : : #endif
1905 : : #endif
1906 : : double betadin;
1907 : : #if defined(_DYNAMIC)
1908 : : double betad;
1909 : : #if defined(_DERIVATE)
1910 : : double betad_Vtnode_GND;
1911 : : double betad_Vbi_ei;
1912 : : #endif
1913 : : #endif
1914 : : #if defined(_DYNAMIC)
1915 : : double Qdsu;
1916 : : #if defined(_DERIVATE)
1917 : : double Qdsu_Vtnode_GND;
1918 : : double Qdsu_Vbp_ci;
1919 : : #endif
1920 : : #endif
1921 : : double HSI_Tsu;
1922 : : #if defined(_DERIVATE)
1923 : : double HSI_Tsu_Vtnode_GND;
1924 : : double HSI_Tsu_Vbp_ci;
1925 : : double HSI_Tsu_Vsi_ci;
1926 : : #endif
1927 : : double HSb;
1928 : : #if defined(_DERIVATE)
1929 : : double HSb_Vsi_ci;
1930 : : double HSb_Vtnode_GND;
1931 : : #endif
1932 : : double HSa;
1933 : : #if defined(_DERIVATE)
1934 : : double HSa_Vbp_ci;
1935 : : double HSa_Vtnode_GND;
1936 : : #endif
1937 : : double HSUM;
1938 : : #if defined(_DERIVATE)
1939 : : double HSUM_Vtnode_GND;
1940 : : #endif
1941 : : #if defined(_DYNAMIC)
1942 : : double Qjs;
1943 : : #if defined(_DERIVATE)
1944 : : double Qjs_Vbp_ei;
1945 : : double Qjs_Vbi_ei;
1946 : : double Qjs_Vsi_ci;
1947 : : double Qjs_Vb_ci;
1948 : : double Qjs_Vbp_ci;
1949 : : double Qjs_Vtnode_GND;
1950 : : double Qjs_Vbi_ci;
1951 : : #endif
1952 : : #endif
1953 : : #if defined(_DYNAMIC)
1954 : : double qjcx0_t_i;
1955 : : #if defined(_DERIVATE)
1956 : : double qjcx0_t_i_Vbp_ei;
1957 : : double qjcx0_t_i_Vbi_ei;
1958 : : double qjcx0_t_i_Vb_ci;
1959 : : double qjcx0_t_i_Vbp_ci;
1960 : : double qjcx0_t_i_Vtnode_GND;
1961 : : double qjcx0_t_i_Vbi_ci;
1962 : : #endif
1963 : : #endif
1964 : : #if defined(_DERIVATE)
1965 : : double ijbcx_Vtnode_GND;
1966 : : double ijbcx_Vbp_ci;
1967 : : double ijbcx_Vbp_ei;
1968 : : double ijbcx_Vbi_ci;
1969 : : double ijbcx_Vbi_ei;
1970 : : #endif
1971 : : #if defined(_DYNAMIC)
1972 : : double qjcx0_t_ii;
1973 : : #if defined(_DERIVATE)
1974 : : double qjcx0_t_ii_Vbp_ei;
1975 : : double qjcx0_t_ii_Vbi_ei;
1976 : : double qjcx0_t_ii_Vbp_ci;
1977 : : double qjcx0_t_ii_Vtnode_GND;
1978 : : double qjcx0_t_ii_Vbi_ci;
1979 : : #endif
1980 : : #endif
1981 : : double c_dummy;
1982 : : double ibet;
1983 : : #if defined(_DERIVATE)
1984 : : double ibet_Vbp_ei;
1985 : : double ibet_Vtnode_GND;
1986 : : double ibet_Vbi_ci;
1987 : : double ibet_Vbi_ei;
1988 : : #endif
1989 : : #if defined(_DYNAMIC)
1990 : : double Qjep;
1991 : : #if defined(_DERIVATE)
1992 : : double Qjep_Vbp_ei;
1993 : : double Qjep_Vbi_ci;
1994 : : double Qjep_Vtnode_GND;
1995 : : double Qjep_Vbi_ei;
1996 : : #endif
1997 : : #endif
1998 : : double Cjep;
1999 : : #if defined(_DERIVATE)
2000 : : double Cjep_Vbp_ei;
2001 : : double Cjep_Vbi_ci;
2002 : : double Cjep_Vtnode_GND;
2003 : : double Cjep_Vbi_ei;
2004 : : #endif
2005 : : double irep;
2006 : : #if defined(_DERIVATE)
2007 : : double irep_Vtnode_GND;
2008 : : double irep_Vbp_ei;
2009 : : double irep_Vbi_ci;
2010 : : double irep_Vbi_ei;
2011 : : #endif
2012 : : #if defined(_DERIVATE)
2013 : : double ibep_Vtnode_GND;
2014 : : double ibep_Vbp_ei;
2015 : : double ibep_Vbi_ci;
2016 : : double ibep_Vbi_ei;
2017 : : #endif
2018 : : #if defined(_DERIVATE)
2019 : : double rbi_Vtnode_GND;
2020 : : double rbi_Vbi_ei;
2021 : : double rbi_Vbi_ci;
2022 : : double rbi_Vci_ei;
2023 : : #endif
2024 : : double ibh_rec;
2025 : : #if defined(_DERIVATE)
2026 : : double ibh_rec_Vtnode_GND;
2027 : : double ibh_rec_Vbi_ei;
2028 : : double ibh_rec_Vbi_ci;
2029 : : double ibh_rec_Vci_ei;
2030 : : #endif
2031 : : #if defined(_DERIVATE)
2032 : : double iavl_Vci_ei;
2033 : : double iavl_Vtnode_GND;
2034 : : double iavl_Vbi_ei;
2035 : : double iavl_Vbi_ci;
2036 : : #endif
2037 : : #if defined(_DERIVATE)
2038 : : double ibci_Vtnode_GND;
2039 : : double ibci_Vbi_ci;
2040 : : double ibci_Vbi_ei;
2041 : : #endif
2042 : : #if defined(_DYNAMIC)
2043 : : double qrbi;
2044 : : #if defined(_DERIVATE)
2045 : : double qrbi_Vtnode_GND;
2046 : : double qrbi_Vbi_ei;
2047 : : double qrbi_Vbi_ci;
2048 : : double qrbi_Vci_ei;
2049 : : double qrbi_Vbp_bi;
2050 : : #endif
2051 : : #endif
2052 : : #if defined(_DYNAMIC)
2053 : : double Crbi;
2054 : : #if defined(_DERIVATE)
2055 : : double Crbi_Vtnode_GND;
2056 : : double Crbi_Vbi_ei;
2057 : : double Crbi_Vbi_ci;
2058 : : double Crbi_Vci_ei;
2059 : : #endif
2060 : : #endif
2061 : : #if defined(_DYNAMIC)
2062 : : double Cdci;
2063 : : #if defined(_DERIVATE)
2064 : : double Cdci_Vci_ei;
2065 : : double Cdci_Vtnode_GND;
2066 : : double Cdci_Vbi_ci;
2067 : : double Cdci_Vbi_ei;
2068 : : #endif
2069 : : #endif
2070 : : #if defined(_DYNAMIC)
2071 : : double Cdei;
2072 : : #if defined(_DERIVATE)
2073 : : double Cdei_Vtnode_GND;
2074 : : double Cdei_Vbi_ci;
2075 : : double Cdei_Vci_ei;
2076 : : double Cdei_Vbi_ei;
2077 : : #endif
2078 : : #endif
2079 : : #if defined(_DYNAMIC)
2080 : : double Qdci;
2081 : : #if defined(_DERIVATE)
2082 : : double Qdci_Vci_ei;
2083 : : double Qdci_Vtnode_GND;
2084 : : double Qdci_Vbi_ci;
2085 : : double Qdci_Vbi_ei;
2086 : : #endif
2087 : : #endif
2088 : : double Qdei;
2089 : : #if defined(_DERIVATE)
2090 : : double Qdei_Vci_ei;
2091 : : double Qdei_Vtnode_GND;
2092 : : double Qdei_Vbi_ci;
2093 : : double Qdei_Vbi_ei;
2094 : : #endif
2095 : : #if defined(_DERIVATE)
2096 : : double it_Vci_ei;
2097 : : double it_Vtnode_GND;
2098 : : double it_Vbi_ei;
2099 : : double it_Vbi_ci;
2100 : : #endif
2101 : : double d_Q0;
2102 : : double d_Q;
2103 : : #if defined(_DERIVATE)
2104 : : double d_Q_Vtnode_GND;
2105 : : double d_Q_Vbi_ei;
2106 : : double d_Q_Vbi_ci;
2107 : : double d_Q_Vci_ei;
2108 : : #endif
2109 : : double Q_pT;
2110 : : #if defined(_DERIVATE)
2111 : : double Q_pT_Vtnode_GND;
2112 : : double Q_pT_Vbi_ei;
2113 : : double Q_pT_Vbi_ci;
2114 : : double Q_pT_Vci_ei;
2115 : : #endif
2116 : : int l_it;
2117 : : double Qr;
2118 : : #if defined(_DERIVATE)
2119 : : double Qr_Vci_ei;
2120 : : double Qr_Vtnode_GND;
2121 : : double Qr_Vbi_ci;
2122 : : double Qr_Vbi_ei;
2123 : : #endif
2124 : : double FFdTbfc;
2125 : : #if defined(_DERIVATE)
2126 : : double FFdTbfc_Vtnode_GND;
2127 : : double FFdTbfc_Vbi_ei;
2128 : : double FFdTbfc_Vbi_ci;
2129 : : double FFdTbfc_Vci_ei;
2130 : : #endif
2131 : : double FFdQbfc;
2132 : : #if defined(_DERIVATE)
2133 : : double FFdQbfc_Vtnode_GND;
2134 : : double FFdQbfc_Vbi_ei;
2135 : : double FFdQbfc_Vbi_ci;
2136 : : double FFdQbfc_Vci_ei;
2137 : : #endif
2138 : : double FCd_f;
2139 : : #if defined(_DERIVATE)
2140 : : double FCd_f_Vci_ei;
2141 : : double FCd_f_Vtnode_GND;
2142 : : double FCd_f_Vbi_ei;
2143 : : double FCd_f_Vbi_ci;
2144 : : #endif
2145 : : double FCz_1;
2146 : : #if defined(_DERIVATE)
2147 : : double FCz_1_Vci_ei;
2148 : : double FCz_1_Vtnode_GND;
2149 : : double FCz_1_Vbi_ei;
2150 : : double FCz_1_Vbi_ci;
2151 : : #endif
2152 : : double FCdfCT_ditf;
2153 : : #if defined(_DERIVATE)
2154 : : double FCdfCT_ditf_Vbi_ei;
2155 : : double FCdfCT_ditf_Vbi_ci;
2156 : : double FCdfCT_ditf_Vci_ei;
2157 : : double FCdfCT_ditf_Vtnode_GND;
2158 : : #endif
2159 : : double FCdfCT_dw;
2160 : : #if defined(_DERIVATE)
2161 : : double FCdfCT_dw_Vbi_ei;
2162 : : double FCdfCT_dw_Vbi_ci;
2163 : : double FCdfCT_dw_Vci_ei;
2164 : : double FCdfCT_dw_Vtnode_GND;
2165 : : #endif
2166 : : double lnz;
2167 : : #if defined(_DERIVATE)
2168 : : double lnz_Vci_ei;
2169 : : double lnz_Vtnode_GND;
2170 : : double lnz_Vbi_ei;
2171 : : double lnz_Vbi_ci;
2172 : : #endif
2173 : : double FCdfc_ditf;
2174 : : #if defined(_DERIVATE)
2175 : : double FCdfc_ditf_Vci_ei;
2176 : : double FCdfc_ditf_Vtnode_GND;
2177 : : double FCdfc_ditf_Vbi_ei;
2178 : : double FCdfc_ditf_Vbi_ci;
2179 : : #endif
2180 : : double FCdw_ditf;
2181 : : #if defined(_DERIVATE)
2182 : : double FCdw_ditf_Vci_ei;
2183 : : double FCdw_ditf_Vtnode_GND;
2184 : : double FCdw_ditf_Vbi_ei;
2185 : : double FCdw_ditf_Vbi_ci;
2186 : : #endif
2187 : : double FCdfc_dw;
2188 : : #if defined(_DERIVATE)
2189 : : double FCdfc_dw_Vci_ei;
2190 : : double FCdfc_dw_Vtnode_GND;
2191 : : double FCdfc_dw_Vbi_ei;
2192 : : double FCdfc_dw_Vbi_ci;
2193 : : #endif
2194 : : double FCf_ci;
2195 : : #if defined(_DERIVATE)
2196 : : double FCf_ci_Vci_ei;
2197 : : double FCf_ci_Vtnode_GND;
2198 : : double FCf_ci_Vbi_ei;
2199 : : double FCf_ci_Vbi_ci;
2200 : : #endif
2201 : : double FCdf3_dw;
2202 : : #if defined(_DERIVATE)
2203 : : double FCdf3_dw_Vci_ei;
2204 : : double FCdf3_dw_Vtnode_GND;
2205 : : double FCdf3_dw_Vbi_ei;
2206 : : double FCdf3_dw_Vbi_ci;
2207 : : #endif
2208 : : double FCf3;
2209 : : #if defined(_DERIVATE)
2210 : : double FCf3_Vbi_ei;
2211 : : double FCf3_Vbi_ci;
2212 : : double FCf3_Vci_ei;
2213 : : double FCf3_Vtnode_GND;
2214 : : #endif
2215 : : double FCdf2_dw;
2216 : : #if defined(_DERIVATE)
2217 : : double FCdf2_dw_Vci_ei;
2218 : : double FCdf2_dw_Vtnode_GND;
2219 : : double FCdf2_dw_Vbi_ei;
2220 : : double FCdf2_dw_Vbi_ci;
2221 : : #endif
2222 : : double FCf2;
2223 : : #if defined(_DERIVATE)
2224 : : double FCf2_Vbi_ei;
2225 : : double FCf2_Vbi_ci;
2226 : : double FCf2_Vci_ei;
2227 : : double FCf2_Vtnode_GND;
2228 : : #endif
2229 : : double r;
2230 : : double a3;
2231 : : #if defined(_DERIVATE)
2232 : : double a3_Vbi_ei;
2233 : : double a3_Vbi_ci;
2234 : : double a3_Vci_ei;
2235 : : double a3_Vtnode_GND;
2236 : : #endif
2237 : : double a2;
2238 : : #if defined(_DERIVATE)
2239 : : double a2_Vbi_ei;
2240 : : double a2_Vbi_ci;
2241 : : double a2_Vci_ei;
2242 : : double a2_Vtnode_GND;
2243 : : #endif
2244 : : double x;
2245 : : #if defined(_DERIVATE)
2246 : : double x_Vci_ei;
2247 : : double x_Vtnode_GND;
2248 : : double x_Vbi_ei;
2249 : : double x_Vbi_ci;
2250 : : #endif
2251 : : double lnzb;
2252 : : #if defined(_DERIVATE)
2253 : : double lnzb_Vci_ei;
2254 : : double lnzb_Vtnode_GND;
2255 : : double lnzb_Vbi_ei;
2256 : : double lnzb_Vbi_ci;
2257 : : #endif
2258 : : double z;
2259 : : #if defined(_DERIVATE)
2260 : : double z_Vci_ei;
2261 : : double z_Vtnode_GND;
2262 : : double z_Vbi_ei;
2263 : : double z_Vbi_ci;
2264 : : #endif
2265 : : double FCdf1_dw;
2266 : : #if defined(_DERIVATE)
2267 : : double FCdf1_dw_Vci_ei;
2268 : : double FCdf1_dw_Vtnode_GND;
2269 : : double FCdf1_dw_Vbi_ei;
2270 : : double FCdf1_dw_Vbi_ci;
2271 : : #endif
2272 : : double FCw2;
2273 : : #if defined(_DERIVATE)
2274 : : double FCw2_Vci_ei;
2275 : : double FCw2_Vtnode_GND;
2276 : : double FCw2_Vbi_ei;
2277 : : double FCw2_Vbi_ci;
2278 : : #endif
2279 : : double FCf_CT;
2280 : : #if defined(_DERIVATE)
2281 : : double FCf_CT_Vbi_ei;
2282 : : double FCf_CT_Vbi_ci;
2283 : : double FCf_CT_Vci_ei;
2284 : : double FCf_CT_Vtnode_GND;
2285 : : #endif
2286 : : double FCf1;
2287 : : #if defined(_DERIVATE)
2288 : : double FCf1_Vci_ei;
2289 : : double FCf1_Vtnode_GND;
2290 : : double FCf1_Vbi_ei;
2291 : : double FCf1_Vbi_ci;
2292 : : #endif
2293 : : double FCda1_dw;
2294 : : #if defined(_DERIVATE)
2295 : : double FCda1_dw_Vci_ei;
2296 : : double FCda1_dw_Vtnode_GND;
2297 : : double FCda1_dw_Vbi_ei;
2298 : : double FCda1_dw_Vbi_ci;
2299 : : #endif
2300 : : double FCdw_daick;
2301 : : #if defined(_DERIVATE)
2302 : : double FCdw_daick_Vci_ei;
2303 : : double FCdw_daick_Vtnode_GND;
2304 : : double FCdw_daick_Vbi_ei;
2305 : : double FCdw_daick_Vbi_ci;
2306 : : #endif
2307 : : double FCw;
2308 : : #if defined(_DERIVATE)
2309 : : double FCw_Vci_ei;
2310 : : double FCw_Vtnode_GND;
2311 : : double FCw_Vbi_ei;
2312 : : double FCw_Vbi_ci;
2313 : : #endif
2314 : : double FCd_a;
2315 : : #if defined(_DERIVATE)
2316 : : double FCd_a_Vci_ei;
2317 : : double FCd_a_Vtnode_GND;
2318 : : double FCd_a_Vbi_ei;
2319 : : double FCd_a_Vbi_ci;
2320 : : #endif
2321 : : double FCa1;
2322 : : #if defined(_DERIVATE)
2323 : : double FCa1_Vci_ei;
2324 : : double FCa1_Vtnode_GND;
2325 : : double FCa1_Vbi_ei;
2326 : : double FCa1_Vbi_ci;
2327 : : #endif
2328 : : double FCln;
2329 : : double FCxb;
2330 : : double FCxl;
2331 : : double FCz;
2332 : : #if defined(_DERIVATE)
2333 : : double FCz_Vci_ei;
2334 : : double FCz_Vtnode_GND;
2335 : : double FCz_Vbi_ei;
2336 : : double FCz_Vbi_ci;
2337 : : #endif
2338 : : double FCdaick_ditf;
2339 : : #if defined(_DERIVATE)
2340 : : double FCdaick_ditf_Vci_ei;
2341 : : double FCdaick_ditf_Vtnode_GND;
2342 : : double FCdaick_ditf_Vbi_ei;
2343 : : double FCdaick_ditf_Vbi_ci;
2344 : : #endif
2345 : : double FCa_ck;
2346 : : #if defined(_DERIVATE)
2347 : : double FCa_ck_Vci_ei;
2348 : : double FCa_ck_Vtnode_GND;
2349 : : double FCa_ck_Vbi_ei;
2350 : : double FCa_ck_Vbi_ci;
2351 : : #endif
2352 : : double FCrt;
2353 : : #if defined(_DERIVATE)
2354 : : double FCrt_Vci_ei;
2355 : : double FCrt_Vtnode_GND;
2356 : : double FCrt_Vbi_ei;
2357 : : double FCrt_Vbi_ci;
2358 : : #endif
2359 : : double FCa;
2360 : : #if defined(_DERIVATE)
2361 : : double FCa_Vci_ei;
2362 : : double FCa_Vtnode_GND;
2363 : : double FCa_Vbi_ei;
2364 : : double FCa_Vbi_ci;
2365 : : #endif
2366 : : double FFdTcfcT;
2367 : : #if defined(_DERIVATE)
2368 : : double FFdTcfcT_Vtnode_GND;
2369 : : double FFdTcfcT_Vbi_ei;
2370 : : double FFdTcfcT_Vbi_ci;
2371 : : double FFdTcfcT_Vci_ei;
2372 : : #endif
2373 : : double FFdQcfcT;
2374 : : #if defined(_DERIVATE)
2375 : : double FFdQcfcT_Vtnode_GND;
2376 : : double FFdQcfcT_Vbi_ei;
2377 : : double FFdQcfcT_Vbi_ci;
2378 : : double FFdQcfcT_Vci_ei;
2379 : : #endif
2380 : : double FFdTcfc;
2381 : : #if defined(_DERIVATE)
2382 : : double FFdTcfc_Vtnode_GND;
2383 : : double FFdTcfc_Vbi_ei;
2384 : : double FFdTcfc_Vbi_ci;
2385 : : double FFdTcfc_Vci_ei;
2386 : : #endif
2387 : : double FFdQcfc;
2388 : : #if defined(_DERIVATE)
2389 : : double FFdQcfc_Vtnode_GND;
2390 : : double FFdQcfc_Vbi_ei;
2391 : : double FFdQcfc_Vbi_ci;
2392 : : double FFdQcfc_Vci_ei;
2393 : : #endif
2394 : : double FFdTfhc;
2395 : : #if defined(_DERIVATE)
2396 : : double FFdTfhc_Vtnode_GND;
2397 : : double FFdTfhc_Vbi_ei;
2398 : : double FFdTfhc_Vbi_ci;
2399 : : double FFdTfhc_Vci_ei;
2400 : : #endif
2401 : : double FFdQfhc;
2402 : : #if defined(_DERIVATE)
2403 : : double FFdQfhc_Vtnode_GND;
2404 : : double FFdQfhc_Vbi_ei;
2405 : : double FFdQfhc_Vbi_ci;
2406 : : double FFdQfhc_Vci_ei;
2407 : : #endif
2408 : : double FFw;
2409 : : #if defined(_DERIVATE)
2410 : : double FFw_Vtnode_GND;
2411 : : double FFw_Vbi_ei;
2412 : : double FFw_Vbi_ci;
2413 : : double FFw_Vci_ei;
2414 : : #endif
2415 : : double FFic;
2416 : : #if defined(_DERIVATE)
2417 : : double FFic_Vtnode_GND;
2418 : : double FFic_Vbi_ei;
2419 : : double FFic_Vbi_ci;
2420 : : double FFic_Vci_ei;
2421 : : #endif
2422 : : double FFdTbfb;
2423 : : #if defined(_DERIVATE)
2424 : : double FFdTbfb_Vtnode_GND;
2425 : : double FFdTbfb_Vbi_ei;
2426 : : double FFdTbfb_Vbi_ci;
2427 : : double FFdTbfb_Vci_ei;
2428 : : #endif
2429 : : double FFdQbfb;
2430 : : #if defined(_DERIVATE)
2431 : : double FFdQbfb_Vtnode_GND;
2432 : : double FFdQbfb_Vbi_ei;
2433 : : double FFdQbfb_Vbi_ci;
2434 : : double FFdQbfb_Vci_ei;
2435 : : #endif
2436 : : double FFdib_ditf;
2437 : : #if defined(_DERIVATE)
2438 : : double FFdib_ditf_Vtnode_GND;
2439 : : double FFdib_ditf_Vbi_ei;
2440 : : double FFdib_ditf_Vbi_ci;
2441 : : double FFdib_ditf_Vci_ei;
2442 : : #endif
2443 : : double FFfcbar;
2444 : : #if defined(_DERIVATE)
2445 : : double FFfcbar_Vtnode_GND;
2446 : : double FFfcbar_Vbi_ei;
2447 : : double FFfcbar_Vbi_ci;
2448 : : double FFfcbar_Vci_ei;
2449 : : #endif
2450 : : double FFib;
2451 : : #if defined(_DERIVATE)
2452 : : double FFib_Vtnode_GND;
2453 : : double FFib_Vbi_ei;
2454 : : double FFib_Vbi_ci;
2455 : : double FFib_Vci_ei;
2456 : : #endif
2457 : : double FFdVc_ditf;
2458 : : #if defined(_DERIVATE)
2459 : : double FFdVc_ditf_Vtnode_GND;
2460 : : double FFdVc_ditf_Vbi_ei;
2461 : : double FFdVc_ditf_Vbi_ci;
2462 : : double FFdVc_ditf_Vci_ei;
2463 : : #endif
2464 : : double FFdVc;
2465 : : #if defined(_DERIVATE)
2466 : : double FFdVc_Vtnode_GND;
2467 : : double FFdVc_Vbi_ei;
2468 : : double FFdVc_Vbi_ci;
2469 : : double FFdVc_Vci_ei;
2470 : : #endif
2471 : : double FFdQef;
2472 : : #if defined(_DERIVATE)
2473 : : double FFdQef_Vtnode_GND;
2474 : : double FFdQef_Vbi_ei;
2475 : : double FFdQef_Vbi_ci;
2476 : : double FFdQef_Vci_ei;
2477 : : #endif
2478 : : double FFdTef;
2479 : : #if defined(_DERIVATE)
2480 : : double FFdTef_Vtnode_GND;
2481 : : double FFdTef_Vbi_ei;
2482 : : double FFdTef_Vbi_ci;
2483 : : double FFdTef_Vci_ei;
2484 : : #endif
2485 : : double FFitf_ick;
2486 : : #if defined(_DERIVATE)
2487 : : double FFitf_ick_Vtnode_GND;
2488 : : double FFitf_ick_Vbi_ei;
2489 : : double FFitf_ick_Vbi_ci;
2490 : : double FFitf_ick_Vci_ei;
2491 : : #endif
2492 : : double T_fT;
2493 : : #if defined(_DERIVATE)
2494 : : double T_fT_Vbi_ei;
2495 : : double T_fT_Vci_ei;
2496 : : double T_fT_Vtnode_GND;
2497 : : double T_fT_Vbi_ci;
2498 : : #endif
2499 : : double Q_fT;
2500 : : #if defined(_DERIVATE)
2501 : : double Q_fT_Vci_ei;
2502 : : double Q_fT_Vtnode_GND;
2503 : : double Q_fT_Vbi_ci;
2504 : : double Q_fT_Vbi_ei;
2505 : : #endif
2506 : : double Qf;
2507 : : #if defined(_DERIVATE)
2508 : : double Qf_Vci_ei;
2509 : : double Qf_Vtnode_GND;
2510 : : double Qf_Vbi_ci;
2511 : : double Qf_Vbi_ei;
2512 : : #endif
2513 : : #if defined(_DERIVATE)
2514 : : double Tf_Vbi_ei;
2515 : : double Tf_Vci_ei;
2516 : : double Tf_Vtnode_GND;
2517 : : double Tf_Vbi_ci;
2518 : : #endif
2519 : : double Q_bf;
2520 : : #if defined(_DERIVATE)
2521 : : double Q_bf_Vtnode_GND;
2522 : : double Q_bf_Vbi_ei;
2523 : : double Q_bf_Vbi_ci;
2524 : : double Q_bf_Vci_ei;
2525 : : #endif
2526 : : double itr;
2527 : : #if defined(_DERIVATE)
2528 : : double itr_Vci_ei;
2529 : : double itr_Vtnode_GND;
2530 : : double itr_Vbi_ci;
2531 : : double itr_Vbi_ei;
2532 : : #endif
2533 : : double itf;
2534 : : #if defined(_DERIVATE)
2535 : : double itf_Vci_ei;
2536 : : double itf_Vtnode_GND;
2537 : : double itf_Vbi_ei;
2538 : : double itf_Vbi_ci;
2539 : : #endif
2540 : : double a_h;
2541 : : #if defined(_DERIVATE)
2542 : : double a_h_Vci_ei;
2543 : : double a_h_Vtnode_GND;
2544 : : double a_h_Vbi_ei;
2545 : : double a_h_Vbi_ci;
2546 : : #endif
2547 : : double I_Tf1;
2548 : : #if defined(_DERIVATE)
2549 : : double I_Tf1_Vci_ei;
2550 : : double I_Tf1_Vtnode_GND;
2551 : : double I_Tf1_Vbi_ei;
2552 : : double I_Tf1_Vbi_ci;
2553 : : #endif
2554 : : double A;
2555 : : #if defined(_DERIVATE)
2556 : : double A_Vtnode_GND;
2557 : : double A_Vbi_ei;
2558 : : double A_Vbi_ci;
2559 : : #endif
2560 : : double Q_p;
2561 : : #if defined(_DERIVATE)
2562 : : double Q_p_Vtnode_GND;
2563 : : double Q_p_Vbi_ei;
2564 : : double Q_p_Vbi_ci;
2565 : : #endif
2566 : : double ick;
2567 : : #if defined(_DERIVATE)
2568 : : double ick_Vci_ei;
2569 : : double ick_Vtnode_GND;
2570 : : #endif
2571 : : double ICKa;
2572 : : #if defined(_DERIVATE)
2573 : : double ICKa_Vci_ei;
2574 : : double ICKa_Vtnode_GND;
2575 : : #endif
2576 : : double ick2;
2577 : : #if defined(_DERIVATE)
2578 : : double ick2_Vci_ei;
2579 : : double ick2_Vtnode_GND;
2580 : : #endif
2581 : : double ick1;
2582 : : #if defined(_DERIVATE)
2583 : : double ick1_Vci_ei;
2584 : : double ick1_Vtnode_GND;
2585 : : #endif
2586 : : double Odelck;
2587 : : double a11;
2588 : : #if defined(_DERIVATE)
2589 : : double a11_Vci_ei;
2590 : : double a11_Vtnode_GND;
2591 : : #endif
2592 : : double a1;
2593 : : #if defined(_DERIVATE)
2594 : : double a1_Vci_ei;
2595 : : double a1_Vtnode_GND;
2596 : : #endif
2597 : : double vceff;
2598 : : #if defined(_DERIVATE)
2599 : : double vceff_Vci_ei;
2600 : : double vceff_Vtnode_GND;
2601 : : #endif
2602 : : double d1;
2603 : : #if defined(_DERIVATE)
2604 : : double d1_Vci_ei;
2605 : : double d1_Vtnode_GND;
2606 : : #endif
2607 : : double Ovpt;
2608 : : double vc;
2609 : : #if defined(_DERIVATE)
2610 : : double vc_Vci_ei;
2611 : : double vc_Vtnode_GND;
2612 : : #endif
2613 : : double T_f0;
2614 : : #if defined(_DERIVATE)
2615 : : double T_f0_Vtnode_GND;
2616 : : double T_f0_Vbi_ci;
2617 : : #endif
2618 : : double cc;
2619 : : #if defined(_DERIVATE)
2620 : : double cc_Vtnode_GND;
2621 : : double cc_Vbi_ci;
2622 : : #endif
2623 : : double Cjcit;
2624 : : #if defined(_DERIVATE)
2625 : : double Cjcit_Vtnode_GND;
2626 : : double Cjcit_Vbi_ci;
2627 : : #endif
2628 : : double b_q;
2629 : : #if defined(_DERIVATE)
2630 : : double b_q_Vtnode_GND;
2631 : : double b_q_Vbi_ei;
2632 : : double b_q_Vbi_ci;
2633 : : #endif
2634 : : double Q_bpt;
2635 : : #if defined(_DERIVATE)
2636 : : double Q_bpt_Vtnode_GND;
2637 : : #endif
2638 : : double Q_0;
2639 : : #if defined(_DERIVATE)
2640 : : double Q_0_Vtnode_GND;
2641 : : double Q_0_Vbi_ei;
2642 : : double Q_0_Vbi_ci;
2643 : : #endif
2644 : : double a_bpt;
2645 : : double Qjci;
2646 : : #if defined(_DERIVATE)
2647 : : double Qjci_Vbi_ei;
2648 : : double Qjci_Vtnode_GND;
2649 : : double Qjci_Vbi_ci;
2650 : : #endif
2651 : : double DQ_j3;
2652 : : #if defined(_DERIVATE)
2653 : : double DQ_j3_Vsi_ci;
2654 : : double DQ_j3_Vb_ci;
2655 : : double DQ_j3_Vbp_ci;
2656 : : double DQ_j3_Vtnode_GND;
2657 : : double DQ_j3_Vbi_ci;
2658 : : #endif
2659 : : double DQ_j2;
2660 : : #if defined(_DERIVATE)
2661 : : double DQ_j2_Vsi_ci;
2662 : : double DQ_j2_Vb_ci;
2663 : : double DQ_j2_Vbp_ci;
2664 : : double DQ_j2_Vtnode_GND;
2665 : : double DQ_j2_Vbi_ci;
2666 : : #endif
2667 : : double DQ_j1;
2668 : : #if defined(_DERIVATE)
2669 : : double DQ_j1_Vsi_ci;
2670 : : double DQ_j1_Vb_ci;
2671 : : double DQ_j1_Vbp_ci;
2672 : : double DQ_j1_Vtnode_GND;
2673 : : double DQ_j1_Vbi_ci;
2674 : : #endif
2675 : : double Cjci;
2676 : : #if defined(_DERIVATE)
2677 : : double Cjci_Vbi_ei;
2678 : : double Cjci_Vtnode_GND;
2679 : : double Cjci_Vbi_ci;
2680 : : #endif
2681 : : double DC_j3;
2682 : : #if defined(_DERIVATE)
2683 : : double DC_j3_Vsi_ci;
2684 : : double DC_j3_Vb_ci;
2685 : : double DC_j3_Vbp_ci;
2686 : : double DC_j3_Vtnode_GND;
2687 : : double DC_j3_Vbi_ci;
2688 : : #endif
2689 : : double DC_j2;
2690 : : #if defined(_DERIVATE)
2691 : : double DC_j2_Vsi_ci;
2692 : : double DC_j2_Vb_ci;
2693 : : double DC_j2_Vbp_ci;
2694 : : double DC_j2_Vtnode_GND;
2695 : : double DC_j2_Vbi_ci;
2696 : : #endif
2697 : : double DC_j1;
2698 : : #if defined(_DERIVATE)
2699 : : double DC_j1_Vsi_ci;
2700 : : double DC_j1_Vb_ci;
2701 : : double DC_j1_Vbp_ci;
2702 : : double DC_j1_Vtnode_GND;
2703 : : double DC_j1_Vbi_ci;
2704 : : #endif
2705 : : double Dzr1;
2706 : : double Dz1;
2707 : : double DCln2;
2708 : : #if defined(_DERIVATE)
2709 : : double DCln2_Vsi_ci;
2710 : : double DCln2_Vb_ci;
2711 : : double DCln2_Vbp_ci;
2712 : : double DCln2_Vtnode_GND;
2713 : : double DCln2_Vbi_ci;
2714 : : #endif
2715 : : double DCln1;
2716 : : #if defined(_DERIVATE)
2717 : : double DCln1_Vsi_ci;
2718 : : double DCln1_Vb_ci;
2719 : : double DCln1_Vbp_ci;
2720 : : double DCln1_Vtnode_GND;
2721 : : double DCln1_Vbi_ci;
2722 : : #endif
2723 : : double Dv_j4;
2724 : : #if defined(_DERIVATE)
2725 : : double Dv_j4_Vsi_ci;
2726 : : double Dv_j4_Vb_ci;
2727 : : double Dv_j4_Vbp_ci;
2728 : : double Dv_j4_Vbi_ci;
2729 : : double Dv_j4_Vtnode_GND;
2730 : : #endif
2731 : : double Dv_j2;
2732 : : #if defined(_DERIVATE)
2733 : : double Dv_j2_Vsi_ci;
2734 : : double Dv_j2_Vb_ci;
2735 : : double Dv_j2_Vbp_ci;
2736 : : double Dv_j2_Vtnode_GND;
2737 : : double Dv_j2_Vbi_ci;
2738 : : #endif
2739 : : double De_2;
2740 : : #if defined(_DERIVATE)
2741 : : double De_2_Vsi_ci;
2742 : : double De_2_Vb_ci;
2743 : : double De_2_Vbp_ci;
2744 : : double De_2_Vtnode_GND;
2745 : : double De_2_Vbi_ci;
2746 : : #endif
2747 : : double Dv_r;
2748 : : #if defined(_DERIVATE)
2749 : : double Dv_r_Vsi_ci;
2750 : : double Dv_r_Vb_ci;
2751 : : double Dv_r_Vbp_ci;
2752 : : double Dv_r_Vtnode_GND;
2753 : : double Dv_r_Vbi_ci;
2754 : : #endif
2755 : : double Da;
2756 : : #if defined(_DERIVATE)
2757 : : double Da_Vtnode_GND;
2758 : : #endif
2759 : : double Dv_j1;
2760 : : #if defined(_DERIVATE)
2761 : : double Dv_j1_Vsi_ci;
2762 : : double Dv_j1_Vb_ci;
2763 : : double Dv_j1_Vbp_ci;
2764 : : double Dv_j1_Vtnode_GND;
2765 : : double Dv_j1_Vbi_ci;
2766 : : #endif
2767 : : double De_1;
2768 : : #if defined(_DERIVATE)
2769 : : double De_1_Vsi_ci;
2770 : : double De_1_Vb_ci;
2771 : : double De_1_Vbp_ci;
2772 : : double De_1_Vtnode_GND;
2773 : : double De_1_Vbi_ci;
2774 : : #endif
2775 : : double De;
2776 : : #if defined(_DERIVATE)
2777 : : double De_Vsi_ci;
2778 : : double De_Vb_ci;
2779 : : double De_Vbp_ci;
2780 : : double De_Vtnode_GND;
2781 : : double De_Vbi_ci;
2782 : : #endif
2783 : : double Dv_e;
2784 : : #if defined(_DERIVATE)
2785 : : double Dv_e_Vsi_ci;
2786 : : double Dv_e_Vb_ci;
2787 : : double Dv_e_Vbp_ci;
2788 : : double Dv_e_Vtnode_GND;
2789 : : double Dv_e_Vbi_ci;
2790 : : #endif
2791 : : double DC_c;
2792 : : #if defined(_DERIVATE)
2793 : : double DC_c_Vtnode_GND;
2794 : : #endif
2795 : : double DC_max;
2796 : : #if defined(_DERIVATE)
2797 : : double DC_max_Vtnode_GND;
2798 : : #endif
2799 : : double DV_f;
2800 : : #if defined(_DERIVATE)
2801 : : double DV_f_Vtnode_GND;
2802 : : #endif
2803 : : double Dv_p;
2804 : : #if defined(_DERIVATE)
2805 : : double Dv_p_Vtnode_GND;
2806 : : #endif
2807 : : double Dz_r;
2808 : : double vj_z;
2809 : : #if defined(_DERIVATE)
2810 : : double vj_z_Vtnode_GND;
2811 : : double vj_z_Vbi_ei;
2812 : : #endif
2813 : : double vj;
2814 : : #if defined(_DERIVATE)
2815 : : double vj_Vtnode_GND;
2816 : : double vj_Vbi_ei;
2817 : : #endif
2818 : : double hjei_vbe;
2819 : : #if defined(_DERIVATE)
2820 : : double hjei_vbe_Vtnode_GND;
2821 : : double hjei_vbe_Vbi_ei;
2822 : : #endif
2823 : : double Qjei;
2824 : : #if defined(_DERIVATE)
2825 : : double Qjei_Vtnode_GND;
2826 : : double Qjei_Vbi_ei;
2827 : : #endif
2828 : : double DFQ_j;
2829 : : #if defined(_DERIVATE)
2830 : : double DFQ_j_Vsi_ci;
2831 : : double DFQ_j_Vb_ci;
2832 : : double DFQ_j_Vbp_ci;
2833 : : double DFQ_j_Vbp_ei;
2834 : : double DFQ_j_Vbi_ci;
2835 : : double DFQ_j_Vtnode_GND;
2836 : : double DFQ_j_Vbi_ei;
2837 : : #endif
2838 : : double Cjei;
2839 : : #if defined(_DERIVATE)
2840 : : double Cjei_Vtnode_GND;
2841 : : double Cjei_Vbi_ei;
2842 : : #endif
2843 : : double DFC_j1;
2844 : : #if defined(_DERIVATE)
2845 : : double DFC_j1_Vsi_ci;
2846 : : double DFC_j1_Vb_ci;
2847 : : double DFC_j1_Vbp_ci;
2848 : : double DFC_j1_Vbp_ei;
2849 : : double DFC_j1_Vbi_ci;
2850 : : double DFC_j1_Vtnode_GND;
2851 : : double DFC_j1_Vbi_ei;
2852 : : #endif
2853 : : double DFb;
2854 : : #if defined(_DERIVATE)
2855 : : double DFb_Vsi_ci;
2856 : : double DFb_Vb_ci;
2857 : : double DFb_Vbp_ci;
2858 : : double DFb_Vbp_ei;
2859 : : double DFb_Vbi_ci;
2860 : : double DFb_Vtnode_GND;
2861 : : double DFb_Vbi_ei;
2862 : : #endif
2863 : : double DFdvj_dv;
2864 : : #if defined(_DERIVATE)
2865 : : double DFdvj_dv_Vsi_ci;
2866 : : double DFdvj_dv_Vb_ci;
2867 : : double DFdvj_dv_Vbp_ci;
2868 : : double DFdvj_dv_Vbp_ei;
2869 : : double DFdvj_dv_Vbi_ci;
2870 : : double DFdvj_dv_Vtnode_GND;
2871 : : double DFdvj_dv_Vbi_ei;
2872 : : #endif
2873 : : double DFv_j;
2874 : : #if defined(_DERIVATE)
2875 : : double DFv_j_Vsi_ci;
2876 : : double DFv_j_Vb_ci;
2877 : : double DFv_j_Vbp_ci;
2878 : : double DFv_j_Vbp_ei;
2879 : : double DFv_j_Vbi_ci;
2880 : : double DFv_j_Vtnode_GND;
2881 : : double DFv_j_Vbi_ei;
2882 : : #endif
2883 : : double DFs_q2;
2884 : : #if defined(_DERIVATE)
2885 : : double DFs_q2_Vsi_ci;
2886 : : double DFs_q2_Vb_ci;
2887 : : double DFs_q2_Vbp_ci;
2888 : : double DFs_q2_Vbp_ei;
2889 : : double DFs_q2_Vbi_ci;
2890 : : double DFs_q2_Vtnode_GND;
2891 : : double DFs_q2_Vbi_ei;
2892 : : #endif
2893 : : double DFs_q;
2894 : : #if defined(_DERIVATE)
2895 : : double DFs_q_Vsi_ci;
2896 : : double DFs_q_Vb_ci;
2897 : : double DFs_q_Vbp_ci;
2898 : : double DFs_q_Vbp_ei;
2899 : : double DFs_q_Vbi_ci;
2900 : : double DFs_q_Vtnode_GND;
2901 : : double DFs_q_Vbi_ei;
2902 : : #endif
2903 : : double DFv_e;
2904 : : #if defined(_DERIVATE)
2905 : : double DFv_e_Vsi_ci;
2906 : : double DFv_e_Vb_ci;
2907 : : double DFv_e_Vbp_ci;
2908 : : double DFv_e_Vbp_ei;
2909 : : double DFv_e_Vbi_ci;
2910 : : double DFv_e_Vtnode_GND;
2911 : : double DFv_e_Vbi_ei;
2912 : : #endif
2913 : : double DFV_f;
2914 : : #if defined(_DERIVATE)
2915 : : double DFV_f_Vtnode_GND;
2916 : : #endif
2917 : : double i_0r;
2918 : : #if defined(_DERIVATE)
2919 : : double i_0r_Vtnode_GND;
2920 : : double i_0r_Vbi_ci;
2921 : : #endif
2922 : : double i_0f;
2923 : : #if defined(_DERIVATE)
2924 : : double i_0f_Vtnode_GND;
2925 : : double i_0f_Vbi_ei;
2926 : : #endif
2927 : : double VT_f;
2928 : : #if defined(_DERIVATE)
2929 : : double VT_f_Vtnode_GND;
2930 : : #endif
2931 : : double Tr;
2932 : : double Orci0_t;
2933 : : #if defined(_DERIVATE)
2934 : : double Orci0_t_Vtnode_GND;
2935 : : #endif
2936 : : double irei;
2937 : : #if defined(_DERIVATE)
2938 : : double irei_Vtnode_GND;
2939 : : double irei_Vbi_ei;
2940 : : #endif
2941 : : #if defined(_DERIVATE)
2942 : : double ibei_Vtnode_GND;
2943 : : double ibei_Vbi_ei;
2944 : : #endif
2945 : : double le;
2946 : : #if defined(_DERIVATE)
2947 : : double le_Vsi_ci;
2948 : : double le_Vbp_ci;
2949 : : double le_Vbp_ei;
2950 : : double le_Vbi_ci;
2951 : : double le_Vbi_ei;
2952 : : double le_Vtnode_GND;
2953 : : #endif
2954 : : double DIOY;
2955 : : #if defined(_DERIVATE)
2956 : : double DIOY_Vsi_ci;
2957 : : double DIOY_Vbp_ci;
2958 : : double DIOY_Vbp_ei;
2959 : : double DIOY_Vbi_ci;
2960 : : double DIOY_Vbi_ei;
2961 : : double DIOY_Vtnode_GND;
2962 : : #endif
2963 : : #if defined(_DERIVATE)
2964 : : double rth_t_Vtnode_GND;
2965 : : #endif
2966 : : #if defined(_DERIVATE)
2967 : : double hfc_t_Vtnode_GND;
2968 : : #endif
2969 : : #if defined(_DERIVATE)
2970 : : double hfe_t_Vtnode_GND;
2971 : : #endif
2972 : : #if defined(_DERIVATE)
2973 : : double hf0_t_Vtnode_GND;
2974 : : #endif
2975 : : #if defined(_DERIVATE)
2976 : : double hjei0_t_Vtnode_GND;
2977 : : #endif
2978 : : #if defined(_DERIVATE)
2979 : : double ahjei_t_Vtnode_GND;
2980 : : #endif
2981 : : #if defined(_DYNAMIC)
2982 : : #if defined(_DERIVATE)
2983 : : double vpts_t_Vtnode_GND;
2984 : : #endif
2985 : : #endif
2986 : : #if defined(_DYNAMIC)
2987 : : #if defined(_DERIVATE)
2988 : : double cjs0_t_Vtnode_GND;
2989 : : #endif
2990 : : #endif
2991 : : #if defined(_DYNAMIC)
2992 : : #if defined(_DERIVATE)
2993 : : double vds_t_Vtnode_GND;
2994 : : #endif
2995 : : #endif
2996 : : #if defined(_DYNAMIC)
2997 : : #if defined(_DERIVATE)
2998 : : double tsf_t_Vtnode_GND;
2999 : : #endif
3000 : : #endif
3001 : : #if defined(_DERIVATE)
3002 : : double re_t_Vtnode_GND;
3003 : : #endif
3004 : : #if defined(_DERIVATE)
3005 : : double rbx_t_Vtnode_GND;
3006 : : #endif
3007 : : #if defined(_DERIVATE)
3008 : : double rcx_t_Vtnode_GND;
3009 : : #endif
3010 : : #if defined(_DYNAMIC)
3011 : : #if defined(_DERIVATE)
3012 : : double cjcx02_t_Vtnode_GND;
3013 : : #endif
3014 : : #endif
3015 : : #if defined(_DYNAMIC)
3016 : : #if defined(_DERIVATE)
3017 : : double cjcx01_t_Vtnode_GND;
3018 : : #endif
3019 : : #endif
3020 : : #if defined(_DYNAMIC)
3021 : : #if defined(_DERIVATE)
3022 : : double vptcx_t_Vtnode_GND;
3023 : : #endif
3024 : : #endif
3025 : : #if defined(_DYNAMIC)
3026 : : #if defined(_DERIVATE)
3027 : : double cratio_t_Vtnode_GND;
3028 : : #endif
3029 : : #endif
3030 : : #if defined(_DYNAMIC)
3031 : : #if defined(_DERIVATE)
3032 : : double vdcx_t_Vtnode_GND;
3033 : : #endif
3034 : : #endif
3035 : : #if defined(_DERIVATE)
3036 : : double abet_t_Vtnode_GND;
3037 : : #endif
3038 : : #if defined(_DERIVATE)
3039 : : double ibets_t_Vtnode_GND;
3040 : : #endif
3041 : : #if defined(_DERIVATE)
3042 : : double ajep_t_Vtnode_GND;
3043 : : #endif
3044 : : #if defined(_DERIVATE)
3045 : : double cjep0_t_Vtnode_GND;
3046 : : #endif
3047 : : #if defined(_DERIVATE)
3048 : : double vdep_t_Vtnode_GND;
3049 : : #endif
3050 : : #if defined(_DERIVATE)
3051 : : double rbi0_t_Vtnode_GND;
3052 : : #endif
3053 : : #if defined(_DERIVATE)
3054 : : double qavl_t_Vtnode_GND;
3055 : : #endif
3056 : : #if defined(_DERIVATE)
3057 : : double favl_t_Vtnode_GND;
3058 : : #endif
3059 : : #if defined(_DERIVATE)
3060 : : double thcs_t_Vtnode_GND;
3061 : : #endif
3062 : : #if defined(_DERIVATE)
3063 : : double t0_t_Vtnode_GND;
3064 : : #endif
3065 : : #if defined(_DERIVATE)
3066 : : double vptci_t_Vtnode_GND;
3067 : : #endif
3068 : : #if defined(_DERIVATE)
3069 : : double cjci0_t_Vtnode_GND;
3070 : : #endif
3071 : : #if defined(_DERIVATE)
3072 : : double vdci_t_Vtnode_GND;
3073 : : #endif
3074 : : #if defined(_DERIVATE)
3075 : : double vces_t_Vtnode_GND;
3076 : : #endif
3077 : : #if defined(_DERIVATE)
3078 : : double rci0_t_Vtnode_GND;
3079 : : #endif
3080 : : #if defined(_DERIVATE)
3081 : : double c10_t_Vtnode_GND;
3082 : : #endif
3083 : : #if defined(_DERIVATE)
3084 : : double tef0_t_Vtnode_GND;
3085 : : #endif
3086 : : #if defined(_DERIVATE)
3087 : : double vlim_t_Vtnode_GND;
3088 : : #endif
3089 : : #if defined(_DERIVATE)
3090 : : double k_Vtnode_GND;
3091 : : #endif
3092 : : #if defined(_DERIVATE)
3093 : : double qp0_t_Vtnode_GND;
3094 : : #endif
3095 : : #if defined(_DERIVATE)
3096 : : double iscs_t_Vtnode_GND;
3097 : : #endif
3098 : : #if defined(_DERIVATE)
3099 : : double itss_t_Vtnode_GND;
3100 : : #endif
3101 : : #if defined(_DERIVATE)
3102 : : double ibcxs_t_Vtnode_GND;
3103 : : #endif
3104 : : #if defined(_DERIVATE)
3105 : : double ibcis_t_Vtnode_GND;
3106 : : #endif
3107 : : #if defined(_DERIVATE)
3108 : : double ireps_t_Vtnode_GND;
3109 : : #endif
3110 : : #if defined(_DERIVATE)
3111 : : double ibeps_t_Vtnode_GND;
3112 : : #endif
3113 : : #if defined(_DERIVATE)
3114 : : double ireis_t_Vtnode_GND;
3115 : : #endif
3116 : : #if defined(_DERIVATE)
3117 : : double ibeis_t_Vtnode_GND;
3118 : : #endif
3119 : : #if defined(_DERIVATE)
3120 : : double a_Vbi_ei;
3121 : : double a_Vbi_ci;
3122 : : double a_Vci_ei;
3123 : : double a_Vtnode_GND;
3124 : : #endif
3125 : : #if defined(_DERIVATE)
3126 : : double r_VgVT_Vtnode_GND;
3127 : : #endif
3128 : : #if defined(_DERIVATE)
3129 : : double V_gT_Vtnode_GND;
3130 : : #endif
3131 : : #if defined(_DERIVATE)
3132 : : double ajei_t_Vtnode_GND;
3133 : : #endif
3134 : : #if defined(_DERIVATE)
3135 : : double cjei0_t_Vtnode_GND;
3136 : : #endif
3137 : : #if defined(_DERIVATE)
3138 : : double vdei_t_Vtnode_GND;
3139 : : #endif
3140 : : #if defined(_DERIVATE)
3141 : : double vdt_Vtnode_GND;
3142 : : #endif
3143 : : #if defined(_DERIVATE)
3144 : : double vdjt_Vtnode_GND;
3145 : : #endif
3146 : : #if defined(_DERIVATE)
3147 : : double vgbe_t_Vtnode_GND;
3148 : : #endif
3149 : : #if defined(_DERIVATE)
3150 : : double vge_t_Vtnode_GND;
3151 : : #endif
3152 : : #if defined(_DERIVATE)
3153 : : double vgb_t_Vtnode_GND;
3154 : : #endif
3155 : : #if defined(_DERIVATE)
3156 : : double k2_Vtnode_GND;
3157 : : #endif
3158 : : #if defined(_DERIVATE)
3159 : : double k1_Vtnode_GND;
3160 : : #endif
3161 : : #if defined(_DERIVATE)
3162 : : double ln_qtt0_Vtnode_GND;
3163 : : #endif
3164 : : #if defined(_DERIVATE)
3165 : : double qtt0_Vtnode_GND;
3166 : : #endif
3167 : : #if defined(_DERIVATE)
3168 : : double dT_Vtnode_GND;
3169 : : #endif
3170 : : #if defined(_DERIVATE)
3171 : : double VT_Vtnode_GND;
3172 : : #endif
3173 : : #if defined(_DERIVATE)
3174 : : double Tdev_Vtnode_GND;
3175 : : #endif
3176 : : double Vsici;
3177 : : #if defined(_DERIVATE)
3178 : : double Vsici_Vsi_ci;
3179 : : #endif
3180 : : #if defined(_DYNAMIC)
3181 : : double Vbci;
3182 : : #if defined(_DERIVATE)
3183 : : double Vbci_Vb_ci;
3184 : : #endif
3185 : : #endif
3186 : : double Vbpci;
3187 : : #if defined(_DERIVATE)
3188 : : double Vbpci_Vbp_ci;
3189 : : #endif
3190 : : double Vbpei;
3191 : : #if defined(_DERIVATE)
3192 : : double Vbpei_Vbp_ei;
3193 : : #endif
3194 : : double Vciei;
3195 : : #if defined(_DERIVATE)
3196 : : double Vciei_Vci_ei;
3197 : : #endif
3198 : : double Vbici;
3199 : : #if defined(_DERIVATE)
3200 : : double Vbici_Vbi_ci;
3201 : : #endif
3202 : : double Vbiei;
3203 : : #if defined(_DERIVATE)
3204 : : double Vbiei_Vbi_ei;
3205 : : #endif
3206 : : int type;
3207 : 0 : type=1;
3208 : : #if defined(_DERIVATE)
3209 : 0 : Vbiei_Vbi_ei=(type);
3210 : : #endif
3211 [ # # ]: 0 : Vbiei=(type*BP(bi,ei));
3212 : : #if defined(_DERIVATE)
3213 : 0 : Vbici_Vbi_ci=(type);
3214 : : #endif
3215 [ # # ]: 0 : Vbici=(type*BP(bi,ci));
3216 : : #if defined(_DERIVATE)
3217 : 0 : Vciei_Vci_ei=(type);
3218 : : #endif
3219 [ # # ]: 0 : Vciei=(type*BP(ci,ei));
3220 : : #if defined(_DERIVATE)
3221 : 0 : Vbpei_Vbp_ei=(type);
3222 : : #endif
3223 [ # # ]: 0 : Vbpei=(type*BP(bp,ei));
3224 : : #if defined(_DERIVATE)
3225 : 0 : Vbpci_Vbp_ci=(type);
3226 : : #endif
3227 [ # # ]: 0 : Vbpci=(type*BP(bp,ci));
3228 : : #if defined(_DYNAMIC)
3229 : : #if defined(_DERIVATE)
3230 : 0 : Vbci_Vb_ci=(type);
3231 : : #endif
3232 [ # # ]: 0 : Vbci=(type*BP(b,ci));
3233 : : #endif
3234 : : #if defined(_DERIVATE)
3235 : 0 : Vsici_Vsi_ci=(type);
3236 : : #endif
3237 [ # # ]: 0 : Vsici=(type*BP(si,ci));
3238 [ # # ][ # # ]: 0 : if
3239 : : ((flsh!=0)&&(rth>=0.001))
3240 : : {
3241 : : #if defined(_DERIVATE)
3242 : 0 : Tdev_Vtnode_GND=1.0;
3243 : : #endif
3244 : 0 : Tdev=((Tamb+dt)+NP(tnode));
3245 [ # # ]: 0 : if
3246 : : (Tdev<((-100.0)+273.15))
3247 : : {
3248 : : #if defined(_DERIVATE)
3249 : 0 : Tdev_Vtnode_GND=0.0;
3250 : : #endif
3251 : 0 : Tdev=((-100.0)+273.15);
3252 : : }
3253 : : else
3254 : : {
3255 [ # # ]: 0 : if
3256 : : (Tdev>(326.85+273.15))
3257 : : {
3258 : : #if defined(_DERIVATE)
3259 : 0 : Tdev_Vtnode_GND=0.0;
3260 : : #endif
3261 : 0 : Tdev=(326.85+273.15);
3262 : : }
3263 : : }
3264 : : #if defined(_DERIVATE)
3265 : 0 : VT_Vtnode_GND=((1.3806503e-23*Tdev_Vtnode_GND)/1.602176462e-19);
3266 : : #endif
3267 : 0 : VT=((1.3806503e-23*Tdev)/1.602176462e-19);
3268 : : #if defined(_DERIVATE)
3269 : 0 : dT_Vtnode_GND=Tdev_Vtnode_GND;
3270 : : #endif
3271 : 0 : dT=(Tdev-Tnom);
3272 : : #if defined(_DERIVATE)
3273 : 0 : qtt0_Vtnode_GND=(Tdev_Vtnode_GND/Tnom);
3274 : : #endif
3275 : 0 : qtt0=(Tdev/Tnom);
3276 : : {
3277 : 0 : double m00_logE(d00_logE0,qtt0)
3278 : : #if defined(_DERIVATE)
3279 : 0 : double m10_logE(d10_logE0,d00_logE0,qtt0)
3280 : : #endif
3281 : : #if defined(_DERIVATE)
3282 : 0 : ln_qtt0_Vtnode_GND=qtt0_Vtnode_GND*d10_logE0;
3283 : : #endif
3284 : 0 : ln_qtt0=d00_logE0;
3285 : : }
3286 : : {
3287 : 0 : double m00_logE(d00_logE0,Tdev)
3288 : : #if defined(_DERIVATE)
3289 : 0 : double m10_logE(d10_logE0,d00_logE0,Tdev)
3290 : : #endif
3291 : : #if defined(_DERIVATE)
3292 : 0 : k1_Vtnode_GND=(((f1vg*Tdev_Vtnode_GND)*d00_logE0)+((f1vg*Tdev)*Tdev_Vtnode_GND*d10_logE0));
3293 : : #endif
3294 : 0 : k1=((f1vg*Tdev)*d00_logE0);
3295 : : }
3296 : : #if defined(_DERIVATE)
3297 : 0 : k2_Vtnode_GND=(f2vg*Tdev_Vtnode_GND);
3298 : : #endif
3299 : 0 : k2=(f2vg*Tdev);
3300 : : #if defined(_DERIVATE)
3301 : 0 : vgb_t_Vtnode_GND=(k1_Vtnode_GND+k2_Vtnode_GND);
3302 : : #endif
3303 : 0 : vgb_t=((vgb+k1)+k2);
3304 : : #if defined(_DERIVATE)
3305 : 0 : vge_t_Vtnode_GND=(k1_Vtnode_GND+k2_Vtnode_GND);
3306 : : #endif
3307 : 0 : vge_t=((vge+k1)+k2);
3308 : : #if defined(_DERIVATE)
3309 : 0 : vgbe_t_Vtnode_GND=((vgb_t_Vtnode_GND+vge_t_Vtnode_GND)/2);
3310 : : #endif
3311 : 0 : vgbe_t=((vgb_t+vge_t)/2);
3312 [ # # ]: 0 : if
3313 : : (cjei0>0.0)
3314 : : {
3315 : : {
3316 : 0 : double m00_exp(d00_exp0,((vdei*0.5)/vt0))
3317 : 0 : double m00_exp(d00_exp1,(((-0.5)*vdei)/vt0))
3318 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
3319 : 0 : vdj0=((2*vt0)*d00_logE2);
3320 : : }
3321 : : #if defined(_DERIVATE)
3322 : 0 : vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgbe0*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
3323 : : #endif
3324 : 0 : vdjt=(((vdj0*qtt0)+(vgbe0*(1-qtt0)))-((mg*VT)*ln_qtt0));
3325 : : {
3326 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
3327 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
3328 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
3329 : : #if defined(_DERIVATE)
3330 : : #define d10_exp0 d00_exp0
3331 : 0 : double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
3332 : 0 : double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
3333 : : #endif
3334 : : #if defined(_DERIVATE)
3335 : 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)));
3336 : : #endif
3337 : 0 : vdt=(vdjt+((2*VT)*d00_logE2));
3338 : : }
3339 : : #if defined(_DERIVATE)
3340 : 0 : vdei_t_Vtnode_GND=vdt_Vtnode_GND;
3341 : : #endif
3342 : 0 : vdei_t=vdt;
3343 : : {
3344 : 0 : double m00_logE(d00_logE0,(vdei/vdei_t))
3345 : 0 : double m00_exp(d00_exp1,(zei*d00_logE0))
3346 : : #if defined(_DERIVATE)
3347 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdei/vdei_t))
3348 : : #define d10_exp1 d00_exp1
3349 : : #endif
3350 : : #if defined(_DERIVATE)
3351 : 0 : cjei0_t_Vtnode_GND=(cjei0*(zei*(-vdei*vdei_t_Vtnode_GND/vdei_t/vdei_t)*d10_logE0)*d10_exp1);
3352 : : #endif
3353 : 0 : cjei0_t=(cjei0*d00_exp1);
3354 : : }
3355 : : if
3356 : : (1==1)
3357 : : {
3358 : : #if defined(_DERIVATE)
3359 : 0 : ajei_t_Vtnode_GND=((ajei*vdei_t_Vtnode_GND)/vdei);
3360 : : #endif
3361 : 0 : ajei_t=((ajei*vdei_t)/vdei);
3362 : : }
3363 : : else
3364 : : {
3365 : : #if defined(_DERIVATE)
3366 : : ajei_t_Vtnode_GND=0.0;
3367 : : #endif
3368 : : ajei_t=ajei;
3369 : : }
3370 : : }
3371 : : else
3372 : : {
3373 : : #if defined(_DERIVATE)
3374 : 0 : cjei0_t_Vtnode_GND=0.0;
3375 : : #endif
3376 : 0 : cjei0_t=cjei0;
3377 : : #if defined(_DERIVATE)
3378 : 0 : vdei_t_Vtnode_GND=0.0;
3379 : : #endif
3380 : 0 : vdei_t=vdei;
3381 : : #if defined(_DERIVATE)
3382 : 0 : ajei_t_Vtnode_GND=0.0;
3383 : : #endif
3384 : 0 : ajei_t=ajei;
3385 : : }
3386 [ # # ][ # # ]: 0 : if
3387 : : ((flcomp==0.0)||(flcomp==2.1))
3388 : : {
3389 : : #if defined(_DERIVATE)
3390 : 0 : V_gT_Vtnode_GND=((((3.0*VT_Vtnode_GND)*ln_qtt0)+((3.0*VT)*ln_qtt0_Vtnode_GND))+(vgb*qtt0_Vtnode_GND));
3391 : : #endif
3392 : 0 : V_gT=(((3.0*VT)*ln_qtt0)+(vgb*(qtt0-1.0)));
3393 : : #if defined(_DERIVATE)
3394 : 0 : r_VgVT_Vtnode_GND=((V_gT_Vtnode_GND*VT-V_gT*VT_Vtnode_GND)/VT/VT);
3395 : : #endif
3396 : 0 : r_VgVT=(V_gT/VT);
3397 : : #if defined(_DERIVATE)
3398 : 0 : a_Vbi_ei=0.0;
3399 : 0 : a_Vbi_ci=0.0;
3400 : 0 : a_Vci_ei=0.0;
3401 : 0 : a_Vtnode_GND=(((mcf*r_VgVT_Vtnode_GND)/mbei)-(alb*dT_Vtnode_GND));
3402 : : #endif
3403 : 0 : a=(((mcf*r_VgVT)/mbei)-(alb*dT));
3404 : : {
3405 : 0 : double m00_exp(d00_exp0,a)
3406 : : #if defined(_DERIVATE)
3407 : : #define d10_exp0 d00_exp0
3408 : : #endif
3409 : : #if defined(_DERIVATE)
3410 : 0 : ibeis_t_Vtnode_GND=(ibeis*a_Vtnode_GND*d10_exp0);
3411 : : #endif
3412 : 0 : ibeis_t=(ibeis*d00_exp0);
3413 : : }
3414 : : #if defined(_DERIVATE)
3415 : 0 : a_Vbi_ei=0.0;
3416 : 0 : a_Vbi_ci=0.0;
3417 : 0 : a_Vci_ei=0.0;
3418 : 0 : a_Vtnode_GND=(((mcf*r_VgVT_Vtnode_GND)/mrei)-(alb*dT_Vtnode_GND));
3419 : : #endif
3420 : 0 : a=(((mcf*r_VgVT)/mrei)-(alb*dT));
3421 : : {
3422 : 0 : double m00_exp(d00_exp0,a)
3423 : : #if defined(_DERIVATE)
3424 : : #define d10_exp0 d00_exp0
3425 : : #endif
3426 : : #if defined(_DERIVATE)
3427 : 0 : ireis_t_Vtnode_GND=(ireis*a_Vtnode_GND*d10_exp0);
3428 : : #endif
3429 : 0 : ireis_t=(ireis*d00_exp0);
3430 : : }
3431 : : #if defined(_DERIVATE)
3432 : 0 : a_Vbi_ei=0.0;
3433 : 0 : a_Vbi_ci=0.0;
3434 : 0 : a_Vci_ei=0.0;
3435 : 0 : a_Vtnode_GND=(((mcf*r_VgVT_Vtnode_GND)/mbep)-(alb*dT_Vtnode_GND));
3436 : : #endif
3437 : 0 : a=(((mcf*r_VgVT)/mbep)-(alb*dT));
3438 : : {
3439 : 0 : double m00_exp(d00_exp0,a)
3440 : : #if defined(_DERIVATE)
3441 : : #define d10_exp0 d00_exp0
3442 : : #endif
3443 : : #if defined(_DERIVATE)
3444 : 0 : ibeps_t_Vtnode_GND=(ibeps*a_Vtnode_GND*d10_exp0);
3445 : : #endif
3446 : 0 : ibeps_t=(ibeps*d00_exp0);
3447 : : }
3448 : : #if defined(_DERIVATE)
3449 : 0 : a_Vbi_ei=0.0;
3450 : 0 : a_Vbi_ci=0.0;
3451 : 0 : a_Vci_ei=0.0;
3452 : 0 : a_Vtnode_GND=(((mcf*r_VgVT_Vtnode_GND)/mrep)-(alb*dT_Vtnode_GND));
3453 : : #endif
3454 : 0 : a=(((mcf*r_VgVT)/mrep)-(alb*dT));
3455 : : {
3456 : 0 : double m00_exp(d00_exp0,a)
3457 : : #if defined(_DERIVATE)
3458 : : #define d10_exp0 d00_exp0
3459 : : #endif
3460 : : #if defined(_DERIVATE)
3461 : 0 : ireps_t_Vtnode_GND=(ireps*a_Vtnode_GND*d10_exp0);
3462 : : #endif
3463 : 0 : ireps_t=(ireps*d00_exp0);
3464 : : }
3465 : : #if defined(_DERIVATE)
3466 : 0 : a_Vbi_ei=0.0;
3467 : 0 : a_Vbi_ci=0.0;
3468 : 0 : a_Vci_ei=0.0;
3469 : 0 : a_Vtnode_GND=(r_VgVT_Vtnode_GND/mbci);
3470 : : #endif
3471 : 0 : a=(r_VgVT/mbci);
3472 : : {
3473 : 0 : double m00_exp(d00_exp0,a)
3474 : : #if defined(_DERIVATE)
3475 : : #define d10_exp0 d00_exp0
3476 : : #endif
3477 : : #if defined(_DERIVATE)
3478 : 0 : ibcis_t_Vtnode_GND=(ibcis*a_Vtnode_GND*d10_exp0);
3479 : : #endif
3480 : 0 : ibcis_t=(ibcis*d00_exp0);
3481 : : }
3482 : : #if defined(_DERIVATE)
3483 : 0 : a_Vbi_ei=0.0;
3484 : 0 : a_Vbi_ci=0.0;
3485 : 0 : a_Vci_ei=0.0;
3486 : 0 : a_Vtnode_GND=(r_VgVT_Vtnode_GND/mbcx);
3487 : : #endif
3488 : 0 : a=(r_VgVT/mbcx);
3489 : : {
3490 : 0 : double m00_exp(d00_exp0,a)
3491 : : #if defined(_DERIVATE)
3492 : : #define d10_exp0 d00_exp0
3493 : : #endif
3494 : : #if defined(_DERIVATE)
3495 : 0 : ibcxs_t_Vtnode_GND=(ibcxs*a_Vtnode_GND*d10_exp0);
3496 : : #endif
3497 : 0 : ibcxs_t=(ibcxs*d00_exp0);
3498 : : }
3499 : : #if defined(_DERIVATE)
3500 : 0 : a_Vbi_ei=0.0;
3501 : 0 : a_Vbi_ci=0.0;
3502 : 0 : a_Vci_ei=0.0;
3503 : 0 : a_Vtnode_GND=(r_VgVT_Vtnode_GND/msf);
3504 : : #endif
3505 : 0 : a=(r_VgVT/msf);
3506 : : {
3507 : 0 : double m00_exp(d00_exp0,a)
3508 : : #if defined(_DERIVATE)
3509 : : #define d10_exp0 d00_exp0
3510 : : #endif
3511 : : #if defined(_DERIVATE)
3512 : 0 : itss_t_Vtnode_GND=(itss*a_Vtnode_GND*d10_exp0);
3513 : : #endif
3514 : 0 : itss_t=(itss*d00_exp0);
3515 : : }
3516 : : #if defined(_DERIVATE)
3517 : 0 : a_Vbi_ei=0.0;
3518 : 0 : a_Vbi_ci=0.0;
3519 : 0 : a_Vci_ei=0.0;
3520 : 0 : a_Vtnode_GND=(r_VgVT_Vtnode_GND/msc);
3521 : : #endif
3522 : 0 : a=(r_VgVT/msc);
3523 : : {
3524 : 0 : double m00_exp(d00_exp0,a)
3525 : : #if defined(_DERIVATE)
3526 : : #define d10_exp0 d00_exp0
3527 : : #endif
3528 : : #if defined(_DERIVATE)
3529 : 0 : iscs_t_Vtnode_GND=(iscs*a_Vtnode_GND*d10_exp0);
3530 : : #endif
3531 : 0 : iscs_t=(iscs*d00_exp0);
3532 : : }
3533 : : #if defined(_DERIVATE)
3534 : 0 : a_Vbi_ei=0.0;
3535 : 0 : a_Vbi_ci=0.0;
3536 : 0 : a_Vci_ei=0.0;
3537 : 0 : a_Vtnode_GND=(vdei_t_Vtnode_GND/vdei);
3538 : : #endif
3539 : 0 : a=(vdei_t/vdei);
3540 : : #if defined(_DERIVATE)
3541 : 0 : qp0_t_Vtnode_GND=(qp0*((0.5*zei)*(-a_Vtnode_GND)));
3542 : : #endif
3543 : 0 : qp0_t=(qp0*(1.0+((0.5*zei)*(1.0-a))));
3544 : : {
3545 : 0 : double m00_exp(d00_exp0,(zetaci*ln_qtt0))
3546 : : #if defined(_DERIVATE)
3547 : : #define d10_exp0 d00_exp0
3548 : : #endif
3549 : : #if defined(_DERIVATE)
3550 : 0 : a_Vbi_ei=0.0;
3551 : 0 : a_Vbi_ci=0.0;
3552 : 0 : a_Vci_ei=0.0;
3553 : 0 : a_Vtnode_GND=(((vlim*(-(alvs*dT_Vtnode_GND)))*d00_exp0)+((vlim*(1.0-(alvs*dT)))*(zetaci*ln_qtt0_Vtnode_GND)*d10_exp0));
3554 : : #endif
3555 : 0 : a=((vlim*(1.0-(alvs*dT)))*d00_exp0);
3556 : : }
3557 : : #if defined(_DERIVATE)
3558 : 0 : k_Vtnode_GND=(((a_Vtnode_GND-VT_Vtnode_GND)*VT-(a-VT)*VT_Vtnode_GND)/VT/VT);
3559 : : #endif
3560 : 0 : k=((a-VT)/VT);
3561 [ # # ]: 0 : if
3562 : : (k<11.0)
3563 : : {
3564 : : {
3565 : 0 : double m00_exp(d00_exp0,k)
3566 : 0 : double m00_logE(d00_logE1,(1.0+d00_exp0))
3567 : : #if defined(_DERIVATE)
3568 : : #define d10_exp0 d00_exp0
3569 : 0 : double m10_logE(d10_logE1,d00_logE1,(1.0+d00_exp0))
3570 : : #endif
3571 : : #if defined(_DERIVATE)
3572 : 0 : vlim_t_Vtnode_GND=(VT_Vtnode_GND+((VT_Vtnode_GND*d00_logE1)+(VT*k_Vtnode_GND*d10_exp0*d10_logE1)));
3573 : : #endif
3574 : 0 : vlim_t=(VT+(VT*d00_logE1));
3575 : : }
3576 : : }
3577 : : else
3578 : : {
3579 : : #if defined(_DERIVATE)
3580 : 0 : vlim_t_Vtnode_GND=a_Vtnode_GND;
3581 : : #endif
3582 : 0 : vlim_t=a;
3583 : : }
3584 : : #if defined(_DERIVATE)
3585 : 0 : a_Vbi_ei=0.0;
3586 : 0 : a_Vbi_ci=0.0;
3587 : 0 : a_Vci_ei=0.0;
3588 : 0 : a_Vtnode_GND=(alb*dT_Vtnode_GND);
3589 : : #endif
3590 : 0 : a=(1.0+(alb*dT));
3591 : : {
3592 : 0 : double m00_sqrt(d00_sqrt0,((a*a)+0.01))
3593 : : #if defined(_DERIVATE)
3594 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((a*a)+0.01))
3595 : : #endif
3596 : : #if defined(_DERIVATE)
3597 : 0 : k_Vtnode_GND=(0.5*(a_Vtnode_GND+((a_Vtnode_GND*a)+(a*a_Vtnode_GND))*d10_sqrt0));
3598 : : #endif
3599 : 0 : k=(0.5*(a+d00_sqrt0));
3600 : : }
3601 : : #if defined(_DERIVATE)
3602 : 0 : tef0_t_Vtnode_GND=(((tef0*qtt0_Vtnode_GND)*k-(tef0*qtt0)*k_Vtnode_GND)/k/k);
3603 : : #endif
3604 : 0 : tef0_t=((tef0*qtt0)/k);
3605 : : }
3606 : : else
3607 : : {
3608 : : {
3609 : 0 : double m00_exp(d00_exp0,((zetabet*ln_qtt0)+((vge/VT)*(qtt0-1))))
3610 : : #if defined(_DERIVATE)
3611 : : #define d10_exp0 d00_exp0
3612 : : #endif
3613 : : #if defined(_DERIVATE)
3614 : 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);
3615 : : #endif
3616 : 0 : ibeis_t=(ibeis*d00_exp0);
3617 : : }
3618 [ # # ]: 0 : if
3619 : : (flcomp>=2.3)
3620 : : {
3621 : : {
3622 : 0 : double m00_exp(d00_exp0,(((mg/mrei)*ln_qtt0)+((vgbe0/(mrei*VT))*(qtt0-1))))
3623 : : #if defined(_DERIVATE)
3624 : : #define d10_exp0 d00_exp0
3625 : : #endif
3626 : : #if defined(_DERIVATE)
3627 : 0 : ireis_t_Vtnode_GND=(ireis*(((mg/mrei)*ln_qtt0_Vtnode_GND)+(((-vgbe0*(mrei*VT_Vtnode_GND)/(mrei*VT)/(mrei*VT))*(qtt0-1))+((vgbe0/(mrei*VT))*qtt0_Vtnode_GND)))*d10_exp0);
3628 : : #endif
3629 : 0 : ireis_t=(ireis*d00_exp0);
3630 : : }
3631 : : }
3632 : : else
3633 : : {
3634 : : {
3635 : 0 : double m00_exp(d00_exp0,(((0.5*mg)*ln_qtt0)+(((0.5*vgbe0)/VT)*(qtt0-1))))
3636 : : #if defined(_DERIVATE)
3637 : : #define d10_exp0 d00_exp0
3638 : : #endif
3639 : : #if defined(_DERIVATE)
3640 : 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);
3641 : : #endif
3642 : 0 : ireis_t=(ireis*d00_exp0);
3643 : : }
3644 : : }
3645 : : {
3646 : 0 : double m00_exp(d00_exp0,((zetabet*ln_qtt0)+((vge/VT)*(qtt0-1))))
3647 : : #if defined(_DERIVATE)
3648 : : #define d10_exp0 d00_exp0
3649 : : #endif
3650 : : #if defined(_DERIVATE)
3651 : 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);
3652 : : #endif
3653 : 0 : ibeps_t=(ibeps*d00_exp0);
3654 : : }
3655 [ # # ]: 0 : if
3656 : : (flcomp>=2.3)
3657 : : {
3658 : : {
3659 : 0 : double m00_exp(d00_exp0,(((mg/mrep)*ln_qtt0)+((vgbe0/(mrep*VT))*(qtt0-1))))
3660 : : #if defined(_DERIVATE)
3661 : : #define d10_exp0 d00_exp0
3662 : : #endif
3663 : : #if defined(_DERIVATE)
3664 : 0 : ireps_t_Vtnode_GND=(ireps*(((mg/mrep)*ln_qtt0_Vtnode_GND)+(((-vgbe0*(mrep*VT_Vtnode_GND)/(mrep*VT)/(mrep*VT))*(qtt0-1))+((vgbe0/(mrep*VT))*qtt0_Vtnode_GND)))*d10_exp0);
3665 : : #endif
3666 : 0 : ireps_t=(ireps*d00_exp0);
3667 : : }
3668 : : }
3669 : : else
3670 : : {
3671 : : {
3672 : 0 : double m00_exp(d00_exp0,(((0.5*mg)*ln_qtt0)+(((0.5*vgbe0)/VT)*(qtt0-1))))
3673 : : #if defined(_DERIVATE)
3674 : : #define d10_exp0 d00_exp0
3675 : : #endif
3676 : : #if defined(_DERIVATE)
3677 : 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);
3678 : : #endif
3679 : 0 : ireps_t=(ireps*d00_exp0);
3680 : : }
3681 : : }
3682 : : {
3683 : 0 : double m00_exp(d00_exp0,((zetabci*ln_qtt0)+((vgc/VT)*(qtt0-1))))
3684 : : #if defined(_DERIVATE)
3685 : : #define d10_exp0 d00_exp0
3686 : : #endif
3687 : : #if defined(_DERIVATE)
3688 : 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);
3689 : : #endif
3690 : 0 : ibcis_t=(ibcis*d00_exp0);
3691 : : }
3692 : : {
3693 : 0 : double m00_exp(d00_exp0,((zetabcxt*ln_qtt0)+((vgc/VT)*(qtt0-1))))
3694 : : #if defined(_DERIVATE)
3695 : : #define d10_exp0 d00_exp0
3696 : : #endif
3697 : : #if defined(_DERIVATE)
3698 : 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);
3699 : : #endif
3700 : 0 : ibcxs_t=(ibcxs*d00_exp0);
3701 : : }
3702 : : {
3703 : 0 : double m00_exp(d00_exp0,((zetasct*ln_qtt0)+((vgc/VT)*(qtt0-1))))
3704 : : #if defined(_DERIVATE)
3705 : : #define d10_exp0 d00_exp0
3706 : : #endif
3707 : : #if defined(_DERIVATE)
3708 : 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);
3709 : : #endif
3710 : 0 : itss_t=(itss*d00_exp0);
3711 : : }
3712 : : {
3713 : 0 : double m00_exp(d00_exp0,((zetasct*ln_qtt0)+((vgs/VT)*(qtt0-1))))
3714 : : #if defined(_DERIVATE)
3715 : : #define d10_exp0 d00_exp0
3716 : : #endif
3717 : : #if defined(_DERIVATE)
3718 : 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);
3719 : : #endif
3720 : 0 : iscs_t=(iscs*d00_exp0);
3721 : : }
3722 : : {
3723 : 0 : double m00_logE(d00_logE0,(vdei_t/vdei))
3724 : 0 : double m00_exp(d00_exp1,(zei*d00_logE0))
3725 : : #if defined(_DERIVATE)
3726 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdei_t/vdei))
3727 : : #define d10_exp1 d00_exp1
3728 : : #endif
3729 : : #if defined(_DERIVATE)
3730 : 0 : a_Vbi_ei=0.0;
3731 : 0 : a_Vbi_ci=0.0;
3732 : 0 : a_Vci_ei=0.0;
3733 : 0 : a_Vtnode_GND=(zei*(vdei_t_Vtnode_GND/vdei)*d10_logE0)*d10_exp1;
3734 : : #endif
3735 : 0 : a=d00_exp1;
3736 : : }
3737 : : #if defined(_DERIVATE)
3738 : 0 : qp0_t_Vtnode_GND=(qp0*(-a_Vtnode_GND));
3739 : : #endif
3740 : 0 : qp0_t=(qp0*(2.0-a));
3741 : : {
3742 : 0 : double m00_exp(d00_exp0,((zetaci-avs)*ln_qtt0))
3743 : : #if defined(_DERIVATE)
3744 : : #define d10_exp0 d00_exp0
3745 : : #endif
3746 : : #if defined(_DERIVATE)
3747 : 0 : vlim_t_Vtnode_GND=(vlim*((zetaci-avs)*ln_qtt0_Vtnode_GND)*d10_exp0);
3748 : : #endif
3749 : 0 : vlim_t=(vlim*d00_exp0);
3750 : : }
3751 [ # # ]: 0 : if
3752 : : (flcomp>=2.3)
3753 : : {
3754 : : #if defined(_DERIVATE)
3755 : 0 : tef0_t_Vtnode_GND=0.0;
3756 : : #endif
3757 : 0 : tef0_t=tef0;
3758 : : }
3759 : : else
3760 : : {
3761 : 0 : zetatef=((zetabet-zetact)-0.5);
3762 : 0 : dvg0=(vgb-vge);
3763 : : {
3764 : 0 : double m00_exp(d00_exp0,((zetatef*ln_qtt0)-((dvg0/VT)*(qtt0-1))))
3765 : : #if defined(_DERIVATE)
3766 : : #define d10_exp0 d00_exp0
3767 : : #endif
3768 : : #if defined(_DERIVATE)
3769 : 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);
3770 : : #endif
3771 : 0 : tef0_t=(tef0*d00_exp0);
3772 : : }
3773 : : }
3774 : : }
3775 : : {
3776 : 0 : double m00_exp(d00_exp0,((zetact*ln_qtt0)+((vgb/VT)*(qtt0-1))))
3777 : : #if defined(_DERIVATE)
3778 : : #define d10_exp0 d00_exp0
3779 : : #endif
3780 : : #if defined(_DERIVATE)
3781 : 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);
3782 : : #endif
3783 : 0 : c10_t=(c10*d00_exp0);
3784 : : }
3785 : : {
3786 : 0 : double m00_exp(d00_exp0,(zetaci*ln_qtt0))
3787 : : #if defined(_DERIVATE)
3788 : : #define d10_exp0 d00_exp0
3789 : : #endif
3790 : : #if defined(_DERIVATE)
3791 : 0 : rci0_t_Vtnode_GND=(rci0*(zetaci*ln_qtt0_Vtnode_GND)*d10_exp0);
3792 : : #endif
3793 : 0 : rci0_t=(rci0*d00_exp0);
3794 : : }
3795 : : #if defined(_DERIVATE)
3796 : 0 : vces_t_Vtnode_GND=(vces*(alces*dT_Vtnode_GND));
3797 : : #endif
3798 : 0 : vces_t=(vces*(1+(alces*dT)));
3799 [ # # ]: 0 : if
3800 : : (cjci0>0.0)
3801 : : {
3802 : : {
3803 : 0 : double m00_exp(d00_exp0,((vdci*0.5)/vt0))
3804 : 0 : double m00_exp(d00_exp1,(((-0.5)*vdci)/vt0))
3805 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
3806 : 0 : vdj0=((2*vt0)*d00_logE2);
3807 : : }
3808 : : #if defined(_DERIVATE)
3809 : 0 : vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgbc0*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
3810 : : #endif
3811 : 0 : vdjt=(((vdj0*qtt0)+(vgbc0*(1-qtt0)))-((mg*VT)*ln_qtt0));
3812 : : {
3813 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
3814 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
3815 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
3816 : : #if defined(_DERIVATE)
3817 : : #define d10_exp0 d00_exp0
3818 : 0 : double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
3819 : 0 : double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
3820 : : #endif
3821 : : #if defined(_DERIVATE)
3822 : 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)));
3823 : : #endif
3824 : 0 : vdt=(vdjt+((2*VT)*d00_logE2));
3825 : : }
3826 : : #if defined(_DERIVATE)
3827 : 0 : vdci_t_Vtnode_GND=vdt_Vtnode_GND;
3828 : : #endif
3829 : 0 : vdci_t=vdt;
3830 : : {
3831 : 0 : double m00_logE(d00_logE0,(vdci/vdci_t))
3832 : 0 : double m00_exp(d00_exp1,(zci*d00_logE0))
3833 : : #if defined(_DERIVATE)
3834 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdci/vdci_t))
3835 : : #define d10_exp1 d00_exp1
3836 : : #endif
3837 : : #if defined(_DERIVATE)
3838 : 0 : cjci0_t_Vtnode_GND=(cjci0*(zci*(-vdci*vdci_t_Vtnode_GND/vdci_t/vdci_t)*d10_logE0)*d10_exp1);
3839 : : #endif
3840 : 0 : cjci0_t=(cjci0*d00_exp1);
3841 : : }
3842 : : if
3843 : : (0==1)
3844 : : {
3845 : : #if defined(_DERIVATE)
3846 : : vptci_t_Vtnode_GND=((vptci*vdci_t_Vtnode_GND)/vdci);
3847 : : #endif
3848 : : vptci_t=((vptci*vdci_t)/vdci);
3849 : : }
3850 : : else
3851 : : {
3852 : : #if defined(_DERIVATE)
3853 : 0 : vptci_t_Vtnode_GND=0.0;
3854 : : #endif
3855 : 0 : vptci_t=vptci;
3856 : : }
3857 : : }
3858 : : else
3859 : : {
3860 : : #if defined(_DERIVATE)
3861 : 0 : cjci0_t_Vtnode_GND=0.0;
3862 : : #endif
3863 : 0 : cjci0_t=cjci0;
3864 : : #if defined(_DERIVATE)
3865 : 0 : vdci_t_Vtnode_GND=0.0;
3866 : : #endif
3867 : 0 : vdci_t=vdci;
3868 : : #if defined(_DERIVATE)
3869 : 0 : vptci_t_Vtnode_GND=0.0;
3870 : : #endif
3871 : 0 : vptci_t=vptci;
3872 : : }
3873 : : #if defined(_DERIVATE)
3874 : 0 : t0_t_Vtnode_GND=(t0*((alt0*dT_Vtnode_GND)+(((kt0*dT_Vtnode_GND)*dT)+((kt0*dT)*dT_Vtnode_GND))));
3875 : : #endif
3876 : 0 : t0_t=(t0*((1+(alt0*dT))+((kt0*dT)*dT)));
3877 : : {
3878 : 0 : double m00_exp(d00_exp0,((zetaci-1)*ln_qtt0))
3879 : : #if defined(_DERIVATE)
3880 : : #define d10_exp0 d00_exp0
3881 : : #endif
3882 : : #if defined(_DERIVATE)
3883 : 0 : thcs_t_Vtnode_GND=(thcs*((zetaci-1)*ln_qtt0_Vtnode_GND)*d10_exp0);
3884 : : #endif
3885 : 0 : thcs_t=(thcs*d00_exp0);
3886 : : }
3887 : : {
3888 : 0 : double m00_exp(d00_exp0,(alfav*dT))
3889 : : #if defined(_DERIVATE)
3890 : : #define d10_exp0 d00_exp0
3891 : : #endif
3892 : : #if defined(_DERIVATE)
3893 : 0 : favl_t_Vtnode_GND=(favl*(alfav*dT_Vtnode_GND)*d10_exp0);
3894 : : #endif
3895 : 0 : favl_t=(favl*d00_exp0);
3896 : : }
3897 : : {
3898 : 0 : double m00_exp(d00_exp0,(alqav*dT))
3899 : : #if defined(_DERIVATE)
3900 : : #define d10_exp0 d00_exp0
3901 : : #endif
3902 : : #if defined(_DERIVATE)
3903 : 0 : qavl_t_Vtnode_GND=(qavl*(alqav*dT_Vtnode_GND)*d10_exp0);
3904 : : #endif
3905 : 0 : qavl_t=(qavl*d00_exp0);
3906 : : }
3907 : : {
3908 : 0 : double m00_exp(d00_exp0,(zetarbi*ln_qtt0))
3909 : : #if defined(_DERIVATE)
3910 : : #define d10_exp0 d00_exp0
3911 : : #endif
3912 : : #if defined(_DERIVATE)
3913 : 0 : rbi0_t_Vtnode_GND=(rbi0*(zetarbi*ln_qtt0_Vtnode_GND)*d10_exp0);
3914 : : #endif
3915 : 0 : rbi0_t=(rbi0*d00_exp0);
3916 : : }
3917 [ # # ]: 0 : if
3918 : : (cjep0>0.0)
3919 : : {
3920 : : {
3921 : 0 : double m00_exp(d00_exp0,((vdep*0.5)/vt0))
3922 : 0 : double m00_exp(d00_exp1,(((-0.5)*vdep)/vt0))
3923 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
3924 : 0 : vdj0=((2*vt0)*d00_logE2);
3925 : : }
3926 : : #if defined(_DERIVATE)
3927 : 0 : vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgbe0*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
3928 : : #endif
3929 : 0 : vdjt=(((vdj0*qtt0)+(vgbe0*(1-qtt0)))-((mg*VT)*ln_qtt0));
3930 : : {
3931 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
3932 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
3933 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
3934 : : #if defined(_DERIVATE)
3935 : : #define d10_exp0 d00_exp0
3936 : 0 : double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
3937 : 0 : double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
3938 : : #endif
3939 : : #if defined(_DERIVATE)
3940 : 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)));
3941 : : #endif
3942 : 0 : vdt=(vdjt+((2*VT)*d00_logE2));
3943 : : }
3944 : : #if defined(_DERIVATE)
3945 : 0 : vdep_t_Vtnode_GND=vdt_Vtnode_GND;
3946 : : #endif
3947 : 0 : vdep_t=vdt;
3948 : : {
3949 : 0 : double m00_logE(d00_logE0,(vdep/vdep_t))
3950 : 0 : double m00_exp(d00_exp1,(zep*d00_logE0))
3951 : : #if defined(_DERIVATE)
3952 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdep/vdep_t))
3953 : : #define d10_exp1 d00_exp1
3954 : : #endif
3955 : : #if defined(_DERIVATE)
3956 : 0 : cjep0_t_Vtnode_GND=(cjep0*(zep*(-vdep*vdep_t_Vtnode_GND/vdep_t/vdep_t)*d10_logE0)*d10_exp1);
3957 : : #endif
3958 : 0 : cjep0_t=(cjep0*d00_exp1);
3959 : : }
3960 : : if
3961 : : (1==1)
3962 : : {
3963 : : #if defined(_DERIVATE)
3964 : 0 : ajep_t_Vtnode_GND=((ajep*vdep_t_Vtnode_GND)/vdep);
3965 : : #endif
3966 : 0 : ajep_t=((ajep*vdep_t)/vdep);
3967 : : }
3968 : : else
3969 : : {
3970 : : #if defined(_DERIVATE)
3971 : : ajep_t_Vtnode_GND=0.0;
3972 : : #endif
3973 : : ajep_t=ajep;
3974 : : }
3975 : : }
3976 : : else
3977 : : {
3978 : : #if defined(_DERIVATE)
3979 : 0 : cjep0_t_Vtnode_GND=0.0;
3980 : : #endif
3981 : 0 : cjep0_t=cjep0;
3982 : : #if defined(_DERIVATE)
3983 : 0 : vdep_t_Vtnode_GND=0.0;
3984 : : #endif
3985 : 0 : vdep_t=vdep;
3986 : : #if defined(_DERIVATE)
3987 : 0 : ajep_t_Vtnode_GND=0.0;
3988 : : #endif
3989 : 0 : ajep_t=ajep;
3990 : : }
3991 [ # # ][ # # ]: 0 : if
3992 : : ((Vbpei<0.0)||(Vbiei<0.0))
3993 : : {
3994 : : double a_eg;
3995 : : double ab;
3996 : : double aa;
3997 : : #if defined(_DERIVATE)
3998 : : double a_eg_Vtnode_GND;
3999 : : #endif
4000 : : #if defined(_DERIVATE)
4001 : : double ab_Vtnode_GND;
4002 : : #endif
4003 : : #if defined(_DERIVATE)
4004 : : double aa_Vtnode_GND;
4005 : : #endif
4006 : : #if defined(_DERIVATE)
4007 : 0 : ab_Vtnode_GND=0.0;
4008 : : #endif
4009 : 0 : ab=1.0;
4010 : : #if defined(_DERIVATE)
4011 : 0 : aa_Vtnode_GND=0.0;
4012 : : #endif
4013 : 0 : aa=1.0;
4014 : : #if defined(_DERIVATE)
4015 : 0 : a_eg_Vtnode_GND=(-vgbe_t0*vgbe_t_Vtnode_GND/vgbe_t/vgbe_t);
4016 : : #endif
4017 : 0 : a_eg=(vgbe_t0/vgbe_t);
4018 [ # # ][ # # ]: 0 : if
[ # # ]
4019 : : (((tunode==1)&&(cjep0>0.0))&&(vdep>0.0))
4020 : : {
4021 : : {
4022 : 0 : double m00_sqrt(d00_sqrt0,a_eg)
4023 : : #if defined(_DERIVATE)
4024 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,a_eg)
4025 : : #endif
4026 : : #if defined(_DERIVATE)
4027 : 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));
4028 : : #endif
4029 : 0 : ab=(((((cjep0_t/cjep0)*d00_sqrt0)*vdep_t)*vdep_t)/(vdep*vdep));
4030 : : }
4031 : : {
4032 : 0 : double m00_pow(d00_pow0,a_eg,(-1.5))
4033 : : #if defined(_DERIVATE)
4034 [ # # ]: 0 : double m10_pow(d10_pow0,d00_pow0,a_eg,(-1.5))
4035 : : #endif
4036 : : #if defined(_DERIVATE)
4037 : 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)));
4038 : : #endif
4039 : 0 : aa=(((vdep/vdep_t)*(cjep0/cjep0_t))*d00_pow0);
4040 : 0 : }
4041 : : }
4042 : : else
4043 : : {
4044 [ # # ][ # # ]: 0 : if
[ # # ]
4045 : : (((tunode==0)&&(cjei0>0.0))&&(vdei>0.0))
4046 : : {
4047 : : {
4048 : 0 : double m00_sqrt(d00_sqrt0,a_eg)
4049 : : #if defined(_DERIVATE)
4050 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,a_eg)
4051 : : #endif
4052 : : #if defined(_DERIVATE)
4053 : 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));
4054 : : #endif
4055 : 0 : ab=(((((cjei0_t/cjei0)*d00_sqrt0)*vdei_t)*vdei_t)/(vdei*vdei));
4056 : : }
4057 : : {
4058 : 0 : double m00_pow(d00_pow0,a_eg,(-1.5))
4059 : : #if defined(_DERIVATE)
4060 [ # # ]: 0 : double m10_pow(d10_pow0,d00_pow0,a_eg,(-1.5))
4061 : : #endif
4062 : : #if defined(_DERIVATE)
4063 : 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)));
4064 : : #endif
4065 : 0 : aa=(((vdei/vdei_t)*(cjei0/cjei0_t))*d00_pow0);
4066 : : }
4067 : : }
4068 : : }
4069 : : #if defined(_DERIVATE)
4070 : 0 : ibets_t_Vtnode_GND=(ibets*ab_Vtnode_GND);
4071 : : #endif
4072 : 0 : ibets_t=(ibets*ab);
4073 : : #if defined(_DERIVATE)
4074 : 0 : abet_t_Vtnode_GND=(abet*aa_Vtnode_GND);
4075 : : #endif
4076 : 0 : abet_t=(abet*aa);
4077 : : }
4078 : : #ifdef _DYNAMIC
4079 : : if
4080 : : (1.0>0.0)
4081 : : {
4082 : : #if defined(_DYNAMIC)
4083 : : {
4084 : 0 : double m00_exp(d00_exp0,((vdcx*0.5)/vt0))
4085 : 0 : double m00_exp(d00_exp1,(((-0.5)*vdcx)/vt0))
4086 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
4087 : 0 : vdj0=((2*vt0)*d00_logE2);
4088 : : }
4089 : : #endif
4090 : : #if defined(_DYNAMIC)
4091 : : #if defined(_DERIVATE)
4092 : 0 : vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgbc0*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
4093 : : #endif
4094 : 0 : vdjt=(((vdj0*qtt0)+(vgbc0*(1-qtt0)))-((mg*VT)*ln_qtt0));
4095 : : #endif
4096 : : #if defined(_DYNAMIC)
4097 : : {
4098 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
4099 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
4100 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
4101 : : #if defined(_DERIVATE)
4102 : : #define d10_exp0 d00_exp0
4103 : 0 : double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
4104 : 0 : double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
4105 : : #endif
4106 : : #if defined(_DERIVATE)
4107 : 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)));
4108 : : #endif
4109 : 0 : vdt=(vdjt+((2*VT)*d00_logE2));
4110 : : }
4111 : : #endif
4112 : : #if defined(_DYNAMIC)
4113 : : #if defined(_DERIVATE)
4114 : 0 : vdcx_t_Vtnode_GND=vdt_Vtnode_GND;
4115 : : #endif
4116 : 0 : vdcx_t=vdt;
4117 : : #endif
4118 : : #if defined(_DYNAMIC)
4119 : : {
4120 : 0 : double m00_logE(d00_logE0,(vdcx/vdcx_t))
4121 : 0 : double m00_exp(d00_exp1,(zcx*d00_logE0))
4122 : : #if defined(_DERIVATE)
4123 : 0 : double m10_logE(d10_logE0,d00_logE0,(vdcx/vdcx_t))
4124 : : #define d10_exp1 d00_exp1
4125 : : #endif
4126 : : #if defined(_DERIVATE)
4127 : 0 : cratio_t_Vtnode_GND=(1.0*(zcx*(-vdcx*vdcx_t_Vtnode_GND/vdcx_t/vdcx_t)*d10_logE0)*d10_exp1);
4128 : : #endif
4129 : 0 : cratio_t=(1.0*d00_exp1);
4130 : : }
4131 : : #endif
4132 : : #ifdef _DYNAMIC
4133 : : if
4134 : : (0==1)
4135 : : {
4136 : : #if defined(_DYNAMIC)
4137 : : #if defined(_DERIVATE)
4138 : : vptcx_t_Vtnode_GND=((vptcx*vdcx_t_Vtnode_GND)/vdcx);
4139 : : #endif
4140 : : vptcx_t=((vptcx*vdcx_t)/vdcx);
4141 : : #endif
4142 : : }
4143 : : else
4144 : : {
4145 : : #if defined(_DYNAMIC)
4146 : : #if defined(_DERIVATE)
4147 : 0 : vptcx_t_Vtnode_GND=0.0;
4148 : : #endif
4149 : 0 : vptcx_t=vptcx;
4150 : : #endif
4151 : : }
4152 : : #endif /* if (...) */
4153 : : }
4154 : : else
4155 : : {
4156 : : #if defined(_DYNAMIC)
4157 : : #if defined(_DERIVATE)
4158 : : cratio_t_Vtnode_GND=0.0;
4159 : : #endif
4160 : : cratio_t=1.0;
4161 : : #endif
4162 : : #if defined(_DYNAMIC)
4163 : : #if defined(_DERIVATE)
4164 : : vdcx_t_Vtnode_GND=0.0;
4165 : : #endif
4166 : : vdcx_t=vdcx;
4167 : : #endif
4168 : : #if defined(_DYNAMIC)
4169 : : #if defined(_DERIVATE)
4170 : : vptcx_t_Vtnode_GND=0.0;
4171 : : #endif
4172 : : vptcx_t=vptcx;
4173 : : #endif
4174 : : }
4175 : : #endif /* if (...) */
4176 : : #if defined(_DYNAMIC)
4177 : : #if defined(_DERIVATE)
4178 : 0 : cjcx01_t_Vtnode_GND=cratio_t_Vtnode_GND*cjcx01;
4179 : : #endif
4180 : 0 : cjcx01_t=(cratio_t*cjcx01);
4181 : : #endif
4182 : : #if defined(_DYNAMIC)
4183 : : #if defined(_DERIVATE)
4184 : 0 : cjcx02_t_Vtnode_GND=cratio_t_Vtnode_GND*cjcx02;
4185 : : #endif
4186 : 0 : cjcx02_t=(cratio_t*cjcx02);
4187 : : #endif
4188 : : {
4189 : 0 : double m00_exp(d00_exp0,(zetarcx*ln_qtt0))
4190 : : #if defined(_DERIVATE)
4191 : : #define d10_exp0 d00_exp0
4192 : : #endif
4193 : : #if defined(_DERIVATE)
4194 : 0 : rcx_t_Vtnode_GND=(rcx*(zetarcx*ln_qtt0_Vtnode_GND)*d10_exp0);
4195 : : #endif
4196 : 0 : rcx_t=(rcx*d00_exp0);
4197 : : }
4198 : : {
4199 : 0 : double m00_exp(d00_exp0,(zetarbx*ln_qtt0))
4200 : : #if defined(_DERIVATE)
4201 : : #define d10_exp0 d00_exp0
4202 : : #endif
4203 : : #if defined(_DERIVATE)
4204 : 0 : rbx_t_Vtnode_GND=(rbx*(zetarbx*ln_qtt0_Vtnode_GND)*d10_exp0);
4205 : : #endif
4206 : 0 : rbx_t=(rbx*d00_exp0);
4207 : : }
4208 : : {
4209 : 0 : double m00_exp(d00_exp0,(zetare*ln_qtt0))
4210 : : #if defined(_DERIVATE)
4211 : : #define d10_exp0 d00_exp0
4212 : : #endif
4213 : : #if defined(_DERIVATE)
4214 : 0 : re_t_Vtnode_GND=(re*(zetare*ln_qtt0_Vtnode_GND)*d10_exp0);
4215 : : #endif
4216 : 0 : re_t=(re*d00_exp0);
4217 : : }
4218 : : #if defined(_DYNAMIC)
4219 : : {
4220 : 0 : double m00_exp(d00_exp0,((zetacx-1.0)*ln_qtt0))
4221 : : #if defined(_DERIVATE)
4222 : : #define d10_exp0 d00_exp0
4223 : : #endif
4224 : : #if defined(_DERIVATE)
4225 : 0 : tsf_t_Vtnode_GND=(tsf*((zetacx-1.0)*ln_qtt0_Vtnode_GND)*d10_exp0);
4226 : : #endif
4227 : 0 : tsf_t=(tsf*d00_exp0);
4228 : : }
4229 : : #endif
4230 : : #ifdef _DYNAMIC
4231 [ # # ]: 0 : if
4232 : : (cjs0>0.0)
4233 : : {
4234 : : #if defined(_DYNAMIC)
4235 : : {
4236 : 0 : double m00_exp(d00_exp0,((vds*0.5)/vt0))
4237 : 0 : double m00_exp(d00_exp1,(((-0.5)*vds)/vt0))
4238 : 0 : double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
4239 : 0 : vdj0=((2*vt0)*d00_logE2);
4240 : : }
4241 : : #endif
4242 : : #if defined(_DYNAMIC)
4243 : : #if defined(_DERIVATE)
4244 : 0 : vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgsc0*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
4245 : : #endif
4246 : 0 : vdjt=(((vdj0*qtt0)+(vgsc0*(1-qtt0)))-((mg*VT)*ln_qtt0));
4247 : : #endif
4248 : : #if defined(_DYNAMIC)
4249 : : {
4250 : 0 : double m00_exp(d00_exp0,((-vdjt)/VT))
4251 : 0 : double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
4252 : 0 : double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
4253 : : #if defined(_DERIVATE)
4254 : : #define d10_exp0 d00_exp0
4255 : 0 : double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
4256 : 0 : double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
4257 : : #endif
4258 : : #if defined(_DERIVATE)
4259 : 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)));
4260 : : #endif
4261 : 0 : vdt=(vdjt+((2*VT)*d00_logE2));
4262 : : }
4263 : : #endif
4264 : : #if defined(_DYNAMIC)
4265 : : #if defined(_DERIVATE)
4266 : 0 : vds_t_Vtnode_GND=vdt_Vtnode_GND;
4267 : : #endif
4268 : 0 : vds_t=vdt;
4269 : : #endif
4270 : : #if defined(_DYNAMIC)
4271 : : {
4272 : 0 : double m00_logE(d00_logE0,(vds/vds_t))
4273 : 0 : double m00_exp(d00_exp1,(zs*d00_logE0))
4274 : : #if defined(_DERIVATE)
4275 : 0 : double m10_logE(d10_logE0,d00_logE0,(vds/vds_t))
4276 : : #define d10_exp1 d00_exp1
4277 : : #endif
4278 : : #if defined(_DERIVATE)
4279 : 0 : cjs0_t_Vtnode_GND=(cjs0*(zs*(-vds*vds_t_Vtnode_GND/vds_t/vds_t)*d10_logE0)*d10_exp1);
4280 : : #endif
4281 : 0 : cjs0_t=(cjs0*d00_exp1);
4282 : : }
4283 : : #endif
4284 : : #ifdef _DYNAMIC
4285 : : if
4286 : : (0==1)
4287 : : {
4288 : : #if defined(_DYNAMIC)
4289 : : #if defined(_DERIVATE)
4290 : : vpts_t_Vtnode_GND=((vpts*vds_t_Vtnode_GND)/vds);
4291 : : #endif
4292 : : vpts_t=((vpts*vds_t)/vds);
4293 : : #endif
4294 : : }
4295 : : else
4296 : : {
4297 : : #if defined(_DYNAMIC)
4298 : : #if defined(_DERIVATE)
4299 : 0 : vpts_t_Vtnode_GND=0.0;
4300 : : #endif
4301 : 0 : vpts_t=vpts;
4302 : : #endif
4303 : : }
4304 : : #endif /* if (...) */
4305 : : }
4306 : : else
4307 : : {
4308 : : #if defined(_DYNAMIC)
4309 : : #if defined(_DERIVATE)
4310 : 0 : cjs0_t_Vtnode_GND=0.0;
4311 : : #endif
4312 : 0 : cjs0_t=cjs0;
4313 : : #endif
4314 : : #if defined(_DYNAMIC)
4315 : : #if defined(_DERIVATE)
4316 : 0 : vds_t_Vtnode_GND=0.0;
4317 : : #endif
4318 : 0 : vds_t=vds;
4319 : : #endif
4320 : : #if defined(_DYNAMIC)
4321 : : #if defined(_DERIVATE)
4322 : 0 : vpts_t_Vtnode_GND=0.0;
4323 : : #endif
4324 : 0 : vpts_t=vpts;
4325 : : #endif
4326 : : }
4327 : : #endif /* if (...) */
4328 : : {
4329 : 0 : double m00_exp(d00_exp0,(zetahjei*ln_qtt0))
4330 : : #if defined(_DERIVATE)
4331 : : #define d10_exp0 d00_exp0
4332 : : #endif
4333 : : #if defined(_DERIVATE)
4334 : 0 : ahjei_t_Vtnode_GND=(ahjei*(zetahjei*ln_qtt0_Vtnode_GND)*d10_exp0);
4335 : : #endif
4336 : 0 : ahjei_t=(ahjei*d00_exp0);
4337 : : }
4338 : : {
4339 : 0 : double m00_logE(d00_logE0,qtt0)
4340 : 0 : double m00_exp(d00_exp1,(zetavgbe*d00_logE0))
4341 : 0 : double m00_exp(d00_exp2,((dvgbe/VT)*(d00_exp1-1)))
4342 : : #if defined(_DERIVATE)
4343 : 0 : double m10_logE(d10_logE0,d00_logE0,qtt0)
4344 : : #define d10_exp1 d00_exp1
4345 : : #define d10_exp2 d00_exp2
4346 : : #endif
4347 : : #if defined(_DERIVATE)
4348 : 0 : hjei0_t_Vtnode_GND=(hjei*(((-dvgbe*VT_Vtnode_GND/VT/VT)*(d00_exp1-1))+((dvgbe/VT)*(zetavgbe*qtt0_Vtnode_GND*d10_logE0)*d10_exp1))*d10_exp2);
4349 : : #endif
4350 : 0 : hjei0_t=(hjei*d00_exp2);
4351 : : }
4352 : : {
4353 : 0 : double m00_exp(d00_exp0,((dvgbe/VT)*(qtt0-1)))
4354 : : #if defined(_DERIVATE)
4355 : : #define d10_exp0 d00_exp0
4356 : : #endif
4357 : : #if defined(_DERIVATE)
4358 : 0 : hf0_t_Vtnode_GND=(hf0*(((-dvgbe*VT_Vtnode_GND/VT/VT)*(qtt0-1))+((dvgbe/VT)*qtt0_Vtnode_GND))*d10_exp0);
4359 : : #endif
4360 : 0 : hf0_t=(hf0*d00_exp0);
4361 : : }
4362 [ # # ]: 0 : if
4363 : : (flcomp>=2.3)
4364 : : {
4365 : : {
4366 : 0 : double m00_exp(d00_exp0,(((vgb-vge)/VT)*(qtt0-1)))
4367 : : #if defined(_DERIVATE)
4368 : : #define d10_exp0 d00_exp0
4369 : : #endif
4370 : : #if defined(_DERIVATE)
4371 : 0 : hfe_t_Vtnode_GND=(hfe*(((-(vgb-vge)*VT_Vtnode_GND/VT/VT)*(qtt0-1))+(((vgb-vge)/VT)*qtt0_Vtnode_GND))*d10_exp0);
4372 : : #endif
4373 : 0 : hfe_t=(hfe*d00_exp0);
4374 : : }
4375 : : {
4376 : 0 : double m00_exp(d00_exp0,(((vgb-vgc)/VT)*(qtt0-1)))
4377 : : #if defined(_DERIVATE)
4378 : : #define d10_exp0 d00_exp0
4379 : : #endif
4380 : : #if defined(_DERIVATE)
4381 : 0 : hfc_t_Vtnode_GND=(hfc*(((-(vgb-vgc)*VT_Vtnode_GND/VT/VT)*(qtt0-1))+(((vgb-vgc)/VT)*qtt0_Vtnode_GND))*d10_exp0);
4382 : : #endif
4383 : 0 : hfc_t=(hfc*d00_exp0);
4384 : : }
4385 : : }
4386 : : else
4387 : : {
4388 : : #if defined(_DERIVATE)
4389 : 0 : hfe_t_Vtnode_GND=0.0;
4390 : : #endif
4391 : 0 : hfe_t=hfe;
4392 : : #if defined(_DERIVATE)
4393 : 0 : hfc_t_Vtnode_GND=0.0;
4394 : : #endif
4395 : 0 : hfc_t=hfc;
4396 : : }
4397 : : {
4398 : 0 : double m00_exp(d00_exp0,(zetarth*ln_qtt0))
4399 : : #if defined(_DERIVATE)
4400 : : #define d10_exp0 d00_exp0
4401 : : #endif
4402 : : #if defined(_DERIVATE)
4403 : 0 : rth_t_Vtnode_GND=(((rth*(zetarth*ln_qtt0_Vtnode_GND)*d10_exp0)*(1+(alrth*dT)))+((rth*d00_exp0)*(alrth*dT_Vtnode_GND)));
4404 : : #endif
4405 : 0 : rth_t=((rth*d00_exp0)*(1+(alrth*dT)));
4406 : : }
4407 : : }
4408 : : {
4409 : : #if defined(_DERIVATE)
4410 : 0 : DIOY_Vsi_ci=0.0;
4411 : 0 : DIOY_Vbp_ci=0.0;
4412 : 0 : DIOY_Vbp_ei=0.0;
4413 : 0 : DIOY_Vbi_ci=0.0;
4414 : 0 : DIOY_Vbi_ei=(Vbiei_Vbi_ei/(mbei*VT));
4415 : 0 : DIOY_Vtnode_GND=(-Vbiei*(mbei*VT_Vtnode_GND)/(mbei*VT)/(mbei*VT));
4416 : : #endif
4417 : 0 : DIOY=(Vbiei/(mbei*VT));
4418 [ # # ]: 0 : if
4419 : : (ibeis>0.0)
4420 : : {
4421 [ # # ]: 0 : if
4422 : : (DIOY>80.0)
4423 : : {
4424 : : #if defined(_DERIVATE)
4425 : 0 : le_Vsi_ci=0.0;
4426 : 0 : le_Vbp_ci=0.0;
4427 : 0 : le_Vbp_ei=0.0;
4428 : 0 : le_Vbi_ci=0.0;
4429 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
4430 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
4431 : : #endif
4432 : 0 : le=(1+(DIOY-80.0));
4433 : : #if defined(_DERIVATE)
4434 : 0 : DIOY_Vsi_ci=0.0;
4435 : 0 : DIOY_Vbp_ci=0.0;
4436 : 0 : DIOY_Vbp_ei=0.0;
4437 : 0 : DIOY_Vbi_ci=0.0;
4438 : 0 : DIOY_Vbi_ei=0.0;
4439 : 0 : DIOY_Vtnode_GND=0.0;
4440 : : #endif
4441 : 0 : DIOY=80.0;
4442 : : }
4443 : : else
4444 : : {
4445 : : #if defined(_DERIVATE)
4446 : 0 : le_Vsi_ci=0.0;
4447 : 0 : le_Vbp_ci=0.0;
4448 : 0 : le_Vbp_ei=0.0;
4449 : 0 : le_Vbi_ci=0.0;
4450 : 0 : le_Vbi_ei=0.0;
4451 : 0 : le_Vtnode_GND=0.0;
4452 : : #endif
4453 : 0 : le=1;
4454 : : }
4455 : : {
4456 [ # # ]: 0 : double m00_limexp(d00_limexp0,DIOY)
4457 : : #if defined(_DERIVATE)
4458 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
4459 : : #endif
4460 : : #if defined(_DERIVATE)
4461 : 0 : le_Vsi_ci=0.0;
4462 : 0 : le_Vbp_ci=0.0;
4463 : 0 : le_Vbp_ei=0.0;
4464 : 0 : le_Vbi_ci=0.0;
4465 : 0 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
4466 : 0 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
4467 : : #endif
4468 : 0 : le=(le*d00_limexp0);
4469 : : }
4470 : : #if defined(_DERIVATE)
4471 : 0 : ibei_Vtnode_GND=((ibeis_t_Vtnode_GND*(le-1.0))+(ibeis_t*le_Vtnode_GND));
4472 : 0 : ibei_Vbi_ei=(ibeis_t*le_Vbi_ei);
4473 : : #endif
4474 : 0 : ibei=(ibeis_t*(le-1.0));
4475 [ # # ]: 0 : if
4476 : : (DIOY<=(-14.0))
4477 : : {
4478 : : #if defined(_DERIVATE)
4479 : 0 : ibei_Vtnode_GND=(-ibeis_t_Vtnode_GND);
4480 : 0 : ibei_Vbi_ei=0.0;
4481 : : #endif
4482 : 0 : ibei=(-ibeis_t);
4483 : : }
4484 : : }
4485 : : else
4486 : : {
4487 : : #if defined(_DERIVATE)
4488 : 0 : ibei_Vtnode_GND=0.0;
4489 : 0 : ibei_Vbi_ei=0.0;
4490 : : #endif
4491 : 0 : ibei=0.0;
4492 : : }
4493 : : #if defined(_DERIVATE)
4494 : 0 : DIOY_Vsi_ci=0.0;
4495 : 0 : DIOY_Vbp_ci=0.0;
4496 : 0 : DIOY_Vbp_ei=0.0;
4497 : 0 : DIOY_Vbi_ci=0.0;
4498 : 0 : DIOY_Vbi_ei=(Vbiei_Vbi_ei/(mrei*VT));
4499 : 0 : DIOY_Vtnode_GND=(-Vbiei*(mrei*VT_Vtnode_GND)/(mrei*VT)/(mrei*VT));
4500 : : #endif
4501 : 0 : DIOY=(Vbiei/(mrei*VT));
4502 [ # # ]: 0 : if
4503 : : (ireis>0.0)
4504 : : {
4505 [ # # ]: 0 : if
4506 : : (DIOY>80.0)
4507 : : {
4508 : : #if defined(_DERIVATE)
4509 : 0 : le_Vsi_ci=0.0;
4510 : 0 : le_Vbp_ci=0.0;
4511 : 0 : le_Vbp_ei=0.0;
4512 : 0 : le_Vbi_ci=0.0;
4513 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
4514 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
4515 : : #endif
4516 : 0 : le=(1+(DIOY-80.0));
4517 : : #if defined(_DERIVATE)
4518 : 0 : DIOY_Vsi_ci=0.0;
4519 : 0 : DIOY_Vbp_ci=0.0;
4520 : 0 : DIOY_Vbp_ei=0.0;
4521 : 0 : DIOY_Vbi_ci=0.0;
4522 : 0 : DIOY_Vbi_ei=0.0;
4523 : 0 : DIOY_Vtnode_GND=0.0;
4524 : : #endif
4525 : 0 : DIOY=80.0;
4526 : : }
4527 : : else
4528 : : {
4529 : : #if defined(_DERIVATE)
4530 : 0 : le_Vsi_ci=0.0;
4531 : 0 : le_Vbp_ci=0.0;
4532 : 0 : le_Vbp_ei=0.0;
4533 : 0 : le_Vbi_ci=0.0;
4534 : 0 : le_Vbi_ei=0.0;
4535 : 0 : le_Vtnode_GND=0.0;
4536 : : #endif
4537 : 0 : le=1;
4538 : : }
4539 : : {
4540 [ # # ]: 0 : double m00_limexp(d00_limexp0,DIOY)
4541 : : #if defined(_DERIVATE)
4542 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
4543 : : #endif
4544 : : #if defined(_DERIVATE)
4545 : 0 : le_Vsi_ci=0.0;
4546 : 0 : le_Vbp_ci=0.0;
4547 : 0 : le_Vbp_ei=0.0;
4548 : 0 : le_Vbi_ci=0.0;
4549 : 0 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
4550 : 0 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
4551 : : #endif
4552 : 0 : le=(le*d00_limexp0);
4553 : : }
4554 : : #if defined(_DERIVATE)
4555 : 0 : irei_Vtnode_GND=((ireis_t_Vtnode_GND*(le-1.0))+(ireis_t*le_Vtnode_GND));
4556 : 0 : irei_Vbi_ei=(ireis_t*le_Vbi_ei);
4557 : : #endif
4558 : 0 : irei=(ireis_t*(le-1.0));
4559 [ # # ]: 0 : if
4560 : : (DIOY<=(-14.0))
4561 : : {
4562 : : #if defined(_DERIVATE)
4563 : 0 : irei_Vtnode_GND=(-ireis_t_Vtnode_GND);
4564 : 0 : irei_Vbi_ei=0.0;
4565 : : #endif
4566 : 0 : irei=(-ireis_t);
4567 : : }
4568 : : }
4569 : : else
4570 : : {
4571 : : #if defined(_DERIVATE)
4572 : 0 : irei_Vtnode_GND=0.0;
4573 : 0 : irei_Vbi_ei=0.0;
4574 : : #endif
4575 : 0 : irei=0.0;
4576 : : }
4577 : : #if defined(_DERIVATE)
4578 : 0 : Orci0_t_Vtnode_GND=(-rci0_t_Vtnode_GND/rci0_t/rci0_t);
4579 : : #endif
4580 : 0 : Orci0_t=(1.0/rci0_t);
4581 : 0 : Tr=tr;
4582 : : #if defined(_DERIVATE)
4583 : 0 : VT_f_Vtnode_GND=(mcf*VT_Vtnode_GND);
4584 : : #endif
4585 : 0 : VT_f=(mcf*VT);
4586 : : {
4587 [ # # ]: 0 : double m00_limexp(d00_limexp0,(Vbiei/VT_f))
4588 : : #if defined(_DERIVATE)
4589 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,(Vbiei/VT_f))
4590 : : #endif
4591 : : #if defined(_DERIVATE)
4592 : 0 : i_0f_Vtnode_GND=((c10_t_Vtnode_GND*d00_limexp0)+(c10_t*(-Vbiei*VT_f_Vtnode_GND/VT_f/VT_f)*d10_limexp0));
4593 : 0 : i_0f_Vbi_ei=(c10_t*(Vbiei_Vbi_ei/VT_f)*d10_limexp0);
4594 : : #endif
4595 : 0 : i_0f=(c10_t*d00_limexp0);
4596 : : }
4597 : : {
4598 [ # # ]: 0 : double m00_limexp(d00_limexp0,(Vbici/VT))
4599 : : #if defined(_DERIVATE)
4600 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,(Vbici/VT))
4601 : : #endif
4602 : : #if defined(_DERIVATE)
4603 : 0 : i_0r_Vtnode_GND=((c10_t_Vtnode_GND*d00_limexp0)+(c10_t*(-Vbici*VT_Vtnode_GND/VT/VT)*d10_limexp0));
4604 : 0 : i_0r_Vbi_ci=(c10_t*(Vbici_Vbi_ci/VT)*d10_limexp0);
4605 : : #endif
4606 : 0 : i_0r=(c10_t*d00_limexp0);
4607 : : }
4608 [ # # ]: 0 : if
4609 : : (cjei0_t>0.0)
4610 : : {
4611 : : {
4612 : 0 : double m00_logE(d00_logE0,ajei_t)
4613 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zei))
4614 : : #if defined(_DERIVATE)
4615 : 0 : double m10_logE(d10_logE0,d00_logE0,ajei_t)
4616 : : #define d10_exp1 d00_exp1
4617 : : #endif
4618 : : #if defined(_DERIVATE)
4619 : 0 : DFV_f_Vtnode_GND=((vdei_t_Vtnode_GND*(1.0-d00_exp1))+(vdei_t*(-((-ajei_t_Vtnode_GND*d10_logE0)/zei)*d10_exp1)));
4620 : : #endif
4621 : 0 : DFV_f=(vdei_t*(1.0-d00_exp1));
4622 : : }
4623 : : #if defined(_DERIVATE)
4624 : 0 : DFv_e_Vsi_ci=0.0;
4625 : 0 : DFv_e_Vb_ci=0.0;
4626 : 0 : DFv_e_Vbp_ci=0.0;
4627 : 0 : DFv_e_Vbp_ei=0.0;
4628 : 0 : DFv_e_Vbi_ci=0.0;
4629 : 0 : DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-Vbiei)*VT_Vtnode_GND)/VT/VT);
4630 : 0 : DFv_e_Vbi_ei=((-Vbiei_Vbi_ei)/VT);
4631 : : #endif
4632 : 0 : DFv_e=((DFV_f-Vbiei)/VT);
4633 : : {
4634 : 0 : double m00_sqrt(d00_sqrt0,((DFv_e*DFv_e)+1.921812))
4635 : : #if defined(_DERIVATE)
4636 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((DFv_e*DFv_e)+1.921812))
4637 : : #endif
4638 : : #if defined(_DERIVATE)
4639 : 0 : DFs_q_Vsi_ci=0.0;
4640 : 0 : DFs_q_Vb_ci=0.0;
4641 : 0 : DFs_q_Vbp_ci=0.0;
4642 : 0 : DFs_q_Vbp_ei=0.0;
4643 : 0 : DFs_q_Vbi_ci=0.0;
4644 : 0 : DFs_q_Vtnode_GND=((DFv_e_Vtnode_GND*DFv_e)+(DFv_e*DFv_e_Vtnode_GND))*d10_sqrt0;
4645 : 0 : DFs_q_Vbi_ei=((DFv_e_Vbi_ei*DFv_e)+(DFv_e*DFv_e_Vbi_ei))*d10_sqrt0;
4646 : : #endif
4647 : 0 : DFs_q=d00_sqrt0;
4648 : : }
4649 : : #if defined(_DERIVATE)
4650 : 0 : DFs_q2_Vsi_ci=0.0;
4651 : 0 : DFs_q2_Vb_ci=0.0;
4652 : 0 : DFs_q2_Vbp_ci=0.0;
4653 : 0 : DFs_q2_Vbp_ei=0.0;
4654 : 0 : DFs_q2_Vbi_ci=0.0;
4655 : 0 : DFs_q2_Vtnode_GND=(DFv_e_Vtnode_GND+DFs_q_Vtnode_GND)*0.5;
4656 : 0 : DFs_q2_Vbi_ei=(DFv_e_Vbi_ei+DFs_q_Vbi_ei)*0.5;
4657 : : #endif
4658 : 0 : DFs_q2=((DFv_e+DFs_q)*0.5);
4659 : : #if defined(_DERIVATE)
4660 : 0 : DFv_j_Vsi_ci=0.0;
4661 : 0 : DFv_j_Vb_ci=0.0;
4662 : 0 : DFv_j_Vbp_ci=0.0;
4663 : 0 : DFv_j_Vbp_ei=0.0;
4664 : 0 : DFv_j_Vbi_ci=0.0;
4665 : 0 : DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*DFs_q2)+(VT*DFs_q2_Vtnode_GND)));
4666 : 0 : DFv_j_Vbi_ei=(-(VT*DFs_q2_Vbi_ei));
4667 : : #endif
4668 : 0 : DFv_j=(DFV_f-(VT*DFs_q2));
4669 : : #if defined(_DERIVATE)
4670 : 0 : DFdvj_dv_Vsi_ci=0.0;
4671 : 0 : DFdvj_dv_Vb_ci=0.0;
4672 : 0 : DFdvj_dv_Vbp_ci=0.0;
4673 : 0 : DFdvj_dv_Vbp_ei=0.0;
4674 : 0 : DFdvj_dv_Vbi_ci=0.0;
4675 : 0 : DFdvj_dv_Vtnode_GND=((DFs_q2_Vtnode_GND*DFs_q-DFs_q2*DFs_q_Vtnode_GND)/DFs_q/DFs_q);
4676 : 0 : DFdvj_dv_Vbi_ei=((DFs_q2_Vbi_ei*DFs_q-DFs_q2*DFs_q_Vbi_ei)/DFs_q/DFs_q);
4677 : : #endif
4678 : 0 : DFdvj_dv=(DFs_q2/DFs_q);
4679 : : {
4680 : 0 : double m00_logE(d00_logE0,(1.0-(DFv_j/vdei_t)))
4681 : : #if defined(_DERIVATE)
4682 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdei_t)))
4683 : : #endif
4684 : : #if defined(_DERIVATE)
4685 : 0 : DFb_Vsi_ci=0.0;
4686 : 0 : DFb_Vb_ci=0.0;
4687 : 0 : DFb_Vbp_ci=0.0;
4688 : 0 : DFb_Vbp_ei=0.0;
4689 : 0 : DFb_Vbi_ci=0.0;
4690 : 0 : DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdei_t-DFv_j*vdei_t_Vtnode_GND)/vdei_t/vdei_t))*d10_logE0;
4691 : 0 : DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdei_t))*d10_logE0;
4692 : : #endif
4693 : 0 : DFb=d00_logE0;
4694 : : }
4695 : : {
4696 : 0 : double m00_exp(d00_exp0,((-zei)*DFb))
4697 : : #if defined(_DERIVATE)
4698 : : #define d10_exp0 d00_exp0
4699 : : #endif
4700 : : #if defined(_DERIVATE)
4701 : 0 : DFC_j1_Vsi_ci=0.0;
4702 : 0 : DFC_j1_Vb_ci=0.0;
4703 : 0 : DFC_j1_Vbp_ci=0.0;
4704 : 0 : DFC_j1_Vbp_ei=0.0;
4705 : 0 : DFC_j1_Vbi_ci=0.0;
4706 : 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));
4707 : 0 : DFC_j1_Vbi_ei=(((cjei0_t*((-zei)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjei0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
4708 : : #endif
4709 : 0 : DFC_j1=((cjei0_t*d00_exp0)*DFdvj_dv);
4710 : : }
4711 : : #if defined(_DERIVATE)
4712 : 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))));
4713 : 0 : Cjei_Vbi_ei=(DFC_j1_Vbi_ei+((ajei_t*cjei0_t)*(-DFdvj_dv_Vbi_ei)));
4714 : : #endif
4715 : 0 : Cjei=(DFC_j1+((ajei_t*cjei0_t)*(1.0-DFdvj_dv)));
4716 : : {
4717 : 0 : double m00_exp(d00_exp0,(DFb*(1.0-zei)))
4718 : : #if defined(_DERIVATE)
4719 : : #define d10_exp0 d00_exp0
4720 : : #endif
4721 : : #if defined(_DERIVATE)
4722 : 0 : DFQ_j_Vsi_ci=0.0;
4723 : 0 : DFQ_j_Vb_ci=0.0;
4724 : 0 : DFQ_j_Vbp_ci=0.0;
4725 : 0 : DFQ_j_Vbp_ei=0.0;
4726 : 0 : DFQ_j_Vbi_ci=0.0;
4727 : 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));
4728 : 0 : DFQ_j_Vbi_ei=(((cjei0_t*vdei_t)*(-DFb_Vbi_ei*(1.0-zei)*d10_exp0))/(1.0-zei));
4729 : : #endif
4730 : 0 : DFQ_j=(((cjei0_t*vdei_t)*(1.0-d00_exp0))/(1.0-zei));
4731 : : }
4732 : : #if defined(_DERIVATE)
4733 : 0 : Qjei_Vtnode_GND=(DFQ_j_Vtnode_GND+((((ajei_t_Vtnode_GND*cjei0_t)+(ajei_t*cjei0_t_Vtnode_GND))*(Vbiei-DFv_j))+((ajei_t*cjei0_t)*(-DFv_j_Vtnode_GND))));
4734 : 0 : Qjei_Vbi_ei=(DFQ_j_Vbi_ei+((ajei_t*cjei0_t)*(Vbiei_Vbi_ei-DFv_j_Vbi_ei)));
4735 : : #endif
4736 : 0 : Qjei=(DFQ_j+((ajei_t*cjei0_t)*(Vbiei-DFv_j)));
4737 : : }
4738 : : else
4739 : : {
4740 : : #if defined(_DERIVATE)
4741 : 0 : Cjei_Vtnode_GND=0.0;
4742 : 0 : Cjei_Vbi_ei=0.0;
4743 : : #endif
4744 : 0 : Cjei=0.0;
4745 : : #if defined(_DERIVATE)
4746 : 0 : Qjei_Vtnode_GND=0.0;
4747 : 0 : Qjei_Vbi_ei=0.0;
4748 : : #endif
4749 : 0 : Qjei=0.0;
4750 : : }
4751 [ # # ]: 0 : if
4752 : : (ahjei==0.0)
4753 : : {
4754 : : #if defined(_DERIVATE)
4755 : 0 : hjei_vbe_Vtnode_GND=0.0;
4756 : 0 : hjei_vbe_Vbi_ei=0.0;
4757 : : #endif
4758 : 0 : hjei_vbe=hjei;
4759 : : }
4760 : : else
4761 : : {
4762 : : #if defined(_DERIVATE)
4763 : 0 : vj_Vtnode_GND=((vdei_t_Vtnode_GND*(rhjei*VT)-(vdei_t-Vbiei)*(rhjei*VT_Vtnode_GND))/(rhjei*VT)/(rhjei*VT));
4764 : 0 : vj_Vbi_ei=((-Vbiei_Vbi_ei)/(rhjei*VT));
4765 : : #endif
4766 : 0 : vj=((vdei_t-Vbiei)/(rhjei*VT));
4767 : : {
4768 : 0 : double m00_sqrt(d00_sqrt0,((vj*vj)+1.921812))
4769 : : #if defined(_DERIVATE)
4770 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((vj*vj)+1.921812))
4771 : : #endif
4772 : : #if defined(_DERIVATE)
4773 : 0 : vj_Vtnode_GND=(vdei_t_Vtnode_GND-(((rhjei*VT_Vtnode_GND)*(vj+d00_sqrt0))+((rhjei*VT)*(vj_Vtnode_GND+((vj_Vtnode_GND*vj)+(vj*vj_Vtnode_GND))*d10_sqrt0)))*0.5);
4774 : 0 : vj_Vbi_ei=(-((rhjei*VT)*(vj_Vbi_ei+((vj_Vbi_ei*vj)+(vj*vj_Vbi_ei))*d10_sqrt0))*0.5);
4775 : : #endif
4776 : 0 : vj=(vdei_t-(((rhjei*VT)*(vj+d00_sqrt0))*0.5));
4777 : : }
4778 : : #if defined(_DERIVATE)
4779 : 0 : vj_Vtnode_GND=(((vj_Vtnode_GND-VT_Vtnode_GND)*VT-(vj-VT)*VT_Vtnode_GND)/VT/VT);
4780 : 0 : vj_Vbi_ei=(vj_Vbi_ei/VT);
4781 : : #endif
4782 : 0 : vj=((vj-VT)/VT);
4783 : : {
4784 : 0 : double m00_sqrt(d00_sqrt0,((vj*vj)+1.921812))
4785 : : #if defined(_DERIVATE)
4786 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((vj*vj)+1.921812))
4787 : : #endif
4788 : : #if defined(_DERIVATE)
4789 : 0 : vj_Vtnode_GND=((VT_Vtnode_GND*(1.0+((vj+d00_sqrt0)*0.5)))+(VT*(vj_Vtnode_GND+((vj_Vtnode_GND*vj)+(vj*vj_Vtnode_GND))*d10_sqrt0)*0.5));
4790 : 0 : vj_Vbi_ei=(VT*(vj_Vbi_ei+((vj_Vbi_ei*vj)+(vj*vj_Vbi_ei))*d10_sqrt0)*0.5);
4791 : : #endif
4792 : 0 : vj=(VT*(1.0+((vj+d00_sqrt0)*0.5)));
4793 : : }
4794 : : {
4795 : 0 : double m00_logE(d00_logE0,(1.0-(vj/vdei_t)))
4796 : 0 : double m00_exp(d00_exp1,(zei*d00_logE0))
4797 : : #if defined(_DERIVATE)
4798 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(vj/vdei_t)))
4799 : : #define d10_exp1 d00_exp1
4800 : : #endif
4801 : : #if defined(_DERIVATE)
4802 : 0 : vj_z_Vtnode_GND=(((-(zei*(-((vj_Vtnode_GND*vdei_t-vj*vdei_t_Vtnode_GND)/vdei_t/vdei_t))*d10_logE0)*d10_exp1)*ahjei_t)+((1.0-d00_exp1)*ahjei_t_Vtnode_GND));
4803 : 0 : vj_z_Vbi_ei=(-(zei*(-(vj_Vbi_ei/vdei_t))*d10_logE0)*d10_exp1)*ahjei_t;
4804 : : #endif
4805 : 0 : vj_z=((1.0-d00_exp1)*ahjei_t);
4806 : : }
4807 : : {
4808 : 0 : double m00_exp(d00_exp0,vj_z)
4809 : : #if defined(_DERIVATE)
4810 : : #define d10_exp0 d00_exp0
4811 : : #endif
4812 : : #if defined(_DERIVATE)
4813 : 0 : hjei_vbe_Vtnode_GND=((((hjei0_t_Vtnode_GND*(d00_exp0-1.0))+(hjei0_t*vj_z_Vtnode_GND*d10_exp0))*vj_z-(hjei0_t*(d00_exp0-1.0))*vj_z_Vtnode_GND)/vj_z/vj_z);
4814 : 0 : hjei_vbe_Vbi_ei=(((hjei0_t*vj_z_Vbi_ei*d10_exp0)*vj_z-(hjei0_t*(d00_exp0-1.0))*vj_z_Vbi_ei)/vj_z/vj_z);
4815 : : #endif
4816 : 0 : hjei_vbe=((hjei0_t*(d00_exp0-1.0))/vj_z);
4817 : : }
4818 : : }
4819 [ # # ]: 0 : if
4820 : : (vptci_t<1.0e2)
4821 : : {
4822 [ # # ]: 0 : if
4823 : : (cjci0_t>0.0)
4824 : : {
4825 : 0 : Dz_r=(zci/4.0);
4826 : : #if defined(_DERIVATE)
4827 : 0 : Dv_p_Vtnode_GND=(vptci_t_Vtnode_GND-vdci_t_Vtnode_GND);
4828 : : #endif
4829 : 0 : Dv_p=(vptci_t-vdci_t);
4830 : : {
4831 : 0 : double m00_logE(d00_logE0,2.4)
4832 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zci))
4833 : : #if defined(_DERIVATE)
4834 : 0 : DV_f_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
4835 : : #endif
4836 : 0 : DV_f=(vdci_t*(1.0-d00_exp1));
4837 : : }
4838 : : #if defined(_DERIVATE)
4839 : 0 : DC_max_Vtnode_GND=(2.4*cjci0_t_Vtnode_GND);
4840 : : #endif
4841 : 0 : DC_max=(2.4*cjci0_t);
4842 : : {
4843 : 0 : double m00_logE(d00_logE0,(vptci_t/vdci_t))
4844 : 0 : double m00_exp(d00_exp1,((Dz_r-zci)*d00_logE0))
4845 : : #if defined(_DERIVATE)
4846 : 0 : double m10_logE(d10_logE0,d00_logE0,(vptci_t/vdci_t))
4847 : : #define d10_exp1 d00_exp1
4848 : : #endif
4849 : : #if defined(_DERIVATE)
4850 : 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));
4851 : : #endif
4852 : 0 : DC_c=(cjci0_t*d00_exp1);
4853 : : }
4854 : : #if defined(_DERIVATE)
4855 : 0 : Dv_e_Vsi_ci=0.0;
4856 : 0 : Dv_e_Vb_ci=0.0;
4857 : 0 : Dv_e_Vbp_ci=0.0;
4858 : 0 : Dv_e_Vtnode_GND=((DV_f_Vtnode_GND*VT-(DV_f-Vbici)*VT_Vtnode_GND)/VT/VT);
4859 : 0 : Dv_e_Vbi_ci=((-Vbici_Vbi_ci)/VT);
4860 : : #endif
4861 : 0 : Dv_e=((DV_f-Vbici)/VT);
4862 [ # # ]: 0 : if
4863 : : (Dv_e<80.0)
4864 : : {
4865 : : {
4866 : 0 : double m00_exp(d00_exp0,Dv_e)
4867 : : #if defined(_DERIVATE)
4868 : : #define d10_exp0 d00_exp0
4869 : : #endif
4870 : : #if defined(_DERIVATE)
4871 : 0 : De_Vsi_ci=0.0;
4872 : 0 : De_Vb_ci=0.0;
4873 : 0 : De_Vbp_ci=0.0;
4874 : 0 : De_Vtnode_GND=Dv_e_Vtnode_GND*d10_exp0;
4875 : 0 : De_Vbi_ci=Dv_e_Vbi_ci*d10_exp0;
4876 : : #endif
4877 : 0 : De=d00_exp0;
4878 : : }
4879 : : #if defined(_DERIVATE)
4880 : 0 : De_1_Vsi_ci=0.0;
4881 : 0 : De_1_Vb_ci=0.0;
4882 : 0 : De_1_Vbp_ci=0.0;
4883 : 0 : De_1_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
4884 : 0 : De_1_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
4885 : : #endif
4886 : 0 : De_1=(De/(1.0+De));
4887 : : {
4888 : 0 : double m00_logE(d00_logE0,(1.0+De))
4889 : : #if defined(_DERIVATE)
4890 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
4891 : : #endif
4892 : : #if defined(_DERIVATE)
4893 : 0 : Dv_j1_Vsi_ci=0.0;
4894 : 0 : Dv_j1_Vb_ci=0.0;
4895 : 0 : Dv_j1_Vbp_ci=0.0;
4896 : 0 : Dv_j1_Vtnode_GND=(DV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*De_Vtnode_GND*d10_logE0)));
4897 : 0 : Dv_j1_Vbi_ci=(-(VT*De_Vbi_ci*d10_logE0));
4898 : : #endif
4899 : 0 : Dv_j1=(DV_f-(VT*d00_logE0));
4900 : : }
4901 : : }
4902 : : else
4903 : : {
4904 : : #if defined(_DERIVATE)
4905 : 0 : De_1_Vsi_ci=0.0;
4906 : 0 : De_1_Vb_ci=0.0;
4907 : 0 : De_1_Vbp_ci=0.0;
4908 : 0 : De_1_Vtnode_GND=0.0;
4909 : 0 : De_1_Vbi_ci=0.0;
4910 : : #endif
4911 : 0 : De_1=1.0;
4912 : : #if defined(_DERIVATE)
4913 : 0 : Dv_j1_Vsi_ci=0.0;
4914 : 0 : Dv_j1_Vb_ci=0.0;
4915 : 0 : Dv_j1_Vbp_ci=0.0;
4916 : 0 : Dv_j1_Vtnode_GND=0.0;
4917 : 0 : Dv_j1_Vbi_ci=Vbici_Vbi_ci;
4918 : : #endif
4919 : 0 : Dv_j1=Vbici;
4920 : : }
4921 : : #if defined(_DERIVATE)
4922 : 0 : Da_Vtnode_GND=((0.1*Dv_p_Vtnode_GND)+(4.0*VT_Vtnode_GND));
4923 : : #endif
4924 : 0 : Da=((0.1*Dv_p)+(4.0*VT));
4925 : : #if defined(_DERIVATE)
4926 : 0 : Dv_r_Vsi_ci=0.0;
4927 : 0 : Dv_r_Vb_ci=0.0;
4928 : 0 : Dv_r_Vbp_ci=0.0;
4929 : 0 : Dv_r_Vtnode_GND=(((Dv_p_Vtnode_GND+Dv_j1_Vtnode_GND)*Da-(Dv_p+Dv_j1)*Da_Vtnode_GND)/Da/Da);
4930 : 0 : Dv_r_Vbi_ci=(Dv_j1_Vbi_ci/Da);
4931 : : #endif
4932 : 0 : Dv_r=((Dv_p+Dv_j1)/Da);
4933 [ # # ]: 0 : if
4934 : : (Dv_r<80.0)
4935 : : {
4936 : : {
4937 : 0 : double m00_exp(d00_exp0,Dv_r)
4938 : : #if defined(_DERIVATE)
4939 : : #define d10_exp0 d00_exp0
4940 : : #endif
4941 : : #if defined(_DERIVATE)
4942 : 0 : De_Vsi_ci=0.0;
4943 : 0 : De_Vb_ci=0.0;
4944 : 0 : De_Vbp_ci=0.0;
4945 : 0 : De_Vtnode_GND=Dv_r_Vtnode_GND*d10_exp0;
4946 : 0 : De_Vbi_ci=Dv_r_Vbi_ci*d10_exp0;
4947 : : #endif
4948 : 0 : De=d00_exp0;
4949 : : }
4950 : : #if defined(_DERIVATE)
4951 : 0 : De_2_Vsi_ci=0.0;
4952 : 0 : De_2_Vb_ci=0.0;
4953 : 0 : De_2_Vbp_ci=0.0;
4954 : 0 : De_2_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
4955 : 0 : De_2_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
4956 : : #endif
4957 : 0 : De_2=(De/(1.0+De));
4958 : : {
4959 : 0 : double m00_logE(d00_logE0,(1.0+De))
4960 : : #if defined(_DERIVATE)
4961 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
4962 : : #endif
4963 : : #if defined(_DERIVATE)
4964 : 0 : Dv_j2_Vsi_ci=0.0;
4965 : 0 : Dv_j2_Vb_ci=0.0;
4966 : 0 : Dv_j2_Vbp_ci=0.0;
4967 : 0 : Dv_j2_Vtnode_GND=((-Dv_p_Vtnode_GND)+((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
4968 : 0 : Dv_j2_Vbi_ci=(Da*De_Vbi_ci*d10_logE0);
4969 : : #endif
4970 : 0 : Dv_j2=((-Dv_p)+(Da*d00_logE0));
4971 : : }
4972 : : }
4973 : : else
4974 : : {
4975 : : #if defined(_DERIVATE)
4976 : 0 : De_2_Vsi_ci=0.0;
4977 : 0 : De_2_Vb_ci=0.0;
4978 : 0 : De_2_Vbp_ci=0.0;
4979 : 0 : De_2_Vtnode_GND=0.0;
4980 : 0 : De_2_Vbi_ci=0.0;
4981 : : #endif
4982 : 0 : De_2=1.0;
4983 : : #if defined(_DERIVATE)
4984 : 0 : Dv_j2_Vsi_ci=0.0;
4985 : 0 : Dv_j2_Vb_ci=0.0;
4986 : 0 : Dv_j2_Vbp_ci=0.0;
4987 : 0 : Dv_j2_Vtnode_GND=Dv_j1_Vtnode_GND;
4988 : 0 : Dv_j2_Vbi_ci=Dv_j1_Vbi_ci;
4989 : : #endif
4990 : 0 : Dv_j2=Dv_j1;
4991 : : }
4992 : : #if defined(_DERIVATE)
4993 : 0 : Dv_j4_Vsi_ci=0.0;
4994 : 0 : Dv_j4_Vb_ci=0.0;
4995 : 0 : Dv_j4_Vbp_ci=0.0;
4996 : 0 : Dv_j4_Vbi_ci=(Vbici_Vbi_ci-Dv_j1_Vbi_ci);
4997 : 0 : Dv_j4_Vtnode_GND=(-Dv_j1_Vtnode_GND);
4998 : : #endif
4999 : 0 : Dv_j4=(Vbici-Dv_j1);
5000 : : {
5001 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j1/vdci_t)))
5002 : : #if defined(_DERIVATE)
5003 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j1/vdci_t)))
5004 : : #endif
5005 : : #if defined(_DERIVATE)
5006 : 0 : DCln1_Vsi_ci=0.0;
5007 : 0 : DCln1_Vb_ci=0.0;
5008 : 0 : DCln1_Vbp_ci=0.0;
5009 : 0 : DCln1_Vtnode_GND=(-((Dv_j1_Vtnode_GND*vdci_t-Dv_j1*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
5010 : 0 : DCln1_Vbi_ci=(-(Dv_j1_Vbi_ci/vdci_t))*d10_logE0;
5011 : : #endif
5012 : 0 : DCln1=d00_logE0;
5013 : : }
5014 : : {
5015 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j2/vdci_t)))
5016 : : #if defined(_DERIVATE)
5017 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j2/vdci_t)))
5018 : : #endif
5019 : : #if defined(_DERIVATE)
5020 : 0 : DCln2_Vsi_ci=0.0;
5021 : 0 : DCln2_Vb_ci=0.0;
5022 : 0 : DCln2_Vbp_ci=0.0;
5023 : 0 : DCln2_Vtnode_GND=(-((Dv_j2_Vtnode_GND*vdci_t-Dv_j2*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
5024 : 0 : DCln2_Vbi_ci=(-(Dv_j2_Vbi_ci/vdci_t))*d10_logE0;
5025 : : #endif
5026 : 0 : DCln2=d00_logE0;
5027 : : }
5028 : 0 : Dz1=(1.0-zci);
5029 : 0 : Dzr1=(1.0-Dz_r);
5030 : : {
5031 : 0 : double m00_exp(d00_exp0,(DCln2*(-zci)))
5032 : : #if defined(_DERIVATE)
5033 : : #define d10_exp0 d00_exp0
5034 : : #endif
5035 : : #if defined(_DERIVATE)
5036 : 0 : DC_j1_Vsi_ci=0.0;
5037 : 0 : DC_j1_Vb_ci=0.0;
5038 : 0 : DC_j1_Vbp_ci=0.0;
5039 : 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));
5040 : 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));
5041 : : #endif
5042 : 0 : DC_j1=(((cjci0_t*d00_exp0)*De_1)*De_2);
5043 : : }
5044 : : {
5045 : 0 : double m00_exp(d00_exp0,(DCln1*(-Dz_r)))
5046 : : #if defined(_DERIVATE)
5047 : : #define d10_exp0 d00_exp0
5048 : : #endif
5049 : : #if defined(_DERIVATE)
5050 : 0 : DC_j2_Vsi_ci=0.0;
5051 : 0 : DC_j2_Vb_ci=0.0;
5052 : 0 : DC_j2_Vbp_ci=0.0;
5053 : 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)));
5054 : 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)));
5055 : : #endif
5056 : 0 : DC_j2=((DC_c*d00_exp0)*(1.0-De_2));
5057 : : }
5058 : : #if defined(_DERIVATE)
5059 : 0 : DC_j3_Vsi_ci=0.0;
5060 : 0 : DC_j3_Vb_ci=0.0;
5061 : 0 : DC_j3_Vbp_ci=0.0;
5062 : 0 : DC_j3_Vtnode_GND=((DC_max_Vtnode_GND*(1.0-De_1))+(DC_max*(-De_1_Vtnode_GND)));
5063 : 0 : DC_j3_Vbi_ci=(DC_max*(-De_1_Vbi_ci));
5064 : : #endif
5065 : 0 : DC_j3=(DC_max*(1.0-De_1));
5066 : : #if defined(_DERIVATE)
5067 : 0 : Cjci_Vbi_ei=0.0;
5068 : 0 : Cjci_Vtnode_GND=((DC_j1_Vtnode_GND+DC_j2_Vtnode_GND)+DC_j3_Vtnode_GND);
5069 : 0 : Cjci_Vbi_ci=((DC_j1_Vbi_ci+DC_j2_Vbi_ci)+DC_j3_Vbi_ci);
5070 : : #endif
5071 : 0 : Cjci=((DC_j1+DC_j2)+DC_j3);
5072 : : {
5073 : 0 : double m00_exp(d00_exp0,(DCln2*Dz1))
5074 : : #if defined(_DERIVATE)
5075 : : #define d10_exp0 d00_exp0
5076 : : #endif
5077 : : #if defined(_DERIVATE)
5078 : 0 : DQ_j1_Vsi_ci=0.0;
5079 : 0 : DQ_j1_Vb_ci=0.0;
5080 : 0 : DQ_j1_Vbp_ci=0.0;
5081 : 0 : DQ_j1_Vtnode_GND=(((cjci0_t_Vtnode_GND*(1.0-d00_exp0))+(cjci0_t*(-DCln2_Vtnode_GND*Dz1*d10_exp0)))/Dz1);
5082 : 0 : DQ_j1_Vbi_ci=((cjci0_t*(-DCln2_Vbi_ci*Dz1*d10_exp0))/Dz1);
5083 : : #endif
5084 : 0 : DQ_j1=((cjci0_t*(1.0-d00_exp0))/Dz1);
5085 : : }
5086 : : {
5087 : 0 : double m00_exp(d00_exp0,(DCln1*Dzr1))
5088 : : #if defined(_DERIVATE)
5089 : : #define d10_exp0 d00_exp0
5090 : : #endif
5091 : : #if defined(_DERIVATE)
5092 : 0 : DQ_j2_Vsi_ci=0.0;
5093 : 0 : DQ_j2_Vb_ci=0.0;
5094 : 0 : DQ_j2_Vbp_ci=0.0;
5095 : 0 : DQ_j2_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln1_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
5096 : 0 : DQ_j2_Vbi_ci=((DC_c*(-DCln1_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
5097 : : #endif
5098 : 0 : DQ_j2=((DC_c*(1.0-d00_exp0))/Dzr1);
5099 : : }
5100 : : {
5101 : 0 : double m00_exp(d00_exp0,(DCln2*Dzr1))
5102 : : #if defined(_DERIVATE)
5103 : : #define d10_exp0 d00_exp0
5104 : : #endif
5105 : : #if defined(_DERIVATE)
5106 : 0 : DQ_j3_Vsi_ci=0.0;
5107 : 0 : DQ_j3_Vb_ci=0.0;
5108 : 0 : DQ_j3_Vbp_ci=0.0;
5109 : 0 : DQ_j3_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln2_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
5110 : 0 : DQ_j3_Vbi_ci=((DC_c*(-DCln2_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
5111 : : #endif
5112 : 0 : DQ_j3=((DC_c*(1.0-d00_exp0))/Dzr1);
5113 : : }
5114 : : #if defined(_DERIVATE)
5115 : 0 : Qjci_Vbi_ei=0.0;
5116 : 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)));
5117 : 0 : Qjci_Vbi_ci=(((DQ_j1_Vbi_ci+DQ_j2_Vbi_ci)-DQ_j3_Vbi_ci)*vdci_t+(DC_max*Dv_j4_Vbi_ci));
5118 : : #endif
5119 : 0 : Qjci=((((DQ_j1+DQ_j2)-DQ_j3)*vdci_t)+(DC_max*Dv_j4));
5120 : : }
5121 : : else
5122 : : {
5123 : : #if defined(_DERIVATE)
5124 : 0 : Cjci_Vbi_ei=0.0;
5125 : 0 : Cjci_Vtnode_GND=0.0;
5126 : 0 : Cjci_Vbi_ci=0.0;
5127 : : #endif
5128 : 0 : Cjci=0.0;
5129 : : #if defined(_DERIVATE)
5130 : 0 : Qjci_Vbi_ei=0.0;
5131 : 0 : Qjci_Vtnode_GND=0.0;
5132 : 0 : Qjci_Vbi_ci=0.0;
5133 : : #endif
5134 : 0 : Qjci=0.0;
5135 : : }
5136 : : }
5137 : : else
5138 : : {
5139 [ # # ]: 0 : if
5140 : : (cjci0_t>0.0)
5141 : : {
5142 : : {
5143 : 0 : double m00_logE(d00_logE0,2.4)
5144 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zci))
5145 : : #if defined(_DERIVATE)
5146 : 0 : DFV_f_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
5147 : : #endif
5148 : 0 : DFV_f=(vdci_t*(1.0-d00_exp1));
5149 : : }
5150 : : #if defined(_DERIVATE)
5151 : 0 : DFv_e_Vsi_ci=0.0;
5152 : 0 : DFv_e_Vb_ci=0.0;
5153 : 0 : DFv_e_Vbp_ci=0.0;
5154 : 0 : DFv_e_Vbp_ei=0.0;
5155 : 0 : DFv_e_Vbi_ci=((-Vbici_Vbi_ci)/VT);
5156 : 0 : DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-Vbici)*VT_Vtnode_GND)/VT/VT);
5157 : 0 : DFv_e_Vbi_ei=0.0;
5158 : : #endif
5159 : 0 : DFv_e=((DFV_f-Vbici)/VT);
5160 : : {
5161 : 0 : double m00_sqrt(d00_sqrt0,((DFv_e*DFv_e)+1.921812))
5162 : : #if defined(_DERIVATE)
5163 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((DFv_e*DFv_e)+1.921812))
5164 : : #endif
5165 : : #if defined(_DERIVATE)
5166 : 0 : DFs_q_Vsi_ci=0.0;
5167 : 0 : DFs_q_Vb_ci=0.0;
5168 : 0 : DFs_q_Vbp_ci=0.0;
5169 : 0 : DFs_q_Vbp_ei=0.0;
5170 : 0 : DFs_q_Vbi_ci=((DFv_e_Vbi_ci*DFv_e)+(DFv_e*DFv_e_Vbi_ci))*d10_sqrt0;
5171 : 0 : DFs_q_Vtnode_GND=((DFv_e_Vtnode_GND*DFv_e)+(DFv_e*DFv_e_Vtnode_GND))*d10_sqrt0;
5172 : 0 : DFs_q_Vbi_ei=((DFv_e_Vbi_ei*DFv_e)+(DFv_e*DFv_e_Vbi_ei))*d10_sqrt0;
5173 : : #endif
5174 : 0 : DFs_q=d00_sqrt0;
5175 : : }
5176 : : #if defined(_DERIVATE)
5177 : 0 : DFs_q2_Vsi_ci=0.0;
5178 : 0 : DFs_q2_Vb_ci=0.0;
5179 : 0 : DFs_q2_Vbp_ci=0.0;
5180 : 0 : DFs_q2_Vbp_ei=0.0;
5181 : 0 : DFs_q2_Vbi_ci=(DFv_e_Vbi_ci+DFs_q_Vbi_ci)*0.5;
5182 : 0 : DFs_q2_Vtnode_GND=(DFv_e_Vtnode_GND+DFs_q_Vtnode_GND)*0.5;
5183 : 0 : DFs_q2_Vbi_ei=(DFv_e_Vbi_ei+DFs_q_Vbi_ei)*0.5;
5184 : : #endif
5185 : 0 : DFs_q2=((DFv_e+DFs_q)*0.5);
5186 : : #if defined(_DERIVATE)
5187 : 0 : DFv_j_Vsi_ci=0.0;
5188 : 0 : DFv_j_Vb_ci=0.0;
5189 : 0 : DFv_j_Vbp_ci=0.0;
5190 : 0 : DFv_j_Vbp_ei=0.0;
5191 : 0 : DFv_j_Vbi_ci=(-(VT*DFs_q2_Vbi_ci));
5192 : 0 : DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*DFs_q2)+(VT*DFs_q2_Vtnode_GND)));
5193 : 0 : DFv_j_Vbi_ei=(-(VT*DFs_q2_Vbi_ei));
5194 : : #endif
5195 : 0 : DFv_j=(DFV_f-(VT*DFs_q2));
5196 : : #if defined(_DERIVATE)
5197 : 0 : DFdvj_dv_Vsi_ci=0.0;
5198 : 0 : DFdvj_dv_Vb_ci=0.0;
5199 : 0 : DFdvj_dv_Vbp_ci=0.0;
5200 : 0 : DFdvj_dv_Vbp_ei=0.0;
5201 : 0 : DFdvj_dv_Vbi_ci=((DFs_q2_Vbi_ci*DFs_q-DFs_q2*DFs_q_Vbi_ci)/DFs_q/DFs_q);
5202 : 0 : DFdvj_dv_Vtnode_GND=((DFs_q2_Vtnode_GND*DFs_q-DFs_q2*DFs_q_Vtnode_GND)/DFs_q/DFs_q);
5203 : 0 : DFdvj_dv_Vbi_ei=((DFs_q2_Vbi_ei*DFs_q-DFs_q2*DFs_q_Vbi_ei)/DFs_q/DFs_q);
5204 : : #endif
5205 : 0 : DFdvj_dv=(DFs_q2/DFs_q);
5206 : : {
5207 : 0 : double m00_logE(d00_logE0,(1.0-(DFv_j/vdci_t)))
5208 : : #if defined(_DERIVATE)
5209 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdci_t)))
5210 : : #endif
5211 : : #if defined(_DERIVATE)
5212 : 0 : DFb_Vsi_ci=0.0;
5213 : 0 : DFb_Vb_ci=0.0;
5214 : 0 : DFb_Vbp_ci=0.0;
5215 : 0 : DFb_Vbp_ei=0.0;
5216 : 0 : DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdci_t))*d10_logE0;
5217 : 0 : DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdci_t-DFv_j*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
5218 : 0 : DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdci_t))*d10_logE0;
5219 : : #endif
5220 : 0 : DFb=d00_logE0;
5221 : : }
5222 : : {
5223 : 0 : double m00_exp(d00_exp0,((-zci)*DFb))
5224 : : #if defined(_DERIVATE)
5225 : : #define d10_exp0 d00_exp0
5226 : : #endif
5227 : : #if defined(_DERIVATE)
5228 : 0 : DFC_j1_Vsi_ci=0.0;
5229 : 0 : DFC_j1_Vb_ci=0.0;
5230 : 0 : DFC_j1_Vbp_ci=0.0;
5231 : 0 : DFC_j1_Vbp_ei=0.0;
5232 : 0 : DFC_j1_Vbi_ci=(((cjci0_t*((-zci)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjci0_t*d00_exp0)*DFdvj_dv_Vbi_ci));
5233 : 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));
5234 : 0 : DFC_j1_Vbi_ei=(((cjci0_t*((-zci)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjci0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
5235 : : #endif
5236 : 0 : DFC_j1=((cjci0_t*d00_exp0)*DFdvj_dv);
5237 : : }
5238 : : #if defined(_DERIVATE)
5239 : 0 : Cjci_Vbi_ei=(DFC_j1_Vbi_ei+((2.4*cjci0_t)*(-DFdvj_dv_Vbi_ei)));
5240 : 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))));
5241 : 0 : Cjci_Vbi_ci=(DFC_j1_Vbi_ci+((2.4*cjci0_t)*(-DFdvj_dv_Vbi_ci)));
5242 : : #endif
5243 : 0 : Cjci=(DFC_j1+((2.4*cjci0_t)*(1.0-DFdvj_dv)));
5244 : : {
5245 : 0 : double m00_exp(d00_exp0,(DFb*(1.0-zci)))
5246 : : #if defined(_DERIVATE)
5247 : : #define d10_exp0 d00_exp0
5248 : : #endif
5249 : : #if defined(_DERIVATE)
5250 : 0 : DFQ_j_Vsi_ci=0.0;
5251 : 0 : DFQ_j_Vb_ci=0.0;
5252 : 0 : DFQ_j_Vbp_ci=0.0;
5253 : 0 : DFQ_j_Vbp_ei=0.0;
5254 : 0 : DFQ_j_Vbi_ci=(((cjci0_t*vdci_t)*(-DFb_Vbi_ci*(1.0-zci)*d10_exp0))/(1.0-zci));
5255 : 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));
5256 : 0 : DFQ_j_Vbi_ei=(((cjci0_t*vdci_t)*(-DFb_Vbi_ei*(1.0-zci)*d10_exp0))/(1.0-zci));
5257 : : #endif
5258 : 0 : DFQ_j=(((cjci0_t*vdci_t)*(1.0-d00_exp0))/(1.0-zci));
5259 : : }
5260 : : #if defined(_DERIVATE)
5261 : 0 : Qjci_Vbi_ei=(DFQ_j_Vbi_ei+((2.4*cjci0_t)*(-DFv_j_Vbi_ei)));
5262 : 0 : Qjci_Vtnode_GND=(DFQ_j_Vtnode_GND+(((2.4*cjci0_t_Vtnode_GND)*(Vbici-DFv_j))+((2.4*cjci0_t)*(-DFv_j_Vtnode_GND))));
5263 : 0 : Qjci_Vbi_ci=(DFQ_j_Vbi_ci+((2.4*cjci0_t)*(Vbici_Vbi_ci-DFv_j_Vbi_ci)));
5264 : : #endif
5265 : 0 : Qjci=(DFQ_j+((2.4*cjci0_t)*(Vbici-DFv_j)));
5266 : : }
5267 : : else
5268 : : {
5269 : : #if defined(_DERIVATE)
5270 : 0 : Cjci_Vbi_ei=0.0;
5271 : 0 : Cjci_Vtnode_GND=0.0;
5272 : 0 : Cjci_Vbi_ci=0.0;
5273 : : #endif
5274 : 0 : Cjci=0.0;
5275 : : #if defined(_DERIVATE)
5276 : 0 : Qjci_Vbi_ei=0.0;
5277 : 0 : Qjci_Vtnode_GND=0.0;
5278 : 0 : Qjci_Vbi_ci=0.0;
5279 : : #endif
5280 : 0 : Qjci=0.0;
5281 : : }
5282 : : }
5283 : 0 : a_bpt=0.05;
5284 : : #if defined(_DERIVATE)
5285 : 0 : Q_0_Vtnode_GND=((qp0_t_Vtnode_GND+((hjei_vbe_Vtnode_GND*Qjei)+(hjei_vbe*Qjei_Vtnode_GND)))+(hjci*Qjci_Vtnode_GND));
5286 : 0 : Q_0_Vbi_ei=(((hjei_vbe_Vbi_ei*Qjei)+(hjei_vbe*Qjei_Vbi_ei))+(hjci*Qjci_Vbi_ei));
5287 : 0 : Q_0_Vbi_ci=(hjci*Qjci_Vbi_ci);
5288 : : #endif
5289 : 0 : Q_0=((qp0_t+(hjei_vbe*Qjei))+(hjci*Qjci));
5290 : : #if defined(_DERIVATE)
5291 : 0 : Q_bpt_Vtnode_GND=(a_bpt*qp0_t_Vtnode_GND);
5292 : : #endif
5293 : 0 : Q_bpt=(a_bpt*qp0_t);
5294 : : #if defined(_DERIVATE)
5295 : 0 : b_q_Vtnode_GND=((Q_0_Vtnode_GND*Q_bpt-Q_0*Q_bpt_Vtnode_GND)/Q_bpt/Q_bpt);
5296 : 0 : b_q_Vbi_ei=(Q_0_Vbi_ei/Q_bpt);
5297 : 0 : b_q_Vbi_ci=(Q_0_Vbi_ci/Q_bpt);
5298 : : #endif
5299 : 0 : b_q=((Q_0/Q_bpt)-1);
5300 : : {
5301 : 0 : double m00_sqrt(d00_sqrt0,((b_q*b_q)+1.921812))
5302 : : #if defined(_DERIVATE)
5303 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((b_q*b_q)+1.921812))
5304 : : #endif
5305 : : #if defined(_DERIVATE)
5306 : 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)));
5307 : 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));
5308 : 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));
5309 : : #endif
5310 : 0 : Q_0=(Q_bpt*(1+((b_q+d00_sqrt0)/2)));
5311 : : }
5312 [ # # ]: 0 : if
5313 : : (cjci0_t>0.0)
5314 : : {
5315 : : double cV_f;
5316 : : double cv_e;
5317 : : double cs_q;
5318 : : double cs_q2;
5319 : : double cv_j;
5320 : : double cdvj_dv;
5321 : : #if defined(_DERIVATE)
5322 : : double cV_f_Vtnode_GND;
5323 : : #endif
5324 : : #if defined(_DERIVATE)
5325 : : double cv_e_Vtnode_GND;
5326 : : #endif
5327 : : #if defined(_DERIVATE)
5328 : : double cv_e_Vbi_ci;
5329 : : #endif
5330 : : #if defined(_DERIVATE)
5331 : : double cs_q_Vtnode_GND;
5332 : : #endif
5333 : : #if defined(_DERIVATE)
5334 : : double cs_q_Vbi_ci;
5335 : : #endif
5336 : : #if defined(_DERIVATE)
5337 : : double cs_q2_Vtnode_GND;
5338 : : #endif
5339 : : #if defined(_DERIVATE)
5340 : : double cs_q2_Vbi_ci;
5341 : : #endif
5342 : : #if defined(_DERIVATE)
5343 : : double cv_j_Vtnode_GND;
5344 : : #endif
5345 : : #if defined(_DERIVATE)
5346 : : double cv_j_Vbi_ci;
5347 : : #endif
5348 : : #if defined(_DERIVATE)
5349 : : double cdvj_dv_Vtnode_GND;
5350 : : #endif
5351 : : #if defined(_DERIVATE)
5352 : : double cdvj_dv_Vbi_ci;
5353 : : #endif
5354 : : {
5355 : 0 : double m00_logE(d00_logE0,2.4)
5356 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zci))
5357 : : #if defined(_DERIVATE)
5358 : 0 : cV_f_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
5359 : : #endif
5360 : 0 : cV_f=(vdci_t*(1.0-d00_exp1));
5361 : : }
5362 : : #if defined(_DERIVATE)
5363 : 0 : cv_e_Vtnode_GND=((cV_f_Vtnode_GND*VT-(cV_f-Vbici)*VT_Vtnode_GND)/VT/VT);
5364 : 0 : cv_e_Vbi_ci=((-Vbici_Vbi_ci)/VT);
5365 : : #endif
5366 : 0 : cv_e=((cV_f-Vbici)/VT);
5367 : : {
5368 : 0 : double m00_sqrt(d00_sqrt0,((cv_e*cv_e)+1.921812))
5369 : : #if defined(_DERIVATE)
5370 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((cv_e*cv_e)+1.921812))
5371 : : #endif
5372 : : #if defined(_DERIVATE)
5373 : 0 : cs_q_Vtnode_GND=((cv_e_Vtnode_GND*cv_e)+(cv_e*cv_e_Vtnode_GND))*d10_sqrt0;
5374 : 0 : cs_q_Vbi_ci=((cv_e_Vbi_ci*cv_e)+(cv_e*cv_e_Vbi_ci))*d10_sqrt0;
5375 : : #endif
5376 : 0 : cs_q=d00_sqrt0;
5377 : : }
5378 : : #if defined(_DERIVATE)
5379 : 0 : cs_q2_Vtnode_GND=(cv_e_Vtnode_GND+cs_q_Vtnode_GND)*0.5;
5380 : 0 : cs_q2_Vbi_ci=(cv_e_Vbi_ci+cs_q_Vbi_ci)*0.5;
5381 : : #endif
5382 : 0 : cs_q2=((cv_e+cs_q)*0.5);
5383 : : #if defined(_DERIVATE)
5384 : 0 : cv_j_Vtnode_GND=(cV_f_Vtnode_GND-((VT_Vtnode_GND*cs_q2)+(VT*cs_q2_Vtnode_GND)));
5385 : 0 : cv_j_Vbi_ci=(-(VT*cs_q2_Vbi_ci));
5386 : : #endif
5387 : 0 : cv_j=(cV_f-(VT*cs_q2));
5388 : : #if defined(_DERIVATE)
5389 : 0 : cdvj_dv_Vtnode_GND=((cs_q2_Vtnode_GND*cs_q-cs_q2*cs_q_Vtnode_GND)/cs_q/cs_q);
5390 : 0 : cdvj_dv_Vbi_ci=((cs_q2_Vbi_ci*cs_q-cs_q2*cs_q_Vbi_ci)/cs_q/cs_q);
5391 : : #endif
5392 : 0 : cdvj_dv=(cs_q2/cs_q);
5393 : : {
5394 : 0 : double m00_logE(d00_logE0,(1.0-(cv_j/vdci_t)))
5395 : 0 : double m00_exp(d00_exp1,((-zci)*d00_logE0))
5396 : : #if defined(_DERIVATE)
5397 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(cv_j/vdci_t)))
5398 : : #define d10_exp1 d00_exp1
5399 : : #endif
5400 : : #if defined(_DERIVATE)
5401 : 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))));
5402 : 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)));
5403 : : #endif
5404 : 0 : Cjcit=(((cjci0_t*d00_exp1)*cdvj_dv)+((2.4*cjci0_t)*(1.0-cdvj_dv)));
5405 : : }
5406 : : }
5407 : : else
5408 : : {
5409 : : #if defined(_DERIVATE)
5410 : 0 : Cjcit_Vtnode_GND=0.0;
5411 : 0 : Cjcit_Vbi_ci=0.0;
5412 : : #endif
5413 : 0 : Cjcit=0.0;
5414 : : }
5415 [ # # ]: 0 : if
5416 : : (Cjcit>0.0)
5417 : : {
5418 : : #if defined(_DERIVATE)
5419 : 0 : cc_Vtnode_GND=((cjci0_t_Vtnode_GND*Cjcit-cjci0_t*Cjcit_Vtnode_GND)/Cjcit/Cjcit);
5420 : 0 : cc_Vbi_ci=(-cjci0_t*Cjcit_Vbi_ci/Cjcit/Cjcit);
5421 : : #endif
5422 : 0 : cc=(cjci0_t/Cjcit);
5423 : : }
5424 : : else
5425 : : {
5426 : : #if defined(_DERIVATE)
5427 : 0 : cc_Vtnode_GND=0.0;
5428 : 0 : cc_Vbi_ci=0.0;
5429 : : #endif
5430 : 0 : cc=1.0;
5431 : : }
5432 : : #if defined(_DERIVATE)
5433 : 0 : T_f0_Vtnode_GND=((t0_t_Vtnode_GND+(dt0h*cc_Vtnode_GND))+(tbvl*(-1*cc_Vtnode_GND/cc/cc)));
5434 : 0 : T_f0_Vbi_ci=((dt0h*cc_Vbi_ci)+(tbvl*(-1*cc_Vbi_ci/cc/cc)));
5435 : : #endif
5436 : 0 : T_f0=((t0_t+(dt0h*(cc-1.0)))+(tbvl*((1/cc)-1.0)));
5437 : : #if defined(_DERIVATE)
5438 : 0 : vc_Vci_ei=Vciei_Vci_ei;
5439 : 0 : vc_Vtnode_GND=(-vces_t_Vtnode_GND);
5440 : : #endif
5441 : 0 : vc=(Vciei-vces_t);
5442 : : {
5443 : 0 : Ovpt=(1.0/vpt);
5444 : : #if defined(_DERIVATE)
5445 : 0 : a_Vbi_ei=0.0;
5446 : 0 : a_Vbi_ci=0.0;
5447 : 0 : a_Vci_ei=(vc_Vci_ei/VT);
5448 : 0 : a_Vtnode_GND=((vc_Vtnode_GND*VT-vc*VT_Vtnode_GND)/VT/VT);
5449 : : #endif
5450 : 0 : a=(vc/VT);
5451 : : #if defined(_DERIVATE)
5452 : 0 : d1_Vci_ei=a_Vci_ei;
5453 : 0 : d1_Vtnode_GND=a_Vtnode_GND;
5454 : : #endif
5455 : 0 : d1=(a-1);
5456 : : {
5457 : 0 : double m00_sqrt(d00_sqrt0,((d1*d1)+1.921812))
5458 : : #if defined(_DERIVATE)
5459 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((d1*d1)+1.921812))
5460 : : #endif
5461 : : #if defined(_DERIVATE)
5462 : 0 : vceff_Vci_ei=((d1_Vci_ei+((d1_Vci_ei*d1)+(d1*d1_Vci_ei))*d10_sqrt0)/2)*VT;
5463 : 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));
5464 : : #endif
5465 : 0 : vceff=((1.0+((d1+d00_sqrt0)/2))*VT);
5466 : : }
5467 : : #if defined(_DERIVATE)
5468 : 0 : a1_Vci_ei=(vceff_Vci_ei/vlim_t);
5469 : 0 : a1_Vtnode_GND=((vceff_Vtnode_GND*vlim_t-vceff*vlim_t_Vtnode_GND)/vlim_t/vlim_t);
5470 : : #endif
5471 : 0 : a1=(vceff/vlim_t);
5472 : : #if defined(_DERIVATE)
5473 : 0 : a11_Vci_ei=vceff_Vci_ei*Orci0_t;
5474 : 0 : a11_Vtnode_GND=((vceff_Vtnode_GND*Orci0_t)+(vceff*Orci0_t_Vtnode_GND));
5475 : : #endif
5476 : 0 : a11=(vceff*Orci0_t);
5477 : 0 : Odelck=(1/delck);
5478 : : {
5479 : 0 : double m00_logE(d00_logE0,a1)
5480 : 0 : double m00_exp(d00_exp1,(delck*d00_logE0))
5481 : 0 : double m00_logE(d00_logE2,(1+d00_exp1))
5482 : 0 : double m00_exp(d00_exp3,(Odelck*d00_logE2))
5483 : : #if defined(_DERIVATE)
5484 : 0 : double m10_logE(d10_logE0,d00_logE0,a1)
5485 : : #define d10_exp1 d00_exp1
5486 : 0 : double m10_logE(d10_logE2,d00_logE2,(1+d00_exp1))
5487 : : #define d10_exp3 d00_exp3
5488 : : #endif
5489 : : #if defined(_DERIVATE)
5490 : 0 : ick1_Vci_ei=(Odelck*(delck*a1_Vci_ei*d10_logE0)*d10_exp1*d10_logE2)*d10_exp3;
5491 : 0 : ick1_Vtnode_GND=(Odelck*(delck*a1_Vtnode_GND*d10_logE0)*d10_exp1*d10_logE2)*d10_exp3;
5492 : : #endif
5493 : 0 : ick1=d00_exp3;
5494 : : }
5495 : : #if defined(_DERIVATE)
5496 : 0 : ick2_Vci_ei=((a11_Vci_ei*ick1-a11*ick1_Vci_ei)/ick1/ick1);
5497 : 0 : ick2_Vtnode_GND=((a11_Vtnode_GND*ick1-a11*ick1_Vtnode_GND)/ick1/ick1);
5498 : : #endif
5499 : 0 : ick2=(a11/ick1);
5500 : : #if defined(_DERIVATE)
5501 : 0 : ICKa_Vci_ei=vceff_Vci_ei*Ovpt;
5502 : 0 : ICKa_Vtnode_GND=(vceff_Vtnode_GND-vlim_t_Vtnode_GND)*Ovpt;
5503 : : #endif
5504 : 0 : ICKa=((vceff-vlim_t)*Ovpt);
5505 : : {
5506 : 0 : double m00_sqrt(d00_sqrt0,((ICKa*ICKa)+1.0e-3))
5507 : : #if defined(_DERIVATE)
5508 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((ICKa*ICKa)+1.0e-3))
5509 : : #endif
5510 : : #if defined(_DERIVATE)
5511 : 0 : ick_Vci_ei=((ick2_Vci_ei*(1.0+(0.5*(ICKa+d00_sqrt0))))+(ick2*(0.5*(ICKa_Vci_ei+((ICKa_Vci_ei*ICKa)+(ICKa*ICKa_Vci_ei))*d10_sqrt0))));
5512 : 0 : ick_Vtnode_GND=((ick2_Vtnode_GND*(1.0+(0.5*(ICKa+d00_sqrt0))))+(ick2*(0.5*(ICKa_Vtnode_GND+((ICKa_Vtnode_GND*ICKa)+(ICKa*ICKa_Vtnode_GND))*d10_sqrt0))));
5513 : : #endif
5514 : 0 : ick=(ick2*(1.0+(0.5*(ICKa+d00_sqrt0))));
5515 : : }
5516 : : }
5517 : : #if defined(_DERIVATE)
5518 : 0 : Q_p_Vtnode_GND=Q_0_Vtnode_GND;
5519 : 0 : Q_p_Vbi_ei=Q_0_Vbi_ei;
5520 : 0 : Q_p_Vbi_ci=Q_0_Vbi_ci;
5521 : : #endif
5522 : 0 : Q_p=Q_0;
5523 [ # # ][ # # ]: 0 : if
5524 : : ((T_f0>0.0)||(Tr>0.0))
5525 : : {
5526 : : #if defined(_DERIVATE)
5527 : 0 : A_Vtnode_GND=(0.5*Q_0_Vtnode_GND);
5528 : 0 : A_Vbi_ei=(0.5*Q_0_Vbi_ei);
5529 : 0 : A_Vbi_ci=(0.5*Q_0_Vbi_ci);
5530 : : #endif
5531 : 0 : A=(0.5*Q_0);
5532 : : {
5533 : 0 : double m00_sqrt(d00_sqrt0,(((A*A)+(T_f0*i_0f))+(Tr*i_0r)))
5534 : : #if defined(_DERIVATE)
5535 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,(((A*A)+(T_f0*i_0f))+(Tr*i_0r)))
5536 : : #endif
5537 : : #if defined(_DERIVATE)
5538 : 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);
5539 : 0 : Q_p_Vbi_ei=(A_Vbi_ei+(((A_Vbi_ei*A)+(A*A_Vbi_ei))+(T_f0*i_0f_Vbi_ei))*d10_sqrt0);
5540 : 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);
5541 : : #endif
5542 : 0 : Q_p=(A+d00_sqrt0);
5543 : : }
5544 : : }
5545 : : #if defined(_DERIVATE)
5546 : 0 : I_Tf1_Vci_ei=0.0;
5547 : 0 : I_Tf1_Vtnode_GND=((i_0f_Vtnode_GND*Q_p-i_0f*Q_p_Vtnode_GND)/Q_p/Q_p);
5548 : 0 : I_Tf1_Vbi_ei=((i_0f_Vbi_ei*Q_p-i_0f*Q_p_Vbi_ei)/Q_p/Q_p);
5549 : 0 : I_Tf1_Vbi_ci=(-i_0f*Q_p_Vbi_ci/Q_p/Q_p);
5550 : : #endif
5551 : 0 : I_Tf1=(i_0f/Q_p);
5552 : : #if defined(_DERIVATE)
5553 : 0 : a_h_Vci_ei=0.0;
5554 : 0 : a_h_Vtnode_GND=(Oich*I_Tf1_Vtnode_GND);
5555 : 0 : a_h_Vbi_ei=(Oich*I_Tf1_Vbi_ei);
5556 : 0 : a_h_Vbi_ci=(Oich*I_Tf1_Vbi_ci);
5557 : : #endif
5558 : 0 : a_h=(Oich*I_Tf1);
5559 : : #if defined(_DERIVATE)
5560 : 0 : itf_Vci_ei=0.0;
5561 : 0 : itf_Vtnode_GND=((I_Tf1_Vtnode_GND*(1.0+a_h))+(I_Tf1*a_h_Vtnode_GND));
5562 : 0 : itf_Vbi_ei=((I_Tf1_Vbi_ei*(1.0+a_h))+(I_Tf1*a_h_Vbi_ei));
5563 : 0 : itf_Vbi_ci=((I_Tf1_Vbi_ci*(1.0+a_h))+(I_Tf1*a_h_Vbi_ci));
5564 : : #endif
5565 : 0 : itf=(I_Tf1*(1.0+a_h));
5566 : : #if defined(_DERIVATE)
5567 : 0 : itr_Vci_ei=0.0;
5568 : 0 : itr_Vtnode_GND=((i_0r_Vtnode_GND*Q_p-i_0r*Q_p_Vtnode_GND)/Q_p/Q_p);
5569 : 0 : itr_Vbi_ci=((i_0r_Vbi_ci*Q_p-i_0r*Q_p_Vbi_ci)/Q_p/Q_p);
5570 : 0 : itr_Vbi_ei=(-i_0r*Q_p_Vbi_ei/Q_p/Q_p);
5571 : : #endif
5572 : 0 : itr=(i_0r/Q_p);
5573 : : #if defined(_DERIVATE)
5574 : 0 : Q_bf_Vtnode_GND=0.0;
5575 : 0 : Q_bf_Vbi_ei=0.0;
5576 : 0 : Q_bf_Vbi_ci=0.0;
5577 : 0 : Q_bf_Vci_ei=0.0;
5578 : : #endif
5579 : 0 : Q_bf=0.0;
5580 : : #if defined(_DERIVATE)
5581 : 0 : Tf_Vbi_ei=0.0;
5582 : 0 : Tf_Vci_ei=0.0;
5583 : 0 : Tf_Vtnode_GND=T_f0_Vtnode_GND;
5584 : 0 : Tf_Vbi_ci=T_f0_Vbi_ci;
5585 : : #endif
5586 : 0 : Tf=T_f0;
5587 : : #if defined(_DERIVATE)
5588 : 0 : Qf_Vci_ei=0.0;
5589 : 0 : Qf_Vtnode_GND=((T_f0_Vtnode_GND*itf)+(T_f0*itf_Vtnode_GND));
5590 : 0 : Qf_Vbi_ci=((T_f0_Vbi_ci*itf)+(T_f0*itf_Vbi_ci));
5591 : 0 : Qf_Vbi_ei=(T_f0*itf_Vbi_ei);
5592 : : #endif
5593 : 0 : Qf=(T_f0*itf);
5594 [ # # ]: 0 : if
5595 : : (itf<(1.0e-6*ick))
5596 : : {
5597 : : #if defined(_DERIVATE)
5598 : 0 : Q_fT_Vci_ei=0.0;
5599 : 0 : Q_fT_Vtnode_GND=Qf_Vtnode_GND;
5600 : 0 : Q_fT_Vbi_ci=Qf_Vbi_ci;
5601 : 0 : Q_fT_Vbi_ei=Qf_Vbi_ei;
5602 : : #endif
5603 : 0 : Q_fT=Qf;
5604 : : #if defined(_DERIVATE)
5605 : 0 : T_fT_Vbi_ei=0.0;
5606 : 0 : T_fT_Vci_ei=0.0;
5607 : 0 : T_fT_Vtnode_GND=Tf_Vtnode_GND;
5608 : 0 : T_fT_Vbi_ci=Tf_Vbi_ci;
5609 : : #endif
5610 : 0 : T_fT=Tf;
5611 : : }
5612 : : else
5613 : : {
5614 : : #if defined(_DERIVATE)
5615 : 0 : FFitf_ick_Vtnode_GND=((itf_Vtnode_GND*ick-itf*ick_Vtnode_GND)/ick/ick);
5616 : 0 : FFitf_ick_Vbi_ei=(itf_Vbi_ei/ick);
5617 : 0 : FFitf_ick_Vbi_ci=(itf_Vbi_ci/ick);
5618 : 0 : FFitf_ick_Vci_ei=((itf_Vci_ei*ick-itf*ick_Vci_ei)/ick/ick);
5619 : : #endif
5620 : 0 : FFitf_ick=(itf/ick);
5621 : : {
5622 : 0 : double m00_logE(d00_logE0,FFitf_ick)
5623 : 0 : double m00_exp(d00_exp1,(gtfe*d00_logE0))
5624 : : #if defined(_DERIVATE)
5625 : 0 : double m10_logE(d10_logE0,d00_logE0,FFitf_ick)
5626 : : #define d10_exp1 d00_exp1
5627 : : #endif
5628 : : #if defined(_DERIVATE)
5629 : 0 : FFdTef_Vtnode_GND=((tef0_t_Vtnode_GND*d00_exp1)+(tef0_t*(gtfe*FFitf_ick_Vtnode_GND*d10_logE0)*d10_exp1));
5630 : 0 : FFdTef_Vbi_ei=(tef0_t*(gtfe*FFitf_ick_Vbi_ei*d10_logE0)*d10_exp1);
5631 : 0 : FFdTef_Vbi_ci=(tef0_t*(gtfe*FFitf_ick_Vbi_ci*d10_logE0)*d10_exp1);
5632 : 0 : FFdTef_Vci_ei=(tef0_t*(gtfe*FFitf_ick_Vci_ei*d10_logE0)*d10_exp1);
5633 : : #endif
5634 : 0 : FFdTef=(tef0_t*d00_exp1);
5635 : : }
5636 : : #if defined(_DERIVATE)
5637 : 0 : FFdQef_Vtnode_GND=(((FFdTef_Vtnode_GND*itf)+(FFdTef*itf_Vtnode_GND))/(1+gtfe));
5638 : 0 : FFdQef_Vbi_ei=(((FFdTef_Vbi_ei*itf)+(FFdTef*itf_Vbi_ei))/(1+gtfe));
5639 : 0 : FFdQef_Vbi_ci=(((FFdTef_Vbi_ci*itf)+(FFdTef*itf_Vbi_ci))/(1+gtfe));
5640 : 0 : FFdQef_Vci_ei=(((FFdTef_Vci_ei*itf)+(FFdTef*itf_Vci_ei))/(1+gtfe));
5641 : : #endif
5642 : 0 : FFdQef=((FFdTef*itf)/(1+gtfe));
5643 [ # # ]: 0 : if
5644 : : (icbar<1e-10)
5645 : : {
5646 : : #if defined(_DERIVATE)
5647 : 0 : FFdVc_Vtnode_GND=0.0;
5648 : 0 : FFdVc_Vbi_ei=0.0;
5649 : 0 : FFdVc_Vbi_ci=0.0;
5650 : 0 : FFdVc_Vci_ei=0.0;
5651 : : #endif
5652 : 0 : FFdVc=0;
5653 : : #if defined(_DERIVATE)
5654 : 0 : FFdVc_ditf_Vtnode_GND=0.0;
5655 : 0 : FFdVc_ditf_Vbi_ei=0.0;
5656 : 0 : FFdVc_ditf_Vbi_ci=0.0;
5657 : 0 : FFdVc_ditf_Vci_ei=0.0;
5658 : : #endif
5659 : 0 : FFdVc_ditf=0;
5660 : : }
5661 : : else
5662 : : {
5663 : : #if defined(_DERIVATE)
5664 : 0 : FFib_Vtnode_GND=((itf_Vtnode_GND-ick_Vtnode_GND)/icbar);
5665 : 0 : FFib_Vbi_ei=(itf_Vbi_ei/icbar);
5666 : 0 : FFib_Vbi_ci=(itf_Vbi_ci/icbar);
5667 : 0 : FFib_Vci_ei=((itf_Vci_ei-ick_Vci_ei)/icbar);
5668 : : #endif
5669 : 0 : FFib=((itf-ick)/icbar);
5670 [ # # ]: 0 : if
5671 : : (FFib<(-1.0e10))
5672 : : {
5673 : : #if defined(_DERIVATE)
5674 : 0 : FFib_Vtnode_GND=0.0;
5675 : 0 : FFib_Vbi_ei=0.0;
5676 : 0 : FFib_Vbi_ci=0.0;
5677 : 0 : FFib_Vci_ei=0.0;
5678 : : #endif
5679 : 0 : FFib=(-1.0e10);
5680 : : }
5681 : : {
5682 : 0 : double m00_sqrt(d00_sqrt0,((FFib*FFib)+acbar))
5683 : : #if defined(_DERIVATE)
5684 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFib*FFib)+acbar))
5685 : : #endif
5686 : : #if defined(_DERIVATE)
5687 : 0 : FFfcbar_Vtnode_GND=((FFib_Vtnode_GND+((FFib_Vtnode_GND*FFib)+(FFib*FFib_Vtnode_GND))*d10_sqrt0)/2.0);
5688 : 0 : FFfcbar_Vbi_ei=((FFib_Vbi_ei+((FFib_Vbi_ei*FFib)+(FFib*FFib_Vbi_ei))*d10_sqrt0)/2.0);
5689 : 0 : FFfcbar_Vbi_ci=((FFib_Vbi_ci+((FFib_Vbi_ci*FFib)+(FFib*FFib_Vbi_ci))*d10_sqrt0)/2.0);
5690 : 0 : FFfcbar_Vci_ei=((FFib_Vci_ei+((FFib_Vci_ei*FFib)+(FFib*FFib_Vci_ei))*d10_sqrt0)/2.0);
5691 : : #endif
5692 : 0 : FFfcbar=((FFib+d00_sqrt0)/2.0);
5693 : : }
5694 : : {
5695 : 0 : double m00_sqrt(d00_sqrt0,((FFib*FFib)+acbar))
5696 : : #if defined(_DERIVATE)
5697 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFib*FFib)+acbar))
5698 : : #endif
5699 : : #if defined(_DERIVATE)
5700 : 0 : FFdib_ditf_Vtnode_GND=(((FFfcbar_Vtnode_GND*d00_sqrt0-FFfcbar*((FFib_Vtnode_GND*FFib)+(FFib*FFib_Vtnode_GND))*d10_sqrt0)/d00_sqrt0/d00_sqrt0)/icbar);
5701 : 0 : FFdib_ditf_Vbi_ei=(((FFfcbar_Vbi_ei*d00_sqrt0-FFfcbar*((FFib_Vbi_ei*FFib)+(FFib*FFib_Vbi_ei))*d10_sqrt0)/d00_sqrt0/d00_sqrt0)/icbar);
5702 : 0 : FFdib_ditf_Vbi_ci=(((FFfcbar_Vbi_ci*d00_sqrt0-FFfcbar*((FFib_Vbi_ci*FFib)+(FFib*FFib_Vbi_ci))*d10_sqrt0)/d00_sqrt0/d00_sqrt0)/icbar);
5703 : 0 : FFdib_ditf_Vci_ei=(((FFfcbar_Vci_ei*d00_sqrt0-FFfcbar*((FFib_Vci_ei*FFib)+(FFib*FFib_Vci_ei))*d10_sqrt0)/d00_sqrt0/d00_sqrt0)/icbar);
5704 : : #endif
5705 : 0 : FFdib_ditf=((FFfcbar/d00_sqrt0)/icbar);
5706 : : }
5707 : : {
5708 : 0 : double m00_exp(d00_exp0,((-1.0)/FFfcbar))
5709 : : #if defined(_DERIVATE)
5710 : : #define d10_exp0 d00_exp0
5711 : : #endif
5712 : : #if defined(_DERIVATE)
5713 : 0 : FFdVc_Vtnode_GND=(vcbar*(-(-1.0)*FFfcbar_Vtnode_GND/FFfcbar/FFfcbar)*d10_exp0);
5714 : 0 : FFdVc_Vbi_ei=(vcbar*(-(-1.0)*FFfcbar_Vbi_ei/FFfcbar/FFfcbar)*d10_exp0);
5715 : 0 : FFdVc_Vbi_ci=(vcbar*(-(-1.0)*FFfcbar_Vbi_ci/FFfcbar/FFfcbar)*d10_exp0);
5716 : 0 : FFdVc_Vci_ei=(vcbar*(-(-1.0)*FFfcbar_Vci_ei/FFfcbar/FFfcbar)*d10_exp0);
5717 : : #endif
5718 : 0 : FFdVc=(vcbar*d00_exp0);
5719 : : }
5720 : : #if defined(_DERIVATE)
5721 : 0 : FFdVc_ditf_Vtnode_GND=((((FFdVc_Vtnode_GND*(FFfcbar*FFfcbar)-FFdVc*((FFfcbar_Vtnode_GND*FFfcbar)+(FFfcbar*FFfcbar_Vtnode_GND)))/(FFfcbar*FFfcbar)/(FFfcbar*FFfcbar))*FFdib_ditf)+((FFdVc/(FFfcbar*FFfcbar))*FFdib_ditf_Vtnode_GND));
5722 : 0 : FFdVc_ditf_Vbi_ei=((((FFdVc_Vbi_ei*(FFfcbar*FFfcbar)-FFdVc*((FFfcbar_Vbi_ei*FFfcbar)+(FFfcbar*FFfcbar_Vbi_ei)))/(FFfcbar*FFfcbar)/(FFfcbar*FFfcbar))*FFdib_ditf)+((FFdVc/(FFfcbar*FFfcbar))*FFdib_ditf_Vbi_ei));
5723 : 0 : FFdVc_ditf_Vbi_ci=((((FFdVc_Vbi_ci*(FFfcbar*FFfcbar)-FFdVc*((FFfcbar_Vbi_ci*FFfcbar)+(FFfcbar*FFfcbar_Vbi_ci)))/(FFfcbar*FFfcbar)/(FFfcbar*FFfcbar))*FFdib_ditf)+((FFdVc/(FFfcbar*FFfcbar))*FFdib_ditf_Vbi_ci));
5724 : 0 : FFdVc_ditf_Vci_ei=((((FFdVc_Vci_ei*(FFfcbar*FFfcbar)-FFdVc*((FFfcbar_Vci_ei*FFfcbar)+(FFfcbar*FFfcbar_Vci_ei)))/(FFfcbar*FFfcbar)/(FFfcbar*FFfcbar))*FFdib_ditf)+((FFdVc/(FFfcbar*FFfcbar))*FFdib_ditf_Vci_ei));
5725 : : #endif
5726 : 0 : FFdVc_ditf=((FFdVc/(FFfcbar*FFfcbar))*FFdib_ditf);
5727 : : }
5728 : : {
5729 : 0 : double m00_exp(d00_exp0,(FFdVc/VT))
5730 : : #if defined(_DERIVATE)
5731 : : #define d10_exp0 d00_exp0
5732 : : #endif
5733 : : #if defined(_DERIVATE)
5734 : 0 : FFdQbfb_Vtnode_GND=((((((1-fthc)*thcs_t_Vtnode_GND)*itf)+(((1-fthc)*thcs_t)*itf_Vtnode_GND))*(d00_exp0-1))+((((1-fthc)*thcs_t)*itf)*((FFdVc_Vtnode_GND*VT-FFdVc*VT_Vtnode_GND)/VT/VT)*d10_exp0));
5735 : 0 : FFdQbfb_Vbi_ei=(((((1-fthc)*thcs_t)*itf_Vbi_ei)*(d00_exp0-1))+((((1-fthc)*thcs_t)*itf)*(FFdVc_Vbi_ei/VT)*d10_exp0));
5736 : 0 : FFdQbfb_Vbi_ci=(((((1-fthc)*thcs_t)*itf_Vbi_ci)*(d00_exp0-1))+((((1-fthc)*thcs_t)*itf)*(FFdVc_Vbi_ci/VT)*d10_exp0));
5737 : 0 : FFdQbfb_Vci_ei=(((((1-fthc)*thcs_t)*itf_Vci_ei)*(d00_exp0-1))+((((1-fthc)*thcs_t)*itf)*(FFdVc_Vci_ei/VT)*d10_exp0));
5738 : : #endif
5739 : 0 : FFdQbfb=((((1-fthc)*thcs_t)*itf)*(d00_exp0-1));
5740 : : }
5741 : : {
5742 : 0 : double m00_exp(d00_exp0,(FFdVc/VT))
5743 : : #if defined(_DERIVATE)
5744 : : #define d10_exp0 d00_exp0
5745 : : #endif
5746 : : #if defined(_DERIVATE)
5747 : 0 : FFdTbfb_Vtnode_GND=(((FFdQbfb_Vtnode_GND*itf-FFdQbfb*itf_Vtnode_GND)/itf/itf)+((((((((((1-fthc)*thcs_t_Vtnode_GND)*itf)+(((1-fthc)*thcs_t)*itf_Vtnode_GND))*d00_exp0)+((((1-fthc)*thcs_t)*itf)*((FFdVc_Vtnode_GND*VT-FFdVc*VT_Vtnode_GND)/VT/VT)*d10_exp0))*VT-((((1-fthc)*thcs_t)*itf)*d00_exp0)*VT_Vtnode_GND)/VT/VT)*FFdVc_ditf)+((((((1-fthc)*thcs_t)*itf)*d00_exp0)/VT)*FFdVc_ditf_Vtnode_GND)));
5748 : 0 : FFdTbfb_Vbi_ei=(((FFdQbfb_Vbi_ei*itf-FFdQbfb*itf_Vbi_ei)/itf/itf)+((((((((1-fthc)*thcs_t)*itf_Vbi_ei)*d00_exp0)+((((1-fthc)*thcs_t)*itf)*(FFdVc_Vbi_ei/VT)*d10_exp0))/VT)*FFdVc_ditf)+((((((1-fthc)*thcs_t)*itf)*d00_exp0)/VT)*FFdVc_ditf_Vbi_ei)));
5749 : 0 : FFdTbfb_Vbi_ci=(((FFdQbfb_Vbi_ci*itf-FFdQbfb*itf_Vbi_ci)/itf/itf)+((((((((1-fthc)*thcs_t)*itf_Vbi_ci)*d00_exp0)+((((1-fthc)*thcs_t)*itf)*(FFdVc_Vbi_ci/VT)*d10_exp0))/VT)*FFdVc_ditf)+((((((1-fthc)*thcs_t)*itf)*d00_exp0)/VT)*FFdVc_ditf_Vbi_ci)));
5750 : 0 : FFdTbfb_Vci_ei=(((FFdQbfb_Vci_ei*itf-FFdQbfb*itf_Vci_ei)/itf/itf)+((((((((1-fthc)*thcs_t)*itf_Vci_ei)*d00_exp0)+((((1-fthc)*thcs_t)*itf)*(FFdVc_Vci_ei/VT)*d10_exp0))/VT)*FFdVc_ditf)+((((((1-fthc)*thcs_t)*itf)*d00_exp0)/VT)*FFdVc_ditf_Vci_ei)));
5751 : : #endif
5752 : 0 : FFdTbfb=((FFdQbfb/itf)+((((((1-fthc)*thcs_t)*itf)*d00_exp0)/VT)*FFdVc_ditf));
5753 : : }
5754 : : #if defined(_DERIVATE)
5755 : 0 : FFic_Vtnode_GND=(-(-FFitf_ick_Vtnode_GND/FFitf_ick/FFitf_ick));
5756 : 0 : FFic_Vbi_ei=(-(-FFitf_ick_Vbi_ei/FFitf_ick/FFitf_ick));
5757 : 0 : FFic_Vbi_ci=(-(-FFitf_ick_Vbi_ci/FFitf_ick/FFitf_ick));
5758 : 0 : FFic_Vci_ei=(-(-FFitf_ick_Vci_ei/FFitf_ick/FFitf_ick));
5759 : : #endif
5760 : 0 : FFic=(1-(1.0/FFitf_ick));
5761 : : {
5762 : 0 : double m00_sqrt(d00_sqrt0,((FFic*FFic)+ahc))
5763 : 0 : double m00_sqrt(d00_sqrt1,(1+ahc))
5764 : : #if defined(_DERIVATE)
5765 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFic*FFic)+ahc))
5766 : : #endif
5767 : : #if defined(_DERIVATE)
5768 : 0 : FFw_Vtnode_GND=((FFic_Vtnode_GND+((FFic_Vtnode_GND*FFic)+(FFic*FFic_Vtnode_GND))*d10_sqrt0)/(1+d00_sqrt1));
5769 : 0 : FFw_Vbi_ei=((FFic_Vbi_ei+((FFic_Vbi_ei*FFic)+(FFic*FFic_Vbi_ei))*d10_sqrt0)/(1+d00_sqrt1));
5770 : 0 : FFw_Vbi_ci=((FFic_Vbi_ci+((FFic_Vbi_ci*FFic)+(FFic*FFic_Vbi_ci))*d10_sqrt0)/(1+d00_sqrt1));
5771 : 0 : FFw_Vci_ei=((FFic_Vci_ei+((FFic_Vci_ei*FFic)+(FFic*FFic_Vci_ei))*d10_sqrt0)/(1+d00_sqrt1));
5772 : : #endif
5773 : 0 : FFw=((FFic+d00_sqrt0)/(1+d00_sqrt1));
5774 : : }
5775 : : {
5776 : 0 : double m00_exp(d00_exp0,((FFdVc-vcbar)/VT))
5777 : : #if defined(_DERIVATE)
5778 : : #define d10_exp0 d00_exp0
5779 : : #endif
5780 : : #if defined(_DERIVATE)
5781 : 0 : FFdQfhc_Vtnode_GND=((((((((thcs_t_Vtnode_GND*itf)+(thcs_t*itf_Vtnode_GND))*FFw)+((thcs_t*itf)*FFw_Vtnode_GND))*FFw)+(((thcs_t*itf)*FFw)*FFw_Vtnode_GND))*d00_exp0)+((((thcs_t*itf)*FFw)*FFw)*((FFdVc_Vtnode_GND*VT-(FFdVc-vcbar)*VT_Vtnode_GND)/VT/VT)*d10_exp0));
5782 : 0 : FFdQfhc_Vbi_ei=(((((((thcs_t*itf_Vbi_ei)*FFw)+((thcs_t*itf)*FFw_Vbi_ei))*FFw)+(((thcs_t*itf)*FFw)*FFw_Vbi_ei))*d00_exp0)+((((thcs_t*itf)*FFw)*FFw)*(FFdVc_Vbi_ei/VT)*d10_exp0));
5783 : 0 : FFdQfhc_Vbi_ci=(((((((thcs_t*itf_Vbi_ci)*FFw)+((thcs_t*itf)*FFw_Vbi_ci))*FFw)+(((thcs_t*itf)*FFw)*FFw_Vbi_ci))*d00_exp0)+((((thcs_t*itf)*FFw)*FFw)*(FFdVc_Vbi_ci/VT)*d10_exp0));
5784 : 0 : FFdQfhc_Vci_ei=(((((((thcs_t*itf_Vci_ei)*FFw)+((thcs_t*itf)*FFw_Vci_ei))*FFw)+(((thcs_t*itf)*FFw)*FFw_Vci_ei))*d00_exp0)+((((thcs_t*itf)*FFw)*FFw)*(FFdVc_Vci_ei/VT)*d10_exp0));
5785 : : #endif
5786 : 0 : FFdQfhc=((((thcs_t*itf)*FFw)*FFw)*d00_exp0);
5787 : : }
5788 : : {
5789 : 0 : double m00_sqrt(d00_sqrt0,((FFic*FFic)+ahc))
5790 : : #if defined(_DERIVATE)
5791 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFic*FFic)+ahc))
5792 : : #endif
5793 : : #if defined(_DERIVATE)
5794 : 0 : FFdTfhc_Vtnode_GND=((FFdQfhc_Vtnode_GND*(((1.0/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf)))+(FFdQfhc*((((-itf_Vtnode_GND/itf/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/itf)*(-2.0*((FFitf_ick_Vtnode_GND*d00_sqrt0)+(FFitf_ick*((FFic_Vtnode_GND*FFic)+(FFic*FFic_Vtnode_GND))*d10_sqrt0))/(FFitf_ick*d00_sqrt0)/(FFitf_ick*d00_sqrt0))))+(((-VT_Vtnode_GND/VT/VT)*FFdVc_ditf)+((1.0/VT)*FFdVc_ditf_Vtnode_GND)))));
5795 : 0 : FFdTfhc_Vbi_ei=((FFdQfhc_Vbi_ei*(((1.0/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf)))+(FFdQfhc*((((-itf_Vbi_ei/itf/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/itf)*(-2.0*((FFitf_ick_Vbi_ei*d00_sqrt0)+(FFitf_ick*((FFic_Vbi_ei*FFic)+(FFic*FFic_Vbi_ei))*d10_sqrt0))/(FFitf_ick*d00_sqrt0)/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf_Vbi_ei))));
5796 : 0 : FFdTfhc_Vbi_ci=((FFdQfhc_Vbi_ci*(((1.0/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf)))+(FFdQfhc*((((-itf_Vbi_ci/itf/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/itf)*(-2.0*((FFitf_ick_Vbi_ci*d00_sqrt0)+(FFitf_ick*((FFic_Vbi_ci*FFic)+(FFic*FFic_Vbi_ci))*d10_sqrt0))/(FFitf_ick*d00_sqrt0)/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf_Vbi_ci))));
5797 : 0 : FFdTfhc_Vci_ei=((FFdQfhc_Vci_ei*(((1.0/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf)))+(FFdQfhc*((((-itf_Vci_ei/itf/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/itf)*(-2.0*((FFitf_ick_Vci_ei*d00_sqrt0)+(FFitf_ick*((FFic_Vci_ei*FFic)+(FFic*FFic_Vci_ei))*d10_sqrt0))/(FFitf_ick*d00_sqrt0)/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf_Vci_ei))));
5798 : : #endif
5799 : 0 : FFdTfhc=(FFdQfhc*(((1.0/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf)));
5800 : : }
5801 [ # # ][ # # ]: 0 : if
5802 : : ((latb<=0.0)&&(latl<=0.0))
5803 : : {
5804 : : #if defined(_DERIVATE)
5805 : 0 : FFdQcfc_Vtnode_GND=(fthc*FFdQfhc_Vtnode_GND);
5806 : 0 : FFdQcfc_Vbi_ei=(fthc*FFdQfhc_Vbi_ei);
5807 : 0 : FFdQcfc_Vbi_ci=(fthc*FFdQfhc_Vbi_ci);
5808 : 0 : FFdQcfc_Vci_ei=(fthc*FFdQfhc_Vci_ei);
5809 : : #endif
5810 : 0 : FFdQcfc=(fthc*FFdQfhc);
5811 : : #if defined(_DERIVATE)
5812 : 0 : FFdTcfc_Vtnode_GND=(fthc*FFdTfhc_Vtnode_GND);
5813 : 0 : FFdTcfc_Vbi_ei=(fthc*FFdTfhc_Vbi_ei);
5814 : 0 : FFdTcfc_Vbi_ci=(fthc*FFdTfhc_Vbi_ci);
5815 : 0 : FFdTcfc_Vci_ei=(fthc*FFdTfhc_Vci_ei);
5816 : : #endif
5817 : 0 : FFdTcfc=(fthc*FFdTfhc);
5818 : : #if defined(_DERIVATE)
5819 : 0 : FFdQcfcT_Vtnode_GND=FFdQcfc_Vtnode_GND;
5820 : 0 : FFdQcfcT_Vbi_ei=FFdQcfc_Vbi_ei;
5821 : 0 : FFdQcfcT_Vbi_ci=FFdQcfc_Vbi_ci;
5822 : 0 : FFdQcfcT_Vci_ei=FFdQcfc_Vci_ei;
5823 : : #endif
5824 : 0 : FFdQcfcT=FFdQcfc;
5825 : : #if defined(_DERIVATE)
5826 : 0 : FFdTcfcT_Vtnode_GND=FFdTcfc_Vtnode_GND;
5827 : 0 : FFdTcfcT_Vbi_ei=FFdTcfc_Vbi_ei;
5828 : 0 : FFdTcfcT_Vbi_ci=FFdTcfc_Vbi_ci;
5829 : 0 : FFdTcfcT_Vci_ei=FFdTcfc_Vci_ei;
5830 : : #endif
5831 : 0 : FFdTcfcT=FFdTcfc;
5832 : : }
5833 : : else
5834 : : {
5835 : : #if defined(_DERIVATE)
5836 : 0 : FFdQcfc_Vtnode_GND=(((fthc*thcs_t_Vtnode_GND)*itf)+((fthc*thcs_t)*itf_Vtnode_GND));
5837 : 0 : FFdQcfc_Vbi_ei=((fthc*thcs_t)*itf_Vbi_ei);
5838 : 0 : FFdQcfc_Vbi_ci=((fthc*thcs_t)*itf_Vbi_ci);
5839 : 0 : FFdQcfc_Vci_ei=0.0;
5840 : : #endif
5841 : 0 : FFdQcfc=((fthc*thcs_t)*itf);
5842 : : #if defined(_DERIVATE)
5843 : 0 : FCa_Vci_ei=(-((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf));
5844 : 0 : FCa_Vtnode_GND=(-((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf));
5845 : 0 : FCa_Vbi_ei=(-(-ick*itf_Vbi_ei/itf/itf));
5846 : 0 : FCa_Vbi_ci=(-(-ick*itf_Vbi_ci/itf/itf));
5847 : : #endif
5848 : 0 : FCa=(1.0-(ick/itf));
5849 : : {
5850 : 0 : double m00_sqrt(d00_sqrt0,((FCa*FCa)+ahc))
5851 : : #if defined(_DERIVATE)
5852 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FCa*FCa)+ahc))
5853 : : #endif
5854 : : #if defined(_DERIVATE)
5855 : 0 : FCrt_Vci_ei=((FCa_Vci_ei*FCa)+(FCa*FCa_Vci_ei))*d10_sqrt0;
5856 : 0 : FCrt_Vtnode_GND=((FCa_Vtnode_GND*FCa)+(FCa*FCa_Vtnode_GND))*d10_sqrt0;
5857 : 0 : FCrt_Vbi_ei=((FCa_Vbi_ei*FCa)+(FCa*FCa_Vbi_ei))*d10_sqrt0;
5858 : 0 : FCrt_Vbi_ci=((FCa_Vbi_ci*FCa)+(FCa*FCa_Vbi_ci))*d10_sqrt0;
5859 : : #endif
5860 : 0 : FCrt=d00_sqrt0;
5861 : : }
5862 : : {
5863 : 0 : double m00_sqrt(d00_sqrt0,(1.0+ahc))
5864 : : #if defined(_DERIVATE)
5865 : 0 : FCa_ck_Vci_ei=(-((FCa_Vci_ei+FCrt_Vci_ei)/(1.0+d00_sqrt0)));
5866 : 0 : FCa_ck_Vtnode_GND=(-((FCa_Vtnode_GND+FCrt_Vtnode_GND)/(1.0+d00_sqrt0)));
5867 : 0 : FCa_ck_Vbi_ei=(-((FCa_Vbi_ei+FCrt_Vbi_ei)/(1.0+d00_sqrt0)));
5868 : 0 : FCa_ck_Vbi_ci=(-((FCa_Vbi_ci+FCrt_Vbi_ci)/(1.0+d00_sqrt0)));
5869 : : #endif
5870 : 0 : FCa_ck=(1.0-((FCa+FCrt)/(1.0+d00_sqrt0)));
5871 : : }
5872 : : #if defined(_DERIVATE)
5873 : 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));
5874 : 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));
5875 : 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));
5876 : 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));
5877 : : #endif
5878 : 0 : FCdaick_ditf=(((FCa_ck-1.0)*(1-FCa))/(FCrt*itf));
5879 [ # # ]: 0 : if
5880 : : (latb>latl)
5881 : : {
5882 : : #if defined(_DERIVATE)
5883 : 0 : FCz_Vci_ei=0.0;
5884 : 0 : FCz_Vtnode_GND=0.0;
5885 : 0 : FCz_Vbi_ei=0.0;
5886 : 0 : FCz_Vbi_ci=0.0;
5887 : : #endif
5888 : 0 : FCz=(latb-latl);
5889 : 0 : FCxl=(1.0+latl);
5890 : 0 : FCxb=(1.0+latb);
5891 [ # # ]: 0 : if
5892 : : (latb>0.01)
5893 : : {
5894 : : {
5895 : 0 : double m00_logE(d00_logE0,(FCxb/FCxl))
5896 : 0 : FCln=d00_logE0;
5897 : : }
5898 : : {
5899 : 0 : double m00_exp(d00_exp0,((FCa_ck-1.0)*FCln))
5900 : : #if defined(_DERIVATE)
5901 : : #define d10_exp0 d00_exp0
5902 : : #endif
5903 : : #if defined(_DERIVATE)
5904 : 0 : FCa1_Vci_ei=FCa_ck_Vci_ei*FCln*d10_exp0;
5905 : 0 : FCa1_Vtnode_GND=FCa_ck_Vtnode_GND*FCln*d10_exp0;
5906 : 0 : FCa1_Vbi_ei=FCa_ck_Vbi_ei*FCln*d10_exp0;
5907 : 0 : FCa1_Vbi_ci=FCa_ck_Vbi_ci*FCln*d10_exp0;
5908 : : #endif
5909 : 0 : FCa1=d00_exp0;
5910 : : }
5911 : : #if defined(_DERIVATE)
5912 : 0 : FCd_a_Vci_ei=(-(-FCa1_Vci_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
5913 : 0 : FCd_a_Vtnode_GND=(-(-FCa1_Vtnode_GND*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
5914 : 0 : FCd_a_Vbi_ei=(-(-FCa1_Vbi_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
5915 : 0 : FCd_a_Vbi_ci=(-(-FCa1_Vbi_ci*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
5916 : : #endif
5917 : 0 : FCd_a=(1.0/(latl-(FCa1*latb)));
5918 : : #if defined(_DERIVATE)
5919 : 0 : FCw_Vci_ei=((FCa1_Vci_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vci_ei));
5920 : 0 : FCw_Vtnode_GND=((FCa1_Vtnode_GND*FCd_a)+((FCa1-1.0)*FCd_a_Vtnode_GND));
5921 : 0 : FCw_Vbi_ei=((FCa1_Vbi_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ei));
5922 : 0 : FCw_Vbi_ci=((FCa1_Vbi_ci*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ci));
5923 : : #endif
5924 : 0 : FCw=((FCa1-1.0)*FCd_a);
5925 : : #if defined(_DERIVATE)
5926 : 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));
5927 : 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));
5928 : 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));
5929 : 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));
5930 : : #endif
5931 : 0 : FCdw_daick=(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a);
5932 : : {
5933 : 0 : double m00_logE(d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
5934 : : #if defined(_DERIVATE)
5935 : 0 : double m10_logE(d10_logE0,d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
5936 : : #endif
5937 : : #if defined(_DERIVATE)
5938 : 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;
5939 : 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;
5940 : 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;
5941 : 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;
5942 : : #endif
5943 : 0 : FCa1=d00_logE0;
5944 : : }
5945 : : #if defined(_DERIVATE)
5946 : 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))));
5947 : 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))));
5948 : 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))));
5949 : 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))));
5950 : : #endif
5951 : 0 : FCda1_dw=((latb/(1.0+(latb*FCw)))-(latl/(1.0+(latl*FCw))));
5952 : : }
5953 : : else
5954 : : {
5955 : : #if defined(_DERIVATE)
5956 : 0 : FCf1_Vci_ei=(-FCa_ck_Vci_ei);
5957 : 0 : FCf1_Vtnode_GND=(-FCa_ck_Vtnode_GND);
5958 : 0 : FCf1_Vbi_ei=(-FCa_ck_Vbi_ei);
5959 : 0 : FCf1_Vbi_ci=(-FCa_ck_Vbi_ci);
5960 : : #endif
5961 : 0 : FCf1=(1.0-FCa_ck);
5962 : : #if defined(_DERIVATE)
5963 : 0 : FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5964 : 0 : FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5965 : 0 : FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5966 : 0 : FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5967 : : #endif
5968 : 0 : FCd_a=(1.0/(1.0+(FCa_ck*latb)));
5969 : : #if defined(_DERIVATE)
5970 : 0 : FCw_Vci_ei=((FCf1_Vci_ei*FCd_a)+(FCf1*FCd_a_Vci_ei));
5971 : 0 : FCw_Vtnode_GND=((FCf1_Vtnode_GND*FCd_a)+(FCf1*FCd_a_Vtnode_GND));
5972 : 0 : FCw_Vbi_ei=((FCf1_Vbi_ei*FCd_a)+(FCf1*FCd_a_Vbi_ei));
5973 : 0 : FCw_Vbi_ci=((FCf1_Vbi_ci*FCd_a)+(FCf1*FCd_a_Vbi_ci));
5974 : : #endif
5975 : 0 : FCw=(FCf1*FCd_a);
5976 : : #if defined(_DERIVATE)
5977 : 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));
5978 : 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));
5979 : 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));
5980 : 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));
5981 : : #endif
5982 : 0 : FCdw_daick=(((((-1.0)*FCd_a)*FCd_a)*FCxb)*FCd_a);
5983 : : #if defined(_DERIVATE)
5984 : 0 : FCa1_Vci_ei=((FCz_Vci_ei*FCw)+(FCz*FCw_Vci_ei));
5985 : 0 : FCa1_Vtnode_GND=((FCz_Vtnode_GND*FCw)+(FCz*FCw_Vtnode_GND));
5986 : 0 : FCa1_Vbi_ei=((FCz_Vbi_ei*FCw)+(FCz*FCw_Vbi_ei));
5987 : 0 : FCa1_Vbi_ci=((FCz_Vbi_ci*FCw)+(FCz*FCw_Vbi_ci));
5988 : : #endif
5989 : 0 : FCa1=(FCz*FCw);
5990 : : #if defined(_DERIVATE)
5991 : 0 : FCda1_dw_Vci_ei=0.0;
5992 : 0 : FCda1_dw_Vtnode_GND=0.0;
5993 : 0 : FCda1_dw_Vbi_ei=0.0;
5994 : 0 : FCda1_dw_Vbi_ci=0.0;
5995 : : #endif
5996 : 0 : FCda1_dw=FCz;
5997 : : }
5998 : : #if defined(_DERIVATE)
5999 : 0 : FCf_CT_Vbi_ei=0.0;
6000 : 0 : FCf_CT_Vbi_ci=0.0;
6001 : 0 : FCf_CT_Vci_ei=0.0;
6002 : 0 : FCf_CT_Vtnode_GND=0.0;
6003 : : #endif
6004 : 0 : FCf_CT=(2.0/FCz);
6005 : : #if defined(_DERIVATE)
6006 : 0 : FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
6007 : 0 : FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
6008 : 0 : FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
6009 : 0 : FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
6010 : : #endif
6011 : 0 : FCw2=(FCw*FCw);
6012 : : #if defined(_DERIVATE)
6013 : 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);
6014 : 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);
6015 : 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);
6016 : 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);
6017 : : #endif
6018 : 0 : FCf1=((((((latb*latl)*FCw)*FCw2)/3.0)+(((latb+latl)*FCw2)/2.0))+FCw);
6019 : : #if defined(_DERIVATE)
6020 : 0 : FCdf1_dw_Vci_ei=(((latb*latl)*FCw2_Vci_ei)+((latb+latl)*FCw_Vci_ei));
6021 : 0 : FCdf1_dw_Vtnode_GND=(((latb*latl)*FCw2_Vtnode_GND)+((latb+latl)*FCw_Vtnode_GND));
6022 : 0 : FCdf1_dw_Vbi_ei=(((latb*latl)*FCw2_Vbi_ei)+((latb+latl)*FCw_Vbi_ei));
6023 : 0 : FCdf1_dw_Vbi_ci=(((latb*latl)*FCw2_Vbi_ci)+((latb+latl)*FCw_Vbi_ci));
6024 : : #endif
6025 : 0 : FCdf1_dw=((((latb*latl)*FCw2)+((latb+latl)*FCw))+1.0);
6026 : : #if defined(_DERIVATE)
6027 : 0 : z_Vci_ei=(latb*FCw_Vci_ei);
6028 : 0 : z_Vtnode_GND=(latb*FCw_Vtnode_GND);
6029 : 0 : z_Vbi_ei=(latb*FCw_Vbi_ei);
6030 : 0 : z_Vbi_ci=(latb*FCw_Vbi_ci);
6031 : : #endif
6032 : 0 : z=(latb*FCw);
6033 : : {
6034 : 0 : double m00_logE(d00_logE0,(1+(latb*FCw)))
6035 : : #if defined(_DERIVATE)
6036 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latb*FCw)))
6037 : : #endif
6038 : : #if defined(_DERIVATE)
6039 : 0 : lnzb_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
6040 : 0 : lnzb_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
6041 : 0 : lnzb_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
6042 : 0 : lnzb_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
6043 : : #endif
6044 : 0 : lnzb=d00_logE0;
6045 : : }
6046 [ # # ]: 0 : if
6047 : : (z>1.0e-6)
6048 : : {
6049 : : #if defined(_DERIVATE)
6050 : 0 : x_Vci_ei=z_Vci_ei;
6051 : 0 : x_Vtnode_GND=z_Vtnode_GND;
6052 : 0 : x_Vbi_ei=z_Vbi_ei;
6053 : 0 : x_Vbi_ci=z_Vbi_ci;
6054 : : #endif
6055 : 0 : x=(1.0+z);
6056 : : #if defined(_DERIVATE)
6057 : 0 : a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
6058 : 0 : a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
6059 : 0 : a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
6060 : 0 : a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
6061 : : #endif
6062 : 0 : a=(x*x);
6063 : : #if defined(_DERIVATE)
6064 : 0 : a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ei))));
6065 : 0 : a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ci))));
6066 : 0 : a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vci_ei))));
6067 : 0 : a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vtnode_GND))));
6068 : : #endif
6069 : 0 : a2=(0.250*((a*((2.0*lnzb)-1.0))+1.0));
6070 : : #if defined(_DERIVATE)
6071 : 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);
6072 : 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);
6073 : 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);
6074 : 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);
6075 : : #endif
6076 : 0 : a3=((((a*x)*((3.0*lnzb)-1.0))+1.0)/9.0);
6077 : 0 : r=(latl/latb);
6078 : : #if defined(_DERIVATE)
6079 : 0 : FCf2_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latb);
6080 : 0 : FCf2_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latb);
6081 : 0 : FCf2_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latb);
6082 : 0 : FCf2_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latb);
6083 : : #endif
6084 : 0 : FCf2=((((1.0-r)*a2)+(r*a3))/latb);
6085 : : #if defined(_DERIVATE)
6086 : 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));
6087 : 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));
6088 : 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));
6089 : 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));
6090 : : #endif
6091 : 0 : FCdf2_dw=((((1.0-r)*x)+(r*a))*lnzb);
6092 : : }
6093 : : else
6094 : : {
6095 : : #if defined(_DERIVATE)
6096 : 0 : a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
6097 : 0 : a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
6098 : 0 : a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
6099 : 0 : a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
6100 : : #endif
6101 : 0 : a=(z*z);
6102 : : #if defined(_DERIVATE)
6103 : 0 : a2_Vbi_ei=((z_Vbi_ei-(0.25*a_Vbi_ei))+(((0.10*z_Vbi_ei)*a)+((0.10*z)*a_Vbi_ei)));
6104 : 0 : a2_Vbi_ci=((z_Vbi_ci-(0.25*a_Vbi_ci))+(((0.10*z_Vbi_ci)*a)+((0.10*z)*a_Vbi_ci)));
6105 : 0 : a2_Vci_ei=((z_Vci_ei-(0.25*a_Vci_ei))+(((0.10*z_Vci_ei)*a)+((0.10*z)*a_Vci_ei)));
6106 : 0 : a2_Vtnode_GND=((z_Vtnode_GND-(0.25*a_Vtnode_GND))+(((0.10*z_Vtnode_GND)*a)+((0.10*z)*a_Vtnode_GND)));
6107 : : #endif
6108 : 0 : a2=(((3.0+z)-(0.25*a))+((0.10*z)*a));
6109 : : #if defined(_DERIVATE)
6110 : 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)));
6111 : 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)));
6112 : 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)));
6113 : 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)));
6114 : : #endif
6115 : 0 : a3=(((2.0*z)+(0.75*a))-((0.20*a)*z));
6116 : : #if defined(_DERIVATE)
6117 : 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);
6118 : 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);
6119 : 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);
6120 : 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);
6121 : : #endif
6122 : 0 : FCf2=(((((latb*a2)+(latl*a3))*FCw)*FCw)/6.0);
6123 : : #if defined(_DERIVATE)
6124 : 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));
6125 : 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));
6126 : 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));
6127 : 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));
6128 : : #endif
6129 : 0 : FCdf2_dw=(((1+(latl*FCw))*(1+z))*lnzb);
6130 : : }
6131 : : #if defined(_DERIVATE)
6132 : 0 : z_Vci_ei=(latl*FCw_Vci_ei);
6133 : 0 : z_Vtnode_GND=(latl*FCw_Vtnode_GND);
6134 : 0 : z_Vbi_ei=(latl*FCw_Vbi_ei);
6135 : 0 : z_Vbi_ci=(latl*FCw_Vbi_ci);
6136 : : #endif
6137 : 0 : z=(latl*FCw);
6138 : : {
6139 : 0 : double m00_logE(d00_logE0,(1+(latl*FCw)))
6140 : : #if defined(_DERIVATE)
6141 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latl*FCw)))
6142 : : #endif
6143 : : #if defined(_DERIVATE)
6144 : 0 : lnzb_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
6145 : 0 : lnzb_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
6146 : 0 : lnzb_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
6147 : 0 : lnzb_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
6148 : : #endif
6149 : 0 : lnzb=d00_logE0;
6150 : : }
6151 [ # # ]: 0 : if
6152 : : (z>1.0e-6)
6153 : : {
6154 : : #if defined(_DERIVATE)
6155 : 0 : x_Vci_ei=z_Vci_ei;
6156 : 0 : x_Vtnode_GND=z_Vtnode_GND;
6157 : 0 : x_Vbi_ei=z_Vbi_ei;
6158 : 0 : x_Vbi_ci=z_Vbi_ci;
6159 : : #endif
6160 : 0 : x=(1.0+z);
6161 : : #if defined(_DERIVATE)
6162 : 0 : a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
6163 : 0 : a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
6164 : 0 : a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
6165 : 0 : a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
6166 : : #endif
6167 : 0 : a=(x*x);
6168 : : #if defined(_DERIVATE)
6169 : 0 : a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ei))));
6170 : 0 : a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ci))));
6171 : 0 : a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vci_ei))));
6172 : 0 : a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vtnode_GND))));
6173 : : #endif
6174 : 0 : a2=(0.250*((a*((2.0*lnzb)-1.0))+1.0));
6175 : : #if defined(_DERIVATE)
6176 : 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);
6177 : 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);
6178 : 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);
6179 : 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);
6180 : : #endif
6181 : 0 : a3=((((a*x)*((3.0*lnzb)-1.0))+1.0)/9.0);
6182 : 0 : r=(latb/latl);
6183 : : #if defined(_DERIVATE)
6184 : 0 : FCf3_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latl);
6185 : 0 : FCf3_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latl);
6186 : 0 : FCf3_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latl);
6187 : 0 : FCf3_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latl);
6188 : : #endif
6189 : 0 : FCf3=((((1.0-r)*a2)+(r*a3))/latl);
6190 : : #if defined(_DERIVATE)
6191 : 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));
6192 : 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));
6193 : 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));
6194 : 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));
6195 : : #endif
6196 : 0 : FCdf3_dw=((((1.0-r)*x)+(r*a))*lnzb);
6197 : : }
6198 : : else
6199 : : {
6200 : : #if defined(_DERIVATE)
6201 : 0 : a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
6202 : 0 : a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
6203 : 0 : a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
6204 : 0 : a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
6205 : : #endif
6206 : 0 : a=(z*z);
6207 : : #if defined(_DERIVATE)
6208 : 0 : a2_Vbi_ei=((z_Vbi_ei-(0.25*a_Vbi_ei))+(((0.10*z_Vbi_ei)*a)+((0.10*z)*a_Vbi_ei)));
6209 : 0 : a2_Vbi_ci=((z_Vbi_ci-(0.25*a_Vbi_ci))+(((0.10*z_Vbi_ci)*a)+((0.10*z)*a_Vbi_ci)));
6210 : 0 : a2_Vci_ei=((z_Vci_ei-(0.25*a_Vci_ei))+(((0.10*z_Vci_ei)*a)+((0.10*z)*a_Vci_ei)));
6211 : 0 : a2_Vtnode_GND=((z_Vtnode_GND-(0.25*a_Vtnode_GND))+(((0.10*z_Vtnode_GND)*a)+((0.10*z)*a_Vtnode_GND)));
6212 : : #endif
6213 : 0 : a2=(((3.0+z)-(0.25*a))+((0.10*z)*a));
6214 : : #if defined(_DERIVATE)
6215 : 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)));
6216 : 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)));
6217 : 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)));
6218 : 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)));
6219 : : #endif
6220 : 0 : a3=(((2.0*z)+(0.75*a))-((0.20*a)*z));
6221 : : #if defined(_DERIVATE)
6222 : 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);
6223 : 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);
6224 : 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);
6225 : 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);
6226 : : #endif
6227 : 0 : FCf3=(((((latl*a2)+(latb*a3))*FCw)*FCw)/6.0);
6228 : : #if defined(_DERIVATE)
6229 : 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));
6230 : 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));
6231 : 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));
6232 : 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));
6233 : : #endif
6234 : 0 : FCdf3_dw=(((1+(latb*FCw))*(1+z))*lnzb);
6235 : : }
6236 : : #if defined(_DERIVATE)
6237 : 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)));
6238 : 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)));
6239 : 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)));
6240 : 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)));
6241 : : #endif
6242 : 0 : FCf_ci=(FCf_CT*(((FCa1*FCf1)-FCf2)+FCf3));
6243 : : #if defined(_DERIVATE)
6244 : 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)));
6245 : 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)));
6246 : 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)));
6247 : 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)));
6248 : : #endif
6249 : 0 : FCdfc_dw=(FCf_CT*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw));
6250 : : #if defined(_DERIVATE)
6251 : 0 : FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
6252 : 0 : FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
6253 : 0 : FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
6254 : 0 : FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
6255 : : #endif
6256 : 0 : FCdw_ditf=(FCdw_daick*FCdaick_ditf);
6257 : : #if defined(_DERIVATE)
6258 : 0 : FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
6259 : 0 : FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
6260 : 0 : FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
6261 : 0 : FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
6262 : : #endif
6263 : 0 : FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
6264 [ # # ][ # # ]: 0 : if
6265 : : ((flcomp==0.0)||(flcomp==2.1))
6266 : : {
6267 : : #if defined(_DERIVATE)
6268 : 0 : a_Vbi_ei=(latb*FCw_Vbi_ei);
6269 : 0 : a_Vbi_ci=(latb*FCw_Vbi_ci);
6270 : 0 : a_Vci_ei=(latb*FCw_Vci_ei);
6271 : 0 : a_Vtnode_GND=(latb*FCw_Vtnode_GND);
6272 : : #endif
6273 : 0 : a=(latb*FCw);
6274 : : {
6275 : 0 : double m00_logE(d00_logE0,(1+(latb*FCw)))
6276 : : #if defined(_DERIVATE)
6277 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latb*FCw)))
6278 : : #endif
6279 : : #if defined(_DERIVATE)
6280 : 0 : lnz_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
6281 : 0 : lnz_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
6282 : 0 : lnz_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
6283 : 0 : lnz_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
6284 : : #endif
6285 : 0 : lnz=d00_logE0;
6286 : : }
6287 [ # # ]: 0 : if
6288 : : (a>1.0e-6)
6289 : : {
6290 : : #if defined(_DERIVATE)
6291 : 0 : FCf2_Vbi_ei=((a_Vbi_ei-lnz_Vbi_ei)/latb);
6292 : 0 : FCf2_Vbi_ci=((a_Vbi_ci-lnz_Vbi_ci)/latb);
6293 : 0 : FCf2_Vci_ei=((a_Vci_ei-lnz_Vci_ei)/latb);
6294 : 0 : FCf2_Vtnode_GND=((a_Vtnode_GND-lnz_Vtnode_GND)/latb);
6295 : : #endif
6296 : 0 : FCf2=((a-lnz)/latb);
6297 : : #if defined(_DERIVATE)
6298 : 0 : FCdf2_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
6299 : 0 : FCdf2_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
6300 : 0 : FCdf2_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
6301 : 0 : FCdf2_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
6302 : : #endif
6303 : 0 : FCdf2_dw=(a/(1.0+a));
6304 : : }
6305 : : else
6306 : : {
6307 : : #if defined(_DERIVATE)
6308 : 0 : FCf2_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
6309 : 0 : FCf2_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
6310 : 0 : FCf2_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
6311 : 0 : FCf2_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
6312 : : #endif
6313 : 0 : FCf2=((0.5*a)*FCw);
6314 : : #if defined(_DERIVATE)
6315 : 0 : FCdf2_dw_Vci_ei=a_Vci_ei;
6316 : 0 : FCdf2_dw_Vtnode_GND=a_Vtnode_GND;
6317 : 0 : FCdf2_dw_Vbi_ei=a_Vbi_ei;
6318 : 0 : FCdf2_dw_Vbi_ci=a_Vbi_ci;
6319 : : #endif
6320 : 0 : FCdf2_dw=a;
6321 : : }
6322 : : #if defined(_DERIVATE)
6323 : 0 : a_Vbi_ei=(latl*FCw_Vbi_ei);
6324 : 0 : a_Vbi_ci=(latl*FCw_Vbi_ci);
6325 : 0 : a_Vci_ei=(latl*FCw_Vci_ei);
6326 : 0 : a_Vtnode_GND=(latl*FCw_Vtnode_GND);
6327 : : #endif
6328 : 0 : a=(latl*FCw);
6329 : : {
6330 : 0 : double m00_logE(d00_logE0,(1+(latl*FCw)))
6331 : : #if defined(_DERIVATE)
6332 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latl*FCw)))
6333 : : #endif
6334 : : #if defined(_DERIVATE)
6335 : 0 : lnz_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
6336 : 0 : lnz_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
6337 : 0 : lnz_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
6338 : 0 : lnz_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
6339 : : #endif
6340 : 0 : lnz=d00_logE0;
6341 : : }
6342 [ # # ]: 0 : if
6343 : : (a>1.0e-6)
6344 : : {
6345 : : #if defined(_DERIVATE)
6346 : 0 : FCf3_Vbi_ei=((a_Vbi_ei-lnz_Vbi_ei)/latl);
6347 : 0 : FCf3_Vbi_ci=((a_Vbi_ci-lnz_Vbi_ci)/latl);
6348 : 0 : FCf3_Vci_ei=((a_Vci_ei-lnz_Vci_ei)/latl);
6349 : 0 : FCf3_Vtnode_GND=((a_Vtnode_GND-lnz_Vtnode_GND)/latl);
6350 : : #endif
6351 : 0 : FCf3=((a-lnz)/latl);
6352 : : #if defined(_DERIVATE)
6353 : 0 : FCdf3_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
6354 : 0 : FCdf3_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
6355 : 0 : FCdf3_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
6356 : 0 : FCdf3_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
6357 : : #endif
6358 : 0 : FCdf3_dw=(a/(1.0+a));
6359 : : }
6360 : : else
6361 : : {
6362 : : #if defined(_DERIVATE)
6363 : 0 : FCf3_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
6364 : 0 : FCf3_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
6365 : 0 : FCf3_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
6366 : 0 : FCf3_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
6367 : : #endif
6368 : 0 : FCf3=((0.5*a)*FCw);
6369 : : #if defined(_DERIVATE)
6370 : 0 : FCdf3_dw_Vci_ei=a_Vci_ei;
6371 : 0 : FCdf3_dw_Vtnode_GND=a_Vtnode_GND;
6372 : 0 : FCdf3_dw_Vbi_ei=a_Vbi_ei;
6373 : 0 : FCdf3_dw_Vbi_ci=a_Vbi_ci;
6374 : : #endif
6375 : 0 : FCdf3_dw=a;
6376 : : }
6377 : : #if defined(_DERIVATE)
6378 : 0 : FCf_CT_Vbi_ei=((FCf_CT_Vbi_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ei-FCf3_Vbi_ei)));
6379 : 0 : FCf_CT_Vbi_ci=((FCf_CT_Vbi_ci*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ci-FCf3_Vbi_ci)));
6380 : 0 : FCf_CT_Vci_ei=((FCf_CT_Vci_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vci_ei-FCf3_Vci_ei)));
6381 : 0 : FCf_CT_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCf2-FCf3))+(FCf_CT*(FCf2_Vtnode_GND-FCf3_Vtnode_GND)));
6382 : : #endif
6383 : 0 : FCf_CT=(FCf_CT*(FCf2-FCf3));
6384 : : #if defined(_DERIVATE)
6385 : 0 : FCdfCT_dw_Vbi_ei=((FCf_CT_Vbi_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ei-FCdf3_dw_Vbi_ei)));
6386 : 0 : FCdfCT_dw_Vbi_ci=((FCf_CT_Vbi_ci*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ci-FCdf3_dw_Vbi_ci)));
6387 : 0 : FCdfCT_dw_Vci_ei=((FCf_CT_Vci_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vci_ei-FCdf3_dw_Vci_ei)));
6388 : 0 : FCdfCT_dw_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vtnode_GND-FCdf3_dw_Vtnode_GND)));
6389 : : #endif
6390 : 0 : FCdfCT_dw=(FCf_CT*(FCdf2_dw-FCdf3_dw));
6391 : : #if defined(_DERIVATE)
6392 : 0 : FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
6393 : 0 : FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
6394 : 0 : FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
6395 : 0 : FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
6396 : : #endif
6397 : 0 : FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
6398 : : }
6399 : : else
6400 : : {
6401 : : #if defined(_DERIVATE)
6402 : 0 : FCf_CT_Vbi_ei=FCf_ci_Vbi_ei;
6403 : 0 : FCf_CT_Vbi_ci=FCf_ci_Vbi_ci;
6404 : 0 : FCf_CT_Vci_ei=FCf_ci_Vci_ei;
6405 : 0 : FCf_CT_Vtnode_GND=FCf_ci_Vtnode_GND;
6406 : : #endif
6407 : 0 : FCf_CT=FCf_ci;
6408 : : #if defined(_DERIVATE)
6409 : 0 : FCdfCT_ditf_Vbi_ei=FCdfc_ditf_Vbi_ei;
6410 : 0 : FCdfCT_ditf_Vbi_ci=FCdfc_ditf_Vbi_ci;
6411 : 0 : FCdfCT_ditf_Vci_ei=FCdfc_ditf_Vci_ei;
6412 : 0 : FCdfCT_ditf_Vtnode_GND=FCdfc_ditf_Vtnode_GND;
6413 : : #endif
6414 : 0 : FCdfCT_ditf=FCdfc_ditf;
6415 : : }
6416 : : }
6417 : : else
6418 : : {
6419 [ # # ]: 0 : if
6420 : : (latb>0.01)
6421 : : {
6422 : : #if defined(_DERIVATE)
6423 : 0 : FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6424 : 0 : FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6425 : 0 : FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6426 : 0 : FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6427 : : #endif
6428 : 0 : FCd_a=(1.0/(1.0+(FCa_ck*latb)));
6429 : : #if defined(_DERIVATE)
6430 : 0 : FCw_Vci_ei=(((-FCa_ck_Vci_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vci_ei));
6431 : 0 : FCw_Vtnode_GND=(((-FCa_ck_Vtnode_GND)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vtnode_GND));
6432 : 0 : FCw_Vbi_ei=(((-FCa_ck_Vbi_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ei));
6433 : 0 : FCw_Vbi_ci=(((-FCa_ck_Vbi_ci)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ci));
6434 : : #endif
6435 : 0 : FCw=((1.0-FCa_ck)*FCd_a);
6436 : : #if defined(_DERIVATE)
6437 : 0 : FCdw_daick_Vci_ei=((((-(1.0+latb))*FCd_a_Vci_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vci_ei));
6438 : 0 : FCdw_daick_Vtnode_GND=((((-(1.0+latb))*FCd_a_Vtnode_GND)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vtnode_GND));
6439 : 0 : FCdw_daick_Vbi_ei=((((-(1.0+latb))*FCd_a_Vbi_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ei));
6440 : 0 : FCdw_daick_Vbi_ci=((((-(1.0+latb))*FCd_a_Vbi_ci)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ci));
6441 : : #endif
6442 : 0 : FCdw_daick=(((-(1.0+latb))*FCd_a)*FCd_a);
6443 : : }
6444 : : else
6445 : : {
6446 : : #if defined(_DERIVATE)
6447 : 0 : FCw_Vci_ei=((-FCa_ck_Vci_ei)-FCa_ck_Vci_ei*latb);
6448 : 0 : FCw_Vtnode_GND=((-FCa_ck_Vtnode_GND)-FCa_ck_Vtnode_GND*latb);
6449 : 0 : FCw_Vbi_ei=((-FCa_ck_Vbi_ei)-FCa_ck_Vbi_ei*latb);
6450 : 0 : FCw_Vbi_ci=((-FCa_ck_Vbi_ci)-FCa_ck_Vbi_ci*latb);
6451 : : #endif
6452 : 0 : FCw=((1.0-FCa_ck)-(FCa_ck*latb));
6453 : : #if defined(_DERIVATE)
6454 : 0 : FCdw_daick_Vci_ei=0.0;
6455 : 0 : FCdw_daick_Vtnode_GND=0.0;
6456 : 0 : FCdw_daick_Vbi_ei=0.0;
6457 : 0 : FCdw_daick_Vbi_ci=0.0;
6458 : : #endif
6459 : 0 : FCdw_daick=(-(1.0+latb));
6460 : : }
6461 : : #if defined(_DERIVATE)
6462 : 0 : FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
6463 : 0 : FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
6464 : 0 : FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
6465 : 0 : FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
6466 : : #endif
6467 : 0 : FCw2=(FCw*FCw);
6468 : : #if defined(_DERIVATE)
6469 : 0 : FCz_Vci_ei=(latb*FCw_Vci_ei);
6470 : 0 : FCz_Vtnode_GND=(latb*FCw_Vtnode_GND);
6471 : 0 : FCz_Vbi_ei=(latb*FCw_Vbi_ei);
6472 : 0 : FCz_Vbi_ci=(latb*FCw_Vbi_ci);
6473 : : #endif
6474 : 0 : FCz=(latb*FCw);
6475 : : #if defined(_DERIVATE)
6476 : 0 : FCz_1_Vci_ei=FCz_Vci_ei;
6477 : 0 : FCz_1_Vtnode_GND=FCz_Vtnode_GND;
6478 : 0 : FCz_1_Vbi_ei=FCz_Vbi_ei;
6479 : 0 : FCz_1_Vbi_ci=FCz_Vbi_ci;
6480 : : #endif
6481 : 0 : FCz_1=(1.0+FCz);
6482 : : #if defined(_DERIVATE)
6483 : 0 : FCd_f_Vci_ei=(-FCz_1_Vci_ei/FCz_1/FCz_1);
6484 : 0 : FCd_f_Vtnode_GND=(-FCz_1_Vtnode_GND/FCz_1/FCz_1);
6485 : 0 : FCd_f_Vbi_ei=(-FCz_1_Vbi_ei/FCz_1/FCz_1);
6486 : 0 : FCd_f_Vbi_ci=(-FCz_1_Vbi_ci/FCz_1/FCz_1);
6487 : : #endif
6488 : 0 : FCd_f=(1.0/FCz_1);
6489 : : #if defined(_DERIVATE)
6490 : 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));
6491 : 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));
6492 : 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));
6493 : 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));
6494 : : #endif
6495 : 0 : FCf_ci=((FCw2*(1.0+(FCz/3.0)))*FCd_f);
6496 : : #if defined(_DERIVATE)
6497 : 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));
6498 : 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));
6499 : 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));
6500 : 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));
6501 : : #endif
6502 : 0 : FCdfc_dw=((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
6503 : : #if defined(_DERIVATE)
6504 : 0 : FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
6505 : 0 : FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
6506 : 0 : FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
6507 : 0 : FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
6508 : : #endif
6509 : 0 : FCdw_ditf=(FCdw_daick*FCdaick_ditf);
6510 : : #if defined(_DERIVATE)
6511 : 0 : FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
6512 : 0 : FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
6513 : 0 : FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
6514 : 0 : FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
6515 : : #endif
6516 : 0 : FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
6517 [ # # ][ # # ]: 0 : if
6518 : : ((flcomp==0.0)||(flcomp==2.1))
6519 : : {
6520 [ # # ]: 0 : if
6521 : : (FCz>0.001)
6522 : : {
6523 : : {
6524 : 0 : double m00_logE(d00_logE0,FCz_1)
6525 : : #if defined(_DERIVATE)
6526 : 0 : double m10_logE(d10_logE0,d00_logE0,FCz_1)
6527 : : #endif
6528 : : #if defined(_DERIVATE)
6529 : 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));
6530 : 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));
6531 : 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));
6532 : 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));
6533 : : #endif
6534 : 0 : FCf_CT=((2.0*((FCz_1*d00_logE0)-FCz))/((latb*latb)*FCz_1));
6535 : : }
6536 : : #if defined(_DERIVATE)
6537 : 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));
6538 : 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));
6539 : 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));
6540 : 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));
6541 : : #endif
6542 : 0 : FCdfCT_dw=(((2.0*FCw)*FCd_f)*FCd_f);
6543 : : }
6544 : : else
6545 : : {
6546 : : #if defined(_DERIVATE)
6547 : 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));
6548 : 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));
6549 : 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));
6550 : 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));
6551 : : #endif
6552 : 0 : FCf_CT=((FCw2*(1.0-(FCz/3.0)))*FCd_f);
6553 : : #if defined(_DERIVATE)
6554 : 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));
6555 : 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));
6556 : 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));
6557 : 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));
6558 : : #endif
6559 : 0 : FCdfCT_dw=((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
6560 : : }
6561 : : #if defined(_DERIVATE)
6562 : 0 : FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
6563 : 0 : FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
6564 : 0 : FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
6565 : 0 : FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
6566 : : #endif
6567 : 0 : FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
6568 : : }
6569 : : else
6570 : : {
6571 : : #if defined(_DERIVATE)
6572 : 0 : FCf_CT_Vbi_ei=FCf_ci_Vbi_ei;
6573 : 0 : FCf_CT_Vbi_ci=FCf_ci_Vbi_ci;
6574 : 0 : FCf_CT_Vci_ei=FCf_ci_Vci_ei;
6575 : 0 : FCf_CT_Vtnode_GND=FCf_ci_Vtnode_GND;
6576 : : #endif
6577 : 0 : FCf_CT=FCf_ci;
6578 : : #if defined(_DERIVATE)
6579 : 0 : FCdfCT_ditf_Vbi_ei=FCdfc_ditf_Vbi_ei;
6580 : 0 : FCdfCT_ditf_Vbi_ci=FCdfc_ditf_Vbi_ci;
6581 : 0 : FCdfCT_ditf_Vci_ei=FCdfc_ditf_Vci_ei;
6582 : 0 : FCdfCT_ditf_Vtnode_GND=FCdfc_ditf_Vtnode_GND;
6583 : : #endif
6584 : 0 : FCdfCT_ditf=FCdfc_ditf;
6585 : : }
6586 : : }
6587 : : {
6588 : 0 : double m00_exp(d00_exp0,((FFdVc-vcbar)/VT))
6589 : : #if defined(_DERIVATE)
6590 : : #define d10_exp0 d00_exp0
6591 : : #endif
6592 : : #if defined(_DERIVATE)
6593 : 0 : FFdQcfcT_Vtnode_GND=((((FFdQcfc_Vtnode_GND*FCf_CT)+(FFdQcfc*FCf_CT_Vtnode_GND))*d00_exp0)+((FFdQcfc*FCf_CT)*((FFdVc_Vtnode_GND*VT-(FFdVc-vcbar)*VT_Vtnode_GND)/VT/VT)*d10_exp0));
6594 : 0 : FFdQcfcT_Vbi_ei=((((FFdQcfc_Vbi_ei*FCf_CT)+(FFdQcfc*FCf_CT_Vbi_ei))*d00_exp0)+((FFdQcfc*FCf_CT)*(FFdVc_Vbi_ei/VT)*d10_exp0));
6595 : 0 : FFdQcfcT_Vbi_ci=((((FFdQcfc_Vbi_ci*FCf_CT)+(FFdQcfc*FCf_CT_Vbi_ci))*d00_exp0)+((FFdQcfc*FCf_CT)*(FFdVc_Vbi_ci/VT)*d10_exp0));
6596 : 0 : FFdQcfcT_Vci_ei=((((FFdQcfc_Vci_ei*FCf_CT)+(FFdQcfc*FCf_CT_Vci_ei))*d00_exp0)+((FFdQcfc*FCf_CT)*(FFdVc_Vci_ei/VT)*d10_exp0));
6597 : : #endif
6598 : 0 : FFdQcfcT=((FFdQcfc*FCf_CT)*d00_exp0);
6599 : : }
6600 : : {
6601 : 0 : double m00_exp(d00_exp0,((FFdVc-vcbar)/VT))
6602 : : #if defined(_DERIVATE)
6603 : : #define d10_exp0 d00_exp0
6604 : : #endif
6605 : : #if defined(_DERIVATE)
6606 : 0 : FFdQcfc_Vtnode_GND=((((FFdQcfc_Vtnode_GND*FCf_ci)+(FFdQcfc*FCf_ci_Vtnode_GND))*d00_exp0)+((FFdQcfc*FCf_ci)*((FFdVc_Vtnode_GND*VT-(FFdVc-vcbar)*VT_Vtnode_GND)/VT/VT)*d10_exp0));
6607 : 0 : FFdQcfc_Vbi_ei=((((FFdQcfc_Vbi_ei*FCf_ci)+(FFdQcfc*FCf_ci_Vbi_ei))*d00_exp0)+((FFdQcfc*FCf_ci)*(FFdVc_Vbi_ei/VT)*d10_exp0));
6608 : 0 : FFdQcfc_Vbi_ci=((((FFdQcfc_Vbi_ci*FCf_ci)+(FFdQcfc*FCf_ci_Vbi_ci))*d00_exp0)+((FFdQcfc*FCf_ci)*(FFdVc_Vbi_ci/VT)*d10_exp0));
6609 : 0 : FFdQcfc_Vci_ei=((((FFdQcfc_Vci_ei*FCf_ci)+(FFdQcfc*FCf_ci_Vci_ei))*d00_exp0)+((FFdQcfc*FCf_ci)*(FFdVc_Vci_ei/VT)*d10_exp0));
6610 : : #endif
6611 : 0 : FFdQcfc=((FFdQcfc*FCf_ci)*d00_exp0);
6612 : : }
6613 : : {
6614 : 0 : double m00_exp(d00_exp0,((FFdVc-vcbar)/VT))
6615 : : #if defined(_DERIVATE)
6616 : : #define d10_exp0 d00_exp0
6617 : : #endif
6618 : : #if defined(_DERIVATE)
6619 : 0 : FFdTcfc_Vtnode_GND=((((((fthc*thcs_t_Vtnode_GND)*d00_exp0)+((fthc*thcs_t)*((FFdVc_Vtnode_GND*VT-(FFdVc-vcbar)*VT_Vtnode_GND)/VT/VT)*d10_exp0))*(FCf_ci+(itf*FCdfc_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_ci_Vtnode_GND+((itf_Vtnode_GND*FCdfc_ditf)+(itf*FCdfc_ditf_Vtnode_GND)))))+((((FFdQcfc_Vtnode_GND*VT-FFdQcfc*VT_Vtnode_GND)/VT/VT)*FFdVc_ditf)+((FFdQcfc/VT)*FFdVc_ditf_Vtnode_GND)));
6620 : 0 : FFdTcfc_Vbi_ei=(((((fthc*thcs_t)*(FFdVc_Vbi_ei/VT)*d10_exp0)*(FCf_ci+(itf*FCdfc_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_ci_Vbi_ei+((itf_Vbi_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ei)))))+(((FFdQcfc_Vbi_ei/VT)*FFdVc_ditf)+((FFdQcfc/VT)*FFdVc_ditf_Vbi_ei)));
6621 : 0 : FFdTcfc_Vbi_ci=(((((fthc*thcs_t)*(FFdVc_Vbi_ci/VT)*d10_exp0)*(FCf_ci+(itf*FCdfc_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_ci_Vbi_ci+((itf_Vbi_ci*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ci)))))+(((FFdQcfc_Vbi_ci/VT)*FFdVc_ditf)+((FFdQcfc/VT)*FFdVc_ditf_Vbi_ci)));
6622 : 0 : FFdTcfc_Vci_ei=(((((fthc*thcs_t)*(FFdVc_Vci_ei/VT)*d10_exp0)*(FCf_ci+(itf*FCdfc_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_ci_Vci_ei+((itf_Vci_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vci_ei)))))+(((FFdQcfc_Vci_ei/VT)*FFdVc_ditf)+((FFdQcfc/VT)*FFdVc_ditf_Vci_ei)));
6623 : : #endif
6624 : 0 : FFdTcfc=((((fthc*thcs_t)*d00_exp0)*(FCf_ci+(itf*FCdfc_ditf)))+((FFdQcfc/VT)*FFdVc_ditf));
6625 : : }
6626 : : {
6627 : 0 : double m00_exp(d00_exp0,((FFdVc-vcbar)/VT))
6628 : : #if defined(_DERIVATE)
6629 : : #define d10_exp0 d00_exp0
6630 : : #endif
6631 : : #if defined(_DERIVATE)
6632 : 0 : FFdTcfcT_Vtnode_GND=((((((fthc*thcs_t_Vtnode_GND)*d00_exp0)+((fthc*thcs_t)*((FFdVc_Vtnode_GND*VT-(FFdVc-vcbar)*VT_Vtnode_GND)/VT/VT)*d10_exp0))*(FCf_CT+(itf*FCdfCT_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_CT_Vtnode_GND+((itf_Vtnode_GND*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vtnode_GND)))))+((((FFdQcfcT_Vtnode_GND*VT-FFdQcfcT*VT_Vtnode_GND)/VT/VT)*FFdVc_ditf)+((FFdQcfcT/VT)*FFdVc_ditf_Vtnode_GND)));
6633 : 0 : FFdTcfcT_Vbi_ei=(((((fthc*thcs_t)*(FFdVc_Vbi_ei/VT)*d10_exp0)*(FCf_CT+(itf*FCdfCT_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_CT_Vbi_ei+((itf_Vbi_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ei)))))+(((FFdQcfcT_Vbi_ei/VT)*FFdVc_ditf)+((FFdQcfcT/VT)*FFdVc_ditf_Vbi_ei)));
6634 : 0 : FFdTcfcT_Vbi_ci=(((((fthc*thcs_t)*(FFdVc_Vbi_ci/VT)*d10_exp0)*(FCf_CT+(itf*FCdfCT_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_CT_Vbi_ci+((itf_Vbi_ci*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ci)))))+(((FFdQcfcT_Vbi_ci/VT)*FFdVc_ditf)+((FFdQcfcT/VT)*FFdVc_ditf_Vbi_ci)));
6635 : 0 : FFdTcfcT_Vci_ei=(((((fthc*thcs_t)*(FFdVc_Vci_ei/VT)*d10_exp0)*(FCf_CT+(itf*FCdfCT_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_CT_Vci_ei+((itf_Vci_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vci_ei)))))+(((FFdQcfcT_Vci_ei/VT)*FFdVc_ditf)+((FFdQcfcT/VT)*FFdVc_ditf_Vci_ei)));
6636 : : #endif
6637 : 0 : FFdTcfcT=((((fthc*thcs_t)*d00_exp0)*(FCf_CT+(itf*FCdfCT_ditf)))+((FFdQcfcT/VT)*FFdVc_ditf));
6638 : : }
6639 : : }
6640 : : #if defined(_DERIVATE)
6641 : 0 : FFdQbfc_Vtnode_GND=((1-fthc)*FFdQfhc_Vtnode_GND);
6642 : 0 : FFdQbfc_Vbi_ei=((1-fthc)*FFdQfhc_Vbi_ei);
6643 : 0 : FFdQbfc_Vbi_ci=((1-fthc)*FFdQfhc_Vbi_ci);
6644 : 0 : FFdQbfc_Vci_ei=((1-fthc)*FFdQfhc_Vci_ei);
6645 : : #endif
6646 : 0 : FFdQbfc=((1-fthc)*FFdQfhc);
6647 : : #if defined(_DERIVATE)
6648 : 0 : FFdTbfc_Vtnode_GND=((1-fthc)*FFdTfhc_Vtnode_GND);
6649 : 0 : FFdTbfc_Vbi_ei=((1-fthc)*FFdTfhc_Vbi_ei);
6650 : 0 : FFdTbfc_Vbi_ci=((1-fthc)*FFdTfhc_Vbi_ci);
6651 : 0 : FFdTbfc_Vci_ei=((1-fthc)*FFdTfhc_Vci_ei);
6652 : : #endif
6653 : 0 : FFdTbfc=((1-fthc)*FFdTfhc);
6654 : : #if defined(_DERIVATE)
6655 : 0 : Q_fT_Vci_ei=(((((hf0_t*Qf_Vci_ei)+FFdQbfb_Vci_ei)+FFdQbfc_Vci_ei)+(hfe_t*FFdQef_Vci_ei))+(hfc_t*FFdQcfcT_Vci_ei));
6656 : 0 : Q_fT_Vtnode_GND=((((((hf0_t_Vtnode_GND*Qf)+(hf0_t*Qf_Vtnode_GND))+FFdQbfb_Vtnode_GND)+FFdQbfc_Vtnode_GND)+((hfe_t_Vtnode_GND*FFdQef)+(hfe_t*FFdQef_Vtnode_GND)))+((hfc_t_Vtnode_GND*FFdQcfcT)+(hfc_t*FFdQcfcT_Vtnode_GND)));
6657 : 0 : Q_fT_Vbi_ci=(((((hf0_t*Qf_Vbi_ci)+FFdQbfb_Vbi_ci)+FFdQbfc_Vbi_ci)+(hfe_t*FFdQef_Vbi_ci))+(hfc_t*FFdQcfcT_Vbi_ci));
6658 : 0 : Q_fT_Vbi_ei=(((((hf0_t*Qf_Vbi_ei)+FFdQbfb_Vbi_ei)+FFdQbfc_Vbi_ei)+(hfe_t*FFdQef_Vbi_ei))+(hfc_t*FFdQcfcT_Vbi_ei));
6659 : : #endif
6660 : 0 : Q_fT=(((((hf0_t*Qf)+FFdQbfb)+FFdQbfc)+(hfe_t*FFdQef))+(hfc_t*FFdQcfcT));
6661 : : #if defined(_DERIVATE)
6662 : 0 : T_fT_Vbi_ei=(((((hf0_t*Tf_Vbi_ei)+FFdTbfb_Vbi_ei)+FFdTbfc_Vbi_ei)+(hfe_t*FFdTef_Vbi_ei))+(hfc_t*FFdTcfcT_Vbi_ei));
6663 : 0 : T_fT_Vci_ei=(((((hf0_t*Tf_Vci_ei)+FFdTbfb_Vci_ei)+FFdTbfc_Vci_ei)+(hfe_t*FFdTef_Vci_ei))+(hfc_t*FFdTcfcT_Vci_ei));
6664 : 0 : T_fT_Vtnode_GND=((((((hf0_t_Vtnode_GND*Tf)+(hf0_t*Tf_Vtnode_GND))+FFdTbfb_Vtnode_GND)+FFdTbfc_Vtnode_GND)+((hfe_t_Vtnode_GND*FFdTef)+(hfe_t*FFdTef_Vtnode_GND)))+((hfc_t_Vtnode_GND*FFdTcfcT)+(hfc_t*FFdTcfcT_Vtnode_GND)));
6665 : 0 : T_fT_Vbi_ci=(((((hf0_t*Tf_Vbi_ci)+FFdTbfb_Vbi_ci)+FFdTbfc_Vbi_ci)+(hfe_t*FFdTef_Vbi_ci))+(hfc_t*FFdTcfcT_Vbi_ci));
6666 : : #endif
6667 : 0 : T_fT=(((((hf0_t*Tf)+FFdTbfb)+FFdTbfc)+(hfe_t*FFdTef))+(hfc_t*FFdTcfcT));
6668 : : #if defined(_DERIVATE)
6669 : 0 : Qf_Vci_ei=(((Qf_Vci_ei+(FFdQbfb_Vci_ei+FFdQbfc_Vci_ei))+FFdQef_Vci_ei)+FFdQcfc_Vci_ei);
6670 : 0 : Qf_Vtnode_GND=(((Qf_Vtnode_GND+(FFdQbfb_Vtnode_GND+FFdQbfc_Vtnode_GND))+FFdQef_Vtnode_GND)+FFdQcfc_Vtnode_GND);
6671 : 0 : Qf_Vbi_ci=(((Qf_Vbi_ci+(FFdQbfb_Vbi_ci+FFdQbfc_Vbi_ci))+FFdQef_Vbi_ci)+FFdQcfc_Vbi_ci);
6672 : 0 : Qf_Vbi_ei=(((Qf_Vbi_ei+(FFdQbfb_Vbi_ei+FFdQbfc_Vbi_ei))+FFdQef_Vbi_ei)+FFdQcfc_Vbi_ei);
6673 : : #endif
6674 : 0 : Qf=(((Qf+(FFdQbfb+FFdQbfc))+FFdQef)+FFdQcfc);
6675 : : #if defined(_DERIVATE)
6676 : 0 : Tf_Vbi_ei=(((Tf_Vbi_ei+(FFdTbfb_Vbi_ei+FFdTbfc_Vbi_ei))+FFdTef_Vbi_ei)+FFdTcfc_Vbi_ei);
6677 : 0 : Tf_Vci_ei=(((Tf_Vci_ei+(FFdTbfb_Vci_ei+FFdTbfc_Vci_ei))+FFdTef_Vci_ei)+FFdTcfc_Vci_ei);
6678 : 0 : Tf_Vtnode_GND=(((Tf_Vtnode_GND+(FFdTbfb_Vtnode_GND+FFdTbfc_Vtnode_GND))+FFdTef_Vtnode_GND)+FFdTcfc_Vtnode_GND);
6679 : 0 : Tf_Vbi_ci=(((Tf_Vbi_ci+(FFdTbfb_Vbi_ci+FFdTbfc_Vbi_ci))+FFdTef_Vbi_ci)+FFdTcfc_Vbi_ci);
6680 : : #endif
6681 : 0 : Tf=(((Tf+(FFdTbfb+FFdTbfc))+FFdTef)+FFdTcfc);
6682 : : #if defined(_DERIVATE)
6683 : 0 : Q_bf_Vtnode_GND=(FFdQbfb_Vtnode_GND+FFdQbfc_Vtnode_GND);
6684 : 0 : Q_bf_Vbi_ei=(FFdQbfb_Vbi_ei+FFdQbfc_Vbi_ei);
6685 : 0 : Q_bf_Vbi_ci=(FFdQbfb_Vbi_ci+FFdQbfc_Vbi_ci);
6686 : 0 : Q_bf_Vci_ei=(FFdQbfb_Vci_ei+FFdQbfc_Vci_ei);
6687 : : #endif
6688 : 0 : Q_bf=(FFdQbfb+FFdQbfc);
6689 : : }
6690 : : #if defined(_DERIVATE)
6691 : 0 : Qr_Vci_ei=0.0;
6692 : 0 : Qr_Vtnode_GND=(Tr*itr_Vtnode_GND);
6693 : 0 : Qr_Vbi_ci=(Tr*itr_Vbi_ci);
6694 : 0 : Qr_Vbi_ei=(Tr*itr_Vbi_ei);
6695 : : #endif
6696 : 0 : Qr=(Tr*itr);
6697 : 0 : l_it=0;
6698 [ # # ][ # # ]: 0 : if
6699 : : ((Qf>(1.0e-5*Q_p))||(a_h>1.0e-5))
6700 : : {
6701 : : {
6702 : 0 : double m00_sqrt(d00_sqrt0,((T_f0*itf)*Q_fT))
6703 : : #if defined(_DERIVATE)
6704 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((T_f0*itf)*Q_fT))
6705 : : #endif
6706 : : #if defined(_DERIVATE)
6707 : 0 : Qf_Vci_ei=(((T_f0*itf_Vci_ei)*Q_fT)+((T_f0*itf)*Q_fT_Vci_ei))*d10_sqrt0;
6708 : 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;
6709 : 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;
6710 : 0 : Qf_Vbi_ei=(((T_f0*itf_Vbi_ei)*Q_fT)+((T_f0*itf)*Q_fT_Vbi_ei))*d10_sqrt0;
6711 : : #endif
6712 : 0 : Qf=d00_sqrt0;
6713 : : }
6714 : : #if defined(_DERIVATE)
6715 : 0 : Q_pT_Vtnode_GND=((Q_0_Vtnode_GND+Qf_Vtnode_GND)+Qr_Vtnode_GND);
6716 : 0 : Q_pT_Vbi_ei=((Q_0_Vbi_ei+Qf_Vbi_ei)+Qr_Vbi_ei);
6717 : 0 : Q_pT_Vbi_ci=((Q_0_Vbi_ci+Qf_Vbi_ci)+Qr_Vbi_ci);
6718 : 0 : Q_pT_Vci_ei=(Qf_Vci_ei+Qr_Vci_ei);
6719 : : #endif
6720 : 0 : Q_pT=((Q_0+Qf)+Qr);
6721 : : #if defined(_DERIVATE)
6722 : 0 : d_Q_Vtnode_GND=Q_pT_Vtnode_GND;
6723 : 0 : d_Q_Vbi_ei=Q_pT_Vbi_ei;
6724 : 0 : d_Q_Vbi_ci=Q_pT_Vbi_ci;
6725 : 0 : d_Q_Vci_ei=Q_pT_Vci_ei;
6726 : : #endif
6727 : 0 : d_Q=Q_pT;
6728 [ # # ][ # # ]: 0 : while
[ # # ]
6729 : 0 : (((abs(d_Q)>=(1.0e-5*abs(Q_pT)))&&(l_it<=100)))
6730 : : {
6731 : : #if defined(_DYNAMIC)
6732 : 0 : d_Q0=d_Q;
6733 : : #endif
6734 : : #if defined(_DERIVATE)
6735 : 0 : I_Tf1_Vci_ei=(-i_0f*Q_pT_Vci_ei/Q_pT/Q_pT);
6736 : 0 : I_Tf1_Vtnode_GND=((i_0f_Vtnode_GND*Q_pT-i_0f*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
6737 : 0 : I_Tf1_Vbi_ei=((i_0f_Vbi_ei*Q_pT-i_0f*Q_pT_Vbi_ei)/Q_pT/Q_pT);
6738 : 0 : I_Tf1_Vbi_ci=(-i_0f*Q_pT_Vbi_ci/Q_pT/Q_pT);
6739 : : #endif
6740 : 0 : I_Tf1=(i_0f/Q_pT);
6741 : : #if defined(_DERIVATE)
6742 : 0 : a_h_Vci_ei=(Oich*I_Tf1_Vci_ei);
6743 : 0 : a_h_Vtnode_GND=(Oich*I_Tf1_Vtnode_GND);
6744 : 0 : a_h_Vbi_ei=(Oich*I_Tf1_Vbi_ei);
6745 : 0 : a_h_Vbi_ci=(Oich*I_Tf1_Vbi_ci);
6746 : : #endif
6747 : 0 : a_h=(Oich*I_Tf1);
6748 : : #if defined(_DERIVATE)
6749 : 0 : itf_Vci_ei=((I_Tf1_Vci_ei*(1.0+a_h))+(I_Tf1*a_h_Vci_ei));
6750 : 0 : itf_Vtnode_GND=((I_Tf1_Vtnode_GND*(1.0+a_h))+(I_Tf1*a_h_Vtnode_GND));
6751 : 0 : itf_Vbi_ei=((I_Tf1_Vbi_ei*(1.0+a_h))+(I_Tf1*a_h_Vbi_ei));
6752 : 0 : itf_Vbi_ci=((I_Tf1_Vbi_ci*(1.0+a_h))+(I_Tf1*a_h_Vbi_ci));
6753 : : #endif
6754 : 0 : itf=(I_Tf1*(1.0+a_h));
6755 : : #if defined(_DERIVATE)
6756 : 0 : itr_Vci_ei=(-i_0r*Q_pT_Vci_ei/Q_pT/Q_pT);
6757 : 0 : itr_Vtnode_GND=((i_0r_Vtnode_GND*Q_pT-i_0r*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
6758 : 0 : itr_Vbi_ci=((i_0r_Vbi_ci*Q_pT-i_0r*Q_pT_Vbi_ci)/Q_pT/Q_pT);
6759 : 0 : itr_Vbi_ei=(-i_0r*Q_pT_Vbi_ei/Q_pT/Q_pT);
6760 : : #endif
6761 : 0 : itr=(i_0r/Q_pT);
6762 : : #if defined(_DERIVATE)
6763 : 0 : Tf_Vbi_ei=0.0;
6764 : 0 : Tf_Vci_ei=0.0;
6765 : 0 : Tf_Vtnode_GND=T_f0_Vtnode_GND;
6766 : 0 : Tf_Vbi_ci=T_f0_Vbi_ci;
6767 : : #endif
6768 : 0 : Tf=T_f0;
6769 : : #if defined(_DERIVATE)
6770 : 0 : Qf_Vci_ei=(T_f0*itf_Vci_ei);
6771 : 0 : Qf_Vtnode_GND=((T_f0_Vtnode_GND*itf)+(T_f0*itf_Vtnode_GND));
6772 : 0 : Qf_Vbi_ci=((T_f0_Vbi_ci*itf)+(T_f0*itf_Vbi_ci));
6773 : 0 : Qf_Vbi_ei=(T_f0*itf_Vbi_ei);
6774 : : #endif
6775 : 0 : Qf=(T_f0*itf);
6776 [ # # ]: 0 : if
6777 : : (itf<(1.0e-6*ick))
6778 : : {
6779 : : #if defined(_DERIVATE)
6780 : 0 : Q_fT_Vci_ei=Qf_Vci_ei;
6781 : 0 : Q_fT_Vtnode_GND=Qf_Vtnode_GND;
6782 : 0 : Q_fT_Vbi_ci=Qf_Vbi_ci;
6783 : 0 : Q_fT_Vbi_ei=Qf_Vbi_ei;
6784 : : #endif
6785 : 0 : Q_fT=Qf;
6786 : : #if defined(_DERIVATE)
6787 : 0 : T_fT_Vbi_ei=Tf_Vbi_ei;
6788 : 0 : T_fT_Vci_ei=Tf_Vci_ei;
6789 : 0 : T_fT_Vtnode_GND=Tf_Vtnode_GND;
6790 : 0 : T_fT_Vbi_ci=Tf_Vbi_ci;
6791 : : #endif
6792 : 0 : T_fT=Tf;
6793 : : }
6794 : : else
6795 : : {
6796 : : #if defined(_DERIVATE)
6797 : 0 : FFitf_ick_Vtnode_GND=((itf_Vtnode_GND*ick-itf*ick_Vtnode_GND)/ick/ick);
6798 : 0 : FFitf_ick_Vbi_ei=(itf_Vbi_ei/ick);
6799 : 0 : FFitf_ick_Vbi_ci=(itf_Vbi_ci/ick);
6800 : 0 : FFitf_ick_Vci_ei=((itf_Vci_ei*ick-itf*ick_Vci_ei)/ick/ick);
6801 : : #endif
6802 : 0 : FFitf_ick=(itf/ick);
6803 : : {
6804 : 0 : double m00_logE(d00_logE0,FFitf_ick)
6805 : 0 : double m00_exp(d00_exp1,(gtfe*d00_logE0))
6806 : : #if defined(_DERIVATE)
6807 : 0 : double m10_logE(d10_logE0,d00_logE0,FFitf_ick)
6808 : : #define d10_exp1 d00_exp1
6809 : : #endif
6810 : : #if defined(_DERIVATE)
6811 : 0 : FFdTef_Vtnode_GND=((tef0_t_Vtnode_GND*d00_exp1)+(tef0_t*(gtfe*FFitf_ick_Vtnode_GND*d10_logE0)*d10_exp1));
6812 : 0 : FFdTef_Vbi_ei=(tef0_t*(gtfe*FFitf_ick_Vbi_ei*d10_logE0)*d10_exp1);
6813 : 0 : FFdTef_Vbi_ci=(tef0_t*(gtfe*FFitf_ick_Vbi_ci*d10_logE0)*d10_exp1);
6814 : 0 : FFdTef_Vci_ei=(tef0_t*(gtfe*FFitf_ick_Vci_ei*d10_logE0)*d10_exp1);
6815 : : #endif
6816 : 0 : FFdTef=(tef0_t*d00_exp1);
6817 : : }
6818 : : #if defined(_DERIVATE)
6819 : 0 : FFdQef_Vtnode_GND=(((FFdTef_Vtnode_GND*itf)+(FFdTef*itf_Vtnode_GND))/(1+gtfe));
6820 : 0 : FFdQef_Vbi_ei=(((FFdTef_Vbi_ei*itf)+(FFdTef*itf_Vbi_ei))/(1+gtfe));
6821 : 0 : FFdQef_Vbi_ci=(((FFdTef_Vbi_ci*itf)+(FFdTef*itf_Vbi_ci))/(1+gtfe));
6822 : 0 : FFdQef_Vci_ei=(((FFdTef_Vci_ei*itf)+(FFdTef*itf_Vci_ei))/(1+gtfe));
6823 : : #endif
6824 : 0 : FFdQef=((FFdTef*itf)/(1+gtfe));
6825 [ # # ]: 0 : if
6826 : : (icbar<1e-10)
6827 : : {
6828 : : #if defined(_DERIVATE)
6829 : 0 : FFdVc_Vtnode_GND=0.0;
6830 : 0 : FFdVc_Vbi_ei=0.0;
6831 : 0 : FFdVc_Vbi_ci=0.0;
6832 : 0 : FFdVc_Vci_ei=0.0;
6833 : : #endif
6834 : 0 : FFdVc=0;
6835 : : #if defined(_DERIVATE)
6836 : 0 : FFdVc_ditf_Vtnode_GND=0.0;
6837 : 0 : FFdVc_ditf_Vbi_ei=0.0;
6838 : 0 : FFdVc_ditf_Vbi_ci=0.0;
6839 : 0 : FFdVc_ditf_Vci_ei=0.0;
6840 : : #endif
6841 : 0 : FFdVc_ditf=0;
6842 : : }
6843 : : else
6844 : : {
6845 : : #if defined(_DERIVATE)
6846 : 0 : FFib_Vtnode_GND=((itf_Vtnode_GND-ick_Vtnode_GND)/icbar);
6847 : 0 : FFib_Vbi_ei=(itf_Vbi_ei/icbar);
6848 : 0 : FFib_Vbi_ci=(itf_Vbi_ci/icbar);
6849 : 0 : FFib_Vci_ei=((itf_Vci_ei-ick_Vci_ei)/icbar);
6850 : : #endif
6851 : 0 : FFib=((itf-ick)/icbar);
6852 [ # # ]: 0 : if
6853 : : (FFib<(-1.0e10))
6854 : : {
6855 : : #if defined(_DERIVATE)
6856 : 0 : FFib_Vtnode_GND=0.0;
6857 : 0 : FFib_Vbi_ei=0.0;
6858 : 0 : FFib_Vbi_ci=0.0;
6859 : 0 : FFib_Vci_ei=0.0;
6860 : : #endif
6861 : 0 : FFib=(-1.0e10);
6862 : : }
6863 : : {
6864 : 0 : double m00_sqrt(d00_sqrt0,((FFib*FFib)+acbar))
6865 : : #if defined(_DERIVATE)
6866 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFib*FFib)+acbar))
6867 : : #endif
6868 : : #if defined(_DERIVATE)
6869 : 0 : FFfcbar_Vtnode_GND=((FFib_Vtnode_GND+((FFib_Vtnode_GND*FFib)+(FFib*FFib_Vtnode_GND))*d10_sqrt0)/2.0);
6870 : 0 : FFfcbar_Vbi_ei=((FFib_Vbi_ei+((FFib_Vbi_ei*FFib)+(FFib*FFib_Vbi_ei))*d10_sqrt0)/2.0);
6871 : 0 : FFfcbar_Vbi_ci=((FFib_Vbi_ci+((FFib_Vbi_ci*FFib)+(FFib*FFib_Vbi_ci))*d10_sqrt0)/2.0);
6872 : 0 : FFfcbar_Vci_ei=((FFib_Vci_ei+((FFib_Vci_ei*FFib)+(FFib*FFib_Vci_ei))*d10_sqrt0)/2.0);
6873 : : #endif
6874 : 0 : FFfcbar=((FFib+d00_sqrt0)/2.0);
6875 : : }
6876 : : {
6877 : 0 : double m00_sqrt(d00_sqrt0,((FFib*FFib)+acbar))
6878 : : #if defined(_DERIVATE)
6879 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFib*FFib)+acbar))
6880 : : #endif
6881 : : #if defined(_DERIVATE)
6882 : 0 : FFdib_ditf_Vtnode_GND=(((FFfcbar_Vtnode_GND*d00_sqrt0-FFfcbar*((FFib_Vtnode_GND*FFib)+(FFib*FFib_Vtnode_GND))*d10_sqrt0)/d00_sqrt0/d00_sqrt0)/icbar);
6883 : 0 : FFdib_ditf_Vbi_ei=(((FFfcbar_Vbi_ei*d00_sqrt0-FFfcbar*((FFib_Vbi_ei*FFib)+(FFib*FFib_Vbi_ei))*d10_sqrt0)/d00_sqrt0/d00_sqrt0)/icbar);
6884 : 0 : FFdib_ditf_Vbi_ci=(((FFfcbar_Vbi_ci*d00_sqrt0-FFfcbar*((FFib_Vbi_ci*FFib)+(FFib*FFib_Vbi_ci))*d10_sqrt0)/d00_sqrt0/d00_sqrt0)/icbar);
6885 : 0 : FFdib_ditf_Vci_ei=(((FFfcbar_Vci_ei*d00_sqrt0-FFfcbar*((FFib_Vci_ei*FFib)+(FFib*FFib_Vci_ei))*d10_sqrt0)/d00_sqrt0/d00_sqrt0)/icbar);
6886 : : #endif
6887 : 0 : FFdib_ditf=((FFfcbar/d00_sqrt0)/icbar);
6888 : : }
6889 : : {
6890 : 0 : double m00_exp(d00_exp0,((-1.0)/FFfcbar))
6891 : : #if defined(_DERIVATE)
6892 : : #define d10_exp0 d00_exp0
6893 : : #endif
6894 : : #if defined(_DERIVATE)
6895 : 0 : FFdVc_Vtnode_GND=(vcbar*(-(-1.0)*FFfcbar_Vtnode_GND/FFfcbar/FFfcbar)*d10_exp0);
6896 : 0 : FFdVc_Vbi_ei=(vcbar*(-(-1.0)*FFfcbar_Vbi_ei/FFfcbar/FFfcbar)*d10_exp0);
6897 : 0 : FFdVc_Vbi_ci=(vcbar*(-(-1.0)*FFfcbar_Vbi_ci/FFfcbar/FFfcbar)*d10_exp0);
6898 : 0 : FFdVc_Vci_ei=(vcbar*(-(-1.0)*FFfcbar_Vci_ei/FFfcbar/FFfcbar)*d10_exp0);
6899 : : #endif
6900 : 0 : FFdVc=(vcbar*d00_exp0);
6901 : : }
6902 : : #if defined(_DERIVATE)
6903 : 0 : FFdVc_ditf_Vtnode_GND=((((FFdVc_Vtnode_GND*(FFfcbar*FFfcbar)-FFdVc*((FFfcbar_Vtnode_GND*FFfcbar)+(FFfcbar*FFfcbar_Vtnode_GND)))/(FFfcbar*FFfcbar)/(FFfcbar*FFfcbar))*FFdib_ditf)+((FFdVc/(FFfcbar*FFfcbar))*FFdib_ditf_Vtnode_GND));
6904 : 0 : FFdVc_ditf_Vbi_ei=((((FFdVc_Vbi_ei*(FFfcbar*FFfcbar)-FFdVc*((FFfcbar_Vbi_ei*FFfcbar)+(FFfcbar*FFfcbar_Vbi_ei)))/(FFfcbar*FFfcbar)/(FFfcbar*FFfcbar))*FFdib_ditf)+((FFdVc/(FFfcbar*FFfcbar))*FFdib_ditf_Vbi_ei));
6905 : 0 : FFdVc_ditf_Vbi_ci=((((FFdVc_Vbi_ci*(FFfcbar*FFfcbar)-FFdVc*((FFfcbar_Vbi_ci*FFfcbar)+(FFfcbar*FFfcbar_Vbi_ci)))/(FFfcbar*FFfcbar)/(FFfcbar*FFfcbar))*FFdib_ditf)+((FFdVc/(FFfcbar*FFfcbar))*FFdib_ditf_Vbi_ci));
6906 : 0 : FFdVc_ditf_Vci_ei=((((FFdVc_Vci_ei*(FFfcbar*FFfcbar)-FFdVc*((FFfcbar_Vci_ei*FFfcbar)+(FFfcbar*FFfcbar_Vci_ei)))/(FFfcbar*FFfcbar)/(FFfcbar*FFfcbar))*FFdib_ditf)+((FFdVc/(FFfcbar*FFfcbar))*FFdib_ditf_Vci_ei));
6907 : : #endif
6908 : 0 : FFdVc_ditf=((FFdVc/(FFfcbar*FFfcbar))*FFdib_ditf);
6909 : : }
6910 : : {
6911 : 0 : double m00_exp(d00_exp0,(FFdVc/VT))
6912 : : #if defined(_DERIVATE)
6913 : : #define d10_exp0 d00_exp0
6914 : : #endif
6915 : : #if defined(_DERIVATE)
6916 : 0 : FFdQbfb_Vtnode_GND=((((((1-fthc)*thcs_t_Vtnode_GND)*itf)+(((1-fthc)*thcs_t)*itf_Vtnode_GND))*(d00_exp0-1))+((((1-fthc)*thcs_t)*itf)*((FFdVc_Vtnode_GND*VT-FFdVc*VT_Vtnode_GND)/VT/VT)*d10_exp0));
6917 : 0 : FFdQbfb_Vbi_ei=(((((1-fthc)*thcs_t)*itf_Vbi_ei)*(d00_exp0-1))+((((1-fthc)*thcs_t)*itf)*(FFdVc_Vbi_ei/VT)*d10_exp0));
6918 : 0 : FFdQbfb_Vbi_ci=(((((1-fthc)*thcs_t)*itf_Vbi_ci)*(d00_exp0-1))+((((1-fthc)*thcs_t)*itf)*(FFdVc_Vbi_ci/VT)*d10_exp0));
6919 : 0 : FFdQbfb_Vci_ei=(((((1-fthc)*thcs_t)*itf_Vci_ei)*(d00_exp0-1))+((((1-fthc)*thcs_t)*itf)*(FFdVc_Vci_ei/VT)*d10_exp0));
6920 : : #endif
6921 : 0 : FFdQbfb=((((1-fthc)*thcs_t)*itf)*(d00_exp0-1));
6922 : : }
6923 : : {
6924 : 0 : double m00_exp(d00_exp0,(FFdVc/VT))
6925 : : #if defined(_DERIVATE)
6926 : : #define d10_exp0 d00_exp0
6927 : : #endif
6928 : : #if defined(_DERIVATE)
6929 : 0 : FFdTbfb_Vtnode_GND=(((FFdQbfb_Vtnode_GND*itf-FFdQbfb*itf_Vtnode_GND)/itf/itf)+((((((((((1-fthc)*thcs_t_Vtnode_GND)*itf)+(((1-fthc)*thcs_t)*itf_Vtnode_GND))*d00_exp0)+((((1-fthc)*thcs_t)*itf)*((FFdVc_Vtnode_GND*VT-FFdVc*VT_Vtnode_GND)/VT/VT)*d10_exp0))*VT-((((1-fthc)*thcs_t)*itf)*d00_exp0)*VT_Vtnode_GND)/VT/VT)*FFdVc_ditf)+((((((1-fthc)*thcs_t)*itf)*d00_exp0)/VT)*FFdVc_ditf_Vtnode_GND)));
6930 : 0 : FFdTbfb_Vbi_ei=(((FFdQbfb_Vbi_ei*itf-FFdQbfb*itf_Vbi_ei)/itf/itf)+((((((((1-fthc)*thcs_t)*itf_Vbi_ei)*d00_exp0)+((((1-fthc)*thcs_t)*itf)*(FFdVc_Vbi_ei/VT)*d10_exp0))/VT)*FFdVc_ditf)+((((((1-fthc)*thcs_t)*itf)*d00_exp0)/VT)*FFdVc_ditf_Vbi_ei)));
6931 : 0 : FFdTbfb_Vbi_ci=(((FFdQbfb_Vbi_ci*itf-FFdQbfb*itf_Vbi_ci)/itf/itf)+((((((((1-fthc)*thcs_t)*itf_Vbi_ci)*d00_exp0)+((((1-fthc)*thcs_t)*itf)*(FFdVc_Vbi_ci/VT)*d10_exp0))/VT)*FFdVc_ditf)+((((((1-fthc)*thcs_t)*itf)*d00_exp0)/VT)*FFdVc_ditf_Vbi_ci)));
6932 : 0 : FFdTbfb_Vci_ei=(((FFdQbfb_Vci_ei*itf-FFdQbfb*itf_Vci_ei)/itf/itf)+((((((((1-fthc)*thcs_t)*itf_Vci_ei)*d00_exp0)+((((1-fthc)*thcs_t)*itf)*(FFdVc_Vci_ei/VT)*d10_exp0))/VT)*FFdVc_ditf)+((((((1-fthc)*thcs_t)*itf)*d00_exp0)/VT)*FFdVc_ditf_Vci_ei)));
6933 : : #endif
6934 : 0 : FFdTbfb=((FFdQbfb/itf)+((((((1-fthc)*thcs_t)*itf)*d00_exp0)/VT)*FFdVc_ditf));
6935 : : }
6936 : : #if defined(_DERIVATE)
6937 : 0 : FFic_Vtnode_GND=(-(-FFitf_ick_Vtnode_GND/FFitf_ick/FFitf_ick));
6938 : 0 : FFic_Vbi_ei=(-(-FFitf_ick_Vbi_ei/FFitf_ick/FFitf_ick));
6939 : 0 : FFic_Vbi_ci=(-(-FFitf_ick_Vbi_ci/FFitf_ick/FFitf_ick));
6940 : 0 : FFic_Vci_ei=(-(-FFitf_ick_Vci_ei/FFitf_ick/FFitf_ick));
6941 : : #endif
6942 : 0 : FFic=(1-(1.0/FFitf_ick));
6943 : : {
6944 : 0 : double m00_sqrt(d00_sqrt0,((FFic*FFic)+ahc))
6945 : 0 : double m00_sqrt(d00_sqrt1,(1+ahc))
6946 : : #if defined(_DERIVATE)
6947 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFic*FFic)+ahc))
6948 : : #endif
6949 : : #if defined(_DERIVATE)
6950 : 0 : FFw_Vtnode_GND=((FFic_Vtnode_GND+((FFic_Vtnode_GND*FFic)+(FFic*FFic_Vtnode_GND))*d10_sqrt0)/(1+d00_sqrt1));
6951 : 0 : FFw_Vbi_ei=((FFic_Vbi_ei+((FFic_Vbi_ei*FFic)+(FFic*FFic_Vbi_ei))*d10_sqrt0)/(1+d00_sqrt1));
6952 : 0 : FFw_Vbi_ci=((FFic_Vbi_ci+((FFic_Vbi_ci*FFic)+(FFic*FFic_Vbi_ci))*d10_sqrt0)/(1+d00_sqrt1));
6953 : 0 : FFw_Vci_ei=((FFic_Vci_ei+((FFic_Vci_ei*FFic)+(FFic*FFic_Vci_ei))*d10_sqrt0)/(1+d00_sqrt1));
6954 : : #endif
6955 : 0 : FFw=((FFic+d00_sqrt0)/(1+d00_sqrt1));
6956 : : }
6957 : : {
6958 : 0 : double m00_exp(d00_exp0,((FFdVc-vcbar)/VT))
6959 : : #if defined(_DERIVATE)
6960 : : #define d10_exp0 d00_exp0
6961 : : #endif
6962 : : #if defined(_DERIVATE)
6963 : 0 : FFdQfhc_Vtnode_GND=((((((((thcs_t_Vtnode_GND*itf)+(thcs_t*itf_Vtnode_GND))*FFw)+((thcs_t*itf)*FFw_Vtnode_GND))*FFw)+(((thcs_t*itf)*FFw)*FFw_Vtnode_GND))*d00_exp0)+((((thcs_t*itf)*FFw)*FFw)*((FFdVc_Vtnode_GND*VT-(FFdVc-vcbar)*VT_Vtnode_GND)/VT/VT)*d10_exp0));
6964 : 0 : FFdQfhc_Vbi_ei=(((((((thcs_t*itf_Vbi_ei)*FFw)+((thcs_t*itf)*FFw_Vbi_ei))*FFw)+(((thcs_t*itf)*FFw)*FFw_Vbi_ei))*d00_exp0)+((((thcs_t*itf)*FFw)*FFw)*(FFdVc_Vbi_ei/VT)*d10_exp0));
6965 : 0 : FFdQfhc_Vbi_ci=(((((((thcs_t*itf_Vbi_ci)*FFw)+((thcs_t*itf)*FFw_Vbi_ci))*FFw)+(((thcs_t*itf)*FFw)*FFw_Vbi_ci))*d00_exp0)+((((thcs_t*itf)*FFw)*FFw)*(FFdVc_Vbi_ci/VT)*d10_exp0));
6966 : 0 : FFdQfhc_Vci_ei=(((((((thcs_t*itf_Vci_ei)*FFw)+((thcs_t*itf)*FFw_Vci_ei))*FFw)+(((thcs_t*itf)*FFw)*FFw_Vci_ei))*d00_exp0)+((((thcs_t*itf)*FFw)*FFw)*(FFdVc_Vci_ei/VT)*d10_exp0));
6967 : : #endif
6968 : 0 : FFdQfhc=((((thcs_t*itf)*FFw)*FFw)*d00_exp0);
6969 : : }
6970 : : {
6971 : 0 : double m00_sqrt(d00_sqrt0,((FFic*FFic)+ahc))
6972 : : #if defined(_DERIVATE)
6973 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFic*FFic)+ahc))
6974 : : #endif
6975 : : #if defined(_DERIVATE)
6976 : 0 : FFdTfhc_Vtnode_GND=((FFdQfhc_Vtnode_GND*(((1.0/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf)))+(FFdQfhc*((((-itf_Vtnode_GND/itf/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/itf)*(-2.0*((FFitf_ick_Vtnode_GND*d00_sqrt0)+(FFitf_ick*((FFic_Vtnode_GND*FFic)+(FFic*FFic_Vtnode_GND))*d10_sqrt0))/(FFitf_ick*d00_sqrt0)/(FFitf_ick*d00_sqrt0))))+(((-VT_Vtnode_GND/VT/VT)*FFdVc_ditf)+((1.0/VT)*FFdVc_ditf_Vtnode_GND)))));
6977 : 0 : FFdTfhc_Vbi_ei=((FFdQfhc_Vbi_ei*(((1.0/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf)))+(FFdQfhc*((((-itf_Vbi_ei/itf/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/itf)*(-2.0*((FFitf_ick_Vbi_ei*d00_sqrt0)+(FFitf_ick*((FFic_Vbi_ei*FFic)+(FFic*FFic_Vbi_ei))*d10_sqrt0))/(FFitf_ick*d00_sqrt0)/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf_Vbi_ei))));
6978 : 0 : FFdTfhc_Vbi_ci=((FFdQfhc_Vbi_ci*(((1.0/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf)))+(FFdQfhc*((((-itf_Vbi_ci/itf/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/itf)*(-2.0*((FFitf_ick_Vbi_ci*d00_sqrt0)+(FFitf_ick*((FFic_Vbi_ci*FFic)+(FFic*FFic_Vbi_ci))*d10_sqrt0))/(FFitf_ick*d00_sqrt0)/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf_Vbi_ci))));
6979 : 0 : FFdTfhc_Vci_ei=((FFdQfhc_Vci_ei*(((1.0/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf)))+(FFdQfhc*((((-itf_Vci_ei/itf/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/itf)*(-2.0*((FFitf_ick_Vci_ei*d00_sqrt0)+(FFitf_ick*((FFic_Vci_ei*FFic)+(FFic*FFic_Vci_ei))*d10_sqrt0))/(FFitf_ick*d00_sqrt0)/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf_Vci_ei))));
6980 : : #endif
6981 : 0 : FFdTfhc=(FFdQfhc*(((1.0/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf)));
6982 : : }
6983 [ # # ][ # # ]: 0 : if
6984 : : ((latb<=0.0)&&(latl<=0.0))
6985 : : {
6986 : : #if defined(_DERIVATE)
6987 : 0 : FFdQcfc_Vtnode_GND=(fthc*FFdQfhc_Vtnode_GND);
6988 : 0 : FFdQcfc_Vbi_ei=(fthc*FFdQfhc_Vbi_ei);
6989 : 0 : FFdQcfc_Vbi_ci=(fthc*FFdQfhc_Vbi_ci);
6990 : 0 : FFdQcfc_Vci_ei=(fthc*FFdQfhc_Vci_ei);
6991 : : #endif
6992 : 0 : FFdQcfc=(fthc*FFdQfhc);
6993 : : #if defined(_DERIVATE)
6994 : 0 : FFdTcfc_Vtnode_GND=(fthc*FFdTfhc_Vtnode_GND);
6995 : 0 : FFdTcfc_Vbi_ei=(fthc*FFdTfhc_Vbi_ei);
6996 : 0 : FFdTcfc_Vbi_ci=(fthc*FFdTfhc_Vbi_ci);
6997 : 0 : FFdTcfc_Vci_ei=(fthc*FFdTfhc_Vci_ei);
6998 : : #endif
6999 : 0 : FFdTcfc=(fthc*FFdTfhc);
7000 : : #if defined(_DERIVATE)
7001 : 0 : FFdQcfcT_Vtnode_GND=FFdQcfc_Vtnode_GND;
7002 : 0 : FFdQcfcT_Vbi_ei=FFdQcfc_Vbi_ei;
7003 : 0 : FFdQcfcT_Vbi_ci=FFdQcfc_Vbi_ci;
7004 : 0 : FFdQcfcT_Vci_ei=FFdQcfc_Vci_ei;
7005 : : #endif
7006 : 0 : FFdQcfcT=FFdQcfc;
7007 : : #if defined(_DERIVATE)
7008 : 0 : FFdTcfcT_Vtnode_GND=FFdTcfc_Vtnode_GND;
7009 : 0 : FFdTcfcT_Vbi_ei=FFdTcfc_Vbi_ei;
7010 : 0 : FFdTcfcT_Vbi_ci=FFdTcfc_Vbi_ci;
7011 : 0 : FFdTcfcT_Vci_ei=FFdTcfc_Vci_ei;
7012 : : #endif
7013 : 0 : FFdTcfcT=FFdTcfc;
7014 : : }
7015 : : else
7016 : : {
7017 : : #if defined(_DERIVATE)
7018 : 0 : FFdQcfc_Vtnode_GND=(((fthc*thcs_t_Vtnode_GND)*itf)+((fthc*thcs_t)*itf_Vtnode_GND));
7019 : 0 : FFdQcfc_Vbi_ei=((fthc*thcs_t)*itf_Vbi_ei);
7020 : 0 : FFdQcfc_Vbi_ci=((fthc*thcs_t)*itf_Vbi_ci);
7021 : 0 : FFdQcfc_Vci_ei=((fthc*thcs_t)*itf_Vci_ei);
7022 : : #endif
7023 : 0 : FFdQcfc=((fthc*thcs_t)*itf);
7024 : : #if defined(_DERIVATE)
7025 : 0 : FCa_Vci_ei=(-((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf));
7026 : 0 : FCa_Vtnode_GND=(-((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf));
7027 : 0 : FCa_Vbi_ei=(-(-ick*itf_Vbi_ei/itf/itf));
7028 : 0 : FCa_Vbi_ci=(-(-ick*itf_Vbi_ci/itf/itf));
7029 : : #endif
7030 : 0 : FCa=(1.0-(ick/itf));
7031 : : {
7032 : 0 : double m00_sqrt(d00_sqrt0,((FCa*FCa)+ahc))
7033 : : #if defined(_DERIVATE)
7034 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FCa*FCa)+ahc))
7035 : : #endif
7036 : : #if defined(_DERIVATE)
7037 : 0 : FCrt_Vci_ei=((FCa_Vci_ei*FCa)+(FCa*FCa_Vci_ei))*d10_sqrt0;
7038 : 0 : FCrt_Vtnode_GND=((FCa_Vtnode_GND*FCa)+(FCa*FCa_Vtnode_GND))*d10_sqrt0;
7039 : 0 : FCrt_Vbi_ei=((FCa_Vbi_ei*FCa)+(FCa*FCa_Vbi_ei))*d10_sqrt0;
7040 : 0 : FCrt_Vbi_ci=((FCa_Vbi_ci*FCa)+(FCa*FCa_Vbi_ci))*d10_sqrt0;
7041 : : #endif
7042 : 0 : FCrt=d00_sqrt0;
7043 : : }
7044 : : {
7045 : 0 : double m00_sqrt(d00_sqrt0,(1.0+ahc))
7046 : : #if defined(_DERIVATE)
7047 : 0 : FCa_ck_Vci_ei=(-((FCa_Vci_ei+FCrt_Vci_ei)/(1.0+d00_sqrt0)));
7048 : 0 : FCa_ck_Vtnode_GND=(-((FCa_Vtnode_GND+FCrt_Vtnode_GND)/(1.0+d00_sqrt0)));
7049 : 0 : FCa_ck_Vbi_ei=(-((FCa_Vbi_ei+FCrt_Vbi_ei)/(1.0+d00_sqrt0)));
7050 : 0 : FCa_ck_Vbi_ci=(-((FCa_Vbi_ci+FCrt_Vbi_ci)/(1.0+d00_sqrt0)));
7051 : : #endif
7052 : 0 : FCa_ck=(1.0-((FCa+FCrt)/(1.0+d00_sqrt0)));
7053 : : }
7054 : : #if defined(_DERIVATE)
7055 : 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));
7056 : 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));
7057 : 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));
7058 : 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));
7059 : : #endif
7060 : 0 : FCdaick_ditf=(((FCa_ck-1.0)*(1-FCa))/(FCrt*itf));
7061 [ # # ]: 0 : if
7062 : : (latb>latl)
7063 : : {
7064 : : #if defined(_DERIVATE)
7065 : 0 : FCz_Vci_ei=0.0;
7066 : 0 : FCz_Vtnode_GND=0.0;
7067 : 0 : FCz_Vbi_ei=0.0;
7068 : 0 : FCz_Vbi_ci=0.0;
7069 : : #endif
7070 : 0 : FCz=(latb-latl);
7071 : 0 : FCxl=(1.0+latl);
7072 : 0 : FCxb=(1.0+latb);
7073 [ # # ]: 0 : if
7074 : : (latb>0.01)
7075 : : {
7076 : : {
7077 : 0 : double m00_logE(d00_logE0,(FCxb/FCxl))
7078 : 0 : FCln=d00_logE0;
7079 : : }
7080 : : {
7081 : 0 : double m00_exp(d00_exp0,((FCa_ck-1.0)*FCln))
7082 : : #if defined(_DERIVATE)
7083 : : #define d10_exp0 d00_exp0
7084 : : #endif
7085 : : #if defined(_DERIVATE)
7086 : 0 : FCa1_Vci_ei=FCa_ck_Vci_ei*FCln*d10_exp0;
7087 : 0 : FCa1_Vtnode_GND=FCa_ck_Vtnode_GND*FCln*d10_exp0;
7088 : 0 : FCa1_Vbi_ei=FCa_ck_Vbi_ei*FCln*d10_exp0;
7089 : 0 : FCa1_Vbi_ci=FCa_ck_Vbi_ci*FCln*d10_exp0;
7090 : : #endif
7091 : 0 : FCa1=d00_exp0;
7092 : : }
7093 : : #if defined(_DERIVATE)
7094 : 0 : FCd_a_Vci_ei=(-(-FCa1_Vci_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
7095 : 0 : FCd_a_Vtnode_GND=(-(-FCa1_Vtnode_GND*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
7096 : 0 : FCd_a_Vbi_ei=(-(-FCa1_Vbi_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
7097 : 0 : FCd_a_Vbi_ci=(-(-FCa1_Vbi_ci*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
7098 : : #endif
7099 : 0 : FCd_a=(1.0/(latl-(FCa1*latb)));
7100 : : #if defined(_DERIVATE)
7101 : 0 : FCw_Vci_ei=((FCa1_Vci_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vci_ei));
7102 : 0 : FCw_Vtnode_GND=((FCa1_Vtnode_GND*FCd_a)+((FCa1-1.0)*FCd_a_Vtnode_GND));
7103 : 0 : FCw_Vbi_ei=((FCa1_Vbi_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ei));
7104 : 0 : FCw_Vbi_ci=((FCa1_Vbi_ci*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ci));
7105 : : #endif
7106 : 0 : FCw=((FCa1-1.0)*FCd_a);
7107 : : #if defined(_DERIVATE)
7108 : 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));
7109 : 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));
7110 : 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));
7111 : 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));
7112 : : #endif
7113 : 0 : FCdw_daick=(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a);
7114 : : {
7115 : 0 : double m00_logE(d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
7116 : : #if defined(_DERIVATE)
7117 : 0 : double m10_logE(d10_logE0,d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
7118 : : #endif
7119 : : #if defined(_DERIVATE)
7120 : 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;
7121 : 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;
7122 : 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;
7123 : 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;
7124 : : #endif
7125 : 0 : FCa1=d00_logE0;
7126 : : }
7127 : : #if defined(_DERIVATE)
7128 : 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))));
7129 : 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))));
7130 : 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))));
7131 : 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))));
7132 : : #endif
7133 : 0 : FCda1_dw=((latb/(1.0+(latb*FCw)))-(latl/(1.0+(latl*FCw))));
7134 : : }
7135 : : else
7136 : : {
7137 : : #if defined(_DERIVATE)
7138 : 0 : FCf1_Vci_ei=(-FCa_ck_Vci_ei);
7139 : 0 : FCf1_Vtnode_GND=(-FCa_ck_Vtnode_GND);
7140 : 0 : FCf1_Vbi_ei=(-FCa_ck_Vbi_ei);
7141 : 0 : FCf1_Vbi_ci=(-FCa_ck_Vbi_ci);
7142 : : #endif
7143 : 0 : FCf1=(1.0-FCa_ck);
7144 : : #if defined(_DERIVATE)
7145 : 0 : FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
7146 : 0 : FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
7147 : 0 : FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
7148 : 0 : FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
7149 : : #endif
7150 : 0 : FCd_a=(1.0/(1.0+(FCa_ck*latb)));
7151 : : #if defined(_DERIVATE)
7152 : 0 : FCw_Vci_ei=((FCf1_Vci_ei*FCd_a)+(FCf1*FCd_a_Vci_ei));
7153 : 0 : FCw_Vtnode_GND=((FCf1_Vtnode_GND*FCd_a)+(FCf1*FCd_a_Vtnode_GND));
7154 : 0 : FCw_Vbi_ei=((FCf1_Vbi_ei*FCd_a)+(FCf1*FCd_a_Vbi_ei));
7155 : 0 : FCw_Vbi_ci=((FCf1_Vbi_ci*FCd_a)+(FCf1*FCd_a_Vbi_ci));
7156 : : #endif
7157 : 0 : FCw=(FCf1*FCd_a);
7158 : : #if defined(_DERIVATE)
7159 : 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));
7160 : 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));
7161 : 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));
7162 : 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));
7163 : : #endif
7164 : 0 : FCdw_daick=(((((-1.0)*FCd_a)*FCd_a)*FCxb)*FCd_a);
7165 : : #if defined(_DERIVATE)
7166 : 0 : FCa1_Vci_ei=((FCz_Vci_ei*FCw)+(FCz*FCw_Vci_ei));
7167 : 0 : FCa1_Vtnode_GND=((FCz_Vtnode_GND*FCw)+(FCz*FCw_Vtnode_GND));
7168 : 0 : FCa1_Vbi_ei=((FCz_Vbi_ei*FCw)+(FCz*FCw_Vbi_ei));
7169 : 0 : FCa1_Vbi_ci=((FCz_Vbi_ci*FCw)+(FCz*FCw_Vbi_ci));
7170 : : #endif
7171 : 0 : FCa1=(FCz*FCw);
7172 : : #if defined(_DERIVATE)
7173 : 0 : FCda1_dw_Vci_ei=FCz_Vci_ei;
7174 : 0 : FCda1_dw_Vtnode_GND=FCz_Vtnode_GND;
7175 : 0 : FCda1_dw_Vbi_ei=FCz_Vbi_ei;
7176 : 0 : FCda1_dw_Vbi_ci=FCz_Vbi_ci;
7177 : : #endif
7178 : 0 : FCda1_dw=FCz;
7179 : : }
7180 : : #if defined(_DERIVATE)
7181 : 0 : FCf_CT_Vbi_ei=(-2.0*FCz_Vbi_ei/FCz/FCz);
7182 : 0 : FCf_CT_Vbi_ci=(-2.0*FCz_Vbi_ci/FCz/FCz);
7183 : 0 : FCf_CT_Vci_ei=(-2.0*FCz_Vci_ei/FCz/FCz);
7184 : 0 : FCf_CT_Vtnode_GND=(-2.0*FCz_Vtnode_GND/FCz/FCz);
7185 : : #endif
7186 : 0 : FCf_CT=(2.0/FCz);
7187 : : #if defined(_DERIVATE)
7188 : 0 : FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
7189 : 0 : FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
7190 : 0 : FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
7191 : 0 : FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
7192 : : #endif
7193 : 0 : FCw2=(FCw*FCw);
7194 : : #if defined(_DERIVATE)
7195 : 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);
7196 : 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);
7197 : 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);
7198 : 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);
7199 : : #endif
7200 : 0 : FCf1=((((((latb*latl)*FCw)*FCw2)/3.0)+(((latb+latl)*FCw2)/2.0))+FCw);
7201 : : #if defined(_DERIVATE)
7202 : 0 : FCdf1_dw_Vci_ei=(((latb*latl)*FCw2_Vci_ei)+((latb+latl)*FCw_Vci_ei));
7203 : 0 : FCdf1_dw_Vtnode_GND=(((latb*latl)*FCw2_Vtnode_GND)+((latb+latl)*FCw_Vtnode_GND));
7204 : 0 : FCdf1_dw_Vbi_ei=(((latb*latl)*FCw2_Vbi_ei)+((latb+latl)*FCw_Vbi_ei));
7205 : 0 : FCdf1_dw_Vbi_ci=(((latb*latl)*FCw2_Vbi_ci)+((latb+latl)*FCw_Vbi_ci));
7206 : : #endif
7207 : 0 : FCdf1_dw=((((latb*latl)*FCw2)+((latb+latl)*FCw))+1.0);
7208 : : #if defined(_DERIVATE)
7209 : 0 : z_Vci_ei=(latb*FCw_Vci_ei);
7210 : 0 : z_Vtnode_GND=(latb*FCw_Vtnode_GND);
7211 : 0 : z_Vbi_ei=(latb*FCw_Vbi_ei);
7212 : 0 : z_Vbi_ci=(latb*FCw_Vbi_ci);
7213 : : #endif
7214 : 0 : z=(latb*FCw);
7215 : : {
7216 : 0 : double m00_logE(d00_logE0,(1+(latb*FCw)))
7217 : : #if defined(_DERIVATE)
7218 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latb*FCw)))
7219 : : #endif
7220 : : #if defined(_DERIVATE)
7221 : 0 : lnzb_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
7222 : 0 : lnzb_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
7223 : 0 : lnzb_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
7224 : 0 : lnzb_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
7225 : : #endif
7226 : 0 : lnzb=d00_logE0;
7227 : : }
7228 [ # # ]: 0 : if
7229 : : (z>1.0e-6)
7230 : : {
7231 : : #if defined(_DERIVATE)
7232 : 0 : x_Vci_ei=z_Vci_ei;
7233 : 0 : x_Vtnode_GND=z_Vtnode_GND;
7234 : 0 : x_Vbi_ei=z_Vbi_ei;
7235 : 0 : x_Vbi_ci=z_Vbi_ci;
7236 : : #endif
7237 : 0 : x=(1.0+z);
7238 : : #if defined(_DERIVATE)
7239 : 0 : a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
7240 : 0 : a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
7241 : 0 : a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
7242 : 0 : a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
7243 : : #endif
7244 : 0 : a=(x*x);
7245 : : #if defined(_DERIVATE)
7246 : 0 : a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ei))));
7247 : 0 : a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ci))));
7248 : 0 : a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vci_ei))));
7249 : 0 : a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vtnode_GND))));
7250 : : #endif
7251 : 0 : a2=(0.250*((a*((2.0*lnzb)-1.0))+1.0));
7252 : : #if defined(_DERIVATE)
7253 : 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);
7254 : 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);
7255 : 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);
7256 : 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);
7257 : : #endif
7258 : 0 : a3=((((a*x)*((3.0*lnzb)-1.0))+1.0)/9.0);
7259 : 0 : r=(latl/latb);
7260 : : #if defined(_DERIVATE)
7261 : 0 : FCf2_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latb);
7262 : 0 : FCf2_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latb);
7263 : 0 : FCf2_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latb);
7264 : 0 : FCf2_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latb);
7265 : : #endif
7266 : 0 : FCf2=((((1.0-r)*a2)+(r*a3))/latb);
7267 : : #if defined(_DERIVATE)
7268 : 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));
7269 : 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));
7270 : 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));
7271 : 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));
7272 : : #endif
7273 : 0 : FCdf2_dw=((((1.0-r)*x)+(r*a))*lnzb);
7274 : : }
7275 : : else
7276 : : {
7277 : : #if defined(_DERIVATE)
7278 : 0 : a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
7279 : 0 : a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
7280 : 0 : a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
7281 : 0 : a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
7282 : : #endif
7283 : 0 : a=(z*z);
7284 : : #if defined(_DERIVATE)
7285 : 0 : a2_Vbi_ei=((z_Vbi_ei-(0.25*a_Vbi_ei))+(((0.10*z_Vbi_ei)*a)+((0.10*z)*a_Vbi_ei)));
7286 : 0 : a2_Vbi_ci=((z_Vbi_ci-(0.25*a_Vbi_ci))+(((0.10*z_Vbi_ci)*a)+((0.10*z)*a_Vbi_ci)));
7287 : 0 : a2_Vci_ei=((z_Vci_ei-(0.25*a_Vci_ei))+(((0.10*z_Vci_ei)*a)+((0.10*z)*a_Vci_ei)));
7288 : 0 : a2_Vtnode_GND=((z_Vtnode_GND-(0.25*a_Vtnode_GND))+(((0.10*z_Vtnode_GND)*a)+((0.10*z)*a_Vtnode_GND)));
7289 : : #endif
7290 : 0 : a2=(((3.0+z)-(0.25*a))+((0.10*z)*a));
7291 : : #if defined(_DERIVATE)
7292 : 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)));
7293 : 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)));
7294 : 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)));
7295 : 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)));
7296 : : #endif
7297 : 0 : a3=(((2.0*z)+(0.75*a))-((0.20*a)*z));
7298 : : #if defined(_DERIVATE)
7299 : 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);
7300 : 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);
7301 : 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);
7302 : 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);
7303 : : #endif
7304 : 0 : FCf2=(((((latb*a2)+(latl*a3))*FCw)*FCw)/6.0);
7305 : : #if defined(_DERIVATE)
7306 : 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));
7307 : 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));
7308 : 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));
7309 : 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));
7310 : : #endif
7311 : 0 : FCdf2_dw=(((1+(latl*FCw))*(1+z))*lnzb);
7312 : : }
7313 : : #if defined(_DERIVATE)
7314 : 0 : z_Vci_ei=(latl*FCw_Vci_ei);
7315 : 0 : z_Vtnode_GND=(latl*FCw_Vtnode_GND);
7316 : 0 : z_Vbi_ei=(latl*FCw_Vbi_ei);
7317 : 0 : z_Vbi_ci=(latl*FCw_Vbi_ci);
7318 : : #endif
7319 : 0 : z=(latl*FCw);
7320 : : {
7321 : 0 : double m00_logE(d00_logE0,(1+(latl*FCw)))
7322 : : #if defined(_DERIVATE)
7323 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latl*FCw)))
7324 : : #endif
7325 : : #if defined(_DERIVATE)
7326 : 0 : lnzb_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
7327 : 0 : lnzb_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
7328 : 0 : lnzb_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
7329 : 0 : lnzb_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
7330 : : #endif
7331 : 0 : lnzb=d00_logE0;
7332 : : }
7333 [ # # ]: 0 : if
7334 : : (z>1.0e-6)
7335 : : {
7336 : : #if defined(_DERIVATE)
7337 : 0 : x_Vci_ei=z_Vci_ei;
7338 : 0 : x_Vtnode_GND=z_Vtnode_GND;
7339 : 0 : x_Vbi_ei=z_Vbi_ei;
7340 : 0 : x_Vbi_ci=z_Vbi_ci;
7341 : : #endif
7342 : 0 : x=(1.0+z);
7343 : : #if defined(_DERIVATE)
7344 : 0 : a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
7345 : 0 : a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
7346 : 0 : a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
7347 : 0 : a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
7348 : : #endif
7349 : 0 : a=(x*x);
7350 : : #if defined(_DERIVATE)
7351 : 0 : a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ei))));
7352 : 0 : a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ci))));
7353 : 0 : a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vci_ei))));
7354 : 0 : a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vtnode_GND))));
7355 : : #endif
7356 : 0 : a2=(0.250*((a*((2.0*lnzb)-1.0))+1.0));
7357 : : #if defined(_DERIVATE)
7358 : 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);
7359 : 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);
7360 : 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);
7361 : 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);
7362 : : #endif
7363 : 0 : a3=((((a*x)*((3.0*lnzb)-1.0))+1.0)/9.0);
7364 : 0 : r=(latb/latl);
7365 : : #if defined(_DERIVATE)
7366 : 0 : FCf3_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latl);
7367 : 0 : FCf3_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latl);
7368 : 0 : FCf3_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latl);
7369 : 0 : FCf3_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latl);
7370 : : #endif
7371 : 0 : FCf3=((((1.0-r)*a2)+(r*a3))/latl);
7372 : : #if defined(_DERIVATE)
7373 : 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));
7374 : 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));
7375 : 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));
7376 : 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));
7377 : : #endif
7378 : 0 : FCdf3_dw=((((1.0-r)*x)+(r*a))*lnzb);
7379 : : }
7380 : : else
7381 : : {
7382 : : #if defined(_DERIVATE)
7383 : 0 : a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
7384 : 0 : a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
7385 : 0 : a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
7386 : 0 : a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
7387 : : #endif
7388 : 0 : a=(z*z);
7389 : : #if defined(_DERIVATE)
7390 : 0 : a2_Vbi_ei=((z_Vbi_ei-(0.25*a_Vbi_ei))+(((0.10*z_Vbi_ei)*a)+((0.10*z)*a_Vbi_ei)));
7391 : 0 : a2_Vbi_ci=((z_Vbi_ci-(0.25*a_Vbi_ci))+(((0.10*z_Vbi_ci)*a)+((0.10*z)*a_Vbi_ci)));
7392 : 0 : a2_Vci_ei=((z_Vci_ei-(0.25*a_Vci_ei))+(((0.10*z_Vci_ei)*a)+((0.10*z)*a_Vci_ei)));
7393 : 0 : a2_Vtnode_GND=((z_Vtnode_GND-(0.25*a_Vtnode_GND))+(((0.10*z_Vtnode_GND)*a)+((0.10*z)*a_Vtnode_GND)));
7394 : : #endif
7395 : 0 : a2=(((3.0+z)-(0.25*a))+((0.10*z)*a));
7396 : : #if defined(_DERIVATE)
7397 : 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)));
7398 : 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)));
7399 : 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)));
7400 : 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)));
7401 : : #endif
7402 : 0 : a3=(((2.0*z)+(0.75*a))-((0.20*a)*z));
7403 : : #if defined(_DERIVATE)
7404 : 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);
7405 : 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);
7406 : 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);
7407 : 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);
7408 : : #endif
7409 : 0 : FCf3=(((((latl*a2)+(latb*a3))*FCw)*FCw)/6.0);
7410 : : #if defined(_DERIVATE)
7411 : 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));
7412 : 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));
7413 : 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));
7414 : 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));
7415 : : #endif
7416 : 0 : FCdf3_dw=(((1+(latb*FCw))*(1+z))*lnzb);
7417 : : }
7418 : : #if defined(_DERIVATE)
7419 : 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)));
7420 : 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)));
7421 : 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)));
7422 : 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)));
7423 : : #endif
7424 : 0 : FCf_ci=(FCf_CT*(((FCa1*FCf1)-FCf2)+FCf3));
7425 : : #if defined(_DERIVATE)
7426 : 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)));
7427 : 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)));
7428 : 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)));
7429 : 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)));
7430 : : #endif
7431 : 0 : FCdfc_dw=(FCf_CT*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw));
7432 : : #if defined(_DERIVATE)
7433 : 0 : FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
7434 : 0 : FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
7435 : 0 : FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
7436 : 0 : FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
7437 : : #endif
7438 : 0 : FCdw_ditf=(FCdw_daick*FCdaick_ditf);
7439 : : #if defined(_DERIVATE)
7440 : 0 : FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
7441 : 0 : FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
7442 : 0 : FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
7443 : 0 : FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
7444 : : #endif
7445 : 0 : FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
7446 [ # # ][ # # ]: 0 : if
7447 : : ((flcomp==0.0)||(flcomp==2.1))
7448 : : {
7449 : : #if defined(_DERIVATE)
7450 : 0 : a_Vbi_ei=(latb*FCw_Vbi_ei);
7451 : 0 : a_Vbi_ci=(latb*FCw_Vbi_ci);
7452 : 0 : a_Vci_ei=(latb*FCw_Vci_ei);
7453 : 0 : a_Vtnode_GND=(latb*FCw_Vtnode_GND);
7454 : : #endif
7455 : 0 : a=(latb*FCw);
7456 : : {
7457 : 0 : double m00_logE(d00_logE0,(1+(latb*FCw)))
7458 : : #if defined(_DERIVATE)
7459 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latb*FCw)))
7460 : : #endif
7461 : : #if defined(_DERIVATE)
7462 : 0 : lnz_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
7463 : 0 : lnz_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
7464 : 0 : lnz_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
7465 : 0 : lnz_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
7466 : : #endif
7467 : 0 : lnz=d00_logE0;
7468 : : }
7469 [ # # ]: 0 : if
7470 : : (a>1.0e-6)
7471 : : {
7472 : : #if defined(_DERIVATE)
7473 : 0 : FCf2_Vbi_ei=((a_Vbi_ei-lnz_Vbi_ei)/latb);
7474 : 0 : FCf2_Vbi_ci=((a_Vbi_ci-lnz_Vbi_ci)/latb);
7475 : 0 : FCf2_Vci_ei=((a_Vci_ei-lnz_Vci_ei)/latb);
7476 : 0 : FCf2_Vtnode_GND=((a_Vtnode_GND-lnz_Vtnode_GND)/latb);
7477 : : #endif
7478 : 0 : FCf2=((a-lnz)/latb);
7479 : : #if defined(_DERIVATE)
7480 : 0 : FCdf2_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
7481 : 0 : FCdf2_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
7482 : 0 : FCdf2_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
7483 : 0 : FCdf2_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
7484 : : #endif
7485 : 0 : FCdf2_dw=(a/(1.0+a));
7486 : : }
7487 : : else
7488 : : {
7489 : : #if defined(_DERIVATE)
7490 : 0 : FCf2_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
7491 : 0 : FCf2_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
7492 : 0 : FCf2_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
7493 : 0 : FCf2_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
7494 : : #endif
7495 : 0 : FCf2=((0.5*a)*FCw);
7496 : : #if defined(_DERIVATE)
7497 : 0 : FCdf2_dw_Vci_ei=a_Vci_ei;
7498 : 0 : FCdf2_dw_Vtnode_GND=a_Vtnode_GND;
7499 : 0 : FCdf2_dw_Vbi_ei=a_Vbi_ei;
7500 : 0 : FCdf2_dw_Vbi_ci=a_Vbi_ci;
7501 : : #endif
7502 : 0 : FCdf2_dw=a;
7503 : : }
7504 : : #if defined(_DERIVATE)
7505 : 0 : a_Vbi_ei=(latl*FCw_Vbi_ei);
7506 : 0 : a_Vbi_ci=(latl*FCw_Vbi_ci);
7507 : 0 : a_Vci_ei=(latl*FCw_Vci_ei);
7508 : 0 : a_Vtnode_GND=(latl*FCw_Vtnode_GND);
7509 : : #endif
7510 : 0 : a=(latl*FCw);
7511 : : {
7512 : 0 : double m00_logE(d00_logE0,(1+(latl*FCw)))
7513 : : #if defined(_DERIVATE)
7514 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latl*FCw)))
7515 : : #endif
7516 : : #if defined(_DERIVATE)
7517 : 0 : lnz_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
7518 : 0 : lnz_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
7519 : 0 : lnz_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
7520 : 0 : lnz_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
7521 : : #endif
7522 : 0 : lnz=d00_logE0;
7523 : : }
7524 [ # # ]: 0 : if
7525 : : (a>1.0e-6)
7526 : : {
7527 : : #if defined(_DERIVATE)
7528 : 0 : FCf3_Vbi_ei=((a_Vbi_ei-lnz_Vbi_ei)/latl);
7529 : 0 : FCf3_Vbi_ci=((a_Vbi_ci-lnz_Vbi_ci)/latl);
7530 : 0 : FCf3_Vci_ei=((a_Vci_ei-lnz_Vci_ei)/latl);
7531 : 0 : FCf3_Vtnode_GND=((a_Vtnode_GND-lnz_Vtnode_GND)/latl);
7532 : : #endif
7533 : 0 : FCf3=((a-lnz)/latl);
7534 : : #if defined(_DERIVATE)
7535 : 0 : FCdf3_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
7536 : 0 : FCdf3_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
7537 : 0 : FCdf3_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
7538 : 0 : FCdf3_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
7539 : : #endif
7540 : 0 : FCdf3_dw=(a/(1.0+a));
7541 : : }
7542 : : else
7543 : : {
7544 : : #if defined(_DERIVATE)
7545 : 0 : FCf3_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
7546 : 0 : FCf3_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
7547 : 0 : FCf3_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
7548 : 0 : FCf3_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
7549 : : #endif
7550 : 0 : FCf3=((0.5*a)*FCw);
7551 : : #if defined(_DERIVATE)
7552 : 0 : FCdf3_dw_Vci_ei=a_Vci_ei;
7553 : 0 : FCdf3_dw_Vtnode_GND=a_Vtnode_GND;
7554 : 0 : FCdf3_dw_Vbi_ei=a_Vbi_ei;
7555 : 0 : FCdf3_dw_Vbi_ci=a_Vbi_ci;
7556 : : #endif
7557 : 0 : FCdf3_dw=a;
7558 : : }
7559 : : #if defined(_DERIVATE)
7560 : 0 : FCf_CT_Vbi_ei=((FCf_CT_Vbi_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ei-FCf3_Vbi_ei)));
7561 : 0 : FCf_CT_Vbi_ci=((FCf_CT_Vbi_ci*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ci-FCf3_Vbi_ci)));
7562 : 0 : FCf_CT_Vci_ei=((FCf_CT_Vci_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vci_ei-FCf3_Vci_ei)));
7563 : 0 : FCf_CT_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCf2-FCf3))+(FCf_CT*(FCf2_Vtnode_GND-FCf3_Vtnode_GND)));
7564 : : #endif
7565 : 0 : FCf_CT=(FCf_CT*(FCf2-FCf3));
7566 : : #if defined(_DERIVATE)
7567 : 0 : FCdfCT_dw_Vbi_ei=((FCf_CT_Vbi_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ei-FCdf3_dw_Vbi_ei)));
7568 : 0 : FCdfCT_dw_Vbi_ci=((FCf_CT_Vbi_ci*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ci-FCdf3_dw_Vbi_ci)));
7569 : 0 : FCdfCT_dw_Vci_ei=((FCf_CT_Vci_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vci_ei-FCdf3_dw_Vci_ei)));
7570 : 0 : FCdfCT_dw_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vtnode_GND-FCdf3_dw_Vtnode_GND)));
7571 : : #endif
7572 : 0 : FCdfCT_dw=(FCf_CT*(FCdf2_dw-FCdf3_dw));
7573 : : #if defined(_DERIVATE)
7574 : 0 : FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
7575 : 0 : FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
7576 : 0 : FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
7577 : 0 : FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
7578 : : #endif
7579 : 0 : FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
7580 : : }
7581 : : else
7582 : : {
7583 : : #if defined(_DERIVATE)
7584 : 0 : FCf_CT_Vbi_ei=FCf_ci_Vbi_ei;
7585 : 0 : FCf_CT_Vbi_ci=FCf_ci_Vbi_ci;
7586 : 0 : FCf_CT_Vci_ei=FCf_ci_Vci_ei;
7587 : 0 : FCf_CT_Vtnode_GND=FCf_ci_Vtnode_GND;
7588 : : #endif
7589 : 0 : FCf_CT=FCf_ci;
7590 : : #if defined(_DERIVATE)
7591 : 0 : FCdfCT_ditf_Vbi_ei=FCdfc_ditf_Vbi_ei;
7592 : 0 : FCdfCT_ditf_Vbi_ci=FCdfc_ditf_Vbi_ci;
7593 : 0 : FCdfCT_ditf_Vci_ei=FCdfc_ditf_Vci_ei;
7594 : 0 : FCdfCT_ditf_Vtnode_GND=FCdfc_ditf_Vtnode_GND;
7595 : : #endif
7596 : 0 : FCdfCT_ditf=FCdfc_ditf;
7597 : : }
7598 : : }
7599 : : else
7600 : : {
7601 [ # # ]: 0 : if
7602 : : (latb>0.01)
7603 : : {
7604 : : #if defined(_DERIVATE)
7605 : 0 : FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
7606 : 0 : FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
7607 : 0 : FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
7608 : 0 : FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
7609 : : #endif
7610 : 0 : FCd_a=(1.0/(1.0+(FCa_ck*latb)));
7611 : : #if defined(_DERIVATE)
7612 : 0 : FCw_Vci_ei=(((-FCa_ck_Vci_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vci_ei));
7613 : 0 : FCw_Vtnode_GND=(((-FCa_ck_Vtnode_GND)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vtnode_GND));
7614 : 0 : FCw_Vbi_ei=(((-FCa_ck_Vbi_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ei));
7615 : 0 : FCw_Vbi_ci=(((-FCa_ck_Vbi_ci)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ci));
7616 : : #endif
7617 : 0 : FCw=((1.0-FCa_ck)*FCd_a);
7618 : : #if defined(_DERIVATE)
7619 : 0 : FCdw_daick_Vci_ei=((((-(1.0+latb))*FCd_a_Vci_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vci_ei));
7620 : 0 : FCdw_daick_Vtnode_GND=((((-(1.0+latb))*FCd_a_Vtnode_GND)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vtnode_GND));
7621 : 0 : FCdw_daick_Vbi_ei=((((-(1.0+latb))*FCd_a_Vbi_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ei));
7622 : 0 : FCdw_daick_Vbi_ci=((((-(1.0+latb))*FCd_a_Vbi_ci)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ci));
7623 : : #endif
7624 : 0 : FCdw_daick=(((-(1.0+latb))*FCd_a)*FCd_a);
7625 : : }
7626 : : else
7627 : : {
7628 : : #if defined(_DERIVATE)
7629 : 0 : FCw_Vci_ei=((-FCa_ck_Vci_ei)-FCa_ck_Vci_ei*latb);
7630 : 0 : FCw_Vtnode_GND=((-FCa_ck_Vtnode_GND)-FCa_ck_Vtnode_GND*latb);
7631 : 0 : FCw_Vbi_ei=((-FCa_ck_Vbi_ei)-FCa_ck_Vbi_ei*latb);
7632 : 0 : FCw_Vbi_ci=((-FCa_ck_Vbi_ci)-FCa_ck_Vbi_ci*latb);
7633 : : #endif
7634 : 0 : FCw=((1.0-FCa_ck)-(FCa_ck*latb));
7635 : : #if defined(_DERIVATE)
7636 : 0 : FCdw_daick_Vci_ei=0.0;
7637 : 0 : FCdw_daick_Vtnode_GND=0.0;
7638 : 0 : FCdw_daick_Vbi_ei=0.0;
7639 : 0 : FCdw_daick_Vbi_ci=0.0;
7640 : : #endif
7641 : 0 : FCdw_daick=(-(1.0+latb));
7642 : : }
7643 : : #if defined(_DERIVATE)
7644 : 0 : FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
7645 : 0 : FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
7646 : 0 : FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
7647 : 0 : FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
7648 : : #endif
7649 : 0 : FCw2=(FCw*FCw);
7650 : : #if defined(_DERIVATE)
7651 : 0 : FCz_Vci_ei=(latb*FCw_Vci_ei);
7652 : 0 : FCz_Vtnode_GND=(latb*FCw_Vtnode_GND);
7653 : 0 : FCz_Vbi_ei=(latb*FCw_Vbi_ei);
7654 : 0 : FCz_Vbi_ci=(latb*FCw_Vbi_ci);
7655 : : #endif
7656 : 0 : FCz=(latb*FCw);
7657 : : #if defined(_DERIVATE)
7658 : 0 : FCz_1_Vci_ei=FCz_Vci_ei;
7659 : 0 : FCz_1_Vtnode_GND=FCz_Vtnode_GND;
7660 : 0 : FCz_1_Vbi_ei=FCz_Vbi_ei;
7661 : 0 : FCz_1_Vbi_ci=FCz_Vbi_ci;
7662 : : #endif
7663 : 0 : FCz_1=(1.0+FCz);
7664 : : #if defined(_DERIVATE)
7665 : 0 : FCd_f_Vci_ei=(-FCz_1_Vci_ei/FCz_1/FCz_1);
7666 : 0 : FCd_f_Vtnode_GND=(-FCz_1_Vtnode_GND/FCz_1/FCz_1);
7667 : 0 : FCd_f_Vbi_ei=(-FCz_1_Vbi_ei/FCz_1/FCz_1);
7668 : 0 : FCd_f_Vbi_ci=(-FCz_1_Vbi_ci/FCz_1/FCz_1);
7669 : : #endif
7670 : 0 : FCd_f=(1.0/FCz_1);
7671 : : #if defined(_DERIVATE)
7672 : 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));
7673 : 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));
7674 : 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));
7675 : 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));
7676 : : #endif
7677 : 0 : FCf_ci=((FCw2*(1.0+(FCz/3.0)))*FCd_f);
7678 : : #if defined(_DERIVATE)
7679 : 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));
7680 : 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));
7681 : 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));
7682 : 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));
7683 : : #endif
7684 : 0 : FCdfc_dw=((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
7685 : : #if defined(_DERIVATE)
7686 : 0 : FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
7687 : 0 : FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
7688 : 0 : FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
7689 : 0 : FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
7690 : : #endif
7691 : 0 : FCdw_ditf=(FCdw_daick*FCdaick_ditf);
7692 : : #if defined(_DERIVATE)
7693 : 0 : FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
7694 : 0 : FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
7695 : 0 : FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
7696 : 0 : FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
7697 : : #endif
7698 : 0 : FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
7699 [ # # ][ # # ]: 0 : if
7700 : : ((flcomp==0.0)||(flcomp==2.1))
7701 : : {
7702 [ # # ]: 0 : if
7703 : : (FCz>0.001)
7704 : : {
7705 : : {
7706 : 0 : double m00_logE(d00_logE0,FCz_1)
7707 : : #if defined(_DERIVATE)
7708 : 0 : double m10_logE(d10_logE0,d00_logE0,FCz_1)
7709 : : #endif
7710 : : #if defined(_DERIVATE)
7711 : 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));
7712 : 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));
7713 : 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));
7714 : 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));
7715 : : #endif
7716 : 0 : FCf_CT=((2.0*((FCz_1*d00_logE0)-FCz))/((latb*latb)*FCz_1));
7717 : : }
7718 : : #if defined(_DERIVATE)
7719 : 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));
7720 : 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));
7721 : 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));
7722 : 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));
7723 : : #endif
7724 : 0 : FCdfCT_dw=(((2.0*FCw)*FCd_f)*FCd_f);
7725 : : }
7726 : : else
7727 : : {
7728 : : #if defined(_DERIVATE)
7729 : 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));
7730 : 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));
7731 : 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));
7732 : 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));
7733 : : #endif
7734 : 0 : FCf_CT=((FCw2*(1.0-(FCz/3.0)))*FCd_f);
7735 : : #if defined(_DERIVATE)
7736 : 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));
7737 : 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));
7738 : 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));
7739 : 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));
7740 : : #endif
7741 : 0 : FCdfCT_dw=((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
7742 : : }
7743 : : #if defined(_DERIVATE)
7744 : 0 : FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
7745 : 0 : FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
7746 : 0 : FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
7747 : 0 : FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
7748 : : #endif
7749 : 0 : FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
7750 : : }
7751 : : else
7752 : : {
7753 : : #if defined(_DERIVATE)
7754 : 0 : FCf_CT_Vbi_ei=FCf_ci_Vbi_ei;
7755 : 0 : FCf_CT_Vbi_ci=FCf_ci_Vbi_ci;
7756 : 0 : FCf_CT_Vci_ei=FCf_ci_Vci_ei;
7757 : 0 : FCf_CT_Vtnode_GND=FCf_ci_Vtnode_GND;
7758 : : #endif
7759 : 0 : FCf_CT=FCf_ci;
7760 : : #if defined(_DERIVATE)
7761 : 0 : FCdfCT_ditf_Vbi_ei=FCdfc_ditf_Vbi_ei;
7762 : 0 : FCdfCT_ditf_Vbi_ci=FCdfc_ditf_Vbi_ci;
7763 : 0 : FCdfCT_ditf_Vci_ei=FCdfc_ditf_Vci_ei;
7764 : 0 : FCdfCT_ditf_Vtnode_GND=FCdfc_ditf_Vtnode_GND;
7765 : : #endif
7766 : 0 : FCdfCT_ditf=FCdfc_ditf;
7767 : : }
7768 : : }
7769 : : {
7770 : 0 : double m00_exp(d00_exp0,((FFdVc-vcbar)/VT))
7771 : : #if defined(_DERIVATE)
7772 : : #define d10_exp0 d00_exp0
7773 : : #endif
7774 : : #if defined(_DERIVATE)
7775 : 0 : FFdQcfcT_Vtnode_GND=((((FFdQcfc_Vtnode_GND*FCf_CT)+(FFdQcfc*FCf_CT_Vtnode_GND))*d00_exp0)+((FFdQcfc*FCf_CT)*((FFdVc_Vtnode_GND*VT-(FFdVc-vcbar)*VT_Vtnode_GND)/VT/VT)*d10_exp0));
7776 : 0 : FFdQcfcT_Vbi_ei=((((FFdQcfc_Vbi_ei*FCf_CT)+(FFdQcfc*FCf_CT_Vbi_ei))*d00_exp0)+((FFdQcfc*FCf_CT)*(FFdVc_Vbi_ei/VT)*d10_exp0));
7777 : 0 : FFdQcfcT_Vbi_ci=((((FFdQcfc_Vbi_ci*FCf_CT)+(FFdQcfc*FCf_CT_Vbi_ci))*d00_exp0)+((FFdQcfc*FCf_CT)*(FFdVc_Vbi_ci/VT)*d10_exp0));
7778 : 0 : FFdQcfcT_Vci_ei=((((FFdQcfc_Vci_ei*FCf_CT)+(FFdQcfc*FCf_CT_Vci_ei))*d00_exp0)+((FFdQcfc*FCf_CT)*(FFdVc_Vci_ei/VT)*d10_exp0));
7779 : : #endif
7780 : 0 : FFdQcfcT=((FFdQcfc*FCf_CT)*d00_exp0);
7781 : : }
7782 : : {
7783 : 0 : double m00_exp(d00_exp0,((FFdVc-vcbar)/VT))
7784 : : #if defined(_DERIVATE)
7785 : : #define d10_exp0 d00_exp0
7786 : : #endif
7787 : : #if defined(_DERIVATE)
7788 : 0 : FFdQcfc_Vtnode_GND=((((FFdQcfc_Vtnode_GND*FCf_ci)+(FFdQcfc*FCf_ci_Vtnode_GND))*d00_exp0)+((FFdQcfc*FCf_ci)*((FFdVc_Vtnode_GND*VT-(FFdVc-vcbar)*VT_Vtnode_GND)/VT/VT)*d10_exp0));
7789 : 0 : FFdQcfc_Vbi_ei=((((FFdQcfc_Vbi_ei*FCf_ci)+(FFdQcfc*FCf_ci_Vbi_ei))*d00_exp0)+((FFdQcfc*FCf_ci)*(FFdVc_Vbi_ei/VT)*d10_exp0));
7790 : 0 : FFdQcfc_Vbi_ci=((((FFdQcfc_Vbi_ci*FCf_ci)+(FFdQcfc*FCf_ci_Vbi_ci))*d00_exp0)+((FFdQcfc*FCf_ci)*(FFdVc_Vbi_ci/VT)*d10_exp0));
7791 : 0 : FFdQcfc_Vci_ei=((((FFdQcfc_Vci_ei*FCf_ci)+(FFdQcfc*FCf_ci_Vci_ei))*d00_exp0)+((FFdQcfc*FCf_ci)*(FFdVc_Vci_ei/VT)*d10_exp0));
7792 : : #endif
7793 : 0 : FFdQcfc=((FFdQcfc*FCf_ci)*d00_exp0);
7794 : : }
7795 : : {
7796 : 0 : double m00_exp(d00_exp0,((FFdVc-vcbar)/VT))
7797 : : #if defined(_DERIVATE)
7798 : : #define d10_exp0 d00_exp0
7799 : : #endif
7800 : : #if defined(_DERIVATE)
7801 : 0 : FFdTcfc_Vtnode_GND=((((((fthc*thcs_t_Vtnode_GND)*d00_exp0)+((fthc*thcs_t)*((FFdVc_Vtnode_GND*VT-(FFdVc-vcbar)*VT_Vtnode_GND)/VT/VT)*d10_exp0))*(FCf_ci+(itf*FCdfc_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_ci_Vtnode_GND+((itf_Vtnode_GND*FCdfc_ditf)+(itf*FCdfc_ditf_Vtnode_GND)))))+((((FFdQcfc_Vtnode_GND*VT-FFdQcfc*VT_Vtnode_GND)/VT/VT)*FFdVc_ditf)+((FFdQcfc/VT)*FFdVc_ditf_Vtnode_GND)));
7802 : 0 : FFdTcfc_Vbi_ei=(((((fthc*thcs_t)*(FFdVc_Vbi_ei/VT)*d10_exp0)*(FCf_ci+(itf*FCdfc_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_ci_Vbi_ei+((itf_Vbi_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ei)))))+(((FFdQcfc_Vbi_ei/VT)*FFdVc_ditf)+((FFdQcfc/VT)*FFdVc_ditf_Vbi_ei)));
7803 : 0 : FFdTcfc_Vbi_ci=(((((fthc*thcs_t)*(FFdVc_Vbi_ci/VT)*d10_exp0)*(FCf_ci+(itf*FCdfc_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_ci_Vbi_ci+((itf_Vbi_ci*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ci)))))+(((FFdQcfc_Vbi_ci/VT)*FFdVc_ditf)+((FFdQcfc/VT)*FFdVc_ditf_Vbi_ci)));
7804 : 0 : FFdTcfc_Vci_ei=(((((fthc*thcs_t)*(FFdVc_Vci_ei/VT)*d10_exp0)*(FCf_ci+(itf*FCdfc_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_ci_Vci_ei+((itf_Vci_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vci_ei)))))+(((FFdQcfc_Vci_ei/VT)*FFdVc_ditf)+((FFdQcfc/VT)*FFdVc_ditf_Vci_ei)));
7805 : : #endif
7806 : 0 : FFdTcfc=((((fthc*thcs_t)*d00_exp0)*(FCf_ci+(itf*FCdfc_ditf)))+((FFdQcfc/VT)*FFdVc_ditf));
7807 : : }
7808 : : {
7809 : 0 : double m00_exp(d00_exp0,((FFdVc-vcbar)/VT))
7810 : : #if defined(_DERIVATE)
7811 : : #define d10_exp0 d00_exp0
7812 : : #endif
7813 : : #if defined(_DERIVATE)
7814 : 0 : FFdTcfcT_Vtnode_GND=((((((fthc*thcs_t_Vtnode_GND)*d00_exp0)+((fthc*thcs_t)*((FFdVc_Vtnode_GND*VT-(FFdVc-vcbar)*VT_Vtnode_GND)/VT/VT)*d10_exp0))*(FCf_CT+(itf*FCdfCT_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_CT_Vtnode_GND+((itf_Vtnode_GND*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vtnode_GND)))))+((((FFdQcfcT_Vtnode_GND*VT-FFdQcfcT*VT_Vtnode_GND)/VT/VT)*FFdVc_ditf)+((FFdQcfcT/VT)*FFdVc_ditf_Vtnode_GND)));
7815 : 0 : FFdTcfcT_Vbi_ei=(((((fthc*thcs_t)*(FFdVc_Vbi_ei/VT)*d10_exp0)*(FCf_CT+(itf*FCdfCT_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_CT_Vbi_ei+((itf_Vbi_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ei)))))+(((FFdQcfcT_Vbi_ei/VT)*FFdVc_ditf)+((FFdQcfcT/VT)*FFdVc_ditf_Vbi_ei)));
7816 : 0 : FFdTcfcT_Vbi_ci=(((((fthc*thcs_t)*(FFdVc_Vbi_ci/VT)*d10_exp0)*(FCf_CT+(itf*FCdfCT_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_CT_Vbi_ci+((itf_Vbi_ci*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ci)))))+(((FFdQcfcT_Vbi_ci/VT)*FFdVc_ditf)+((FFdQcfcT/VT)*FFdVc_ditf_Vbi_ci)));
7817 : 0 : FFdTcfcT_Vci_ei=(((((fthc*thcs_t)*(FFdVc_Vci_ei/VT)*d10_exp0)*(FCf_CT+(itf*FCdfCT_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_CT_Vci_ei+((itf_Vci_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vci_ei)))))+(((FFdQcfcT_Vci_ei/VT)*FFdVc_ditf)+((FFdQcfcT/VT)*FFdVc_ditf_Vci_ei)));
7818 : : #endif
7819 : 0 : FFdTcfcT=((((fthc*thcs_t)*d00_exp0)*(FCf_CT+(itf*FCdfCT_ditf)))+((FFdQcfcT/VT)*FFdVc_ditf));
7820 : : }
7821 : : }
7822 : : #if defined(_DERIVATE)
7823 : 0 : FFdQbfc_Vtnode_GND=((1-fthc)*FFdQfhc_Vtnode_GND);
7824 : 0 : FFdQbfc_Vbi_ei=((1-fthc)*FFdQfhc_Vbi_ei);
7825 : 0 : FFdQbfc_Vbi_ci=((1-fthc)*FFdQfhc_Vbi_ci);
7826 : 0 : FFdQbfc_Vci_ei=((1-fthc)*FFdQfhc_Vci_ei);
7827 : : #endif
7828 : 0 : FFdQbfc=((1-fthc)*FFdQfhc);
7829 : : #if defined(_DERIVATE)
7830 : 0 : FFdTbfc_Vtnode_GND=((1-fthc)*FFdTfhc_Vtnode_GND);
7831 : 0 : FFdTbfc_Vbi_ei=((1-fthc)*FFdTfhc_Vbi_ei);
7832 : 0 : FFdTbfc_Vbi_ci=((1-fthc)*FFdTfhc_Vbi_ci);
7833 : 0 : FFdTbfc_Vci_ei=((1-fthc)*FFdTfhc_Vci_ei);
7834 : : #endif
7835 : 0 : FFdTbfc=((1-fthc)*FFdTfhc);
7836 : : #if defined(_DERIVATE)
7837 : 0 : Q_fT_Vci_ei=(((((hf0_t*Qf_Vci_ei)+FFdQbfb_Vci_ei)+FFdQbfc_Vci_ei)+(hfe_t*FFdQef_Vci_ei))+(hfc_t*FFdQcfcT_Vci_ei));
7838 : 0 : Q_fT_Vtnode_GND=((((((hf0_t_Vtnode_GND*Qf)+(hf0_t*Qf_Vtnode_GND))+FFdQbfb_Vtnode_GND)+FFdQbfc_Vtnode_GND)+((hfe_t_Vtnode_GND*FFdQef)+(hfe_t*FFdQef_Vtnode_GND)))+((hfc_t_Vtnode_GND*FFdQcfcT)+(hfc_t*FFdQcfcT_Vtnode_GND)));
7839 : 0 : Q_fT_Vbi_ci=(((((hf0_t*Qf_Vbi_ci)+FFdQbfb_Vbi_ci)+FFdQbfc_Vbi_ci)+(hfe_t*FFdQef_Vbi_ci))+(hfc_t*FFdQcfcT_Vbi_ci));
7840 : 0 : Q_fT_Vbi_ei=(((((hf0_t*Qf_Vbi_ei)+FFdQbfb_Vbi_ei)+FFdQbfc_Vbi_ei)+(hfe_t*FFdQef_Vbi_ei))+(hfc_t*FFdQcfcT_Vbi_ei));
7841 : : #endif
7842 : 0 : Q_fT=(((((hf0_t*Qf)+FFdQbfb)+FFdQbfc)+(hfe_t*FFdQef))+(hfc_t*FFdQcfcT));
7843 : : #if defined(_DERIVATE)
7844 : 0 : T_fT_Vbi_ei=(((((hf0_t*Tf_Vbi_ei)+FFdTbfb_Vbi_ei)+FFdTbfc_Vbi_ei)+(hfe_t*FFdTef_Vbi_ei))+(hfc_t*FFdTcfcT_Vbi_ei));
7845 : 0 : T_fT_Vci_ei=(((((hf0_t*Tf_Vci_ei)+FFdTbfb_Vci_ei)+FFdTbfc_Vci_ei)+(hfe_t*FFdTef_Vci_ei))+(hfc_t*FFdTcfcT_Vci_ei));
7846 : 0 : T_fT_Vtnode_GND=((((((hf0_t_Vtnode_GND*Tf)+(hf0_t*Tf_Vtnode_GND))+FFdTbfb_Vtnode_GND)+FFdTbfc_Vtnode_GND)+((hfe_t_Vtnode_GND*FFdTef)+(hfe_t*FFdTef_Vtnode_GND)))+((hfc_t_Vtnode_GND*FFdTcfcT)+(hfc_t*FFdTcfcT_Vtnode_GND)));
7847 : 0 : T_fT_Vbi_ci=(((((hf0_t*Tf_Vbi_ci)+FFdTbfb_Vbi_ci)+FFdTbfc_Vbi_ci)+(hfe_t*FFdTef_Vbi_ci))+(hfc_t*FFdTcfcT_Vbi_ci));
7848 : : #endif
7849 : 0 : T_fT=(((((hf0_t*Tf)+FFdTbfb)+FFdTbfc)+(hfe_t*FFdTef))+(hfc_t*FFdTcfcT));
7850 : : #if defined(_DERIVATE)
7851 : 0 : Qf_Vci_ei=(((Qf_Vci_ei+(FFdQbfb_Vci_ei+FFdQbfc_Vci_ei))+FFdQef_Vci_ei)+FFdQcfc_Vci_ei);
7852 : 0 : Qf_Vtnode_GND=(((Qf_Vtnode_GND+(FFdQbfb_Vtnode_GND+FFdQbfc_Vtnode_GND))+FFdQef_Vtnode_GND)+FFdQcfc_Vtnode_GND);
7853 : 0 : Qf_Vbi_ci=(((Qf_Vbi_ci+(FFdQbfb_Vbi_ci+FFdQbfc_Vbi_ci))+FFdQef_Vbi_ci)+FFdQcfc_Vbi_ci);
7854 : 0 : Qf_Vbi_ei=(((Qf_Vbi_ei+(FFdQbfb_Vbi_ei+FFdQbfc_Vbi_ei))+FFdQef_Vbi_ei)+FFdQcfc_Vbi_ei);
7855 : : #endif
7856 : 0 : Qf=(((Qf+(FFdQbfb+FFdQbfc))+FFdQef)+FFdQcfc);
7857 : : #if defined(_DERIVATE)
7858 : 0 : Tf_Vbi_ei=(((Tf_Vbi_ei+(FFdTbfb_Vbi_ei+FFdTbfc_Vbi_ei))+FFdTef_Vbi_ei)+FFdTcfc_Vbi_ei);
7859 : 0 : Tf_Vci_ei=(((Tf_Vci_ei+(FFdTbfb_Vci_ei+FFdTbfc_Vci_ei))+FFdTef_Vci_ei)+FFdTcfc_Vci_ei);
7860 : 0 : Tf_Vtnode_GND=(((Tf_Vtnode_GND+(FFdTbfb_Vtnode_GND+FFdTbfc_Vtnode_GND))+FFdTef_Vtnode_GND)+FFdTcfc_Vtnode_GND);
7861 : 0 : Tf_Vbi_ci=(((Tf_Vbi_ci+(FFdTbfb_Vbi_ci+FFdTbfc_Vbi_ci))+FFdTef_Vbi_ci)+FFdTcfc_Vbi_ci);
7862 : : #endif
7863 : 0 : Tf=(((Tf+(FFdTbfb+FFdTbfc))+FFdTef)+FFdTcfc);
7864 : : #if defined(_DERIVATE)
7865 : 0 : Q_bf_Vtnode_GND=(FFdQbfb_Vtnode_GND+FFdQbfc_Vtnode_GND);
7866 : 0 : Q_bf_Vbi_ei=(FFdQbfb_Vbi_ei+FFdQbfc_Vbi_ei);
7867 : 0 : Q_bf_Vbi_ci=(FFdQbfb_Vbi_ci+FFdQbfc_Vbi_ci);
7868 : 0 : Q_bf_Vci_ei=(FFdQbfb_Vci_ei+FFdQbfc_Vci_ei);
7869 : : #endif
7870 : 0 : Q_bf=(FFdQbfb+FFdQbfc);
7871 : : }
7872 : : #if defined(_DERIVATE)
7873 : 0 : Qr_Vci_ei=(Tr*itr_Vci_ei);
7874 : 0 : Qr_Vtnode_GND=(Tr*itr_Vtnode_GND);
7875 : 0 : Qr_Vbi_ci=(Tr*itr_Vbi_ci);
7876 : 0 : Qr_Vbi_ei=(Tr*itr_Vbi_ei);
7877 : : #endif
7878 : 0 : Qr=(Tr*itr);
7879 [ # # ]: 0 : if
7880 : : (Oich==0.0)
7881 : : {
7882 : : #if defined(_DERIVATE)
7883 : 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);
7884 : 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);
7885 : 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);
7886 : 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);
7887 : : #endif
7888 : 0 : a=(1.0+(((T_fT*itf)+Qr)/Q_pT));
7889 : : }
7890 : : else
7891 : : {
7892 : : #if defined(_DERIVATE)
7893 : 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);
7894 : 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);
7895 : 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);
7896 : 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);
7897 : : #endif
7898 : 0 : a=(1.0+((((T_fT*I_Tf1)*(1.0+(2.0*a_h)))+Qr)/Q_pT));
7899 : : }
7900 : : #if defined(_DERIVATE)
7901 : 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);
7902 : 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);
7903 : 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);
7904 : 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);
7905 : : #endif
7906 : 0 : d_Q=((-(Q_pT-((Q_0+Q_fT)+Qr)))/a);
7907 : : {
7908 [ # # ]: 0 : double m00_abs(d00_abs0,(0.3*Q_pT))
7909 : : #if defined(_DERIVATE)
7910 [ # # ]: 0 : double m10_abs(d10_abs0,d00_abs0,(0.3*Q_pT))
7911 : : #endif
7912 : : #if defined(_DERIVATE)
7913 : 0 : a_Vbi_ei=(0.3*Q_pT_Vbi_ei)*d10_abs0;
7914 : 0 : a_Vbi_ci=(0.3*Q_pT_Vbi_ci)*d10_abs0;
7915 : 0 : a_Vci_ei=(0.3*Q_pT_Vci_ei)*d10_abs0;
7916 : 0 : a_Vtnode_GND=(0.3*Q_pT_Vtnode_GND)*d10_abs0;
7917 : : #endif
7918 : 0 : a=d00_abs0;
7919 : : }
7920 : : {
7921 [ # # ]: 0 : double m00_abs(d00_abs0,d_Q)
7922 [ # # ]: 0 : if
7923 : : (d00_abs0>a)
7924 : : {
7925 [ # # ]: 0 : if
7926 : : (d_Q>=0)
7927 : : {
7928 : : #if defined(_DERIVATE)
7929 : 0 : d_Q_Vtnode_GND=a_Vtnode_GND;
7930 : 0 : d_Q_Vbi_ei=a_Vbi_ei;
7931 : 0 : d_Q_Vbi_ci=a_Vbi_ci;
7932 : 0 : d_Q_Vci_ei=a_Vci_ei;
7933 : : #endif
7934 : 0 : d_Q=a;
7935 : : }
7936 : : else
7937 : : {
7938 : : #if defined(_DERIVATE)
7939 : 0 : d_Q_Vtnode_GND=(-a_Vtnode_GND);
7940 : 0 : d_Q_Vbi_ei=(-a_Vbi_ei);
7941 : 0 : d_Q_Vbi_ci=(-a_Vbi_ci);
7942 : 0 : d_Q_Vci_ei=(-a_Vci_ei);
7943 : : #endif
7944 : 0 : d_Q=(-a);
7945 : : }
7946 : : }
7947 : : }
7948 : : #if defined(_DERIVATE)
7949 : 0 : Q_pT_Vtnode_GND=(Q_pT_Vtnode_GND+d_Q_Vtnode_GND);
7950 : 0 : Q_pT_Vbi_ei=(Q_pT_Vbi_ei+d_Q_Vbi_ei);
7951 : 0 : Q_pT_Vbi_ci=(Q_pT_Vbi_ci+d_Q_Vbi_ci);
7952 : 0 : Q_pT_Vci_ei=(Q_pT_Vci_ei+d_Q_Vci_ei);
7953 : : #endif
7954 : 0 : Q_pT=(Q_pT+d_Q);
7955 : 0 : l_it=(l_it+1);
7956 : : }
7957 : : #if defined(_DERIVATE)
7958 : 0 : I_Tf1_Vci_ei=(-i_0f*Q_pT_Vci_ei/Q_pT/Q_pT);
7959 : 0 : I_Tf1_Vtnode_GND=((i_0f_Vtnode_GND*Q_pT-i_0f*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
7960 : 0 : I_Tf1_Vbi_ei=((i_0f_Vbi_ei*Q_pT-i_0f*Q_pT_Vbi_ei)/Q_pT/Q_pT);
7961 : 0 : I_Tf1_Vbi_ci=(-i_0f*Q_pT_Vbi_ci/Q_pT/Q_pT);
7962 : : #endif
7963 : 0 : I_Tf1=(i_0f/Q_pT);
7964 : : #if defined(_DERIVATE)
7965 : 0 : a_h_Vci_ei=(Oich*I_Tf1_Vci_ei);
7966 : 0 : a_h_Vtnode_GND=(Oich*I_Tf1_Vtnode_GND);
7967 : 0 : a_h_Vbi_ei=(Oich*I_Tf1_Vbi_ei);
7968 : 0 : a_h_Vbi_ci=(Oich*I_Tf1_Vbi_ci);
7969 : : #endif
7970 : 0 : a_h=(Oich*I_Tf1);
7971 : : #if defined(_DERIVATE)
7972 : 0 : itf_Vci_ei=((I_Tf1_Vci_ei*(1.0+a_h))+(I_Tf1*a_h_Vci_ei));
7973 : 0 : itf_Vtnode_GND=((I_Tf1_Vtnode_GND*(1.0+a_h))+(I_Tf1*a_h_Vtnode_GND));
7974 : 0 : itf_Vbi_ei=((I_Tf1_Vbi_ei*(1.0+a_h))+(I_Tf1*a_h_Vbi_ei));
7975 : 0 : itf_Vbi_ci=((I_Tf1_Vbi_ci*(1.0+a_h))+(I_Tf1*a_h_Vbi_ci));
7976 : : #endif
7977 : 0 : itf=(I_Tf1*(1.0+a_h));
7978 : : #if defined(_DERIVATE)
7979 : 0 : itr_Vci_ei=(-i_0r*Q_pT_Vci_ei/Q_pT/Q_pT);
7980 : 0 : itr_Vtnode_GND=((i_0r_Vtnode_GND*Q_pT-i_0r*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
7981 : 0 : itr_Vbi_ci=((i_0r_Vbi_ci*Q_pT-i_0r*Q_pT_Vbi_ci)/Q_pT/Q_pT);
7982 : 0 : itr_Vbi_ei=(-i_0r*Q_pT_Vbi_ei/Q_pT/Q_pT);
7983 : : #endif
7984 : 0 : itr=(i_0r/Q_pT);
7985 : : #if defined(_DERIVATE)
7986 : 0 : Tf_Vbi_ei=0.0;
7987 : 0 : Tf_Vci_ei=0.0;
7988 : 0 : Tf_Vtnode_GND=T_f0_Vtnode_GND;
7989 : 0 : Tf_Vbi_ci=T_f0_Vbi_ci;
7990 : : #endif
7991 : 0 : Tf=T_f0;
7992 : : #if defined(_DERIVATE)
7993 : 0 : Qf_Vci_ei=(T_f0*itf_Vci_ei);
7994 : 0 : Qf_Vtnode_GND=((T_f0_Vtnode_GND*itf)+(T_f0*itf_Vtnode_GND));
7995 : 0 : Qf_Vbi_ci=((T_f0_Vbi_ci*itf)+(T_f0*itf_Vbi_ci));
7996 : 0 : Qf_Vbi_ei=(T_f0*itf_Vbi_ei);
7997 : : #endif
7998 : 0 : Qf=(T_f0*itf);
7999 [ # # ]: 0 : if
8000 : : (itf<(1.0e-6*ick))
8001 : : {
8002 : : #if defined(_DYNAMIC)
8003 : : #if defined(_DERIVATE)
8004 : 0 : Q_fT_Vci_ei=Qf_Vci_ei;
8005 : 0 : Q_fT_Vtnode_GND=Qf_Vtnode_GND;
8006 : 0 : Q_fT_Vbi_ci=Qf_Vbi_ci;
8007 : 0 : Q_fT_Vbi_ei=Qf_Vbi_ei;
8008 : : #endif
8009 : 0 : Q_fT=Qf;
8010 : : #endif
8011 : : #if defined(_DYNAMIC)
8012 : : #if defined(_DERIVATE)
8013 : 0 : T_fT_Vbi_ei=Tf_Vbi_ei;
8014 : 0 : T_fT_Vci_ei=Tf_Vci_ei;
8015 : 0 : T_fT_Vtnode_GND=Tf_Vtnode_GND;
8016 : 0 : T_fT_Vbi_ci=Tf_Vbi_ci;
8017 : : #endif
8018 : 0 : T_fT=Tf;
8019 : : #endif
8020 : : }
8021 : : else
8022 : : {
8023 : : #if defined(_DERIVATE)
8024 : 0 : FFitf_ick_Vtnode_GND=((itf_Vtnode_GND*ick-itf*ick_Vtnode_GND)/ick/ick);
8025 : 0 : FFitf_ick_Vbi_ei=(itf_Vbi_ei/ick);
8026 : 0 : FFitf_ick_Vbi_ci=(itf_Vbi_ci/ick);
8027 : 0 : FFitf_ick_Vci_ei=((itf_Vci_ei*ick-itf*ick_Vci_ei)/ick/ick);
8028 : : #endif
8029 : 0 : FFitf_ick=(itf/ick);
8030 : : {
8031 : 0 : double m00_logE(d00_logE0,FFitf_ick)
8032 : 0 : double m00_exp(d00_exp1,(gtfe*d00_logE0))
8033 : : #if defined(_DERIVATE)
8034 : 0 : double m10_logE(d10_logE0,d00_logE0,FFitf_ick)
8035 : : #define d10_exp1 d00_exp1
8036 : : #endif
8037 : : #if defined(_DERIVATE)
8038 : 0 : FFdTef_Vtnode_GND=((tef0_t_Vtnode_GND*d00_exp1)+(tef0_t*(gtfe*FFitf_ick_Vtnode_GND*d10_logE0)*d10_exp1));
8039 : 0 : FFdTef_Vbi_ei=(tef0_t*(gtfe*FFitf_ick_Vbi_ei*d10_logE0)*d10_exp1);
8040 : 0 : FFdTef_Vbi_ci=(tef0_t*(gtfe*FFitf_ick_Vbi_ci*d10_logE0)*d10_exp1);
8041 : 0 : FFdTef_Vci_ei=(tef0_t*(gtfe*FFitf_ick_Vci_ei*d10_logE0)*d10_exp1);
8042 : : #endif
8043 : 0 : FFdTef=(tef0_t*d00_exp1);
8044 : : }
8045 : : #if defined(_DERIVATE)
8046 : 0 : FFdQef_Vtnode_GND=(((FFdTef_Vtnode_GND*itf)+(FFdTef*itf_Vtnode_GND))/(1+gtfe));
8047 : 0 : FFdQef_Vbi_ei=(((FFdTef_Vbi_ei*itf)+(FFdTef*itf_Vbi_ei))/(1+gtfe));
8048 : 0 : FFdQef_Vbi_ci=(((FFdTef_Vbi_ci*itf)+(FFdTef*itf_Vbi_ci))/(1+gtfe));
8049 : 0 : FFdQef_Vci_ei=(((FFdTef_Vci_ei*itf)+(FFdTef*itf_Vci_ei))/(1+gtfe));
8050 : : #endif
8051 : 0 : FFdQef=((FFdTef*itf)/(1+gtfe));
8052 [ # # ]: 0 : if
8053 : : (icbar<1e-10)
8054 : : {
8055 : : #if defined(_DERIVATE)
8056 : 0 : FFdVc_Vtnode_GND=0.0;
8057 : 0 : FFdVc_Vbi_ei=0.0;
8058 : 0 : FFdVc_Vbi_ci=0.0;
8059 : 0 : FFdVc_Vci_ei=0.0;
8060 : : #endif
8061 : 0 : FFdVc=0;
8062 : : #if defined(_DERIVATE)
8063 : 0 : FFdVc_ditf_Vtnode_GND=0.0;
8064 : 0 : FFdVc_ditf_Vbi_ei=0.0;
8065 : 0 : FFdVc_ditf_Vbi_ci=0.0;
8066 : 0 : FFdVc_ditf_Vci_ei=0.0;
8067 : : #endif
8068 : 0 : FFdVc_ditf=0;
8069 : : }
8070 : : else
8071 : : {
8072 : : #if defined(_DERIVATE)
8073 : 0 : FFib_Vtnode_GND=((itf_Vtnode_GND-ick_Vtnode_GND)/icbar);
8074 : 0 : FFib_Vbi_ei=(itf_Vbi_ei/icbar);
8075 : 0 : FFib_Vbi_ci=(itf_Vbi_ci/icbar);
8076 : 0 : FFib_Vci_ei=((itf_Vci_ei-ick_Vci_ei)/icbar);
8077 : : #endif
8078 : 0 : FFib=((itf-ick)/icbar);
8079 [ # # ]: 0 : if
8080 : : (FFib<(-1.0e10))
8081 : : {
8082 : : #if defined(_DERIVATE)
8083 : 0 : FFib_Vtnode_GND=0.0;
8084 : 0 : FFib_Vbi_ei=0.0;
8085 : 0 : FFib_Vbi_ci=0.0;
8086 : 0 : FFib_Vci_ei=0.0;
8087 : : #endif
8088 : 0 : FFib=(-1.0e10);
8089 : : }
8090 : : {
8091 : 0 : double m00_sqrt(d00_sqrt0,((FFib*FFib)+acbar))
8092 : : #if defined(_DERIVATE)
8093 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFib*FFib)+acbar))
8094 : : #endif
8095 : : #if defined(_DERIVATE)
8096 : 0 : FFfcbar_Vtnode_GND=((FFib_Vtnode_GND+((FFib_Vtnode_GND*FFib)+(FFib*FFib_Vtnode_GND))*d10_sqrt0)/2.0);
8097 : 0 : FFfcbar_Vbi_ei=((FFib_Vbi_ei+((FFib_Vbi_ei*FFib)+(FFib*FFib_Vbi_ei))*d10_sqrt0)/2.0);
8098 : 0 : FFfcbar_Vbi_ci=((FFib_Vbi_ci+((FFib_Vbi_ci*FFib)+(FFib*FFib_Vbi_ci))*d10_sqrt0)/2.0);
8099 : 0 : FFfcbar_Vci_ei=((FFib_Vci_ei+((FFib_Vci_ei*FFib)+(FFib*FFib_Vci_ei))*d10_sqrt0)/2.0);
8100 : : #endif
8101 : 0 : FFfcbar=((FFib+d00_sqrt0)/2.0);
8102 : : }
8103 : : {
8104 : 0 : double m00_sqrt(d00_sqrt0,((FFib*FFib)+acbar))
8105 : : #if defined(_DERIVATE)
8106 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFib*FFib)+acbar))
8107 : : #endif
8108 : : #if defined(_DERIVATE)
8109 : 0 : FFdib_ditf_Vtnode_GND=(((FFfcbar_Vtnode_GND*d00_sqrt0-FFfcbar*((FFib_Vtnode_GND*FFib)+(FFib*FFib_Vtnode_GND))*d10_sqrt0)/d00_sqrt0/d00_sqrt0)/icbar);
8110 : 0 : FFdib_ditf_Vbi_ei=(((FFfcbar_Vbi_ei*d00_sqrt0-FFfcbar*((FFib_Vbi_ei*FFib)+(FFib*FFib_Vbi_ei))*d10_sqrt0)/d00_sqrt0/d00_sqrt0)/icbar);
8111 : 0 : FFdib_ditf_Vbi_ci=(((FFfcbar_Vbi_ci*d00_sqrt0-FFfcbar*((FFib_Vbi_ci*FFib)+(FFib*FFib_Vbi_ci))*d10_sqrt0)/d00_sqrt0/d00_sqrt0)/icbar);
8112 : 0 : FFdib_ditf_Vci_ei=(((FFfcbar_Vci_ei*d00_sqrt0-FFfcbar*((FFib_Vci_ei*FFib)+(FFib*FFib_Vci_ei))*d10_sqrt0)/d00_sqrt0/d00_sqrt0)/icbar);
8113 : : #endif
8114 : 0 : FFdib_ditf=((FFfcbar/d00_sqrt0)/icbar);
8115 : : }
8116 : : {
8117 : 0 : double m00_exp(d00_exp0,((-1.0)/FFfcbar))
8118 : : #if defined(_DERIVATE)
8119 : : #define d10_exp0 d00_exp0
8120 : : #endif
8121 : : #if defined(_DERIVATE)
8122 : 0 : FFdVc_Vtnode_GND=(vcbar*(-(-1.0)*FFfcbar_Vtnode_GND/FFfcbar/FFfcbar)*d10_exp0);
8123 : 0 : FFdVc_Vbi_ei=(vcbar*(-(-1.0)*FFfcbar_Vbi_ei/FFfcbar/FFfcbar)*d10_exp0);
8124 : 0 : FFdVc_Vbi_ci=(vcbar*(-(-1.0)*FFfcbar_Vbi_ci/FFfcbar/FFfcbar)*d10_exp0);
8125 : 0 : FFdVc_Vci_ei=(vcbar*(-(-1.0)*FFfcbar_Vci_ei/FFfcbar/FFfcbar)*d10_exp0);
8126 : : #endif
8127 : 0 : FFdVc=(vcbar*d00_exp0);
8128 : : }
8129 : : #if defined(_DERIVATE)
8130 : 0 : FFdVc_ditf_Vtnode_GND=((((FFdVc_Vtnode_GND*(FFfcbar*FFfcbar)-FFdVc*((FFfcbar_Vtnode_GND*FFfcbar)+(FFfcbar*FFfcbar_Vtnode_GND)))/(FFfcbar*FFfcbar)/(FFfcbar*FFfcbar))*FFdib_ditf)+((FFdVc/(FFfcbar*FFfcbar))*FFdib_ditf_Vtnode_GND));
8131 : 0 : FFdVc_ditf_Vbi_ei=((((FFdVc_Vbi_ei*(FFfcbar*FFfcbar)-FFdVc*((FFfcbar_Vbi_ei*FFfcbar)+(FFfcbar*FFfcbar_Vbi_ei)))/(FFfcbar*FFfcbar)/(FFfcbar*FFfcbar))*FFdib_ditf)+((FFdVc/(FFfcbar*FFfcbar))*FFdib_ditf_Vbi_ei));
8132 : 0 : FFdVc_ditf_Vbi_ci=((((FFdVc_Vbi_ci*(FFfcbar*FFfcbar)-FFdVc*((FFfcbar_Vbi_ci*FFfcbar)+(FFfcbar*FFfcbar_Vbi_ci)))/(FFfcbar*FFfcbar)/(FFfcbar*FFfcbar))*FFdib_ditf)+((FFdVc/(FFfcbar*FFfcbar))*FFdib_ditf_Vbi_ci));
8133 : 0 : FFdVc_ditf_Vci_ei=((((FFdVc_Vci_ei*(FFfcbar*FFfcbar)-FFdVc*((FFfcbar_Vci_ei*FFfcbar)+(FFfcbar*FFfcbar_Vci_ei)))/(FFfcbar*FFfcbar)/(FFfcbar*FFfcbar))*FFdib_ditf)+((FFdVc/(FFfcbar*FFfcbar))*FFdib_ditf_Vci_ei));
8134 : : #endif
8135 : 0 : FFdVc_ditf=((FFdVc/(FFfcbar*FFfcbar))*FFdib_ditf);
8136 : : }
8137 : : {
8138 : 0 : double m00_exp(d00_exp0,(FFdVc/VT))
8139 : : #if defined(_DERIVATE)
8140 : : #define d10_exp0 d00_exp0
8141 : : #endif
8142 : : #if defined(_DERIVATE)
8143 : 0 : FFdQbfb_Vtnode_GND=((((((1-fthc)*thcs_t_Vtnode_GND)*itf)+(((1-fthc)*thcs_t)*itf_Vtnode_GND))*(d00_exp0-1))+((((1-fthc)*thcs_t)*itf)*((FFdVc_Vtnode_GND*VT-FFdVc*VT_Vtnode_GND)/VT/VT)*d10_exp0));
8144 : 0 : FFdQbfb_Vbi_ei=(((((1-fthc)*thcs_t)*itf_Vbi_ei)*(d00_exp0-1))+((((1-fthc)*thcs_t)*itf)*(FFdVc_Vbi_ei/VT)*d10_exp0));
8145 : 0 : FFdQbfb_Vbi_ci=(((((1-fthc)*thcs_t)*itf_Vbi_ci)*(d00_exp0-1))+((((1-fthc)*thcs_t)*itf)*(FFdVc_Vbi_ci/VT)*d10_exp0));
8146 : 0 : FFdQbfb_Vci_ei=(((((1-fthc)*thcs_t)*itf_Vci_ei)*(d00_exp0-1))+((((1-fthc)*thcs_t)*itf)*(FFdVc_Vci_ei/VT)*d10_exp0));
8147 : : #endif
8148 : 0 : FFdQbfb=((((1-fthc)*thcs_t)*itf)*(d00_exp0-1));
8149 : : }
8150 : : {
8151 : 0 : double m00_exp(d00_exp0,(FFdVc/VT))
8152 : : #if defined(_DERIVATE)
8153 : : #define d10_exp0 d00_exp0
8154 : : #endif
8155 : : #if defined(_DERIVATE)
8156 : 0 : FFdTbfb_Vtnode_GND=(((FFdQbfb_Vtnode_GND*itf-FFdQbfb*itf_Vtnode_GND)/itf/itf)+((((((((((1-fthc)*thcs_t_Vtnode_GND)*itf)+(((1-fthc)*thcs_t)*itf_Vtnode_GND))*d00_exp0)+((((1-fthc)*thcs_t)*itf)*((FFdVc_Vtnode_GND*VT-FFdVc*VT_Vtnode_GND)/VT/VT)*d10_exp0))*VT-((((1-fthc)*thcs_t)*itf)*d00_exp0)*VT_Vtnode_GND)/VT/VT)*FFdVc_ditf)+((((((1-fthc)*thcs_t)*itf)*d00_exp0)/VT)*FFdVc_ditf_Vtnode_GND)));
8157 : 0 : FFdTbfb_Vbi_ei=(((FFdQbfb_Vbi_ei*itf-FFdQbfb*itf_Vbi_ei)/itf/itf)+((((((((1-fthc)*thcs_t)*itf_Vbi_ei)*d00_exp0)+((((1-fthc)*thcs_t)*itf)*(FFdVc_Vbi_ei/VT)*d10_exp0))/VT)*FFdVc_ditf)+((((((1-fthc)*thcs_t)*itf)*d00_exp0)/VT)*FFdVc_ditf_Vbi_ei)));
8158 : 0 : FFdTbfb_Vbi_ci=(((FFdQbfb_Vbi_ci*itf-FFdQbfb*itf_Vbi_ci)/itf/itf)+((((((((1-fthc)*thcs_t)*itf_Vbi_ci)*d00_exp0)+((((1-fthc)*thcs_t)*itf)*(FFdVc_Vbi_ci/VT)*d10_exp0))/VT)*FFdVc_ditf)+((((((1-fthc)*thcs_t)*itf)*d00_exp0)/VT)*FFdVc_ditf_Vbi_ci)));
8159 : 0 : FFdTbfb_Vci_ei=(((FFdQbfb_Vci_ei*itf-FFdQbfb*itf_Vci_ei)/itf/itf)+((((((((1-fthc)*thcs_t)*itf_Vci_ei)*d00_exp0)+((((1-fthc)*thcs_t)*itf)*(FFdVc_Vci_ei/VT)*d10_exp0))/VT)*FFdVc_ditf)+((((((1-fthc)*thcs_t)*itf)*d00_exp0)/VT)*FFdVc_ditf_Vci_ei)));
8160 : : #endif
8161 : 0 : FFdTbfb=((FFdQbfb/itf)+((((((1-fthc)*thcs_t)*itf)*d00_exp0)/VT)*FFdVc_ditf));
8162 : : }
8163 : : #if defined(_DERIVATE)
8164 : 0 : FFic_Vtnode_GND=(-(-FFitf_ick_Vtnode_GND/FFitf_ick/FFitf_ick));
8165 : 0 : FFic_Vbi_ei=(-(-FFitf_ick_Vbi_ei/FFitf_ick/FFitf_ick));
8166 : 0 : FFic_Vbi_ci=(-(-FFitf_ick_Vbi_ci/FFitf_ick/FFitf_ick));
8167 : 0 : FFic_Vci_ei=(-(-FFitf_ick_Vci_ei/FFitf_ick/FFitf_ick));
8168 : : #endif
8169 : 0 : FFic=(1-(1.0/FFitf_ick));
8170 : : {
8171 : 0 : double m00_sqrt(d00_sqrt0,((FFic*FFic)+ahc))
8172 : 0 : double m00_sqrt(d00_sqrt1,(1+ahc))
8173 : : #if defined(_DERIVATE)
8174 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFic*FFic)+ahc))
8175 : : #endif
8176 : : #if defined(_DERIVATE)
8177 : 0 : FFw_Vtnode_GND=((FFic_Vtnode_GND+((FFic_Vtnode_GND*FFic)+(FFic*FFic_Vtnode_GND))*d10_sqrt0)/(1+d00_sqrt1));
8178 : 0 : FFw_Vbi_ei=((FFic_Vbi_ei+((FFic_Vbi_ei*FFic)+(FFic*FFic_Vbi_ei))*d10_sqrt0)/(1+d00_sqrt1));
8179 : 0 : FFw_Vbi_ci=((FFic_Vbi_ci+((FFic_Vbi_ci*FFic)+(FFic*FFic_Vbi_ci))*d10_sqrt0)/(1+d00_sqrt1));
8180 : 0 : FFw_Vci_ei=((FFic_Vci_ei+((FFic_Vci_ei*FFic)+(FFic*FFic_Vci_ei))*d10_sqrt0)/(1+d00_sqrt1));
8181 : : #endif
8182 : 0 : FFw=((FFic+d00_sqrt0)/(1+d00_sqrt1));
8183 : : }
8184 : : {
8185 : 0 : double m00_exp(d00_exp0,((FFdVc-vcbar)/VT))
8186 : : #if defined(_DERIVATE)
8187 : : #define d10_exp0 d00_exp0
8188 : : #endif
8189 : : #if defined(_DERIVATE)
8190 : 0 : FFdQfhc_Vtnode_GND=((((((((thcs_t_Vtnode_GND*itf)+(thcs_t*itf_Vtnode_GND))*FFw)+((thcs_t*itf)*FFw_Vtnode_GND))*FFw)+(((thcs_t*itf)*FFw)*FFw_Vtnode_GND))*d00_exp0)+((((thcs_t*itf)*FFw)*FFw)*((FFdVc_Vtnode_GND*VT-(FFdVc-vcbar)*VT_Vtnode_GND)/VT/VT)*d10_exp0));
8191 : 0 : FFdQfhc_Vbi_ei=(((((((thcs_t*itf_Vbi_ei)*FFw)+((thcs_t*itf)*FFw_Vbi_ei))*FFw)+(((thcs_t*itf)*FFw)*FFw_Vbi_ei))*d00_exp0)+((((thcs_t*itf)*FFw)*FFw)*(FFdVc_Vbi_ei/VT)*d10_exp0));
8192 : 0 : FFdQfhc_Vbi_ci=(((((((thcs_t*itf_Vbi_ci)*FFw)+((thcs_t*itf)*FFw_Vbi_ci))*FFw)+(((thcs_t*itf)*FFw)*FFw_Vbi_ci))*d00_exp0)+((((thcs_t*itf)*FFw)*FFw)*(FFdVc_Vbi_ci/VT)*d10_exp0));
8193 : 0 : FFdQfhc_Vci_ei=(((((((thcs_t*itf_Vci_ei)*FFw)+((thcs_t*itf)*FFw_Vci_ei))*FFw)+(((thcs_t*itf)*FFw)*FFw_Vci_ei))*d00_exp0)+((((thcs_t*itf)*FFw)*FFw)*(FFdVc_Vci_ei/VT)*d10_exp0));
8194 : : #endif
8195 : 0 : FFdQfhc=((((thcs_t*itf)*FFw)*FFw)*d00_exp0);
8196 : : }
8197 : : {
8198 : 0 : double m00_sqrt(d00_sqrt0,((FFic*FFic)+ahc))
8199 : : #if defined(_DERIVATE)
8200 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFic*FFic)+ahc))
8201 : : #endif
8202 : : #if defined(_DERIVATE)
8203 : 0 : FFdTfhc_Vtnode_GND=((FFdQfhc_Vtnode_GND*(((1.0/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf)))+(FFdQfhc*((((-itf_Vtnode_GND/itf/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/itf)*(-2.0*((FFitf_ick_Vtnode_GND*d00_sqrt0)+(FFitf_ick*((FFic_Vtnode_GND*FFic)+(FFic*FFic_Vtnode_GND))*d10_sqrt0))/(FFitf_ick*d00_sqrt0)/(FFitf_ick*d00_sqrt0))))+(((-VT_Vtnode_GND/VT/VT)*FFdVc_ditf)+((1.0/VT)*FFdVc_ditf_Vtnode_GND)))));
8204 : 0 : FFdTfhc_Vbi_ei=((FFdQfhc_Vbi_ei*(((1.0/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf)))+(FFdQfhc*((((-itf_Vbi_ei/itf/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/itf)*(-2.0*((FFitf_ick_Vbi_ei*d00_sqrt0)+(FFitf_ick*((FFic_Vbi_ei*FFic)+(FFic*FFic_Vbi_ei))*d10_sqrt0))/(FFitf_ick*d00_sqrt0)/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf_Vbi_ei))));
8205 : 0 : FFdTfhc_Vbi_ci=((FFdQfhc_Vbi_ci*(((1.0/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf)))+(FFdQfhc*((((-itf_Vbi_ci/itf/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/itf)*(-2.0*((FFitf_ick_Vbi_ci*d00_sqrt0)+(FFitf_ick*((FFic_Vbi_ci*FFic)+(FFic*FFic_Vbi_ci))*d10_sqrt0))/(FFitf_ick*d00_sqrt0)/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf_Vbi_ci))));
8206 : 0 : FFdTfhc_Vci_ei=((FFdQfhc_Vci_ei*(((1.0/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf)))+(FFdQfhc*((((-itf_Vci_ei/itf/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/itf)*(-2.0*((FFitf_ick_Vci_ei*d00_sqrt0)+(FFitf_ick*((FFic_Vci_ei*FFic)+(FFic*FFic_Vci_ei))*d10_sqrt0))/(FFitf_ick*d00_sqrt0)/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf_Vci_ei))));
8207 : : #endif
8208 : 0 : FFdTfhc=(FFdQfhc*(((1.0/itf)*(1.0+(2.0/(FFitf_ick*d00_sqrt0))))+((1.0/VT)*FFdVc_ditf)));
8209 : : }
8210 [ # # ][ # # ]: 0 : if
8211 : : ((latb<=0.0)&&(latl<=0.0))
8212 : : {
8213 : : #if defined(_DERIVATE)
8214 : 0 : FFdQcfc_Vtnode_GND=(fthc*FFdQfhc_Vtnode_GND);
8215 : 0 : FFdQcfc_Vbi_ei=(fthc*FFdQfhc_Vbi_ei);
8216 : 0 : FFdQcfc_Vbi_ci=(fthc*FFdQfhc_Vbi_ci);
8217 : 0 : FFdQcfc_Vci_ei=(fthc*FFdQfhc_Vci_ei);
8218 : : #endif
8219 : 0 : FFdQcfc=(fthc*FFdQfhc);
8220 : : #if defined(_DERIVATE)
8221 : 0 : FFdTcfc_Vtnode_GND=(fthc*FFdTfhc_Vtnode_GND);
8222 : 0 : FFdTcfc_Vbi_ei=(fthc*FFdTfhc_Vbi_ei);
8223 : 0 : FFdTcfc_Vbi_ci=(fthc*FFdTfhc_Vbi_ci);
8224 : 0 : FFdTcfc_Vci_ei=(fthc*FFdTfhc_Vci_ei);
8225 : : #endif
8226 : 0 : FFdTcfc=(fthc*FFdTfhc);
8227 : : #if defined(_DYNAMIC)
8228 : : #if defined(_DERIVATE)
8229 : 0 : FFdQcfcT_Vtnode_GND=FFdQcfc_Vtnode_GND;
8230 : 0 : FFdQcfcT_Vbi_ei=FFdQcfc_Vbi_ei;
8231 : 0 : FFdQcfcT_Vbi_ci=FFdQcfc_Vbi_ci;
8232 : 0 : FFdQcfcT_Vci_ei=FFdQcfc_Vci_ei;
8233 : : #endif
8234 : 0 : FFdQcfcT=FFdQcfc;
8235 : : #endif
8236 : : #if defined(_DYNAMIC)
8237 : : #if defined(_DERIVATE)
8238 : 0 : FFdTcfcT_Vtnode_GND=FFdTcfc_Vtnode_GND;
8239 : 0 : FFdTcfcT_Vbi_ei=FFdTcfc_Vbi_ei;
8240 : 0 : FFdTcfcT_Vbi_ci=FFdTcfc_Vbi_ci;
8241 : 0 : FFdTcfcT_Vci_ei=FFdTcfc_Vci_ei;
8242 : : #endif
8243 : 0 : FFdTcfcT=FFdTcfc;
8244 : : #endif
8245 : : }
8246 : : else
8247 : : {
8248 : : #if defined(_DERIVATE)
8249 : 0 : FFdQcfc_Vtnode_GND=(((fthc*thcs_t_Vtnode_GND)*itf)+((fthc*thcs_t)*itf_Vtnode_GND));
8250 : 0 : FFdQcfc_Vbi_ei=((fthc*thcs_t)*itf_Vbi_ei);
8251 : 0 : FFdQcfc_Vbi_ci=((fthc*thcs_t)*itf_Vbi_ci);
8252 : 0 : FFdQcfc_Vci_ei=((fthc*thcs_t)*itf_Vci_ei);
8253 : : #endif
8254 : 0 : FFdQcfc=((fthc*thcs_t)*itf);
8255 : : #if defined(_DERIVATE)
8256 : 0 : FCa_Vci_ei=(-((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf));
8257 : 0 : FCa_Vtnode_GND=(-((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf));
8258 : 0 : FCa_Vbi_ei=(-(-ick*itf_Vbi_ei/itf/itf));
8259 : 0 : FCa_Vbi_ci=(-(-ick*itf_Vbi_ci/itf/itf));
8260 : : #endif
8261 : 0 : FCa=(1.0-(ick/itf));
8262 : : {
8263 : 0 : double m00_sqrt(d00_sqrt0,((FCa*FCa)+ahc))
8264 : : #if defined(_DERIVATE)
8265 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((FCa*FCa)+ahc))
8266 : : #endif
8267 : : #if defined(_DERIVATE)
8268 : 0 : FCrt_Vci_ei=((FCa_Vci_ei*FCa)+(FCa*FCa_Vci_ei))*d10_sqrt0;
8269 : 0 : FCrt_Vtnode_GND=((FCa_Vtnode_GND*FCa)+(FCa*FCa_Vtnode_GND))*d10_sqrt0;
8270 : 0 : FCrt_Vbi_ei=((FCa_Vbi_ei*FCa)+(FCa*FCa_Vbi_ei))*d10_sqrt0;
8271 : 0 : FCrt_Vbi_ci=((FCa_Vbi_ci*FCa)+(FCa*FCa_Vbi_ci))*d10_sqrt0;
8272 : : #endif
8273 : 0 : FCrt=d00_sqrt0;
8274 : : }
8275 : : {
8276 : 0 : double m00_sqrt(d00_sqrt0,(1.0+ahc))
8277 : : #if defined(_DERIVATE)
8278 : 0 : FCa_ck_Vci_ei=(-((FCa_Vci_ei+FCrt_Vci_ei)/(1.0+d00_sqrt0)));
8279 : 0 : FCa_ck_Vtnode_GND=(-((FCa_Vtnode_GND+FCrt_Vtnode_GND)/(1.0+d00_sqrt0)));
8280 : 0 : FCa_ck_Vbi_ei=(-((FCa_Vbi_ei+FCrt_Vbi_ei)/(1.0+d00_sqrt0)));
8281 : 0 : FCa_ck_Vbi_ci=(-((FCa_Vbi_ci+FCrt_Vbi_ci)/(1.0+d00_sqrt0)));
8282 : : #endif
8283 : 0 : FCa_ck=(1.0-((FCa+FCrt)/(1.0+d00_sqrt0)));
8284 : : }
8285 : : #if defined(_DERIVATE)
8286 : 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));
8287 : 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));
8288 : 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));
8289 : 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));
8290 : : #endif
8291 : 0 : FCdaick_ditf=(((FCa_ck-1.0)*(1-FCa))/(FCrt*itf));
8292 [ # # ]: 0 : if
8293 : : (latb>latl)
8294 : : {
8295 : : #if defined(_DERIVATE)
8296 : 0 : FCz_Vci_ei=0.0;
8297 : 0 : FCz_Vtnode_GND=0.0;
8298 : 0 : FCz_Vbi_ei=0.0;
8299 : 0 : FCz_Vbi_ci=0.0;
8300 : : #endif
8301 : 0 : FCz=(latb-latl);
8302 : 0 : FCxl=(1.0+latl);
8303 : 0 : FCxb=(1.0+latb);
8304 [ # # ]: 0 : if
8305 : : (latb>0.01)
8306 : : {
8307 : : {
8308 : 0 : double m00_logE(d00_logE0,(FCxb/FCxl))
8309 : 0 : FCln=d00_logE0;
8310 : : }
8311 : : {
8312 : 0 : double m00_exp(d00_exp0,((FCa_ck-1.0)*FCln))
8313 : : #if defined(_DERIVATE)
8314 : : #define d10_exp0 d00_exp0
8315 : : #endif
8316 : : #if defined(_DERIVATE)
8317 : 0 : FCa1_Vci_ei=FCa_ck_Vci_ei*FCln*d10_exp0;
8318 : 0 : FCa1_Vtnode_GND=FCa_ck_Vtnode_GND*FCln*d10_exp0;
8319 : 0 : FCa1_Vbi_ei=FCa_ck_Vbi_ei*FCln*d10_exp0;
8320 : 0 : FCa1_Vbi_ci=FCa_ck_Vbi_ci*FCln*d10_exp0;
8321 : : #endif
8322 : 0 : FCa1=d00_exp0;
8323 : : }
8324 : : #if defined(_DERIVATE)
8325 : 0 : FCd_a_Vci_ei=(-(-FCa1_Vci_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
8326 : 0 : FCd_a_Vtnode_GND=(-(-FCa1_Vtnode_GND*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
8327 : 0 : FCd_a_Vbi_ei=(-(-FCa1_Vbi_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
8328 : 0 : FCd_a_Vbi_ci=(-(-FCa1_Vbi_ci*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
8329 : : #endif
8330 : 0 : FCd_a=(1.0/(latl-(FCa1*latb)));
8331 : : #if defined(_DERIVATE)
8332 : 0 : FCw_Vci_ei=((FCa1_Vci_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vci_ei));
8333 : 0 : FCw_Vtnode_GND=((FCa1_Vtnode_GND*FCd_a)+((FCa1-1.0)*FCd_a_Vtnode_GND));
8334 : 0 : FCw_Vbi_ei=((FCa1_Vbi_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ei));
8335 : 0 : FCw_Vbi_ci=((FCa1_Vbi_ci*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ci));
8336 : : #endif
8337 : 0 : FCw=((FCa1-1.0)*FCd_a);
8338 : : #if defined(_DERIVATE)
8339 : 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));
8340 : 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));
8341 : 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));
8342 : 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));
8343 : : #endif
8344 : 0 : FCdw_daick=(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a);
8345 : : {
8346 : 0 : double m00_logE(d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
8347 : : #if defined(_DERIVATE)
8348 : 0 : double m10_logE(d10_logE0,d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
8349 : : #endif
8350 : : #if defined(_DERIVATE)
8351 : 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;
8352 : 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;
8353 : 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;
8354 : 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;
8355 : : #endif
8356 : 0 : FCa1=d00_logE0;
8357 : : }
8358 : : #if defined(_DERIVATE)
8359 : 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))));
8360 : 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))));
8361 : 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))));
8362 : 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))));
8363 : : #endif
8364 : 0 : FCda1_dw=((latb/(1.0+(latb*FCw)))-(latl/(1.0+(latl*FCw))));
8365 : : }
8366 : : else
8367 : : {
8368 : : #if defined(_DERIVATE)
8369 : 0 : FCf1_Vci_ei=(-FCa_ck_Vci_ei);
8370 : 0 : FCf1_Vtnode_GND=(-FCa_ck_Vtnode_GND);
8371 : 0 : FCf1_Vbi_ei=(-FCa_ck_Vbi_ei);
8372 : 0 : FCf1_Vbi_ci=(-FCa_ck_Vbi_ci);
8373 : : #endif
8374 : 0 : FCf1=(1.0-FCa_ck);
8375 : : #if defined(_DERIVATE)
8376 : 0 : FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
8377 : 0 : FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
8378 : 0 : FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
8379 : 0 : FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
8380 : : #endif
8381 : 0 : FCd_a=(1.0/(1.0+(FCa_ck*latb)));
8382 : : #if defined(_DERIVATE)
8383 : 0 : FCw_Vci_ei=((FCf1_Vci_ei*FCd_a)+(FCf1*FCd_a_Vci_ei));
8384 : 0 : FCw_Vtnode_GND=((FCf1_Vtnode_GND*FCd_a)+(FCf1*FCd_a_Vtnode_GND));
8385 : 0 : FCw_Vbi_ei=((FCf1_Vbi_ei*FCd_a)+(FCf1*FCd_a_Vbi_ei));
8386 : 0 : FCw_Vbi_ci=((FCf1_Vbi_ci*FCd_a)+(FCf1*FCd_a_Vbi_ci));
8387 : : #endif
8388 : 0 : FCw=(FCf1*FCd_a);
8389 : : #if defined(_DERIVATE)
8390 : 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));
8391 : 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));
8392 : 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));
8393 : 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));
8394 : : #endif
8395 : 0 : FCdw_daick=(((((-1.0)*FCd_a)*FCd_a)*FCxb)*FCd_a);
8396 : : #if defined(_DERIVATE)
8397 : 0 : FCa1_Vci_ei=((FCz_Vci_ei*FCw)+(FCz*FCw_Vci_ei));
8398 : 0 : FCa1_Vtnode_GND=((FCz_Vtnode_GND*FCw)+(FCz*FCw_Vtnode_GND));
8399 : 0 : FCa1_Vbi_ei=((FCz_Vbi_ei*FCw)+(FCz*FCw_Vbi_ei));
8400 : 0 : FCa1_Vbi_ci=((FCz_Vbi_ci*FCw)+(FCz*FCw_Vbi_ci));
8401 : : #endif
8402 : 0 : FCa1=(FCz*FCw);
8403 : : #if defined(_DERIVATE)
8404 : 0 : FCda1_dw_Vci_ei=FCz_Vci_ei;
8405 : 0 : FCda1_dw_Vtnode_GND=FCz_Vtnode_GND;
8406 : 0 : FCda1_dw_Vbi_ei=FCz_Vbi_ei;
8407 : 0 : FCda1_dw_Vbi_ci=FCz_Vbi_ci;
8408 : : #endif
8409 : 0 : FCda1_dw=FCz;
8410 : : }
8411 : : #if defined(_DERIVATE)
8412 : 0 : FCf_CT_Vbi_ei=(-2.0*FCz_Vbi_ei/FCz/FCz);
8413 : 0 : FCf_CT_Vbi_ci=(-2.0*FCz_Vbi_ci/FCz/FCz);
8414 : 0 : FCf_CT_Vci_ei=(-2.0*FCz_Vci_ei/FCz/FCz);
8415 : 0 : FCf_CT_Vtnode_GND=(-2.0*FCz_Vtnode_GND/FCz/FCz);
8416 : : #endif
8417 : 0 : FCf_CT=(2.0/FCz);
8418 : : #if defined(_DERIVATE)
8419 : 0 : FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
8420 : 0 : FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
8421 : 0 : FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
8422 : 0 : FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
8423 : : #endif
8424 : 0 : FCw2=(FCw*FCw);
8425 : : #if defined(_DERIVATE)
8426 : 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);
8427 : 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);
8428 : 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);
8429 : 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);
8430 : : #endif
8431 : 0 : FCf1=((((((latb*latl)*FCw)*FCw2)/3.0)+(((latb+latl)*FCw2)/2.0))+FCw);
8432 : : #if defined(_DERIVATE)
8433 : 0 : FCdf1_dw_Vci_ei=(((latb*latl)*FCw2_Vci_ei)+((latb+latl)*FCw_Vci_ei));
8434 : 0 : FCdf1_dw_Vtnode_GND=(((latb*latl)*FCw2_Vtnode_GND)+((latb+latl)*FCw_Vtnode_GND));
8435 : 0 : FCdf1_dw_Vbi_ei=(((latb*latl)*FCw2_Vbi_ei)+((latb+latl)*FCw_Vbi_ei));
8436 : 0 : FCdf1_dw_Vbi_ci=(((latb*latl)*FCw2_Vbi_ci)+((latb+latl)*FCw_Vbi_ci));
8437 : : #endif
8438 : 0 : FCdf1_dw=((((latb*latl)*FCw2)+((latb+latl)*FCw))+1.0);
8439 : : #if defined(_DERIVATE)
8440 : 0 : z_Vci_ei=(latb*FCw_Vci_ei);
8441 : 0 : z_Vtnode_GND=(latb*FCw_Vtnode_GND);
8442 : 0 : z_Vbi_ei=(latb*FCw_Vbi_ei);
8443 : 0 : z_Vbi_ci=(latb*FCw_Vbi_ci);
8444 : : #endif
8445 : 0 : z=(latb*FCw);
8446 : : {
8447 : 0 : double m00_logE(d00_logE0,(1+(latb*FCw)))
8448 : : #if defined(_DERIVATE)
8449 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latb*FCw)))
8450 : : #endif
8451 : : #if defined(_DERIVATE)
8452 : 0 : lnzb_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
8453 : 0 : lnzb_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
8454 : 0 : lnzb_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
8455 : 0 : lnzb_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
8456 : : #endif
8457 : 0 : lnzb=d00_logE0;
8458 : : }
8459 [ # # ]: 0 : if
8460 : : (z>1.0e-6)
8461 : : {
8462 : : #if defined(_DERIVATE)
8463 : 0 : x_Vci_ei=z_Vci_ei;
8464 : 0 : x_Vtnode_GND=z_Vtnode_GND;
8465 : 0 : x_Vbi_ei=z_Vbi_ei;
8466 : 0 : x_Vbi_ci=z_Vbi_ci;
8467 : : #endif
8468 : 0 : x=(1.0+z);
8469 : : #if defined(_DERIVATE)
8470 : 0 : a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
8471 : 0 : a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
8472 : 0 : a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
8473 : 0 : a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
8474 : : #endif
8475 : 0 : a=(x*x);
8476 : : #if defined(_DERIVATE)
8477 : 0 : a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ei))));
8478 : 0 : a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ci))));
8479 : 0 : a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vci_ei))));
8480 : 0 : a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vtnode_GND))));
8481 : : #endif
8482 : 0 : a2=(0.250*((a*((2.0*lnzb)-1.0))+1.0));
8483 : : #if defined(_DERIVATE)
8484 : 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);
8485 : 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);
8486 : 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);
8487 : 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);
8488 : : #endif
8489 : 0 : a3=((((a*x)*((3.0*lnzb)-1.0))+1.0)/9.0);
8490 : 0 : r=(latl/latb);
8491 : : #if defined(_DERIVATE)
8492 : 0 : FCf2_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latb);
8493 : 0 : FCf2_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latb);
8494 : 0 : FCf2_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latb);
8495 : 0 : FCf2_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latb);
8496 : : #endif
8497 : 0 : FCf2=((((1.0-r)*a2)+(r*a3))/latb);
8498 : : #if defined(_DERIVATE)
8499 : 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));
8500 : 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));
8501 : 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));
8502 : 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));
8503 : : #endif
8504 : 0 : FCdf2_dw=((((1.0-r)*x)+(r*a))*lnzb);
8505 : : }
8506 : : else
8507 : : {
8508 : : #if defined(_DERIVATE)
8509 : 0 : a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
8510 : 0 : a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
8511 : 0 : a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
8512 : 0 : a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
8513 : : #endif
8514 : 0 : a=(z*z);
8515 : : #if defined(_DERIVATE)
8516 : 0 : a2_Vbi_ei=((z_Vbi_ei-(0.25*a_Vbi_ei))+(((0.10*z_Vbi_ei)*a)+((0.10*z)*a_Vbi_ei)));
8517 : 0 : a2_Vbi_ci=((z_Vbi_ci-(0.25*a_Vbi_ci))+(((0.10*z_Vbi_ci)*a)+((0.10*z)*a_Vbi_ci)));
8518 : 0 : a2_Vci_ei=((z_Vci_ei-(0.25*a_Vci_ei))+(((0.10*z_Vci_ei)*a)+((0.10*z)*a_Vci_ei)));
8519 : 0 : a2_Vtnode_GND=((z_Vtnode_GND-(0.25*a_Vtnode_GND))+(((0.10*z_Vtnode_GND)*a)+((0.10*z)*a_Vtnode_GND)));
8520 : : #endif
8521 : 0 : a2=(((3.0+z)-(0.25*a))+((0.10*z)*a));
8522 : : #if defined(_DERIVATE)
8523 : 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)));
8524 : 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)));
8525 : 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)));
8526 : 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)));
8527 : : #endif
8528 : 0 : a3=(((2.0*z)+(0.75*a))-((0.20*a)*z));
8529 : : #if defined(_DERIVATE)
8530 : 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);
8531 : 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);
8532 : 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);
8533 : 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);
8534 : : #endif
8535 : 0 : FCf2=(((((latb*a2)+(latl*a3))*FCw)*FCw)/6.0);
8536 : : #if defined(_DERIVATE)
8537 : 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));
8538 : 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));
8539 : 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));
8540 : 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));
8541 : : #endif
8542 : 0 : FCdf2_dw=(((1+(latl*FCw))*(1+z))*lnzb);
8543 : : }
8544 : : #if defined(_DERIVATE)
8545 : 0 : z_Vci_ei=(latl*FCw_Vci_ei);
8546 : 0 : z_Vtnode_GND=(latl*FCw_Vtnode_GND);
8547 : 0 : z_Vbi_ei=(latl*FCw_Vbi_ei);
8548 : 0 : z_Vbi_ci=(latl*FCw_Vbi_ci);
8549 : : #endif
8550 : 0 : z=(latl*FCw);
8551 : : {
8552 : 0 : double m00_logE(d00_logE0,(1+(latl*FCw)))
8553 : : #if defined(_DERIVATE)
8554 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latl*FCw)))
8555 : : #endif
8556 : : #if defined(_DERIVATE)
8557 : 0 : lnzb_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
8558 : 0 : lnzb_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
8559 : 0 : lnzb_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
8560 : 0 : lnzb_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
8561 : : #endif
8562 : 0 : lnzb=d00_logE0;
8563 : : }
8564 [ # # ]: 0 : if
8565 : : (z>1.0e-6)
8566 : : {
8567 : : #if defined(_DERIVATE)
8568 : 0 : x_Vci_ei=z_Vci_ei;
8569 : 0 : x_Vtnode_GND=z_Vtnode_GND;
8570 : 0 : x_Vbi_ei=z_Vbi_ei;
8571 : 0 : x_Vbi_ci=z_Vbi_ci;
8572 : : #endif
8573 : 0 : x=(1.0+z);
8574 : : #if defined(_DERIVATE)
8575 : 0 : a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
8576 : 0 : a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
8577 : 0 : a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
8578 : 0 : a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
8579 : : #endif
8580 : 0 : a=(x*x);
8581 : : #if defined(_DERIVATE)
8582 : 0 : a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ei))));
8583 : 0 : a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ci))));
8584 : 0 : a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vci_ei))));
8585 : 0 : a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vtnode_GND))));
8586 : : #endif
8587 : 0 : a2=(0.250*((a*((2.0*lnzb)-1.0))+1.0));
8588 : : #if defined(_DERIVATE)
8589 : 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);
8590 : 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);
8591 : 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);
8592 : 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);
8593 : : #endif
8594 : 0 : a3=((((a*x)*((3.0*lnzb)-1.0))+1.0)/9.0);
8595 : 0 : r=(latb/latl);
8596 : : #if defined(_DERIVATE)
8597 : 0 : FCf3_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latl);
8598 : 0 : FCf3_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latl);
8599 : 0 : FCf3_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latl);
8600 : 0 : FCf3_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latl);
8601 : : #endif
8602 : 0 : FCf3=((((1.0-r)*a2)+(r*a3))/latl);
8603 : : #if defined(_DERIVATE)
8604 : 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));
8605 : 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));
8606 : 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));
8607 : 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));
8608 : : #endif
8609 : 0 : FCdf3_dw=((((1.0-r)*x)+(r*a))*lnzb);
8610 : : }
8611 : : else
8612 : : {
8613 : : #if defined(_DERIVATE)
8614 : 0 : a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
8615 : 0 : a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
8616 : 0 : a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
8617 : 0 : a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
8618 : : #endif
8619 : 0 : a=(z*z);
8620 : : #if defined(_DERIVATE)
8621 : 0 : a2_Vbi_ei=((z_Vbi_ei-(0.25*a_Vbi_ei))+(((0.10*z_Vbi_ei)*a)+((0.10*z)*a_Vbi_ei)));
8622 : 0 : a2_Vbi_ci=((z_Vbi_ci-(0.25*a_Vbi_ci))+(((0.10*z_Vbi_ci)*a)+((0.10*z)*a_Vbi_ci)));
8623 : 0 : a2_Vci_ei=((z_Vci_ei-(0.25*a_Vci_ei))+(((0.10*z_Vci_ei)*a)+((0.10*z)*a_Vci_ei)));
8624 : 0 : a2_Vtnode_GND=((z_Vtnode_GND-(0.25*a_Vtnode_GND))+(((0.10*z_Vtnode_GND)*a)+((0.10*z)*a_Vtnode_GND)));
8625 : : #endif
8626 : 0 : a2=(((3.0+z)-(0.25*a))+((0.10*z)*a));
8627 : : #if defined(_DERIVATE)
8628 : 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)));
8629 : 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)));
8630 : 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)));
8631 : 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)));
8632 : : #endif
8633 : 0 : a3=(((2.0*z)+(0.75*a))-((0.20*a)*z));
8634 : : #if defined(_DERIVATE)
8635 : 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);
8636 : 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);
8637 : 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);
8638 : 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);
8639 : : #endif
8640 : 0 : FCf3=(((((latl*a2)+(latb*a3))*FCw)*FCw)/6.0);
8641 : : #if defined(_DERIVATE)
8642 : 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));
8643 : 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));
8644 : 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));
8645 : 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));
8646 : : #endif
8647 : 0 : FCdf3_dw=(((1+(latb*FCw))*(1+z))*lnzb);
8648 : : }
8649 : : #if defined(_DERIVATE)
8650 : 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)));
8651 : 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)));
8652 : 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)));
8653 : 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)));
8654 : : #endif
8655 : 0 : FCf_ci=(FCf_CT*(((FCa1*FCf1)-FCf2)+FCf3));
8656 : : #if defined(_DERIVATE)
8657 : 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)));
8658 : 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)));
8659 : 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)));
8660 : 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)));
8661 : : #endif
8662 : 0 : FCdfc_dw=(FCf_CT*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw));
8663 : : #if defined(_DERIVATE)
8664 : 0 : FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
8665 : 0 : FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
8666 : 0 : FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
8667 : 0 : FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
8668 : : #endif
8669 : 0 : FCdw_ditf=(FCdw_daick*FCdaick_ditf);
8670 : : #if defined(_DERIVATE)
8671 : 0 : FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
8672 : 0 : FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
8673 : 0 : FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
8674 : 0 : FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
8675 : : #endif
8676 : 0 : FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
8677 : : #ifdef _DYNAMIC
8678 [ # # ][ # # ]: 0 : if
8679 : : ((flcomp==0.0)||(flcomp==2.1))
8680 : : {
8681 : : #if defined(_DYNAMIC)
8682 : : #if defined(_DERIVATE)
8683 : 0 : a_Vbi_ei=(latb*FCw_Vbi_ei);
8684 : 0 : a_Vbi_ci=(latb*FCw_Vbi_ci);
8685 : 0 : a_Vci_ei=(latb*FCw_Vci_ei);
8686 : 0 : a_Vtnode_GND=(latb*FCw_Vtnode_GND);
8687 : : #endif
8688 : 0 : a=(latb*FCw);
8689 : : #endif
8690 : : #if defined(_DYNAMIC)
8691 : : {
8692 : 0 : double m00_logE(d00_logE0,(1+(latb*FCw)))
8693 : : #if defined(_DERIVATE)
8694 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latb*FCw)))
8695 : : #endif
8696 : : #if defined(_DERIVATE)
8697 : 0 : lnz_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
8698 : 0 : lnz_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
8699 : 0 : lnz_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
8700 : 0 : lnz_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
8701 : : #endif
8702 : 0 : lnz=d00_logE0;
8703 : : }
8704 : : #endif
8705 : : #ifdef _DYNAMIC
8706 [ # # ]: 0 : if
8707 : : (a>1.0e-6)
8708 : : {
8709 : : #if defined(_DYNAMIC)
8710 : : #if defined(_DERIVATE)
8711 : 0 : FCf2_Vbi_ei=((a_Vbi_ei-lnz_Vbi_ei)/latb);
8712 : 0 : FCf2_Vbi_ci=((a_Vbi_ci-lnz_Vbi_ci)/latb);
8713 : 0 : FCf2_Vci_ei=((a_Vci_ei-lnz_Vci_ei)/latb);
8714 : 0 : FCf2_Vtnode_GND=((a_Vtnode_GND-lnz_Vtnode_GND)/latb);
8715 : : #endif
8716 : 0 : FCf2=((a-lnz)/latb);
8717 : : #endif
8718 : : #if defined(_DYNAMIC)
8719 : : #if defined(_DERIVATE)
8720 : 0 : FCdf2_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
8721 : 0 : FCdf2_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
8722 : 0 : FCdf2_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
8723 : 0 : FCdf2_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
8724 : : #endif
8725 : 0 : FCdf2_dw=(a/(1.0+a));
8726 : : #endif
8727 : : }
8728 : : else
8729 : : {
8730 : : #if defined(_DYNAMIC)
8731 : : #if defined(_DERIVATE)
8732 : 0 : FCf2_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
8733 : 0 : FCf2_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
8734 : 0 : FCf2_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
8735 : 0 : FCf2_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
8736 : : #endif
8737 : 0 : FCf2=((0.5*a)*FCw);
8738 : : #endif
8739 : : #if defined(_DYNAMIC)
8740 : : #if defined(_DERIVATE)
8741 : 0 : FCdf2_dw_Vci_ei=a_Vci_ei;
8742 : 0 : FCdf2_dw_Vtnode_GND=a_Vtnode_GND;
8743 : 0 : FCdf2_dw_Vbi_ei=a_Vbi_ei;
8744 : 0 : FCdf2_dw_Vbi_ci=a_Vbi_ci;
8745 : : #endif
8746 : 0 : FCdf2_dw=a;
8747 : : #endif
8748 : : }
8749 : : #endif /* if (...) */
8750 : : #if defined(_DYNAMIC)
8751 : : #if defined(_DERIVATE)
8752 : 0 : a_Vbi_ei=(latl*FCw_Vbi_ei);
8753 : 0 : a_Vbi_ci=(latl*FCw_Vbi_ci);
8754 : 0 : a_Vci_ei=(latl*FCw_Vci_ei);
8755 : 0 : a_Vtnode_GND=(latl*FCw_Vtnode_GND);
8756 : : #endif
8757 : 0 : a=(latl*FCw);
8758 : : #endif
8759 : : #if defined(_DYNAMIC)
8760 : : {
8761 : 0 : double m00_logE(d00_logE0,(1+(latl*FCw)))
8762 : : #if defined(_DERIVATE)
8763 : 0 : double m10_logE(d10_logE0,d00_logE0,(1+(latl*FCw)))
8764 : : #endif
8765 : : #if defined(_DERIVATE)
8766 : 0 : lnz_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
8767 : 0 : lnz_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
8768 : 0 : lnz_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
8769 : 0 : lnz_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
8770 : : #endif
8771 : 0 : lnz=d00_logE0;
8772 : : }
8773 : : #endif
8774 : : #ifdef _DYNAMIC
8775 [ # # ]: 0 : if
8776 : : (a>1.0e-6)
8777 : : {
8778 : : #if defined(_DYNAMIC)
8779 : : #if defined(_DERIVATE)
8780 : 0 : FCf3_Vbi_ei=((a_Vbi_ei-lnz_Vbi_ei)/latl);
8781 : 0 : FCf3_Vbi_ci=((a_Vbi_ci-lnz_Vbi_ci)/latl);
8782 : 0 : FCf3_Vci_ei=((a_Vci_ei-lnz_Vci_ei)/latl);
8783 : 0 : FCf3_Vtnode_GND=((a_Vtnode_GND-lnz_Vtnode_GND)/latl);
8784 : : #endif
8785 : 0 : FCf3=((a-lnz)/latl);
8786 : : #endif
8787 : : #if defined(_DYNAMIC)
8788 : : #if defined(_DERIVATE)
8789 : 0 : FCdf3_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
8790 : 0 : FCdf3_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
8791 : 0 : FCdf3_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
8792 : 0 : FCdf3_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
8793 : : #endif
8794 : 0 : FCdf3_dw=(a/(1.0+a));
8795 : : #endif
8796 : : }
8797 : : else
8798 : : {
8799 : : #if defined(_DYNAMIC)
8800 : : #if defined(_DERIVATE)
8801 : 0 : FCf3_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
8802 : 0 : FCf3_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
8803 : 0 : FCf3_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
8804 : 0 : FCf3_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
8805 : : #endif
8806 : 0 : FCf3=((0.5*a)*FCw);
8807 : : #endif
8808 : : #if defined(_DYNAMIC)
8809 : : #if defined(_DERIVATE)
8810 : 0 : FCdf3_dw_Vci_ei=a_Vci_ei;
8811 : 0 : FCdf3_dw_Vtnode_GND=a_Vtnode_GND;
8812 : 0 : FCdf3_dw_Vbi_ei=a_Vbi_ei;
8813 : 0 : FCdf3_dw_Vbi_ci=a_Vbi_ci;
8814 : : #endif
8815 : 0 : FCdf3_dw=a;
8816 : : #endif
8817 : : }
8818 : : #endif /* if (...) */
8819 : : #if defined(_DYNAMIC)
8820 : : #if defined(_DERIVATE)
8821 : 0 : FCf_CT_Vbi_ei=((FCf_CT_Vbi_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ei-FCf3_Vbi_ei)));
8822 : 0 : FCf_CT_Vbi_ci=((FCf_CT_Vbi_ci*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ci-FCf3_Vbi_ci)));
8823 : 0 : FCf_CT_Vci_ei=((FCf_CT_Vci_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vci_ei-FCf3_Vci_ei)));
8824 : 0 : FCf_CT_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCf2-FCf3))+(FCf_CT*(FCf2_Vtnode_GND-FCf3_Vtnode_GND)));
8825 : : #endif
8826 : 0 : FCf_CT=(FCf_CT*(FCf2-FCf3));
8827 : : #endif
8828 : : #if defined(_DYNAMIC)
8829 : : #if defined(_DERIVATE)
8830 : 0 : FCdfCT_dw_Vbi_ei=((FCf_CT_Vbi_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ei-FCdf3_dw_Vbi_ei)));
8831 : 0 : FCdfCT_dw_Vbi_ci=((FCf_CT_Vbi_ci*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ci-FCdf3_dw_Vbi_ci)));
8832 : 0 : FCdfCT_dw_Vci_ei=((FCf_CT_Vci_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vci_ei-FCdf3_dw_Vci_ei)));
8833 : 0 : FCdfCT_dw_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vtnode_GND-FCdf3_dw_Vtnode_GND)));
8834 : : #endif
8835 : 0 : FCdfCT_dw=(FCf_CT*(FCdf2_dw-FCdf3_dw));
8836 : : #endif
8837 : : #if defined(_DYNAMIC)
8838 : : #if defined(_DERIVATE)
8839 : 0 : FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
8840 : 0 : FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
8841 : 0 : FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
8842 : 0 : FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
8843 : : #endif
8844 : 0 : FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
8845 : : #endif
8846 : : }
8847 : : else
8848 : : {
8849 : : #if defined(_DYNAMIC)
8850 : : #if defined(_DERIVATE)
8851 : 0 : FCf_CT_Vbi_ei=FCf_ci_Vbi_ei;
8852 : 0 : FCf_CT_Vbi_ci=FCf_ci_Vbi_ci;
8853 : 0 : FCf_CT_Vci_ei=FCf_ci_Vci_ei;
8854 : 0 : FCf_CT_Vtnode_GND=FCf_ci_Vtnode_GND;
8855 : : #endif
8856 : 0 : FCf_CT=FCf_ci;
8857 : : #endif
8858 : : #if defined(_DYNAMIC)
8859 : : #if defined(_DERIVATE)
8860 : 0 : FCdfCT_ditf_Vbi_ei=FCdfc_ditf_Vbi_ei;
8861 : 0 : FCdfCT_ditf_Vbi_ci=FCdfc_ditf_Vbi_ci;
8862 : 0 : FCdfCT_ditf_Vci_ei=FCdfc_ditf_Vci_ei;
8863 : 0 : FCdfCT_ditf_Vtnode_GND=FCdfc_ditf_Vtnode_GND;
8864 : : #endif
8865 : 0 : FCdfCT_ditf=FCdfc_ditf;
8866 : : #endif
8867 : : }
8868 : : #endif /* if (...) */
8869 : : }
8870 : : else
8871 : : {
8872 [ # # ]: 0 : if
8873 : : (latb>0.01)
8874 : : {
8875 : : #if defined(_DERIVATE)
8876 : 0 : FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
8877 : 0 : FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
8878 : 0 : FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
8879 : 0 : FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
8880 : : #endif
8881 : 0 : FCd_a=(1.0/(1.0+(FCa_ck*latb)));
8882 : : #if defined(_DERIVATE)
8883 : 0 : FCw_Vci_ei=(((-FCa_ck_Vci_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vci_ei));
8884 : 0 : FCw_Vtnode_GND=(((-FCa_ck_Vtnode_GND)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vtnode_GND));
8885 : 0 : FCw_Vbi_ei=(((-FCa_ck_Vbi_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ei));
8886 : 0 : FCw_Vbi_ci=(((-FCa_ck_Vbi_ci)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ci));
8887 : : #endif
8888 : 0 : FCw=((1.0-FCa_ck)*FCd_a);
8889 : : #if defined(_DERIVATE)
8890 : 0 : FCdw_daick_Vci_ei=((((-(1.0+latb))*FCd_a_Vci_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vci_ei));
8891 : 0 : FCdw_daick_Vtnode_GND=((((-(1.0+latb))*FCd_a_Vtnode_GND)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vtnode_GND));
8892 : 0 : FCdw_daick_Vbi_ei=((((-(1.0+latb))*FCd_a_Vbi_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ei));
8893 : 0 : FCdw_daick_Vbi_ci=((((-(1.0+latb))*FCd_a_Vbi_ci)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ci));
8894 : : #endif
8895 : 0 : FCdw_daick=(((-(1.0+latb))*FCd_a)*FCd_a);
8896 : : }
8897 : : else
8898 : : {
8899 : : #if defined(_DERIVATE)
8900 : 0 : FCw_Vci_ei=((-FCa_ck_Vci_ei)-FCa_ck_Vci_ei*latb);
8901 : 0 : FCw_Vtnode_GND=((-FCa_ck_Vtnode_GND)-FCa_ck_Vtnode_GND*latb);
8902 : 0 : FCw_Vbi_ei=((-FCa_ck_Vbi_ei)-FCa_ck_Vbi_ei*latb);
8903 : 0 : FCw_Vbi_ci=((-FCa_ck_Vbi_ci)-FCa_ck_Vbi_ci*latb);
8904 : : #endif
8905 : 0 : FCw=((1.0-FCa_ck)-(FCa_ck*latb));
8906 : : #if defined(_DERIVATE)
8907 : 0 : FCdw_daick_Vci_ei=0.0;
8908 : 0 : FCdw_daick_Vtnode_GND=0.0;
8909 : 0 : FCdw_daick_Vbi_ei=0.0;
8910 : 0 : FCdw_daick_Vbi_ci=0.0;
8911 : : #endif
8912 : 0 : FCdw_daick=(-(1.0+latb));
8913 : : }
8914 : : #if defined(_DERIVATE)
8915 : 0 : FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
8916 : 0 : FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
8917 : 0 : FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
8918 : 0 : FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
8919 : : #endif
8920 : 0 : FCw2=(FCw*FCw);
8921 : : #if defined(_DERIVATE)
8922 : 0 : FCz_Vci_ei=(latb*FCw_Vci_ei);
8923 : 0 : FCz_Vtnode_GND=(latb*FCw_Vtnode_GND);
8924 : 0 : FCz_Vbi_ei=(latb*FCw_Vbi_ei);
8925 : 0 : FCz_Vbi_ci=(latb*FCw_Vbi_ci);
8926 : : #endif
8927 : 0 : FCz=(latb*FCw);
8928 : : #if defined(_DERIVATE)
8929 : 0 : FCz_1_Vci_ei=FCz_Vci_ei;
8930 : 0 : FCz_1_Vtnode_GND=FCz_Vtnode_GND;
8931 : 0 : FCz_1_Vbi_ei=FCz_Vbi_ei;
8932 : 0 : FCz_1_Vbi_ci=FCz_Vbi_ci;
8933 : : #endif
8934 : 0 : FCz_1=(1.0+FCz);
8935 : : #if defined(_DERIVATE)
8936 : 0 : FCd_f_Vci_ei=(-FCz_1_Vci_ei/FCz_1/FCz_1);
8937 : 0 : FCd_f_Vtnode_GND=(-FCz_1_Vtnode_GND/FCz_1/FCz_1);
8938 : 0 : FCd_f_Vbi_ei=(-FCz_1_Vbi_ei/FCz_1/FCz_1);
8939 : 0 : FCd_f_Vbi_ci=(-FCz_1_Vbi_ci/FCz_1/FCz_1);
8940 : : #endif
8941 : 0 : FCd_f=(1.0/FCz_1);
8942 : : #if defined(_DERIVATE)
8943 : 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));
8944 : 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));
8945 : 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));
8946 : 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));
8947 : : #endif
8948 : 0 : FCf_ci=((FCw2*(1.0+(FCz/3.0)))*FCd_f);
8949 : : #if defined(_DERIVATE)
8950 : 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));
8951 : 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));
8952 : 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));
8953 : 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));
8954 : : #endif
8955 : 0 : FCdfc_dw=((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
8956 : : #if defined(_DERIVATE)
8957 : 0 : FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
8958 : 0 : FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
8959 : 0 : FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
8960 : 0 : FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
8961 : : #endif
8962 : 0 : FCdw_ditf=(FCdw_daick*FCdaick_ditf);
8963 : : #if defined(_DERIVATE)
8964 : 0 : FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
8965 : 0 : FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
8966 : 0 : FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
8967 : 0 : FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
8968 : : #endif
8969 : 0 : FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
8970 : : #ifdef _DYNAMIC
8971 [ # # ][ # # ]: 0 : if
8972 : : ((flcomp==0.0)||(flcomp==2.1))
8973 : : {
8974 : : #ifdef _DYNAMIC
8975 [ # # ]: 0 : if
8976 : : (FCz>0.001)
8977 : : {
8978 : : #if defined(_DYNAMIC)
8979 : : {
8980 : 0 : double m00_logE(d00_logE0,FCz_1)
8981 : : #if defined(_DERIVATE)
8982 : 0 : double m10_logE(d10_logE0,d00_logE0,FCz_1)
8983 : : #endif
8984 : : #if defined(_DERIVATE)
8985 : 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));
8986 : 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));
8987 : 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));
8988 : 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));
8989 : : #endif
8990 : 0 : FCf_CT=((2.0*((FCz_1*d00_logE0)-FCz))/((latb*latb)*FCz_1));
8991 : : }
8992 : : #endif
8993 : : #if defined(_DYNAMIC)
8994 : : #if defined(_DERIVATE)
8995 : 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));
8996 : 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));
8997 : 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));
8998 : 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));
8999 : : #endif
9000 : 0 : FCdfCT_dw=(((2.0*FCw)*FCd_f)*FCd_f);
9001 : : #endif
9002 : : }
9003 : : else
9004 : : {
9005 : : #if defined(_DYNAMIC)
9006 : : #if defined(_DERIVATE)
9007 : 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));
9008 : 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));
9009 : 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));
9010 : 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));
9011 : : #endif
9012 : 0 : FCf_CT=((FCw2*(1.0-(FCz/3.0)))*FCd_f);
9013 : : #endif
9014 : : #if defined(_DYNAMIC)
9015 : : #if defined(_DERIVATE)
9016 : 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));
9017 : 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));
9018 : 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));
9019 : 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));
9020 : : #endif
9021 : 0 : FCdfCT_dw=((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
9022 : : #endif
9023 : : }
9024 : : #endif /* if (...) */
9025 : : #if defined(_DYNAMIC)
9026 : : #if defined(_DERIVATE)
9027 : 0 : FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
9028 : 0 : FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
9029 : 0 : FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
9030 : 0 : FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
9031 : : #endif
9032 : 0 : FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
9033 : : #endif
9034 : : }
9035 : : else
9036 : : {
9037 : : #if defined(_DYNAMIC)
9038 : : #if defined(_DERIVATE)
9039 : 0 : FCf_CT_Vbi_ei=FCf_ci_Vbi_ei;
9040 : 0 : FCf_CT_Vbi_ci=FCf_ci_Vbi_ci;
9041 : 0 : FCf_CT_Vci_ei=FCf_ci_Vci_ei;
9042 : 0 : FCf_CT_Vtnode_GND=FCf_ci_Vtnode_GND;
9043 : : #endif
9044 : 0 : FCf_CT=FCf_ci;
9045 : : #endif
9046 : : #if defined(_DYNAMIC)
9047 : : #if defined(_DERIVATE)
9048 : 0 : FCdfCT_ditf_Vbi_ei=FCdfc_ditf_Vbi_ei;
9049 : 0 : FCdfCT_ditf_Vbi_ci=FCdfc_ditf_Vbi_ci;
9050 : 0 : FCdfCT_ditf_Vci_ei=FCdfc_ditf_Vci_ei;
9051 : 0 : FCdfCT_ditf_Vtnode_GND=FCdfc_ditf_Vtnode_GND;
9052 : : #endif
9053 : 0 : FCdfCT_ditf=FCdfc_ditf;
9054 : : #endif
9055 : : }
9056 : : #endif /* if (...) */
9057 : : }
9058 : : #if defined(_DYNAMIC)
9059 : : {
9060 : 0 : double m00_exp(d00_exp0,((FFdVc-vcbar)/VT))
9061 : : #if defined(_DERIVATE)
9062 : : #define d10_exp0 d00_exp0
9063 : : #endif
9064 : : #if defined(_DERIVATE)
9065 : 0 : FFdQcfcT_Vtnode_GND=((((FFdQcfc_Vtnode_GND*FCf_CT)+(FFdQcfc*FCf_CT_Vtnode_GND))*d00_exp0)+((FFdQcfc*FCf_CT)*((FFdVc_Vtnode_GND*VT-(FFdVc-vcbar)*VT_Vtnode_GND)/VT/VT)*d10_exp0));
9066 : 0 : FFdQcfcT_Vbi_ei=((((FFdQcfc_Vbi_ei*FCf_CT)+(FFdQcfc*FCf_CT_Vbi_ei))*d00_exp0)+((FFdQcfc*FCf_CT)*(FFdVc_Vbi_ei/VT)*d10_exp0));
9067 : 0 : FFdQcfcT_Vbi_ci=((((FFdQcfc_Vbi_ci*FCf_CT)+(FFdQcfc*FCf_CT_Vbi_ci))*d00_exp0)+((FFdQcfc*FCf_CT)*(FFdVc_Vbi_ci/VT)*d10_exp0));
9068 : 0 : FFdQcfcT_Vci_ei=((((FFdQcfc_Vci_ei*FCf_CT)+(FFdQcfc*FCf_CT_Vci_ei))*d00_exp0)+((FFdQcfc*FCf_CT)*(FFdVc_Vci_ei/VT)*d10_exp0));
9069 : : #endif
9070 : 0 : FFdQcfcT=((FFdQcfc*FCf_CT)*d00_exp0);
9071 : : }
9072 : : #endif
9073 : : {
9074 : 0 : double m00_exp(d00_exp0,((FFdVc-vcbar)/VT))
9075 : : #if defined(_DERIVATE)
9076 : : #define d10_exp0 d00_exp0
9077 : : #endif
9078 : : #if defined(_DERIVATE)
9079 : 0 : FFdQcfc_Vtnode_GND=((((FFdQcfc_Vtnode_GND*FCf_ci)+(FFdQcfc*FCf_ci_Vtnode_GND))*d00_exp0)+((FFdQcfc*FCf_ci)*((FFdVc_Vtnode_GND*VT-(FFdVc-vcbar)*VT_Vtnode_GND)/VT/VT)*d10_exp0));
9080 : 0 : FFdQcfc_Vbi_ei=((((FFdQcfc_Vbi_ei*FCf_ci)+(FFdQcfc*FCf_ci_Vbi_ei))*d00_exp0)+((FFdQcfc*FCf_ci)*(FFdVc_Vbi_ei/VT)*d10_exp0));
9081 : 0 : FFdQcfc_Vbi_ci=((((FFdQcfc_Vbi_ci*FCf_ci)+(FFdQcfc*FCf_ci_Vbi_ci))*d00_exp0)+((FFdQcfc*FCf_ci)*(FFdVc_Vbi_ci/VT)*d10_exp0));
9082 : 0 : FFdQcfc_Vci_ei=((((FFdQcfc_Vci_ei*FCf_ci)+(FFdQcfc*FCf_ci_Vci_ei))*d00_exp0)+((FFdQcfc*FCf_ci)*(FFdVc_Vci_ei/VT)*d10_exp0));
9083 : : #endif
9084 : 0 : FFdQcfc=((FFdQcfc*FCf_ci)*d00_exp0);
9085 : : }
9086 : : {
9087 : 0 : double m00_exp(d00_exp0,((FFdVc-vcbar)/VT))
9088 : : #if defined(_DERIVATE)
9089 : : #define d10_exp0 d00_exp0
9090 : : #endif
9091 : : #if defined(_DERIVATE)
9092 : 0 : FFdTcfc_Vtnode_GND=((((((fthc*thcs_t_Vtnode_GND)*d00_exp0)+((fthc*thcs_t)*((FFdVc_Vtnode_GND*VT-(FFdVc-vcbar)*VT_Vtnode_GND)/VT/VT)*d10_exp0))*(FCf_ci+(itf*FCdfc_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_ci_Vtnode_GND+((itf_Vtnode_GND*FCdfc_ditf)+(itf*FCdfc_ditf_Vtnode_GND)))))+((((FFdQcfc_Vtnode_GND*VT-FFdQcfc*VT_Vtnode_GND)/VT/VT)*FFdVc_ditf)+((FFdQcfc/VT)*FFdVc_ditf_Vtnode_GND)));
9093 : 0 : FFdTcfc_Vbi_ei=(((((fthc*thcs_t)*(FFdVc_Vbi_ei/VT)*d10_exp0)*(FCf_ci+(itf*FCdfc_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_ci_Vbi_ei+((itf_Vbi_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ei)))))+(((FFdQcfc_Vbi_ei/VT)*FFdVc_ditf)+((FFdQcfc/VT)*FFdVc_ditf_Vbi_ei)));
9094 : 0 : FFdTcfc_Vbi_ci=(((((fthc*thcs_t)*(FFdVc_Vbi_ci/VT)*d10_exp0)*(FCf_ci+(itf*FCdfc_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_ci_Vbi_ci+((itf_Vbi_ci*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ci)))))+(((FFdQcfc_Vbi_ci/VT)*FFdVc_ditf)+((FFdQcfc/VT)*FFdVc_ditf_Vbi_ci)));
9095 : 0 : FFdTcfc_Vci_ei=(((((fthc*thcs_t)*(FFdVc_Vci_ei/VT)*d10_exp0)*(FCf_ci+(itf*FCdfc_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_ci_Vci_ei+((itf_Vci_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vci_ei)))))+(((FFdQcfc_Vci_ei/VT)*FFdVc_ditf)+((FFdQcfc/VT)*FFdVc_ditf_Vci_ei)));
9096 : : #endif
9097 : 0 : FFdTcfc=((((fthc*thcs_t)*d00_exp0)*(FCf_ci+(itf*FCdfc_ditf)))+((FFdQcfc/VT)*FFdVc_ditf));
9098 : : }
9099 : : #if defined(_DYNAMIC)
9100 : : {
9101 : 0 : double m00_exp(d00_exp0,((FFdVc-vcbar)/VT))
9102 : : #if defined(_DERIVATE)
9103 : : #define d10_exp0 d00_exp0
9104 : : #endif
9105 : : #if defined(_DERIVATE)
9106 : 0 : FFdTcfcT_Vtnode_GND=((((((fthc*thcs_t_Vtnode_GND)*d00_exp0)+((fthc*thcs_t)*((FFdVc_Vtnode_GND*VT-(FFdVc-vcbar)*VT_Vtnode_GND)/VT/VT)*d10_exp0))*(FCf_CT+(itf*FCdfCT_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_CT_Vtnode_GND+((itf_Vtnode_GND*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vtnode_GND)))))+((((FFdQcfcT_Vtnode_GND*VT-FFdQcfcT*VT_Vtnode_GND)/VT/VT)*FFdVc_ditf)+((FFdQcfcT/VT)*FFdVc_ditf_Vtnode_GND)));
9107 : 0 : FFdTcfcT_Vbi_ei=(((((fthc*thcs_t)*(FFdVc_Vbi_ei/VT)*d10_exp0)*(FCf_CT+(itf*FCdfCT_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_CT_Vbi_ei+((itf_Vbi_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ei)))))+(((FFdQcfcT_Vbi_ei/VT)*FFdVc_ditf)+((FFdQcfcT/VT)*FFdVc_ditf_Vbi_ei)));
9108 : 0 : FFdTcfcT_Vbi_ci=(((((fthc*thcs_t)*(FFdVc_Vbi_ci/VT)*d10_exp0)*(FCf_CT+(itf*FCdfCT_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_CT_Vbi_ci+((itf_Vbi_ci*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ci)))))+(((FFdQcfcT_Vbi_ci/VT)*FFdVc_ditf)+((FFdQcfcT/VT)*FFdVc_ditf_Vbi_ci)));
9109 : 0 : FFdTcfcT_Vci_ei=(((((fthc*thcs_t)*(FFdVc_Vci_ei/VT)*d10_exp0)*(FCf_CT+(itf*FCdfCT_ditf)))+(((fthc*thcs_t)*d00_exp0)*(FCf_CT_Vci_ei+((itf_Vci_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vci_ei)))))+(((FFdQcfcT_Vci_ei/VT)*FFdVc_ditf)+((FFdQcfcT/VT)*FFdVc_ditf_Vci_ei)));
9110 : : #endif
9111 : 0 : FFdTcfcT=((((fthc*thcs_t)*d00_exp0)*(FCf_CT+(itf*FCdfCT_ditf)))+((FFdQcfcT/VT)*FFdVc_ditf));
9112 : : }
9113 : : #endif
9114 : : }
9115 : : #if defined(_DERIVATE)
9116 : 0 : FFdQbfc_Vtnode_GND=((1-fthc)*FFdQfhc_Vtnode_GND);
9117 : 0 : FFdQbfc_Vbi_ei=((1-fthc)*FFdQfhc_Vbi_ei);
9118 : 0 : FFdQbfc_Vbi_ci=((1-fthc)*FFdQfhc_Vbi_ci);
9119 : 0 : FFdQbfc_Vci_ei=((1-fthc)*FFdQfhc_Vci_ei);
9120 : : #endif
9121 : 0 : FFdQbfc=((1-fthc)*FFdQfhc);
9122 : : #if defined(_DERIVATE)
9123 : 0 : FFdTbfc_Vtnode_GND=((1-fthc)*FFdTfhc_Vtnode_GND);
9124 : 0 : FFdTbfc_Vbi_ei=((1-fthc)*FFdTfhc_Vbi_ei);
9125 : 0 : FFdTbfc_Vbi_ci=((1-fthc)*FFdTfhc_Vbi_ci);
9126 : 0 : FFdTbfc_Vci_ei=((1-fthc)*FFdTfhc_Vci_ei);
9127 : : #endif
9128 : 0 : FFdTbfc=((1-fthc)*FFdTfhc);
9129 : : #if defined(_DYNAMIC)
9130 : : #if defined(_DERIVATE)
9131 : 0 : Q_fT_Vci_ei=(((((hf0_t*Qf_Vci_ei)+FFdQbfb_Vci_ei)+FFdQbfc_Vci_ei)+(hfe_t*FFdQef_Vci_ei))+(hfc_t*FFdQcfcT_Vci_ei));
9132 : 0 : Q_fT_Vtnode_GND=((((((hf0_t_Vtnode_GND*Qf)+(hf0_t*Qf_Vtnode_GND))+FFdQbfb_Vtnode_GND)+FFdQbfc_Vtnode_GND)+((hfe_t_Vtnode_GND*FFdQef)+(hfe_t*FFdQef_Vtnode_GND)))+((hfc_t_Vtnode_GND*FFdQcfcT)+(hfc_t*FFdQcfcT_Vtnode_GND)));
9133 : 0 : Q_fT_Vbi_ci=(((((hf0_t*Qf_Vbi_ci)+FFdQbfb_Vbi_ci)+FFdQbfc_Vbi_ci)+(hfe_t*FFdQef_Vbi_ci))+(hfc_t*FFdQcfcT_Vbi_ci));
9134 : 0 : Q_fT_Vbi_ei=(((((hf0_t*Qf_Vbi_ei)+FFdQbfb_Vbi_ei)+FFdQbfc_Vbi_ei)+(hfe_t*FFdQef_Vbi_ei))+(hfc_t*FFdQcfcT_Vbi_ei));
9135 : : #endif
9136 : 0 : Q_fT=(((((hf0_t*Qf)+FFdQbfb)+FFdQbfc)+(hfe_t*FFdQef))+(hfc_t*FFdQcfcT));
9137 : : #endif
9138 : : #if defined(_DYNAMIC)
9139 : : #if defined(_DERIVATE)
9140 : 0 : T_fT_Vbi_ei=(((((hf0_t*Tf_Vbi_ei)+FFdTbfb_Vbi_ei)+FFdTbfc_Vbi_ei)+(hfe_t*FFdTef_Vbi_ei))+(hfc_t*FFdTcfcT_Vbi_ei));
9141 : 0 : T_fT_Vci_ei=(((((hf0_t*Tf_Vci_ei)+FFdTbfb_Vci_ei)+FFdTbfc_Vci_ei)+(hfe_t*FFdTef_Vci_ei))+(hfc_t*FFdTcfcT_Vci_ei));
9142 : 0 : T_fT_Vtnode_GND=((((((hf0_t_Vtnode_GND*Tf)+(hf0_t*Tf_Vtnode_GND))+FFdTbfb_Vtnode_GND)+FFdTbfc_Vtnode_GND)+((hfe_t_Vtnode_GND*FFdTef)+(hfe_t*FFdTef_Vtnode_GND)))+((hfc_t_Vtnode_GND*FFdTcfcT)+(hfc_t*FFdTcfcT_Vtnode_GND)));
9143 : 0 : T_fT_Vbi_ci=(((((hf0_t*Tf_Vbi_ci)+FFdTbfb_Vbi_ci)+FFdTbfc_Vbi_ci)+(hfe_t*FFdTef_Vbi_ci))+(hfc_t*FFdTcfcT_Vbi_ci));
9144 : : #endif
9145 : 0 : T_fT=(((((hf0_t*Tf)+FFdTbfb)+FFdTbfc)+(hfe_t*FFdTef))+(hfc_t*FFdTcfcT));
9146 : : #endif
9147 : : #if defined(_DERIVATE)
9148 : 0 : Qf_Vci_ei=(((Qf_Vci_ei+(FFdQbfb_Vci_ei+FFdQbfc_Vci_ei))+FFdQef_Vci_ei)+FFdQcfc_Vci_ei);
9149 : 0 : Qf_Vtnode_GND=(((Qf_Vtnode_GND+(FFdQbfb_Vtnode_GND+FFdQbfc_Vtnode_GND))+FFdQef_Vtnode_GND)+FFdQcfc_Vtnode_GND);
9150 : 0 : Qf_Vbi_ci=(((Qf_Vbi_ci+(FFdQbfb_Vbi_ci+FFdQbfc_Vbi_ci))+FFdQef_Vbi_ci)+FFdQcfc_Vbi_ci);
9151 : 0 : Qf_Vbi_ei=(((Qf_Vbi_ei+(FFdQbfb_Vbi_ei+FFdQbfc_Vbi_ei))+FFdQef_Vbi_ei)+FFdQcfc_Vbi_ei);
9152 : : #endif
9153 : 0 : Qf=(((Qf+(FFdQbfb+FFdQbfc))+FFdQef)+FFdQcfc);
9154 : : #if defined(_DERIVATE)
9155 : 0 : Tf_Vbi_ei=(((Tf_Vbi_ei+(FFdTbfb_Vbi_ei+FFdTbfc_Vbi_ei))+FFdTef_Vbi_ei)+FFdTcfc_Vbi_ei);
9156 : 0 : Tf_Vci_ei=(((Tf_Vci_ei+(FFdTbfb_Vci_ei+FFdTbfc_Vci_ei))+FFdTef_Vci_ei)+FFdTcfc_Vci_ei);
9157 : 0 : Tf_Vtnode_GND=(((Tf_Vtnode_GND+(FFdTbfb_Vtnode_GND+FFdTbfc_Vtnode_GND))+FFdTef_Vtnode_GND)+FFdTcfc_Vtnode_GND);
9158 : 0 : Tf_Vbi_ci=(((Tf_Vbi_ci+(FFdTbfb_Vbi_ci+FFdTbfc_Vbi_ci))+FFdTef_Vbi_ci)+FFdTcfc_Vbi_ci);
9159 : : #endif
9160 : 0 : Tf=(((Tf+(FFdTbfb+FFdTbfc))+FFdTef)+FFdTcfc);
9161 : : #if defined(_DERIVATE)
9162 : 0 : Q_bf_Vtnode_GND=(FFdQbfb_Vtnode_GND+FFdQbfc_Vtnode_GND);
9163 : 0 : Q_bf_Vbi_ei=(FFdQbfb_Vbi_ei+FFdQbfc_Vbi_ei);
9164 : 0 : Q_bf_Vbi_ci=(FFdQbfb_Vbi_ci+FFdQbfc_Vbi_ci);
9165 : 0 : Q_bf_Vci_ei=(FFdQbfb_Vci_ei+FFdQbfc_Vci_ei);
9166 : : #endif
9167 : 0 : Q_bf=(FFdQbfb+FFdQbfc);
9168 : : }
9169 : : #if defined(_DYNAMIC)
9170 : : #if defined(_DERIVATE)
9171 : 0 : Qr_Vci_ei=(Tr*itr_Vci_ei);
9172 : 0 : Qr_Vtnode_GND=(Tr*itr_Vtnode_GND);
9173 : 0 : Qr_Vbi_ci=(Tr*itr_Vbi_ci);
9174 : 0 : Qr_Vbi_ei=(Tr*itr_Vbi_ei);
9175 : : #endif
9176 : 0 : Qr=(Tr*itr);
9177 : : #endif
9178 : : }
9179 : : #if defined(_DERIVATE)
9180 : 0 : it_Vci_ei=(itf_Vci_ei-itr_Vci_ei);
9181 : 0 : it_Vtnode_GND=(itf_Vtnode_GND-itr_Vtnode_GND);
9182 : 0 : it_Vbi_ei=(itf_Vbi_ei-itr_Vbi_ei);
9183 : 0 : it_Vbi_ci=(itf_Vbi_ci-itr_Vbi_ci);
9184 : : #endif
9185 : 0 : it=(itf-itr);
9186 : : #if defined(_DERIVATE)
9187 : 0 : Qdei_Vci_ei=Qf_Vci_ei;
9188 : 0 : Qdei_Vtnode_GND=Qf_Vtnode_GND;
9189 : 0 : Qdei_Vbi_ci=Qf_Vbi_ci;
9190 : 0 : Qdei_Vbi_ei=Qf_Vbi_ei;
9191 : : #endif
9192 : 0 : Qdei=Qf;
9193 : : #if defined(_DYNAMIC)
9194 : : #if defined(_DERIVATE)
9195 : 0 : Qdci_Vci_ei=Qr_Vci_ei;
9196 : 0 : Qdci_Vtnode_GND=Qr_Vtnode_GND;
9197 : 0 : Qdci_Vbi_ci=Qr_Vbi_ci;
9198 : 0 : Qdci_Vbi_ei=Qr_Vbi_ei;
9199 : : #endif
9200 : 0 : Qdci=Qr;
9201 : : #endif
9202 : : #if defined(_DYNAMIC)
9203 : : #if defined(_DERIVATE)
9204 : 0 : Cdei_Vtnode_GND=((((T_f0_Vtnode_GND*itf)+(T_f0*itf_Vtnode_GND))*VT-(T_f0*itf)*VT_Vtnode_GND)/VT/VT);
9205 : 0 : Cdei_Vbi_ci=(((T_f0_Vbi_ci*itf)+(T_f0*itf_Vbi_ci))/VT);
9206 : 0 : Cdei_Vci_ei=((T_f0*itf_Vci_ei)/VT);
9207 : 0 : Cdei_Vbi_ei=((T_f0*itf_Vbi_ei)/VT);
9208 : : #endif
9209 : 0 : Cdei=((T_f0*itf)/VT);
9210 : : #endif
9211 : : #if defined(_DYNAMIC)
9212 : : #if defined(_DERIVATE)
9213 : 0 : Cdci_Vci_ei=((tr*itr_Vci_ei)/VT);
9214 : 0 : Cdci_Vtnode_GND=(((tr*itr_Vtnode_GND)*VT-(tr*itr)*VT_Vtnode_GND)/VT/VT);
9215 : 0 : Cdci_Vbi_ci=((tr*itr_Vbi_ci)/VT);
9216 : 0 : Cdci_Vbi_ei=((tr*itr_Vbi_ei)/VT);
9217 : : #endif
9218 : 0 : Cdci=((tr*itr)/VT);
9219 : : #endif
9220 : : #if defined(_DYNAMIC)
9221 : : #if defined(_DERIVATE)
9222 : 0 : Crbi_Vtnode_GND=(fcrbi*(((Cjei_Vtnode_GND+Cjci_Vtnode_GND)+Cdei_Vtnode_GND)+Cdci_Vtnode_GND));
9223 : 0 : Crbi_Vbi_ei=(fcrbi*(((Cjei_Vbi_ei+Cjci_Vbi_ei)+Cdei_Vbi_ei)+Cdci_Vbi_ei));
9224 : 0 : Crbi_Vbi_ci=(fcrbi*((Cjci_Vbi_ci+Cdei_Vbi_ci)+Cdci_Vbi_ci));
9225 : 0 : Crbi_Vci_ei=(fcrbi*(Cdei_Vci_ei+Cdci_Vci_ei));
9226 : : #endif
9227 : 0 : Crbi=(fcrbi*(((Cjei+Cjci)+Cdei)+Cdci));
9228 : : #endif
9229 : : #if defined(_DYNAMIC)
9230 : : #if defined(_DERIVATE)
9231 [ # # ]: 0 : qrbi_Vtnode_GND=Crbi_Vtnode_GND*BP(bp,bi);
9232 [ # # ]: 0 : qrbi_Vbi_ei=Crbi_Vbi_ei*BP(bp,bi);
9233 [ # # ]: 0 : qrbi_Vbi_ci=Crbi_Vbi_ci*BP(bp,bi);
9234 [ # # ]: 0 : qrbi_Vci_ei=Crbi_Vci_ei*BP(bp,bi);
9235 : 0 : qrbi_Vbp_bi=(Crbi);
9236 : : #endif
9237 [ # # ]: 0 : qrbi=(Crbi*BP(bp,bi));
9238 : : #endif
9239 : : #if defined(_DERIVATE)
9240 : 0 : DIOY_Vsi_ci=0.0;
9241 : 0 : DIOY_Vbp_ci=0.0;
9242 : 0 : DIOY_Vbp_ei=0.0;
9243 : 0 : DIOY_Vbi_ci=(Vbici_Vbi_ci/(mbci*VT));
9244 : 0 : DIOY_Vbi_ei=0.0;
9245 : 0 : DIOY_Vtnode_GND=(-Vbici*(mbci*VT_Vtnode_GND)/(mbci*VT)/(mbci*VT));
9246 : : #endif
9247 : 0 : DIOY=(Vbici/(mbci*VT));
9248 [ # # ]: 0 : if
9249 : : (ibcis>0.0)
9250 : : {
9251 [ # # ]: 0 : if
9252 : : (DIOY>80.0)
9253 : : {
9254 : : #if defined(_DERIVATE)
9255 : 0 : le_Vsi_ci=0.0;
9256 : 0 : le_Vbp_ci=0.0;
9257 : 0 : le_Vbp_ei=0.0;
9258 : 0 : le_Vbi_ci=DIOY_Vbi_ci;
9259 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
9260 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
9261 : : #endif
9262 : 0 : le=(1+(DIOY-80.0));
9263 : : #if defined(_DERIVATE)
9264 : 0 : DIOY_Vsi_ci=0.0;
9265 : 0 : DIOY_Vbp_ci=0.0;
9266 : 0 : DIOY_Vbp_ei=0.0;
9267 : 0 : DIOY_Vbi_ci=0.0;
9268 : 0 : DIOY_Vbi_ei=0.0;
9269 : 0 : DIOY_Vtnode_GND=0.0;
9270 : : #endif
9271 : 0 : DIOY=80.0;
9272 : : }
9273 : : else
9274 : : {
9275 : : #if defined(_DERIVATE)
9276 : 0 : le_Vsi_ci=0.0;
9277 : 0 : le_Vbp_ci=0.0;
9278 : 0 : le_Vbp_ei=0.0;
9279 : 0 : le_Vbi_ci=0.0;
9280 : 0 : le_Vbi_ei=0.0;
9281 : 0 : le_Vtnode_GND=0.0;
9282 : : #endif
9283 : 0 : le=1;
9284 : : }
9285 : : {
9286 [ # # ]: 0 : double m00_limexp(d00_limexp0,DIOY)
9287 : : #if defined(_DERIVATE)
9288 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
9289 : : #endif
9290 : : #if defined(_DERIVATE)
9291 : 0 : le_Vsi_ci=0.0;
9292 : 0 : le_Vbp_ci=0.0;
9293 : 0 : le_Vbp_ei=0.0;
9294 : 0 : le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
9295 : 0 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
9296 : 0 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
9297 : : #endif
9298 : 0 : le=(le*d00_limexp0);
9299 : : }
9300 : : #if defined(_DERIVATE)
9301 : 0 : ibci_Vtnode_GND=((ibcis_t_Vtnode_GND*(le-1.0))+(ibcis_t*le_Vtnode_GND));
9302 : 0 : ibci_Vbi_ci=(ibcis_t*le_Vbi_ci);
9303 : 0 : ibci_Vbi_ei=(ibcis_t*le_Vbi_ei);
9304 : : #endif
9305 : 0 : ibci=(ibcis_t*(le-1.0));
9306 [ # # ]: 0 : if
9307 : : (DIOY<=(-14.0))
9308 : : {
9309 : : #if defined(_DERIVATE)
9310 : 0 : ibci_Vtnode_GND=(-ibcis_t_Vtnode_GND);
9311 : 0 : ibci_Vbi_ci=0.0;
9312 : 0 : ibci_Vbi_ei=0.0;
9313 : : #endif
9314 : 0 : ibci=(-ibcis_t);
9315 : : }
9316 : : }
9317 : : else
9318 : : {
9319 : : #if defined(_DERIVATE)
9320 : 0 : ibci_Vtnode_GND=0.0;
9321 : 0 : ibci_Vbi_ci=0.0;
9322 : 0 : ibci_Vbi_ei=0.0;
9323 : : #endif
9324 : 0 : ibci=0.0;
9325 : : }
9326 [ # # ][ # # ]: 0 : if
[ # # ]
9327 : : (((Vbici<0.0)&&(favl_t>0.0))&&(cjci0_t>0.0))
9328 : : {
9329 : : double v_bord;
9330 : : double v_q;
9331 : : double U0;
9332 : : double av;
9333 : : double avl;
9334 : : #if defined(_DERIVATE)
9335 : : double v_bord_Vtnode_GND;
9336 : : #endif
9337 : : #if defined(_DERIVATE)
9338 : : double v_bord_Vbi_ci;
9339 : : #endif
9340 : : #if defined(_DERIVATE)
9341 : : double v_q_Vtnode_GND;
9342 : : #endif
9343 : : #if defined(_DERIVATE)
9344 : : double v_q_Vbi_ei;
9345 : : #endif
9346 : : #if defined(_DERIVATE)
9347 : : double v_q_Vbi_ci;
9348 : : #endif
9349 : : #if defined(_DERIVATE)
9350 : : double U0_Vtnode_GND;
9351 : : #endif
9352 : : #if defined(_DERIVATE)
9353 : : double av_Vtnode_GND;
9354 : : #endif
9355 : : #if defined(_DERIVATE)
9356 : : double av_Vbi_ei;
9357 : : #endif
9358 : : #if defined(_DERIVATE)
9359 : : double av_Vbi_ci;
9360 : : #endif
9361 : : #if defined(_DERIVATE)
9362 : : double avl_Vtnode_GND;
9363 : : #endif
9364 : : #if defined(_DERIVATE)
9365 : : double avl_Vbi_ei;
9366 : : #endif
9367 : : #if defined(_DERIVATE)
9368 : : double avl_Vbi_ci;
9369 : : #endif
9370 : : #if defined(_DERIVATE)
9371 : 0 : v_bord_Vtnode_GND=vdci_t_Vtnode_GND;
9372 : 0 : v_bord_Vbi_ci=(-Vbici_Vbi_ci);
9373 : : #endif
9374 : 0 : v_bord=(vdci_t-Vbici);
9375 : : #if defined(_DERIVATE)
9376 : 0 : v_q_Vtnode_GND=((qavl_t_Vtnode_GND*Cjci-qavl_t*Cjci_Vtnode_GND)/Cjci/Cjci);
9377 : 0 : v_q_Vbi_ei=(-qavl_t*Cjci_Vbi_ei/Cjci/Cjci);
9378 : 0 : v_q_Vbi_ci=(-qavl_t*Cjci_Vbi_ci/Cjci/Cjci);
9379 : : #endif
9380 : 0 : v_q=(qavl_t/Cjci);
9381 : : #if defined(_DERIVATE)
9382 : 0 : U0_Vtnode_GND=((qavl_t_Vtnode_GND*cjci0_t-qavl_t*cjci0_t_Vtnode_GND)/cjci0_t/cjci0_t);
9383 : : #endif
9384 : 0 : U0=(qavl_t/cjci0_t);
9385 [ # # ]: 0 : if
9386 : : (v_bord>U0)
9387 : : {
9388 : : {
9389 : 0 : double m00_exp(d00_exp0,((-v_q)/U0))
9390 : : #if defined(_DERIVATE)
9391 : : #define d10_exp0 d00_exp0
9392 : : #endif
9393 : : #if defined(_DERIVATE)
9394 : 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));
9395 : 0 : av_Vbi_ei=(favl_t*((-v_q_Vbi_ei)/U0)*d10_exp0);
9396 : 0 : av_Vbi_ci=(favl_t*((-v_q_Vbi_ci)/U0)*d10_exp0);
9397 : : #endif
9398 : 0 : av=(favl_t*d00_exp0);
9399 : : }
9400 : : #if defined(_DERIVATE)
9401 : 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))))));
9402 : 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)));
9403 : 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))));
9404 : : #endif
9405 : 0 : avl=(av*(U0+((1.0+(v_q/U0))*(v_bord-U0))));
9406 : : }
9407 : : else
9408 : : {
9409 : : {
9410 : 0 : double m00_exp(d00_exp0,((-v_q)/v_bord))
9411 : : #if defined(_DERIVATE)
9412 : : #define d10_exp0 d00_exp0
9413 : : #endif
9414 : : #if defined(_DERIVATE)
9415 : 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));
9416 : 0 : avl_Vbi_ei=((favl_t*v_bord)*((-v_q_Vbi_ei)/v_bord)*d10_exp0);
9417 : 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));
9418 : : #endif
9419 : 0 : avl=((favl_t*v_bord)*d00_exp0);
9420 : : }
9421 : : }
9422 : : #if defined(_DERIVATE)
9423 : 0 : iavl_Vci_ei=itf_Vci_ei*avl;
9424 : 0 : iavl_Vtnode_GND=((itf_Vtnode_GND*avl)+(itf*avl_Vtnode_GND));
9425 : 0 : iavl_Vbi_ei=((itf_Vbi_ei*avl)+(itf*avl_Vbi_ei));
9426 : 0 : iavl_Vbi_ci=((itf_Vbi_ci*avl)+(itf*avl_Vbi_ci));
9427 : : #endif
9428 : 0 : iavl=(itf*avl);
9429 : : }
9430 : : else
9431 : : {
9432 : : #if defined(_DERIVATE)
9433 : 0 : iavl_Vci_ei=0.0;
9434 : 0 : iavl_Vtnode_GND=0.0;
9435 : 0 : iavl_Vbi_ei=0.0;
9436 : 0 : iavl_Vbi_ci=0.0;
9437 : : #endif
9438 : 0 : iavl=0.0;
9439 : : }
9440 : : #if defined(_DERIVATE)
9441 : 0 : ibh_rec_Vtnode_GND=Q_bf_Vtnode_GND*Otbhrec;
9442 : 0 : ibh_rec_Vbi_ei=Q_bf_Vbi_ei*Otbhrec;
9443 : 0 : ibh_rec_Vbi_ci=Q_bf_Vbi_ci*Otbhrec;
9444 : 0 : ibh_rec_Vci_ei=Q_bf_Vci_ei*Otbhrec;
9445 : : #endif
9446 : 0 : ibh_rec=(Q_bf*Otbhrec);
9447 [ # # ]: 0 : if
9448 : : (rbi0_t>0.0)
9449 : : {
9450 : : double Qz_nom;
9451 : : double f_QR;
9452 : : double ETA;
9453 : : double Qz0;
9454 : : double fQz;
9455 : : #if defined(_DERIVATE)
9456 : : double Qz_nom_Vtnode_GND;
9457 : : #endif
9458 : : #if defined(_DERIVATE)
9459 : : double Qz_nom_Vbi_ei;
9460 : : #endif
9461 : : #if defined(_DERIVATE)
9462 : : double Qz_nom_Vbi_ci;
9463 : : #endif
9464 : : #if defined(_DERIVATE)
9465 : : double Qz_nom_Vci_ei;
9466 : : #endif
9467 : : #if defined(_DERIVATE)
9468 : : double f_QR_Vtnode_GND;
9469 : : #endif
9470 : : #if defined(_DERIVATE)
9471 : : double ETA_Vtnode_GND;
9472 : : #endif
9473 : : #if defined(_DERIVATE)
9474 : : double ETA_Vbi_ei;
9475 : : #endif
9476 : : #if defined(_DERIVATE)
9477 : : double ETA_Vbi_ci;
9478 : : #endif
9479 : : #if defined(_DERIVATE)
9480 : : double ETA_Vci_ei;
9481 : : #endif
9482 : : #if defined(_DERIVATE)
9483 : : double Qz0_Vtnode_GND;
9484 : : #endif
9485 : : #if defined(_DERIVATE)
9486 : : double Qz0_Vbi_ei;
9487 : : #endif
9488 : : #if defined(_DERIVATE)
9489 : : double Qz0_Vbi_ci;
9490 : : #endif
9491 : : #if defined(_DERIVATE)
9492 : : double Qz0_Vci_ei;
9493 : : #endif
9494 : : #if defined(_DERIVATE)
9495 : : double fQz_Vtnode_GND;
9496 : : #endif
9497 : : #if defined(_DERIVATE)
9498 : : double fQz_Vbi_ei;
9499 : : #endif
9500 : : #if defined(_DERIVATE)
9501 : : double fQz_Vbi_ci;
9502 : : #endif
9503 : : #if defined(_DERIVATE)
9504 : : double fQz_Vci_ei;
9505 : : #endif
9506 : : #if defined(_DERIVATE)
9507 : 0 : f_QR_Vtnode_GND=((1+fdqr0)*qp0_t_Vtnode_GND);
9508 : : #endif
9509 : 0 : f_QR=((1+fdqr0)*qp0_t);
9510 : : #if defined(_DERIVATE)
9511 : 0 : Qz0_Vtnode_GND=((Qjei_Vtnode_GND+Qjci_Vtnode_GND)+Qf_Vtnode_GND);
9512 : 0 : Qz0_Vbi_ei=((Qjei_Vbi_ei+Qjci_Vbi_ei)+Qf_Vbi_ei);
9513 : 0 : Qz0_Vbi_ci=(Qjci_Vbi_ci+Qf_Vbi_ci);
9514 : 0 : Qz0_Vci_ei=Qf_Vci_ei;
9515 : : #endif
9516 : 0 : Qz0=((Qjei+Qjci)+Qf);
9517 : : #if defined(_DERIVATE)
9518 : 0 : Qz_nom_Vtnode_GND=((Qz0_Vtnode_GND*f_QR-Qz0*f_QR_Vtnode_GND)/f_QR/f_QR);
9519 : 0 : Qz_nom_Vbi_ei=(Qz0_Vbi_ei/f_QR);
9520 : 0 : Qz_nom_Vbi_ci=(Qz0_Vbi_ci/f_QR);
9521 : 0 : Qz_nom_Vci_ei=(Qz0_Vci_ei/f_QR);
9522 : : #endif
9523 : 0 : Qz_nom=(1+(Qz0/f_QR));
9524 : : {
9525 : 0 : double m00_sqrt(d00_sqrt0,((Qz_nom*Qz_nom)+0.01))
9526 : : #if defined(_DERIVATE)
9527 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((Qz_nom*Qz_nom)+0.01))
9528 : : #endif
9529 : : #if defined(_DERIVATE)
9530 : 0 : fQz_Vtnode_GND=(0.5*(Qz_nom_Vtnode_GND+((Qz_nom_Vtnode_GND*Qz_nom)+(Qz_nom*Qz_nom_Vtnode_GND))*d10_sqrt0));
9531 : 0 : fQz_Vbi_ei=(0.5*(Qz_nom_Vbi_ei+((Qz_nom_Vbi_ei*Qz_nom)+(Qz_nom*Qz_nom_Vbi_ei))*d10_sqrt0));
9532 : 0 : fQz_Vbi_ci=(0.5*(Qz_nom_Vbi_ci+((Qz_nom_Vbi_ci*Qz_nom)+(Qz_nom*Qz_nom_Vbi_ci))*d10_sqrt0));
9533 : 0 : fQz_Vci_ei=(0.5*(Qz_nom_Vci_ei+((Qz_nom_Vci_ei*Qz_nom)+(Qz_nom*Qz_nom_Vci_ei))*d10_sqrt0));
9534 : : #endif
9535 : 0 : fQz=(0.5*(Qz_nom+d00_sqrt0));
9536 : : }
9537 : : #if defined(_DERIVATE)
9538 : 0 : rbi_Vtnode_GND=((rbi0_t_Vtnode_GND*fQz-rbi0_t*fQz_Vtnode_GND)/fQz/fQz);
9539 : 0 : rbi_Vbi_ei=(-rbi0_t*fQz_Vbi_ei/fQz/fQz);
9540 : 0 : rbi_Vbi_ci=(-rbi0_t*fQz_Vbi_ci/fQz/fQz);
9541 : 0 : rbi_Vci_ei=(-rbi0_t*fQz_Vci_ei/fQz/fQz);
9542 : : #endif
9543 : 0 : rbi=(rbi0_t/fQz);
9544 [ # # ]: 0 : if
9545 : : (ibei>0.0)
9546 : : {
9547 : : #if defined(_DERIVATE)
9548 : 0 : ETA_Vtnode_GND=((((rbi_Vtnode_GND*ibei)+(rbi*ibei_Vtnode_GND))*fgeo*VT-((rbi*ibei)*fgeo)*VT_Vtnode_GND)/VT/VT);
9549 : 0 : ETA_Vbi_ei=(((rbi_Vbi_ei*ibei)+(rbi*ibei_Vbi_ei))*fgeo/VT);
9550 : 0 : ETA_Vbi_ci=(rbi_Vbi_ci*ibei*fgeo/VT);
9551 : 0 : ETA_Vci_ei=(rbi_Vci_ei*ibei*fgeo/VT);
9552 : : #endif
9553 : 0 : ETA=(((rbi*ibei)*fgeo)/VT);
9554 [ # # ]: 0 : if
9555 : : (ETA<1.0e-6)
9556 : : {
9557 : : #if defined(_DERIVATE)
9558 : 0 : rbi_Vtnode_GND=((rbi_Vtnode_GND*(1.0-(0.5*ETA)))+(rbi*(-(0.5*ETA_Vtnode_GND))));
9559 : 0 : rbi_Vbi_ei=((rbi_Vbi_ei*(1.0-(0.5*ETA)))+(rbi*(-(0.5*ETA_Vbi_ei))));
9560 : 0 : rbi_Vbi_ci=((rbi_Vbi_ci*(1.0-(0.5*ETA)))+(rbi*(-(0.5*ETA_Vbi_ci))));
9561 : 0 : rbi_Vci_ei=((rbi_Vci_ei*(1.0-(0.5*ETA)))+(rbi*(-(0.5*ETA_Vci_ei))));
9562 : : #endif
9563 : 0 : rbi=(rbi*(1.0-(0.5*ETA)));
9564 : : }
9565 : : else
9566 : : {
9567 : : {
9568 : 0 : double m00_logE(d00_logE0,(1.0+ETA))
9569 : : #if defined(_DERIVATE)
9570 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+ETA))
9571 : : #endif
9572 : : #if defined(_DERIVATE)
9573 : 0 : rbi_Vtnode_GND=((((rbi_Vtnode_GND*d00_logE0)+(rbi*ETA_Vtnode_GND*d10_logE0))*ETA-(rbi*d00_logE0)*ETA_Vtnode_GND)/ETA/ETA);
9574 : 0 : rbi_Vbi_ei=((((rbi_Vbi_ei*d00_logE0)+(rbi*ETA_Vbi_ei*d10_logE0))*ETA-(rbi*d00_logE0)*ETA_Vbi_ei)/ETA/ETA);
9575 : 0 : rbi_Vbi_ci=((((rbi_Vbi_ci*d00_logE0)+(rbi*ETA_Vbi_ci*d10_logE0))*ETA-(rbi*d00_logE0)*ETA_Vbi_ci)/ETA/ETA);
9576 : 0 : rbi_Vci_ei=((((rbi_Vci_ei*d00_logE0)+(rbi*ETA_Vci_ei*d10_logE0))*ETA-(rbi*d00_logE0)*ETA_Vci_ei)/ETA/ETA);
9577 : : #endif
9578 : 0 : rbi=((rbi*d00_logE0)/ETA);
9579 : : }
9580 : : }
9581 : : }
9582 [ # # ]: 0 : if
9583 : : (Qf>0.0)
9584 : : {
9585 : : #if defined(_DERIVATE)
9586 : 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));
9587 : 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));
9588 : 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));
9589 : 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));
9590 : : #endif
9591 : 0 : rbi=((rbi*(Qjei+(Qf*fqi)))/(Qjei+Qf));
9592 : : }
9593 : : }
9594 : : else
9595 : : {
9596 : : #if defined(_DERIVATE)
9597 : 0 : rbi_Vtnode_GND=0.0;
9598 : 0 : rbi_Vbi_ei=0.0;
9599 : 0 : rbi_Vbi_ci=0.0;
9600 : 0 : rbi_Vci_ei=0.0;
9601 : : #endif
9602 : 0 : rbi=0.0;
9603 : : }
9604 : : #if defined(_DERIVATE)
9605 : 0 : DIOY_Vsi_ci=0.0;
9606 : 0 : DIOY_Vbp_ci=0.0;
9607 : 0 : DIOY_Vbp_ei=(Vbpei_Vbp_ei/(mbep*VT));
9608 : 0 : DIOY_Vbi_ci=0.0;
9609 : 0 : DIOY_Vbi_ei=0.0;
9610 : 0 : DIOY_Vtnode_GND=(-Vbpei*(mbep*VT_Vtnode_GND)/(mbep*VT)/(mbep*VT));
9611 : : #endif
9612 : 0 : DIOY=(Vbpei/(mbep*VT));
9613 [ # # ]: 0 : if
9614 : : (ibeps>0.0)
9615 : : {
9616 [ # # ]: 0 : if
9617 : : (DIOY>80.0)
9618 : : {
9619 : : #if defined(_DERIVATE)
9620 : 0 : le_Vsi_ci=0.0;
9621 : 0 : le_Vbp_ci=0.0;
9622 : 0 : le_Vbp_ei=DIOY_Vbp_ei;
9623 : 0 : le_Vbi_ci=DIOY_Vbi_ci;
9624 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
9625 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
9626 : : #endif
9627 : 0 : le=(1+(DIOY-80.0));
9628 : : #if defined(_DERIVATE)
9629 : 0 : DIOY_Vsi_ci=0.0;
9630 : 0 : DIOY_Vbp_ci=0.0;
9631 : 0 : DIOY_Vbp_ei=0.0;
9632 : 0 : DIOY_Vbi_ci=0.0;
9633 : 0 : DIOY_Vbi_ei=0.0;
9634 : 0 : DIOY_Vtnode_GND=0.0;
9635 : : #endif
9636 : 0 : DIOY=80.0;
9637 : : }
9638 : : else
9639 : : {
9640 : : #if defined(_DERIVATE)
9641 : 0 : le_Vsi_ci=0.0;
9642 : 0 : le_Vbp_ci=0.0;
9643 : 0 : le_Vbp_ei=0.0;
9644 : 0 : le_Vbi_ci=0.0;
9645 : 0 : le_Vbi_ei=0.0;
9646 : 0 : le_Vtnode_GND=0.0;
9647 : : #endif
9648 : 0 : le=1;
9649 : : }
9650 : : {
9651 [ # # ]: 0 : double m00_limexp(d00_limexp0,DIOY)
9652 : : #if defined(_DERIVATE)
9653 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
9654 : : #endif
9655 : : #if defined(_DERIVATE)
9656 : 0 : le_Vsi_ci=0.0;
9657 : 0 : le_Vbp_ci=0.0;
9658 : 0 : le_Vbp_ei=((le_Vbp_ei*d00_limexp0)+(le*DIOY_Vbp_ei*d10_limexp0));
9659 : 0 : le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
9660 : 0 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
9661 : 0 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
9662 : : #endif
9663 : 0 : le=(le*d00_limexp0);
9664 : : }
9665 : : #if defined(_DERIVATE)
9666 : 0 : ibep_Vtnode_GND=((ibeps_t_Vtnode_GND*(le-1.0))+(ibeps_t*le_Vtnode_GND));
9667 : 0 : ibep_Vbp_ei=(ibeps_t*le_Vbp_ei);
9668 : 0 : ibep_Vbi_ci=(ibeps_t*le_Vbi_ci);
9669 : 0 : ibep_Vbi_ei=(ibeps_t*le_Vbi_ei);
9670 : : #endif
9671 : 0 : ibep=(ibeps_t*(le-1.0));
9672 [ # # ]: 0 : if
9673 : : (DIOY<=(-14.0))
9674 : : {
9675 : : #if defined(_DERIVATE)
9676 : 0 : ibep_Vtnode_GND=(-ibeps_t_Vtnode_GND);
9677 : 0 : ibep_Vbp_ei=0.0;
9678 : 0 : ibep_Vbi_ci=0.0;
9679 : 0 : ibep_Vbi_ei=0.0;
9680 : : #endif
9681 : 0 : ibep=(-ibeps_t);
9682 : : }
9683 : : }
9684 : : else
9685 : : {
9686 : : #if defined(_DERIVATE)
9687 : 0 : ibep_Vtnode_GND=0.0;
9688 : 0 : ibep_Vbp_ei=0.0;
9689 : 0 : ibep_Vbi_ci=0.0;
9690 : 0 : ibep_Vbi_ei=0.0;
9691 : : #endif
9692 : 0 : ibep=0.0;
9693 : : }
9694 : : #if defined(_DERIVATE)
9695 : 0 : DIOY_Vsi_ci=0.0;
9696 : 0 : DIOY_Vbp_ci=0.0;
9697 : 0 : DIOY_Vbp_ei=(Vbpei_Vbp_ei/(mrep*VT));
9698 : 0 : DIOY_Vbi_ci=0.0;
9699 : 0 : DIOY_Vbi_ei=0.0;
9700 : 0 : DIOY_Vtnode_GND=(-Vbpei*(mrep*VT_Vtnode_GND)/(mrep*VT)/(mrep*VT));
9701 : : #endif
9702 : 0 : DIOY=(Vbpei/(mrep*VT));
9703 [ # # ]: 0 : if
9704 : : (ireps>0.0)
9705 : : {
9706 [ # # ]: 0 : if
9707 : : (DIOY>80.0)
9708 : : {
9709 : : #if defined(_DERIVATE)
9710 : 0 : le_Vsi_ci=0.0;
9711 : 0 : le_Vbp_ci=0.0;
9712 : 0 : le_Vbp_ei=DIOY_Vbp_ei;
9713 : 0 : le_Vbi_ci=DIOY_Vbi_ci;
9714 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
9715 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
9716 : : #endif
9717 : 0 : le=(1+(DIOY-80.0));
9718 : : #if defined(_DERIVATE)
9719 : 0 : DIOY_Vsi_ci=0.0;
9720 : 0 : DIOY_Vbp_ci=0.0;
9721 : 0 : DIOY_Vbp_ei=0.0;
9722 : 0 : DIOY_Vbi_ci=0.0;
9723 : 0 : DIOY_Vbi_ei=0.0;
9724 : 0 : DIOY_Vtnode_GND=0.0;
9725 : : #endif
9726 : 0 : DIOY=80.0;
9727 : : }
9728 : : else
9729 : : {
9730 : : #if defined(_DERIVATE)
9731 : 0 : le_Vsi_ci=0.0;
9732 : 0 : le_Vbp_ci=0.0;
9733 : 0 : le_Vbp_ei=0.0;
9734 : 0 : le_Vbi_ci=0.0;
9735 : 0 : le_Vbi_ei=0.0;
9736 : 0 : le_Vtnode_GND=0.0;
9737 : : #endif
9738 : 0 : le=1;
9739 : : }
9740 : : {
9741 [ # # ]: 0 : double m00_limexp(d00_limexp0,DIOY)
9742 : : #if defined(_DERIVATE)
9743 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
9744 : : #endif
9745 : : #if defined(_DERIVATE)
9746 : 0 : le_Vsi_ci=0.0;
9747 : 0 : le_Vbp_ci=0.0;
9748 : 0 : le_Vbp_ei=((le_Vbp_ei*d00_limexp0)+(le*DIOY_Vbp_ei*d10_limexp0));
9749 : 0 : le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
9750 : 0 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
9751 : 0 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
9752 : : #endif
9753 : 0 : le=(le*d00_limexp0);
9754 : : }
9755 : : #if defined(_DERIVATE)
9756 : 0 : irep_Vtnode_GND=((ireps_t_Vtnode_GND*(le-1.0))+(ireps_t*le_Vtnode_GND));
9757 : 0 : irep_Vbp_ei=(ireps_t*le_Vbp_ei);
9758 : 0 : irep_Vbi_ci=(ireps_t*le_Vbi_ci);
9759 : 0 : irep_Vbi_ei=(ireps_t*le_Vbi_ei);
9760 : : #endif
9761 : 0 : irep=(ireps_t*(le-1.0));
9762 [ # # ]: 0 : if
9763 : : (DIOY<=(-14.0))
9764 : : {
9765 : : #if defined(_DERIVATE)
9766 : 0 : irep_Vtnode_GND=(-ireps_t_Vtnode_GND);
9767 : 0 : irep_Vbp_ei=0.0;
9768 : 0 : irep_Vbi_ci=0.0;
9769 : 0 : irep_Vbi_ei=0.0;
9770 : : #endif
9771 : 0 : irep=(-ireps_t);
9772 : : }
9773 : : }
9774 : : else
9775 : : {
9776 : : #if defined(_DERIVATE)
9777 : 0 : irep_Vtnode_GND=0.0;
9778 : 0 : irep_Vbp_ei=0.0;
9779 : 0 : irep_Vbi_ci=0.0;
9780 : 0 : irep_Vbi_ei=0.0;
9781 : : #endif
9782 : 0 : irep=0.0;
9783 : : }
9784 [ # # ]: 0 : if
9785 : : (cjep0_t>0.0)
9786 : : {
9787 : : {
9788 : 0 : double m00_logE(d00_logE0,ajep_t)
9789 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zep))
9790 : : #if defined(_DERIVATE)
9791 : 0 : double m10_logE(d10_logE0,d00_logE0,ajep_t)
9792 : : #define d10_exp1 d00_exp1
9793 : : #endif
9794 : : #if defined(_DERIVATE)
9795 : 0 : DFV_f_Vtnode_GND=((vdep_t_Vtnode_GND*(1.0-d00_exp1))+(vdep_t*(-((-ajep_t_Vtnode_GND*d10_logE0)/zep)*d10_exp1)));
9796 : : #endif
9797 : 0 : DFV_f=(vdep_t*(1.0-d00_exp1));
9798 : : }
9799 : : #if defined(_DERIVATE)
9800 : 0 : DFv_e_Vsi_ci=0.0;
9801 : 0 : DFv_e_Vb_ci=0.0;
9802 : 0 : DFv_e_Vbp_ci=0.0;
9803 : 0 : DFv_e_Vbp_ei=((-Vbpei_Vbp_ei)/VT);
9804 : 0 : DFv_e_Vbi_ci=0.0;
9805 : 0 : DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-Vbpei)*VT_Vtnode_GND)/VT/VT);
9806 : 0 : DFv_e_Vbi_ei=0.0;
9807 : : #endif
9808 : 0 : DFv_e=((DFV_f-Vbpei)/VT);
9809 : : {
9810 : 0 : double m00_sqrt(d00_sqrt0,((DFv_e*DFv_e)+1.921812))
9811 : : #if defined(_DERIVATE)
9812 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((DFv_e*DFv_e)+1.921812))
9813 : : #endif
9814 : : #if defined(_DERIVATE)
9815 : 0 : DFs_q_Vsi_ci=0.0;
9816 : 0 : DFs_q_Vb_ci=0.0;
9817 : 0 : DFs_q_Vbp_ci=0.0;
9818 : 0 : DFs_q_Vbp_ei=((DFv_e_Vbp_ei*DFv_e)+(DFv_e*DFv_e_Vbp_ei))*d10_sqrt0;
9819 : 0 : DFs_q_Vbi_ci=((DFv_e_Vbi_ci*DFv_e)+(DFv_e*DFv_e_Vbi_ci))*d10_sqrt0;
9820 : 0 : DFs_q_Vtnode_GND=((DFv_e_Vtnode_GND*DFv_e)+(DFv_e*DFv_e_Vtnode_GND))*d10_sqrt0;
9821 : 0 : DFs_q_Vbi_ei=((DFv_e_Vbi_ei*DFv_e)+(DFv_e*DFv_e_Vbi_ei))*d10_sqrt0;
9822 : : #endif
9823 : 0 : DFs_q=d00_sqrt0;
9824 : : }
9825 : : #if defined(_DERIVATE)
9826 : 0 : DFs_q2_Vsi_ci=0.0;
9827 : 0 : DFs_q2_Vb_ci=0.0;
9828 : 0 : DFs_q2_Vbp_ci=0.0;
9829 : 0 : DFs_q2_Vbp_ei=(DFv_e_Vbp_ei+DFs_q_Vbp_ei)*0.5;
9830 : 0 : DFs_q2_Vbi_ci=(DFv_e_Vbi_ci+DFs_q_Vbi_ci)*0.5;
9831 : 0 : DFs_q2_Vtnode_GND=(DFv_e_Vtnode_GND+DFs_q_Vtnode_GND)*0.5;
9832 : 0 : DFs_q2_Vbi_ei=(DFv_e_Vbi_ei+DFs_q_Vbi_ei)*0.5;
9833 : : #endif
9834 : 0 : DFs_q2=((DFv_e+DFs_q)*0.5);
9835 : : #if defined(_DERIVATE)
9836 : 0 : DFv_j_Vsi_ci=0.0;
9837 : 0 : DFv_j_Vb_ci=0.0;
9838 : 0 : DFv_j_Vbp_ci=0.0;
9839 : 0 : DFv_j_Vbp_ei=(-(VT*DFs_q2_Vbp_ei));
9840 : 0 : DFv_j_Vbi_ci=(-(VT*DFs_q2_Vbi_ci));
9841 : 0 : DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*DFs_q2)+(VT*DFs_q2_Vtnode_GND)));
9842 : 0 : DFv_j_Vbi_ei=(-(VT*DFs_q2_Vbi_ei));
9843 : : #endif
9844 : 0 : DFv_j=(DFV_f-(VT*DFs_q2));
9845 : : #if defined(_DERIVATE)
9846 : 0 : DFdvj_dv_Vsi_ci=0.0;
9847 : 0 : DFdvj_dv_Vb_ci=0.0;
9848 : 0 : DFdvj_dv_Vbp_ci=0.0;
9849 : 0 : DFdvj_dv_Vbp_ei=((DFs_q2_Vbp_ei*DFs_q-DFs_q2*DFs_q_Vbp_ei)/DFs_q/DFs_q);
9850 : 0 : DFdvj_dv_Vbi_ci=((DFs_q2_Vbi_ci*DFs_q-DFs_q2*DFs_q_Vbi_ci)/DFs_q/DFs_q);
9851 : 0 : DFdvj_dv_Vtnode_GND=((DFs_q2_Vtnode_GND*DFs_q-DFs_q2*DFs_q_Vtnode_GND)/DFs_q/DFs_q);
9852 : 0 : DFdvj_dv_Vbi_ei=((DFs_q2_Vbi_ei*DFs_q-DFs_q2*DFs_q_Vbi_ei)/DFs_q/DFs_q);
9853 : : #endif
9854 : 0 : DFdvj_dv=(DFs_q2/DFs_q);
9855 : : {
9856 : 0 : double m00_logE(d00_logE0,(1.0-(DFv_j/vdep_t)))
9857 : : #if defined(_DERIVATE)
9858 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdep_t)))
9859 : : #endif
9860 : : #if defined(_DERIVATE)
9861 : 0 : DFb_Vsi_ci=0.0;
9862 : 0 : DFb_Vb_ci=0.0;
9863 : 0 : DFb_Vbp_ci=0.0;
9864 : 0 : DFb_Vbp_ei=(-(DFv_j_Vbp_ei/vdep_t))*d10_logE0;
9865 : 0 : DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdep_t))*d10_logE0;
9866 : 0 : DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdep_t-DFv_j*vdep_t_Vtnode_GND)/vdep_t/vdep_t))*d10_logE0;
9867 : 0 : DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdep_t))*d10_logE0;
9868 : : #endif
9869 : 0 : DFb=d00_logE0;
9870 : : }
9871 : : {
9872 : 0 : double m00_exp(d00_exp0,((-zep)*DFb))
9873 : : #if defined(_DERIVATE)
9874 : : #define d10_exp0 d00_exp0
9875 : : #endif
9876 : : #if defined(_DERIVATE)
9877 : 0 : DFC_j1_Vsi_ci=0.0;
9878 : 0 : DFC_j1_Vb_ci=0.0;
9879 : 0 : DFC_j1_Vbp_ci=0.0;
9880 : 0 : DFC_j1_Vbp_ei=(((cjep0_t*((-zep)*DFb_Vbp_ei)*d10_exp0)*DFdvj_dv)+((cjep0_t*d00_exp0)*DFdvj_dv_Vbp_ei));
9881 : 0 : DFC_j1_Vbi_ci=(((cjep0_t*((-zep)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjep0_t*d00_exp0)*DFdvj_dv_Vbi_ci));
9882 : 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));
9883 : 0 : DFC_j1_Vbi_ei=(((cjep0_t*((-zep)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjep0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
9884 : : #endif
9885 : 0 : DFC_j1=((cjep0_t*d00_exp0)*DFdvj_dv);
9886 : : }
9887 : : #if defined(_DERIVATE)
9888 : 0 : Cjep_Vbp_ei=(DFC_j1_Vbp_ei+((ajep_t*cjep0_t)*(-DFdvj_dv_Vbp_ei)));
9889 : 0 : Cjep_Vbi_ci=(DFC_j1_Vbi_ci+((ajep_t*cjep0_t)*(-DFdvj_dv_Vbi_ci)));
9890 : 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))));
9891 : 0 : Cjep_Vbi_ei=(DFC_j1_Vbi_ei+((ajep_t*cjep0_t)*(-DFdvj_dv_Vbi_ei)));
9892 : : #endif
9893 : 0 : Cjep=(DFC_j1+((ajep_t*cjep0_t)*(1.0-DFdvj_dv)));
9894 : : #if defined(_DYNAMIC)
9895 : : {
9896 : 0 : double m00_exp(d00_exp0,(DFb*(1.0-zep)))
9897 : : #if defined(_DERIVATE)
9898 : : #define d10_exp0 d00_exp0
9899 : : #endif
9900 : : #if defined(_DERIVATE)
9901 : 0 : DFQ_j_Vsi_ci=0.0;
9902 : 0 : DFQ_j_Vb_ci=0.0;
9903 : 0 : DFQ_j_Vbp_ci=0.0;
9904 : 0 : DFQ_j_Vbp_ei=(((cjep0_t*vdep_t)*(-DFb_Vbp_ei*(1.0-zep)*d10_exp0))/(1.0-zep));
9905 : 0 : DFQ_j_Vbi_ci=(((cjep0_t*vdep_t)*(-DFb_Vbi_ci*(1.0-zep)*d10_exp0))/(1.0-zep));
9906 : 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));
9907 : 0 : DFQ_j_Vbi_ei=(((cjep0_t*vdep_t)*(-DFb_Vbi_ei*(1.0-zep)*d10_exp0))/(1.0-zep));
9908 : : #endif
9909 : 0 : DFQ_j=(((cjep0_t*vdep_t)*(1.0-d00_exp0))/(1.0-zep));
9910 : : }
9911 : : #endif
9912 : : #if defined(_DYNAMIC)
9913 : : #if defined(_DERIVATE)
9914 : 0 : Qjep_Vbp_ei=(DFQ_j_Vbp_ei+((ajep_t*cjep0_t)*(Vbpei_Vbp_ei-DFv_j_Vbp_ei)));
9915 : 0 : Qjep_Vbi_ci=(DFQ_j_Vbi_ci+((ajep_t*cjep0_t)*(-DFv_j_Vbi_ci)));
9916 : 0 : Qjep_Vtnode_GND=(DFQ_j_Vtnode_GND+((((ajep_t_Vtnode_GND*cjep0_t)+(ajep_t*cjep0_t_Vtnode_GND))*(Vbpei-DFv_j))+((ajep_t*cjep0_t)*(-DFv_j_Vtnode_GND))));
9917 : 0 : Qjep_Vbi_ei=(DFQ_j_Vbi_ei+((ajep_t*cjep0_t)*(-DFv_j_Vbi_ei)));
9918 : : #endif
9919 : 0 : Qjep=(DFQ_j+((ajep_t*cjep0_t)*(Vbpei-DFv_j)));
9920 : : #endif
9921 : : }
9922 : : else
9923 : : {
9924 : : #if defined(_DERIVATE)
9925 : 0 : Cjep_Vbp_ei=0.0;
9926 : 0 : Cjep_Vbi_ci=0.0;
9927 : 0 : Cjep_Vtnode_GND=0.0;
9928 : 0 : Cjep_Vbi_ei=0.0;
9929 : : #endif
9930 : 0 : Cjep=0.0;
9931 : : #if defined(_DYNAMIC)
9932 : : #if defined(_DERIVATE)
9933 : 0 : Qjep_Vbp_ei=0.0;
9934 : 0 : Qjep_Vbi_ci=0.0;
9935 : 0 : Qjep_Vtnode_GND=0.0;
9936 : 0 : Qjep_Vbi_ei=0.0;
9937 : : #endif
9938 : 0 : Qjep=0.0;
9939 : : #endif
9940 : : }
9941 [ # # ][ # # ]: 0 : if
9942 : : ((Vbpei<0.0)||(Vbiei<0.0))
9943 : : {
9944 : : double pocce;
9945 : : double czz;
9946 : : #if defined(_DERIVATE)
9947 : : double pocce_Vbp_ei;
9948 : : #endif
9949 : : #if defined(_DERIVATE)
9950 : : double pocce_Vbi_ci;
9951 : : #endif
9952 : : #if defined(_DERIVATE)
9953 : : double pocce_Vtnode_GND;
9954 : : #endif
9955 : : #if defined(_DERIVATE)
9956 : : double pocce_Vbi_ei;
9957 : : #endif
9958 : : #if defined(_DERIVATE)
9959 : : double czz_Vbp_ei;
9960 : : #endif
9961 : : #if defined(_DERIVATE)
9962 : : double czz_Vtnode_GND;
9963 : : #endif
9964 : : #if defined(_DERIVATE)
9965 : : double czz_Vbi_ci;
9966 : : #endif
9967 : : #if defined(_DERIVATE)
9968 : : double czz_Vbi_ei;
9969 : : #endif
9970 [ # # ][ # # ]: 0 : if
[ # # ]
9971 : : (((tunode==1)&&(cjep0_t>0.0))&&(vdep_t>0.0))
9972 : : {
9973 : : {
9974 : 0 : double m00_logE(d00_logE0,(Cjep/cjep0_t))
9975 : 0 : double m00_exp(d00_exp1,((1-(1/zep))*d00_logE0))
9976 : : #if defined(_DERIVATE)
9977 : 0 : double m10_logE(d10_logE0,d00_logE0,(Cjep/cjep0_t))
9978 : : #define d10_exp1 d00_exp1
9979 : : #endif
9980 : : #if defined(_DERIVATE)
9981 : 0 : pocce_Vbp_ei=((1-(1/zep))*(Cjep_Vbp_ei/cjep0_t)*d10_logE0)*d10_exp1;
9982 : 0 : pocce_Vbi_ci=((1-(1/zep))*(Cjep_Vbi_ci/cjep0_t)*d10_logE0)*d10_exp1;
9983 : 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;
9984 : 0 : pocce_Vbi_ei=((1-(1/zep))*(Cjep_Vbi_ei/cjep0_t)*d10_logE0)*d10_exp1;
9985 : : #endif
9986 : 0 : pocce=d00_exp1;
9987 : : }
9988 : : #if defined(_DERIVATE)
9989 : 0 : czz_Vbp_ei=(((-(Vbpei_Vbp_ei/vdep_t))*ibets_t*pocce)+(((-(Vbpei/vdep_t))*ibets_t)*pocce_Vbp_ei));
9990 : 0 : czz_Vtnode_GND=(((((-(-Vbpei*vdep_t_Vtnode_GND/vdep_t/vdep_t))*ibets_t)+((-(Vbpei/vdep_t))*ibets_t_Vtnode_GND))*pocce)+(((-(Vbpei/vdep_t))*ibets_t)*pocce_Vtnode_GND));
9991 : 0 : czz_Vbi_ci=(((-(Vbpei/vdep_t))*ibets_t)*pocce_Vbi_ci);
9992 : 0 : czz_Vbi_ei=(((-(Vbpei/vdep_t))*ibets_t)*pocce_Vbi_ei);
9993 : : #endif
9994 : 0 : czz=(((-(Vbpei/vdep_t))*ibets_t)*pocce);
9995 : : {
9996 : 0 : double m00_exp(d00_exp0,((-abet_t)/pocce))
9997 : : #if defined(_DERIVATE)
9998 : : #define d10_exp0 d00_exp0
9999 : : #endif
10000 : : #if defined(_DERIVATE)
10001 : 0 : ibet_Vbp_ei=((czz_Vbp_ei*d00_exp0)+(czz*(-(-abet_t)*pocce_Vbp_ei/pocce/pocce)*d10_exp0));
10002 : 0 : ibet_Vtnode_GND=((czz_Vtnode_GND*d00_exp0)+(czz*(((-abet_t_Vtnode_GND)*pocce-(-abet_t)*pocce_Vtnode_GND)/pocce/pocce)*d10_exp0));
10003 : 0 : ibet_Vbi_ci=((czz_Vbi_ci*d00_exp0)+(czz*(-(-abet_t)*pocce_Vbi_ci/pocce/pocce)*d10_exp0));
10004 : 0 : ibet_Vbi_ei=((czz_Vbi_ei*d00_exp0)+(czz*(-(-abet_t)*pocce_Vbi_ei/pocce/pocce)*d10_exp0));
10005 : : #endif
10006 : 0 : ibet=(czz*d00_exp0);
10007 : 0 : }
10008 : : }
10009 : : else
10010 : : {
10011 [ # # ][ # # ]: 0 : if
[ # # ]
10012 : : (((tunode==0)&&(cjei0_t>0.0))&&(vdei_t>0.0))
10013 : : {
10014 : : {
10015 : 0 : double m00_logE(d00_logE0,(Cjei/cjei0_t))
10016 : 0 : double m00_exp(d00_exp1,((1-(1/zei))*d00_logE0))
10017 : : #if defined(_DERIVATE)
10018 : 0 : double m10_logE(d10_logE0,d00_logE0,(Cjei/cjei0_t))
10019 : : #define d10_exp1 d00_exp1
10020 : : #endif
10021 : : #if defined(_DERIVATE)
10022 : 0 : pocce_Vbp_ei=0.0;
10023 : 0 : pocce_Vbi_ci=0.0;
10024 : 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;
10025 : 0 : pocce_Vbi_ei=((1-(1/zei))*(Cjei_Vbi_ei/cjei0_t)*d10_logE0)*d10_exp1;
10026 : : #endif
10027 : 0 : pocce=d00_exp1;
10028 : : }
10029 : : #if defined(_DERIVATE)
10030 : 0 : czz_Vbp_ei=(((-(Vbiei/vdei_t))*ibets_t)*pocce_Vbp_ei);
10031 : 0 : czz_Vtnode_GND=(((((-(-Vbiei*vdei_t_Vtnode_GND/vdei_t/vdei_t))*ibets_t)+((-(Vbiei/vdei_t))*ibets_t_Vtnode_GND))*pocce)+(((-(Vbiei/vdei_t))*ibets_t)*pocce_Vtnode_GND));
10032 : 0 : czz_Vbi_ci=(((-(Vbiei/vdei_t))*ibets_t)*pocce_Vbi_ci);
10033 : 0 : czz_Vbi_ei=(((-(Vbiei_Vbi_ei/vdei_t))*ibets_t*pocce)+(((-(Vbiei/vdei_t))*ibets_t)*pocce_Vbi_ei));
10034 : : #endif
10035 : 0 : czz=(((-(Vbiei/vdei_t))*ibets_t)*pocce);
10036 : : {
10037 : 0 : double m00_exp(d00_exp0,((-abet_t)/pocce))
10038 : : #if defined(_DERIVATE)
10039 : : #define d10_exp0 d00_exp0
10040 : : #endif
10041 : : #if defined(_DERIVATE)
10042 : 0 : ibet_Vbp_ei=((czz_Vbp_ei*d00_exp0)+(czz*(-(-abet_t)*pocce_Vbp_ei/pocce/pocce)*d10_exp0));
10043 : 0 : ibet_Vtnode_GND=((czz_Vtnode_GND*d00_exp0)+(czz*(((-abet_t_Vtnode_GND)*pocce-(-abet_t)*pocce_Vtnode_GND)/pocce/pocce)*d10_exp0));
10044 : 0 : ibet_Vbi_ci=((czz_Vbi_ci*d00_exp0)+(czz*(-(-abet_t)*pocce_Vbi_ci/pocce/pocce)*d10_exp0));
10045 : 0 : ibet_Vbi_ei=((czz_Vbi_ei*d00_exp0)+(czz*(-(-abet_t)*pocce_Vbi_ei/pocce/pocce)*d10_exp0));
10046 : : #endif
10047 : 0 : ibet=(czz*d00_exp0);
10048 : 0 : }
10049 : : }
10050 : : else
10051 : : {
10052 : : #if defined(_DERIVATE)
10053 : 0 : ibet_Vbp_ei=0.0;
10054 : 0 : ibet_Vtnode_GND=0.0;
10055 : 0 : ibet_Vbi_ci=0.0;
10056 : 0 : ibet_Vbi_ei=0.0;
10057 : : #endif
10058 : 0 : ibet=0.0;
10059 : : }
10060 : 0 : }
10061 : : }
10062 : : else
10063 : : {
10064 : : #if defined(_DERIVATE)
10065 : 0 : ibet_Vbp_ei=0.0;
10066 : 0 : ibet_Vtnode_GND=0.0;
10067 : 0 : ibet_Vbi_ci=0.0;
10068 : 0 : ibet_Vbi_ei=0.0;
10069 : : #endif
10070 : 0 : ibet=0.0;
10071 : : }
10072 : : #ifdef _DYNAMIC
10073 [ # # ]: 0 : if
10074 : : (vptcx_t<1.0e2)
10075 : : {
10076 : : #ifdef _DYNAMIC
10077 [ # # ]: 0 : if
10078 : : (cjcx02_t>0.0)
10079 : : {
10080 : : #if defined(_DYNAMIC)
10081 : 0 : Dz_r=(zcx/4.0);
10082 : : #endif
10083 : : #if defined(_DYNAMIC)
10084 : : #if defined(_DERIVATE)
10085 : 0 : Dv_p_Vtnode_GND=(vptcx_t_Vtnode_GND-vdcx_t_Vtnode_GND);
10086 : : #endif
10087 : 0 : Dv_p=(vptcx_t-vdcx_t);
10088 : : #endif
10089 : : #if defined(_DYNAMIC)
10090 : : {
10091 : 0 : double m00_logE(d00_logE0,2.4)
10092 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zcx))
10093 : : #if defined(_DERIVATE)
10094 : 0 : DV_f_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
10095 : : #endif
10096 : 0 : DV_f=(vdcx_t*(1.0-d00_exp1));
10097 : : }
10098 : : #endif
10099 : : #if defined(_DYNAMIC)
10100 : : #if defined(_DERIVATE)
10101 : 0 : DC_max_Vtnode_GND=(2.4*cjcx02_t_Vtnode_GND);
10102 : : #endif
10103 : 0 : DC_max=(2.4*cjcx02_t);
10104 : : #endif
10105 : : #if defined(_DYNAMIC)
10106 : : {
10107 : 0 : double m00_logE(d00_logE0,(vptcx_t/vdcx_t))
10108 : 0 : double m00_exp(d00_exp1,((Dz_r-zcx)*d00_logE0))
10109 : : #if defined(_DERIVATE)
10110 : 0 : double m10_logE(d10_logE0,d00_logE0,(vptcx_t/vdcx_t))
10111 : : #define d10_exp1 d00_exp1
10112 : : #endif
10113 : : #if defined(_DERIVATE)
10114 : 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));
10115 : : #endif
10116 : 0 : DC_c=(cjcx02_t*d00_exp1);
10117 : : }
10118 : : #endif
10119 : : #if defined(_DYNAMIC)
10120 : : #if defined(_DERIVATE)
10121 : 0 : Dv_e_Vsi_ci=0.0;
10122 : 0 : Dv_e_Vb_ci=0.0;
10123 : 0 : Dv_e_Vbp_ci=((-Vbpci_Vbp_ci)/VT);
10124 : 0 : Dv_e_Vtnode_GND=((DV_f_Vtnode_GND*VT-(DV_f-Vbpci)*VT_Vtnode_GND)/VT/VT);
10125 : 0 : Dv_e_Vbi_ci=0.0;
10126 : : #endif
10127 : 0 : Dv_e=((DV_f-Vbpci)/VT);
10128 : : #endif
10129 : : #ifdef _DYNAMIC
10130 [ # # ]: 0 : if
10131 : : (Dv_e<80.0)
10132 : : {
10133 : : #if defined(_DYNAMIC)
10134 : : {
10135 : 0 : double m00_exp(d00_exp0,Dv_e)
10136 : : #if defined(_DERIVATE)
10137 : : #define d10_exp0 d00_exp0
10138 : : #endif
10139 : : #if defined(_DERIVATE)
10140 : 0 : De_Vsi_ci=0.0;
10141 : 0 : De_Vb_ci=0.0;
10142 : 0 : De_Vbp_ci=Dv_e_Vbp_ci*d10_exp0;
10143 : 0 : De_Vtnode_GND=Dv_e_Vtnode_GND*d10_exp0;
10144 : 0 : De_Vbi_ci=Dv_e_Vbi_ci*d10_exp0;
10145 : : #endif
10146 : 0 : De=d00_exp0;
10147 : : }
10148 : : #endif
10149 : : #if defined(_DYNAMIC)
10150 : : #if defined(_DERIVATE)
10151 : 0 : De_1_Vsi_ci=0.0;
10152 : 0 : De_1_Vb_ci=0.0;
10153 : 0 : De_1_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
10154 : 0 : De_1_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
10155 : 0 : De_1_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
10156 : : #endif
10157 : 0 : De_1=(De/(1.0+De));
10158 : : #endif
10159 : : #if defined(_DYNAMIC)
10160 : : {
10161 : 0 : double m00_logE(d00_logE0,(1.0+De))
10162 : : #if defined(_DERIVATE)
10163 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
10164 : : #endif
10165 : : #if defined(_DERIVATE)
10166 : 0 : Dv_j1_Vsi_ci=0.0;
10167 : 0 : Dv_j1_Vb_ci=0.0;
10168 : 0 : Dv_j1_Vbp_ci=(-(VT*De_Vbp_ci*d10_logE0));
10169 : 0 : Dv_j1_Vtnode_GND=(DV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*De_Vtnode_GND*d10_logE0)));
10170 : 0 : Dv_j1_Vbi_ci=(-(VT*De_Vbi_ci*d10_logE0));
10171 : : #endif
10172 : 0 : Dv_j1=(DV_f-(VT*d00_logE0));
10173 : : }
10174 : : #endif
10175 : : }
10176 : : else
10177 : : {
10178 : : #if defined(_DYNAMIC)
10179 : : #if defined(_DERIVATE)
10180 : 0 : De_1_Vsi_ci=0.0;
10181 : 0 : De_1_Vb_ci=0.0;
10182 : 0 : De_1_Vbp_ci=0.0;
10183 : 0 : De_1_Vtnode_GND=0.0;
10184 : 0 : De_1_Vbi_ci=0.0;
10185 : : #endif
10186 : 0 : De_1=1.0;
10187 : : #endif
10188 : : #if defined(_DYNAMIC)
10189 : : #if defined(_DERIVATE)
10190 : 0 : Dv_j1_Vsi_ci=0.0;
10191 : 0 : Dv_j1_Vb_ci=0.0;
10192 : 0 : Dv_j1_Vbp_ci=Vbpci_Vbp_ci;
10193 : 0 : Dv_j1_Vtnode_GND=0.0;
10194 : 0 : Dv_j1_Vbi_ci=0.0;
10195 : : #endif
10196 : 0 : Dv_j1=Vbpci;
10197 : : #endif
10198 : : }
10199 : : #endif /* if (...) */
10200 : : #if defined(_DYNAMIC)
10201 : : #if defined(_DERIVATE)
10202 : 0 : Da_Vtnode_GND=((0.1*Dv_p_Vtnode_GND)+(4.0*VT_Vtnode_GND));
10203 : : #endif
10204 : 0 : Da=((0.1*Dv_p)+(4.0*VT));
10205 : : #endif
10206 : : #if defined(_DYNAMIC)
10207 : : #if defined(_DERIVATE)
10208 : 0 : Dv_r_Vsi_ci=0.0;
10209 : 0 : Dv_r_Vb_ci=0.0;
10210 : 0 : Dv_r_Vbp_ci=(Dv_j1_Vbp_ci/Da);
10211 : 0 : Dv_r_Vtnode_GND=(((Dv_p_Vtnode_GND+Dv_j1_Vtnode_GND)*Da-(Dv_p+Dv_j1)*Da_Vtnode_GND)/Da/Da);
10212 : 0 : Dv_r_Vbi_ci=(Dv_j1_Vbi_ci/Da);
10213 : : #endif
10214 : 0 : Dv_r=((Dv_p+Dv_j1)/Da);
10215 : : #endif
10216 : : #ifdef _DYNAMIC
10217 [ # # ]: 0 : if
10218 : : (Dv_r<80.0)
10219 : : {
10220 : : #if defined(_DYNAMIC)
10221 : : {
10222 : 0 : double m00_exp(d00_exp0,Dv_r)
10223 : : #if defined(_DERIVATE)
10224 : : #define d10_exp0 d00_exp0
10225 : : #endif
10226 : : #if defined(_DERIVATE)
10227 : 0 : De_Vsi_ci=0.0;
10228 : 0 : De_Vb_ci=0.0;
10229 : 0 : De_Vbp_ci=Dv_r_Vbp_ci*d10_exp0;
10230 : 0 : De_Vtnode_GND=Dv_r_Vtnode_GND*d10_exp0;
10231 : 0 : De_Vbi_ci=Dv_r_Vbi_ci*d10_exp0;
10232 : : #endif
10233 : 0 : De=d00_exp0;
10234 : : }
10235 : : #endif
10236 : : #if defined(_DYNAMIC)
10237 : : #if defined(_DERIVATE)
10238 : 0 : De_2_Vsi_ci=0.0;
10239 : 0 : De_2_Vb_ci=0.0;
10240 : 0 : De_2_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
10241 : 0 : De_2_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
10242 : 0 : De_2_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
10243 : : #endif
10244 : 0 : De_2=(De/(1.0+De));
10245 : : #endif
10246 : : #if defined(_DYNAMIC)
10247 : : {
10248 : 0 : double m00_logE(d00_logE0,(1.0+De))
10249 : : #if defined(_DERIVATE)
10250 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
10251 : : #endif
10252 : : #if defined(_DERIVATE)
10253 : 0 : Dv_j2_Vsi_ci=0.0;
10254 : 0 : Dv_j2_Vb_ci=0.0;
10255 : 0 : Dv_j2_Vbp_ci=(Da*De_Vbp_ci*d10_logE0);
10256 : 0 : Dv_j2_Vtnode_GND=((-Dv_p_Vtnode_GND)+((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
10257 : 0 : Dv_j2_Vbi_ci=(Da*De_Vbi_ci*d10_logE0);
10258 : : #endif
10259 : 0 : Dv_j2=((-Dv_p)+(Da*d00_logE0));
10260 : : }
10261 : : #endif
10262 : : }
10263 : : else
10264 : : {
10265 : : #if defined(_DYNAMIC)
10266 : : #if defined(_DERIVATE)
10267 : 0 : De_2_Vsi_ci=0.0;
10268 : 0 : De_2_Vb_ci=0.0;
10269 : 0 : De_2_Vbp_ci=0.0;
10270 : 0 : De_2_Vtnode_GND=0.0;
10271 : 0 : De_2_Vbi_ci=0.0;
10272 : : #endif
10273 : 0 : De_2=1.0;
10274 : : #endif
10275 : : #if defined(_DYNAMIC)
10276 : : #if defined(_DERIVATE)
10277 : 0 : Dv_j2_Vsi_ci=0.0;
10278 : 0 : Dv_j2_Vb_ci=0.0;
10279 : 0 : Dv_j2_Vbp_ci=Dv_j1_Vbp_ci;
10280 : 0 : Dv_j2_Vtnode_GND=Dv_j1_Vtnode_GND;
10281 : 0 : Dv_j2_Vbi_ci=Dv_j1_Vbi_ci;
10282 : : #endif
10283 : 0 : Dv_j2=Dv_j1;
10284 : : #endif
10285 : : }
10286 : : #endif /* if (...) */
10287 : : #if defined(_DYNAMIC)
10288 : : #if defined(_DERIVATE)
10289 : 0 : Dv_j4_Vsi_ci=0.0;
10290 : 0 : Dv_j4_Vb_ci=0.0;
10291 : 0 : Dv_j4_Vbp_ci=(Vbpci_Vbp_ci-Dv_j1_Vbp_ci);
10292 : 0 : Dv_j4_Vbi_ci=(-Dv_j1_Vbi_ci);
10293 : 0 : Dv_j4_Vtnode_GND=(-Dv_j1_Vtnode_GND);
10294 : : #endif
10295 : 0 : Dv_j4=(Vbpci-Dv_j1);
10296 : : #endif
10297 : : #if defined(_DYNAMIC)
10298 : : {
10299 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j1/vdcx_t)))
10300 : : #if defined(_DERIVATE)
10301 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j1/vdcx_t)))
10302 : : #endif
10303 : : #if defined(_DERIVATE)
10304 : 0 : DCln1_Vsi_ci=0.0;
10305 : 0 : DCln1_Vb_ci=0.0;
10306 : 0 : DCln1_Vbp_ci=(-(Dv_j1_Vbp_ci/vdcx_t))*d10_logE0;
10307 : 0 : DCln1_Vtnode_GND=(-((Dv_j1_Vtnode_GND*vdcx_t-Dv_j1*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
10308 : 0 : DCln1_Vbi_ci=(-(Dv_j1_Vbi_ci/vdcx_t))*d10_logE0;
10309 : : #endif
10310 : 0 : DCln1=d00_logE0;
10311 : : }
10312 : : #endif
10313 : : #if defined(_DYNAMIC)
10314 : : {
10315 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j2/vdcx_t)))
10316 : : #if defined(_DERIVATE)
10317 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j2/vdcx_t)))
10318 : : #endif
10319 : : #if defined(_DERIVATE)
10320 : 0 : DCln2_Vsi_ci=0.0;
10321 : 0 : DCln2_Vb_ci=0.0;
10322 : 0 : DCln2_Vbp_ci=(-(Dv_j2_Vbp_ci/vdcx_t))*d10_logE0;
10323 : 0 : DCln2_Vtnode_GND=(-((Dv_j2_Vtnode_GND*vdcx_t-Dv_j2*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
10324 : 0 : DCln2_Vbi_ci=(-(Dv_j2_Vbi_ci/vdcx_t))*d10_logE0;
10325 : : #endif
10326 : 0 : DCln2=d00_logE0;
10327 : : }
10328 : : #endif
10329 : : #if defined(_DYNAMIC)
10330 : 0 : Dz1=(1.0-zcx);
10331 : : #endif
10332 : : #if defined(_DYNAMIC)
10333 : 0 : Dzr1=(1.0-Dz_r);
10334 : : #endif
10335 : : #if defined(_DYNAMIC)
10336 : : {
10337 : 0 : double m00_exp(d00_exp0,(DCln2*(-zcx)))
10338 : : #if defined(_DERIVATE)
10339 : : #define d10_exp0 d00_exp0
10340 : : #endif
10341 : : #if defined(_DERIVATE)
10342 : 0 : DC_j1_Vsi_ci=0.0;
10343 : 0 : DC_j1_Vb_ci=0.0;
10344 : 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));
10345 : 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));
10346 : 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));
10347 : : #endif
10348 : 0 : DC_j1=(((cjcx02_t*d00_exp0)*De_1)*De_2);
10349 : : }
10350 : : #endif
10351 : : #if defined(_DYNAMIC)
10352 : : {
10353 : 0 : double m00_exp(d00_exp0,(DCln1*(-Dz_r)))
10354 : : #if defined(_DERIVATE)
10355 : : #define d10_exp0 d00_exp0
10356 : : #endif
10357 : : #if defined(_DERIVATE)
10358 : 0 : DC_j2_Vsi_ci=0.0;
10359 : 0 : DC_j2_Vb_ci=0.0;
10360 : 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)));
10361 : 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)));
10362 : 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)));
10363 : : #endif
10364 : 0 : DC_j2=((DC_c*d00_exp0)*(1.0-De_2));
10365 : : }
10366 : : #endif
10367 : : #if defined(_DYNAMIC)
10368 : : #if defined(_DERIVATE)
10369 : 0 : DC_j3_Vsi_ci=0.0;
10370 : 0 : DC_j3_Vb_ci=0.0;
10371 : 0 : DC_j3_Vbp_ci=(DC_max*(-De_1_Vbp_ci));
10372 : 0 : DC_j3_Vtnode_GND=((DC_max_Vtnode_GND*(1.0-De_1))+(DC_max*(-De_1_Vtnode_GND)));
10373 : 0 : DC_j3_Vbi_ci=(DC_max*(-De_1_Vbi_ci));
10374 : : #endif
10375 : 0 : DC_j3=(DC_max*(1.0-De_1));
10376 : : #endif
10377 : : #if defined(_DYNAMIC)
10378 : 0 : c_dummy=((DC_j1+DC_j2)+DC_j3);
10379 : : #endif
10380 : : #if defined(_DYNAMIC)
10381 : : {
10382 : 0 : double m00_exp(d00_exp0,(DCln2*Dz1))
10383 : : #if defined(_DERIVATE)
10384 : : #define d10_exp0 d00_exp0
10385 : : #endif
10386 : : #if defined(_DERIVATE)
10387 : 0 : DQ_j1_Vsi_ci=0.0;
10388 : 0 : DQ_j1_Vb_ci=0.0;
10389 : 0 : DQ_j1_Vbp_ci=((cjcx02_t*(-DCln2_Vbp_ci*Dz1*d10_exp0))/Dz1);
10390 : 0 : DQ_j1_Vtnode_GND=(((cjcx02_t_Vtnode_GND*(1.0-d00_exp0))+(cjcx02_t*(-DCln2_Vtnode_GND*Dz1*d10_exp0)))/Dz1);
10391 : 0 : DQ_j1_Vbi_ci=((cjcx02_t*(-DCln2_Vbi_ci*Dz1*d10_exp0))/Dz1);
10392 : : #endif
10393 : 0 : DQ_j1=((cjcx02_t*(1.0-d00_exp0))/Dz1);
10394 : : }
10395 : : #endif
10396 : : #if defined(_DYNAMIC)
10397 : : {
10398 : 0 : double m00_exp(d00_exp0,(DCln1*Dzr1))
10399 : : #if defined(_DERIVATE)
10400 : : #define d10_exp0 d00_exp0
10401 : : #endif
10402 : : #if defined(_DERIVATE)
10403 : 0 : DQ_j2_Vsi_ci=0.0;
10404 : 0 : DQ_j2_Vb_ci=0.0;
10405 : 0 : DQ_j2_Vbp_ci=((DC_c*(-DCln1_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
10406 : 0 : DQ_j2_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln1_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
10407 : 0 : DQ_j2_Vbi_ci=((DC_c*(-DCln1_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
10408 : : #endif
10409 : 0 : DQ_j2=((DC_c*(1.0-d00_exp0))/Dzr1);
10410 : : }
10411 : : #endif
10412 : : #if defined(_DYNAMIC)
10413 : : {
10414 : 0 : double m00_exp(d00_exp0,(DCln2*Dzr1))
10415 : : #if defined(_DERIVATE)
10416 : : #define d10_exp0 d00_exp0
10417 : : #endif
10418 : : #if defined(_DERIVATE)
10419 : 0 : DQ_j3_Vsi_ci=0.0;
10420 : 0 : DQ_j3_Vb_ci=0.0;
10421 : 0 : DQ_j3_Vbp_ci=((DC_c*(-DCln2_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
10422 : 0 : DQ_j3_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln2_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
10423 : 0 : DQ_j3_Vbi_ci=((DC_c*(-DCln2_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
10424 : : #endif
10425 : 0 : DQ_j3=((DC_c*(1.0-d00_exp0))/Dzr1);
10426 : : }
10427 : : #endif
10428 : : #if defined(_DYNAMIC)
10429 : : #if defined(_DERIVATE)
10430 : 0 : qjcx0_t_ii_Vbp_ei=0.0;
10431 : 0 : qjcx0_t_ii_Vbi_ei=0.0;
10432 : 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));
10433 : 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)));
10434 : 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));
10435 : : #endif
10436 : 0 : qjcx0_t_ii=((((DQ_j1+DQ_j2)-DQ_j3)*vdcx_t)+(DC_max*Dv_j4));
10437 : : #endif
10438 : : }
10439 : : else
10440 : : {
10441 : : #if defined(_DYNAMIC)
10442 : 0 : c_dummy=0.0;
10443 : : #endif
10444 : : #if defined(_DYNAMIC)
10445 : : #if defined(_DERIVATE)
10446 : 0 : qjcx0_t_ii_Vbp_ei=0.0;
10447 : 0 : qjcx0_t_ii_Vbi_ei=0.0;
10448 : 0 : qjcx0_t_ii_Vbp_ci=0.0;
10449 : 0 : qjcx0_t_ii_Vtnode_GND=0.0;
10450 : 0 : qjcx0_t_ii_Vbi_ci=0.0;
10451 : : #endif
10452 : 0 : qjcx0_t_ii=0.0;
10453 : : #endif
10454 : : }
10455 : : #endif /* if (...) */
10456 : : }
10457 : : else
10458 : : {
10459 : : #ifdef _DYNAMIC
10460 [ # # ]: 0 : if
10461 : : (cjcx02_t>0.0)
10462 : : {
10463 : : #if defined(_DYNAMIC)
10464 : : {
10465 : 0 : double m00_logE(d00_logE0,2.4)
10466 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zcx))
10467 : : #if defined(_DERIVATE)
10468 : 0 : DFV_f_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
10469 : : #endif
10470 : 0 : DFV_f=(vdcx_t*(1.0-d00_exp1));
10471 : : }
10472 : : #endif
10473 : : #if defined(_DYNAMIC)
10474 : : #if defined(_DERIVATE)
10475 : 0 : DFv_e_Vsi_ci=0.0;
10476 : 0 : DFv_e_Vb_ci=0.0;
10477 : 0 : DFv_e_Vbp_ci=((-Vbpci_Vbp_ci)/VT);
10478 : 0 : DFv_e_Vbp_ei=0.0;
10479 : 0 : DFv_e_Vbi_ci=0.0;
10480 : 0 : DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-Vbpci)*VT_Vtnode_GND)/VT/VT);
10481 : 0 : DFv_e_Vbi_ei=0.0;
10482 : : #endif
10483 : 0 : DFv_e=((DFV_f-Vbpci)/VT);
10484 : : #endif
10485 : : #if defined(_DYNAMIC)
10486 : : {
10487 : 0 : double m00_sqrt(d00_sqrt0,((DFv_e*DFv_e)+1.921812))
10488 : : #if defined(_DERIVATE)
10489 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((DFv_e*DFv_e)+1.921812))
10490 : : #endif
10491 : : #if defined(_DERIVATE)
10492 : 0 : DFs_q_Vsi_ci=0.0;
10493 : 0 : DFs_q_Vb_ci=0.0;
10494 : 0 : DFs_q_Vbp_ci=((DFv_e_Vbp_ci*DFv_e)+(DFv_e*DFv_e_Vbp_ci))*d10_sqrt0;
10495 : 0 : DFs_q_Vbp_ei=((DFv_e_Vbp_ei*DFv_e)+(DFv_e*DFv_e_Vbp_ei))*d10_sqrt0;
10496 : 0 : DFs_q_Vbi_ci=((DFv_e_Vbi_ci*DFv_e)+(DFv_e*DFv_e_Vbi_ci))*d10_sqrt0;
10497 : 0 : DFs_q_Vtnode_GND=((DFv_e_Vtnode_GND*DFv_e)+(DFv_e*DFv_e_Vtnode_GND))*d10_sqrt0;
10498 : 0 : DFs_q_Vbi_ei=((DFv_e_Vbi_ei*DFv_e)+(DFv_e*DFv_e_Vbi_ei))*d10_sqrt0;
10499 : : #endif
10500 : 0 : DFs_q=d00_sqrt0;
10501 : : }
10502 : : #endif
10503 : : #if defined(_DYNAMIC)
10504 : : #if defined(_DERIVATE)
10505 : 0 : DFs_q2_Vsi_ci=0.0;
10506 : 0 : DFs_q2_Vb_ci=0.0;
10507 : 0 : DFs_q2_Vbp_ci=(DFv_e_Vbp_ci+DFs_q_Vbp_ci)*0.5;
10508 : 0 : DFs_q2_Vbp_ei=(DFv_e_Vbp_ei+DFs_q_Vbp_ei)*0.5;
10509 : 0 : DFs_q2_Vbi_ci=(DFv_e_Vbi_ci+DFs_q_Vbi_ci)*0.5;
10510 : 0 : DFs_q2_Vtnode_GND=(DFv_e_Vtnode_GND+DFs_q_Vtnode_GND)*0.5;
10511 : 0 : DFs_q2_Vbi_ei=(DFv_e_Vbi_ei+DFs_q_Vbi_ei)*0.5;
10512 : : #endif
10513 : 0 : DFs_q2=((DFv_e+DFs_q)*0.5);
10514 : : #endif
10515 : : #if defined(_DYNAMIC)
10516 : : #if defined(_DERIVATE)
10517 : 0 : DFv_j_Vsi_ci=0.0;
10518 : 0 : DFv_j_Vb_ci=0.0;
10519 : 0 : DFv_j_Vbp_ci=(-(VT*DFs_q2_Vbp_ci));
10520 : 0 : DFv_j_Vbp_ei=(-(VT*DFs_q2_Vbp_ei));
10521 : 0 : DFv_j_Vbi_ci=(-(VT*DFs_q2_Vbi_ci));
10522 : 0 : DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*DFs_q2)+(VT*DFs_q2_Vtnode_GND)));
10523 : 0 : DFv_j_Vbi_ei=(-(VT*DFs_q2_Vbi_ei));
10524 : : #endif
10525 : 0 : DFv_j=(DFV_f-(VT*DFs_q2));
10526 : : #endif
10527 : : #if defined(_DYNAMIC)
10528 : : #if defined(_DERIVATE)
10529 : 0 : DFdvj_dv_Vsi_ci=0.0;
10530 : 0 : DFdvj_dv_Vb_ci=0.0;
10531 : 0 : DFdvj_dv_Vbp_ci=((DFs_q2_Vbp_ci*DFs_q-DFs_q2*DFs_q_Vbp_ci)/DFs_q/DFs_q);
10532 : 0 : DFdvj_dv_Vbp_ei=((DFs_q2_Vbp_ei*DFs_q-DFs_q2*DFs_q_Vbp_ei)/DFs_q/DFs_q);
10533 : 0 : DFdvj_dv_Vbi_ci=((DFs_q2_Vbi_ci*DFs_q-DFs_q2*DFs_q_Vbi_ci)/DFs_q/DFs_q);
10534 : 0 : DFdvj_dv_Vtnode_GND=((DFs_q2_Vtnode_GND*DFs_q-DFs_q2*DFs_q_Vtnode_GND)/DFs_q/DFs_q);
10535 : 0 : DFdvj_dv_Vbi_ei=((DFs_q2_Vbi_ei*DFs_q-DFs_q2*DFs_q_Vbi_ei)/DFs_q/DFs_q);
10536 : : #endif
10537 : 0 : DFdvj_dv=(DFs_q2/DFs_q);
10538 : : #endif
10539 : : #if defined(_DYNAMIC)
10540 : : {
10541 : 0 : double m00_logE(d00_logE0,(1.0-(DFv_j/vdcx_t)))
10542 : : #if defined(_DERIVATE)
10543 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdcx_t)))
10544 : : #endif
10545 : : #if defined(_DERIVATE)
10546 : 0 : DFb_Vsi_ci=0.0;
10547 : 0 : DFb_Vb_ci=0.0;
10548 : 0 : DFb_Vbp_ci=(-(DFv_j_Vbp_ci/vdcx_t))*d10_logE0;
10549 : 0 : DFb_Vbp_ei=(-(DFv_j_Vbp_ei/vdcx_t))*d10_logE0;
10550 : 0 : DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdcx_t))*d10_logE0;
10551 : 0 : DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdcx_t-DFv_j*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
10552 : 0 : DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdcx_t))*d10_logE0;
10553 : : #endif
10554 : 0 : DFb=d00_logE0;
10555 : : }
10556 : : #endif
10557 : : #if defined(_DYNAMIC)
10558 : : {
10559 : 0 : double m00_exp(d00_exp0,((-zcx)*DFb))
10560 : : #if defined(_DERIVATE)
10561 : : #define d10_exp0 d00_exp0
10562 : : #endif
10563 : : #if defined(_DERIVATE)
10564 : 0 : DFC_j1_Vsi_ci=0.0;
10565 : 0 : DFC_j1_Vb_ci=0.0;
10566 : 0 : DFC_j1_Vbp_ci=(((cjcx02_t*((-zcx)*DFb_Vbp_ci)*d10_exp0)*DFdvj_dv)+((cjcx02_t*d00_exp0)*DFdvj_dv_Vbp_ci));
10567 : 0 : DFC_j1_Vbp_ei=(((cjcx02_t*((-zcx)*DFb_Vbp_ei)*d10_exp0)*DFdvj_dv)+((cjcx02_t*d00_exp0)*DFdvj_dv_Vbp_ei));
10568 : 0 : DFC_j1_Vbi_ci=(((cjcx02_t*((-zcx)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjcx02_t*d00_exp0)*DFdvj_dv_Vbi_ci));
10569 : 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));
10570 : 0 : DFC_j1_Vbi_ei=(((cjcx02_t*((-zcx)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjcx02_t*d00_exp0)*DFdvj_dv_Vbi_ei));
10571 : : #endif
10572 : 0 : DFC_j1=((cjcx02_t*d00_exp0)*DFdvj_dv);
10573 : : }
10574 : : #endif
10575 : : #if defined(_DYNAMIC)
10576 : 0 : c_dummy=(DFC_j1+((2.4*cjcx02_t)*(1.0-DFdvj_dv)));
10577 : : #endif
10578 : : #if defined(_DYNAMIC)
10579 : : {
10580 : 0 : double m00_exp(d00_exp0,(DFb*(1.0-zcx)))
10581 : : #if defined(_DERIVATE)
10582 : : #define d10_exp0 d00_exp0
10583 : : #endif
10584 : : #if defined(_DERIVATE)
10585 : 0 : DFQ_j_Vsi_ci=0.0;
10586 : 0 : DFQ_j_Vb_ci=0.0;
10587 : 0 : DFQ_j_Vbp_ci=(((cjcx02_t*vdcx_t)*(-DFb_Vbp_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
10588 : 0 : DFQ_j_Vbp_ei=(((cjcx02_t*vdcx_t)*(-DFb_Vbp_ei*(1.0-zcx)*d10_exp0))/(1.0-zcx));
10589 : 0 : DFQ_j_Vbi_ci=(((cjcx02_t*vdcx_t)*(-DFb_Vbi_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
10590 : 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));
10591 : 0 : DFQ_j_Vbi_ei=(((cjcx02_t*vdcx_t)*(-DFb_Vbi_ei*(1.0-zcx)*d10_exp0))/(1.0-zcx));
10592 : : #endif
10593 : 0 : DFQ_j=(((cjcx02_t*vdcx_t)*(1.0-d00_exp0))/(1.0-zcx));
10594 : : }
10595 : : #endif
10596 : : #if defined(_DYNAMIC)
10597 : : #if defined(_DERIVATE)
10598 : 0 : qjcx0_t_ii_Vbp_ei=(DFQ_j_Vbp_ei+((2.4*cjcx02_t)*(-DFv_j_Vbp_ei)));
10599 : 0 : qjcx0_t_ii_Vbi_ei=(DFQ_j_Vbi_ei+((2.4*cjcx02_t)*(-DFv_j_Vbi_ei)));
10600 : 0 : qjcx0_t_ii_Vbp_ci=(DFQ_j_Vbp_ci+((2.4*cjcx02_t)*(Vbpci_Vbp_ci-DFv_j_Vbp_ci)));
10601 : 0 : qjcx0_t_ii_Vtnode_GND=(DFQ_j_Vtnode_GND+(((2.4*cjcx02_t_Vtnode_GND)*(Vbpci-DFv_j))+((2.4*cjcx02_t)*(-DFv_j_Vtnode_GND))));
10602 : 0 : qjcx0_t_ii_Vbi_ci=(DFQ_j_Vbi_ci+((2.4*cjcx02_t)*(-DFv_j_Vbi_ci)));
10603 : : #endif
10604 : 0 : qjcx0_t_ii=(DFQ_j+((2.4*cjcx02_t)*(Vbpci-DFv_j)));
10605 : : #endif
10606 : : }
10607 : : else
10608 : : {
10609 : : #if defined(_DYNAMIC)
10610 : 0 : c_dummy=0.0;
10611 : : #endif
10612 : : #if defined(_DYNAMIC)
10613 : : #if defined(_DERIVATE)
10614 : 0 : qjcx0_t_ii_Vbp_ei=0.0;
10615 : 0 : qjcx0_t_ii_Vbi_ei=0.0;
10616 : 0 : qjcx0_t_ii_Vbp_ci=0.0;
10617 : 0 : qjcx0_t_ii_Vtnode_GND=0.0;
10618 : 0 : qjcx0_t_ii_Vbi_ci=0.0;
10619 : : #endif
10620 : 0 : qjcx0_t_ii=0.0;
10621 : : #endif
10622 : : }
10623 : : #endif /* if (...) */
10624 : : }
10625 : : #endif /* if (...) */
10626 : : #if defined(_DERIVATE)
10627 : 0 : DIOY_Vsi_ci=0.0;
10628 : 0 : DIOY_Vbp_ci=(Vbpci_Vbp_ci/(mbcx*VT));
10629 : 0 : DIOY_Vbp_ei=0.0;
10630 : 0 : DIOY_Vbi_ci=0.0;
10631 : 0 : DIOY_Vbi_ei=0.0;
10632 : 0 : DIOY_Vtnode_GND=(-Vbpci*(mbcx*VT_Vtnode_GND)/(mbcx*VT)/(mbcx*VT));
10633 : : #endif
10634 : 0 : DIOY=(Vbpci/(mbcx*VT));
10635 [ # # ]: 0 : if
10636 : : (ibcxs>0.0)
10637 : : {
10638 [ # # ]: 0 : if
10639 : : (DIOY>80.0)
10640 : : {
10641 : : #if defined(_DERIVATE)
10642 : 0 : le_Vsi_ci=0.0;
10643 : 0 : le_Vbp_ci=DIOY_Vbp_ci;
10644 : 0 : le_Vbp_ei=DIOY_Vbp_ei;
10645 : 0 : le_Vbi_ci=DIOY_Vbi_ci;
10646 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
10647 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
10648 : : #endif
10649 : 0 : le=(1+(DIOY-80.0));
10650 : : #if defined(_DERIVATE)
10651 : 0 : DIOY_Vsi_ci=0.0;
10652 : 0 : DIOY_Vbp_ci=0.0;
10653 : 0 : DIOY_Vbp_ei=0.0;
10654 : 0 : DIOY_Vbi_ci=0.0;
10655 : 0 : DIOY_Vbi_ei=0.0;
10656 : 0 : DIOY_Vtnode_GND=0.0;
10657 : : #endif
10658 : 0 : DIOY=80.0;
10659 : : }
10660 : : else
10661 : : {
10662 : : #if defined(_DERIVATE)
10663 : 0 : le_Vsi_ci=0.0;
10664 : 0 : le_Vbp_ci=0.0;
10665 : 0 : le_Vbp_ei=0.0;
10666 : 0 : le_Vbi_ci=0.0;
10667 : 0 : le_Vbi_ei=0.0;
10668 : 0 : le_Vtnode_GND=0.0;
10669 : : #endif
10670 : 0 : le=1;
10671 : : }
10672 : : {
10673 [ # # ]: 0 : double m00_limexp(d00_limexp0,DIOY)
10674 : : #if defined(_DERIVATE)
10675 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
10676 : : #endif
10677 : : #if defined(_DERIVATE)
10678 : 0 : le_Vsi_ci=0.0;
10679 : 0 : le_Vbp_ci=((le_Vbp_ci*d00_limexp0)+(le*DIOY_Vbp_ci*d10_limexp0));
10680 : 0 : le_Vbp_ei=((le_Vbp_ei*d00_limexp0)+(le*DIOY_Vbp_ei*d10_limexp0));
10681 : 0 : le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
10682 : 0 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
10683 : 0 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
10684 : : #endif
10685 : 0 : le=(le*d00_limexp0);
10686 : : }
10687 : : #if defined(_DERIVATE)
10688 : 0 : ijbcx_Vtnode_GND=((ibcxs_t_Vtnode_GND*(le-1.0))+(ibcxs_t*le_Vtnode_GND));
10689 : 0 : ijbcx_Vbp_ci=(ibcxs_t*le_Vbp_ci);
10690 : 0 : ijbcx_Vbp_ei=(ibcxs_t*le_Vbp_ei);
10691 : 0 : ijbcx_Vbi_ci=(ibcxs_t*le_Vbi_ci);
10692 : 0 : ijbcx_Vbi_ei=(ibcxs_t*le_Vbi_ei);
10693 : : #endif
10694 : 0 : ijbcx=(ibcxs_t*(le-1.0));
10695 [ # # ]: 0 : if
10696 : : (DIOY<=(-14.0))
10697 : : {
10698 : : #if defined(_DERIVATE)
10699 : 0 : ijbcx_Vtnode_GND=(-ibcxs_t_Vtnode_GND);
10700 : 0 : ijbcx_Vbp_ci=0.0;
10701 : 0 : ijbcx_Vbp_ei=0.0;
10702 : 0 : ijbcx_Vbi_ci=0.0;
10703 : 0 : ijbcx_Vbi_ei=0.0;
10704 : : #endif
10705 : 0 : ijbcx=(-ibcxs_t);
10706 : : }
10707 : : }
10708 : : else
10709 : : {
10710 : : #if defined(_DERIVATE)
10711 : 0 : ijbcx_Vtnode_GND=0.0;
10712 : 0 : ijbcx_Vbp_ci=0.0;
10713 : 0 : ijbcx_Vbp_ei=0.0;
10714 : 0 : ijbcx_Vbi_ci=0.0;
10715 : 0 : ijbcx_Vbi_ei=0.0;
10716 : : #endif
10717 : 0 : ijbcx=0.0;
10718 : : }
10719 : : #ifdef _DYNAMIC
10720 [ # # ]: 0 : if
10721 : : (vptcx_t<1.0e2)
10722 : : {
10723 : : #ifdef _DYNAMIC
10724 [ # # ]: 0 : if
10725 : : (cjcx01_t>0.0)
10726 : : {
10727 : : #if defined(_DYNAMIC)
10728 : 0 : Dz_r=(zcx/4.0);
10729 : : #endif
10730 : : #if defined(_DYNAMIC)
10731 : : #if defined(_DERIVATE)
10732 : 0 : Dv_p_Vtnode_GND=(vptcx_t_Vtnode_GND-vdcx_t_Vtnode_GND);
10733 : : #endif
10734 : 0 : Dv_p=(vptcx_t-vdcx_t);
10735 : : #endif
10736 : : #if defined(_DYNAMIC)
10737 : : {
10738 : 0 : double m00_logE(d00_logE0,2.4)
10739 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zcx))
10740 : : #if defined(_DERIVATE)
10741 : 0 : DV_f_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
10742 : : #endif
10743 : 0 : DV_f=(vdcx_t*(1.0-d00_exp1));
10744 : : }
10745 : : #endif
10746 : : #if defined(_DYNAMIC)
10747 : : #if defined(_DERIVATE)
10748 : 0 : DC_max_Vtnode_GND=(2.4*cjcx01_t_Vtnode_GND);
10749 : : #endif
10750 : 0 : DC_max=(2.4*cjcx01_t);
10751 : : #endif
10752 : : #if defined(_DYNAMIC)
10753 : : {
10754 : 0 : double m00_logE(d00_logE0,(vptcx_t/vdcx_t))
10755 : 0 : double m00_exp(d00_exp1,((Dz_r-zcx)*d00_logE0))
10756 : : #if defined(_DERIVATE)
10757 : 0 : double m10_logE(d10_logE0,d00_logE0,(vptcx_t/vdcx_t))
10758 : : #define d10_exp1 d00_exp1
10759 : : #endif
10760 : : #if defined(_DERIVATE)
10761 : 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));
10762 : : #endif
10763 : 0 : DC_c=(cjcx01_t*d00_exp1);
10764 : : }
10765 : : #endif
10766 : : #if defined(_DYNAMIC)
10767 : : #if defined(_DERIVATE)
10768 : 0 : Dv_e_Vsi_ci=0.0;
10769 : 0 : Dv_e_Vb_ci=((-Vbci_Vb_ci)/VT);
10770 : 0 : Dv_e_Vbp_ci=0.0;
10771 : 0 : Dv_e_Vtnode_GND=((DV_f_Vtnode_GND*VT-(DV_f-Vbci)*VT_Vtnode_GND)/VT/VT);
10772 : 0 : Dv_e_Vbi_ci=0.0;
10773 : : #endif
10774 : 0 : Dv_e=((DV_f-Vbci)/VT);
10775 : : #endif
10776 : : #ifdef _DYNAMIC
10777 [ # # ]: 0 : if
10778 : : (Dv_e<80.0)
10779 : : {
10780 : : #if defined(_DYNAMIC)
10781 : : {
10782 : 0 : double m00_exp(d00_exp0,Dv_e)
10783 : : #if defined(_DERIVATE)
10784 : : #define d10_exp0 d00_exp0
10785 : : #endif
10786 : : #if defined(_DERIVATE)
10787 : 0 : De_Vsi_ci=0.0;
10788 : 0 : De_Vb_ci=Dv_e_Vb_ci*d10_exp0;
10789 : 0 : De_Vbp_ci=Dv_e_Vbp_ci*d10_exp0;
10790 : 0 : De_Vtnode_GND=Dv_e_Vtnode_GND*d10_exp0;
10791 : 0 : De_Vbi_ci=Dv_e_Vbi_ci*d10_exp0;
10792 : : #endif
10793 : 0 : De=d00_exp0;
10794 : : }
10795 : : #endif
10796 : : #if defined(_DYNAMIC)
10797 : : #if defined(_DERIVATE)
10798 : 0 : De_1_Vsi_ci=0.0;
10799 : 0 : De_1_Vb_ci=((De_Vb_ci*(1.0+De)-De*De_Vb_ci)/(1.0+De)/(1.0+De));
10800 : 0 : De_1_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
10801 : 0 : De_1_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
10802 : 0 : De_1_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
10803 : : #endif
10804 : 0 : De_1=(De/(1.0+De));
10805 : : #endif
10806 : : #if defined(_DYNAMIC)
10807 : : {
10808 : 0 : double m00_logE(d00_logE0,(1.0+De))
10809 : : #if defined(_DERIVATE)
10810 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
10811 : : #endif
10812 : : #if defined(_DERIVATE)
10813 : 0 : Dv_j1_Vsi_ci=0.0;
10814 : 0 : Dv_j1_Vb_ci=(-(VT*De_Vb_ci*d10_logE0));
10815 : 0 : Dv_j1_Vbp_ci=(-(VT*De_Vbp_ci*d10_logE0));
10816 : 0 : Dv_j1_Vtnode_GND=(DV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*De_Vtnode_GND*d10_logE0)));
10817 : 0 : Dv_j1_Vbi_ci=(-(VT*De_Vbi_ci*d10_logE0));
10818 : : #endif
10819 : 0 : Dv_j1=(DV_f-(VT*d00_logE0));
10820 : : }
10821 : : #endif
10822 : : }
10823 : : else
10824 : : {
10825 : : #if defined(_DYNAMIC)
10826 : : #if defined(_DERIVATE)
10827 : 0 : De_1_Vsi_ci=0.0;
10828 : 0 : De_1_Vb_ci=0.0;
10829 : 0 : De_1_Vbp_ci=0.0;
10830 : 0 : De_1_Vtnode_GND=0.0;
10831 : 0 : De_1_Vbi_ci=0.0;
10832 : : #endif
10833 : 0 : De_1=1.0;
10834 : : #endif
10835 : : #if defined(_DYNAMIC)
10836 : : #if defined(_DERIVATE)
10837 : 0 : Dv_j1_Vsi_ci=0.0;
10838 : 0 : Dv_j1_Vb_ci=Vbci_Vb_ci;
10839 : 0 : Dv_j1_Vbp_ci=0.0;
10840 : 0 : Dv_j1_Vtnode_GND=0.0;
10841 : 0 : Dv_j1_Vbi_ci=0.0;
10842 : : #endif
10843 : 0 : Dv_j1=Vbci;
10844 : : #endif
10845 : : }
10846 : : #endif /* if (...) */
10847 : : #if defined(_DYNAMIC)
10848 : : #if defined(_DERIVATE)
10849 : 0 : Da_Vtnode_GND=((0.1*Dv_p_Vtnode_GND)+(4.0*VT_Vtnode_GND));
10850 : : #endif
10851 : 0 : Da=((0.1*Dv_p)+(4.0*VT));
10852 : : #endif
10853 : : #if defined(_DYNAMIC)
10854 : : #if defined(_DERIVATE)
10855 : 0 : Dv_r_Vsi_ci=0.0;
10856 : 0 : Dv_r_Vb_ci=(Dv_j1_Vb_ci/Da);
10857 : 0 : Dv_r_Vbp_ci=(Dv_j1_Vbp_ci/Da);
10858 : 0 : Dv_r_Vtnode_GND=(((Dv_p_Vtnode_GND+Dv_j1_Vtnode_GND)*Da-(Dv_p+Dv_j1)*Da_Vtnode_GND)/Da/Da);
10859 : 0 : Dv_r_Vbi_ci=(Dv_j1_Vbi_ci/Da);
10860 : : #endif
10861 : 0 : Dv_r=((Dv_p+Dv_j1)/Da);
10862 : : #endif
10863 : : #ifdef _DYNAMIC
10864 [ # # ]: 0 : if
10865 : : (Dv_r<80.0)
10866 : : {
10867 : : #if defined(_DYNAMIC)
10868 : : {
10869 : 0 : double m00_exp(d00_exp0,Dv_r)
10870 : : #if defined(_DERIVATE)
10871 : : #define d10_exp0 d00_exp0
10872 : : #endif
10873 : : #if defined(_DERIVATE)
10874 : 0 : De_Vsi_ci=0.0;
10875 : 0 : De_Vb_ci=Dv_r_Vb_ci*d10_exp0;
10876 : 0 : De_Vbp_ci=Dv_r_Vbp_ci*d10_exp0;
10877 : 0 : De_Vtnode_GND=Dv_r_Vtnode_GND*d10_exp0;
10878 : 0 : De_Vbi_ci=Dv_r_Vbi_ci*d10_exp0;
10879 : : #endif
10880 : 0 : De=d00_exp0;
10881 : : }
10882 : : #endif
10883 : : #if defined(_DYNAMIC)
10884 : : #if defined(_DERIVATE)
10885 : 0 : De_2_Vsi_ci=0.0;
10886 : 0 : De_2_Vb_ci=((De_Vb_ci*(1.0+De)-De*De_Vb_ci)/(1.0+De)/(1.0+De));
10887 : 0 : De_2_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
10888 : 0 : De_2_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
10889 : 0 : De_2_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
10890 : : #endif
10891 : 0 : De_2=(De/(1.0+De));
10892 : : #endif
10893 : : #if defined(_DYNAMIC)
10894 : : {
10895 : 0 : double m00_logE(d00_logE0,(1.0+De))
10896 : : #if defined(_DERIVATE)
10897 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
10898 : : #endif
10899 : : #if defined(_DERIVATE)
10900 : 0 : Dv_j2_Vsi_ci=0.0;
10901 : 0 : Dv_j2_Vb_ci=(Da*De_Vb_ci*d10_logE0);
10902 : 0 : Dv_j2_Vbp_ci=(Da*De_Vbp_ci*d10_logE0);
10903 : 0 : Dv_j2_Vtnode_GND=((-Dv_p_Vtnode_GND)+((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
10904 : 0 : Dv_j2_Vbi_ci=(Da*De_Vbi_ci*d10_logE0);
10905 : : #endif
10906 : 0 : Dv_j2=((-Dv_p)+(Da*d00_logE0));
10907 : : }
10908 : : #endif
10909 : : }
10910 : : else
10911 : : {
10912 : : #if defined(_DYNAMIC)
10913 : : #if defined(_DERIVATE)
10914 : 0 : De_2_Vsi_ci=0.0;
10915 : 0 : De_2_Vb_ci=0.0;
10916 : 0 : De_2_Vbp_ci=0.0;
10917 : 0 : De_2_Vtnode_GND=0.0;
10918 : 0 : De_2_Vbi_ci=0.0;
10919 : : #endif
10920 : 0 : De_2=1.0;
10921 : : #endif
10922 : : #if defined(_DYNAMIC)
10923 : : #if defined(_DERIVATE)
10924 : 0 : Dv_j2_Vsi_ci=0.0;
10925 : 0 : Dv_j2_Vb_ci=Dv_j1_Vb_ci;
10926 : 0 : Dv_j2_Vbp_ci=Dv_j1_Vbp_ci;
10927 : 0 : Dv_j2_Vtnode_GND=Dv_j1_Vtnode_GND;
10928 : 0 : Dv_j2_Vbi_ci=Dv_j1_Vbi_ci;
10929 : : #endif
10930 : 0 : Dv_j2=Dv_j1;
10931 : : #endif
10932 : : }
10933 : : #endif /* if (...) */
10934 : : #if defined(_DYNAMIC)
10935 : : #if defined(_DERIVATE)
10936 : 0 : Dv_j4_Vsi_ci=0.0;
10937 : 0 : Dv_j4_Vb_ci=(Vbci_Vb_ci-Dv_j1_Vb_ci);
10938 : 0 : Dv_j4_Vbp_ci=(-Dv_j1_Vbp_ci);
10939 : 0 : Dv_j4_Vbi_ci=(-Dv_j1_Vbi_ci);
10940 : 0 : Dv_j4_Vtnode_GND=(-Dv_j1_Vtnode_GND);
10941 : : #endif
10942 : 0 : Dv_j4=(Vbci-Dv_j1);
10943 : : #endif
10944 : : #if defined(_DYNAMIC)
10945 : : {
10946 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j1/vdcx_t)))
10947 : : #if defined(_DERIVATE)
10948 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j1/vdcx_t)))
10949 : : #endif
10950 : : #if defined(_DERIVATE)
10951 : 0 : DCln1_Vsi_ci=0.0;
10952 : 0 : DCln1_Vb_ci=(-(Dv_j1_Vb_ci/vdcx_t))*d10_logE0;
10953 : 0 : DCln1_Vbp_ci=(-(Dv_j1_Vbp_ci/vdcx_t))*d10_logE0;
10954 : 0 : DCln1_Vtnode_GND=(-((Dv_j1_Vtnode_GND*vdcx_t-Dv_j1*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
10955 : 0 : DCln1_Vbi_ci=(-(Dv_j1_Vbi_ci/vdcx_t))*d10_logE0;
10956 : : #endif
10957 : 0 : DCln1=d00_logE0;
10958 : : }
10959 : : #endif
10960 : : #if defined(_DYNAMIC)
10961 : : {
10962 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j2/vdcx_t)))
10963 : : #if defined(_DERIVATE)
10964 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j2/vdcx_t)))
10965 : : #endif
10966 : : #if defined(_DERIVATE)
10967 : 0 : DCln2_Vsi_ci=0.0;
10968 : 0 : DCln2_Vb_ci=(-(Dv_j2_Vb_ci/vdcx_t))*d10_logE0;
10969 : 0 : DCln2_Vbp_ci=(-(Dv_j2_Vbp_ci/vdcx_t))*d10_logE0;
10970 : 0 : DCln2_Vtnode_GND=(-((Dv_j2_Vtnode_GND*vdcx_t-Dv_j2*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
10971 : 0 : DCln2_Vbi_ci=(-(Dv_j2_Vbi_ci/vdcx_t))*d10_logE0;
10972 : : #endif
10973 : 0 : DCln2=d00_logE0;
10974 : : }
10975 : : #endif
10976 : : #if defined(_DYNAMIC)
10977 : 0 : Dz1=(1.0-zcx);
10978 : : #endif
10979 : : #if defined(_DYNAMIC)
10980 : 0 : Dzr1=(1.0-Dz_r);
10981 : : #endif
10982 : : #if defined(_DYNAMIC)
10983 : : {
10984 : 0 : double m00_exp(d00_exp0,(DCln2*(-zcx)))
10985 : : #if defined(_DERIVATE)
10986 : : #define d10_exp0 d00_exp0
10987 : : #endif
10988 : : #if defined(_DERIVATE)
10989 : 0 : DC_j1_Vsi_ci=0.0;
10990 : 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));
10991 : 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));
10992 : 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));
10993 : 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));
10994 : : #endif
10995 : 0 : DC_j1=(((cjcx01_t*d00_exp0)*De_1)*De_2);
10996 : : }
10997 : : #endif
10998 : : #if defined(_DYNAMIC)
10999 : : {
11000 : 0 : double m00_exp(d00_exp0,(DCln1*(-Dz_r)))
11001 : : #if defined(_DERIVATE)
11002 : : #define d10_exp0 d00_exp0
11003 : : #endif
11004 : : #if defined(_DERIVATE)
11005 : 0 : DC_j2_Vsi_ci=0.0;
11006 : 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)));
11007 : 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)));
11008 : 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)));
11009 : 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)));
11010 : : #endif
11011 : 0 : DC_j2=((DC_c*d00_exp0)*(1.0-De_2));
11012 : : }
11013 : : #endif
11014 : : #if defined(_DYNAMIC)
11015 : : #if defined(_DERIVATE)
11016 : 0 : DC_j3_Vsi_ci=0.0;
11017 : 0 : DC_j3_Vb_ci=(DC_max*(-De_1_Vb_ci));
11018 : 0 : DC_j3_Vbp_ci=(DC_max*(-De_1_Vbp_ci));
11019 : 0 : DC_j3_Vtnode_GND=((DC_max_Vtnode_GND*(1.0-De_1))+(DC_max*(-De_1_Vtnode_GND)));
11020 : 0 : DC_j3_Vbi_ci=(DC_max*(-De_1_Vbi_ci));
11021 : : #endif
11022 : 0 : DC_j3=(DC_max*(1.0-De_1));
11023 : : #endif
11024 : : #if defined(_DYNAMIC)
11025 : 0 : c_dummy=((DC_j1+DC_j2)+DC_j3);
11026 : : #endif
11027 : : #if defined(_DYNAMIC)
11028 : : {
11029 : 0 : double m00_exp(d00_exp0,(DCln2*Dz1))
11030 : : #if defined(_DERIVATE)
11031 : : #define d10_exp0 d00_exp0
11032 : : #endif
11033 : : #if defined(_DERIVATE)
11034 : 0 : DQ_j1_Vsi_ci=0.0;
11035 : 0 : DQ_j1_Vb_ci=((cjcx01_t*(-DCln2_Vb_ci*Dz1*d10_exp0))/Dz1);
11036 : 0 : DQ_j1_Vbp_ci=((cjcx01_t*(-DCln2_Vbp_ci*Dz1*d10_exp0))/Dz1);
11037 : 0 : DQ_j1_Vtnode_GND=(((cjcx01_t_Vtnode_GND*(1.0-d00_exp0))+(cjcx01_t*(-DCln2_Vtnode_GND*Dz1*d10_exp0)))/Dz1);
11038 : 0 : DQ_j1_Vbi_ci=((cjcx01_t*(-DCln2_Vbi_ci*Dz1*d10_exp0))/Dz1);
11039 : : #endif
11040 : 0 : DQ_j1=((cjcx01_t*(1.0-d00_exp0))/Dz1);
11041 : : }
11042 : : #endif
11043 : : #if defined(_DYNAMIC)
11044 : : {
11045 : 0 : double m00_exp(d00_exp0,(DCln1*Dzr1))
11046 : : #if defined(_DERIVATE)
11047 : : #define d10_exp0 d00_exp0
11048 : : #endif
11049 : : #if defined(_DERIVATE)
11050 : 0 : DQ_j2_Vsi_ci=0.0;
11051 : 0 : DQ_j2_Vb_ci=((DC_c*(-DCln1_Vb_ci*Dzr1*d10_exp0))/Dzr1);
11052 : 0 : DQ_j2_Vbp_ci=((DC_c*(-DCln1_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
11053 : 0 : DQ_j2_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln1_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
11054 : 0 : DQ_j2_Vbi_ci=((DC_c*(-DCln1_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
11055 : : #endif
11056 : 0 : DQ_j2=((DC_c*(1.0-d00_exp0))/Dzr1);
11057 : : }
11058 : : #endif
11059 : : #if defined(_DYNAMIC)
11060 : : {
11061 : 0 : double m00_exp(d00_exp0,(DCln2*Dzr1))
11062 : : #if defined(_DERIVATE)
11063 : : #define d10_exp0 d00_exp0
11064 : : #endif
11065 : : #if defined(_DERIVATE)
11066 : 0 : DQ_j3_Vsi_ci=0.0;
11067 : 0 : DQ_j3_Vb_ci=((DC_c*(-DCln2_Vb_ci*Dzr1*d10_exp0))/Dzr1);
11068 : 0 : DQ_j3_Vbp_ci=((DC_c*(-DCln2_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
11069 : 0 : DQ_j3_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln2_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
11070 : 0 : DQ_j3_Vbi_ci=((DC_c*(-DCln2_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
11071 : : #endif
11072 : 0 : DQ_j3=((DC_c*(1.0-d00_exp0))/Dzr1);
11073 : : }
11074 : : #endif
11075 : : #if defined(_DYNAMIC)
11076 : : #if defined(_DERIVATE)
11077 : 0 : qjcx0_t_i_Vbp_ei=0.0;
11078 : 0 : qjcx0_t_i_Vbi_ei=0.0;
11079 : 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));
11080 : 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));
11081 : 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)));
11082 : 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));
11083 : : #endif
11084 : 0 : qjcx0_t_i=((((DQ_j1+DQ_j2)-DQ_j3)*vdcx_t)+(DC_max*Dv_j4));
11085 : : #endif
11086 : : }
11087 : : else
11088 : : {
11089 : : #if defined(_DYNAMIC)
11090 : 0 : c_dummy=0.0;
11091 : : #endif
11092 : : #if defined(_DYNAMIC)
11093 : : #if defined(_DERIVATE)
11094 : 0 : qjcx0_t_i_Vbp_ei=0.0;
11095 : 0 : qjcx0_t_i_Vbi_ei=0.0;
11096 : 0 : qjcx0_t_i_Vb_ci=0.0;
11097 : 0 : qjcx0_t_i_Vbp_ci=0.0;
11098 : 0 : qjcx0_t_i_Vtnode_GND=0.0;
11099 : 0 : qjcx0_t_i_Vbi_ci=0.0;
11100 : : #endif
11101 : 0 : qjcx0_t_i=0.0;
11102 : : #endif
11103 : : }
11104 : : #endif /* if (...) */
11105 : : }
11106 : : else
11107 : : {
11108 : : #ifdef _DYNAMIC
11109 [ # # ]: 0 : if
11110 : : (cjcx01_t>0.0)
11111 : : {
11112 : : #if defined(_DYNAMIC)
11113 : : {
11114 : 0 : double m00_logE(d00_logE0,2.4)
11115 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zcx))
11116 : : #if defined(_DERIVATE)
11117 : 0 : DFV_f_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
11118 : : #endif
11119 : 0 : DFV_f=(vdcx_t*(1.0-d00_exp1));
11120 : : }
11121 : : #endif
11122 : : #if defined(_DYNAMIC)
11123 : : #if defined(_DERIVATE)
11124 : 0 : DFv_e_Vsi_ci=0.0;
11125 : 0 : DFv_e_Vb_ci=((-Vbci_Vb_ci)/VT);
11126 : 0 : DFv_e_Vbp_ci=0.0;
11127 : 0 : DFv_e_Vbp_ei=0.0;
11128 : 0 : DFv_e_Vbi_ci=0.0;
11129 : 0 : DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-Vbci)*VT_Vtnode_GND)/VT/VT);
11130 : 0 : DFv_e_Vbi_ei=0.0;
11131 : : #endif
11132 : 0 : DFv_e=((DFV_f-Vbci)/VT);
11133 : : #endif
11134 : : #if defined(_DYNAMIC)
11135 : : {
11136 : 0 : double m00_sqrt(d00_sqrt0,((DFv_e*DFv_e)+1.921812))
11137 : : #if defined(_DERIVATE)
11138 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((DFv_e*DFv_e)+1.921812))
11139 : : #endif
11140 : : #if defined(_DERIVATE)
11141 : 0 : DFs_q_Vsi_ci=0.0;
11142 : 0 : DFs_q_Vb_ci=((DFv_e_Vb_ci*DFv_e)+(DFv_e*DFv_e_Vb_ci))*d10_sqrt0;
11143 : 0 : DFs_q_Vbp_ci=((DFv_e_Vbp_ci*DFv_e)+(DFv_e*DFv_e_Vbp_ci))*d10_sqrt0;
11144 : 0 : DFs_q_Vbp_ei=((DFv_e_Vbp_ei*DFv_e)+(DFv_e*DFv_e_Vbp_ei))*d10_sqrt0;
11145 : 0 : DFs_q_Vbi_ci=((DFv_e_Vbi_ci*DFv_e)+(DFv_e*DFv_e_Vbi_ci))*d10_sqrt0;
11146 : 0 : DFs_q_Vtnode_GND=((DFv_e_Vtnode_GND*DFv_e)+(DFv_e*DFv_e_Vtnode_GND))*d10_sqrt0;
11147 : 0 : DFs_q_Vbi_ei=((DFv_e_Vbi_ei*DFv_e)+(DFv_e*DFv_e_Vbi_ei))*d10_sqrt0;
11148 : : #endif
11149 : 0 : DFs_q=d00_sqrt0;
11150 : : }
11151 : : #endif
11152 : : #if defined(_DYNAMIC)
11153 : : #if defined(_DERIVATE)
11154 : 0 : DFs_q2_Vsi_ci=0.0;
11155 : 0 : DFs_q2_Vb_ci=(DFv_e_Vb_ci+DFs_q_Vb_ci)*0.5;
11156 : 0 : DFs_q2_Vbp_ci=(DFv_e_Vbp_ci+DFs_q_Vbp_ci)*0.5;
11157 : 0 : DFs_q2_Vbp_ei=(DFv_e_Vbp_ei+DFs_q_Vbp_ei)*0.5;
11158 : 0 : DFs_q2_Vbi_ci=(DFv_e_Vbi_ci+DFs_q_Vbi_ci)*0.5;
11159 : 0 : DFs_q2_Vtnode_GND=(DFv_e_Vtnode_GND+DFs_q_Vtnode_GND)*0.5;
11160 : 0 : DFs_q2_Vbi_ei=(DFv_e_Vbi_ei+DFs_q_Vbi_ei)*0.5;
11161 : : #endif
11162 : 0 : DFs_q2=((DFv_e+DFs_q)*0.5);
11163 : : #endif
11164 : : #if defined(_DYNAMIC)
11165 : : #if defined(_DERIVATE)
11166 : 0 : DFv_j_Vsi_ci=0.0;
11167 : 0 : DFv_j_Vb_ci=(-(VT*DFs_q2_Vb_ci));
11168 : 0 : DFv_j_Vbp_ci=(-(VT*DFs_q2_Vbp_ci));
11169 : 0 : DFv_j_Vbp_ei=(-(VT*DFs_q2_Vbp_ei));
11170 : 0 : DFv_j_Vbi_ci=(-(VT*DFs_q2_Vbi_ci));
11171 : 0 : DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*DFs_q2)+(VT*DFs_q2_Vtnode_GND)));
11172 : 0 : DFv_j_Vbi_ei=(-(VT*DFs_q2_Vbi_ei));
11173 : : #endif
11174 : 0 : DFv_j=(DFV_f-(VT*DFs_q2));
11175 : : #endif
11176 : : #if defined(_DYNAMIC)
11177 : : #if defined(_DERIVATE)
11178 : 0 : DFdvj_dv_Vsi_ci=0.0;
11179 : 0 : DFdvj_dv_Vb_ci=((DFs_q2_Vb_ci*DFs_q-DFs_q2*DFs_q_Vb_ci)/DFs_q/DFs_q);
11180 : 0 : DFdvj_dv_Vbp_ci=((DFs_q2_Vbp_ci*DFs_q-DFs_q2*DFs_q_Vbp_ci)/DFs_q/DFs_q);
11181 : 0 : DFdvj_dv_Vbp_ei=((DFs_q2_Vbp_ei*DFs_q-DFs_q2*DFs_q_Vbp_ei)/DFs_q/DFs_q);
11182 : 0 : DFdvj_dv_Vbi_ci=((DFs_q2_Vbi_ci*DFs_q-DFs_q2*DFs_q_Vbi_ci)/DFs_q/DFs_q);
11183 : 0 : DFdvj_dv_Vtnode_GND=((DFs_q2_Vtnode_GND*DFs_q-DFs_q2*DFs_q_Vtnode_GND)/DFs_q/DFs_q);
11184 : 0 : DFdvj_dv_Vbi_ei=((DFs_q2_Vbi_ei*DFs_q-DFs_q2*DFs_q_Vbi_ei)/DFs_q/DFs_q);
11185 : : #endif
11186 : 0 : DFdvj_dv=(DFs_q2/DFs_q);
11187 : : #endif
11188 : : #if defined(_DYNAMIC)
11189 : : {
11190 : 0 : double m00_logE(d00_logE0,(1.0-(DFv_j/vdcx_t)))
11191 : : #if defined(_DERIVATE)
11192 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdcx_t)))
11193 : : #endif
11194 : : #if defined(_DERIVATE)
11195 : 0 : DFb_Vsi_ci=0.0;
11196 : 0 : DFb_Vb_ci=(-(DFv_j_Vb_ci/vdcx_t))*d10_logE0;
11197 : 0 : DFb_Vbp_ci=(-(DFv_j_Vbp_ci/vdcx_t))*d10_logE0;
11198 : 0 : DFb_Vbp_ei=(-(DFv_j_Vbp_ei/vdcx_t))*d10_logE0;
11199 : 0 : DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdcx_t))*d10_logE0;
11200 : 0 : DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdcx_t-DFv_j*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
11201 : 0 : DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdcx_t))*d10_logE0;
11202 : : #endif
11203 : 0 : DFb=d00_logE0;
11204 : : }
11205 : : #endif
11206 : : #if defined(_DYNAMIC)
11207 : : {
11208 : 0 : double m00_exp(d00_exp0,((-zcx)*DFb))
11209 : : #if defined(_DERIVATE)
11210 : : #define d10_exp0 d00_exp0
11211 : : #endif
11212 : : #if defined(_DERIVATE)
11213 : 0 : DFC_j1_Vsi_ci=0.0;
11214 : 0 : DFC_j1_Vb_ci=(((cjcx01_t*((-zcx)*DFb_Vb_ci)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vb_ci));
11215 : 0 : DFC_j1_Vbp_ci=(((cjcx01_t*((-zcx)*DFb_Vbp_ci)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vbp_ci));
11216 : 0 : DFC_j1_Vbp_ei=(((cjcx01_t*((-zcx)*DFb_Vbp_ei)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vbp_ei));
11217 : 0 : DFC_j1_Vbi_ci=(((cjcx01_t*((-zcx)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vbi_ci));
11218 : 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));
11219 : 0 : DFC_j1_Vbi_ei=(((cjcx01_t*((-zcx)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vbi_ei));
11220 : : #endif
11221 : 0 : DFC_j1=((cjcx01_t*d00_exp0)*DFdvj_dv);
11222 : : }
11223 : : #endif
11224 : : #if defined(_DYNAMIC)
11225 : 0 : c_dummy=(DFC_j1+((2.4*cjcx01_t)*(1.0-DFdvj_dv)));
11226 : : #endif
11227 : : #if defined(_DYNAMIC)
11228 : : {
11229 : 0 : double m00_exp(d00_exp0,(DFb*(1.0-zcx)))
11230 : : #if defined(_DERIVATE)
11231 : : #define d10_exp0 d00_exp0
11232 : : #endif
11233 : : #if defined(_DERIVATE)
11234 : 0 : DFQ_j_Vsi_ci=0.0;
11235 : 0 : DFQ_j_Vb_ci=(((cjcx01_t*vdcx_t)*(-DFb_Vb_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
11236 : 0 : DFQ_j_Vbp_ci=(((cjcx01_t*vdcx_t)*(-DFb_Vbp_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
11237 : 0 : DFQ_j_Vbp_ei=(((cjcx01_t*vdcx_t)*(-DFb_Vbp_ei*(1.0-zcx)*d10_exp0))/(1.0-zcx));
11238 : 0 : DFQ_j_Vbi_ci=(((cjcx01_t*vdcx_t)*(-DFb_Vbi_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
11239 : 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));
11240 : 0 : DFQ_j_Vbi_ei=(((cjcx01_t*vdcx_t)*(-DFb_Vbi_ei*(1.0-zcx)*d10_exp0))/(1.0-zcx));
11241 : : #endif
11242 : 0 : DFQ_j=(((cjcx01_t*vdcx_t)*(1.0-d00_exp0))/(1.0-zcx));
11243 : : }
11244 : : #endif
11245 : : #if defined(_DYNAMIC)
11246 : : #if defined(_DERIVATE)
11247 : 0 : qjcx0_t_i_Vbp_ei=(DFQ_j_Vbp_ei+((2.4*cjcx01_t)*(-DFv_j_Vbp_ei)));
11248 : 0 : qjcx0_t_i_Vbi_ei=(DFQ_j_Vbi_ei+((2.4*cjcx01_t)*(-DFv_j_Vbi_ei)));
11249 : 0 : qjcx0_t_i_Vb_ci=(DFQ_j_Vb_ci+((2.4*cjcx01_t)*(Vbci_Vb_ci-DFv_j_Vb_ci)));
11250 : 0 : qjcx0_t_i_Vbp_ci=(DFQ_j_Vbp_ci+((2.4*cjcx01_t)*(-DFv_j_Vbp_ci)));
11251 : 0 : qjcx0_t_i_Vtnode_GND=(DFQ_j_Vtnode_GND+(((2.4*cjcx01_t_Vtnode_GND)*(Vbci-DFv_j))+((2.4*cjcx01_t)*(-DFv_j_Vtnode_GND))));
11252 : 0 : qjcx0_t_i_Vbi_ci=(DFQ_j_Vbi_ci+((2.4*cjcx01_t)*(-DFv_j_Vbi_ci)));
11253 : : #endif
11254 : 0 : qjcx0_t_i=(DFQ_j+((2.4*cjcx01_t)*(Vbci-DFv_j)));
11255 : : #endif
11256 : : }
11257 : : else
11258 : : {
11259 : : #if defined(_DYNAMIC)
11260 : 0 : c_dummy=0.0;
11261 : : #endif
11262 : : #if defined(_DYNAMIC)
11263 : : #if defined(_DERIVATE)
11264 : 0 : qjcx0_t_i_Vbp_ei=0.0;
11265 : 0 : qjcx0_t_i_Vbi_ei=0.0;
11266 : 0 : qjcx0_t_i_Vb_ci=0.0;
11267 : 0 : qjcx0_t_i_Vbp_ci=0.0;
11268 : 0 : qjcx0_t_i_Vtnode_GND=0.0;
11269 : 0 : qjcx0_t_i_Vbi_ci=0.0;
11270 : : #endif
11271 : 0 : qjcx0_t_i=0.0;
11272 : : #endif
11273 : : }
11274 : : #endif /* if (...) */
11275 : : }
11276 : : #endif /* if (...) */
11277 : : #ifdef _DYNAMIC
11278 [ # # ]: 0 : if
11279 : : (vpts_t<1.0e2)
11280 : : {
11281 : : #ifdef _DYNAMIC
11282 [ # # ]: 0 : if
11283 : : (cjs0_t>0.0)
11284 : : {
11285 : : #if defined(_DYNAMIC)
11286 : 0 : Dz_r=(zs/4.0);
11287 : : #endif
11288 : : #if defined(_DYNAMIC)
11289 : : #if defined(_DERIVATE)
11290 : 0 : Dv_p_Vtnode_GND=(vpts_t_Vtnode_GND-vds_t_Vtnode_GND);
11291 : : #endif
11292 : 0 : Dv_p=(vpts_t-vds_t);
11293 : : #endif
11294 : : #if defined(_DYNAMIC)
11295 : : {
11296 : 0 : double m00_logE(d00_logE0,2.4)
11297 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zs))
11298 : : #if defined(_DERIVATE)
11299 : 0 : DV_f_Vtnode_GND=vds_t_Vtnode_GND*(1.0-d00_exp1);
11300 : : #endif
11301 : 0 : DV_f=(vds_t*(1.0-d00_exp1));
11302 : : }
11303 : : #endif
11304 : : #if defined(_DYNAMIC)
11305 : : #if defined(_DERIVATE)
11306 : 0 : DC_max_Vtnode_GND=(2.4*cjs0_t_Vtnode_GND);
11307 : : #endif
11308 : 0 : DC_max=(2.4*cjs0_t);
11309 : : #endif
11310 : : #if defined(_DYNAMIC)
11311 : : {
11312 : 0 : double m00_logE(d00_logE0,(vpts_t/vds_t))
11313 : 0 : double m00_exp(d00_exp1,((Dz_r-zs)*d00_logE0))
11314 : : #if defined(_DERIVATE)
11315 : 0 : double m10_logE(d10_logE0,d00_logE0,(vpts_t/vds_t))
11316 : : #define d10_exp1 d00_exp1
11317 : : #endif
11318 : : #if defined(_DERIVATE)
11319 : 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));
11320 : : #endif
11321 : 0 : DC_c=(cjs0_t*d00_exp1);
11322 : : }
11323 : : #endif
11324 : : #if defined(_DYNAMIC)
11325 : : #if defined(_DERIVATE)
11326 : 0 : Dv_e_Vsi_ci=((-Vsici_Vsi_ci)/VT);
11327 : 0 : Dv_e_Vb_ci=0.0;
11328 : 0 : Dv_e_Vbp_ci=0.0;
11329 : 0 : Dv_e_Vtnode_GND=((DV_f_Vtnode_GND*VT-(DV_f-Vsici)*VT_Vtnode_GND)/VT/VT);
11330 : 0 : Dv_e_Vbi_ci=0.0;
11331 : : #endif
11332 : 0 : Dv_e=((DV_f-Vsici)/VT);
11333 : : #endif
11334 : : #ifdef _DYNAMIC
11335 [ # # ]: 0 : if
11336 : : (Dv_e<80.0)
11337 : : {
11338 : : #if defined(_DYNAMIC)
11339 : : {
11340 : 0 : double m00_exp(d00_exp0,Dv_e)
11341 : : #if defined(_DERIVATE)
11342 : : #define d10_exp0 d00_exp0
11343 : : #endif
11344 : : #if defined(_DERIVATE)
11345 : 0 : De_Vsi_ci=Dv_e_Vsi_ci*d10_exp0;
11346 : 0 : De_Vb_ci=Dv_e_Vb_ci*d10_exp0;
11347 : 0 : De_Vbp_ci=Dv_e_Vbp_ci*d10_exp0;
11348 : 0 : De_Vtnode_GND=Dv_e_Vtnode_GND*d10_exp0;
11349 : 0 : De_Vbi_ci=Dv_e_Vbi_ci*d10_exp0;
11350 : : #endif
11351 : 0 : De=d00_exp0;
11352 : : }
11353 : : #endif
11354 : : #if defined(_DYNAMIC)
11355 : : #if defined(_DERIVATE)
11356 : 0 : De_1_Vsi_ci=((De_Vsi_ci*(1.0+De)-De*De_Vsi_ci)/(1.0+De)/(1.0+De));
11357 : 0 : De_1_Vb_ci=((De_Vb_ci*(1.0+De)-De*De_Vb_ci)/(1.0+De)/(1.0+De));
11358 : 0 : De_1_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
11359 : 0 : De_1_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
11360 : 0 : De_1_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
11361 : : #endif
11362 : 0 : De_1=(De/(1.0+De));
11363 : : #endif
11364 : : #if defined(_DYNAMIC)
11365 : : {
11366 : 0 : double m00_logE(d00_logE0,(1.0+De))
11367 : : #if defined(_DERIVATE)
11368 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
11369 : : #endif
11370 : : #if defined(_DERIVATE)
11371 : 0 : Dv_j1_Vsi_ci=(-(VT*De_Vsi_ci*d10_logE0));
11372 : 0 : Dv_j1_Vb_ci=(-(VT*De_Vb_ci*d10_logE0));
11373 : 0 : Dv_j1_Vbp_ci=(-(VT*De_Vbp_ci*d10_logE0));
11374 : 0 : Dv_j1_Vtnode_GND=(DV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*De_Vtnode_GND*d10_logE0)));
11375 : 0 : Dv_j1_Vbi_ci=(-(VT*De_Vbi_ci*d10_logE0));
11376 : : #endif
11377 : 0 : Dv_j1=(DV_f-(VT*d00_logE0));
11378 : : }
11379 : : #endif
11380 : : }
11381 : : else
11382 : : {
11383 : : #if defined(_DYNAMIC)
11384 : : #if defined(_DERIVATE)
11385 : 0 : De_1_Vsi_ci=0.0;
11386 : 0 : De_1_Vb_ci=0.0;
11387 : 0 : De_1_Vbp_ci=0.0;
11388 : 0 : De_1_Vtnode_GND=0.0;
11389 : 0 : De_1_Vbi_ci=0.0;
11390 : : #endif
11391 : 0 : De_1=1.0;
11392 : : #endif
11393 : : #if defined(_DYNAMIC)
11394 : : #if defined(_DERIVATE)
11395 : 0 : Dv_j1_Vsi_ci=Vsici_Vsi_ci;
11396 : 0 : Dv_j1_Vb_ci=0.0;
11397 : 0 : Dv_j1_Vbp_ci=0.0;
11398 : 0 : Dv_j1_Vtnode_GND=0.0;
11399 : 0 : Dv_j1_Vbi_ci=0.0;
11400 : : #endif
11401 : 0 : Dv_j1=Vsici;
11402 : : #endif
11403 : : }
11404 : : #endif /* if (...) */
11405 : : #if defined(_DYNAMIC)
11406 : : #if defined(_DERIVATE)
11407 : 0 : Da_Vtnode_GND=((0.1*Dv_p_Vtnode_GND)+(4.0*VT_Vtnode_GND));
11408 : : #endif
11409 : 0 : Da=((0.1*Dv_p)+(4.0*VT));
11410 : : #endif
11411 : : #if defined(_DYNAMIC)
11412 : : #if defined(_DERIVATE)
11413 : 0 : Dv_r_Vsi_ci=(Dv_j1_Vsi_ci/Da);
11414 : 0 : Dv_r_Vb_ci=(Dv_j1_Vb_ci/Da);
11415 : 0 : Dv_r_Vbp_ci=(Dv_j1_Vbp_ci/Da);
11416 : 0 : Dv_r_Vtnode_GND=(((Dv_p_Vtnode_GND+Dv_j1_Vtnode_GND)*Da-(Dv_p+Dv_j1)*Da_Vtnode_GND)/Da/Da);
11417 : 0 : Dv_r_Vbi_ci=(Dv_j1_Vbi_ci/Da);
11418 : : #endif
11419 : 0 : Dv_r=((Dv_p+Dv_j1)/Da);
11420 : : #endif
11421 : : #ifdef _DYNAMIC
11422 [ # # ]: 0 : if
11423 : : (Dv_r<80.0)
11424 : : {
11425 : : #if defined(_DYNAMIC)
11426 : : {
11427 : 0 : double m00_exp(d00_exp0,Dv_r)
11428 : : #if defined(_DERIVATE)
11429 : : #define d10_exp0 d00_exp0
11430 : : #endif
11431 : : #if defined(_DERIVATE)
11432 : 0 : De_Vsi_ci=Dv_r_Vsi_ci*d10_exp0;
11433 : 0 : De_Vb_ci=Dv_r_Vb_ci*d10_exp0;
11434 : 0 : De_Vbp_ci=Dv_r_Vbp_ci*d10_exp0;
11435 : 0 : De_Vtnode_GND=Dv_r_Vtnode_GND*d10_exp0;
11436 : 0 : De_Vbi_ci=Dv_r_Vbi_ci*d10_exp0;
11437 : : #endif
11438 : 0 : De=d00_exp0;
11439 : : }
11440 : : #endif
11441 : : #if defined(_DYNAMIC)
11442 : : #if defined(_DERIVATE)
11443 : 0 : De_2_Vsi_ci=((De_Vsi_ci*(1.0+De)-De*De_Vsi_ci)/(1.0+De)/(1.0+De));
11444 : 0 : De_2_Vb_ci=((De_Vb_ci*(1.0+De)-De*De_Vb_ci)/(1.0+De)/(1.0+De));
11445 : 0 : De_2_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
11446 : 0 : De_2_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
11447 : 0 : De_2_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
11448 : : #endif
11449 : 0 : De_2=(De/(1.0+De));
11450 : : #endif
11451 : : #if defined(_DYNAMIC)
11452 : : {
11453 : 0 : double m00_logE(d00_logE0,(1.0+De))
11454 : : #if defined(_DERIVATE)
11455 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0+De))
11456 : : #endif
11457 : : #if defined(_DERIVATE)
11458 : 0 : Dv_j2_Vsi_ci=(Da*De_Vsi_ci*d10_logE0);
11459 : 0 : Dv_j2_Vb_ci=(Da*De_Vb_ci*d10_logE0);
11460 : 0 : Dv_j2_Vbp_ci=(Da*De_Vbp_ci*d10_logE0);
11461 : 0 : Dv_j2_Vtnode_GND=((-Dv_p_Vtnode_GND)+((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
11462 : 0 : Dv_j2_Vbi_ci=(Da*De_Vbi_ci*d10_logE0);
11463 : : #endif
11464 : 0 : Dv_j2=((-Dv_p)+(Da*d00_logE0));
11465 : : }
11466 : : #endif
11467 : : }
11468 : : else
11469 : : {
11470 : : #if defined(_DYNAMIC)
11471 : : #if defined(_DERIVATE)
11472 : 0 : De_2_Vsi_ci=0.0;
11473 : 0 : De_2_Vb_ci=0.0;
11474 : 0 : De_2_Vbp_ci=0.0;
11475 : 0 : De_2_Vtnode_GND=0.0;
11476 : 0 : De_2_Vbi_ci=0.0;
11477 : : #endif
11478 : 0 : De_2=1.0;
11479 : : #endif
11480 : : #if defined(_DYNAMIC)
11481 : : #if defined(_DERIVATE)
11482 : 0 : Dv_j2_Vsi_ci=Dv_j1_Vsi_ci;
11483 : 0 : Dv_j2_Vb_ci=Dv_j1_Vb_ci;
11484 : 0 : Dv_j2_Vbp_ci=Dv_j1_Vbp_ci;
11485 : 0 : Dv_j2_Vtnode_GND=Dv_j1_Vtnode_GND;
11486 : 0 : Dv_j2_Vbi_ci=Dv_j1_Vbi_ci;
11487 : : #endif
11488 : 0 : Dv_j2=Dv_j1;
11489 : : #endif
11490 : : }
11491 : : #endif /* if (...) */
11492 : : #if defined(_DYNAMIC)
11493 : : #if defined(_DERIVATE)
11494 : 0 : Dv_j4_Vsi_ci=(Vsici_Vsi_ci-Dv_j1_Vsi_ci);
11495 : 0 : Dv_j4_Vb_ci=(-Dv_j1_Vb_ci);
11496 : 0 : Dv_j4_Vbp_ci=(-Dv_j1_Vbp_ci);
11497 : 0 : Dv_j4_Vbi_ci=(-Dv_j1_Vbi_ci);
11498 : 0 : Dv_j4_Vtnode_GND=(-Dv_j1_Vtnode_GND);
11499 : : #endif
11500 : 0 : Dv_j4=(Vsici-Dv_j1);
11501 : : #endif
11502 : : #if defined(_DYNAMIC)
11503 : : {
11504 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j1/vds_t)))
11505 : : #if defined(_DERIVATE)
11506 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j1/vds_t)))
11507 : : #endif
11508 : : #if defined(_DERIVATE)
11509 : 0 : DCln1_Vsi_ci=(-(Dv_j1_Vsi_ci/vds_t))*d10_logE0;
11510 : 0 : DCln1_Vb_ci=(-(Dv_j1_Vb_ci/vds_t))*d10_logE0;
11511 : 0 : DCln1_Vbp_ci=(-(Dv_j1_Vbp_ci/vds_t))*d10_logE0;
11512 : 0 : DCln1_Vtnode_GND=(-((Dv_j1_Vtnode_GND*vds_t-Dv_j1*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0;
11513 : 0 : DCln1_Vbi_ci=(-(Dv_j1_Vbi_ci/vds_t))*d10_logE0;
11514 : : #endif
11515 : 0 : DCln1=d00_logE0;
11516 : : }
11517 : : #endif
11518 : : #if defined(_DYNAMIC)
11519 : : {
11520 : 0 : double m00_logE(d00_logE0,(1.0-(Dv_j2/vds_t)))
11521 : : #if defined(_DERIVATE)
11522 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j2/vds_t)))
11523 : : #endif
11524 : : #if defined(_DERIVATE)
11525 : 0 : DCln2_Vsi_ci=(-(Dv_j2_Vsi_ci/vds_t))*d10_logE0;
11526 : 0 : DCln2_Vb_ci=(-(Dv_j2_Vb_ci/vds_t))*d10_logE0;
11527 : 0 : DCln2_Vbp_ci=(-(Dv_j2_Vbp_ci/vds_t))*d10_logE0;
11528 : 0 : DCln2_Vtnode_GND=(-((Dv_j2_Vtnode_GND*vds_t-Dv_j2*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0;
11529 : 0 : DCln2_Vbi_ci=(-(Dv_j2_Vbi_ci/vds_t))*d10_logE0;
11530 : : #endif
11531 : 0 : DCln2=d00_logE0;
11532 : : }
11533 : : #endif
11534 : : #if defined(_DYNAMIC)
11535 : 0 : Dz1=(1.0-zs);
11536 : : #endif
11537 : : #if defined(_DYNAMIC)
11538 : 0 : Dzr1=(1.0-Dz_r);
11539 : : #endif
11540 : : #if defined(_DYNAMIC)
11541 : : {
11542 : 0 : double m00_exp(d00_exp0,(DCln2*(-zs)))
11543 : : #if defined(_DERIVATE)
11544 : : #define d10_exp0 d00_exp0
11545 : : #endif
11546 : : #if defined(_DERIVATE)
11547 : 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));
11548 : 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));
11549 : 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));
11550 : 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));
11551 : 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));
11552 : : #endif
11553 : 0 : DC_j1=(((cjs0_t*d00_exp0)*De_1)*De_2);
11554 : : }
11555 : : #endif
11556 : : #if defined(_DYNAMIC)
11557 : : {
11558 : 0 : double m00_exp(d00_exp0,(DCln1*(-Dz_r)))
11559 : : #if defined(_DERIVATE)
11560 : : #define d10_exp0 d00_exp0
11561 : : #endif
11562 : : #if defined(_DERIVATE)
11563 : 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)));
11564 : 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)));
11565 : 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)));
11566 : 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)));
11567 : 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)));
11568 : : #endif
11569 : 0 : DC_j2=((DC_c*d00_exp0)*(1.0-De_2));
11570 : : }
11571 : : #endif
11572 : : #if defined(_DYNAMIC)
11573 : : #if defined(_DERIVATE)
11574 : 0 : DC_j3_Vsi_ci=(DC_max*(-De_1_Vsi_ci));
11575 : 0 : DC_j3_Vb_ci=(DC_max*(-De_1_Vb_ci));
11576 : 0 : DC_j3_Vbp_ci=(DC_max*(-De_1_Vbp_ci));
11577 : 0 : DC_j3_Vtnode_GND=((DC_max_Vtnode_GND*(1.0-De_1))+(DC_max*(-De_1_Vtnode_GND)));
11578 : 0 : DC_j3_Vbi_ci=(DC_max*(-De_1_Vbi_ci));
11579 : : #endif
11580 : 0 : DC_j3=(DC_max*(1.0-De_1));
11581 : : #endif
11582 : : #if defined(_DYNAMIC)
11583 : 0 : c_dummy=((DC_j1+DC_j2)+DC_j3);
11584 : : #endif
11585 : : #if defined(_DYNAMIC)
11586 : : {
11587 : 0 : double m00_exp(d00_exp0,(DCln2*Dz1))
11588 : : #if defined(_DERIVATE)
11589 : : #define d10_exp0 d00_exp0
11590 : : #endif
11591 : : #if defined(_DERIVATE)
11592 : 0 : DQ_j1_Vsi_ci=((cjs0_t*(-DCln2_Vsi_ci*Dz1*d10_exp0))/Dz1);
11593 : 0 : DQ_j1_Vb_ci=((cjs0_t*(-DCln2_Vb_ci*Dz1*d10_exp0))/Dz1);
11594 : 0 : DQ_j1_Vbp_ci=((cjs0_t*(-DCln2_Vbp_ci*Dz1*d10_exp0))/Dz1);
11595 : 0 : DQ_j1_Vtnode_GND=(((cjs0_t_Vtnode_GND*(1.0-d00_exp0))+(cjs0_t*(-DCln2_Vtnode_GND*Dz1*d10_exp0)))/Dz1);
11596 : 0 : DQ_j1_Vbi_ci=((cjs0_t*(-DCln2_Vbi_ci*Dz1*d10_exp0))/Dz1);
11597 : : #endif
11598 : 0 : DQ_j1=((cjs0_t*(1.0-d00_exp0))/Dz1);
11599 : : }
11600 : : #endif
11601 : : #if defined(_DYNAMIC)
11602 : : {
11603 : 0 : double m00_exp(d00_exp0,(DCln1*Dzr1))
11604 : : #if defined(_DERIVATE)
11605 : : #define d10_exp0 d00_exp0
11606 : : #endif
11607 : : #if defined(_DERIVATE)
11608 : 0 : DQ_j2_Vsi_ci=((DC_c*(-DCln1_Vsi_ci*Dzr1*d10_exp0))/Dzr1);
11609 : 0 : DQ_j2_Vb_ci=((DC_c*(-DCln1_Vb_ci*Dzr1*d10_exp0))/Dzr1);
11610 : 0 : DQ_j2_Vbp_ci=((DC_c*(-DCln1_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
11611 : 0 : DQ_j2_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln1_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
11612 : 0 : DQ_j2_Vbi_ci=((DC_c*(-DCln1_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
11613 : : #endif
11614 : 0 : DQ_j2=((DC_c*(1.0-d00_exp0))/Dzr1);
11615 : : }
11616 : : #endif
11617 : : #if defined(_DYNAMIC)
11618 : : {
11619 : 0 : double m00_exp(d00_exp0,(DCln2*Dzr1))
11620 : : #if defined(_DERIVATE)
11621 : : #define d10_exp0 d00_exp0
11622 : : #endif
11623 : : #if defined(_DERIVATE)
11624 : 0 : DQ_j3_Vsi_ci=((DC_c*(-DCln2_Vsi_ci*Dzr1*d10_exp0))/Dzr1);
11625 : 0 : DQ_j3_Vb_ci=((DC_c*(-DCln2_Vb_ci*Dzr1*d10_exp0))/Dzr1);
11626 : 0 : DQ_j3_Vbp_ci=((DC_c*(-DCln2_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
11627 : 0 : DQ_j3_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln2_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
11628 : 0 : DQ_j3_Vbi_ci=((DC_c*(-DCln2_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
11629 : : #endif
11630 : 0 : DQ_j3=((DC_c*(1.0-d00_exp0))/Dzr1);
11631 : : }
11632 : : #endif
11633 : : #if defined(_DYNAMIC)
11634 : : #if defined(_DERIVATE)
11635 : 0 : Qjs_Vbp_ei=0.0;
11636 : 0 : Qjs_Vbi_ei=0.0;
11637 : 0 : Qjs_Vsi_ci=(((DQ_j1_Vsi_ci+DQ_j2_Vsi_ci)-DQ_j3_Vsi_ci)*vds_t+(DC_max*Dv_j4_Vsi_ci));
11638 : 0 : Qjs_Vb_ci=(((DQ_j1_Vb_ci+DQ_j2_Vb_ci)-DQ_j3_Vb_ci)*vds_t+(DC_max*Dv_j4_Vb_ci));
11639 : 0 : Qjs_Vbp_ci=(((DQ_j1_Vbp_ci+DQ_j2_Vbp_ci)-DQ_j3_Vbp_ci)*vds_t+(DC_max*Dv_j4_Vbp_ci));
11640 : 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)));
11641 : 0 : Qjs_Vbi_ci=(((DQ_j1_Vbi_ci+DQ_j2_Vbi_ci)-DQ_j3_Vbi_ci)*vds_t+(DC_max*Dv_j4_Vbi_ci));
11642 : : #endif
11643 : 0 : Qjs=((((DQ_j1+DQ_j2)-DQ_j3)*vds_t)+(DC_max*Dv_j4));
11644 : : #endif
11645 : : }
11646 : : else
11647 : : {
11648 : : #if defined(_DYNAMIC)
11649 : 0 : c_dummy=0.0;
11650 : : #endif
11651 : : #if defined(_DYNAMIC)
11652 : : #if defined(_DERIVATE)
11653 : 0 : Qjs_Vbp_ei=0.0;
11654 : 0 : Qjs_Vbi_ei=0.0;
11655 : 0 : Qjs_Vsi_ci=0.0;
11656 : 0 : Qjs_Vb_ci=0.0;
11657 : 0 : Qjs_Vbp_ci=0.0;
11658 : 0 : Qjs_Vtnode_GND=0.0;
11659 : 0 : Qjs_Vbi_ci=0.0;
11660 : : #endif
11661 : 0 : Qjs=0.0;
11662 : : #endif
11663 : : }
11664 : : #endif /* if (...) */
11665 : : }
11666 : : else
11667 : : {
11668 : : #ifdef _DYNAMIC
11669 [ # # ]: 0 : if
11670 : : (cjs0_t>0.0)
11671 : : {
11672 : : #if defined(_DYNAMIC)
11673 : : {
11674 : 0 : double m00_logE(d00_logE0,2.4)
11675 : 0 : double m00_exp(d00_exp1,((-d00_logE0)/zs))
11676 : : #if defined(_DERIVATE)
11677 : 0 : DFV_f_Vtnode_GND=vds_t_Vtnode_GND*(1.0-d00_exp1);
11678 : : #endif
11679 : 0 : DFV_f=(vds_t*(1.0-d00_exp1));
11680 : : }
11681 : : #endif
11682 : : #if defined(_DYNAMIC)
11683 : : #if defined(_DERIVATE)
11684 : 0 : DFv_e_Vsi_ci=((-Vsici_Vsi_ci)/VT);
11685 : 0 : DFv_e_Vb_ci=0.0;
11686 : 0 : DFv_e_Vbp_ci=0.0;
11687 : 0 : DFv_e_Vbp_ei=0.0;
11688 : 0 : DFv_e_Vbi_ci=0.0;
11689 : 0 : DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-Vsici)*VT_Vtnode_GND)/VT/VT);
11690 : 0 : DFv_e_Vbi_ei=0.0;
11691 : : #endif
11692 : 0 : DFv_e=((DFV_f-Vsici)/VT);
11693 : : #endif
11694 : : #if defined(_DYNAMIC)
11695 : : {
11696 : 0 : double m00_sqrt(d00_sqrt0,((DFv_e*DFv_e)+1.921812))
11697 : : #if defined(_DERIVATE)
11698 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,((DFv_e*DFv_e)+1.921812))
11699 : : #endif
11700 : : #if defined(_DERIVATE)
11701 : 0 : DFs_q_Vsi_ci=((DFv_e_Vsi_ci*DFv_e)+(DFv_e*DFv_e_Vsi_ci))*d10_sqrt0;
11702 : 0 : DFs_q_Vb_ci=((DFv_e_Vb_ci*DFv_e)+(DFv_e*DFv_e_Vb_ci))*d10_sqrt0;
11703 : 0 : DFs_q_Vbp_ci=((DFv_e_Vbp_ci*DFv_e)+(DFv_e*DFv_e_Vbp_ci))*d10_sqrt0;
11704 : 0 : DFs_q_Vbp_ei=((DFv_e_Vbp_ei*DFv_e)+(DFv_e*DFv_e_Vbp_ei))*d10_sqrt0;
11705 : 0 : DFs_q_Vbi_ci=((DFv_e_Vbi_ci*DFv_e)+(DFv_e*DFv_e_Vbi_ci))*d10_sqrt0;
11706 : 0 : DFs_q_Vtnode_GND=((DFv_e_Vtnode_GND*DFv_e)+(DFv_e*DFv_e_Vtnode_GND))*d10_sqrt0;
11707 : 0 : DFs_q_Vbi_ei=((DFv_e_Vbi_ei*DFv_e)+(DFv_e*DFv_e_Vbi_ei))*d10_sqrt0;
11708 : : #endif
11709 : 0 : DFs_q=d00_sqrt0;
11710 : : }
11711 : : #endif
11712 : : #if defined(_DYNAMIC)
11713 : : #if defined(_DERIVATE)
11714 : 0 : DFs_q2_Vsi_ci=(DFv_e_Vsi_ci+DFs_q_Vsi_ci)*0.5;
11715 : 0 : DFs_q2_Vb_ci=(DFv_e_Vb_ci+DFs_q_Vb_ci)*0.5;
11716 : 0 : DFs_q2_Vbp_ci=(DFv_e_Vbp_ci+DFs_q_Vbp_ci)*0.5;
11717 : 0 : DFs_q2_Vbp_ei=(DFv_e_Vbp_ei+DFs_q_Vbp_ei)*0.5;
11718 : 0 : DFs_q2_Vbi_ci=(DFv_e_Vbi_ci+DFs_q_Vbi_ci)*0.5;
11719 : 0 : DFs_q2_Vtnode_GND=(DFv_e_Vtnode_GND+DFs_q_Vtnode_GND)*0.5;
11720 : 0 : DFs_q2_Vbi_ei=(DFv_e_Vbi_ei+DFs_q_Vbi_ei)*0.5;
11721 : : #endif
11722 : 0 : DFs_q2=((DFv_e+DFs_q)*0.5);
11723 : : #endif
11724 : : #if defined(_DYNAMIC)
11725 : : #if defined(_DERIVATE)
11726 : 0 : DFv_j_Vsi_ci=(-(VT*DFs_q2_Vsi_ci));
11727 : 0 : DFv_j_Vb_ci=(-(VT*DFs_q2_Vb_ci));
11728 : 0 : DFv_j_Vbp_ci=(-(VT*DFs_q2_Vbp_ci));
11729 : 0 : DFv_j_Vbp_ei=(-(VT*DFs_q2_Vbp_ei));
11730 : 0 : DFv_j_Vbi_ci=(-(VT*DFs_q2_Vbi_ci));
11731 : 0 : DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*DFs_q2)+(VT*DFs_q2_Vtnode_GND)));
11732 : 0 : DFv_j_Vbi_ei=(-(VT*DFs_q2_Vbi_ei));
11733 : : #endif
11734 : 0 : DFv_j=(DFV_f-(VT*DFs_q2));
11735 : : #endif
11736 : : #if defined(_DYNAMIC)
11737 : : #if defined(_DERIVATE)
11738 : 0 : DFdvj_dv_Vsi_ci=((DFs_q2_Vsi_ci*DFs_q-DFs_q2*DFs_q_Vsi_ci)/DFs_q/DFs_q);
11739 : 0 : DFdvj_dv_Vb_ci=((DFs_q2_Vb_ci*DFs_q-DFs_q2*DFs_q_Vb_ci)/DFs_q/DFs_q);
11740 : 0 : DFdvj_dv_Vbp_ci=((DFs_q2_Vbp_ci*DFs_q-DFs_q2*DFs_q_Vbp_ci)/DFs_q/DFs_q);
11741 : 0 : DFdvj_dv_Vbp_ei=((DFs_q2_Vbp_ei*DFs_q-DFs_q2*DFs_q_Vbp_ei)/DFs_q/DFs_q);
11742 : 0 : DFdvj_dv_Vbi_ci=((DFs_q2_Vbi_ci*DFs_q-DFs_q2*DFs_q_Vbi_ci)/DFs_q/DFs_q);
11743 : 0 : DFdvj_dv_Vtnode_GND=((DFs_q2_Vtnode_GND*DFs_q-DFs_q2*DFs_q_Vtnode_GND)/DFs_q/DFs_q);
11744 : 0 : DFdvj_dv_Vbi_ei=((DFs_q2_Vbi_ei*DFs_q-DFs_q2*DFs_q_Vbi_ei)/DFs_q/DFs_q);
11745 : : #endif
11746 : 0 : DFdvj_dv=(DFs_q2/DFs_q);
11747 : : #endif
11748 : : #if defined(_DYNAMIC)
11749 : : {
11750 : 0 : double m00_logE(d00_logE0,(1.0-(DFv_j/vds_t)))
11751 : : #if defined(_DERIVATE)
11752 : 0 : double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vds_t)))
11753 : : #endif
11754 : : #if defined(_DERIVATE)
11755 : 0 : DFb_Vsi_ci=(-(DFv_j_Vsi_ci/vds_t))*d10_logE0;
11756 : 0 : DFb_Vb_ci=(-(DFv_j_Vb_ci/vds_t))*d10_logE0;
11757 : 0 : DFb_Vbp_ci=(-(DFv_j_Vbp_ci/vds_t))*d10_logE0;
11758 : 0 : DFb_Vbp_ei=(-(DFv_j_Vbp_ei/vds_t))*d10_logE0;
11759 : 0 : DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vds_t))*d10_logE0;
11760 : 0 : DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vds_t-DFv_j*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0;
11761 : 0 : DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vds_t))*d10_logE0;
11762 : : #endif
11763 : 0 : DFb=d00_logE0;
11764 : : }
11765 : : #endif
11766 : : #if defined(_DYNAMIC)
11767 : : {
11768 : 0 : double m00_exp(d00_exp0,((-zs)*DFb))
11769 : : #if defined(_DERIVATE)
11770 : : #define d10_exp0 d00_exp0
11771 : : #endif
11772 : : #if defined(_DERIVATE)
11773 : 0 : DFC_j1_Vsi_ci=(((cjs0_t*((-zs)*DFb_Vsi_ci)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vsi_ci));
11774 : 0 : DFC_j1_Vb_ci=(((cjs0_t*((-zs)*DFb_Vb_ci)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vb_ci));
11775 : 0 : DFC_j1_Vbp_ci=(((cjs0_t*((-zs)*DFb_Vbp_ci)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vbp_ci));
11776 : 0 : DFC_j1_Vbp_ei=(((cjs0_t*((-zs)*DFb_Vbp_ei)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vbp_ei));
11777 : 0 : DFC_j1_Vbi_ci=(((cjs0_t*((-zs)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vbi_ci));
11778 : 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));
11779 : 0 : DFC_j1_Vbi_ei=(((cjs0_t*((-zs)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
11780 : : #endif
11781 : 0 : DFC_j1=((cjs0_t*d00_exp0)*DFdvj_dv);
11782 : : }
11783 : : #endif
11784 : : #if defined(_DYNAMIC)
11785 : 0 : c_dummy=(DFC_j1+((2.4*cjs0_t)*(1.0-DFdvj_dv)));
11786 : : #endif
11787 : : #if defined(_DYNAMIC)
11788 : : {
11789 : 0 : double m00_exp(d00_exp0,(DFb*(1.0-zs)))
11790 : : #if defined(_DERIVATE)
11791 : : #define d10_exp0 d00_exp0
11792 : : #endif
11793 : : #if defined(_DERIVATE)
11794 : 0 : DFQ_j_Vsi_ci=(((cjs0_t*vds_t)*(-DFb_Vsi_ci*(1.0-zs)*d10_exp0))/(1.0-zs));
11795 : 0 : DFQ_j_Vb_ci=(((cjs0_t*vds_t)*(-DFb_Vb_ci*(1.0-zs)*d10_exp0))/(1.0-zs));
11796 : 0 : DFQ_j_Vbp_ci=(((cjs0_t*vds_t)*(-DFb_Vbp_ci*(1.0-zs)*d10_exp0))/(1.0-zs));
11797 : 0 : DFQ_j_Vbp_ei=(((cjs0_t*vds_t)*(-DFb_Vbp_ei*(1.0-zs)*d10_exp0))/(1.0-zs));
11798 : 0 : DFQ_j_Vbi_ci=(((cjs0_t*vds_t)*(-DFb_Vbi_ci*(1.0-zs)*d10_exp0))/(1.0-zs));
11799 : 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));
11800 : 0 : DFQ_j_Vbi_ei=(((cjs0_t*vds_t)*(-DFb_Vbi_ei*(1.0-zs)*d10_exp0))/(1.0-zs));
11801 : : #endif
11802 : 0 : DFQ_j=(((cjs0_t*vds_t)*(1.0-d00_exp0))/(1.0-zs));
11803 : : }
11804 : : #endif
11805 : : #if defined(_DYNAMIC)
11806 : : #if defined(_DERIVATE)
11807 : 0 : Qjs_Vbp_ei=(DFQ_j_Vbp_ei+((2.4*cjs0_t)*(-DFv_j_Vbp_ei)));
11808 : 0 : Qjs_Vbi_ei=(DFQ_j_Vbi_ei+((2.4*cjs0_t)*(-DFv_j_Vbi_ei)));
11809 : 0 : Qjs_Vsi_ci=(DFQ_j_Vsi_ci+((2.4*cjs0_t)*(Vsici_Vsi_ci-DFv_j_Vsi_ci)));
11810 : 0 : Qjs_Vb_ci=(DFQ_j_Vb_ci+((2.4*cjs0_t)*(-DFv_j_Vb_ci)));
11811 : 0 : Qjs_Vbp_ci=(DFQ_j_Vbp_ci+((2.4*cjs0_t)*(-DFv_j_Vbp_ci)));
11812 : 0 : Qjs_Vtnode_GND=(DFQ_j_Vtnode_GND+(((2.4*cjs0_t_Vtnode_GND)*(Vsici-DFv_j))+((2.4*cjs0_t)*(-DFv_j_Vtnode_GND))));
11813 : 0 : Qjs_Vbi_ci=(DFQ_j_Vbi_ci+((2.4*cjs0_t)*(-DFv_j_Vbi_ci)));
11814 : : #endif
11815 : 0 : Qjs=(DFQ_j+((2.4*cjs0_t)*(Vsici-DFv_j)));
11816 : : #endif
11817 : : }
11818 : : else
11819 : : {
11820 : : #if defined(_DYNAMIC)
11821 : 0 : c_dummy=0.0;
11822 : : #endif
11823 : : #if defined(_DYNAMIC)
11824 : : #if defined(_DERIVATE)
11825 : 0 : Qjs_Vbp_ei=0.0;
11826 : 0 : Qjs_Vbi_ei=0.0;
11827 : 0 : Qjs_Vsi_ci=0.0;
11828 : 0 : Qjs_Vb_ci=0.0;
11829 : 0 : Qjs_Vbp_ci=0.0;
11830 : 0 : Qjs_Vtnode_GND=0.0;
11831 : 0 : Qjs_Vbi_ci=0.0;
11832 : : #endif
11833 : 0 : Qjs=0.0;
11834 : : #endif
11835 : : }
11836 : : #endif /* if (...) */
11837 : : }
11838 : : #endif /* if (...) */
11839 [ # # ]: 0 : if
11840 : : (itss>0.0)
11841 : : {
11842 : : #if defined(_DERIVATE)
11843 : 0 : HSUM_Vtnode_GND=(msf*VT_Vtnode_GND);
11844 : : #endif
11845 : 0 : HSUM=(msf*VT);
11846 : : {
11847 [ # # ]: 0 : double m00_limexp(d00_limexp0,(Vbpci/HSUM))
11848 : : #if defined(_DERIVATE)
11849 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,(Vbpci/HSUM))
11850 : : #endif
11851 : : #if defined(_DERIVATE)
11852 : 0 : HSa_Vbp_ci=(Vbpci_Vbp_ci/HSUM)*d10_limexp0;
11853 : 0 : HSa_Vtnode_GND=(-Vbpci*HSUM_Vtnode_GND/HSUM/HSUM)*d10_limexp0;
11854 : : #endif
11855 : 0 : HSa=d00_limexp0;
11856 : : }
11857 : : {
11858 [ # # ]: 0 : double m00_limexp(d00_limexp0,(Vsici/HSUM))
11859 : : #if defined(_DERIVATE)
11860 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,(Vsici/HSUM))
11861 : : #endif
11862 : : #if defined(_DERIVATE)
11863 : 0 : HSb_Vsi_ci=(Vsici_Vsi_ci/HSUM)*d10_limexp0;
11864 : 0 : HSb_Vtnode_GND=(-Vsici*HSUM_Vtnode_GND/HSUM/HSUM)*d10_limexp0;
11865 : : #endif
11866 : 0 : HSb=d00_limexp0;
11867 : : }
11868 : : #if defined(_DERIVATE)
11869 : 0 : HSI_Tsu_Vtnode_GND=((itss_t_Vtnode_GND*(HSa-HSb))+(itss_t*(HSa_Vtnode_GND-HSb_Vtnode_GND)));
11870 : 0 : HSI_Tsu_Vbp_ci=(itss_t*HSa_Vbp_ci);
11871 : 0 : HSI_Tsu_Vsi_ci=(itss_t*(-HSb_Vsi_ci));
11872 : : #endif
11873 : 0 : HSI_Tsu=(itss_t*(HSa-HSb));
11874 : : #ifdef _DYNAMIC
11875 [ # # ]: 0 : if
11876 : : (tsf>0.0)
11877 : : {
11878 : : #if defined(_DYNAMIC)
11879 : : #if defined(_DERIVATE)
11880 : 0 : Qdsu_Vtnode_GND=((((tsf_t_Vtnode_GND*itss_t)+(tsf_t*itss_t_Vtnode_GND))*HSa)+((tsf_t*itss_t)*HSa_Vtnode_GND));
11881 : 0 : Qdsu_Vbp_ci=((tsf_t*itss_t)*HSa_Vbp_ci);
11882 : : #endif
11883 : 0 : Qdsu=((tsf_t*itss_t)*HSa);
11884 : : #endif
11885 : : }
11886 : : else
11887 : : {
11888 : : #if defined(_DYNAMIC)
11889 : : #if defined(_DERIVATE)
11890 : 0 : Qdsu_Vtnode_GND=0.0;
11891 : 0 : Qdsu_Vbp_ci=0.0;
11892 : : #endif
11893 : 0 : Qdsu=0.0;
11894 : : #endif
11895 : : }
11896 : : #endif /* if (...) */
11897 : : }
11898 : : else
11899 : : {
11900 : : #if defined(_DERIVATE)
11901 : 0 : HSI_Tsu_Vtnode_GND=0.0;
11902 : 0 : HSI_Tsu_Vbp_ci=0.0;
11903 : 0 : HSI_Tsu_Vsi_ci=0.0;
11904 : : #endif
11905 : 0 : HSI_Tsu=0.0;
11906 : : #if defined(_DYNAMIC)
11907 : : #if defined(_DERIVATE)
11908 : 0 : Qdsu_Vtnode_GND=0.0;
11909 : 0 : Qdsu_Vbp_ci=0.0;
11910 : : #endif
11911 : 0 : Qdsu=0.0;
11912 : : #endif
11913 : : }
11914 : : #if defined(_DYNAMIC)
11915 : : #if defined(_DERIVATE)
11916 : 0 : betad_Vtnode_GND=ibei_Vtnode_GND;
11917 : 0 : betad_Vbi_ei=ibei_Vbi_ei;
11918 : : #endif
11919 : 0 : betad=ibei;
11920 : : #endif
11921 : : #ifdef _DYNAMIC
11922 [ # # ]: 0 : if
11923 : : (betad>0.0)
11924 : : {
11925 : : #if defined(_DYNAMIC)
11926 : 0 : betadin=betad;
11927 : : #endif
11928 : : #if defined(_DYNAMIC)
11929 : : #if defined(_DERIVATE)
11930 : 0 : betan_Vci_ei=it_Vci_ei;
11931 : 0 : betan_Vtnode_GND=it_Vtnode_GND;
11932 : 0 : betan_Vbi_ei=it_Vbi_ei;
11933 : 0 : betan_Vbi_ci=it_Vbi_ci;
11934 : : #endif
11935 : 0 : betan=it;
11936 : : #endif
11937 : : #if defined(_DYNAMIC)
11938 : : #if defined(_DERIVATE)
11939 : 0 : betadc_Vci_ei=(betan_Vci_ei/betad);
11940 : 0 : betadc_Vtnode_GND=((betan_Vtnode_GND*betad-betan*betad_Vtnode_GND)/betad/betad);
11941 : 0 : betadc_Vbi_ei=((betan_Vbi_ei*betad-betan*betad_Vbi_ei)/betad/betad);
11942 : 0 : betadc_Vbi_ci=(betan_Vbi_ci/betad);
11943 : : #endif
11944 : 0 : betadc=(betan/betad);
11945 : : #endif
11946 : : }
11947 : : else
11948 : : {
11949 : : #if defined(_DYNAMIC)
11950 : : #if defined(_DERIVATE)
11951 : 0 : betadc_Vci_ei=0.0;
11952 : 0 : betadc_Vtnode_GND=0.0;
11953 : 0 : betadc_Vbi_ei=0.0;
11954 : 0 : betadc_Vbi_ci=0.0;
11955 : : #endif
11956 : 0 : betadc=0.0;
11957 : : #endif
11958 : : }
11959 : : #endif /* if (...) */
11960 : : #if defined(_DERIVATE)
11961 : 0 : DIOY_Vsi_ci=(Vsici_Vsi_ci/(msc*VT));
11962 : 0 : DIOY_Vbp_ci=0.0;
11963 : 0 : DIOY_Vbp_ei=0.0;
11964 : 0 : DIOY_Vbi_ci=0.0;
11965 : 0 : DIOY_Vbi_ei=0.0;
11966 : 0 : DIOY_Vtnode_GND=(-Vsici*(msc*VT_Vtnode_GND)/(msc*VT)/(msc*VT));
11967 : : #endif
11968 : 0 : DIOY=(Vsici/(msc*VT));
11969 [ # # ]: 0 : if
11970 : : (iscs>0.0)
11971 : : {
11972 [ # # ]: 0 : if
11973 : : (DIOY>80.0)
11974 : : {
11975 : : #if defined(_DERIVATE)
11976 : 0 : le_Vsi_ci=DIOY_Vsi_ci;
11977 : 0 : le_Vbp_ci=DIOY_Vbp_ci;
11978 : 0 : le_Vbp_ei=DIOY_Vbp_ei;
11979 : 0 : le_Vbi_ci=DIOY_Vbi_ci;
11980 : 0 : le_Vbi_ei=DIOY_Vbi_ei;
11981 : 0 : le_Vtnode_GND=DIOY_Vtnode_GND;
11982 : : #endif
11983 : 0 : le=(1+(DIOY-80.0));
11984 : : #if defined(_DERIVATE)
11985 : 0 : DIOY_Vsi_ci=0.0;
11986 : 0 : DIOY_Vbp_ci=0.0;
11987 : 0 : DIOY_Vbp_ei=0.0;
11988 : 0 : DIOY_Vbi_ci=0.0;
11989 : 0 : DIOY_Vbi_ei=0.0;
11990 : 0 : DIOY_Vtnode_GND=0.0;
11991 : : #endif
11992 : 0 : DIOY=80.0;
11993 : : }
11994 : : else
11995 : : {
11996 : : #if defined(_DERIVATE)
11997 : 0 : le_Vsi_ci=0.0;
11998 : 0 : le_Vbp_ci=0.0;
11999 : 0 : le_Vbp_ei=0.0;
12000 : 0 : le_Vbi_ci=0.0;
12001 : 0 : le_Vbi_ei=0.0;
12002 : 0 : le_Vtnode_GND=0.0;
12003 : : #endif
12004 : 0 : le=1;
12005 : : }
12006 : : {
12007 [ # # ]: 0 : double m00_limexp(d00_limexp0,DIOY)
12008 : : #if defined(_DERIVATE)
12009 [ # # ]: 0 : double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
12010 : : #endif
12011 : : #if defined(_DERIVATE)
12012 : 0 : le_Vsi_ci=((le_Vsi_ci*d00_limexp0)+(le*DIOY_Vsi_ci*d10_limexp0));
12013 : 0 : le_Vbp_ci=((le_Vbp_ci*d00_limexp0)+(le*DIOY_Vbp_ci*d10_limexp0));
12014 : 0 : le_Vbp_ei=((le_Vbp_ei*d00_limexp0)+(le*DIOY_Vbp_ei*d10_limexp0));
12015 : 0 : le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
12016 : 0 : le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
12017 : 0 : le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
12018 : : #endif
12019 : 0 : le=(le*d00_limexp0);
12020 : : }
12021 : : #if defined(_DERIVATE)
12022 : 0 : ijsc_Vtnode_GND=((iscs_t_Vtnode_GND*(le-1.0))+(iscs_t*le_Vtnode_GND));
12023 : 0 : ijsc_Vsi_ci=(iscs_t*le_Vsi_ci);
12024 : 0 : ijsc_Vbp_ci=(iscs_t*le_Vbp_ci);
12025 : 0 : ijsc_Vbp_ei=(iscs_t*le_Vbp_ei);
12026 : 0 : ijsc_Vbi_ci=(iscs_t*le_Vbi_ci);
12027 : 0 : ijsc_Vbi_ei=(iscs_t*le_Vbi_ei);
12028 : : #endif
12029 : 0 : ijsc=(iscs_t*(le-1.0));
12030 [ # # ]: 0 : if
12031 : : (DIOY<=(-14.0))
12032 : : {
12033 : : #if defined(_DERIVATE)
12034 : 0 : ijsc_Vtnode_GND=(-iscs_t_Vtnode_GND);
12035 : 0 : ijsc_Vsi_ci=0.0;
12036 : 0 : ijsc_Vbp_ci=0.0;
12037 : 0 : ijsc_Vbp_ei=0.0;
12038 : 0 : ijsc_Vbi_ci=0.0;
12039 : 0 : ijsc_Vbi_ei=0.0;
12040 : : #endif
12041 : 0 : ijsc=(-iscs_t);
12042 : : }
12043 : : }
12044 : : else
12045 : : {
12046 : : #if defined(_DERIVATE)
12047 : 0 : ijsc_Vtnode_GND=0.0;
12048 : 0 : ijsc_Vsi_ci=0.0;
12049 : 0 : ijsc_Vbp_ci=0.0;
12050 : 0 : ijsc_Vbp_ei=0.0;
12051 : 0 : ijsc_Vbi_ci=0.0;
12052 : 0 : ijsc_Vbi_ei=0.0;
12053 : : #endif
12054 : 0 : ijsc=0.0;
12055 : : }
12056 [ # # ][ # # ]: 0 : if
12057 : : ((flsh==1)&&(rth>=0.001))
12058 : : {
12059 : : #if defined(_DERIVATE)
12060 : 0 : pterm_Vb_bp=0.0;
12061 : 0 : pterm_Vci_c=0.0;
12062 : 0 : pterm_Vei_e=0.0;
12063 : 0 : pterm_Vbp_bi=0.0;
12064 : 0 : pterm_Vbp_ei=0.0;
12065 : 0 : pterm_Vbp_ci=0.0;
12066 : 0 : pterm_Vsi_ci=0.0;
12067 : 0 : pterm_Vci_ei=(((Vciei_Vci_ei*it)+(Vciei*it_Vci_ei))+((vdci_t-Vbici)*iavl_Vci_ei));
12068 : 0 : pterm_Vtnode_GND=((Vciei*it_Vtnode_GND)+((vdci_t_Vtnode_GND*iavl)+((vdci_t-Vbici)*iavl_Vtnode_GND)));
12069 : 0 : pterm_Vbi_ei=((Vciei*it_Vbi_ei)+((vdci_t-Vbici)*iavl_Vbi_ei));
12070 : 0 : pterm_Vbi_ci=((Vciei*it_Vbi_ci)+(((-Vbici_Vbi_ci)*iavl)+((vdci_t-Vbici)*iavl_Vbi_ci)));
12071 : : #endif
12072 : 0 : pterm=((Vciei*it)+((vdci_t-Vbici)*iavl));
12073 : : }
12074 : : else
12075 : : {
12076 [ # # ][ # # ]: 0 : if
12077 : : ((flsh==2)&&(rth>=0.001))
12078 : : {
12079 : : #if defined(_DERIVATE)
12080 : 0 : pterm_Vb_bp=0.0;
12081 : 0 : pterm_Vci_c=0.0;
12082 : 0 : pterm_Vei_e=0.0;
12083 : 0 : pterm_Vbp_bi=0.0;
12084 : 0 : pterm_Vbp_ei=((((ibep_Vbp_ei*Vbpei)+(ibep*Vbpei_Vbp_ei))+ijbcx_Vbp_ei*Vbpci)+ijsc_Vbp_ei*Vsici);
12085 : 0 : pterm_Vbp_ci=(((ijbcx_Vbp_ci*Vbpci)+(ijbcx*Vbpci_Vbp_ci))+ijsc_Vbp_ci*Vsici);
12086 : 0 : pterm_Vsi_ci=((ijsc_Vsi_ci*Vsici)+(ijsc*Vsici_Vsi_ci));
12087 : 0 : pterm_Vci_ei=(((Vciei_Vci_ei*it)+(Vciei*it_Vci_ei))+((vdci_t-Vbici)*iavl_Vci_ei));
12088 : 0 : pterm_Vtnode_GND=(((((((Vciei*it_Vtnode_GND)+((vdci_t_Vtnode_GND*iavl)+((vdci_t-Vbici)*iavl_Vtnode_GND)))+ibei_Vtnode_GND*Vbiei)+ibci_Vtnode_GND*Vbici)+ibep_Vtnode_GND*Vbpei)+ijbcx_Vtnode_GND*Vbpci)+ijsc_Vtnode_GND*Vsici);
12089 : 0 : pterm_Vbi_ei=(((((((Vciei*it_Vbi_ei)+((vdci_t-Vbici)*iavl_Vbi_ei))+((ibei_Vbi_ei*Vbiei)+(ibei*Vbiei_Vbi_ei)))+ibci_Vbi_ei*Vbici)+ibep_Vbi_ei*Vbpei)+ijbcx_Vbi_ei*Vbpci)+ijsc_Vbi_ei*Vsici);
12090 : 0 : pterm_Vbi_ci=((((((Vciei*it_Vbi_ci)+(((-Vbici_Vbi_ci)*iavl)+((vdci_t-Vbici)*iavl_Vbi_ci)))+((ibci_Vbi_ci*Vbici)+(ibci*Vbici_Vbi_ci)))+ibep_Vbi_ci*Vbpei)+ijbcx_Vbi_ci*Vbpci)+ijsc_Vbi_ci*Vsici);
12091 : : #endif
12092 : 0 : pterm=(((((((Vciei*it)+((vdci_t-Vbici)*iavl))+(ibei*Vbiei))+(ibci*Vbici))+(ibep*Vbpei))+(ijbcx*Vbpci))+(ijsc*Vsici));
12093 [ # # ]: 0 : if
12094 : : (rbi>=0.001)
12095 : : {
12096 : : #if defined(_DERIVATE)
12097 : 0 : pterm_Vb_bp=0.0;
12098 : 0 : pterm_Vci_c=0.0;
12099 : 0 : pterm_Vei_e=0.0;
12100 [ # # ][ # # ]: 0 : pterm_Vbp_bi=(pterm_Vbp_bi+((BP(bp,bi)+BP(bp,bi))/rbi));
[ # # ]
12101 : 0 : pterm_Vbp_ei=pterm_Vbp_ei;
12102 : 0 : pterm_Vbp_ci=pterm_Vbp_ci;
12103 : 0 : pterm_Vsi_ci=pterm_Vsi_ci;
12104 [ # # ][ # # ]: 0 : pterm_Vci_ei=(pterm_Vci_ei+(-(BP(bp,bi)*BP(bp,bi))*rbi_Vci_ei/rbi/rbi));
[ # # ]
12105 [ # # ][ # # ]: 0 : pterm_Vtnode_GND=(pterm_Vtnode_GND+(-(BP(bp,bi)*BP(bp,bi))*rbi_Vtnode_GND/rbi/rbi));
[ # # ]
12106 [ # # ][ # # ]: 0 : pterm_Vbi_ei=(pterm_Vbi_ei+(-(BP(bp,bi)*BP(bp,bi))*rbi_Vbi_ei/rbi/rbi));
[ # # ]
12107 [ # # ][ # # ]: 0 : pterm_Vbi_ci=(pterm_Vbi_ci+(-(BP(bp,bi)*BP(bp,bi))*rbi_Vbi_ci/rbi/rbi));
[ # # ]
12108 : : #endif
12109 [ # # ][ # # ]: 0 : pterm=(pterm+((BP(bp,bi)*BP(bp,bi))/rbi));
[ # # ]
12110 : : }
12111 [ # # ]: 0 : if
12112 : : (re_t>=0.001)
12113 : : {
12114 : : #if defined(_DERIVATE)
12115 : 0 : pterm_Vb_bp=0.0;
12116 : 0 : pterm_Vci_c=0.0;
12117 [ # # ][ # # ]: 0 : pterm_Vei_e=(pterm_Vei_e+((BP(ei,e)+BP(ei,e))/re_t));
[ # # ]
12118 : 0 : pterm_Vbp_bi=pterm_Vbp_bi;
12119 : 0 : pterm_Vbp_ei=pterm_Vbp_ei;
12120 : 0 : pterm_Vbp_ci=pterm_Vbp_ci;
12121 : 0 : pterm_Vsi_ci=pterm_Vsi_ci;
12122 : 0 : pterm_Vci_ei=pterm_Vci_ei;
12123 [ # # ][ # # ]: 0 : pterm_Vtnode_GND=(pterm_Vtnode_GND+(-(BP(ei,e)*BP(ei,e))*re_t_Vtnode_GND/re_t/re_t));
[ # # ]
12124 : 0 : pterm_Vbi_ei=pterm_Vbi_ei;
12125 : 0 : pterm_Vbi_ci=pterm_Vbi_ci;
12126 : : #endif
12127 [ # # ][ # # ]: 0 : pterm=(pterm+((BP(ei,e)*BP(ei,e))/re_t));
[ # # ]
12128 : : }
12129 [ # # ]: 0 : if
12130 : : (rcx_t>=0.001)
12131 : : {
12132 : : #if defined(_DERIVATE)
12133 : 0 : pterm_Vb_bp=0.0;
12134 [ # # ][ # # ]: 0 : pterm_Vci_c=(pterm_Vci_c+((BP(ci,c)+BP(ci,c))/rcx_t));
[ # # ]
12135 : 0 : pterm_Vei_e=pterm_Vei_e;
12136 : 0 : pterm_Vbp_bi=pterm_Vbp_bi;
12137 : 0 : pterm_Vbp_ei=pterm_Vbp_ei;
12138 : 0 : pterm_Vbp_ci=pterm_Vbp_ci;
12139 : 0 : pterm_Vsi_ci=pterm_Vsi_ci;
12140 : 0 : pterm_Vci_ei=pterm_Vci_ei;
12141 [ # # ][ # # ]: 0 : pterm_Vtnode_GND=(pterm_Vtnode_GND+(-(BP(ci,c)*BP(ci,c))*rcx_t_Vtnode_GND/rcx_t/rcx_t));
[ # # ]
12142 : 0 : pterm_Vbi_ei=pterm_Vbi_ei;
12143 : 0 : pterm_Vbi_ci=pterm_Vbi_ci;
12144 : : #endif
12145 [ # # ][ # # ]: 0 : pterm=(pterm+((BP(ci,c)*BP(ci,c))/rcx_t));
[ # # ]
12146 : : }
12147 [ # # ]: 0 : if
12148 : : (rbx_t>=0.001)
12149 : : {
12150 : : #if defined(_DERIVATE)
12151 [ # # ][ # # ]: 0 : pterm_Vb_bp=(pterm_Vb_bp+((BP(b,bp)+BP(b,bp))/rbx_t));
[ # # ]
12152 : 0 : pterm_Vci_c=pterm_Vci_c;
12153 : 0 : pterm_Vei_e=pterm_Vei_e;
12154 : 0 : pterm_Vbp_bi=pterm_Vbp_bi;
12155 : 0 : pterm_Vbp_ei=pterm_Vbp_ei;
12156 : 0 : pterm_Vbp_ci=pterm_Vbp_ci;
12157 : 0 : pterm_Vsi_ci=pterm_Vsi_ci;
12158 : 0 : pterm_Vci_ei=pterm_Vci_ei;
12159 [ # # ][ # # ]: 0 : pterm_Vtnode_GND=(pterm_Vtnode_GND+(-(BP(b,bp)*BP(b,bp))*rbx_t_Vtnode_GND/rbx_t/rbx_t));
[ # # ]
12160 : 0 : pterm_Vbi_ei=pterm_Vbi_ei;
12161 : 0 : pterm_Vbi_ci=pterm_Vbi_ci;
12162 : : #endif
12163 [ # # ][ # # ]: 0 : pterm=(pterm+((BP(b,bp)*BP(b,bp))/rbx_t));
[ # # ]
12164 : : }
12165 : : }
12166 : : }
12167 : : #if defined(_DERIVATE)
12168 : 0 : Itxf_Vxf2_GND=0.0;
12169 : 0 : Itxf_Vci_ei=itf_Vci_ei;
12170 : 0 : Itxf_Vtnode_GND=itf_Vtnode_GND;
12171 : 0 : Itxf_Vbi_ei=itf_Vbi_ei;
12172 : 0 : Itxf_Vbi_ci=itf_Vbi_ci;
12173 : : #endif
12174 : 0 : Itxf=itf;
12175 : : #if defined(_DYNAMIC)
12176 : : #if defined(_DERIVATE)
12177 : 0 : Qdeix_Vxf_GND=0.0;
12178 : 0 : Qdeix_Vci_ei=Qdei_Vci_ei;
12179 : 0 : Qdeix_Vtnode_GND=Qdei_Vtnode_GND;
12180 : 0 : Qdeix_Vbi_ci=Qdei_Vbi_ci;
12181 : 0 : Qdeix_Vbi_ei=Qdei_Vbi_ei;
12182 : : #endif
12183 : 0 : Qdeix=Qdei;
12184 : : #endif
12185 [ # # ][ # # ]: 0 : if
12186 : : ((flnqs!=0)&&(Tf!=0))
12187 : : {
12188 : : #if defined(_DERIVATE)
12189 : 0 : Vxf1_Vxf1_GND=1.0;
12190 : : #endif
12191 : 0 : Vxf1=NP(xf1);
12192 : : #if defined(_DERIVATE)
12193 : 0 : Vxf2_Vxf2_GND=1.0;
12194 : : #endif
12195 : 0 : Vxf2=NP(xf2);
12196 : : #if defined(_DERIVATE)
12197 : 0 : Ixf1_Vxf1_GND=0.0;
12198 : 0 : Ixf1_Vxf2_GND=(Vxf2_Vxf2_GND/Tf)*t0;
12199 : 0 : Ixf1_Vci_ei=(((-itf_Vci_ei)*Tf-(Vxf2-itf)*Tf_Vci_ei)/Tf/Tf)*t0;
12200 : 0 : Ixf1_Vtnode_GND=(((-itf_Vtnode_GND)*Tf-(Vxf2-itf)*Tf_Vtnode_GND)/Tf/Tf)*t0;
12201 : 0 : Ixf1_Vbi_ei=(((-itf_Vbi_ei)*Tf-(Vxf2-itf)*Tf_Vbi_ei)/Tf/Tf)*t0;
12202 : 0 : Ixf1_Vbi_ci=(((-itf_Vbi_ci)*Tf-(Vxf2-itf)*Tf_Vbi_ci)/Tf/Tf)*t0;
12203 : : #endif
12204 : 0 : Ixf1=(((Vxf2-itf)/Tf)*t0);
12205 : : #if defined(_DERIVATE)
12206 : 0 : Ixf2_Vxf2_GND=(Vxf2_Vxf2_GND/Tf)*t0;
12207 : 0 : Ixf2_Vxf1_GND=((-Vxf1_Vxf1_GND)/Tf)*t0;
12208 : 0 : Ixf2_Vbi_ei=(-(Vxf2-Vxf1)*Tf_Vbi_ei/Tf/Tf)*t0;
12209 : 0 : Ixf2_Vci_ei=(-(Vxf2-Vxf1)*Tf_Vci_ei/Tf/Tf)*t0;
12210 : 0 : Ixf2_Vtnode_GND=(-(Vxf2-Vxf1)*Tf_Vtnode_GND/Tf/Tf)*t0;
12211 : 0 : Ixf2_Vbi_ci=(-(Vxf2-Vxf1)*Tf_Vbi_ci/Tf/Tf)*t0;
12212 : : #endif
12213 : 0 : Ixf2=(((Vxf2-Vxf1)/Tf)*t0);
12214 : : #if defined(_DYNAMIC)
12215 : : #if defined(_DERIVATE)
12216 : 0 : Qxf1_Vxf1_GND=(alit*Vxf1_Vxf1_GND)*t0;
12217 : : #endif
12218 : 0 : Qxf1=((alit*Vxf1)*t0);
12219 : : #endif
12220 : : #if defined(_DYNAMIC)
12221 : : #if defined(_DERIVATE)
12222 : 0 : Qxf2_Vxf2_GND=((alit*Vxf2_Vxf2_GND)/3)*t0;
12223 : : #endif
12224 : 0 : Qxf2=(((alit*Vxf2)/3)*t0);
12225 : : #endif
12226 : : #if defined(_DERIVATE)
12227 : 0 : Itxf_Vxf2_GND=Vxf2_Vxf2_GND;
12228 : 0 : Itxf_Vci_ei=0.0;
12229 : 0 : Itxf_Vtnode_GND=0.0;
12230 : 0 : Itxf_Vbi_ei=0.0;
12231 : 0 : Itxf_Vbi_ci=0.0;
12232 : : #endif
12233 : 0 : Itxf=Vxf2;
12234 : : #if defined(_DERIVATE)
12235 : 0 : Vxf_Vxf_GND=1.0;
12236 : : #endif
12237 : 0 : Vxf=NP(xf);
12238 : : #if defined(_DERIVATE)
12239 : 0 : fact_Vbi_ei=(-t0*Tf_Vbi_ei/Tf/Tf);
12240 : 0 : fact_Vci_ei=(-t0*Tf_Vci_ei/Tf/Tf);
12241 : 0 : fact_Vtnode_GND=(-t0*Tf_Vtnode_GND/Tf/Tf);
12242 : 0 : fact_Vbi_ci=(-t0*Tf_Vbi_ci/Tf/Tf);
12243 : : #endif
12244 : 0 : fact=(t0/Tf);
12245 : : #if defined(_DERIVATE)
12246 : 0 : Ixf_Vxf_GND=Vxf_Vxf_GND*fact;
12247 : 0 : Ixf_Vci_ei=(((-Qdei_Vci_ei)*fact)+((Vxf-Qdei)*fact_Vci_ei));
12248 : 0 : Ixf_Vtnode_GND=(((-Qdei_Vtnode_GND)*fact)+((Vxf-Qdei)*fact_Vtnode_GND));
12249 : 0 : Ixf_Vbi_ci=(((-Qdei_Vbi_ci)*fact)+((Vxf-Qdei)*fact_Vbi_ci));
12250 : 0 : Ixf_Vbi_ei=(((-Qdei_Vbi_ei)*fact)+((Vxf-Qdei)*fact_Vbi_ei));
12251 : : #endif
12252 : 0 : Ixf=((Vxf-Qdei)*fact);
12253 : : #if defined(_DYNAMIC)
12254 : : #if defined(_DERIVATE)
12255 : 0 : Qxf_Vxf_GND=(alqf*Vxf_Vxf_GND)*t0;
12256 : : #endif
12257 : 0 : Qxf=((alqf*Vxf)*t0);
12258 : : #endif
12259 : : #if defined(_DYNAMIC)
12260 : : #if defined(_DERIVATE)
12261 : 0 : Qdeix_Vxf_GND=Vxf_Vxf_GND;
12262 : 0 : Qdeix_Vci_ei=0.0;
12263 : 0 : Qdeix_Vtnode_GND=0.0;
12264 : 0 : Qdeix_Vbi_ci=0.0;
12265 : 0 : Qdeix_Vbi_ei=0.0;
12266 : : #endif
12267 : 0 : Qdeix=Vxf;
12268 : : #endif
12269 : : }
12270 : : else
12271 : : {
12272 : : #if defined(_DERIVATE)
12273 : 0 : Ixf1_Vxf1_GND=1.0;
12274 : 0 : Ixf1_Vxf2_GND=0.0;
12275 : 0 : Ixf1_Vci_ei=0.0;
12276 : 0 : Ixf1_Vtnode_GND=0.0;
12277 : 0 : Ixf1_Vbi_ei=0.0;
12278 : 0 : Ixf1_Vbi_ci=0.0;
12279 : : #endif
12280 : 0 : Ixf1=NP(xf1);
12281 : : #if defined(_DERIVATE)
12282 : 0 : Ixf2_Vxf2_GND=1.0;
12283 : 0 : Ixf2_Vxf1_GND=0.0;
12284 : 0 : Ixf2_Vbi_ei=0.0;
12285 : 0 : Ixf2_Vci_ei=0.0;
12286 : 0 : Ixf2_Vtnode_GND=0.0;
12287 : 0 : Ixf2_Vbi_ci=0.0;
12288 : : #endif
12289 : 0 : Ixf2=NP(xf2);
12290 : : #if defined(_DYNAMIC)
12291 : : #if defined(_DERIVATE)
12292 : 0 : Qxf1_Vxf1_GND=0.0;
12293 : : #endif
12294 : 0 : Qxf1=0;
12295 : : #endif
12296 : : #if defined(_DYNAMIC)
12297 : : #if defined(_DERIVATE)
12298 : 0 : Qxf2_Vxf2_GND=0.0;
12299 : : #endif
12300 : 0 : Qxf2=0;
12301 : : #endif
12302 : : #if defined(_DERIVATE)
12303 : 0 : Ixf_Vxf_GND=1.0;
12304 : 0 : Ixf_Vci_ei=0.0;
12305 : 0 : Ixf_Vtnode_GND=0.0;
12306 : 0 : Ixf_Vbi_ci=0.0;
12307 : 0 : Ixf_Vbi_ei=0.0;
12308 : : #endif
12309 : 0 : Ixf=NP(xf);
12310 : : #if defined(_DYNAMIC)
12311 : : #if defined(_DERIVATE)
12312 : 0 : Qxf_Vxf_GND=0.0;
12313 : : #endif
12314 : 0 : Qxf=0;
12315 : : #endif
12316 : : }
12317 : : }
12318 : : {
12319 [ # # ][ # # ]: 0 : _load_static_residual2(bi,ei,(1.0e-12*BP(bi,ei)));
12320 : : #if defined(_DERIVATE)
12321 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,bi,ei,(1.0e-12));
[ # # ][ # # ]
[ # # ]
12322 : : #endif
12323 [ # # ][ # # ]: 0 : _load_static_residual2(bi,ci,(1.0e-12*BP(bi,ci)));
12324 : : #if defined(_DERIVATE)
12325 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ci,bi,ci,(1.0e-12));
[ # # ][ # # ]
[ # # ]
12326 : : #endif
12327 [ # # ][ # # ]: 0 : _load_static_residual2(ci,ei,(1.0e-12*BP(ci,ei)));
12328 : : #if defined(_DERIVATE)
12329 [ # # ][ # # ]: 0 : _load_static_jacobian4(ci,ei,ci,ei,(1.0e-12));
[ # # ][ # # ]
[ # # ]
12330 : : #endif
12331 : : #if defined(_DYNAMIC)
12332 [ # # ][ # # ]: 0 : _load_dynamic_residual2(b,ci,_DDT((type*qjcx0_t_i)));
12333 : : #if defined(_DERIVATE)
12334 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(b,ci,bi,ci,(type*qjcx0_t_i_Vbi_ci));
[ # # ][ # # ]
[ # # ]
12335 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(b,ci,tnode,(type*qjcx0_t_i_Vtnode_GND));
[ # # ]
12336 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(b,ci,bp,ci,(type*qjcx0_t_i_Vbp_ci));
[ # # ][ # # ]
[ # # ]
12337 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(b,ci,b,ci,(type*qjcx0_t_i_Vb_ci));
[ # # ][ # # ]
[ # # ]
12338 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(b,ci,bi,ei,(type*qjcx0_t_i_Vbi_ei));
[ # # ][ # # ]
[ # # ]
12339 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(b,ci,bp,ei,(type*qjcx0_t_i_Vbp_ei));
[ # # ][ # # ]
[ # # ]
12340 : : #endif
12341 : : #endif
12342 : : #if defined(_DYNAMIC)
12343 [ # # ][ # # ]: 0 : _load_dynamic_residual2(b,ci,_DDT((cbcpar1*BP(b,ci))));
[ # # ][ # # ]
[ # # ]
12344 : : #if defined(_DERIVATE)
12345 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(b,ci,b,ci,(cbcpar1));
[ # # ][ # # ]
[ # # ]
12346 : : #endif
12347 : : #endif
12348 : : #if defined(_DYNAMIC)
12349 [ # # ][ # # ]: 0 : _load_dynamic_residual2(bp,ci,_DDT((cbcpar2*BP(bp,ci))));
[ # # ][ # # ]
[ # # ]
12350 : : #if defined(_DERIVATE)
12351 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,ci,bp,ci,(cbcpar2));
[ # # ][ # # ]
[ # # ]
12352 : : #endif
12353 : : #endif
12354 [ # # ]: 0 : if
12355 : : (rbx>=0.001)
12356 : : {
12357 [ # # ][ # # ]: 0 : _load_static_residual2(b,bp,(BP(b,bp)/rbx_t));
12358 : : #if defined(_DERIVATE)
12359 [ # # ][ # # ]: 0 : _load_static_jacobian2s(b,bp,tnode,(-BP(b,bp)*rbx_t_Vtnode_GND/rbx_t/rbx_t));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
12360 [ # # ][ # # ]: 0 : _load_static_jacobian4(b,bp,b,bp,(1/rbx_t));
[ # # ][ # # ]
[ # # ]
12361 : : #endif
12362 : : }
12363 : : else
12364 : : {
12365 [ # # ][ # # ]: 0 : _load_static_residual2(b,bp,(BP(b,bp)/1e-6));
12366 : : #if defined(_DERIVATE)
12367 [ # # ][ # # ]: 0 : _load_static_jacobian4(b,bp,b,bp,(1/1e-6));
[ # # ][ # # ]
[ # # ]
12368 : : #endif
12369 : : }
12370 [ # # ]: 0 : if
12371 : : (rbi0>=0.001)
12372 : : {
12373 [ # # ][ # # ]: 0 : _load_static_residual2(bp,bi,(BP(bp,bi)/rbi));
12374 : : #if defined(_DERIVATE)
12375 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,bi,ci,ei,(-BP(bp,bi)*rbi_Vci_ei/rbi/rbi));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
12376 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,bi,bi,ci,(-BP(bp,bi)*rbi_Vbi_ci/rbi/rbi));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
12377 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,bi,bi,ei,(-BP(bp,bi)*rbi_Vbi_ei/rbi/rbi));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
12378 [ # # ][ # # ]: 0 : _load_static_jacobian2s(bp,bi,tnode,(-BP(bp,bi)*rbi_Vtnode_GND/rbi/rbi));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
12379 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,bi,bp,bi,(1/rbi));
[ # # ][ # # ]
[ # # ]
12380 : : #endif
12381 : : #if defined(_DYNAMIC)
12382 [ # # ][ # # ]: 0 : _load_dynamic_residual2(bp,bi,_DDT(qrbi));
12383 : : #if defined(_DERIVATE)
12384 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,bi,bp,bi,qrbi_Vbp_bi);
[ # # ][ # # ]
[ # # ]
12385 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,bi,ci,ei,qrbi_Vci_ei);
[ # # ][ # # ]
[ # # ]
12386 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,bi,bi,ci,qrbi_Vbi_ci);
[ # # ][ # # ]
[ # # ]
12387 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,bi,bi,ei,qrbi_Vbi_ei);
[ # # ][ # # ]
[ # # ]
12388 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(bp,bi,tnode,qrbi_Vtnode_GND);
[ # # ]
12389 : : #endif
12390 : : #endif
12391 : : }
12392 : : else
12393 : : {
12394 [ # # ][ # # ]: 0 : _load_static_residual2(bp,bi,(BP(bp,bi)/1e-6));
12395 : : #if defined(_DERIVATE)
12396 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,bi,bp,bi,(1/1e-6));
[ # # ][ # # ]
[ # # ]
12397 : : #endif
12398 : : }
12399 [ # # ]: 0 : if
12400 : : (tunode==1.0)
12401 : : {
12402 : 0 : _load_static_residual2(bp,ei,((-type)*ibet));
12403 : : #if defined(_DERIVATE)
12404 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ei,bi,ei,((-type)*ibet_Vbi_ei));
[ # # ][ # # ]
[ # # ]
12405 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ei,bi,ci,((-type)*ibet_Vbi_ci));
[ # # ][ # # ]
[ # # ]
12406 [ # # ]: 0 : _load_static_jacobian2s(bp,ei,tnode,((-type)*ibet_Vtnode_GND));
12407 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ei,bp,ei,((-type)*ibet_Vbp_ei));
[ # # ][ # # ]
[ # # ]
12408 : : #endif
12409 : : }
12410 : : else
12411 : : {
12412 : 0 : _load_static_residual2(bi,ei,((-type)*ibet));
12413 : : #if defined(_DERIVATE)
12414 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,bi,ei,((-type)*ibet_Vbi_ei));
[ # # ][ # # ]
[ # # ]
12415 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,bi,ci,((-type)*ibet_Vbi_ci));
[ # # ][ # # ]
[ # # ]
12416 [ # # ]: 0 : _load_static_jacobian2s(bi,ei,tnode,((-type)*ibet_Vtnode_GND));
12417 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,bp,ei,((-type)*ibet_Vbp_ei));
[ # # ][ # # ]
[ # # ]
12418 : : #endif
12419 : : }
12420 : 0 : _load_static_residual2(bp,ei,(type*ibep));
12421 : : #if defined(_DERIVATE)
12422 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ei,bi,ei,(type*ibep_Vbi_ei));
[ # # ][ # # ]
[ # # ]
12423 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ei,bi,ci,(type*ibep_Vbi_ci));
[ # # ][ # # ]
[ # # ]
12424 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ei,bp,ei,(type*ibep_Vbp_ei));
[ # # ][ # # ]
[ # # ]
12425 [ # # ]: 0 : _load_static_jacobian2s(bp,ei,tnode,(type*ibep_Vtnode_GND));
12426 : : #endif
12427 : 0 : _load_static_residual2(bp,ei,(type*irep));
12428 : : #if defined(_DERIVATE)
12429 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ei,bi,ei,(type*irep_Vbi_ei));
[ # # ][ # # ]
[ # # ]
12430 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ei,bi,ci,(type*irep_Vbi_ci));
[ # # ][ # # ]
[ # # ]
12431 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ei,bp,ei,(type*irep_Vbp_ei));
[ # # ][ # # ]
[ # # ]
12432 [ # # ]: 0 : _load_static_jacobian2s(bp,ei,tnode,(type*irep_Vtnode_GND));
12433 : : #endif
12434 : : #if defined(_DYNAMIC)
12435 [ # # ][ # # ]: 0 : _load_dynamic_residual2(bp,ei,_DDT((type*Qjep)));
12436 : : #if defined(_DERIVATE)
12437 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,ei,bi,ei,(type*Qjep_Vbi_ei));
[ # # ][ # # ]
[ # # ]
12438 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(bp,ei,tnode,(type*Qjep_Vtnode_GND));
[ # # ]
12439 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,ei,bi,ci,(type*Qjep_Vbi_ci));
[ # # ][ # # ]
[ # # ]
12440 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,ei,bp,ei,(type*Qjep_Vbp_ei));
[ # # ][ # # ]
[ # # ]
12441 : : #endif
12442 : : #endif
12443 : 0 : _load_static_residual2(bi,ei,(type*ibei));
12444 : : #if defined(_DERIVATE)
12445 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,bi,ei,(type*ibei_Vbi_ei));
[ # # ][ # # ]
[ # # ]
12446 [ # # ]: 0 : _load_static_jacobian2s(bi,ei,tnode,(type*ibei_Vtnode_GND));
12447 : : #endif
12448 : 0 : _load_static_residual2(bi,ei,(type*irei));
12449 : : #if defined(_DERIVATE)
12450 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,bi,ei,(type*irei_Vbi_ei));
[ # # ][ # # ]
[ # # ]
12451 [ # # ]: 0 : _load_static_jacobian2s(bi,ei,tnode,(type*irei_Vtnode_GND));
12452 : : #endif
12453 : 0 : _load_static_residual2(bi,ei,(type*ibh_rec));
12454 : : #if defined(_DERIVATE)
12455 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,ci,ei,(type*ibh_rec_Vci_ei));
[ # # ][ # # ]
[ # # ]
12456 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,bi,ci,(type*ibh_rec_Vbi_ci));
[ # # ][ # # ]
[ # # ]
12457 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ei,bi,ei,(type*ibh_rec_Vbi_ei));
[ # # ][ # # ]
[ # # ]
12458 [ # # ]: 0 : _load_static_jacobian2s(bi,ei,tnode,(type*ibh_rec_Vtnode_GND));
12459 : : #endif
12460 : : #if defined(_DYNAMIC)
12461 [ # # ][ # # ]: 0 : _load_dynamic_residual2(bi,ei,_DDT((type*(Qdeix+Qjei))));
12462 : : #if defined(_DERIVATE)
12463 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ei,bi,ei,(type*(Qdeix_Vbi_ei+Qjei_Vbi_ei)));
[ # # ][ # # ]
[ # # ]
12464 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ei,bi,ci,(type*Qdeix_Vbi_ci));
[ # # ][ # # ]
[ # # ]
12465 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(bi,ei,tnode,(type*(Qdeix_Vtnode_GND+Qjei_Vtnode_GND)));
[ # # ]
12466 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ei,ci,ei,(type*Qdeix_Vci_ei));
[ # # ][ # # ]
[ # # ]
12467 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(bi,ei,xf,(type*Qdeix_Vxf_GND));
[ # # ]
12468 : : #endif
12469 : : #endif
12470 : 0 : _load_static_residual2(bp,si,(type*HSI_Tsu));
12471 : : #if defined(_DERIVATE)
12472 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,si,si,ci,(type*HSI_Tsu_Vsi_ci));
[ # # ][ # # ]
[ # # ]
12473 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,si,bp,ci,(type*HSI_Tsu_Vbp_ci));
[ # # ][ # # ]
[ # # ]
12474 [ # # ]: 0 : _load_static_jacobian2s(bp,si,tnode,(type*HSI_Tsu_Vtnode_GND));
12475 : : #endif
12476 : 0 : _load_static_residual2(bp,ci,(type*ijbcx));
12477 : : #if defined(_DERIVATE)
12478 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ci,bi,ei,(type*ijbcx_Vbi_ei));
[ # # ][ # # ]
[ # # ]
12479 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ci,bi,ci,(type*ijbcx_Vbi_ci));
[ # # ][ # # ]
[ # # ]
12480 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ci,bp,ei,(type*ijbcx_Vbp_ei));
[ # # ][ # # ]
[ # # ]
12481 [ # # ][ # # ]: 0 : _load_static_jacobian4(bp,ci,bp,ci,(type*ijbcx_Vbp_ci));
[ # # ][ # # ]
[ # # ]
12482 [ # # ]: 0 : _load_static_jacobian2s(bp,ci,tnode,(type*ijbcx_Vtnode_GND));
12483 : : #endif
12484 : : #if defined(_DYNAMIC)
12485 [ # # ][ # # ]: 0 : _load_dynamic_residual2(bp,ci,_DDT((type*(qjcx0_t_ii+Qdsu))));
12486 : : #if defined(_DERIVATE)
12487 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,ci,bi,ci,(type*qjcx0_t_ii_Vbi_ci));
[ # # ][ # # ]
[ # # ]
12488 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(bp,ci,tnode,(type*(qjcx0_t_ii_Vtnode_GND+Qdsu_Vtnode_GND)));
[ # # ]
12489 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,ci,bp,ci,(type*(qjcx0_t_ii_Vbp_ci+Qdsu_Vbp_ci)));
[ # # ][ # # ]
[ # # ]
12490 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,ci,bi,ei,(type*qjcx0_t_ii_Vbi_ei));
[ # # ][ # # ]
[ # # ]
12491 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,ci,bp,ei,(type*qjcx0_t_ii_Vbp_ei));
[ # # ][ # # ]
[ # # ]
12492 : : #endif
12493 : : #endif
12494 : : #if defined(_DYNAMIC)
12495 [ # # ][ # # ]: 0 : _load_dynamic_residual2(b,e,_DDT((cbepar1*BP(b,e))));
[ # # ][ # # ]
[ # # ]
12496 : : #if defined(_DERIVATE)
12497 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(b,e,b,e,(cbepar1));
[ # # ][ # # ]
[ # # ]
12498 : : #endif
12499 : : #endif
12500 : : #if defined(_DYNAMIC)
12501 [ # # ][ # # ]: 0 : _load_dynamic_residual2(bp,e,_DDT((cbepar2*BP(bp,e))));
[ # # ][ # # ]
[ # # ]
12502 : : #if defined(_DERIVATE)
12503 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bp,e,bp,e,(cbepar2));
[ # # ][ # # ]
[ # # ]
12504 : : #endif
12505 : : #endif
12506 : 0 : _load_static_residual2(bi,ci,(type*(ibci-iavl)));
12507 : : #if defined(_DERIVATE)
12508 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ci,ci,ei,(type*(-iavl_Vci_ei)));
[ # # ][ # # ]
[ # # ]
12509 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ci,bi,ei,(type*(ibci_Vbi_ei-iavl_Vbi_ei)));
[ # # ][ # # ]
[ # # ]
12510 [ # # ][ # # ]: 0 : _load_static_jacobian4(bi,ci,bi,ci,(type*(ibci_Vbi_ci-iavl_Vbi_ci)));
[ # # ][ # # ]
[ # # ]
12511 [ # # ]: 0 : _load_static_jacobian2s(bi,ci,tnode,(type*(ibci_Vtnode_GND-iavl_Vtnode_GND)));
12512 : : #endif
12513 : : #if defined(_DYNAMIC)
12514 [ # # ][ # # ]: 0 : _load_dynamic_residual2(bi,ci,_DDT((type*(Qdci+Qjci))));
12515 : : #if defined(_DERIVATE)
12516 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ci,bi,ei,(type*(Qdci_Vbi_ei+Qjci_Vbi_ei)));
[ # # ][ # # ]
[ # # ]
12517 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ci,bi,ci,(type*(Qdci_Vbi_ci+Qjci_Vbi_ci)));
[ # # ][ # # ]
[ # # ]
12518 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(bi,ci,tnode,(type*(Qdci_Vtnode_GND+Qjci_Vtnode_GND)));
[ # # ]
12519 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ci,ci,ei,(type*Qdci_Vci_ei));
[ # # ][ # # ]
[ # # ]
12520 : : #endif
12521 : : #endif
12522 : 0 : _load_static_residual2(si,ci,(type*ijsc));
12523 : : #if defined(_DERIVATE)
12524 [ # # ][ # # ]: 0 : _load_static_jacobian4(si,ci,bi,ei,(type*ijsc_Vbi_ei));
[ # # ][ # # ]
[ # # ]
12525 [ # # ][ # # ]: 0 : _load_static_jacobian4(si,ci,bi,ci,(type*ijsc_Vbi_ci));
[ # # ][ # # ]
[ # # ]
12526 [ # # ][ # # ]: 0 : _load_static_jacobian4(si,ci,bp,ei,(type*ijsc_Vbp_ei));
[ # # ][ # # ]
[ # # ]
12527 [ # # ][ # # ]: 0 : _load_static_jacobian4(si,ci,bp,ci,(type*ijsc_Vbp_ci));
[ # # ][ # # ]
[ # # ]
12528 [ # # ][ # # ]: 0 : _load_static_jacobian4(si,ci,si,ci,(type*ijsc_Vsi_ci));
[ # # ][ # # ]
[ # # ]
12529 [ # # ]: 0 : _load_static_jacobian2s(si,ci,tnode,(type*ijsc_Vtnode_GND));
12530 : : #endif
12531 : : #if defined(_DYNAMIC)
12532 [ # # ][ # # ]: 0 : _load_dynamic_residual2(si,ci,_DDT((type*Qjs)));
12533 : : #if defined(_DERIVATE)
12534 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(si,ci,bi,ci,(type*Qjs_Vbi_ci));
[ # # ][ # # ]
[ # # ]
12535 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(si,ci,tnode,(type*Qjs_Vtnode_GND));
[ # # ]
12536 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(si,ci,bp,ci,(type*Qjs_Vbp_ci));
[ # # ][ # # ]
[ # # ]
12537 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(si,ci,b,ci,(type*Qjs_Vb_ci));
[ # # ][ # # ]
[ # # ]
12538 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(si,ci,si,ci,(type*Qjs_Vsi_ci));
[ # # ][ # # ]
[ # # ]
12539 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(si,ci,bi,ei,(type*Qjs_Vbi_ei));
[ # # ][ # # ]
[ # # ]
12540 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(si,ci,bp,ei,(type*Qjs_Vbp_ei));
[ # # ][ # # ]
[ # # ]
12541 : : #endif
12542 : : #endif
12543 : 0 : _load_static_residual2(ci,ei,(type*Itxf));
12544 : : #if defined(_DERIVATE)
12545 [ # # ][ # # ]: 0 : _load_static_jacobian4(ci,ei,bi,ci,(type*Itxf_Vbi_ci));
[ # # ][ # # ]
[ # # ]
12546 [ # # ][ # # ]: 0 : _load_static_jacobian4(ci,ei,bi,ei,(type*Itxf_Vbi_ei));
[ # # ][ # # ]
[ # # ]
12547 [ # # ]: 0 : _load_static_jacobian2s(ci,ei,tnode,(type*Itxf_Vtnode_GND));
12548 [ # # ][ # # ]: 0 : _load_static_jacobian4(ci,ei,ci,ei,(type*Itxf_Vci_ei));
[ # # ][ # # ]
[ # # ]
12549 [ # # ]: 0 : _load_static_jacobian2s(ci,ei,xf2,(type*Itxf_Vxf2_GND));
12550 : : #endif
12551 : 0 : _load_static_residual2(ei,ci,(type*itr));
12552 : : #if defined(_DERIVATE)
12553 [ # # ][ # # ]: 0 : _load_static_jacobian4(ei,ci,bi,ei,(type*itr_Vbi_ei));
[ # # ][ # # ]
[ # # ]
12554 [ # # ][ # # ]: 0 : _load_static_jacobian4(ei,ci,bi,ci,(type*itr_Vbi_ci));
[ # # ][ # # ]
[ # # ]
12555 [ # # ]: 0 : _load_static_jacobian2s(ei,ci,tnode,(type*itr_Vtnode_GND));
12556 [ # # ][ # # ]: 0 : _load_static_jacobian4(ei,ci,ci,ei,(type*itr_Vci_ei));
[ # # ][ # # ]
[ # # ]
12557 : : #endif
12558 [ # # ]: 0 : if
12559 : : (rcx>=0.001)
12560 : : {
12561 [ # # ][ # # ]: 0 : _load_static_residual2(ci,c,(BP(ci,c)/rcx_t));
12562 : : #if defined(_DERIVATE)
12563 [ # # ][ # # ]: 0 : _load_static_jacobian2s(ci,c,tnode,(-BP(ci,c)*rcx_t_Vtnode_GND/rcx_t/rcx_t));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
12564 [ # # ][ # # ]: 0 : _load_static_jacobian4(ci,c,ci,c,(1/rcx_t));
[ # # ][ # # ]
[ # # ]
12565 : : #endif
12566 : : }
12567 : : else
12568 : : {
12569 [ # # ][ # # ]: 0 : _load_static_residual2(ci,c,(BP(ci,c)/1e-6));
12570 : : #if defined(_DERIVATE)
12571 [ # # ][ # # ]: 0 : _load_static_jacobian4(ci,c,ci,c,(1/1e-6));
[ # # ][ # # ]
[ # # ]
12572 : : #endif
12573 : : }
12574 [ # # ]: 0 : if
12575 : : (re>=0.001)
12576 : : {
12577 [ # # ][ # # ]: 0 : _load_static_residual2(ei,e,(BP(ei,e)/re_t));
12578 : : #if defined(_DERIVATE)
12579 [ # # ][ # # ]: 0 : _load_static_jacobian2s(ei,e,tnode,(-BP(ei,e)*re_t_Vtnode_GND/re_t/re_t));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
12580 [ # # ][ # # ]: 0 : _load_static_jacobian4(ei,e,ei,e,(1/re_t));
[ # # ][ # # ]
[ # # ]
12581 : : #endif
12582 : : }
12583 : : else
12584 : : {
12585 [ # # ][ # # ]: 0 : _load_static_residual2(ei,e,(BP(ei,e)/1e-6));
12586 : : #if defined(_DERIVATE)
12587 [ # # ][ # # ]: 0 : _load_static_jacobian4(ei,e,ei,e,(1/1e-6));
[ # # ][ # # ]
[ # # ]
12588 : : #endif
12589 : : }
12590 [ # # ]: 0 : if
12591 : : (rsu>=0.001)
12592 : : {
12593 [ # # ][ # # ]: 0 : _load_static_residual2(si,s,(BP(si,s)/rsu));
12594 : : #if defined(_DERIVATE)
12595 [ # # ][ # # ]: 0 : _load_static_jacobian4(si,s,si,s,(1/rsu));
[ # # ][ # # ]
[ # # ]
12596 : : #endif
12597 : : #if defined(_DYNAMIC)
12598 [ # # ][ # # ]: 0 : _load_dynamic_residual2(si,s,_DDT((csu*BP(si,s))));
[ # # ][ # # ]
[ # # ]
12599 : : #if defined(_DERIVATE)
12600 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(si,s,si,s,(csu));
[ # # ][ # # ]
[ # # ]
12601 : : #endif
12602 : : #endif
12603 : : }
12604 : : else
12605 : : {
12606 [ # # ][ # # ]: 0 : _load_static_residual2(si,s,(BP(si,s)/1e-6));
12607 : : #if defined(_DERIVATE)
12608 [ # # ][ # # ]: 0 : _load_static_jacobian4(si,s,si,s,(1/1e-6));
[ # # ][ # # ]
[ # # ]
12609 : : #endif
12610 : : }
12611 [ # # ][ # # ]: 0 : if
12612 : : ((flsh==0)||(rth<0.001))
12613 : : {
12614 : 0 : _load_static_residual1(tnode,(NP(tnode)/0.001));
12615 : : #if defined(_DERIVATE)
12616 [ # # ]: 0 : _load_static_jacobian1(tnode,tnode,(1/0.001));
12617 : : #endif
12618 : : }
12619 : : else
12620 : : {
12621 : 0 : _load_static_residual1(tnode,((NP(tnode)/rth_t)-pterm));
12622 : : #if defined(_DERIVATE)
12623 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,bi,ci,(-pterm_Vbi_ci));
[ # # ]
12624 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,bi,ei,(-pterm_Vbi_ei));
[ # # ]
12625 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,ci,ei,(-pterm_Vci_ei));
[ # # ]
12626 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,si,ci,(-pterm_Vsi_ci));
[ # # ]
12627 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,bp,ci,(-pterm_Vbp_ci));
[ # # ]
12628 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,bp,ei,(-pterm_Vbp_ei));
[ # # ]
12629 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,bp,bi,(-pterm_Vbp_bi));
[ # # ]
12630 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,ei,e,(-pterm_Vei_e));
[ # # ]
12631 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,ci,c,(-pterm_Vci_c));
[ # # ]
12632 [ # # ][ # # ]: 0 : _load_static_jacobian2p(tnode,b,bp,(-pterm_Vb_bp));
[ # # ]
12633 [ # # ][ # # ]: 0 : _load_static_jacobian1(tnode,tnode,(((rth_t-(NP(tnode)*rth_t_Vtnode_GND))/rth_t/rth_t)-pterm_Vtnode_GND));
[ # # ]
12634 : : #endif
12635 : : #if defined(_DYNAMIC)
12636 [ # # ][ # # ]: 0 : _load_dynamic_residual1(tnode,_DDT((cth*NP(tnode))));
12637 : : #if defined(_DERIVATE)
12638 [ # # ][ # # ]: 0 : _load_dynamic_jacobian1(tnode,tnode,(cth));
[ # # ]
12639 : : #endif
12640 : : #endif
12641 : : }
12642 : 0 : _load_static_residual1(xf1,Ixf1);
12643 : : #if defined(_DERIVATE)
12644 [ # # ][ # # ]: 0 : _load_static_jacobian2p(xf1,bi,ci,Ixf1_Vbi_ci);
[ # # ]
12645 [ # # ][ # # ]: 0 : _load_static_jacobian2p(xf1,bi,ei,Ixf1_Vbi_ei);
[ # # ]
12646 [ # # ]: 0 : _load_static_jacobian1(xf1,tnode,Ixf1_Vtnode_GND);
12647 [ # # ][ # # ]: 0 : _load_static_jacobian2p(xf1,ci,ei,Ixf1_Vci_ei);
[ # # ]
12648 [ # # ]: 0 : _load_static_jacobian1(xf1,xf2,Ixf1_Vxf2_GND);
12649 [ # # ]: 0 : _load_static_jacobian1(xf1,xf1,Ixf1_Vxf1_GND);
12650 : : #endif
12651 : : #if defined(_DYNAMIC)
12652 [ # # ][ # # ]: 0 : _load_dynamic_residual1(xf1,_DDT(Qxf1));
12653 : : #if defined(_DERIVATE)
12654 [ # # ][ # # ]: 0 : _load_dynamic_jacobian1(xf1,xf1,Qxf1_Vxf1_GND);
[ # # ]
12655 : : #endif
12656 : : #endif
12657 : 0 : _load_static_residual1(xf2,Ixf2);
12658 : : #if defined(_DERIVATE)
12659 [ # # ][ # # ]: 0 : _load_static_jacobian2p(xf2,bi,ci,Ixf2_Vbi_ci);
[ # # ]
12660 [ # # ]: 0 : _load_static_jacobian1(xf2,tnode,Ixf2_Vtnode_GND);
12661 [ # # ][ # # ]: 0 : _load_static_jacobian2p(xf2,ci,ei,Ixf2_Vci_ei);
[ # # ]
12662 [ # # ][ # # ]: 0 : _load_static_jacobian2p(xf2,bi,ei,Ixf2_Vbi_ei);
[ # # ]
12663 [ # # ]: 0 : _load_static_jacobian1(xf2,xf1,Ixf2_Vxf1_GND);
12664 [ # # ]: 0 : _load_static_jacobian1(xf2,xf2,Ixf2_Vxf2_GND);
12665 : : #endif
12666 : : #if defined(_DYNAMIC)
12667 [ # # ][ # # ]: 0 : _load_dynamic_residual1(xf2,_DDT(Qxf2));
12668 : : #if defined(_DERIVATE)
12669 [ # # ][ # # ]: 0 : _load_dynamic_jacobian1(xf2,xf2,Qxf2_Vxf2_GND);
[ # # ]
12670 : : #endif
12671 : : #endif
12672 : 0 : _load_static_residual1(xf,Ixf);
12673 : : #if defined(_DERIVATE)
12674 [ # # ][ # # ]: 0 : _load_static_jacobian2p(xf,bi,ei,Ixf_Vbi_ei);
[ # # ]
12675 [ # # ][ # # ]: 0 : _load_static_jacobian2p(xf,bi,ci,Ixf_Vbi_ci);
[ # # ]
12676 [ # # ]: 0 : _load_static_jacobian1(xf,tnode,Ixf_Vtnode_GND);
12677 [ # # ][ # # ]: 0 : _load_static_jacobian2p(xf,ci,ei,Ixf_Vci_ei);
[ # # ]
12678 [ # # ]: 0 : _load_static_jacobian1(xf,xf,Ixf_Vxf_GND);
12679 : : #endif
12680 : : #if defined(_DYNAMIC)
12681 [ # # ][ # # ]: 0 : _load_dynamic_residual1(xf,_DDT(Qxf));
12682 : : #if defined(_DERIVATE)
12683 [ # # ][ # # ]: 0 : _load_dynamic_jacobian1(xf,xf,Qxf_Vxf_GND);
[ # # ]
12684 : : #endif
12685 : : #endif
12686 : : }
12687 : :
12688 : : /* ------------------ end of verilog analog equations --------------------- */
12689 : :
12690 : : /* ------------------ evaluate verilog noise equations -------------------- */
12691 : : #if defined(_DYNAMIC)
12692 : : double n_2;
12693 : : #if defined(_DERIVATE)
12694 : : double n_2_Vbi_ei;
12695 : : double n_2_Vci_ei;
12696 : : double n_2_Vtnode_GND;
12697 : : double n_2_Vbi_ci;
12698 : : #endif
12699 : : #endif
12700 : : #if defined(_DYNAMIC)
12701 : : double sqrt_n2;
12702 : : #if defined(_DERIVATE)
12703 : : double sqrt_n2_Vci_ei;
12704 : : double sqrt_n2_Vtnode_GND;
12705 : : double sqrt_n2_Vbi_ei;
12706 : : double sqrt_n2_Vbi_ci;
12707 : : #endif
12708 : : #endif
12709 : : #if defined(_DYNAMIC)
12710 : : double n_1;
12711 : : #if defined(_DERIVATE)
12712 : : double n_1_Vbi_ei;
12713 : : double n_1_Vci_ei;
12714 : : double n_1_Vtnode_GND;
12715 : : double n_1_Vbi_ci;
12716 : : #endif
12717 : : #endif
12718 : : #if defined(_DYNAMIC)
12719 : : double n_w;
12720 : : #endif
12721 : : double twoq;
12722 : : double i_re;
12723 : : #if defined(_DERIVATE)
12724 : : double i_re_Vei_e;
12725 : : double i_re_Vtnode_GND;
12726 : : #endif
12727 : : double flicker_Pwr;
12728 : : #if defined(_DERIVATE)
12729 : : double flicker_Pwr_Vei_e;
12730 : : double flicker_Pwr_Vtnode_GND;
12731 : : double flicker_Pwr_Vbi_ei;
12732 : : double flicker_Pwr_Vbp_ei;
12733 : : double flicker_Pwr_Vbi_ci;
12734 : : #endif
12735 : : double fourkt;
12736 : : #if defined(_DERIVATE)
12737 : : double fourkt_Vtnode_GND;
12738 : : #endif
12739 : : {
12740 : : #if defined(_DERIVATE)
12741 : 0 : fourkt_Vtnode_GND=((4.0*1.3806503e-23)*Tdev_Vtnode_GND);
12742 : : #endif
12743 : 0 : fourkt=((4.0*1.3806503e-23)*Tdev);
12744 [ # # ]: 0 : if
12745 : : (rbx>=0.001)
12746 : : {
12747 : 0 : _save_whitenoise2(b,bp,(fourkt/rbx_t),"thermal");
12748 : : }
12749 [ # # ]: 0 : if
12750 : : (rbi0>=0.001)
12751 : : {
12752 : 0 : _save_whitenoise2(bp,bi,(fourkt/rbi),"thermal");
12753 : : }
12754 [ # # ]: 0 : if
12755 : : (rcx>=0.001)
12756 : : {
12757 : 0 : _save_whitenoise2(ci,c,(fourkt/rcx_t),"thermal");
12758 : : }
12759 [ # # ]: 0 : if
12760 : : (re>=0.001)
12761 : : {
12762 : 0 : _save_whitenoise2(ei,e,(fourkt/re_t),"thermal");
12763 : : }
12764 [ # # ]: 0 : if
12765 : : (rsu>=0.001)
12766 : : {
12767 : 0 : _save_whitenoise2(si,s,(fourkt/rsu),"thermal");
12768 : : }
12769 : : {
12770 : 0 : double m00_pow(d00_pow0,(ibei+ibep),af)
12771 : : #if defined(_DERIVATE)
12772 [ # # ]: 0 : double m10_pow(d10_pow0,d00_pow0,(ibei+ibep),af)
12773 : : #endif
12774 : : #if defined(_DERIVATE)
12775 : 0 : flicker_Pwr_Vei_e=0.0;
12776 : 0 : flicker_Pwr_Vtnode_GND=(kf*(d10_pow0*(ibei_Vtnode_GND+ibep_Vtnode_GND)));
12777 : 0 : flicker_Pwr_Vbi_ei=(kf*(d10_pow0*(ibei_Vbi_ei+ibep_Vbi_ei)));
12778 : 0 : flicker_Pwr_Vbp_ei=(kf*(d10_pow0*ibep_Vbp_ei));
12779 : 0 : flicker_Pwr_Vbi_ci=(kf*(d10_pow0*ibep_Vbi_ci));
12780 : : #endif
12781 : 0 : flicker_Pwr=(kf*d00_pow0);
12782 : : }
12783 [ # # ]: 0 : if
12784 : : (cfbe==(-1))
12785 : : {
12786 : 0 : _save_flickernoise2(bi,ei,flicker_Pwr,1.0,NULL);
12787 : : }
12788 : : else
12789 : : {
12790 : 0 : _save_flickernoise2(bp,ei,flicker_Pwr,1.0,NULL);
12791 : : }
12792 [ # # ]: 0 : if
12793 : : (re>=0.001)
12794 : : {
12795 : : #if defined(_DERIVATE)
12796 : 0 : i_re_Vei_e=(1/re_t);
12797 [ # # ]: 0 : i_re_Vtnode_GND=(-BP(ei,e)*re_t_Vtnode_GND/re_t/re_t);
12798 : : #endif
12799 [ # # ]: 0 : i_re=(BP(ei,e)/re_t);
12800 : : {
12801 [ # # ]: 0 : double m00_abs(d00_abs0,i_re)
12802 : 0 : double m00_pow(d00_pow1,d00_abs0,afre)
12803 : : #if defined(_DERIVATE)
12804 [ # # ]: 0 : double m10_abs(d10_abs0,d00_abs0,i_re)
12805 [ # # ]: 0 : double m10_pow(d10_pow1,d00_pow1,d00_abs0,afre)
12806 : : #endif
12807 : : #if defined(_DERIVATE)
12808 : 0 : flicker_Pwr_Vei_e=(kfre*(d10_pow1*i_re_Vei_e*d10_abs0));
12809 : 0 : flicker_Pwr_Vtnode_GND=(kfre*(d10_pow1*i_re_Vtnode_GND*d10_abs0));
12810 : 0 : flicker_Pwr_Vbi_ei=0.0;
12811 : 0 : flicker_Pwr_Vbp_ei=0.0;
12812 : 0 : flicker_Pwr_Vbi_ci=0.0;
12813 : : #endif
12814 : 0 : flicker_Pwr=(kfre*d00_pow1);
12815 : : }
12816 : 0 : _save_flickernoise2(ei,e,flicker_Pwr,1.0,NULL);
12817 : : }
12818 : 0 : twoq=(2.0*1.602176462e-19);
12819 : 0 : _save_whitenoise2(ci,bi,(twoq*iavl),"shot");
12820 : 0 : _save_whitenoise2(bi,ci,(twoq*abs(ibci)),"shot");
12821 : 0 : _save_whitenoise2(bp,ei,(twoq*ibep),"shot");
12822 : 0 : _save_whitenoise2(bp,ci,(twoq*abs(ijbcx)),"shot");
12823 : 0 : _save_whitenoise2(si,ci,(twoq*abs(ijsc)),"shot");
12824 [ # # ]: 0 : if
12825 : : (flcono==1)
12826 : : {
12827 : : #if defined(_DYNAMIC)
12828 : 0 : n_w=1;
12829 : : #endif
12830 : : #if defined(_DYNAMIC)
12831 : : #if defined(_DERIVATE)
12832 : 0 : n_1_Vbi_ei=Tf_Vbi_ei*alit;
12833 : 0 : n_1_Vci_ei=Tf_Vci_ei*alit;
12834 : 0 : n_1_Vtnode_GND=Tf_Vtnode_GND*alit;
12835 : 0 : n_1_Vbi_ci=Tf_Vbi_ci*alit;
12836 : : #endif
12837 : 0 : n_1=(Tf*alit);
12838 : : #endif
12839 : : #if defined(_DYNAMIC)
12840 : : #if defined(_DERIVATE)
12841 : 0 : sqrt_n2_Vci_ei=betadc_Vci_ei*((2*alqf)-(alit*alit));
12842 : 0 : sqrt_n2_Vtnode_GND=betadc_Vtnode_GND*((2*alqf)-(alit*alit));
12843 : 0 : sqrt_n2_Vbi_ei=betadc_Vbi_ei*((2*alqf)-(alit*alit));
12844 : 0 : sqrt_n2_Vbi_ci=betadc_Vbi_ci*((2*alqf)-(alit*alit));
12845 : : #endif
12846 : 0 : sqrt_n2=(betadc*((2*alqf)-(alit*alit)));
12847 : : #endif
12848 : : #ifdef _DYNAMIC
12849 [ # # ]: 0 : if
12850 : : (sqrt_n2>0.0)
12851 : : {
12852 : : #if defined(_DYNAMIC)
12853 : : {
12854 : 0 : double m00_sqrt(d00_sqrt0,sqrt_n2)
12855 : : #if defined(_DERIVATE)
12856 : 0 : double m10_sqrt(d10_sqrt0,d00_sqrt0,sqrt_n2)
12857 : : #endif
12858 : : #if defined(_DERIVATE)
12859 : 0 : n_2_Vbi_ei=((Tf_Vbi_ei*d00_sqrt0)+(Tf*sqrt_n2_Vbi_ei*d10_sqrt0));
12860 : 0 : n_2_Vci_ei=((Tf_Vci_ei*d00_sqrt0)+(Tf*sqrt_n2_Vci_ei*d10_sqrt0));
12861 : 0 : n_2_Vtnode_GND=((Tf_Vtnode_GND*d00_sqrt0)+(Tf*sqrt_n2_Vtnode_GND*d10_sqrt0));
12862 : 0 : n_2_Vbi_ci=((Tf_Vbi_ci*d00_sqrt0)+(Tf*sqrt_n2_Vbi_ci*d10_sqrt0));
12863 : : #endif
12864 : 0 : n_2=(Tf*d00_sqrt0);
12865 : : }
12866 : : #endif
12867 : : }
12868 : : else
12869 : : {
12870 : : #if defined(_DYNAMIC)
12871 : : #if defined(_DERIVATE)
12872 : 0 : n_2_Vbi_ei=0.0;
12873 : 0 : n_2_Vci_ei=0.0;
12874 : 0 : n_2_Vtnode_GND=0.0;
12875 : 0 : n_2_Vbi_ci=0.0;
12876 : : #endif
12877 : 0 : n_2=0;
12878 : : #endif
12879 : : }
12880 : : #endif /* if (...) */
12881 : 0 : _save_whitenoise1(n1,((2*1.602176462e-19)*ibei),"shot");
12882 : 0 : _load_static_residual1(n1,(-NP(n1)));
12883 : : #if defined(_DERIVATE)
12884 [ # # ]: 0 : _load_static_jacobian1(n1,n1,(-1.0));
12885 : : #endif
12886 : : #if defined(_DYNAMIC)
12887 [ # # ][ # # ]: 0 : _load_dynamic_residual2(bi,ei,(NP(n1)+((n_2/n_w)*_DDT((n_w*NP(n1))))));
[ # # ][ # # ]
[ # # ]
12888 : : #if defined(_DERIVATE)
12889 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ei,bi,ci,(n_2_Vbi_ci/n_w)*_DDT((n_w*NP(n1))));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
12890 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(bi,ei,tnode,(n_2_Vtnode_GND/n_w)*_DDT((n_w*NP(n1))));
[ # # ][ # # ]
[ # # ]
12891 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ei,ci,ei,(n_2_Vci_ei/n_w)*_DDT((n_w*NP(n1))));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
12892 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ei,bi,ei,(n_2_Vbi_ei/n_w)*_DDT((n_w*NP(n1))));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
12893 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(bi,ei,n1,(1.0+((n_2/n_w)*(n_w))));
[ # # ]
12894 : : #endif
12895 : : #endif
12896 : : #if defined(_DYNAMIC)
12897 [ # # ][ # # ]: 0 : _load_dynamic_residual2(bi,ei,((n_1/n_w)*_DDT((n_w*NP(n2)))));
12898 : : #if defined(_DERIVATE)
12899 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(bi,ei,n2,((n_1/n_w)*(n_w)));
[ # # ]
12900 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ei,bi,ci,(n_1_Vbi_ci/n_w)*_DDT((n_w*NP(n2))));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
12901 [ # # ][ # # ]: 0 : _load_dynamic_jacobian2s(bi,ei,tnode,(n_1_Vtnode_GND/n_w)*_DDT((n_w*NP(n2))));
[ # # ][ # # ]
[ # # ]
12902 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ei,ci,ei,(n_1_Vci_ei/n_w)*_DDT((n_w*NP(n2))));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
12903 [ # # ][ # # ]: 0 : _load_dynamic_jacobian4(bi,ei,bi,ei,(n_1_Vbi_ei/n_w)*_DDT((n_w*NP(n2))));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
12904 : : #endif
12905 : : #endif
12906 : 0 : _save_whitenoise1(n2,((2*1.602176462e-19)*it),"shot");
12907 : 0 : _load_static_residual1(n2,(-NP(n2)));
12908 : : #if defined(_DERIVATE)
12909 [ # # ]: 0 : _load_static_jacobian1(n2,n2,(-1.0));
12910 : : #endif
12911 : 0 : _load_static_residual2(ci,ei,NP(n2));
12912 : : #if defined(_DERIVATE)
12913 [ # # ]: 0 : _load_static_jacobian2s(ci,ei,n2,1.0);
12914 : : #endif
12915 : : }
12916 : : else
12917 : : {
12918 : 0 : _save_whitenoise2(ci,ei,(twoq*it),"shot");
12919 : 0 : _save_whitenoise2(bi,ei,(twoq*ibei),"shot");
12920 : 0 : _load_static_residual1(n1,NP(n1));
12921 : : #if defined(_DERIVATE)
12922 [ # # ]: 0 : _load_static_jacobian1(n1,n1,1.0);
12923 : : #endif
12924 : 0 : _load_static_residual1(n2,NP(n2));
12925 : : #if defined(_DERIVATE)
12926 [ # # ]: 0 : _load_static_jacobian1(n2,n2,1.0);
12927 : : #endif
12928 : : }
12929 : : }
12930 : :
12931 : : /* ------------------- end of verilog noise equations --------------------- */
12932 : 0 : }
12933 : :
12934 : : /* Perform DC iteration. */
12935 : 0 : void hicumL2V2p31n::calcDC (void)
12936 : : {
12937 : : // evaluate Verilog code
12938 : 0 : initVerilog ();
12939 : 0 : calcVerilog ();
12940 : :
12941 : : // fill right hand side and static jacobian
12942 [ # # ]: 0 : for (int i1 = 0; i1 < 15; i1++) {
12943 [ # # ]: 0 : setI (i1, _rhs[i1]);
12944 [ # # ]: 0 : for (int i2 = 0; i2 < 15; i2++) {
12945 [ # # ]: 0 : setY (i1, i2, _jstat[i1][i2]);
12946 : : }
12947 : : }
12948 : 0 : }
12949 : :
12950 : : /* Save operating points. */
12951 : 0 : void hicumL2V2p31n::saveOperatingPoints (void)
12952 : : {
12953 : : // save global instance operating points
12954 : 0 : setOperatingPoint ("it", it);
12955 : 0 : setOperatingPoint ("ibei", ibei);
12956 : 0 : setOperatingPoint ("ibci", ibci);
12957 : 0 : setOperatingPoint ("ibep", ibep);
12958 : 0 : setOperatingPoint ("iavl", iavl);
12959 : 0 : setOperatingPoint ("ijbcx", ijbcx);
12960 : 0 : setOperatingPoint ("ijsc", ijsc);
12961 : 0 : setOperatingPoint ("rbi", rbi);
12962 : 0 : setOperatingPoint ("Tf", Tf);
12963 : 0 : setOperatingPoint ("betadc", betadc);
12964 : 0 : }
12965 : :
12966 : : /* Load operating points. */
12967 : 0 : void hicumL2V2p31n::loadOperatingPoints (void)
12968 : : {
12969 : 0 : }
12970 : :
12971 : : /* Calculate operating points. */
12972 : 0 : void hicumL2V2p31n::calcOperatingPoints (void)
12973 : : {
12974 : 0 : }
12975 : :
12976 : : /* Initialization of AC analysis. */
12977 : 0 : void hicumL2V2p31n::initAC (void)
12978 : : {
12979 : 0 : allocMatrixMNA ();
12980 : 0 : }
12981 : :
12982 : : /* Perform AC calculations. */
12983 : 0 : void hicumL2V2p31n::calcAC (nr_double_t frequency)
12984 : : {
12985 [ # # ]: 0 : setMatrixY (calcMatrixY (frequency));
12986 : 0 : }
12987 : :
12988 : : /* Compute Y-matrix for AC analysis. */
12989 : 0 : matrix hicumL2V2p31n::calcMatrixY (nr_double_t frequency)
12990 : : {
12991 : 0 : _freq = frequency;
12992 : 0 : saveOperatingPoints ();
12993 : 0 : matrix y (15);
12994 : :
12995 [ # # ]: 0 : for (int i1 = 0; i1 < 15; i1++) {
12996 [ # # ]: 0 : for (int i2 = 0; i2 < 15; i2++) {
12997 : 0 : y (i1,i2) = nr_complex_t (_jstat[i1][i2], _jdyna[i1][i2] * 2 * M_PI * _freq);
12998 : : }
12999 : : }
13000 : :
13001 : 0 : return y;
13002 : : }
13003 : :
13004 : : /* Initialization of S-parameter analysis. */
13005 : 0 : void hicumL2V2p31n::initSP (void)
13006 : : {
13007 : 0 : allocMatrixS ();
13008 : 0 : }
13009 : :
13010 : : /* Perform S-parameter calculations. */
13011 : 0 : void hicumL2V2p31n::calcSP (nr_double_t frequency)
13012 : : {
13013 [ # # ][ # # ]: 0 : setMatrixS (ytos (calcMatrixY (frequency)));
[ # # ][ # # ]
[ # # ]
13014 : 0 : }
13015 : :
13016 : : /* Initialization of transient analysis. */
13017 : 0 : void hicumL2V2p31n::initTR (void)
13018 : : {
13019 : 0 : setStates (2 * 15 * 15);
13020 : 0 : initDC ();
13021 : 0 : }
13022 : :
13023 : : /* Perform transient analysis iteration step. */
13024 : 0 : void hicumL2V2p31n::calcTR (nr_double_t)
13025 : : {
13026 : 0 : doHB = 0;
13027 : 0 : doAC = 1;
13028 : 0 : doTR = 1;
13029 : 0 : calcDC ();
13030 : :
13031 : : int i1, i2, i3, i4, state;
13032 : :
13033 : : // 2-node charge integrations
13034 [ # # ]: 0 : for (i1 = 0; i1 < 15; i1++) {
13035 [ # # ]: 0 : for (i2 = 0; i2 < 15; i2++) {
13036 : 0 : state = 2 * (i2 + 15 * i1);
13037 [ # # ]: 0 : if (i1 != i2)
13038 [ # # ]: 0 : if (_charges[i1][i2] != 0.0)
13039 : 0 : transientCapacitanceQ (state, i1, i2, _charges[i1][i2]);
13040 : : } }
13041 : :
13042 : : // 1-node charge integrations
13043 [ # # ]: 0 : for (i1 = 0; i1 < 15; i1++) {
13044 : 0 : state = 2 * (i1 + 15 * i1);
13045 [ # # ]: 0 : if (_charges[i1][i1] != 0.0)
13046 : 0 : transientCapacitanceQ (state, i1, _charges[i1][i1]);
13047 : : }
13048 : :
13049 : : // charge: 2-node, voltage: 2-node
13050 [ # # ]: 0 : for (i1 = 0; i1 < 15; i1++) {
13051 [ # # ]: 0 : for (i2 = 0; i2 < 15; i2++) {
13052 [ # # ]: 0 : if (i1 != i2)
13053 [ # # ]: 0 : for (i3 = 0; i3 < 15; i3++) {
13054 [ # # ]: 0 : for (i4 = 0; i4 < 15; i4++) {
13055 [ # # ]: 0 : if (i3 != i4)
13056 [ # # ]: 0 : if (_caps[i1][i2][i3][i4] != 0.0)
13057 [ # # ][ # # ]: 0 : transientCapacitanceC (i1, i2, i3, i4, _caps[i1][i2][i3][i4], BP(i3,i4));
13058 : : } } } }
13059 : :
13060 : : // charge: 2-node, voltage: 1-node
13061 [ # # ]: 0 : for (i1 = 0; i1 < 15; i1++) {
13062 [ # # ]: 0 : for (i2 = 0; i2 < 15; i2++) {
13063 [ # # ]: 0 : if (i1 != i2)
13064 [ # # ]: 0 : for (i3 = 0; i3 < 15; i3++) {
13065 [ # # ]: 0 : if (_caps[i1][i2][i3][i3] != 0.0)
13066 [ # # ]: 0 : transientCapacitanceC2Q (i1, i2, i3, _caps[i1][i2][i3][i3], NP(i3));
13067 : : } } }
13068 : :
13069 : : // charge: 1-node, voltage: 2-node
13070 [ # # ]: 0 : for (i1 = 0; i1 < 15; i1++) {
13071 [ # # ]: 0 : for (i3 = 0; i3 < 15; i3++) {
13072 [ # # ]: 0 : for (i4 = 0; i4 < 15; i4++) {
13073 [ # # ]: 0 : if (i3 != i4)
13074 [ # # ]: 0 : if (_caps[i1][i1][i3][i4] != 0.0)
13075 [ # # ][ # # ]: 0 : transientCapacitanceC2V (i1, i3, i4, _caps[i1][i1][i3][i4], BP(i3,i4));
13076 : : } } }
13077 : :
13078 : : // charge: 1-node, voltage: 1-node
13079 [ # # ]: 0 : for (i1 = 0; i1 < 15; i1++) {
13080 [ # # ]: 0 : for (i3 = 0; i3 < 15; i3++) {
13081 [ # # ]: 0 : if (_caps[i1][i1][i3][i3] != 0.0)
13082 [ # # ]: 0 : transientCapacitanceC (i1, i3, _caps[i1][i1][i3][i3], NP(i3));
13083 : : } }
13084 : 0 : }
13085 : :
13086 : : /* Compute Cy-matrix for AC noise analysis. */
13087 : 0 : matrix hicumL2V2p31n::calcMatrixCy (nr_double_t frequency)
13088 : : {
13089 : 0 : _freq = frequency;
13090 : 0 : matrix cy (15);
13091 : :
13092 : 0 : _load_flickernoise2 (ei,e,_flicker_pwr[ei][e],_flicker_exp[ei][e]);
13093 : 0 : _load_flickernoise2 (bp,ei,_flicker_pwr[bp][ei],_flicker_exp[bp][ei]);
13094 : 0 : _load_flickernoise2 (bi,ei,_flicker_pwr[bi][ei],_flicker_exp[bi][ei]);
13095 : 0 : _load_whitenoise1 (n2,_white_pwr[n2][n2]);
13096 : 0 : _load_whitenoise1 (n1,_white_pwr[n1][n1]);
13097 : 0 : _load_whitenoise2 (ci,bi,_white_pwr[ci][bi]);
13098 : 0 : _load_whitenoise2 (si,s,_white_pwr[si][s]);
13099 : 0 : _load_whitenoise2 (ei,e,_white_pwr[ei][e]);
13100 : 0 : _load_whitenoise2 (ci,c,_white_pwr[ci][c]);
13101 : 0 : _load_whitenoise2 (si,ci,_white_pwr[si][ci]);
13102 : 0 : _load_whitenoise2 (bp,ei,_white_pwr[bp][ei]);
13103 : 0 : _load_whitenoise2 (bp,bi,_white_pwr[bp][bi]);
13104 : 0 : _load_whitenoise2 (b,bp,_white_pwr[b][bp]);
13105 : 0 : _load_whitenoise2 (bp,ci,_white_pwr[bp][ci]);
13106 : 0 : _load_whitenoise2 (ci,ei,_white_pwr[ci][ei]);
13107 : 0 : _load_whitenoise2 (bi,ci,_white_pwr[bi][ci]);
13108 : 0 : _load_whitenoise2 (bi,ei,_white_pwr[bi][ei]);
13109 : :
13110 : 0 : return cy;
13111 : : }
13112 : :
13113 : : /* Perform AC noise computations. */
13114 : 0 : void hicumL2V2p31n::calcNoiseAC (nr_double_t frequency)
13115 : : {
13116 [ # # ]: 0 : setMatrixN (calcMatrixCy (frequency));
13117 : 0 : }
13118 : :
13119 : : /* Perform S-parameter noise computations. */
13120 : 0 : void hicumL2V2p31n::calcNoiseSP (nr_double_t frequency)
13121 : : {
13122 [ # # ][ # # ]: 0 : setMatrixN (cytocs (calcMatrixCy (frequency) * z0, getMatrixS ()));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
13123 : 0 : }
13124 : :
13125 : : /* Initialization of HB analysis. */
13126 : 0 : void hicumL2V2p31n::initHB (int)
13127 : : {
13128 : 0 : initDC ();
13129 : 0 : allocMatrixHB ();
13130 : 0 : }
13131 : :
13132 : : /* Perform HB analysis. */
13133 : 0 : void hicumL2V2p31n::calcHB (int)
13134 : : {
13135 : 0 : doHB = 1;
13136 : 0 : doAC = 1;
13137 : 0 : doTR = 0;
13138 : :
13139 : : // jacobian dI/dV and currents get filled
13140 : 0 : calcDC ();
13141 : 0 : saveOperatingPoints ();
13142 : :
13143 : : // fill in HB matrices
13144 [ # # ]: 0 : for (int i1 = 0; i1 < 15; i1++) {
13145 [ # # ]: 0 : setQ (i1, _qhs[i1]); // charges
13146 [ # # ]: 0 : setCV (i1, _chs[i1]); // jacobian dQ/dV * V
13147 [ # # ]: 0 : setGV (i1, _ghs[i1]); // jacobian dI/dV * V
13148 [ # # ]: 0 : for (int i2 = 0; i2 < 15; i2++) {
13149 [ # # ]: 0 : setQV (i1, i2, _jdyna[i1][i2]); // jacobian dQ/dV
13150 : : }
13151 : : }
13152 : 0 : }
13153 : :
13154 : : #include "hicumL2V2p31n.defs.h"
13155 : :
|
