My Project  0.0.16
QUCS Mapping
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
hicumL2V2p24.core.cpp
Go to the documentation of this file.
1 /*
2  * hicumL2V2p24.core.cpp - device implementations for hicumL2V2p24 module
3  *
4  * This is free software; you can redistribute it and/or modify
5  * it under the terms of the GNU General Public License as published by
6  * the Free Software Foundation; either version 2, or (at your option)
7  * any later version.
8  *
9  */
10 
11 #if HAVE_CONFIG_H
12 #include <config.h>
13 #endif
14 
15 #include "hicumL2V2p24.analogfunction.h"
16 #include "component.h"
17 #include "device.h"
18 #include "hicumL2V2p24.core.h"
19 
20 #ifndef CIR_hicumL2V2p24
21 #define CIR_hicumL2V2p24 -1
22 #endif
23 
24 // external nodes
25 #define c 0
26 #define b 1
27 #define e 2
28 #define s 3
29 #define tnode 4
30 // internal nodes
31 #define ci 5
32 #define ei 6
33 #define bp 7
34 #define bi 8
35 #define si 9
36 #define xf1 10
37 #define xf2 11
38 #define xf 12
39 #define n1 13
40 #define n2 14
41 
42 // useful macro definitions
43 #define NP(node) real (getV (node))
44 #define BP(pnode,nnode) (NP(pnode) - NP(nnode))
45 #define _load_static_residual2(pnode,nnode,current)\
46  _rhs[pnode] -= current;\
47  _rhs[nnode] += current;
48 #define _load_static_augmented_residual2(pnode,nnode,current)\
49  _rhs[pnode] -= current;\
50  _rhs[nnode] += current;
51 #define _load_static_residual1(node,current)\
52  _rhs[node] -= current;
53 #define _load_static_augmented_residual1(node,current)\
54  _rhs[node] -= current;
55 #define _load_static_jacobian4(pnode,nnode,vpnode,vnnode,conductance)\
56  _jstat[pnode][vpnode] += conductance;\
57  _jstat[nnode][vnnode] += conductance;\
58  _jstat[pnode][vnnode] -= conductance;\
59  _jstat[nnode][vpnode] -= conductance;\
60  if (doHB) {\
61  _ghs[pnode] += conductance * BP(vpnode,vnnode);\
62  _ghs[nnode] -= conductance * BP(vpnode,vnnode);\
63  } else {\
64  _rhs[pnode] += conductance * BP(vpnode,vnnode);\
65  _rhs[nnode] -= conductance * BP(vpnode,vnnode);\
66  }
67 #define _load_static_jacobian2p(node,vpnode,vnnode,conductance)\
68  _jstat[node][vpnode] += conductance;\
69  _jstat[node][vnnode] -= conductance;\
70  if (doHB) {\
71  _ghs[node] += conductance * BP(vpnode,vnnode);\
72  } else {\
73  _rhs[node] += conductance * BP(vpnode,vnnode);\
74  }
75 #define _load_static_jacobian2s(pnode,nnode,node,conductance)\
76  _jstat[pnode][node] += conductance;\
77  _jstat[nnode][node] -= conductance;\
78  if (doHB) {\
79  _ghs[pnode] += conductance * NP(node);\
80  _ghs[nnode] -= conductance * NP(node);\
81  } else {\
82  _rhs[pnode] += conductance * NP(node);\
83  _rhs[nnode] -= conductance * NP(node);\
84  }
85 #define _load_static_jacobian1(node,vnode,conductance)\
86  _jstat[node][vnode] += conductance;\
87  if (doHB) {\
88  _ghs[node] += conductance * NP(vnode);\
89  } else {\
90  _rhs[node] += conductance * NP(vnode);\
91  }
92 #define _load_dynamic_residual2(pnode,nnode,charge)\
93  if (doTR) _charges[pnode][nnode] += charge;\
94  if (doHB) {\
95  _qhs[pnode] -= charge;\
96  _qhs[nnode] += charge;\
97  }
98 #define _load_dynamic_residual1(node,charge)\
99  if (doTR) _charges[node][node] += charge;\
100  if (doHB) {\
101  _qhs[node] -= charge;\
102  }
103 #define _load_dynamic_jacobian4(pnode,nnode,vpnode,vnnode,capacitance)\
104  if (doAC) {\
105  _jdyna[pnode][vpnode] += capacitance;\
106  _jdyna[nnode][vnnode] += capacitance;\
107  _jdyna[pnode][vnnode] -= capacitance;\
108  _jdyna[nnode][vpnode] -= capacitance;\
109  }\
110  if (doTR) {\
111  _caps[pnode][nnode][vpnode][vnnode] += capacitance;\
112  }\
113  if (doHB) {\
114  _chs[pnode] += capacitance * BP(vpnode,vnnode);\
115  _chs[nnode] -= capacitance * BP(vpnode,vnnode);\
116  }
117 #define _load_dynamic_jacobian2s(pnode,nnode,vnode,capacitance)\
118  if (doAC) {\
119  _jdyna[pnode][vnode] += capacitance;\
120  _jdyna[nnode][vnode] -= capacitance;\
121  }\
122  if (doTR) {\
123  _caps[pnode][nnode][vnode][vnode] += capacitance;\
124  }\
125  if (doHB) {\
126  _chs[pnode] += capacitance * NP(vnode);\
127  _chs[nnode] -= capacitance * NP(vnode);\
128  }
129 #define _load_dynamic_jacobian2p(node,vpnode,vnnode,capacitance)\
130  if (doAC) {\
131  _jdyna[node][vpnode] += capacitance;\
132  _jdyna[node][vnnode] -= capacitance;\
133  }\
134  if (doTR) {\
135  _caps[node][node][vpnode][vnnode] += capacitance;\
136  }\
137  if (doHB) {\
138  _chs[node] += capacitance * BP(vpnode,vnnode);\
139  }
140 #define _load_dynamic_jacobian1(node,vnode,capacitance)\
141  if (doAC) {\
142  _jdyna[node][vnode] += capacitance;\
143  }\
144  if (doTR) {\
145  _caps[node][node][vnode][vnode] += capacitance;\
146  }\
147  if (doHB) {\
148  _chs[node] += capacitance * NP(vnode);\
149  }
150 
151 #define _save_whitenoise1(n1,pwr,type)\
152  _white_pwr[n1][n1] += pwr;
153 #define _save_whitenoise2(n1,n2,pwr,type)\
154  _white_pwr[n1][n2] += pwr;
155 #define _save_flickernoise1(n1,pwr,exp,type)\
156  _flicker_pwr[n1][n1] += pwr;\
157  _flicker_exp[n1][n1] += exp;
158 #define _save_flickernoise2(n1,n2,pwr,exp,type)\
159  _flicker_pwr[n1][n2] += pwr;\
160  _flicker_exp[n1][n2] += exp;
161 #define _load_whitenoise2(n1,n2,pwr)\
162  cy (n1,n2) -= pwr/kB/T0; cy (n2,n1) -= pwr/kB/T0;\
163  cy (n1,n1) += pwr/kB/T0; cy (n2,n2) += pwr/kB/T0;
164 #define _load_whitenoise1(n1,pwr)\
165  cy (n1,n1) += pwr/kB/T0;
166 #define _load_flickernoise2(n1,n2,pwr,exp)\
167  cy (n1,n2) -= pwr*pow(_freq,-exp)/kB/T0;\
168  cy (n2,n1) -= pwr*pow(_freq,-exp)/kB/T0;\
169  cy (n1,n1) += pwr*pow(_freq,-exp)/kB/T0;\
170  cy (n2,n2) += pwr*pow(_freq,-exp)/kB/T0;
171 #define _load_flickernoise1(n1,pwr,exp)\
172  cy (n1,n1) += pwr*pow(_freq,-exp)/kB/T0;
173 
174 // derivative helper macros
175 #define m00_hypot(v00,x,y) v00 = xhypot(x,y);
176 #define m10_hypot(v10,v00,x,y) v10 = (x)/(v00);
177 #define m11_hypot(v11,v00,x,y) v11 = (y)/(v00);
178 #define m00_max(v00,x,y) v00 = ((x)>(y))?(x):(y);
179 #define m10_max(v10,v00,x,y) v10 = ((x)>(y))?1.0:0.0;
180 #define m11_max(v11,v00,x,y) v11 = ((x)>(y))?0.0:1.0;
181 #define m00_min(v00,x,y) v00 = ((x)<(y))?(x):(y);
182 #define m10_min(v10,v00,x,y) v10 = ((x)<(y))?1.0:0.0;
183 #define m11_min(v11,v00,x,y) v11 = ((x)<(y))?0.0:1.0;
184 #define m00_pow(v00,x,y) v00 = pow(x,y);
185 #define m10_pow(v10,v00,x,y) v10 = (x==0.0)?0.0:(v00)*(y)/(x);
186 #define m11_pow(v11,v00,x,y) v11 = (x==0.0)?0.0:(log(x)*(v00));
187 
188 #define m00_div(v00,v10,x,y) double v10=1/(y); double v00=(x)*v10;
189 #define m10_div(v10,v00,vv,x,y)
190 #define m11_div(v11,v00,vv,x,y) double v11 = -v00*vv;
191 
192 #define m00_mult(v00,v10,v11,x,y) double v10=(x); double v11=(y); double v00=v10*v11;
193 #define m00_add(v00,x,y) double v00=(x)+(y);
194 
195 #define m00_cos(v00,x) v00 = cos(x);
196 #define m10_cos(v10,v00,x) v10 = (-sin(x));
197 #define m00_sin(v00,x) v00 = sin(x);
198 #define m10_sin(v10,v00,x) v10 = (cos(x));
199 #define m00_tan(v00,x) v00 = tan(x);
200 #define m10_tan(v10,v00,x) v10 = (1.0/cos(x)/cos(x));
201 #define m00_cosh(v00,x) v00 = cosh(x);
202 #define m10_cosh(v10,v00,x) v10 = (sinh(x));
203 #define m00_sinh(v00,x) v00 = sinh(x);
204 #define m10_sinh(v10,v00,x) v10 = (cosh(x));
205 #define m00_tanh(v00,x) v00 = tanh(x);
206 #define m10_tanh(v10,v00,x) v10 = (1.0/cosh(x)/cosh(x));
207 #define m00_acos(v00,x) v00 = acos(x);
208 #define m10_acos(v10,v00,x) v10 = (-1.0/sqrt(1-x*x));
209 #define m00_asin(v00,x) v00 = asin(x);
210 #define m10_asin(v10,v00,x) v10 = (+1.0/sqrt(1-x*x));
211 #define m00_atan(v00,x) v00 = atan(x);
212 #define m10_atan(v10,v00,x) v10 = (+1.0/(1+x*x));
213 #define m00_atanh(v00,x) v00 = atanh(x);
214 #define m10_atanh(v10,v00,x) v10 = (+1.0/(1-x*x));
215 #define m00_logE(v00,x) v00 = log(x);
216 #define m10_logE(v10,v00,x) v10 = (1.0/x);
217 #define m00_log10(v00,x) v00 = log10(x);
218 #define m10_log10(v10,v00,x) v10 = (1.0/x/M_LN10);
219 #define m00_sqrt(v00,x) v00 = sqrt(x);
220 #define m10_sqrt(v10,v00,x) v10 = (0.5/v00);
221 #define m00_fabs(v00,x) v00 = fabs(x);
222 #define m10_fabs(v10,v00,x) v10 = (((x)>=0)?(+1.0):(-1.0));
223 
224 #define m00_exp(v00,x) v00 = exp(x);
225 #define m10_exp(v10,v00,x) v10 = v00;
226 
227 #define m00_abs(v00) ((v00)<(0)?(-(v00)):(v00))
228 #define m00_floor(v00,x) v00 = floor(x);
229 #define m00_limexp(v00,x) v00 = ((x)<80.0?exp(x):exp(80.0)*(x-79.0));
230 #define m10_limexp(v10,v00,x) v10 = ((x)<80.0?(v00):exp(80.0));
231 
232 #define m20_logE(v00) (-1.0/v00/v00)
233 #define m20_exp(v00) exp(v00)
234 #define m20_limexp(v00) ((v00)<80.0?exp(v00):0.0)
235 #define m20_sqrt(v00) (-0.25/(v00)/sqrt(v00))
236 #define m20_fabs(v00) 0.0
237 #define m20_pow(x,y) ((y)*((y)-1.0)*pow(x,y)/(x)/(x))
238 #define m00_vt(x) (kBoverQ*(x))
239 #define m10_vt(x) (kBoverQ)
240 
241 // simulator specific definitions
242 #define _modelname "hicumL2V2p24"
243 #define _instancename getName()
244 #define _circuit_temp (getPropertyDouble("Temp")+273.15)
245 #define _param_given(p) (isPropertyGiven(p)?1:0)
246 
247 
248 // $vt and $vt() functions
249 #define _vt_nom (kBoverQ*_circuit_temp)
250 
251 using namespace device;
252 
253 /* Device constructor. */
254 hicumL2V2p24::hicumL2V2p24() : circuit (15)
255 {
256  type = CIR_hicumL2V2p24;
257 }
258 
259 /* Initialization of model. */
260 void hicumL2V2p24::initModel (void)
261 {
262  // create internal nodes
263  setInternalNode (ci, "ci");
264  setInternalNode (ei, "ei");
265  setInternalNode (bp, "bp");
266  setInternalNode (bi, "bi");
267  setInternalNode (si, "si");
268  setInternalNode (xf1, "xf1");
269  setInternalNode (xf2, "xf2");
270  setInternalNode (xf, "xf");
271  setInternalNode (n1, "n1");
272  setInternalNode (n2, "n2");
273 
274  // get device model parameters
275  loadVariables ();
276  // evaluate global model equations
277  initializeModel ();
278  // evaluate initial step equations
279  initialStep ();
280  // evaluate global instance equations
281  initializeInstance ();
282 }
283 
284 /* Initialization of DC analysis. */
285 void hicumL2V2p24::initDC (void)
286 {
287  allocMatrixMNA ();
288  initModel ();
289  pol = 1;
290  restartDC ();
291  doAC = 1;
292  doTR = 0;
293  doHB = 0;
294 }
295 
296 /* Run when DC is restarted (fallback algorithms). */
297 void hicumL2V2p24::restartDC (void)
298 {
299 }
300 
301 /* Initialize Verilog-AMS code. */
302 void hicumL2V2p24::initVerilog (void)
303 {
304  // initialization of noise variables
305  _white_pwr[n2][n2] = 0.0;
306  _white_pwr[n1][n1] = 0.0;
307  _white_pwr[ci][bi] = 0.0;
308  _white_pwr[si][s] = 0.0;
309  _white_pwr[ei][e] = 0.0;
310  _white_pwr[ci][c] = 0.0;
311  _white_pwr[si][ci] = 0.0;
312  _white_pwr[bp][ei] = 0.0;
313  _white_pwr[bp][bi] = 0.0;
314  _white_pwr[b][bp] = 0.0;
315  _white_pwr[bp][ci] = 0.0;
316  _white_pwr[bi][ci] = 0.0;
317  _flicker_pwr[bp][ei] = 0.0;
318  _flicker_exp[bp][ei] = 0.0;
319  _flicker_pwr[bi][ei] = 0.0;
320  _flicker_exp[bi][ei] = 0.0;
321 
322  int i1, i2, i3, i4;
323 
324  // zero charges
325  for (i1 = 0; i1 < 15; i1++) {
326  for (i2 = 0; i2 < 15; i2++) {
327  _charges[i1][i2] = 0.0;
328  } }
329 
330  // zero capacitances
331  for (i1 = 0; i1 < 15; i1++) {
332  for (i2 = 0; i2 < 15; i2++) {
333  for (i3 = 0; i3 < 15; i3++) {
334  for (i4 = 0; i4 < 15; i4++) {
335  _caps[i1][i2][i3][i4] = 0.0;
336  } } } }
337 
338  // zero right hand side, static and dynamic jacobian
339  for (i1 = 0; i1 < 15; i1++) {
340  _rhs[i1] = 0.0;
341  _qhs[i1] = 0.0;
342  _chs[i1] = 0.0;
343  _ghs[i1] = 0.0;
344  for (i2 = 0; i2 < 15; i2++) {
345  _jstat[i1][i2] = 0.0;
346  _jdyna[i1][i2] = 0.0;
347  }
348  }
349 }
350 
351 /* Load device model input parameters. */
352 void hicumL2V2p24::loadVariables (void)
353 {
354  c10 = getPropertyDouble ("c10");
355  qp0 = getPropertyDouble ("qp0");
356  ich = getPropertyDouble ("ich");
357  hfe = getPropertyDouble ("hfe");
358  hfc = getPropertyDouble ("hfc");
359  hjei = getPropertyDouble ("hjei");
360  hjci = getPropertyDouble ("hjci");
361  ibeis = getPropertyDouble ("ibeis");
362  mbei = getPropertyDouble ("mbei");
363  ireis = getPropertyDouble ("ireis");
364  mrei = getPropertyDouble ("mrei");
365  ibeps = getPropertyDouble ("ibeps");
366  mbep = getPropertyDouble ("mbep");
367  ireps = getPropertyDouble ("ireps");
368  mrep = getPropertyDouble ("mrep");
369  mcf = getPropertyDouble ("mcf");
370  tbhrec = getPropertyDouble ("tbhrec");
371  ibcis = getPropertyDouble ("ibcis");
372  mbci = getPropertyDouble ("mbci");
373  ibcxs = getPropertyDouble ("ibcxs");
374  mbcx = getPropertyDouble ("mbcx");
375  ibets = getPropertyDouble ("ibets");
376  abet = getPropertyDouble ("abet");
377  tunode = getPropertyInteger ("tunode");
378  favl = getPropertyDouble ("favl");
379  qavl = getPropertyDouble ("qavl");
380  alfav = getPropertyDouble ("alfav");
381  alqav = getPropertyDouble ("alqav");
382  rbi0 = getPropertyDouble ("rbi0");
383  rbx = getPropertyDouble ("rbx");
384  fgeo = getPropertyDouble ("fgeo");
385  fdqr0 = getPropertyDouble ("fdqr0");
386  fcrbi = getPropertyDouble ("fcrbi");
387  fqi = getPropertyDouble ("fqi");
388  re = getPropertyDouble ("re");
389  rcx = getPropertyDouble ("rcx");
390  itss = getPropertyDouble ("itss");
391  msf = getPropertyDouble ("msf");
392  iscs = getPropertyDouble ("iscs");
393  msc = getPropertyDouble ("msc");
394  tsf = getPropertyDouble ("tsf");
395  rsu = getPropertyDouble ("rsu");
396  csu = getPropertyDouble ("csu");
397  cjei0 = getPropertyDouble ("cjei0");
398  vdei = getPropertyDouble ("vdei");
399  zei = getPropertyDouble ("zei");
400  ajei = getPropertyDouble ("ajei");
401  cjep0 = getPropertyDouble ("cjep0");
402  vdep = getPropertyDouble ("vdep");
403  zep = getPropertyDouble ("zep");
404  ajep = getPropertyDouble ("ajep");
405  cjci0 = getPropertyDouble ("cjci0");
406  vdci = getPropertyDouble ("vdci");
407  zci = getPropertyDouble ("zci");
408  vptci = getPropertyDouble ("vptci");
409  cjcx0 = getPropertyDouble ("cjcx0");
410  vdcx = getPropertyDouble ("vdcx");
411  zcx = getPropertyDouble ("zcx");
412  vptcx = getPropertyDouble ("vptcx");
413  fbcpar = getPropertyDouble ("fbcpar");
414  fbepar = getPropertyDouble ("fbepar");
415  cjs0 = getPropertyDouble ("cjs0");
416  vds = getPropertyDouble ("vds");
417  zs = getPropertyDouble ("zs");
418  vpts = getPropertyDouble ("vpts");
419  t0 = getPropertyDouble ("t0");
420  dt0h = getPropertyDouble ("dt0h");
421  tbvl = getPropertyDouble ("tbvl");
422  tef0 = getPropertyDouble ("tef0");
423  gtfe = getPropertyDouble ("gtfe");
424  thcs = getPropertyDouble ("thcs");
425  ahc = getPropertyDouble ("ahc");
426  fthc = getPropertyDouble ("fthc");
427  rci0 = getPropertyDouble ("rci0");
428  vlim = getPropertyDouble ("vlim");
429  vces = getPropertyDouble ("vces");
430  vpt = getPropertyDouble ("vpt");
431  tr = getPropertyDouble ("tr");
432  cbepar = getPropertyDouble ("cbepar");
433  cbcpar = getPropertyDouble ("cbcpar");
434  alqf = getPropertyDouble ("alqf");
435  alit = getPropertyDouble ("alit");
436  flnqs = getPropertyInteger ("flnqs");
437  kf = getPropertyDouble ("kf");
438  af = getPropertyDouble ("af");
439  cfbe = getPropertyInteger ("cfbe");
440  latb = getPropertyDouble ("latb");
441  latl = getPropertyDouble ("latl");
442  vgb = getPropertyDouble ("vgb");
443  alt0 = getPropertyDouble ("alt0");
444  kt0 = getPropertyDouble ("kt0");
445  zetaci = getPropertyDouble ("zetaci");
446  alvs = getPropertyDouble ("alvs");
447  alces = getPropertyDouble ("alces");
448  zetarbi = getPropertyDouble ("zetarbi");
449  zetarbx = getPropertyDouble ("zetarbx");
450  zetarcx = getPropertyDouble ("zetarcx");
451  zetare = getPropertyDouble ("zetare");
452  zetacx = getPropertyDouble ("zetacx");
453  vge = getPropertyDouble ("vge");
454  vgc = getPropertyDouble ("vgc");
455  vgs = getPropertyDouble ("vgs");
456  f1vg = getPropertyDouble ("f1vg");
457  f2vg = getPropertyDouble ("f2vg");
458  zetact = getPropertyDouble ("zetact");
459  zetabet = getPropertyDouble ("zetabet");
460  alb = getPropertyDouble ("alb");
461  flsh = getPropertyInteger ("flsh");
462  rth = getPropertyDouble ("rth");
463  cth = getPropertyDouble ("cth");
464  flcomp = getPropertyDouble ("flcomp");
465  tnom = getPropertyDouble ("tnom");
466  dt = getPropertyDouble ("dt");
467 }
468 
469 /* #define's for translated code */
470 #undef _DDT
471 #define _DDT(q) q
472 #define _DYNAMIC
473 #define _DERIVATE
474 #define _DDX
475 #define _DERIVATEFORDDX
476 
477 /* Evaluate Verilog-AMS equations in model initialization. */
478 void hicumL2V2p24::initializeModel (void)
479 {
480 #if defined(_DYNAMIC)
481 #if defined(_DERIVATE)
482 double vpts_t_Vtnode_GND;
483 #endif
484 #endif
485 #if defined(_DYNAMIC)
486 #if defined(_DERIVATE)
487 double cjs0_t_Vtnode_GND;
488 #endif
489 #endif
490 #if defined(_DYNAMIC)
491 #if defined(_DERIVATE)
492 double vds_t_Vtnode_GND;
493 #endif
494 #endif
495 #if defined(_DYNAMIC)
496 #if defined(_DERIVATE)
497 double tsf_t_Vtnode_GND;
498 #endif
499 #endif
500 #if defined(_DERIVATE)
501 double re_t_Vtnode_GND;
502 #endif
503 #if defined(_DERIVATE)
504 double rbx_t_Vtnode_GND;
505 #endif
506 #if defined(_DERIVATE)
507 double rcx_t_Vtnode_GND;
508 #endif
509 #if defined(_DYNAMIC)
510 #if defined(_DERIVATE)
511 double cjcx02_t_Vtnode_GND;
512 #endif
513 #endif
514 #if defined(_DYNAMIC)
515 #if defined(_DERIVATE)
516 double cjcx01_t_Vtnode_GND;
517 #endif
518 #endif
519 #if defined(_DYNAMIC)
520 #if defined(_DERIVATE)
521 double vptcx_t_Vtnode_GND;
522 #endif
523 #endif
524 #if defined(_DYNAMIC)
525 #if defined(_DERIVATE)
526 double cratio_t_Vtnode_GND;
527 #endif
528 #endif
529 #if defined(_DYNAMIC)
530 #if defined(_DERIVATE)
531 double vdcx_t_Vtnode_GND;
532 #endif
533 #endif
534 #if defined(_DERIVATE)
535 double abet_t_Vtnode_GND;
536 #endif
537 #if defined(_DERIVATE)
538 double ibets_t_Vtnode_GND;
539 #endif
540 #if defined(_DERIVATE)
541 double ajep_t_Vtnode_GND;
542 #endif
543 #if defined(_DERIVATE)
544 double cjep0_t_Vtnode_GND;
545 #endif
546 #if defined(_DERIVATE)
547 double vdep_t_Vtnode_GND;
548 #endif
549 #if defined(_DERIVATE)
550 double rbi0_t_Vtnode_GND;
551 #endif
552 #if defined(_DERIVATE)
553 double qavl_t_Vtnode_GND;
554 #endif
555 #if defined(_DERIVATE)
556 double favl_t_Vtnode_GND;
557 #endif
558 #if defined(_DERIVATE)
559 double thcs_t_Vtnode_GND;
560 #endif
561 #if defined(_DERIVATE)
562 double t0_t_Vtnode_GND;
563 #endif
564 #if defined(_DERIVATE)
565 double vptci_t_Vtnode_GND;
566 #endif
567 #if defined(_DERIVATE)
568 double cjci0_t_Vtnode_GND;
569 #endif
570 #if defined(_DERIVATE)
571 double vdci_t_Vtnode_GND;
572 #endif
573 #if defined(_DERIVATE)
574 double vces_t_Vtnode_GND;
575 #endif
576 #if defined(_DERIVATE)
577 double rci0_t_Vtnode_GND;
578 #endif
579 #if defined(_DERIVATE)
580 double c10_t_Vtnode_GND;
581 #endif
582 #if defined(_DERIVATE)
583 double tef0_t_Vtnode_GND;
584 #endif
585 #if defined(_DERIVATE)
586 double vlim_t_Vtnode_GND;
587 #endif
588 #if defined(_DERIVATE)
589 double k_Vtnode_GND;
590 #endif
591 #if defined(_DERIVATE)
592 double qp0_t_Vtnode_GND;
593 #endif
594 #if defined(_DERIVATE)
595 double iscs_t_Vtnode_GND;
596 #endif
597 #if defined(_DERIVATE)
598 double itss_t_Vtnode_GND;
599 #endif
600 #if defined(_DERIVATE)
601 double ibcxs_t_Vtnode_GND;
602 #endif
603 #if defined(_DERIVATE)
604 double ibcis_t_Vtnode_GND;
605 #endif
606 #if defined(_DERIVATE)
607 double ireps_t_Vtnode_GND;
608 #endif
609 #if defined(_DERIVATE)
610 double ibeps_t_Vtnode_GND;
611 #endif
612 #if defined(_DERIVATE)
613 double ireis_t_Vtnode_GND;
614 #endif
615 #if defined(_DERIVATE)
616 double ibeis_t_Vtnode_GND;
617 #endif
618 #if defined(_DERIVATE)
619 double a_Vbi_ei;
620 double a_Vbi_ci;
621 double a_Vci_ei;
622 double a_Vtnode_GND;
623 #endif
624 #if defined(_DERIVATE)
625 double r_VgVT_Vtnode_GND;
626 #endif
627 #if defined(_DERIVATE)
628 double V_gT_Vtnode_GND;
629 #endif
630 #if defined(_DERIVATE)
631 double ajei_t_Vtnode_GND;
632 #endif
633 #if defined(_DERIVATE)
634 double cjei0_t_Vtnode_GND;
635 #endif
636 #if defined(_DERIVATE)
637 double vdei_t_Vtnode_GND;
638 #endif
639 #if defined(_DERIVATE)
640 double vdt_Vtnode_GND;
641 #endif
642 #if defined(_DERIVATE)
643 double vdjt_Vtnode_GND;
644 #endif
645 #if defined(_DERIVATE)
646 double vgbe_t_Vtnode_GND;
647 #endif
648 #if defined(_DERIVATE)
649 double vge_t_Vtnode_GND;
650 #endif
651 #if defined(_DERIVATE)
652 double vgb_t_Vtnode_GND;
653 #endif
654 #if defined(_DERIVATE)
655 double k2_Vtnode_GND;
656 #endif
657 #if defined(_DERIVATE)
658 double k1_Vtnode_GND;
659 #endif
660 #if defined(_DERIVATE)
661 double ln_qtt0_Vtnode_GND;
662 #endif
663 #if defined(_DERIVATE)
664 double qtt0_Vtnode_GND;
665 #endif
666 #if defined(_DERIVATE)
667 double dT_Vtnode_GND;
668 #endif
669 #if defined(_DERIVATE)
670 double VT_Vtnode_GND;
671 #endif
672 #if defined(_DERIVATE)
673 double Tdev_Vtnode_GND;
674 #endif
675 #if defined(_DYNAMIC)
676 #endif
677 #if defined(_DYNAMIC)
678 #endif
679 #if defined(_DYNAMIC)
680 #endif
681 #if defined(_DYNAMIC)
682 #endif
683 #if defined(_DYNAMIC)
684 #endif
685 #if defined(_DYNAMIC)
686 #endif
687 #if defined(_DYNAMIC)
688 double C_1;
689 #endif
690 double vge_t0;
691 double vgb_t0;
692 double k20;
693 double k10;
694 {
695 Tnom=(tnom+273.15);
696 Tamb=_circuit_temp;
697 vt0=((1.3806503e-23*Tnom)/1.602176462e-19);
698 {
699 double m00_logE(d00_logE0,Tnom)
700 k10=((f1vg*Tnom)*d00_logE0);
701 }
702 k20=(f2vg*Tnom);
703 avs=(alvs*Tnom);
704 vgb_t0=((vgb+k10)+k20);
705 vge_t0=((vge+k10)+k20);
706 vgbe_t0=((vgb_t0+vge_t0)/2);
707 vgbe0=((vgb+vge)/2);
708 vgbc0=((vgb+vgc)/2);
709 vgsc0=((vgs+vgc)/2);
710 mg=(3-((1.602176462e-19*f1vg)/1.3806503e-23));
711 zetabci=((mg+1)-zetaci);
712 zetabcxt=((mg+1)-zetacx);
713 zetasct=(mg-1.5);
714 #if defined(_DYNAMIC)
715 C_1=((1.0-fbcpar)*(cjcx0+cbcpar));
716 #endif
717 #ifdef _DYNAMIC
718 if
719 ((C_1>=cbcpar))
720 {
721 #if defined(_DYNAMIC)
722 cbcpar1=cbcpar;
723 #endif
724 #if defined(_DYNAMIC)
725 cbcpar2=0.0;
726 #endif
727 #if defined(_DYNAMIC)
728 cjcx01=(C_1-cbcpar);
729 #endif
730 #if defined(_DYNAMIC)
731 cjcx02=(cjcx0-cjcx01);
732 #endif
733 }
734 else
735 {
736 #if defined(_DYNAMIC)
737 cbcpar1=C_1;
738 #endif
739 #if defined(_DYNAMIC)
740 cbcpar2=(cbcpar-cbcpar1);
741 #endif
742 #if defined(_DYNAMIC)
743 cjcx01=0.0;
744 #endif
745 #if defined(_DYNAMIC)
746 cjcx02=cjcx0;
747 #endif
748 }
749 #endif /* if (...) */
750 #if defined(_DYNAMIC)
751 cbepar2=(fbepar*cbepar);
752 #endif
753 #if defined(_DYNAMIC)
754 cbepar1=(cbepar-cbepar2);
755 #endif
756 if
757 ((ich!=0.0))
758 {
759 Oich=(1.0/ich);
760 }
761 else
762 {
763 Oich=0.0;
764 }
765 if
766 ((tbhrec!=0.0))
767 {
768 Otbhrec=(1.0/tbhrec);
769 }
770 else
771 {
772 Otbhrec=0.0;
773 }
774 if
775 (((flsh==0)||(rth<0.001)))
776 {
777 #if defined(_DERIVATE)
778 Tdev_Vtnode_GND=0.0;
779 #endif
780 Tdev=(Tamb+dt);
781 if
782 ((Tdev<((-100.0)+273.15)))
783 {
784 #if defined(_DERIVATE)
785 Tdev_Vtnode_GND=0.0;
786 #endif
787 Tdev=((-100.0)+273.15);
788 }
789 else
790 {
791 if
792 ((Tdev>(326.85+273.15)))
793 {
794 #if defined(_DERIVATE)
795 Tdev_Vtnode_GND=0.0;
796 #endif
797 Tdev=(326.85+273.15);
798 }
799 }
800 #if defined(_DERIVATE)
801 VT_Vtnode_GND=0.0;
802 #endif
803 VT=((1.3806503e-23*Tdev)/1.602176462e-19);
804 #if defined(_DERIVATE)
805 dT_Vtnode_GND=0.0;
806 #endif
807 dT=(Tdev-Tnom);
808 #if defined(_DERIVATE)
809 qtt0_Vtnode_GND=0.0;
810 #endif
811 qtt0=(Tdev/Tnom);
812 {
813 double m00_logE(d00_logE0,qtt0)
814 #if defined(_DERIVATE)
815 ln_qtt0_Vtnode_GND=0.0;
816 #endif
817 ln_qtt0=d00_logE0;
818 }
819 {
820 double m00_logE(d00_logE0,Tdev)
821 #if defined(_DERIVATE)
822 k1_Vtnode_GND=0.0;
823 #endif
824 k1=((f1vg*Tdev)*d00_logE0);
825 }
826 #if defined(_DERIVATE)
827 k2_Vtnode_GND=0.0;
828 #endif
829 k2=(f2vg*Tdev);
830 #if defined(_DERIVATE)
831 vgb_t_Vtnode_GND=0.0;
832 #endif
833 vgb_t=((vgb+k1)+k2);
834 #if defined(_DERIVATE)
835 vge_t_Vtnode_GND=0.0;
836 #endif
837 vge_t=((vge+k1)+k2);
838 #if defined(_DERIVATE)
839 vgbe_t_Vtnode_GND=0.0;
840 #endif
841 vgbe_t=((vgb_t+vge_t)/2);
842 if
843 ((cjei0>0.0))
844 {
845 {
846 double m00_exp(d00_exp0,((vdei*0.5)/vt0))
847 double m00_exp(d00_exp1,(((-0.5)*vdei)/vt0))
848 double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
849 vdj0=((2*vt0)*d00_logE2);
850 }
851 #if defined(_DERIVATE)
852 vdjt_Vtnode_GND=0.0;
853 #endif
854 vdjt=(((vdj0*qtt0)+(vgbe0*(1-qtt0)))-((mg*VT)*ln_qtt0));
855 {
856 double m00_exp(d00_exp0,((-vdjt)/VT))
857 double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
858 double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
859 #if defined(_DERIVATE)
860 vdt_Vtnode_GND=0.0;
861 #endif
862 vdt=(vdjt+((2*VT)*d00_logE2));
863 }
864 #if defined(_DERIVATE)
865 vdei_t_Vtnode_GND=0.0;
866 #endif
867 vdei_t=vdt;
868 {
869 double m00_logE(d00_logE0,(vdei/vdei_t))
870 double m00_exp(d00_exp1,(zei*d00_logE0))
871 #if defined(_DERIVATE)
872 cjei0_t_Vtnode_GND=0.0;
873 #endif
874 cjei0_t=(cjei0*d00_exp1);
875 }
876 if
877 ((1==1))
878 {
879 #if defined(_DERIVATE)
880 ajei_t_Vtnode_GND=0.0;
881 #endif
882 ajei_t=((ajei*vdei_t)/vdei);
883 }
884 else
885 {
886 #if defined(_DERIVATE)
887 ajei_t_Vtnode_GND=0.0;
888 #endif
889 ajei_t=ajei;
890 }
891 }
892 else
893 {
894 #if defined(_DERIVATE)
895 cjei0_t_Vtnode_GND=0.0;
896 #endif
897 cjei0_t=cjei0;
898 #if defined(_DERIVATE)
899 vdei_t_Vtnode_GND=0.0;
900 #endif
901 vdei_t=vdei;
902 #if defined(_DERIVATE)
903 ajei_t_Vtnode_GND=0.0;
904 #endif
905 ajei_t=ajei;
906 }
907 if
908 (((flcomp==0.0)||(flcomp==2.1)))
909 {
910 #if defined(_DERIVATE)
911 V_gT_Vtnode_GND=0.0;
912 #endif
913 V_gT=(((3.0*VT)*ln_qtt0)+(vgb*(qtt0-1.0)));
914 #if defined(_DERIVATE)
915 r_VgVT_Vtnode_GND=0.0;
916 #endif
917 r_VgVT=(V_gT/VT);
918 #if defined(_DERIVATE)
919 a_Vbi_ei=0.0;
920 a_Vbi_ci=0.0;
921 a_Vci_ei=0.0;
922 a_Vtnode_GND=0.0;
923 #endif
924 a=(((mcf*r_VgVT)/mbei)-(alb*dT));
925 {
926 double m00_exp(d00_exp0,a)
927 #if defined(_DERIVATE)
928 ibeis_t_Vtnode_GND=0.0;
929 #endif
930 ibeis_t=(ibeis*d00_exp0);
931 }
932 #if defined(_DERIVATE)
933 a_Vbi_ei=0.0;
934 a_Vbi_ci=0.0;
935 a_Vci_ei=0.0;
936 a_Vtnode_GND=0.0;
937 #endif
938 a=(((mcf*r_VgVT)/mrei)-(alb*dT));
939 {
940 double m00_exp(d00_exp0,a)
941 #if defined(_DERIVATE)
942 ireis_t_Vtnode_GND=0.0;
943 #endif
944 ireis_t=(ireis*d00_exp0);
945 }
946 #if defined(_DERIVATE)
947 a_Vbi_ei=0.0;
948 a_Vbi_ci=0.0;
949 a_Vci_ei=0.0;
950 a_Vtnode_GND=0.0;
951 #endif
952 a=(((mcf*r_VgVT)/mbep)-(alb*dT));
953 {
954 double m00_exp(d00_exp0,a)
955 #if defined(_DERIVATE)
956 ibeps_t_Vtnode_GND=0.0;
957 #endif
958 ibeps_t=(ibeps*d00_exp0);
959 }
960 #if defined(_DERIVATE)
961 a_Vbi_ei=0.0;
962 a_Vbi_ci=0.0;
963 a_Vci_ei=0.0;
964 a_Vtnode_GND=0.0;
965 #endif
966 a=(((mcf*r_VgVT)/mrep)-(alb*dT));
967 {
968 double m00_exp(d00_exp0,a)
969 #if defined(_DERIVATE)
970 ireps_t_Vtnode_GND=0.0;
971 #endif
972 ireps_t=(ireps*d00_exp0);
973 }
974 #if defined(_DERIVATE)
975 a_Vbi_ei=0.0;
976 a_Vbi_ci=0.0;
977 a_Vci_ei=0.0;
978 a_Vtnode_GND=0.0;
979 #endif
980 a=(r_VgVT/mbci);
981 {
982 double m00_exp(d00_exp0,a)
983 #if defined(_DERIVATE)
984 ibcis_t_Vtnode_GND=0.0;
985 #endif
986 ibcis_t=(ibcis*d00_exp0);
987 }
988 #if defined(_DERIVATE)
989 a_Vbi_ei=0.0;
990 a_Vbi_ci=0.0;
991 a_Vci_ei=0.0;
992 a_Vtnode_GND=0.0;
993 #endif
994 a=(r_VgVT/mbcx);
995 {
996 double m00_exp(d00_exp0,a)
997 #if defined(_DERIVATE)
998 ibcxs_t_Vtnode_GND=0.0;
999 #endif
1000 ibcxs_t=(ibcxs*d00_exp0);
1001 }
1002 #if defined(_DERIVATE)
1003 a_Vbi_ei=0.0;
1004 a_Vbi_ci=0.0;
1005 a_Vci_ei=0.0;
1006 a_Vtnode_GND=0.0;
1007 #endif
1008 a=(r_VgVT/msf);
1009 {
1010 double m00_exp(d00_exp0,a)
1011 #if defined(_DERIVATE)
1012 itss_t_Vtnode_GND=0.0;
1013 #endif
1014 itss_t=(itss*d00_exp0);
1015 }
1016 #if defined(_DERIVATE)
1017 a_Vbi_ei=0.0;
1018 a_Vbi_ci=0.0;
1019 a_Vci_ei=0.0;
1020 a_Vtnode_GND=0.0;
1021 #endif
1022 a=(r_VgVT/msc);
1023 {
1024 double m00_exp(d00_exp0,a)
1025 #if defined(_DERIVATE)
1026 iscs_t_Vtnode_GND=0.0;
1027 #endif
1028 iscs_t=(iscs*d00_exp0);
1029 }
1030 #if defined(_DERIVATE)
1031 a_Vbi_ei=0.0;
1032 a_Vbi_ci=0.0;
1033 a_Vci_ei=0.0;
1034 a_Vtnode_GND=0.0;
1035 #endif
1036 a=(vdei_t/vdei);
1037 #if defined(_DERIVATE)
1038 qp0_t_Vtnode_GND=0.0;
1039 #endif
1040 qp0_t=(qp0*(1.0+((0.5*zei)*(1.0-a))));
1041 {
1042 double m00_exp(d00_exp0,(zetaci*ln_qtt0))
1043 #if defined(_DERIVATE)
1044 a_Vbi_ei=0.0;
1045 a_Vbi_ci=0.0;
1046 a_Vci_ei=0.0;
1047 a_Vtnode_GND=0.0;
1048 #endif
1049 a=((vlim*(1.0-(alvs*dT)))*d00_exp0);
1050 }
1051 #if defined(_DERIVATE)
1052 k_Vtnode_GND=0.0;
1053 #endif
1054 k=((a-VT)/VT);
1055 if
1056 ((k<11.0))
1057 {
1058 {
1059 double m00_exp(d00_exp0,k)
1060 double m00_logE(d00_logE1,(1.0+d00_exp0))
1061 #if defined(_DERIVATE)
1062 vlim_t_Vtnode_GND=0.0;
1063 #endif
1064 vlim_t=(VT+(VT*d00_logE1));
1065 }
1066 }
1067 else
1068 {
1069 #if defined(_DERIVATE)
1070 vlim_t_Vtnode_GND=0.0;
1071 #endif
1072 vlim_t=a;
1073 }
1074 #if defined(_DERIVATE)
1075 a_Vbi_ei=0.0;
1076 a_Vbi_ci=0.0;
1077 a_Vci_ei=0.0;
1078 a_Vtnode_GND=0.0;
1079 #endif
1080 a=(1.0+(alb*dT));
1081 {
1082 double m00_sqrt(d00_sqrt0,((a*a)+0.01))
1083 #if defined(_DERIVATE)
1084 k_Vtnode_GND=0.0;
1085 #endif
1086 k=(0.5*(a+d00_sqrt0));
1087 }
1088 #if defined(_DERIVATE)
1089 tef0_t_Vtnode_GND=0.0;
1090 #endif
1091 tef0_t=((tef0*qtt0)/k);
1092 }
1093 else
1094 {
1095 {
1096 double m00_exp(d00_exp0,((zetabet*ln_qtt0)+((vge/VT)*(qtt0-1))))
1097 #if defined(_DERIVATE)
1098 ibeis_t_Vtnode_GND=0.0;
1099 #endif
1100 ibeis_t=(ibeis*d00_exp0);
1101 }
1102 {
1103 double m00_exp(d00_exp0,(((0.5*mg)*ln_qtt0)+(((0.5*vgbe0)/VT)*(qtt0-1))))
1104 #if defined(_DERIVATE)
1105 ireis_t_Vtnode_GND=0.0;
1106 #endif
1107 ireis_t=(ireis*d00_exp0);
1108 }
1109 {
1110 double m00_exp(d00_exp0,((zetabet*ln_qtt0)+((vge/VT)*(qtt0-1))))
1111 #if defined(_DERIVATE)
1112 ibeps_t_Vtnode_GND=0.0;
1113 #endif
1114 ibeps_t=(ibeps*d00_exp0);
1115 }
1116 {
1117 double m00_exp(d00_exp0,(((0.5*mg)*ln_qtt0)+(((0.5*vgbe0)/VT)*(qtt0-1))))
1118 #if defined(_DERIVATE)
1119 ireps_t_Vtnode_GND=0.0;
1120 #endif
1121 ireps_t=(ireps*d00_exp0);
1122 }
1123 {
1124 double m00_exp(d00_exp0,((zetabci*ln_qtt0)+((vgc/VT)*(qtt0-1))))
1125 #if defined(_DERIVATE)
1126 ibcis_t_Vtnode_GND=0.0;
1127 #endif
1128 ibcis_t=(ibcis*d00_exp0);
1129 }
1130 {
1131 double m00_exp(d00_exp0,((zetabcxt*ln_qtt0)+((vgc/VT)*(qtt0-1))))
1132 #if defined(_DERIVATE)
1133 ibcxs_t_Vtnode_GND=0.0;
1134 #endif
1135 ibcxs_t=(ibcxs*d00_exp0);
1136 }
1137 {
1138 double m00_exp(d00_exp0,((zetasct*ln_qtt0)+((vgc/VT)*(qtt0-1))))
1139 #if defined(_DERIVATE)
1140 itss_t_Vtnode_GND=0.0;
1141 #endif
1142 itss_t=(itss*d00_exp0);
1143 }
1144 {
1145 double m00_exp(d00_exp0,((zetasct*ln_qtt0)+((vgs/VT)*(qtt0-1))))
1146 #if defined(_DERIVATE)
1147 iscs_t_Vtnode_GND=0.0;
1148 #endif
1149 iscs_t=(iscs*d00_exp0);
1150 }
1151 {
1152 double m00_logE(d00_logE0,(vdei_t/vdei))
1153 double m00_exp(d00_exp1,(zei*d00_logE0))
1154 #if defined(_DERIVATE)
1155 a_Vbi_ei=0.0;
1156 a_Vbi_ci=0.0;
1157 a_Vci_ei=0.0;
1158 a_Vtnode_GND=0.0;
1159 #endif
1160 a=d00_exp1;
1161 }
1162 #if defined(_DERIVATE)
1163 qp0_t_Vtnode_GND=0.0;
1164 #endif
1165 qp0_t=(qp0*(2.0-a));
1166 {
1167 double m00_exp(d00_exp0,((zetaci-avs)*ln_qtt0))
1168 #if defined(_DERIVATE)
1169 vlim_t_Vtnode_GND=0.0;
1170 #endif
1171 vlim_t=(vlim*d00_exp0);
1172 }
1173 zetatef=((zetabet-zetact)-0.5);
1174 dvg0=(vgb-vge);
1175 {
1176 double m00_exp(d00_exp0,((zetatef*ln_qtt0)-((dvg0/VT)*(qtt0-1))))
1177 #if defined(_DERIVATE)
1178 tef0_t_Vtnode_GND=0.0;
1179 #endif
1180 tef0_t=(tef0*d00_exp0);
1181 }
1182 }
1183 {
1184 double m00_exp(d00_exp0,((zetact*ln_qtt0)+((vgb/VT)*(qtt0-1))))
1185 #if defined(_DERIVATE)
1186 c10_t_Vtnode_GND=0.0;
1187 #endif
1188 c10_t=(c10*d00_exp0);
1189 }
1190 {
1191 double m00_exp(d00_exp0,(zetaci*ln_qtt0))
1192 #if defined(_DERIVATE)
1193 rci0_t_Vtnode_GND=0.0;
1194 #endif
1195 rci0_t=(rci0*d00_exp0);
1196 }
1197 #if defined(_DERIVATE)
1198 vces_t_Vtnode_GND=0.0;
1199 #endif
1200 vces_t=(vces*(1+(alces*dT)));
1201 if
1202 ((cjci0>0.0))
1203 {
1204 {
1205 double m00_exp(d00_exp0,((vdci*0.5)/vt0))
1206 double m00_exp(d00_exp1,(((-0.5)*vdci)/vt0))
1207 double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
1208 vdj0=((2*vt0)*d00_logE2);
1209 }
1210 #if defined(_DERIVATE)
1211 vdjt_Vtnode_GND=0.0;
1212 #endif
1213 vdjt=(((vdj0*qtt0)+(vgbc0*(1-qtt0)))-((mg*VT)*ln_qtt0));
1214 {
1215 double m00_exp(d00_exp0,((-vdjt)/VT))
1216 double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
1217 double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
1218 #if defined(_DERIVATE)
1219 vdt_Vtnode_GND=0.0;
1220 #endif
1221 vdt=(vdjt+((2*VT)*d00_logE2));
1222 }
1223 #if defined(_DERIVATE)
1224 vdci_t_Vtnode_GND=0.0;
1225 #endif
1226 vdci_t=vdt;
1227 {
1228 double m00_logE(d00_logE0,(vdci/vdci_t))
1229 double m00_exp(d00_exp1,(zci*d00_logE0))
1230 #if defined(_DERIVATE)
1231 cjci0_t_Vtnode_GND=0.0;
1232 #endif
1233 cjci0_t=(cjci0*d00_exp1);
1234 }
1235 if
1236 ((0==1))
1237 {
1238 #if defined(_DERIVATE)
1239 vptci_t_Vtnode_GND=0.0;
1240 #endif
1241 vptci_t=((vptci*vdci_t)/vdci);
1242 }
1243 else
1244 {
1245 #if defined(_DERIVATE)
1246 vptci_t_Vtnode_GND=0.0;
1247 #endif
1248 vptci_t=vptci;
1249 }
1250 }
1251 else
1252 {
1253 #if defined(_DERIVATE)
1254 cjci0_t_Vtnode_GND=0.0;
1255 #endif
1256 cjci0_t=cjci0;
1257 #if defined(_DERIVATE)
1258 vdci_t_Vtnode_GND=0.0;
1259 #endif
1260 vdci_t=vdci;
1261 #if defined(_DERIVATE)
1262 vptci_t_Vtnode_GND=0.0;
1263 #endif
1264 vptci_t=vptci;
1265 }
1266 #if defined(_DERIVATE)
1267 t0_t_Vtnode_GND=0.0;
1268 #endif
1269 t0_t=(t0*((1+(alt0*dT))+((kt0*dT)*dT)));
1270 {
1271 double m00_exp(d00_exp0,((zetaci-1)*ln_qtt0))
1272 #if defined(_DERIVATE)
1273 thcs_t_Vtnode_GND=0.0;
1274 #endif
1275 thcs_t=(thcs*d00_exp0);
1276 }
1277 {
1278 double m00_exp(d00_exp0,(alfav*dT))
1279 #if defined(_DERIVATE)
1280 favl_t_Vtnode_GND=0.0;
1281 #endif
1282 favl_t=(favl*d00_exp0);
1283 }
1284 {
1285 double m00_exp(d00_exp0,(alqav*dT))
1286 #if defined(_DERIVATE)
1287 qavl_t_Vtnode_GND=0.0;
1288 #endif
1289 qavl_t=(qavl*d00_exp0);
1290 }
1291 {
1292 double m00_exp(d00_exp0,(zetarbi*ln_qtt0))
1293 #if defined(_DERIVATE)
1294 rbi0_t_Vtnode_GND=0.0;
1295 #endif
1296 rbi0_t=(rbi0*d00_exp0);
1297 }
1298 if
1299 ((cjep0>0.0))
1300 {
1301 {
1302 double m00_exp(d00_exp0,((vdep*0.5)/vt0))
1303 double m00_exp(d00_exp1,(((-0.5)*vdep)/vt0))
1304 double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
1305 vdj0=((2*vt0)*d00_logE2);
1306 }
1307 #if defined(_DERIVATE)
1308 vdjt_Vtnode_GND=0.0;
1309 #endif
1310 vdjt=(((vdj0*qtt0)+(vgbe0*(1-qtt0)))-((mg*VT)*ln_qtt0));
1311 {
1312 double m00_exp(d00_exp0,((-vdjt)/VT))
1313 double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
1314 double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
1315 #if defined(_DERIVATE)
1316 vdt_Vtnode_GND=0.0;
1317 #endif
1318 vdt=(vdjt+((2*VT)*d00_logE2));
1319 }
1320 #if defined(_DERIVATE)
1321 vdep_t_Vtnode_GND=0.0;
1322 #endif
1323 vdep_t=vdt;
1324 {
1325 double m00_logE(d00_logE0,(vdep/vdep_t))
1326 double m00_exp(d00_exp1,(zep*d00_logE0))
1327 #if defined(_DERIVATE)
1328 cjep0_t_Vtnode_GND=0.0;
1329 #endif
1330 cjep0_t=(cjep0*d00_exp1);
1331 }
1332 if
1333 ((1==1))
1334 {
1335 #if defined(_DERIVATE)
1336 ajep_t_Vtnode_GND=0.0;
1337 #endif
1338 ajep_t=((ajep*vdep_t)/vdep);
1339 }
1340 else
1341 {
1342 #if defined(_DERIVATE)
1343 ajep_t_Vtnode_GND=0.0;
1344 #endif
1345 ajep_t=ajep;
1346 }
1347 }
1348 else
1349 {
1350 #if defined(_DERIVATE)
1351 cjep0_t_Vtnode_GND=0.0;
1352 #endif
1353 cjep0_t=cjep0;
1354 #if defined(_DERIVATE)
1355 vdep_t_Vtnode_GND=0.0;
1356 #endif
1357 vdep_t=vdep;
1358 #if defined(_DERIVATE)
1359 ajep_t_Vtnode_GND=0.0;
1360 #endif
1361 ajep_t=ajep;
1362 }
1363 {
1364 double a_eg;
1365 double ab;
1366 double aa;
1367 ab=1.0;
1368 aa=1.0;
1369 a_eg=(vgbe_t0/vgbe_t);
1370 if
1371 ((((tunode==1)&&(cjep0>0.0))&&(vdep>0.0)))
1372 {
1373 {
1374 double m00_sqrt(d00_sqrt0,a_eg)
1375 ab=(((((cjep0_t/cjep0)*d00_sqrt0)*vdep_t)*vdep_t)/(vdep*vdep));
1376 }
1377 {
1378 double m00_pow(d00_pow0,a_eg,(-1.5))
1379 aa=(((vdep/vdep_t)*(cjep0/cjep0_t))*d00_pow0);
1380 }
1381 }
1382 else
1383 {
1384 if
1385 ((((tunode==0)&&(cjei0>0.0))&&(vdei>0.0)))
1386 {
1387 {
1388 double m00_sqrt(d00_sqrt0,a_eg)
1389 ab=(((((cjei0_t/cjei0)*d00_sqrt0)*vdei_t)*vdei_t)/(vdei*vdei));
1390 }
1391 {
1392 double m00_pow(d00_pow0,a_eg,(-1.5))
1393 aa=(((vdei/vdei_t)*(cjei0/cjei0_t))*d00_pow0);
1394 }
1395 }
1396 }
1397 #if defined(_DERIVATE)
1398 ibets_t_Vtnode_GND=0.0;
1399 #endif
1400 ibets_t=(ibets*ab);
1401 #if defined(_DERIVATE)
1402 abet_t_Vtnode_GND=0.0;
1403 #endif
1404 abet_t=(abet*aa);
1405 }
1406 if
1407 ((1.0>0.0))
1408 {
1409 {
1410 double m00_exp(d00_exp0,((vdcx*0.5)/vt0))
1411 double m00_exp(d00_exp1,(((-0.5)*vdcx)/vt0))
1412 double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
1413 vdj0=((2*vt0)*d00_logE2);
1414 }
1415 #if defined(_DERIVATE)
1416 vdjt_Vtnode_GND=0.0;
1417 #endif
1418 vdjt=(((vdj0*qtt0)+(vgbc0*(1-qtt0)))-((mg*VT)*ln_qtt0));
1419 {
1420 double m00_exp(d00_exp0,((-vdjt)/VT))
1421 double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
1422 double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
1423 #if defined(_DERIVATE)
1424 vdt_Vtnode_GND=0.0;
1425 #endif
1426 vdt=(vdjt+((2*VT)*d00_logE2));
1427 }
1428 #if defined(_DYNAMIC)
1429 #if defined(_DERIVATE)
1430 vdcx_t_Vtnode_GND=0.0;
1431 #endif
1432 vdcx_t=vdt;
1433 #endif
1434 #if defined(_DYNAMIC)
1435 {
1436 double m00_logE(d00_logE0,(vdcx/vdcx_t))
1437 double m00_exp(d00_exp1,(zcx*d00_logE0))
1438 #if defined(_DERIVATE)
1439 cratio_t_Vtnode_GND=0.0;
1440 #endif
1441 cratio_t=(1.0*d00_exp1);
1442 }
1443 #endif
1444 #ifdef _DYNAMIC
1445 if
1446 ((0==1))
1447 {
1448 #if defined(_DYNAMIC)
1449 #if defined(_DERIVATE)
1450 vptcx_t_Vtnode_GND=0.0;
1451 #endif
1452 vptcx_t=((vptcx*vdcx_t)/vdcx);
1453 #endif
1454 }
1455 else
1456 {
1457 #if defined(_DYNAMIC)
1458 #if defined(_DERIVATE)
1459 vptcx_t_Vtnode_GND=0.0;
1460 #endif
1461 vptcx_t=vptcx;
1462 #endif
1463 }
1464 #endif /* if (...) */
1465 }
1466 else
1467 {
1468 #if defined(_DYNAMIC)
1469 #if defined(_DERIVATE)
1470 cratio_t_Vtnode_GND=0.0;
1471 #endif
1472 cratio_t=1.0;
1473 #endif
1474 #if defined(_DYNAMIC)
1475 #if defined(_DERIVATE)
1476 vdcx_t_Vtnode_GND=0.0;
1477 #endif
1478 vdcx_t=vdcx;
1479 #endif
1480 #if defined(_DYNAMIC)
1481 #if defined(_DERIVATE)
1482 vptcx_t_Vtnode_GND=0.0;
1483 #endif
1484 vptcx_t=vptcx;
1485 #endif
1486 }
1487 #if defined(_DYNAMIC)
1488 #if defined(_DERIVATE)
1489 cjcx01_t_Vtnode_GND=0.0;
1490 #endif
1491 cjcx01_t=(cratio_t*cjcx01);
1492 #endif
1493 #if defined(_DYNAMIC)
1494 #if defined(_DERIVATE)
1495 cjcx02_t_Vtnode_GND=0.0;
1496 #endif
1497 cjcx02_t=(cratio_t*cjcx02);
1498 #endif
1499 {
1500 double m00_exp(d00_exp0,(zetarcx*ln_qtt0))
1501 #if defined(_DERIVATE)
1502 rcx_t_Vtnode_GND=0.0;
1503 #endif
1504 rcx_t=(rcx*d00_exp0);
1505 }
1506 {
1507 double m00_exp(d00_exp0,(zetarbx*ln_qtt0))
1508 #if defined(_DERIVATE)
1509 rbx_t_Vtnode_GND=0.0;
1510 #endif
1511 rbx_t=(rbx*d00_exp0);
1512 }
1513 {
1514 double m00_exp(d00_exp0,(zetare*ln_qtt0))
1515 #if defined(_DERIVATE)
1516 re_t_Vtnode_GND=0.0;
1517 #endif
1518 re_t=(re*d00_exp0);
1519 }
1520 #if defined(_DYNAMIC)
1521 {
1522 double m00_exp(d00_exp0,((zetacx-1.0)*ln_qtt0))
1523 #if defined(_DERIVATE)
1524 tsf_t_Vtnode_GND=0.0;
1525 #endif
1526 tsf_t=(tsf*d00_exp0);
1527 }
1528 #endif
1529 if
1530 ((cjs0>0.0))
1531 {
1532 {
1533 double m00_exp(d00_exp0,((vds*0.5)/vt0))
1534 double m00_exp(d00_exp1,(((-0.5)*vds)/vt0))
1535 double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
1536 vdj0=((2*vt0)*d00_logE2);
1537 }
1538 #if defined(_DERIVATE)
1539 vdjt_Vtnode_GND=0.0;
1540 #endif
1541 vdjt=(((vdj0*qtt0)+(vgsc0*(1-qtt0)))-((mg*VT)*ln_qtt0));
1542 {
1543 double m00_exp(d00_exp0,((-vdjt)/VT))
1544 double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
1545 double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
1546 #if defined(_DERIVATE)
1547 vdt_Vtnode_GND=0.0;
1548 #endif
1549 vdt=(vdjt+((2*VT)*d00_logE2));
1550 }
1551 #if defined(_DYNAMIC)
1552 #if defined(_DERIVATE)
1553 vds_t_Vtnode_GND=0.0;
1554 #endif
1555 vds_t=vdt;
1556 #endif
1557 #if defined(_DYNAMIC)
1558 {
1559 double m00_logE(d00_logE0,(vds/vds_t))
1560 double m00_exp(d00_exp1,(zs*d00_logE0))
1561 #if defined(_DERIVATE)
1562 cjs0_t_Vtnode_GND=0.0;
1563 #endif
1564 cjs0_t=(cjs0*d00_exp1);
1565 }
1566 #endif
1567 #ifdef _DYNAMIC
1568 if
1569 ((0==1))
1570 {
1571 #if defined(_DYNAMIC)
1572 #if defined(_DERIVATE)
1573 vpts_t_Vtnode_GND=0.0;
1574 #endif
1575 vpts_t=((vpts*vds_t)/vds);
1576 #endif
1577 }
1578 else
1579 {
1580 #if defined(_DYNAMIC)
1581 #if defined(_DERIVATE)
1582 vpts_t_Vtnode_GND=0.0;
1583 #endif
1584 vpts_t=vpts;
1585 #endif
1586 }
1587 #endif /* if (...) */
1588 }
1589 else
1590 {
1591 #if defined(_DYNAMIC)
1592 #if defined(_DERIVATE)
1593 cjs0_t_Vtnode_GND=0.0;
1594 #endif
1595 cjs0_t=cjs0;
1596 #endif
1597 #if defined(_DYNAMIC)
1598 #if defined(_DERIVATE)
1599 vds_t_Vtnode_GND=0.0;
1600 #endif
1601 vds_t=vds;
1602 #endif
1603 #if defined(_DYNAMIC)
1604 #if defined(_DERIVATE)
1605 vpts_t_Vtnode_GND=0.0;
1606 #endif
1607 vpts_t=vpts;
1608 #endif
1609 }
1610 }
1611 }
1612 }
1613 
1614 /* Evaluate Verilog-AMS equations in instance initialization. */
1615 void hicumL2V2p24::initializeInstance (void)
1616 {
1617 }
1618 
1619 /* Evaluate Verilog-AMS equations in initial step. */
1620 void hicumL2V2p24::initialStep (void)
1621 {
1622 }
1623 
1624 /* Evaluate Verilog-AMS equations in final step. */
1625 void hicumL2V2p24::finalStep (void)
1626 {
1627 }
1628 
1629 /* Evaluate Verilog-AMS equations in analog block. */
1630 void hicumL2V2p24::calcVerilog (void)
1631 {
1632 
1633 /* ----------------- evaluate verilog analog equations -------------------- */
1634 #if defined(_DYNAMIC)
1635 double Qxf;
1636 #if defined(_DERIVATE)
1637 double Qxf_Vxf_GND;
1638 #endif
1639 #endif
1640 double Ixf;
1641 #if defined(_DERIVATE)
1642 double Ixf_Vxf_GND;
1643 double Ixf_Vci_ei;
1644 double Ixf_Vtnode_GND;
1645 double Ixf_Vbi_ci;
1646 double Ixf_Vbi_ei;
1647 #endif
1648 double fact;
1649 #if defined(_DERIVATE)
1650 double fact_Vci_ei;
1651 double fact_Vbi_ei;
1652 double fact_Vtnode_GND;
1653 double fact_Vbi_ci;
1654 #endif
1655 double Vxf;
1656 #if defined(_DERIVATE)
1657 double Vxf_Vxf_GND;
1658 #endif
1659 #if defined(_DYNAMIC)
1660 double Qxf2;
1661 #if defined(_DERIVATE)
1662 double Qxf2_Vxf2_GND;
1663 #endif
1664 #endif
1665 #if defined(_DYNAMIC)
1666 double Qxf1;
1667 #if defined(_DERIVATE)
1668 double Qxf1_Vxf1_GND;
1669 #endif
1670 #endif
1671 double Ixf2;
1672 #if defined(_DERIVATE)
1673 double Ixf2_Vxf2_GND;
1674 double Ixf2_Vxf1_GND;
1675 double Ixf2_Vci_ei;
1676 double Ixf2_Vbi_ei;
1677 double Ixf2_Vtnode_GND;
1678 double Ixf2_Vbi_ci;
1679 #endif
1680 double Ixf1;
1681 #if defined(_DERIVATE)
1682 double Ixf1_Vxf1_GND;
1683 double Ixf1_Vxf2_GND;
1684 double Ixf1_Vci_ei;
1685 double Ixf1_Vtnode_GND;
1686 double Ixf1_Vbi_ei;
1687 double Ixf1_Vbi_ci;
1688 #endif
1689 double Vxf2;
1690 #if defined(_DERIVATE)
1691 double Vxf2_Vxf2_GND;
1692 #endif
1693 double Vxf1;
1694 #if defined(_DERIVATE)
1695 double Vxf1_Vxf1_GND;
1696 #endif
1697 #if defined(_DYNAMIC)
1698 double Qdeix;
1699 #if defined(_DERIVATE)
1700 double Qdeix_Vxf_GND;
1701 double Qdeix_Vci_ei;
1702 double Qdeix_Vtnode_GND;
1703 double Qdeix_Vbi_ci;
1704 double Qdeix_Vbi_ei;
1705 #endif
1706 #endif
1707 double Itxf;
1708 #if defined(_DERIVATE)
1709 double Itxf_Vxf2_GND;
1710 double Itxf_Vci_ei;
1711 double Itxf_Vtnode_GND;
1712 double Itxf_Vbi_ei;
1713 double Itxf_Vbi_ci;
1714 #endif
1715 double pterm;
1716 #if defined(_DERIVATE)
1717 double pterm_Vb_bp;
1718 double pterm_Vci_c;
1719 double pterm_Vei_e;
1720 double pterm_Vbp_bi;
1721 double pterm_Vbp_ei;
1722 double pterm_Vbp_ci;
1723 double pterm_Vsi_ci;
1724 double pterm_Vci_ei;
1725 double pterm_Vtnode_GND;
1726 double pterm_Vbi_ei;
1727 double pterm_Vbi_ci;
1728 #endif
1729 #if defined(_DERIVATE)
1730 double ijsc_Vtnode_GND;
1731 double ijsc_Vsi_ci;
1732 double ijsc_Vbp_ci;
1733 double ijsc_Vbp_ei;
1734 double ijsc_Vbi_ci;
1735 double ijsc_Vbi_ei;
1736 #endif
1737 #if defined(_DYNAMIC)
1738 #if defined(_DERIVATE)
1739 double betadc_Vci_ei;
1740 double betadc_Vtnode_GND;
1741 double betadc_Vbi_ei;
1742 double betadc_Vbi_ci;
1743 #endif
1744 #endif
1745 #if defined(_DYNAMIC)
1746 double betan;
1747 #if defined(_DERIVATE)
1748 double betan_Vci_ei;
1749 double betan_Vtnode_GND;
1750 double betan_Vbi_ei;
1751 double betan_Vbi_ci;
1752 #endif
1753 #endif
1754 double betadin;
1755 #if defined(_DYNAMIC)
1756 double betad;
1757 #if defined(_DERIVATE)
1758 double betad_Vtnode_GND;
1759 double betad_Vbi_ei;
1760 #endif
1761 #endif
1762 #if defined(_DYNAMIC)
1763 double Qdsu;
1764 #if defined(_DERIVATE)
1765 double Qdsu_Vtnode_GND;
1766 double Qdsu_Vbp_ci;
1767 #endif
1768 #endif
1769 double HSI_Tsu;
1770 #if defined(_DERIVATE)
1771 double HSI_Tsu_Vtnode_GND;
1772 double HSI_Tsu_Vbp_ci;
1773 double HSI_Tsu_Vsi_ci;
1774 #endif
1775 double HSb;
1776 #if defined(_DERIVATE)
1777 double HSb_Vsi_ci;
1778 double HSb_Vtnode_GND;
1779 #endif
1780 double HSa;
1781 #if defined(_DERIVATE)
1782 double HSa_Vbp_ci;
1783 double HSa_Vtnode_GND;
1784 #endif
1785 double HSUM;
1786 #if defined(_DERIVATE)
1787 double HSUM_Vtnode_GND;
1788 #endif
1789 #if defined(_DYNAMIC)
1790 double Qjs;
1791 #if defined(_DERIVATE)
1792 double Qjs_Vbp_ei;
1793 double Qjs_Vbi_ei;
1794 double Qjs_Vsi_ci;
1795 double Qjs_Vb_ci;
1796 double Qjs_Vbp_ci;
1797 double Qjs_Vtnode_GND;
1798 double Qjs_Vbi_ci;
1799 #endif
1800 #endif
1801 #if defined(_DYNAMIC)
1802 double qjcx0_t_i;
1803 #if defined(_DERIVATE)
1804 double qjcx0_t_i_Vbp_ei;
1805 double qjcx0_t_i_Vbi_ei;
1806 double qjcx0_t_i_Vb_ci;
1807 double qjcx0_t_i_Vbp_ci;
1808 double qjcx0_t_i_Vtnode_GND;
1809 double qjcx0_t_i_Vbi_ci;
1810 #endif
1811 #endif
1812 #if defined(_DERIVATE)
1813 double ijbcx_Vtnode_GND;
1814 double ijbcx_Vbp_ci;
1815 double ijbcx_Vbp_ei;
1816 double ijbcx_Vbi_ci;
1817 double ijbcx_Vbi_ei;
1818 #endif
1819 #if defined(_DYNAMIC)
1820 double qjcx0_t_ii;
1821 #if defined(_DERIVATE)
1822 double qjcx0_t_ii_Vbp_ei;
1823 double qjcx0_t_ii_Vbi_ei;
1824 double qjcx0_t_ii_Vbp_ci;
1825 double qjcx0_t_ii_Vtnode_GND;
1826 double qjcx0_t_ii_Vbi_ci;
1827 #endif
1828 #endif
1829 double c_dummy;
1830 double ibet;
1831 #if defined(_DERIVATE)
1832 double ibet_Vbp_ei;
1833 double ibet_Vtnode_GND;
1834 double ibet_Vbi_ci;
1835 double ibet_Vbi_ei;
1836 #endif
1837 #if defined(_DYNAMIC)
1838 double Qjep;
1839 #if defined(_DERIVATE)
1840 double Qjep_Vbp_ei;
1841 double Qjep_Vbi_ci;
1842 double Qjep_Vtnode_GND;
1843 double Qjep_Vbi_ei;
1844 #endif
1845 #endif
1846 double Cjep;
1847 #if defined(_DERIVATE)
1848 double Cjep_Vbp_ei;
1849 double Cjep_Vbi_ci;
1850 double Cjep_Vtnode_GND;
1851 double Cjep_Vbi_ei;
1852 #endif
1853 double irep;
1854 #if defined(_DERIVATE)
1855 double irep_Vtnode_GND;
1856 double irep_Vbp_ei;
1857 double irep_Vbi_ci;
1858 double irep_Vbi_ei;
1859 #endif
1860 #if defined(_DERIVATE)
1861 double ibep_Vtnode_GND;
1862 double ibep_Vbp_ei;
1863 double ibep_Vbi_ci;
1864 double ibep_Vbi_ei;
1865 #endif
1866 #if defined(_DERIVATE)
1867 double rbi_Vtnode_GND;
1868 double rbi_Vbi_ei;
1869 double rbi_Vbi_ci;
1870 double rbi_Vci_ei;
1871 #endif
1872 double ibh_rec;
1873 #if defined(_DERIVATE)
1874 double ibh_rec_Vtnode_GND;
1875 double ibh_rec_Vbi_ei;
1876 double ibh_rec_Vbi_ci;
1877 double ibh_rec_Vci_ei;
1878 #endif
1879 #if defined(_DERIVATE)
1880 double iavl_Vci_ei;
1881 double iavl_Vtnode_GND;
1882 double iavl_Vbi_ei;
1883 double iavl_Vbi_ci;
1884 #endif
1885 #if defined(_DERIVATE)
1886 double ibci_Vtnode_GND;
1887 double ibci_Vbi_ci;
1888 double ibci_Vbi_ei;
1889 #endif
1890 #if defined(_DYNAMIC)
1891 double qrbi;
1892 #if defined(_DERIVATE)
1893 double qrbi_Vtnode_GND;
1894 double qrbi_Vbi_ei;
1895 double qrbi_Vbi_ci;
1896 double qrbi_Vci_ei;
1897 #endif
1898 #endif
1899 #if defined(_DYNAMIC)
1900 double Qdci;
1901 #if defined(_DERIVATE)
1902 double Qdci_Vci_ei;
1903 double Qdci_Vtnode_GND;
1904 double Qdci_Vbi_ci;
1905 double Qdci_Vbi_ei;
1906 #endif
1907 #endif
1908 double Qdei;
1909 #if defined(_DERIVATE)
1910 double Qdei_Vci_ei;
1911 double Qdei_Vtnode_GND;
1912 double Qdei_Vbi_ci;
1913 double Qdei_Vbi_ei;
1914 #endif
1915 #if defined(_DERIVATE)
1916 double it_Vci_ei;
1917 double it_Vtnode_GND;
1918 double it_Vbi_ei;
1919 double it_Vbi_ci;
1920 #endif
1921 double d_Q0;
1922 double d_Q;
1923 #if defined(_DERIVATE)
1924 double d_Q_Vtnode_GND;
1925 double d_Q_Vbi_ei;
1926 double d_Q_Vbi_ci;
1927 double d_Q_Vci_ei;
1928 #endif
1929 double Q_pT;
1930 #if defined(_DERIVATE)
1931 double Q_pT_Vtnode_GND;
1932 double Q_pT_Vbi_ei;
1933 double Q_pT_Vbi_ci;
1934 double Q_pT_Vci_ei;
1935 #endif
1936 int l_it;
1937 double Qr;
1938 #if defined(_DERIVATE)
1939 double Qr_Vci_ei;
1940 double Qr_Vtnode_GND;
1941 double Qr_Vbi_ci;
1942 double Qr_Vbi_ei;
1943 #endif
1944 double FCd_f;
1945 #if defined(_DERIVATE)
1946 double FCd_f_Vci_ei;
1947 double FCd_f_Vtnode_GND;
1948 double FCd_f_Vbi_ei;
1949 double FCd_f_Vbi_ci;
1950 #endif
1951 double FCz_1;
1952 #if defined(_DERIVATE)
1953 double FCz_1_Vci_ei;
1954 double FCz_1_Vtnode_GND;
1955 double FCz_1_Vbi_ei;
1956 double FCz_1_Vbi_ci;
1957 #endif
1958 double FCdfCT_ditf;
1959 #if defined(_DERIVATE)
1960 double FCdfCT_ditf_Vbi_ei;
1961 double FCdfCT_ditf_Vbi_ci;
1962 double FCdfCT_ditf_Vci_ei;
1963 double FCdfCT_ditf_Vtnode_GND;
1964 #endif
1965 double FCdfCT_dw;
1966 #if defined(_DERIVATE)
1967 double FCdfCT_dw_Vbi_ei;
1968 double FCdfCT_dw_Vbi_ci;
1969 double FCdfCT_dw_Vci_ei;
1970 double FCdfCT_dw_Vtnode_GND;
1971 #endif
1972 double lnz;
1973 #if defined(_DERIVATE)
1974 double lnz_Vci_ei;
1975 double lnz_Vtnode_GND;
1976 double lnz_Vbi_ei;
1977 double lnz_Vbi_ci;
1978 #endif
1979 double FCdfc_ditf;
1980 #if defined(_DERIVATE)
1981 double FCdfc_ditf_Vci_ei;
1982 double FCdfc_ditf_Vtnode_GND;
1983 double FCdfc_ditf_Vbi_ei;
1984 double FCdfc_ditf_Vbi_ci;
1985 #endif
1986 double FCdw_ditf;
1987 #if defined(_DERIVATE)
1988 double FCdw_ditf_Vci_ei;
1989 double FCdw_ditf_Vtnode_GND;
1990 double FCdw_ditf_Vbi_ei;
1991 double FCdw_ditf_Vbi_ci;
1992 #endif
1993 double FCdfc_dw;
1994 #if defined(_DERIVATE)
1995 double FCdfc_dw_Vci_ei;
1996 double FCdfc_dw_Vtnode_GND;
1997 double FCdfc_dw_Vbi_ei;
1998 double FCdfc_dw_Vbi_ci;
1999 #endif
2000 double FCf_ci;
2001 #if defined(_DERIVATE)
2002 double FCf_ci_Vci_ei;
2003 double FCf_ci_Vtnode_GND;
2004 double FCf_ci_Vbi_ei;
2005 double FCf_ci_Vbi_ci;
2006 #endif
2007 double FCdf3_dw;
2008 #if defined(_DERIVATE)
2009 double FCdf3_dw_Vci_ei;
2010 double FCdf3_dw_Vtnode_GND;
2011 double FCdf3_dw_Vbi_ei;
2012 double FCdf3_dw_Vbi_ci;
2013 #endif
2014 double FCf3;
2015 #if defined(_DERIVATE)
2016 double FCf3_Vbi_ei;
2017 double FCf3_Vbi_ci;
2018 double FCf3_Vci_ei;
2019 double FCf3_Vtnode_GND;
2020 #endif
2021 double FCdf2_dw;
2022 #if defined(_DERIVATE)
2023 double FCdf2_dw_Vci_ei;
2024 double FCdf2_dw_Vtnode_GND;
2025 double FCdf2_dw_Vbi_ei;
2026 double FCdf2_dw_Vbi_ci;
2027 #endif
2028 double FCf2;
2029 #if defined(_DERIVATE)
2030 double FCf2_Vbi_ei;
2031 double FCf2_Vbi_ci;
2032 double FCf2_Vci_ei;
2033 double FCf2_Vtnode_GND;
2034 #endif
2035 double r;
2036 double a3;
2037 #if defined(_DERIVATE)
2038 double a3_Vbi_ei;
2039 double a3_Vbi_ci;
2040 double a3_Vci_ei;
2041 double a3_Vtnode_GND;
2042 #endif
2043 double a2;
2044 #if defined(_DERIVATE)
2045 double a2_Vbi_ei;
2046 double a2_Vbi_ci;
2047 double a2_Vci_ei;
2048 double a2_Vtnode_GND;
2049 #endif
2050 double x;
2051 #if defined(_DERIVATE)
2052 double x_Vci_ei;
2053 double x_Vtnode_GND;
2054 double x_Vbi_ei;
2055 double x_Vbi_ci;
2056 #endif
2057 double lnzb;
2058 #if defined(_DERIVATE)
2059 double lnzb_Vci_ei;
2060 double lnzb_Vtnode_GND;
2061 double lnzb_Vbi_ei;
2062 double lnzb_Vbi_ci;
2063 #endif
2064 double z;
2065 #if defined(_DERIVATE)
2066 double z_Vci_ei;
2067 double z_Vtnode_GND;
2068 double z_Vbi_ei;
2069 double z_Vbi_ci;
2070 #endif
2071 double FCdf1_dw;
2072 #if defined(_DERIVATE)
2073 double FCdf1_dw_Vci_ei;
2074 double FCdf1_dw_Vtnode_GND;
2075 double FCdf1_dw_Vbi_ei;
2076 double FCdf1_dw_Vbi_ci;
2077 #endif
2078 double FCw2;
2079 #if defined(_DERIVATE)
2080 double FCw2_Vci_ei;
2081 double FCw2_Vtnode_GND;
2082 double FCw2_Vbi_ei;
2083 double FCw2_Vbi_ci;
2084 #endif
2085 double FCf_CT;
2086 #if defined(_DERIVATE)
2087 double FCf_CT_Vbi_ei;
2088 double FCf_CT_Vbi_ci;
2089 double FCf_CT_Vci_ei;
2090 double FCf_CT_Vtnode_GND;
2091 #endif
2092 double FCf1;
2093 #if defined(_DERIVATE)
2094 double FCf1_Vci_ei;
2095 double FCf1_Vtnode_GND;
2096 double FCf1_Vbi_ei;
2097 double FCf1_Vbi_ci;
2098 #endif
2099 double FCda1_dw;
2100 #if defined(_DERIVATE)
2101 double FCda1_dw_Vci_ei;
2102 double FCda1_dw_Vtnode_GND;
2103 double FCda1_dw_Vbi_ei;
2104 double FCda1_dw_Vbi_ci;
2105 #endif
2106 double FCdw_daick;
2107 #if defined(_DERIVATE)
2108 double FCdw_daick_Vci_ei;
2109 double FCdw_daick_Vtnode_GND;
2110 double FCdw_daick_Vbi_ei;
2111 double FCdw_daick_Vbi_ci;
2112 #endif
2113 double FCw;
2114 #if defined(_DERIVATE)
2115 double FCw_Vci_ei;
2116 double FCw_Vtnode_GND;
2117 double FCw_Vbi_ei;
2118 double FCw_Vbi_ci;
2119 #endif
2120 double FCd_a;
2121 #if defined(_DERIVATE)
2122 double FCd_a_Vci_ei;
2123 double FCd_a_Vtnode_GND;
2124 double FCd_a_Vbi_ei;
2125 double FCd_a_Vbi_ci;
2126 #endif
2127 double FCa1;
2128 #if defined(_DERIVATE)
2129 double FCa1_Vci_ei;
2130 double FCa1_Vtnode_GND;
2131 double FCa1_Vbi_ei;
2132 double FCa1_Vbi_ci;
2133 #endif
2134 double FCln;
2135 double FCxb;
2136 double FCxl;
2137 double FCz;
2138 #if defined(_DERIVATE)
2139 double FCz_Vci_ei;
2140 double FCz_Vtnode_GND;
2141 double FCz_Vbi_ei;
2142 double FCz_Vbi_ci;
2143 #endif
2144 double FCdaick_ditf;
2145 #if defined(_DERIVATE)
2146 double FCdaick_ditf_Vci_ei;
2147 double FCdaick_ditf_Vtnode_GND;
2148 double FCdaick_ditf_Vbi_ei;
2149 double FCdaick_ditf_Vbi_ci;
2150 #endif
2151 double FCa_ck;
2152 #if defined(_DERIVATE)
2153 double FCa_ck_Vci_ei;
2154 double FCa_ck_Vtnode_GND;
2155 double FCa_ck_Vbi_ei;
2156 double FCa_ck_Vbi_ci;
2157 #endif
2158 double FCrt;
2159 #if defined(_DERIVATE)
2160 double FCrt_Vci_ei;
2161 double FCrt_Vtnode_GND;
2162 double FCrt_Vbi_ei;
2163 double FCrt_Vbi_ci;
2164 #endif
2165 double FCa;
2166 #if defined(_DERIVATE)
2167 double FCa_Vci_ei;
2168 double FCa_Vtnode_GND;
2169 double FCa_Vbi_ei;
2170 double FCa_Vbi_ci;
2171 #endif
2172 double FFT_cT;
2173 #if defined(_DERIVATE)
2174 double FFT_cT_Vtnode_GND;
2175 double FFT_cT_Vci_ei;
2176 double FFT_cT_Vbi_ei;
2177 double FFT_cT_Vbi_ci;
2178 #endif
2179 double FFQ_cT;
2180 #if defined(_DERIVATE)
2181 double FFQ_cT_Vtnode_GND;
2182 double FFQ_cT_Vbi_ei;
2183 double FFQ_cT_Vbi_ci;
2184 double FFQ_cT_Vci_ei;
2185 #endif
2186 double FFT_fC;
2187 #if defined(_DERIVATE)
2188 double FFT_fC_Vtnode_GND;
2189 double FFT_fC_Vci_ei;
2190 double FFT_fC_Vbi_ei;
2191 double FFT_fC_Vbi_ci;
2192 #endif
2193 double FFQ_fC;
2194 #if defined(_DERIVATE)
2195 double FFQ_fC_Vtnode_GND;
2196 double FFQ_fC_Vbi_ei;
2197 double FFQ_fC_Vbi_ci;
2198 double FFQ_fC_Vci_ei;
2199 #endif
2200 double FFT_pcS;
2201 #if defined(_DERIVATE)
2202 double FFT_pcS_Vtnode_GND;
2203 #endif
2204 double FFd_TfB;
2205 #if defined(_DERIVATE)
2206 double FFd_TfB_Vtnode_GND;
2207 double FFd_TfB_Vci_ei;
2208 double FFd_TfB_Vbi_ei;
2209 double FFd_TfB_Vbi_ci;
2210 #endif
2211 double FFa_w;
2212 #if defined(_DERIVATE)
2213 double FFa_w_Vci_ei;
2214 double FFa_w_Vtnode_GND;
2215 double FFa_w_Vbi_ei;
2216 double FFa_w_Vbi_ci;
2217 #endif
2218 double FFd_QfB;
2219 #if defined(_DERIVATE)
2220 double FFd_QfB_Vtnode_GND;
2221 double FFd_QfB_Vbi_ei;
2222 double FFd_QfB_Vbi_ci;
2223 double FFd_QfB_Vci_ei;
2224 #endif
2225 double FFw_2;
2226 #if defined(_DERIVATE)
2227 double FFw_2_Vci_ei;
2228 double FFw_2_Vtnode_GND;
2229 double FFw_2_Vbi_ei;
2230 double FFw_2_Vbi_ci;
2231 #endif
2232 double FFw;
2233 #if defined(_DERIVATE)
2234 double FFw_Vci_ei;
2235 double FFw_Vtnode_GND;
2236 double FFw_Vbi_ei;
2237 double FFw_Vbi_ci;
2238 #endif
2239 double FFs;
2240 #if defined(_DERIVATE)
2241 double FFs_Vci_ei;
2242 double FFs_Vtnode_GND;
2243 double FFs_Vbi_ei;
2244 double FFs_Vbi_ci;
2245 #endif
2246 double FFx;
2247 #if defined(_DERIVATE)
2248 double FFx_Vci_ei;
2249 double FFx_Vtnode_GND;
2250 double FFx_Vbi_ei;
2251 double FFx_Vbi_ci;
2252 #endif
2253 double FFT_fbS;
2254 #if defined(_DERIVATE)
2255 double FFT_fbS_Vtnode_GND;
2256 #endif
2257 double FFd_QfE;
2258 #if defined(_DERIVATE)
2259 double FFd_QfE_Vtnode_GND;
2260 double FFd_QfE_Vci_ei;
2261 double FFd_QfE_Vbi_ei;
2262 double FFd_QfE_Vbi_ci;
2263 #endif
2264 double FFd_TfE;
2265 #if defined(_DERIVATE)
2266 double FFd_TfE_Vtnode_GND;
2267 double FFd_TfE_Vci_ei;
2268 double FFd_TfE_Vbi_ei;
2269 double FFd_TfE_Vbi_ci;
2270 #endif
2271 double FFa;
2272 #if defined(_DERIVATE)
2273 double FFa_Vci_ei;
2274 double FFa_Vtnode_GND;
2275 double FFa_Vbi_ei;
2276 double FFa_Vbi_ci;
2277 #endif
2278 double T_fT;
2279 #if defined(_DERIVATE)
2280 double T_fT_Vci_ei;
2281 double T_fT_Vbi_ei;
2282 double T_fT_Vtnode_GND;
2283 double T_fT_Vbi_ci;
2284 #endif
2285 double Q_fT;
2286 #if defined(_DERIVATE)
2287 double Q_fT_Vci_ei;
2288 double Q_fT_Vtnode_GND;
2289 double Q_fT_Vbi_ci;
2290 double Q_fT_Vbi_ei;
2291 #endif
2292 double Qf;
2293 #if defined(_DERIVATE)
2294 double Qf_Vci_ei;
2295 double Qf_Vtnode_GND;
2296 double Qf_Vbi_ci;
2297 double Qf_Vbi_ei;
2298 #endif
2299 #if defined(_DERIVATE)
2300 double Tf_Vci_ei;
2301 double Tf_Vbi_ei;
2302 double Tf_Vtnode_GND;
2303 double Tf_Vbi_ci;
2304 #endif
2305 double Q_bf;
2306 #if defined(_DERIVATE)
2307 double Q_bf_Vtnode_GND;
2308 double Q_bf_Vbi_ei;
2309 double Q_bf_Vbi_ci;
2310 double Q_bf_Vci_ei;
2311 #endif
2312 double itr;
2313 #if defined(_DERIVATE)
2314 double itr_Vci_ei;
2315 double itr_Vtnode_GND;
2316 double itr_Vbi_ci;
2317 double itr_Vbi_ei;
2318 #endif
2319 double itf;
2320 #if defined(_DERIVATE)
2321 double itf_Vci_ei;
2322 double itf_Vtnode_GND;
2323 double itf_Vbi_ei;
2324 double itf_Vbi_ci;
2325 #endif
2326 double a_h;
2327 #if defined(_DERIVATE)
2328 double a_h_Vci_ei;
2329 double a_h_Vtnode_GND;
2330 double a_h_Vbi_ei;
2331 double a_h_Vbi_ci;
2332 #endif
2333 double I_Tf1;
2334 #if defined(_DERIVATE)
2335 double I_Tf1_Vci_ei;
2336 double I_Tf1_Vtnode_GND;
2337 double I_Tf1_Vbi_ei;
2338 double I_Tf1_Vbi_ci;
2339 #endif
2340 double A;
2341 #if defined(_DERIVATE)
2342 double A_Vtnode_GND;
2343 double A_Vbi_ei;
2344 double A_Vbi_ci;
2345 #endif
2346 double Q_p;
2347 #if defined(_DERIVATE)
2348 double Q_p_Vtnode_GND;
2349 double Q_p_Vbi_ei;
2350 double Q_p_Vbi_ci;
2351 #endif
2352 double ICKa;
2353 #if defined(_DERIVATE)
2354 double ICKa_Vci_ei;
2355 double ICKa_Vtnode_GND;
2356 #endif
2357 double ick;
2358 #if defined(_DERIVATE)
2359 double ick_Vci_ei;
2360 double ick_Vtnode_GND;
2361 #endif
2362 double vceff;
2363 #if defined(_DERIVATE)
2364 double vceff_Vci_ei;
2365 double vceff_Vtnode_GND;
2366 #endif
2367 double d1;
2368 #if defined(_DERIVATE)
2369 double d1_Vci_ei;
2370 double d1_Vtnode_GND;
2371 #endif
2372 double Ovpt;
2373 double vc;
2374 #if defined(_DERIVATE)
2375 double vc_Vci_ei;
2376 double vc_Vtnode_GND;
2377 #endif
2378 double T_f0;
2379 #if defined(_DERIVATE)
2380 double T_f0_Vtnode_GND;
2381 double T_f0_Vbi_ci;
2382 #endif
2383 double cc;
2384 #if defined(_DERIVATE)
2385 double cc_Vtnode_GND;
2386 double cc_Vbi_ci;
2387 #endif
2388 double Cjcit;
2389 #if defined(_DERIVATE)
2390 double Cjcit_Vtnode_GND;
2391 double Cjcit_Vbi_ci;
2392 #endif
2393 double b_q;
2394 #if defined(_DERIVATE)
2395 double b_q_Vtnode_GND;
2396 double b_q_Vbi_ei;
2397 double b_q_Vbi_ci;
2398 #endif
2399 double Q_bpt;
2400 #if defined(_DERIVATE)
2401 double Q_bpt_Vtnode_GND;
2402 #endif
2403 double Q_0;
2404 #if defined(_DERIVATE)
2405 double Q_0_Vtnode_GND;
2406 double Q_0_Vbi_ei;
2407 double Q_0_Vbi_ci;
2408 #endif
2409 double a_bpt;
2410 double Qjci;
2411 #if defined(_DERIVATE)
2412 double Qjci_Vbi_ei;
2413 double Qjci_Vtnode_GND;
2414 double Qjci_Vbi_ci;
2415 #endif
2416 double DQ_j3;
2417 #if defined(_DERIVATE)
2418 double DQ_j3_Vsi_ci;
2419 double DQ_j3_Vb_ci;
2420 double DQ_j3_Vbp_ci;
2421 double DQ_j3_Vtnode_GND;
2422 double DQ_j3_Vbi_ci;
2423 #endif
2424 double DQ_j2;
2425 #if defined(_DERIVATE)
2426 double DQ_j2_Vsi_ci;
2427 double DQ_j2_Vb_ci;
2428 double DQ_j2_Vbp_ci;
2429 double DQ_j2_Vtnode_GND;
2430 double DQ_j2_Vbi_ci;
2431 #endif
2432 double DQ_j1;
2433 #if defined(_DERIVATE)
2434 double DQ_j1_Vsi_ci;
2435 double DQ_j1_Vb_ci;
2436 double DQ_j1_Vbp_ci;
2437 double DQ_j1_Vtnode_GND;
2438 double DQ_j1_Vbi_ci;
2439 #endif
2440 double Cjci;
2441 #if defined(_DERIVATE)
2442 double Cjci_Vbi_ei;
2443 double Cjci_Vtnode_GND;
2444 double Cjci_Vbi_ci;
2445 #endif
2446 double DC_j3;
2447 #if defined(_DERIVATE)
2448 double DC_j3_Vsi_ci;
2449 double DC_j3_Vb_ci;
2450 double DC_j3_Vbp_ci;
2451 double DC_j3_Vtnode_GND;
2452 double DC_j3_Vbi_ci;
2453 #endif
2454 double DC_j2;
2455 #if defined(_DERIVATE)
2456 double DC_j2_Vsi_ci;
2457 double DC_j2_Vb_ci;
2458 double DC_j2_Vbp_ci;
2459 double DC_j2_Vtnode_GND;
2460 double DC_j2_Vbi_ci;
2461 #endif
2462 double DC_j1;
2463 #if defined(_DERIVATE)
2464 double DC_j1_Vsi_ci;
2465 double DC_j1_Vb_ci;
2466 double DC_j1_Vbp_ci;
2467 double DC_j1_Vtnode_GND;
2468 double DC_j1_Vbi_ci;
2469 #endif
2470 double Dzr1;
2471 double Dz1;
2472 double DCln2;
2473 #if defined(_DERIVATE)
2474 double DCln2_Vsi_ci;
2475 double DCln2_Vb_ci;
2476 double DCln2_Vbp_ci;
2477 double DCln2_Vtnode_GND;
2478 double DCln2_Vbi_ci;
2479 #endif
2480 double DCln1;
2481 #if defined(_DERIVATE)
2482 double DCln1_Vsi_ci;
2483 double DCln1_Vb_ci;
2484 double DCln1_Vbp_ci;
2485 double DCln1_Vtnode_GND;
2486 double DCln1_Vbi_ci;
2487 #endif
2488 double Dv_j4;
2489 #if defined(_DERIVATE)
2490 double Dv_j4_Vsi_ci;
2491 double Dv_j4_Vb_ci;
2492 double Dv_j4_Vbp_ci;
2493 double Dv_j4_Vbi_ci;
2494 double Dv_j4_Vtnode_GND;
2495 #endif
2496 double Dv_j2;
2497 #if defined(_DERIVATE)
2498 double Dv_j2_Vsi_ci;
2499 double Dv_j2_Vb_ci;
2500 double Dv_j2_Vbp_ci;
2501 double Dv_j2_Vtnode_GND;
2502 double Dv_j2_Vbi_ci;
2503 #endif
2504 double De_2;
2505 #if defined(_DERIVATE)
2506 double De_2_Vsi_ci;
2507 double De_2_Vb_ci;
2508 double De_2_Vbp_ci;
2509 double De_2_Vtnode_GND;
2510 double De_2_Vbi_ci;
2511 #endif
2512 double Dv_r;
2513 #if defined(_DERIVATE)
2514 double Dv_r_Vsi_ci;
2515 double Dv_r_Vb_ci;
2516 double Dv_r_Vbp_ci;
2517 double Dv_r_Vtnode_GND;
2518 double Dv_r_Vbi_ci;
2519 #endif
2520 double Da;
2521 #if defined(_DERIVATE)
2522 double Da_Vtnode_GND;
2523 #endif
2524 double Dv_j1;
2525 #if defined(_DERIVATE)
2526 double Dv_j1_Vsi_ci;
2527 double Dv_j1_Vb_ci;
2528 double Dv_j1_Vbp_ci;
2529 double Dv_j1_Vtnode_GND;
2530 double Dv_j1_Vbi_ci;
2531 #endif
2532 double De_1;
2533 #if defined(_DERIVATE)
2534 double De_1_Vsi_ci;
2535 double De_1_Vb_ci;
2536 double De_1_Vbp_ci;
2537 double De_1_Vtnode_GND;
2538 double De_1_Vbi_ci;
2539 #endif
2540 double De;
2541 #if defined(_DERIVATE)
2542 double De_Vsi_ci;
2543 double De_Vb_ci;
2544 double De_Vbp_ci;
2545 double De_Vtnode_GND;
2546 double De_Vbi_ci;
2547 #endif
2548 double Dv_e;
2549 #if defined(_DERIVATE)
2550 double Dv_e_Vsi_ci;
2551 double Dv_e_Vb_ci;
2552 double Dv_e_Vbp_ci;
2553 double Dv_e_Vtnode_GND;
2554 double Dv_e_Vbi_ci;
2555 #endif
2556 double DC_c;
2557 #if defined(_DERIVATE)
2558 double DC_c_Vtnode_GND;
2559 #endif
2560 double DC_max;
2561 #if defined(_DERIVATE)
2562 double DC_max_Vtnode_GND;
2563 #endif
2564 double DV_f;
2565 #if defined(_DERIVATE)
2566 double DV_f_Vtnode_GND;
2567 #endif
2568 double Dv_p;
2569 #if defined(_DERIVATE)
2570 double Dv_p_Vtnode_GND;
2571 #endif
2572 double Dz_r;
2573 double Qjei;
2574 #if defined(_DERIVATE)
2575 double Qjei_Vtnode_GND;
2576 double Qjei_Vbi_ei;
2577 #endif
2578 double DFQ_j;
2579 #if defined(_DERIVATE)
2580 double DFQ_j_Vsi_ci;
2581 double DFQ_j_Vb_ci;
2582 double DFQ_j_Vbp_ci;
2583 double DFQ_j_Vbp_ei;
2584 double DFQ_j_Vbi_ci;
2585 double DFQ_j_Vtnode_GND;
2586 double DFQ_j_Vbi_ei;
2587 #endif
2588 double Cjei;
2589 #if defined(_DERIVATE)
2590 double Cjei_Vtnode_GND;
2591 double Cjei_Vbi_ei;
2592 #endif
2593 double DFC_j1;
2594 #if defined(_DERIVATE)
2595 double DFC_j1_Vsi_ci;
2596 double DFC_j1_Vb_ci;
2597 double DFC_j1_Vbp_ci;
2598 double DFC_j1_Vbp_ei;
2599 double DFC_j1_Vbi_ci;
2600 double DFC_j1_Vtnode_GND;
2601 double DFC_j1_Vbi_ei;
2602 #endif
2603 double DFb;
2604 #if defined(_DERIVATE)
2605 double DFb_Vsi_ci;
2606 double DFb_Vb_ci;
2607 double DFb_Vbp_ci;
2608 double DFb_Vbp_ei;
2609 double DFb_Vbi_ci;
2610 double DFb_Vtnode_GND;
2611 double DFb_Vbi_ei;
2612 #endif
2613 double DFdvj_dv;
2614 #if defined(_DERIVATE)
2615 double DFdvj_dv_Vsi_ci;
2616 double DFdvj_dv_Vb_ci;
2617 double DFdvj_dv_Vbp_ci;
2618 double DFdvj_dv_Vbp_ei;
2619 double DFdvj_dv_Vbi_ci;
2620 double DFdvj_dv_Vtnode_GND;
2621 double DFdvj_dv_Vbi_ei;
2622 #endif
2623 double DFv_j;
2624 #if defined(_DERIVATE)
2625 double DFv_j_Vsi_ci;
2626 double DFv_j_Vb_ci;
2627 double DFv_j_Vbp_ci;
2628 double DFv_j_Vbp_ei;
2629 double DFv_j_Vbi_ci;
2630 double DFv_j_Vtnode_GND;
2631 double DFv_j_Vbi_ei;
2632 #endif
2633 double DFs_q2;
2634 #if defined(_DERIVATE)
2635 double DFs_q2_Vsi_ci;
2636 double DFs_q2_Vb_ci;
2637 double DFs_q2_Vbp_ci;
2638 double DFs_q2_Vbp_ei;
2639 double DFs_q2_Vbi_ci;
2640 double DFs_q2_Vtnode_GND;
2641 double DFs_q2_Vbi_ei;
2642 #endif
2643 double DFs_q;
2644 #if defined(_DERIVATE)
2645 double DFs_q_Vsi_ci;
2646 double DFs_q_Vb_ci;
2647 double DFs_q_Vbp_ci;
2648 double DFs_q_Vbp_ei;
2649 double DFs_q_Vbi_ci;
2650 double DFs_q_Vtnode_GND;
2651 double DFs_q_Vbi_ei;
2652 #endif
2653 double DFv_e;
2654 #if defined(_DERIVATE)
2655 double DFv_e_Vsi_ci;
2656 double DFv_e_Vb_ci;
2657 double DFv_e_Vbp_ci;
2658 double DFv_e_Vbp_ei;
2659 double DFv_e_Vbi_ci;
2660 double DFv_e_Vtnode_GND;
2661 double DFv_e_Vbi_ei;
2662 #endif
2663 double DFV_f;
2664 #if defined(_DERIVATE)
2665 double DFV_f_Vtnode_GND;
2666 #endif
2667 double i_0r;
2668 #if defined(_DERIVATE)
2669 double i_0r_Vtnode_GND;
2670 double i_0r_Vbi_ci;
2671 #endif
2672 double i_0f;
2673 #if defined(_DERIVATE)
2674 double i_0f_Vtnode_GND;
2675 double i_0f_Vbi_ei;
2676 #endif
2677 double VT_f;
2678 #if defined(_DERIVATE)
2679 double VT_f_Vtnode_GND;
2680 #endif
2681 double Tr;
2682 double Orci0_t;
2683 #if defined(_DERIVATE)
2684 double Orci0_t_Vtnode_GND;
2685 #endif
2686 double irei;
2687 #if defined(_DERIVATE)
2688 double irei_Vtnode_GND;
2689 double irei_Vbi_ei;
2690 #endif
2691 #if defined(_DERIVATE)
2692 double ibei_Vtnode_GND;
2693 double ibei_Vbi_ei;
2694 #endif
2695 double le;
2696 #if defined(_DERIVATE)
2697 double le_Vsi_ci;
2698 double le_Vbp_ci;
2699 double le_Vbp_ei;
2700 double le_Vbi_ci;
2701 double le_Vbi_ei;
2702 double le_Vtnode_GND;
2703 #endif
2704 double DIOY;
2705 #if defined(_DERIVATE)
2706 double DIOY_Vsi_ci;
2707 double DIOY_Vbp_ci;
2708 double DIOY_Vbp_ei;
2709 double DIOY_Vbi_ci;
2710 double DIOY_Vbi_ei;
2711 double DIOY_Vtnode_GND;
2712 #endif
2713 #if defined(_DYNAMIC)
2714 #if defined(_DERIVATE)
2715 double vpts_t_Vtnode_GND;
2716 #endif
2717 #endif
2718 #if defined(_DYNAMIC)
2719 #if defined(_DERIVATE)
2720 double cjs0_t_Vtnode_GND;
2721 #endif
2722 #endif
2723 #if defined(_DYNAMIC)
2724 #if defined(_DERIVATE)
2725 double vds_t_Vtnode_GND;
2726 #endif
2727 #endif
2728 #if defined(_DYNAMIC)
2729 #if defined(_DERIVATE)
2730 double tsf_t_Vtnode_GND;
2731 #endif
2732 #endif
2733 #if defined(_DERIVATE)
2734 double re_t_Vtnode_GND;
2735 #endif
2736 #if defined(_DERIVATE)
2737 double rbx_t_Vtnode_GND;
2738 #endif
2739 #if defined(_DERIVATE)
2740 double rcx_t_Vtnode_GND;
2741 #endif
2742 #if defined(_DYNAMIC)
2743 #if defined(_DERIVATE)
2744 double cjcx02_t_Vtnode_GND;
2745 #endif
2746 #endif
2747 #if defined(_DYNAMIC)
2748 #if defined(_DERIVATE)
2749 double cjcx01_t_Vtnode_GND;
2750 #endif
2751 #endif
2752 #if defined(_DYNAMIC)
2753 #if defined(_DERIVATE)
2754 double vptcx_t_Vtnode_GND;
2755 #endif
2756 #endif
2757 #if defined(_DYNAMIC)
2758 #if defined(_DERIVATE)
2759 double cratio_t_Vtnode_GND;
2760 #endif
2761 #endif
2762 #if defined(_DYNAMIC)
2763 #if defined(_DERIVATE)
2764 double vdcx_t_Vtnode_GND;
2765 #endif
2766 #endif
2767 #if defined(_DERIVATE)
2768 double abet_t_Vtnode_GND;
2769 #endif
2770 #if defined(_DERIVATE)
2771 double ibets_t_Vtnode_GND;
2772 #endif
2773 #if defined(_DERIVATE)
2774 double ajep_t_Vtnode_GND;
2775 #endif
2776 #if defined(_DERIVATE)
2777 double cjep0_t_Vtnode_GND;
2778 #endif
2779 #if defined(_DERIVATE)
2780 double vdep_t_Vtnode_GND;
2781 #endif
2782 #if defined(_DERIVATE)
2783 double rbi0_t_Vtnode_GND;
2784 #endif
2785 #if defined(_DERIVATE)
2786 double qavl_t_Vtnode_GND;
2787 #endif
2788 #if defined(_DERIVATE)
2789 double favl_t_Vtnode_GND;
2790 #endif
2791 #if defined(_DERIVATE)
2792 double thcs_t_Vtnode_GND;
2793 #endif
2794 #if defined(_DERIVATE)
2795 double t0_t_Vtnode_GND;
2796 #endif
2797 #if defined(_DERIVATE)
2798 double vptci_t_Vtnode_GND;
2799 #endif
2800 #if defined(_DERIVATE)
2801 double cjci0_t_Vtnode_GND;
2802 #endif
2803 #if defined(_DERIVATE)
2804 double vdci_t_Vtnode_GND;
2805 #endif
2806 #if defined(_DERIVATE)
2807 double vces_t_Vtnode_GND;
2808 #endif
2809 #if defined(_DERIVATE)
2810 double rci0_t_Vtnode_GND;
2811 #endif
2812 #if defined(_DERIVATE)
2813 double c10_t_Vtnode_GND;
2814 #endif
2815 #if defined(_DERIVATE)
2816 double tef0_t_Vtnode_GND;
2817 #endif
2818 #if defined(_DERIVATE)
2819 double vlim_t_Vtnode_GND;
2820 #endif
2821 #if defined(_DERIVATE)
2822 double k_Vtnode_GND;
2823 #endif
2824 #if defined(_DERIVATE)
2825 double qp0_t_Vtnode_GND;
2826 #endif
2827 #if defined(_DERIVATE)
2828 double iscs_t_Vtnode_GND;
2829 #endif
2830 #if defined(_DERIVATE)
2831 double itss_t_Vtnode_GND;
2832 #endif
2833 #if defined(_DERIVATE)
2834 double ibcxs_t_Vtnode_GND;
2835 #endif
2836 #if defined(_DERIVATE)
2837 double ibcis_t_Vtnode_GND;
2838 #endif
2839 #if defined(_DERIVATE)
2840 double ireps_t_Vtnode_GND;
2841 #endif
2842 #if defined(_DERIVATE)
2843 double ibeps_t_Vtnode_GND;
2844 #endif
2845 #if defined(_DERIVATE)
2846 double ireis_t_Vtnode_GND;
2847 #endif
2848 #if defined(_DERIVATE)
2849 double ibeis_t_Vtnode_GND;
2850 #endif
2851 #if defined(_DERIVATE)
2852 double a_Vbi_ei;
2853 double a_Vbi_ci;
2854 double a_Vci_ei;
2855 double a_Vtnode_GND;
2856 #endif
2857 #if defined(_DERIVATE)
2858 double r_VgVT_Vtnode_GND;
2859 #endif
2860 #if defined(_DERIVATE)
2861 double V_gT_Vtnode_GND;
2862 #endif
2863 #if defined(_DERIVATE)
2864 double ajei_t_Vtnode_GND;
2865 #endif
2866 #if defined(_DERIVATE)
2867 double cjei0_t_Vtnode_GND;
2868 #endif
2869 #if defined(_DERIVATE)
2870 double vdei_t_Vtnode_GND;
2871 #endif
2872 #if defined(_DERIVATE)
2873 double vdt_Vtnode_GND;
2874 #endif
2875 #if defined(_DERIVATE)
2876 double vdjt_Vtnode_GND;
2877 #endif
2878 #if defined(_DERIVATE)
2879 double vgbe_t_Vtnode_GND;
2880 #endif
2881 #if defined(_DERIVATE)
2882 double vge_t_Vtnode_GND;
2883 #endif
2884 #if defined(_DERIVATE)
2885 double vgb_t_Vtnode_GND;
2886 #endif
2887 #if defined(_DERIVATE)
2888 double k2_Vtnode_GND;
2889 #endif
2890 #if defined(_DERIVATE)
2891 double k1_Vtnode_GND;
2892 #endif
2893 #if defined(_DERIVATE)
2894 double ln_qtt0_Vtnode_GND;
2895 #endif
2896 #if defined(_DERIVATE)
2897 double qtt0_Vtnode_GND;
2898 #endif
2899 #if defined(_DERIVATE)
2900 double dT_Vtnode_GND;
2901 #endif
2902 #if defined(_DERIVATE)
2903 double VT_Vtnode_GND;
2904 #endif
2905 #if defined(_DERIVATE)
2906 double Tdev_Vtnode_GND;
2907 #endif
2908 if
2909 (((flsh!=0)&&(rth>=0.001)))
2910 {
2911 #if defined(_DERIVATE)
2912 Tdev_Vtnode_GND=1.0;
2913 #endif
2914 Tdev=((Tamb+dt)+NP(tnode));
2915 if
2916 ((Tdev<((-100.0)+273.15)))
2917 {
2918 #if defined(_DERIVATE)
2919 Tdev_Vtnode_GND=0.0;
2920 #endif
2921 Tdev=((-100.0)+273.15);
2922 }
2923 else
2924 {
2925 if
2926 ((Tdev>(326.85+273.15)))
2927 {
2928 #if defined(_DERIVATE)
2929 Tdev_Vtnode_GND=0.0;
2930 #endif
2931 Tdev=(326.85+273.15);
2932 }
2933 }
2934 #if defined(_DERIVATE)
2935 VT_Vtnode_GND=((1.3806503e-23*Tdev_Vtnode_GND)/1.602176462e-19);
2936 #endif
2937 VT=((1.3806503e-23*Tdev)/1.602176462e-19);
2938 #if defined(_DERIVATE)
2939 dT_Vtnode_GND=Tdev_Vtnode_GND;
2940 #endif
2941 dT=(Tdev-Tnom);
2942 #if defined(_DERIVATE)
2943 qtt0_Vtnode_GND=(Tdev_Vtnode_GND/Tnom);
2944 #endif
2945 qtt0=(Tdev/Tnom);
2946 {
2947 double m00_logE(d00_logE0,qtt0)
2948 #if defined(_DERIVATE)
2949 double m10_logE(d10_logE0,d00_logE0,qtt0)
2950 #endif
2951 #if defined(_DERIVATE)
2952 ln_qtt0_Vtnode_GND=qtt0_Vtnode_GND*d10_logE0;
2953 #endif
2954 ln_qtt0=d00_logE0;
2955 }
2956 {
2957 double m00_logE(d00_logE0,Tdev)
2958 #if defined(_DERIVATE)
2959 double m10_logE(d10_logE0,d00_logE0,Tdev)
2960 #endif
2961 #if defined(_DERIVATE)
2962 k1_Vtnode_GND=(((f1vg*Tdev_Vtnode_GND)*d00_logE0)+((f1vg*Tdev)*Tdev_Vtnode_GND*d10_logE0));
2963 #endif
2964 k1=((f1vg*Tdev)*d00_logE0);
2965 }
2966 #if defined(_DERIVATE)
2967 k2_Vtnode_GND=(f2vg*Tdev_Vtnode_GND);
2968 #endif
2969 k2=(f2vg*Tdev);
2970 #if defined(_DERIVATE)
2971 vgb_t_Vtnode_GND=(k1_Vtnode_GND+k2_Vtnode_GND);
2972 #endif
2973 vgb_t=((vgb+k1)+k2);
2974 #if defined(_DERIVATE)
2975 vge_t_Vtnode_GND=(k1_Vtnode_GND+k2_Vtnode_GND);
2976 #endif
2977 vge_t=((vge+k1)+k2);
2978 #if defined(_DERIVATE)
2979 vgbe_t_Vtnode_GND=((vgb_t_Vtnode_GND+vge_t_Vtnode_GND)/2);
2980 #endif
2981 vgbe_t=((vgb_t+vge_t)/2);
2982 if
2983 ((cjei0>0.0))
2984 {
2985 {
2986 double m00_exp(d00_exp0,((vdei*0.5)/vt0))
2987 double m00_exp(d00_exp1,(((-0.5)*vdei)/vt0))
2988 double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
2989 vdj0=((2*vt0)*d00_logE2);
2990 }
2991 #if defined(_DERIVATE)
2992 vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgbe0*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
2993 #endif
2994 vdjt=(((vdj0*qtt0)+(vgbe0*(1-qtt0)))-((mg*VT)*ln_qtt0));
2995 {
2996 double m00_exp(d00_exp0,((-vdjt)/VT))
2997 double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
2998 double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
2999 #if defined(_DERIVATE)
3000 #define d10_exp0 d00_exp0
3001 double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
3002 double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
3003 #endif
3004 #if defined(_DERIVATE)
3005 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)));
3006 #endif
3007 vdt=(vdjt+((2*VT)*d00_logE2));
3008 }
3009 #if defined(_DERIVATE)
3010 vdei_t_Vtnode_GND=vdt_Vtnode_GND;
3011 #endif
3012 vdei_t=vdt;
3013 {
3014 double m00_logE(d00_logE0,(vdei/vdei_t))
3015 double m00_exp(d00_exp1,(zei*d00_logE0))
3016 #if defined(_DERIVATE)
3017 double m10_logE(d10_logE0,d00_logE0,(vdei/vdei_t))
3018 #define d10_exp1 d00_exp1
3019 #endif
3020 #if defined(_DERIVATE)
3021 cjei0_t_Vtnode_GND=(cjei0*(zei*(-vdei*vdei_t_Vtnode_GND/vdei_t/vdei_t)*d10_logE0)*d10_exp1);
3022 #endif
3023 cjei0_t=(cjei0*d00_exp1);
3024 }
3025 if
3026 ((1==1))
3027 {
3028 #if defined(_DERIVATE)
3029 ajei_t_Vtnode_GND=((ajei*vdei_t_Vtnode_GND)/vdei);
3030 #endif
3031 ajei_t=((ajei*vdei_t)/vdei);
3032 }
3033 else
3034 {
3035 #if defined(_DERIVATE)
3036 ajei_t_Vtnode_GND=0.0;
3037 #endif
3038 ajei_t=ajei;
3039 }
3040 }
3041 else
3042 {
3043 #if defined(_DERIVATE)
3044 cjei0_t_Vtnode_GND=0.0;
3045 #endif
3046 cjei0_t=cjei0;
3047 #if defined(_DERIVATE)
3048 vdei_t_Vtnode_GND=0.0;
3049 #endif
3050 vdei_t=vdei;
3051 #if defined(_DERIVATE)
3052 ajei_t_Vtnode_GND=0.0;
3053 #endif
3054 ajei_t=ajei;
3055 }
3056 if
3057 (((flcomp==0.0)||(flcomp==2.1)))
3058 {
3059 #if defined(_DERIVATE)
3060 V_gT_Vtnode_GND=((((3.0*VT_Vtnode_GND)*ln_qtt0)+((3.0*VT)*ln_qtt0_Vtnode_GND))+(vgb*qtt0_Vtnode_GND));
3061 #endif
3062 V_gT=(((3.0*VT)*ln_qtt0)+(vgb*(qtt0-1.0)));
3063 #if defined(_DERIVATE)
3064 r_VgVT_Vtnode_GND=((V_gT_Vtnode_GND*VT-V_gT*VT_Vtnode_GND)/VT/VT);
3065 #endif
3066 r_VgVT=(V_gT/VT);
3067 #if defined(_DERIVATE)
3068 a_Vbi_ei=0.0;
3069 a_Vbi_ci=0.0;
3070 a_Vci_ei=0.0;
3071 a_Vtnode_GND=(((mcf*r_VgVT_Vtnode_GND)/mbei)-(alb*dT_Vtnode_GND));
3072 #endif
3073 a=(((mcf*r_VgVT)/mbei)-(alb*dT));
3074 {
3075 double m00_exp(d00_exp0,a)
3076 #if defined(_DERIVATE)
3077 #define d10_exp0 d00_exp0
3078 #endif
3079 #if defined(_DERIVATE)
3080 ibeis_t_Vtnode_GND=(ibeis*a_Vtnode_GND*d10_exp0);
3081 #endif
3082 ibeis_t=(ibeis*d00_exp0);
3083 }
3084 #if defined(_DERIVATE)
3085 a_Vbi_ei=0.0;
3086 a_Vbi_ci=0.0;
3087 a_Vci_ei=0.0;
3088 a_Vtnode_GND=(((mcf*r_VgVT_Vtnode_GND)/mrei)-(alb*dT_Vtnode_GND));
3089 #endif
3090 a=(((mcf*r_VgVT)/mrei)-(alb*dT));
3091 {
3092 double m00_exp(d00_exp0,a)
3093 #if defined(_DERIVATE)
3094 #define d10_exp0 d00_exp0
3095 #endif
3096 #if defined(_DERIVATE)
3097 ireis_t_Vtnode_GND=(ireis*a_Vtnode_GND*d10_exp0);
3098 #endif
3099 ireis_t=(ireis*d00_exp0);
3100 }
3101 #if defined(_DERIVATE)
3102 a_Vbi_ei=0.0;
3103 a_Vbi_ci=0.0;
3104 a_Vci_ei=0.0;
3105 a_Vtnode_GND=(((mcf*r_VgVT_Vtnode_GND)/mbep)-(alb*dT_Vtnode_GND));
3106 #endif
3107 a=(((mcf*r_VgVT)/mbep)-(alb*dT));
3108 {
3109 double m00_exp(d00_exp0,a)
3110 #if defined(_DERIVATE)
3111 #define d10_exp0 d00_exp0
3112 #endif
3113 #if defined(_DERIVATE)
3114 ibeps_t_Vtnode_GND=(ibeps*a_Vtnode_GND*d10_exp0);
3115 #endif
3116 ibeps_t=(ibeps*d00_exp0);
3117 }
3118 #if defined(_DERIVATE)
3119 a_Vbi_ei=0.0;
3120 a_Vbi_ci=0.0;
3121 a_Vci_ei=0.0;
3122 a_Vtnode_GND=(((mcf*r_VgVT_Vtnode_GND)/mrep)-(alb*dT_Vtnode_GND));
3123 #endif
3124 a=(((mcf*r_VgVT)/mrep)-(alb*dT));
3125 {
3126 double m00_exp(d00_exp0,a)
3127 #if defined(_DERIVATE)
3128 #define d10_exp0 d00_exp0
3129 #endif
3130 #if defined(_DERIVATE)
3131 ireps_t_Vtnode_GND=(ireps*a_Vtnode_GND*d10_exp0);
3132 #endif
3133 ireps_t=(ireps*d00_exp0);
3134 }
3135 #if defined(_DERIVATE)
3136 a_Vbi_ei=0.0;
3137 a_Vbi_ci=0.0;
3138 a_Vci_ei=0.0;
3139 a_Vtnode_GND=(r_VgVT_Vtnode_GND/mbci);
3140 #endif
3141 a=(r_VgVT/mbci);
3142 {
3143 double m00_exp(d00_exp0,a)
3144 #if defined(_DERIVATE)
3145 #define d10_exp0 d00_exp0
3146 #endif
3147 #if defined(_DERIVATE)
3148 ibcis_t_Vtnode_GND=(ibcis*a_Vtnode_GND*d10_exp0);
3149 #endif
3150 ibcis_t=(ibcis*d00_exp0);
3151 }
3152 #if defined(_DERIVATE)
3153 a_Vbi_ei=0.0;
3154 a_Vbi_ci=0.0;
3155 a_Vci_ei=0.0;
3156 a_Vtnode_GND=(r_VgVT_Vtnode_GND/mbcx);
3157 #endif
3158 a=(r_VgVT/mbcx);
3159 {
3160 double m00_exp(d00_exp0,a)
3161 #if defined(_DERIVATE)
3162 #define d10_exp0 d00_exp0
3163 #endif
3164 #if defined(_DERIVATE)
3165 ibcxs_t_Vtnode_GND=(ibcxs*a_Vtnode_GND*d10_exp0);
3166 #endif
3167 ibcxs_t=(ibcxs*d00_exp0);
3168 }
3169 #if defined(_DERIVATE)
3170 a_Vbi_ei=0.0;
3171 a_Vbi_ci=0.0;
3172 a_Vci_ei=0.0;
3173 a_Vtnode_GND=(r_VgVT_Vtnode_GND/msf);
3174 #endif
3175 a=(r_VgVT/msf);
3176 {
3177 double m00_exp(d00_exp0,a)
3178 #if defined(_DERIVATE)
3179 #define d10_exp0 d00_exp0
3180 #endif
3181 #if defined(_DERIVATE)
3182 itss_t_Vtnode_GND=(itss*a_Vtnode_GND*d10_exp0);
3183 #endif
3184 itss_t=(itss*d00_exp0);
3185 }
3186 #if defined(_DERIVATE)
3187 a_Vbi_ei=0.0;
3188 a_Vbi_ci=0.0;
3189 a_Vci_ei=0.0;
3190 a_Vtnode_GND=(r_VgVT_Vtnode_GND/msc);
3191 #endif
3192 a=(r_VgVT/msc);
3193 {
3194 double m00_exp(d00_exp0,a)
3195 #if defined(_DERIVATE)
3196 #define d10_exp0 d00_exp0
3197 #endif
3198 #if defined(_DERIVATE)
3199 iscs_t_Vtnode_GND=(iscs*a_Vtnode_GND*d10_exp0);
3200 #endif
3201 iscs_t=(iscs*d00_exp0);
3202 }
3203 #if defined(_DERIVATE)
3204 a_Vbi_ei=0.0;
3205 a_Vbi_ci=0.0;
3206 a_Vci_ei=0.0;
3207 a_Vtnode_GND=(vdei_t_Vtnode_GND/vdei);
3208 #endif
3209 a=(vdei_t/vdei);
3210 #if defined(_DERIVATE)
3211 qp0_t_Vtnode_GND=(qp0*((0.5*zei)*(-a_Vtnode_GND)));
3212 #endif
3213 qp0_t=(qp0*(1.0+((0.5*zei)*(1.0-a))));
3214 {
3215 double m00_exp(d00_exp0,(zetaci*ln_qtt0))
3216 #if defined(_DERIVATE)
3217 #define d10_exp0 d00_exp0
3218 #endif
3219 #if defined(_DERIVATE)
3220 a_Vbi_ei=0.0;
3221 a_Vbi_ci=0.0;
3222 a_Vci_ei=0.0;
3223 a_Vtnode_GND=(((vlim*(-(alvs*dT_Vtnode_GND)))*d00_exp0)+((vlim*(1.0-(alvs*dT)))*(zetaci*ln_qtt0_Vtnode_GND)*d10_exp0));
3224 #endif
3225 a=((vlim*(1.0-(alvs*dT)))*d00_exp0);
3226 }
3227 #if defined(_DERIVATE)
3228 k_Vtnode_GND=(((a_Vtnode_GND-VT_Vtnode_GND)*VT-(a-VT)*VT_Vtnode_GND)/VT/VT);
3229 #endif
3230 k=((a-VT)/VT);
3231 if
3232 ((k<11.0))
3233 {
3234 {
3235 double m00_exp(d00_exp0,k)
3236 double m00_logE(d00_logE1,(1.0+d00_exp0))
3237 #if defined(_DERIVATE)
3238 #define d10_exp0 d00_exp0
3239 double m10_logE(d10_logE1,d00_logE1,(1.0+d00_exp0))
3240 #endif
3241 #if defined(_DERIVATE)
3242 vlim_t_Vtnode_GND=(VT_Vtnode_GND+((VT_Vtnode_GND*d00_logE1)+(VT*k_Vtnode_GND*d10_exp0*d10_logE1)));
3243 #endif
3244 vlim_t=(VT+(VT*d00_logE1));
3245 }
3246 }
3247 else
3248 {
3249 #if defined(_DERIVATE)
3250 vlim_t_Vtnode_GND=a_Vtnode_GND;
3251 #endif
3252 vlim_t=a;
3253 }
3254 #if defined(_DERIVATE)
3255 a_Vbi_ei=0.0;
3256 a_Vbi_ci=0.0;
3257 a_Vci_ei=0.0;
3258 a_Vtnode_GND=(alb*dT_Vtnode_GND);
3259 #endif
3260 a=(1.0+(alb*dT));
3261 {
3262 double m00_sqrt(d00_sqrt0,((a*a)+0.01))
3263 #if defined(_DERIVATE)
3264 double m10_sqrt(d10_sqrt0,d00_sqrt0,((a*a)+0.01))
3265 #endif
3266 #if defined(_DERIVATE)
3267 k_Vtnode_GND=(0.5*(a_Vtnode_GND+((a_Vtnode_GND*a)+(a*a_Vtnode_GND))*d10_sqrt0));
3268 #endif
3269 k=(0.5*(a+d00_sqrt0));
3270 }
3271 #if defined(_DERIVATE)
3272 tef0_t_Vtnode_GND=(((tef0*qtt0_Vtnode_GND)*k-(tef0*qtt0)*k_Vtnode_GND)/k/k);
3273 #endif
3274 tef0_t=((tef0*qtt0)/k);
3275 }
3276 else
3277 {
3278 {
3279 double m00_exp(d00_exp0,((zetabet*ln_qtt0)+((vge/VT)*(qtt0-1))))
3280 #if defined(_DERIVATE)
3281 #define d10_exp0 d00_exp0
3282 #endif
3283 #if defined(_DERIVATE)
3284 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);
3285 #endif
3286 ibeis_t=(ibeis*d00_exp0);
3287 }
3288 {
3289 double m00_exp(d00_exp0,(((0.5*mg)*ln_qtt0)+(((0.5*vgbe0)/VT)*(qtt0-1))))
3290 #if defined(_DERIVATE)
3291 #define d10_exp0 d00_exp0
3292 #endif
3293 #if defined(_DERIVATE)
3294 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);
3295 #endif
3296 ireis_t=(ireis*d00_exp0);
3297 }
3298 {
3299 double m00_exp(d00_exp0,((zetabet*ln_qtt0)+((vge/VT)*(qtt0-1))))
3300 #if defined(_DERIVATE)
3301 #define d10_exp0 d00_exp0
3302 #endif
3303 #if defined(_DERIVATE)
3304 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);
3305 #endif
3306 ibeps_t=(ibeps*d00_exp0);
3307 }
3308 {
3309 double m00_exp(d00_exp0,(((0.5*mg)*ln_qtt0)+(((0.5*vgbe0)/VT)*(qtt0-1))))
3310 #if defined(_DERIVATE)
3311 #define d10_exp0 d00_exp0
3312 #endif
3313 #if defined(_DERIVATE)
3314 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);
3315 #endif
3316 ireps_t=(ireps*d00_exp0);
3317 }
3318 {
3319 double m00_exp(d00_exp0,((zetabci*ln_qtt0)+((vgc/VT)*(qtt0-1))))
3320 #if defined(_DERIVATE)
3321 #define d10_exp0 d00_exp0
3322 #endif
3323 #if defined(_DERIVATE)
3324 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);
3325 #endif
3326 ibcis_t=(ibcis*d00_exp0);
3327 }
3328 {
3329 double m00_exp(d00_exp0,((zetabcxt*ln_qtt0)+((vgc/VT)*(qtt0-1))))
3330 #if defined(_DERIVATE)
3331 #define d10_exp0 d00_exp0
3332 #endif
3333 #if defined(_DERIVATE)
3334 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);
3335 #endif
3336 ibcxs_t=(ibcxs*d00_exp0);
3337 }
3338 {
3339 double m00_exp(d00_exp0,((zetasct*ln_qtt0)+((vgc/VT)*(qtt0-1))))
3340 #if defined(_DERIVATE)
3341 #define d10_exp0 d00_exp0
3342 #endif
3343 #if defined(_DERIVATE)
3344 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);
3345 #endif
3346 itss_t=(itss*d00_exp0);
3347 }
3348 {
3349 double m00_exp(d00_exp0,((zetasct*ln_qtt0)+((vgs/VT)*(qtt0-1))))
3350 #if defined(_DERIVATE)
3351 #define d10_exp0 d00_exp0
3352 #endif
3353 #if defined(_DERIVATE)
3354 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);
3355 #endif
3356 iscs_t=(iscs*d00_exp0);
3357 }
3358 {
3359 double m00_logE(d00_logE0,(vdei_t/vdei))
3360 double m00_exp(d00_exp1,(zei*d00_logE0))
3361 #if defined(_DERIVATE)
3362 double m10_logE(d10_logE0,d00_logE0,(vdei_t/vdei))
3363 #define d10_exp1 d00_exp1
3364 #endif
3365 #if defined(_DERIVATE)
3366 a_Vbi_ei=0.0;
3367 a_Vbi_ci=0.0;
3368 a_Vci_ei=0.0;
3369 a_Vtnode_GND=(zei*(vdei_t_Vtnode_GND/vdei)*d10_logE0)*d10_exp1;
3370 #endif
3371 a=d00_exp1;
3372 }
3373 #if defined(_DERIVATE)
3374 qp0_t_Vtnode_GND=(qp0*(-a_Vtnode_GND));
3375 #endif
3376 qp0_t=(qp0*(2.0-a));
3377 {
3378 double m00_exp(d00_exp0,((zetaci-avs)*ln_qtt0))
3379 #if defined(_DERIVATE)
3380 #define d10_exp0 d00_exp0
3381 #endif
3382 #if defined(_DERIVATE)
3383 vlim_t_Vtnode_GND=(vlim*((zetaci-avs)*ln_qtt0_Vtnode_GND)*d10_exp0);
3384 #endif
3385 vlim_t=(vlim*d00_exp0);
3386 }
3387 zetatef=((zetabet-zetact)-0.5);
3388 dvg0=(vgb-vge);
3389 {
3390 double m00_exp(d00_exp0,((zetatef*ln_qtt0)-((dvg0/VT)*(qtt0-1))))
3391 #if defined(_DERIVATE)
3392 #define d10_exp0 d00_exp0
3393 #endif
3394 #if defined(_DERIVATE)
3395 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);
3396 #endif
3397 tef0_t=(tef0*d00_exp0);
3398 }
3399 }
3400 {
3401 double m00_exp(d00_exp0,((zetact*ln_qtt0)+((vgb/VT)*(qtt0-1))))
3402 #if defined(_DERIVATE)
3403 #define d10_exp0 d00_exp0
3404 #endif
3405 #if defined(_DERIVATE)
3406 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);
3407 #endif
3408 c10_t=(c10*d00_exp0);
3409 }
3410 {
3411 double m00_exp(d00_exp0,(zetaci*ln_qtt0))
3412 #if defined(_DERIVATE)
3413 #define d10_exp0 d00_exp0
3414 #endif
3415 #if defined(_DERIVATE)
3416 rci0_t_Vtnode_GND=(rci0*(zetaci*ln_qtt0_Vtnode_GND)*d10_exp0);
3417 #endif
3418 rci0_t=(rci0*d00_exp0);
3419 }
3420 #if defined(_DERIVATE)
3421 vces_t_Vtnode_GND=(vces*(alces*dT_Vtnode_GND));
3422 #endif
3423 vces_t=(vces*(1+(alces*dT)));
3424 if
3425 ((cjci0>0.0))
3426 {
3427 {
3428 double m00_exp(d00_exp0,((vdci*0.5)/vt0))
3429 double m00_exp(d00_exp1,(((-0.5)*vdci)/vt0))
3430 double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
3431 vdj0=((2*vt0)*d00_logE2);
3432 }
3433 #if defined(_DERIVATE)
3434 vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgbc0*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
3435 #endif
3436 vdjt=(((vdj0*qtt0)+(vgbc0*(1-qtt0)))-((mg*VT)*ln_qtt0));
3437 {
3438 double m00_exp(d00_exp0,((-vdjt)/VT))
3439 double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
3440 double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
3441 #if defined(_DERIVATE)
3442 #define d10_exp0 d00_exp0
3443 double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
3444 double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
3445 #endif
3446 #if defined(_DERIVATE)
3447 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)));
3448 #endif
3449 vdt=(vdjt+((2*VT)*d00_logE2));
3450 }
3451 #if defined(_DERIVATE)
3452 vdci_t_Vtnode_GND=vdt_Vtnode_GND;
3453 #endif
3454 vdci_t=vdt;
3455 {
3456 double m00_logE(d00_logE0,(vdci/vdci_t))
3457 double m00_exp(d00_exp1,(zci*d00_logE0))
3458 #if defined(_DERIVATE)
3459 double m10_logE(d10_logE0,d00_logE0,(vdci/vdci_t))
3460 #define d10_exp1 d00_exp1
3461 #endif
3462 #if defined(_DERIVATE)
3463 cjci0_t_Vtnode_GND=(cjci0*(zci*(-vdci*vdci_t_Vtnode_GND/vdci_t/vdci_t)*d10_logE0)*d10_exp1);
3464 #endif
3465 cjci0_t=(cjci0*d00_exp1);
3466 }
3467 if
3468 ((0==1))
3469 {
3470 #if defined(_DERIVATE)
3471 vptci_t_Vtnode_GND=((vptci*vdci_t_Vtnode_GND)/vdci);
3472 #endif
3473 vptci_t=((vptci*vdci_t)/vdci);
3474 }
3475 else
3476 {
3477 #if defined(_DERIVATE)
3478 vptci_t_Vtnode_GND=0.0;
3479 #endif
3480 vptci_t=vptci;
3481 }
3482 }
3483 else
3484 {
3485 #if defined(_DERIVATE)
3486 cjci0_t_Vtnode_GND=0.0;
3487 #endif
3488 cjci0_t=cjci0;
3489 #if defined(_DERIVATE)
3490 vdci_t_Vtnode_GND=0.0;
3491 #endif
3492 vdci_t=vdci;
3493 #if defined(_DERIVATE)
3494 vptci_t_Vtnode_GND=0.0;
3495 #endif
3496 vptci_t=vptci;
3497 }
3498 #if defined(_DERIVATE)
3499 t0_t_Vtnode_GND=(t0*((alt0*dT_Vtnode_GND)+(((kt0*dT_Vtnode_GND)*dT)+((kt0*dT)*dT_Vtnode_GND))));
3500 #endif
3501 t0_t=(t0*((1+(alt0*dT))+((kt0*dT)*dT)));
3502 {
3503 double m00_exp(d00_exp0,((zetaci-1)*ln_qtt0))
3504 #if defined(_DERIVATE)
3505 #define d10_exp0 d00_exp0
3506 #endif
3507 #if defined(_DERIVATE)
3508 thcs_t_Vtnode_GND=(thcs*((zetaci-1)*ln_qtt0_Vtnode_GND)*d10_exp0);
3509 #endif
3510 thcs_t=(thcs*d00_exp0);
3511 }
3512 {
3513 double m00_exp(d00_exp0,(alfav*dT))
3514 #if defined(_DERIVATE)
3515 #define d10_exp0 d00_exp0
3516 #endif
3517 #if defined(_DERIVATE)
3518 favl_t_Vtnode_GND=(favl*(alfav*dT_Vtnode_GND)*d10_exp0);
3519 #endif
3520 favl_t=(favl*d00_exp0);
3521 }
3522 {
3523 double m00_exp(d00_exp0,(alqav*dT))
3524 #if defined(_DERIVATE)
3525 #define d10_exp0 d00_exp0
3526 #endif
3527 #if defined(_DERIVATE)
3528 qavl_t_Vtnode_GND=(qavl*(alqav*dT_Vtnode_GND)*d10_exp0);
3529 #endif
3530 qavl_t=(qavl*d00_exp0);
3531 }
3532 {
3533 double m00_exp(d00_exp0,(zetarbi*ln_qtt0))
3534 #if defined(_DERIVATE)
3535 #define d10_exp0 d00_exp0
3536 #endif
3537 #if defined(_DERIVATE)
3538 rbi0_t_Vtnode_GND=(rbi0*(zetarbi*ln_qtt0_Vtnode_GND)*d10_exp0);
3539 #endif
3540 rbi0_t=(rbi0*d00_exp0);
3541 }
3542 if
3543 ((cjep0>0.0))
3544 {
3545 {
3546 double m00_exp(d00_exp0,((vdep*0.5)/vt0))
3547 double m00_exp(d00_exp1,(((-0.5)*vdep)/vt0))
3548 double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
3549 vdj0=((2*vt0)*d00_logE2);
3550 }
3551 #if defined(_DERIVATE)
3552 vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgbe0*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
3553 #endif
3554 vdjt=(((vdj0*qtt0)+(vgbe0*(1-qtt0)))-((mg*VT)*ln_qtt0));
3555 {
3556 double m00_exp(d00_exp0,((-vdjt)/VT))
3557 double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
3558 double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
3559 #if defined(_DERIVATE)
3560 #define d10_exp0 d00_exp0
3561 double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
3562 double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
3563 #endif
3564 #if defined(_DERIVATE)
3565 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)));
3566 #endif
3567 vdt=(vdjt+((2*VT)*d00_logE2));
3568 }
3569 #if defined(_DERIVATE)
3570 vdep_t_Vtnode_GND=vdt_Vtnode_GND;
3571 #endif
3572 vdep_t=vdt;
3573 {
3574 double m00_logE(d00_logE0,(vdep/vdep_t))
3575 double m00_exp(d00_exp1,(zep*d00_logE0))
3576 #if defined(_DERIVATE)
3577 double m10_logE(d10_logE0,d00_logE0,(vdep/vdep_t))
3578 #define d10_exp1 d00_exp1
3579 #endif
3580 #if defined(_DERIVATE)
3581 cjep0_t_Vtnode_GND=(cjep0*(zep*(-vdep*vdep_t_Vtnode_GND/vdep_t/vdep_t)*d10_logE0)*d10_exp1);
3582 #endif
3583 cjep0_t=(cjep0*d00_exp1);
3584 }
3585 if
3586 ((1==1))
3587 {
3588 #if defined(_DERIVATE)
3589 ajep_t_Vtnode_GND=((ajep*vdep_t_Vtnode_GND)/vdep);
3590 #endif
3591 ajep_t=((ajep*vdep_t)/vdep);
3592 }
3593 else
3594 {
3595 #if defined(_DERIVATE)
3596 ajep_t_Vtnode_GND=0.0;
3597 #endif
3598 ajep_t=ajep;
3599 }
3600 }
3601 else
3602 {
3603 #if defined(_DERIVATE)
3604 cjep0_t_Vtnode_GND=0.0;
3605 #endif
3606 cjep0_t=cjep0;
3607 #if defined(_DERIVATE)
3608 vdep_t_Vtnode_GND=0.0;
3609 #endif
3610 vdep_t=vdep;
3611 #if defined(_DERIVATE)
3612 ajep_t_Vtnode_GND=0.0;
3613 #endif
3614 ajep_t=ajep;
3615 }
3616 if
3617 (((BP(bp,ei)<0.0)||(BP(bi,ei)<0.0)))
3618 {
3619 double a_eg;
3620 double ab;
3621 double aa;
3622 #if defined(_DERIVATE)
3623 double a_eg_Vtnode_GND;
3624 #endif
3625 #if defined(_DERIVATE)
3626 double ab_Vtnode_GND;
3627 #endif
3628 #if defined(_DERIVATE)
3629 double aa_Vtnode_GND;
3630 #endif
3631 #if defined(_DERIVATE)
3632 ab_Vtnode_GND=0.0;
3633 #endif
3634 ab=1.0;
3635 #if defined(_DERIVATE)
3636 aa_Vtnode_GND=0.0;
3637 #endif
3638 aa=1.0;
3639 #if defined(_DERIVATE)
3640 a_eg_Vtnode_GND=(-vgbe_t0*vgbe_t_Vtnode_GND/vgbe_t/vgbe_t);
3641 #endif
3642 a_eg=(vgbe_t0/vgbe_t);
3643 if
3644 ((((tunode==1)&&(cjep0>0.0))&&(vdep>0.0)))
3645 {
3646 {
3647 double m00_sqrt(d00_sqrt0,a_eg)
3648 #if defined(_DERIVATE)
3649 double m10_sqrt(d10_sqrt0,d00_sqrt0,a_eg)
3650 #endif
3651 #if defined(_DERIVATE)
3652 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));
3653 #endif
3654 ab=(((((cjep0_t/cjep0)*d00_sqrt0)*vdep_t)*vdep_t)/(vdep*vdep));
3655 }
3656 {
3657 double m00_pow(d00_pow0,a_eg,(-1.5))
3658 #if defined(_DERIVATE)
3659 double m10_pow(d10_pow0,d00_pow0,a_eg,(-1.5))
3660 #endif
3661 #if defined(_DERIVATE)
3662 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)));
3663 #endif
3664 aa=(((vdep/vdep_t)*(cjep0/cjep0_t))*d00_pow0);
3665 }
3666 }
3667 else
3668 {
3669 if
3670 ((((tunode==0)&&(cjei0>0.0))&&(vdei>0.0)))
3671 {
3672 {
3673 double m00_sqrt(d00_sqrt0,a_eg)
3674 #if defined(_DERIVATE)
3675 double m10_sqrt(d10_sqrt0,d00_sqrt0,a_eg)
3676 #endif
3677 #if defined(_DERIVATE)
3678 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));
3679 #endif
3680 ab=(((((cjei0_t/cjei0)*d00_sqrt0)*vdei_t)*vdei_t)/(vdei*vdei));
3681 }
3682 {
3683 double m00_pow(d00_pow0,a_eg,(-1.5))
3684 #if defined(_DERIVATE)
3685 double m10_pow(d10_pow0,d00_pow0,a_eg,(-1.5))
3686 #endif
3687 #if defined(_DERIVATE)
3688 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)));
3689 #endif
3690 aa=(((vdei/vdei_t)*(cjei0/cjei0_t))*d00_pow0);
3691 }
3692 }
3693 }
3694 #if defined(_DERIVATE)
3695 ibets_t_Vtnode_GND=(ibets*ab_Vtnode_GND);
3696 #endif
3697 ibets_t=(ibets*ab);
3698 #if defined(_DERIVATE)
3699 abet_t_Vtnode_GND=(abet*aa_Vtnode_GND);
3700 #endif
3701 abet_t=(abet*aa);
3702 }
3703 #ifdef _DYNAMIC
3704 if
3705 ((1.0>0.0))
3706 {
3707 #if defined(_DYNAMIC)
3708 {
3709 double m00_exp(d00_exp0,((vdcx*0.5)/vt0))
3710 double m00_exp(d00_exp1,(((-0.5)*vdcx)/vt0))
3711 double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
3712 vdj0=((2*vt0)*d00_logE2);
3713 }
3714 #endif
3715 #if defined(_DYNAMIC)
3716 #if defined(_DERIVATE)
3717 vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgbc0*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
3718 #endif
3719 vdjt=(((vdj0*qtt0)+(vgbc0*(1-qtt0)))-((mg*VT)*ln_qtt0));
3720 #endif
3721 #if defined(_DYNAMIC)
3722 {
3723 double m00_exp(d00_exp0,((-vdjt)/VT))
3724 double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
3725 double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
3726 #if defined(_DERIVATE)
3727 #define d10_exp0 d00_exp0
3728 double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
3729 double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
3730 #endif
3731 #if defined(_DERIVATE)
3732 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)));
3733 #endif
3734 vdt=(vdjt+((2*VT)*d00_logE2));
3735 }
3736 #endif
3737 #if defined(_DYNAMIC)
3738 #if defined(_DERIVATE)
3739 vdcx_t_Vtnode_GND=vdt_Vtnode_GND;
3740 #endif
3741 vdcx_t=vdt;
3742 #endif
3743 #if defined(_DYNAMIC)
3744 {
3745 double m00_logE(d00_logE0,(vdcx/vdcx_t))
3746 double m00_exp(d00_exp1,(zcx*d00_logE0))
3747 #if defined(_DERIVATE)
3748 double m10_logE(d10_logE0,d00_logE0,(vdcx/vdcx_t))
3749 #define d10_exp1 d00_exp1
3750 #endif
3751 #if defined(_DERIVATE)
3752 cratio_t_Vtnode_GND=(1.0*(zcx*(-vdcx*vdcx_t_Vtnode_GND/vdcx_t/vdcx_t)*d10_logE0)*d10_exp1);
3753 #endif
3754 cratio_t=(1.0*d00_exp1);
3755 }
3756 #endif
3757 #ifdef _DYNAMIC
3758 if
3759 ((0==1))
3760 {
3761 #if defined(_DYNAMIC)
3762 #if defined(_DERIVATE)
3763 vptcx_t_Vtnode_GND=((vptcx*vdcx_t_Vtnode_GND)/vdcx);
3764 #endif
3765 vptcx_t=((vptcx*vdcx_t)/vdcx);
3766 #endif
3767 }
3768 else
3769 {
3770 #if defined(_DYNAMIC)
3771 #if defined(_DERIVATE)
3772 vptcx_t_Vtnode_GND=0.0;
3773 #endif
3774 vptcx_t=vptcx;
3775 #endif
3776 }
3777 #endif /* if (...) */
3778 }
3779 else
3780 {
3781 #if defined(_DYNAMIC)
3782 #if defined(_DERIVATE)
3783 cratio_t_Vtnode_GND=0.0;
3784 #endif
3785 cratio_t=1.0;
3786 #endif
3787 #if defined(_DYNAMIC)
3788 #if defined(_DERIVATE)
3789 vdcx_t_Vtnode_GND=0.0;
3790 #endif
3791 vdcx_t=vdcx;
3792 #endif
3793 #if defined(_DYNAMIC)
3794 #if defined(_DERIVATE)
3795 vptcx_t_Vtnode_GND=0.0;
3796 #endif
3797 vptcx_t=vptcx;
3798 #endif
3799 }
3800 #endif /* if (...) */
3801 #if defined(_DYNAMIC)
3802 #if defined(_DERIVATE)
3803 cjcx01_t_Vtnode_GND=cratio_t_Vtnode_GND*cjcx01;
3804 #endif
3805 cjcx01_t=(cratio_t*cjcx01);
3806 #endif
3807 #if defined(_DYNAMIC)
3808 #if defined(_DERIVATE)
3809 cjcx02_t_Vtnode_GND=cratio_t_Vtnode_GND*cjcx02;
3810 #endif
3811 cjcx02_t=(cratio_t*cjcx02);
3812 #endif
3813 {
3814 double m00_exp(d00_exp0,(zetarcx*ln_qtt0))
3815 #if defined(_DERIVATE)
3816 #define d10_exp0 d00_exp0
3817 #endif
3818 #if defined(_DERIVATE)
3819 rcx_t_Vtnode_GND=(rcx*(zetarcx*ln_qtt0_Vtnode_GND)*d10_exp0);
3820 #endif
3821 rcx_t=(rcx*d00_exp0);
3822 }
3823 {
3824 double m00_exp(d00_exp0,(zetarbx*ln_qtt0))
3825 #if defined(_DERIVATE)
3826 #define d10_exp0 d00_exp0
3827 #endif
3828 #if defined(_DERIVATE)
3829 rbx_t_Vtnode_GND=(rbx*(zetarbx*ln_qtt0_Vtnode_GND)*d10_exp0);
3830 #endif
3831 rbx_t=(rbx*d00_exp0);
3832 }
3833 {
3834 double m00_exp(d00_exp0,(zetare*ln_qtt0))
3835 #if defined(_DERIVATE)
3836 #define d10_exp0 d00_exp0
3837 #endif
3838 #if defined(_DERIVATE)
3839 re_t_Vtnode_GND=(re*(zetare*ln_qtt0_Vtnode_GND)*d10_exp0);
3840 #endif
3841 re_t=(re*d00_exp0);
3842 }
3843 #if defined(_DYNAMIC)
3844 {
3845 double m00_exp(d00_exp0,((zetacx-1.0)*ln_qtt0))
3846 #if defined(_DERIVATE)
3847 #define d10_exp0 d00_exp0
3848 #endif
3849 #if defined(_DERIVATE)
3850 tsf_t_Vtnode_GND=(tsf*((zetacx-1.0)*ln_qtt0_Vtnode_GND)*d10_exp0);
3851 #endif
3852 tsf_t=(tsf*d00_exp0);
3853 }
3854 #endif
3855 #ifdef _DYNAMIC
3856 if
3857 ((cjs0>0.0))
3858 {
3859 #if defined(_DYNAMIC)
3860 {
3861 double m00_exp(d00_exp0,((vds*0.5)/vt0))
3862 double m00_exp(d00_exp1,(((-0.5)*vds)/vt0))
3863 double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
3864 vdj0=((2*vt0)*d00_logE2);
3865 }
3866 #endif
3867 #if defined(_DYNAMIC)
3868 #if defined(_DERIVATE)
3869 vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgsc0*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
3870 #endif
3871 vdjt=(((vdj0*qtt0)+(vgsc0*(1-qtt0)))-((mg*VT)*ln_qtt0));
3872 #endif
3873 #if defined(_DYNAMIC)
3874 {
3875 double m00_exp(d00_exp0,((-vdjt)/VT))
3876 double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
3877 double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
3878 #if defined(_DERIVATE)
3879 #define d10_exp0 d00_exp0
3880 double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
3881 double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
3882 #endif
3883 #if defined(_DERIVATE)
3884 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)));
3885 #endif
3886 vdt=(vdjt+((2*VT)*d00_logE2));
3887 }
3888 #endif
3889 #if defined(_DYNAMIC)
3890 #if defined(_DERIVATE)
3891 vds_t_Vtnode_GND=vdt_Vtnode_GND;
3892 #endif
3893 vds_t=vdt;
3894 #endif
3895 #if defined(_DYNAMIC)
3896 {
3897 double m00_logE(d00_logE0,(vds/vds_t))
3898 double m00_exp(d00_exp1,(zs*d00_logE0))
3899 #if defined(_DERIVATE)
3900 double m10_logE(d10_logE0,d00_logE0,(vds/vds_t))
3901 #define d10_exp1 d00_exp1
3902 #endif
3903 #if defined(_DERIVATE)
3904 cjs0_t_Vtnode_GND=(cjs0*(zs*(-vds*vds_t_Vtnode_GND/vds_t/vds_t)*d10_logE0)*d10_exp1);
3905 #endif
3906 cjs0_t=(cjs0*d00_exp1);
3907 }
3908 #endif
3909 #ifdef _DYNAMIC
3910 if
3911 ((0==1))
3912 {
3913 #if defined(_DYNAMIC)
3914 #if defined(_DERIVATE)
3915 vpts_t_Vtnode_GND=((vpts*vds_t_Vtnode_GND)/vds);
3916 #endif
3917 vpts_t=((vpts*vds_t)/vds);
3918 #endif
3919 }
3920 else
3921 {
3922 #if defined(_DYNAMIC)
3923 #if defined(_DERIVATE)
3924 vpts_t_Vtnode_GND=0.0;
3925 #endif
3926 vpts_t=vpts;
3927 #endif
3928 }
3929 #endif /* if (...) */
3930 }
3931 else
3932 {
3933 #if defined(_DYNAMIC)
3934 #if defined(_DERIVATE)
3935 cjs0_t_Vtnode_GND=0.0;
3936 #endif
3937 cjs0_t=cjs0;
3938 #endif
3939 #if defined(_DYNAMIC)
3940 #if defined(_DERIVATE)
3941 vds_t_Vtnode_GND=0.0;
3942 #endif
3943 vds_t=vds;
3944 #endif
3945 #if defined(_DYNAMIC)
3946 #if defined(_DERIVATE)
3947 vpts_t_Vtnode_GND=0.0;
3948 #endif
3949 vpts_t=vpts;
3950 #endif
3951 }
3952 #endif /* if (...) */
3953 }
3954 {
3955 #if defined(_DERIVATE)
3956 DIOY_Vsi_ci=0.0;
3957 DIOY_Vbp_ci=0.0;
3958 DIOY_Vbp_ei=0.0;
3959 DIOY_Vbi_ci=0.0;
3960 DIOY_Vbi_ei=(1/(mbei*VT));
3961 DIOY_Vtnode_GND=(-BP(bi,ei)*(mbei*VT_Vtnode_GND)/(mbei*VT)/(mbei*VT));
3962 #endif
3963 DIOY=(BP(bi,ei)/(mbei*VT));
3964 if
3965 ((ibeis>0.0))
3966 {
3967 if
3968 ((DIOY>80.0))
3969 {
3970 #if defined(_DERIVATE)
3971 le_Vsi_ci=0.0;
3972 le_Vbp_ci=0.0;
3973 le_Vbp_ei=0.0;
3974 le_Vbi_ci=0.0;
3975 le_Vbi_ei=DIOY_Vbi_ei;
3976 le_Vtnode_GND=DIOY_Vtnode_GND;
3977 #endif
3978 le=(1+(DIOY-80.0));
3979 #if defined(_DERIVATE)
3980 DIOY_Vsi_ci=0.0;
3981 DIOY_Vbp_ci=0.0;
3982 DIOY_Vbp_ei=0.0;
3983 DIOY_Vbi_ci=0.0;
3984 DIOY_Vbi_ei=0.0;
3985 DIOY_Vtnode_GND=0.0;
3986 #endif
3987 DIOY=80.0;
3988 }
3989 else
3990 {
3991 #if defined(_DERIVATE)
3992 le_Vsi_ci=0.0;
3993 le_Vbp_ci=0.0;
3994 le_Vbp_ei=0.0;
3995 le_Vbi_ci=0.0;
3996 le_Vbi_ei=0.0;
3997 le_Vtnode_GND=0.0;
3998 #endif
3999 le=1;
4000 }
4001 {
4002 double m00_limexp(d00_limexp0,DIOY)
4003 #if defined(_DERIVATE)
4004 double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
4005 #endif
4006 #if defined(_DERIVATE)
4007 le_Vsi_ci=0.0;
4008 le_Vbp_ci=0.0;
4009 le_Vbp_ei=0.0;
4010 le_Vbi_ci=0.0;
4011 le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
4012 le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
4013 #endif
4014 le=(le*d00_limexp0);
4015 }
4016 #if defined(_DERIVATE)
4017 ibei_Vtnode_GND=((ibeis_t_Vtnode_GND*(le-1.0))+(ibeis_t*le_Vtnode_GND));
4018 ibei_Vbi_ei=(ibeis_t*le_Vbi_ei);
4019 #endif
4020 ibei=(ibeis_t*(le-1.0));
4021 if
4022 ((DIOY<=(-14.0)))
4023 {
4024 #if defined(_DERIVATE)
4025 ibei_Vtnode_GND=(-ibeis_t_Vtnode_GND);
4026 ibei_Vbi_ei=0.0;
4027 #endif
4028 ibei=(-ibeis_t);
4029 }
4030 }
4031 else
4032 {
4033 #if defined(_DERIVATE)
4034 ibei_Vtnode_GND=0.0;
4035 ibei_Vbi_ei=0.0;
4036 #endif
4037 ibei=0.0;
4038 }
4039 #if defined(_DERIVATE)
4040 DIOY_Vsi_ci=0.0;
4041 DIOY_Vbp_ci=0.0;
4042 DIOY_Vbp_ei=0.0;
4043 DIOY_Vbi_ci=0.0;
4044 DIOY_Vbi_ei=(1/(mrei*VT));
4045 DIOY_Vtnode_GND=(-BP(bi,ei)*(mrei*VT_Vtnode_GND)/(mrei*VT)/(mrei*VT));
4046 #endif
4047 DIOY=(BP(bi,ei)/(mrei*VT));
4048 if
4049 ((ireis>0.0))
4050 {
4051 if
4052 ((DIOY>80.0))
4053 {
4054 #if defined(_DERIVATE)
4055 le_Vsi_ci=0.0;
4056 le_Vbp_ci=0.0;
4057 le_Vbp_ei=0.0;
4058 le_Vbi_ci=0.0;
4059 le_Vbi_ei=DIOY_Vbi_ei;
4060 le_Vtnode_GND=DIOY_Vtnode_GND;
4061 #endif
4062 le=(1+(DIOY-80.0));
4063 #if defined(_DERIVATE)
4064 DIOY_Vsi_ci=0.0;
4065 DIOY_Vbp_ci=0.0;
4066 DIOY_Vbp_ei=0.0;
4067 DIOY_Vbi_ci=0.0;
4068 DIOY_Vbi_ei=0.0;
4069 DIOY_Vtnode_GND=0.0;
4070 #endif
4071 DIOY=80.0;
4072 }
4073 else
4074 {
4075 #if defined(_DERIVATE)
4076 le_Vsi_ci=0.0;
4077 le_Vbp_ci=0.0;
4078 le_Vbp_ei=0.0;
4079 le_Vbi_ci=0.0;
4080 le_Vbi_ei=0.0;
4081 le_Vtnode_GND=0.0;
4082 #endif
4083 le=1;
4084 }
4085 {
4086 double m00_limexp(d00_limexp0,DIOY)
4087 #if defined(_DERIVATE)
4088 double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
4089 #endif
4090 #if defined(_DERIVATE)
4091 le_Vsi_ci=0.0;
4092 le_Vbp_ci=0.0;
4093 le_Vbp_ei=0.0;
4094 le_Vbi_ci=0.0;
4095 le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
4096 le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
4097 #endif
4098 le=(le*d00_limexp0);
4099 }
4100 #if defined(_DERIVATE)
4101 irei_Vtnode_GND=((ireis_t_Vtnode_GND*(le-1.0))+(ireis_t*le_Vtnode_GND));
4102 irei_Vbi_ei=(ireis_t*le_Vbi_ei);
4103 #endif
4104 irei=(ireis_t*(le-1.0));
4105 if
4106 ((DIOY<=(-14.0)))
4107 {
4108 #if defined(_DERIVATE)
4109 irei_Vtnode_GND=(-ireis_t_Vtnode_GND);
4110 irei_Vbi_ei=0.0;
4111 #endif
4112 irei=(-ireis_t);
4113 }
4114 }
4115 else
4116 {
4117 #if defined(_DERIVATE)
4118 irei_Vtnode_GND=0.0;
4119 irei_Vbi_ei=0.0;
4120 #endif
4121 irei=0.0;
4122 }
4123 #if defined(_DERIVATE)
4124 Orci0_t_Vtnode_GND=(-rci0_t_Vtnode_GND/rci0_t/rci0_t);
4125 #endif
4126 Orci0_t=(1.0/rci0_t);
4127 Tr=tr;
4128 #if defined(_DERIVATE)
4129 VT_f_Vtnode_GND=(mcf*VT_Vtnode_GND);
4130 #endif
4131 VT_f=(mcf*VT);
4132 {
4133 double m00_limexp(d00_limexp0,(BP(bi,ei)/VT_f))
4134 #if defined(_DERIVATE)
4135 double m10_limexp(d10_limexp0,d00_limexp0,(BP(bi,ei)/VT_f))
4136 #endif
4137 #if defined(_DERIVATE)
4138 i_0f_Vtnode_GND=((c10_t_Vtnode_GND*d00_limexp0)+(c10_t*(-BP(bi,ei)*VT_f_Vtnode_GND/VT_f/VT_f)*d10_limexp0));
4139 i_0f_Vbi_ei=(c10_t*(1/VT_f)*d10_limexp0);
4140 #endif
4141 i_0f=(c10_t*d00_limexp0);
4142 }
4143 {
4144 double m00_limexp(d00_limexp0,(BP(bi,ci)/VT))
4145 #if defined(_DERIVATE)
4146 double m10_limexp(d10_limexp0,d00_limexp0,(BP(bi,ci)/VT))
4147 #endif
4148 #if defined(_DERIVATE)
4149 i_0r_Vtnode_GND=((c10_t_Vtnode_GND*d00_limexp0)+(c10_t*(-BP(bi,ci)*VT_Vtnode_GND/VT/VT)*d10_limexp0));
4150 i_0r_Vbi_ci=(c10_t*(1/VT)*d10_limexp0);
4151 #endif
4152 i_0r=(c10_t*d00_limexp0);
4153 }
4154 if
4155 ((cjei0_t>0.0))
4156 {
4157 {
4158 double m00_logE(d00_logE0,ajei_t)
4159 double m00_exp(d00_exp1,((-d00_logE0)/zei))
4160 #if defined(_DERIVATE)
4161 double m10_logE(d10_logE0,d00_logE0,ajei_t)
4162 #define d10_exp1 d00_exp1
4163 #endif
4164 #if defined(_DERIVATE)
4165 DFV_f_Vtnode_GND=((vdei_t_Vtnode_GND*(1.0-d00_exp1))+(vdei_t*(-((-ajei_t_Vtnode_GND*d10_logE0)/zei)*d10_exp1)));
4166 #endif
4167 DFV_f=(vdei_t*(1.0-d00_exp1));
4168 }
4169 #if defined(_DERIVATE)
4170 DFv_e_Vsi_ci=0.0;
4171 DFv_e_Vb_ci=0.0;
4172 DFv_e_Vbp_ci=0.0;
4173 DFv_e_Vbp_ei=0.0;
4174 DFv_e_Vbi_ci=0.0;
4175 DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(bi,ei))*VT_Vtnode_GND)/VT/VT);
4176 DFv_e_Vbi_ei=((-1.0)/VT);
4177 #endif
4178 DFv_e=((DFV_f-BP(bi,ei))/VT);
4179 {
4180 double m00_sqrt(d00_sqrt0,((DFv_e*DFv_e)+1.921812))
4181 #if defined(_DERIVATE)
4182 double m10_sqrt(d10_sqrt0,d00_sqrt0,((DFv_e*DFv_e)+1.921812))
4183 #endif
4184 #if defined(_DERIVATE)
4185 DFs_q_Vsi_ci=0.0;
4186 DFs_q_Vb_ci=0.0;
4187 DFs_q_Vbp_ci=0.0;
4188 DFs_q_Vbp_ei=0.0;
4189 DFs_q_Vbi_ci=0.0;
4190 DFs_q_Vtnode_GND=((DFv_e_Vtnode_GND*DFv_e)+(DFv_e*DFv_e_Vtnode_GND))*d10_sqrt0;
4191 DFs_q_Vbi_ei=((DFv_e_Vbi_ei*DFv_e)+(DFv_e*DFv_e_Vbi_ei))*d10_sqrt0;
4192 #endif
4193 DFs_q=d00_sqrt0;
4194 }
4195 #if defined(_DERIVATE)
4196 DFs_q2_Vsi_ci=0.0;
4197 DFs_q2_Vb_ci=0.0;
4198 DFs_q2_Vbp_ci=0.0;
4199 DFs_q2_Vbp_ei=0.0;
4200 DFs_q2_Vbi_ci=0.0;
4201 DFs_q2_Vtnode_GND=(DFv_e_Vtnode_GND+DFs_q_Vtnode_GND)*0.5;
4202 DFs_q2_Vbi_ei=(DFv_e_Vbi_ei+DFs_q_Vbi_ei)*0.5;
4203 #endif
4204 DFs_q2=((DFv_e+DFs_q)*0.5);
4205 #if defined(_DERIVATE)
4206 DFv_j_Vsi_ci=0.0;
4207 DFv_j_Vb_ci=0.0;
4208 DFv_j_Vbp_ci=0.0;
4209 DFv_j_Vbp_ei=0.0;
4210 DFv_j_Vbi_ci=0.0;
4211 DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*DFs_q2)+(VT*DFs_q2_Vtnode_GND)));
4212 DFv_j_Vbi_ei=(-(VT*DFs_q2_Vbi_ei));
4213 #endif
4214 DFv_j=(DFV_f-(VT*DFs_q2));
4215 #if defined(_DERIVATE)
4216 DFdvj_dv_Vsi_ci=0.0;
4217 DFdvj_dv_Vb_ci=0.0;
4218 DFdvj_dv_Vbp_ci=0.0;
4219 DFdvj_dv_Vbp_ei=0.0;
4220 DFdvj_dv_Vbi_ci=0.0;
4221 DFdvj_dv_Vtnode_GND=((DFs_q2_Vtnode_GND*DFs_q-DFs_q2*DFs_q_Vtnode_GND)/DFs_q/DFs_q);
4222 DFdvj_dv_Vbi_ei=((DFs_q2_Vbi_ei*DFs_q-DFs_q2*DFs_q_Vbi_ei)/DFs_q/DFs_q);
4223 #endif
4224 DFdvj_dv=(DFs_q2/DFs_q);
4225 {
4226 double m00_logE(d00_logE0,(1.0-(DFv_j/vdei_t)))
4227 #if defined(_DERIVATE)
4228 double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdei_t)))
4229 #endif
4230 #if defined(_DERIVATE)
4231 DFb_Vsi_ci=0.0;
4232 DFb_Vb_ci=0.0;
4233 DFb_Vbp_ci=0.0;
4234 DFb_Vbp_ei=0.0;
4235 DFb_Vbi_ci=0.0;
4236 DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdei_t-DFv_j*vdei_t_Vtnode_GND)/vdei_t/vdei_t))*d10_logE0;
4237 DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdei_t))*d10_logE0;
4238 #endif
4239 DFb=d00_logE0;
4240 }
4241 {
4242 double m00_exp(d00_exp0,((-zei)*DFb))
4243 #if defined(_DERIVATE)
4244 #define d10_exp0 d00_exp0
4245 #endif
4246 #if defined(_DERIVATE)
4247 DFC_j1_Vsi_ci=0.0;
4248 DFC_j1_Vb_ci=0.0;
4249 DFC_j1_Vbp_ci=0.0;
4250 DFC_j1_Vbp_ei=0.0;
4251 DFC_j1_Vbi_ci=0.0;
4252 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));
4253 DFC_j1_Vbi_ei=(((cjei0_t*((-zei)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjei0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
4254 #endif
4255 DFC_j1=((cjei0_t*d00_exp0)*DFdvj_dv);
4256 }
4257 #if defined(_DERIVATE)
4258 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))));
4259 Cjei_Vbi_ei=(DFC_j1_Vbi_ei+((ajei_t*cjei0_t)*(-DFdvj_dv_Vbi_ei)));
4260 #endif
4261 Cjei=(DFC_j1+((ajei_t*cjei0_t)*(1.0-DFdvj_dv)));
4262 {
4263 double m00_exp(d00_exp0,(DFb*(1.0-zei)))
4264 #if defined(_DERIVATE)
4265 #define d10_exp0 d00_exp0
4266 #endif
4267 #if defined(_DERIVATE)
4268 DFQ_j_Vsi_ci=0.0;
4269 DFQ_j_Vb_ci=0.0;
4270 DFQ_j_Vbp_ci=0.0;
4271 DFQ_j_Vbp_ei=0.0;
4272 DFQ_j_Vbi_ci=0.0;
4273 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));
4274 DFQ_j_Vbi_ei=(((cjei0_t*vdei_t)*(-DFb_Vbi_ei*(1.0-zei)*d10_exp0))/(1.0-zei));
4275 #endif
4276 DFQ_j=(((cjei0_t*vdei_t)*(1.0-d00_exp0))/(1.0-zei));
4277 }
4278 #if defined(_DERIVATE)
4279 Qjei_Vtnode_GND=(DFQ_j_Vtnode_GND+((((ajei_t_Vtnode_GND*cjei0_t)+(ajei_t*cjei0_t_Vtnode_GND))*(BP(bi,ei)-DFv_j))+((ajei_t*cjei0_t)*(-DFv_j_Vtnode_GND))));
4280 Qjei_Vbi_ei=(DFQ_j_Vbi_ei+((ajei_t*cjei0_t)*(1.0-DFv_j_Vbi_ei)));
4281 #endif
4282 Qjei=(DFQ_j+((ajei_t*cjei0_t)*(BP(bi,ei)-DFv_j)));
4283 }
4284 else
4285 {
4286 #if defined(_DERIVATE)
4287 Cjei_Vtnode_GND=0.0;
4288 Cjei_Vbi_ei=0.0;
4289 #endif
4290 Cjei=0.0;
4291 #if defined(_DERIVATE)
4292 Qjei_Vtnode_GND=0.0;
4293 Qjei_Vbi_ei=0.0;
4294 #endif
4295 Qjei=0.0;
4296 }
4297 if
4298 ((vptci_t<1.0e2))
4299 {
4300 if
4301 ((cjci0_t>0.0))
4302 {
4303 Dz_r=(zci/4.0);
4304 #if defined(_DERIVATE)
4305 Dv_p_Vtnode_GND=(vptci_t_Vtnode_GND-vdci_t_Vtnode_GND);
4306 #endif
4307 Dv_p=(vptci_t-vdci_t);
4308 {
4309 double m00_logE(d00_logE0,2.4)
4310 double m00_exp(d00_exp1,((-d00_logE0)/zci))
4311 #if defined(_DERIVATE)
4312 DV_f_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
4313 #endif
4314 DV_f=(vdci_t*(1.0-d00_exp1));
4315 }
4316 #if defined(_DERIVATE)
4317 DC_max_Vtnode_GND=(2.4*cjci0_t_Vtnode_GND);
4318 #endif
4319 DC_max=(2.4*cjci0_t);
4320 {
4321 double m00_logE(d00_logE0,(vptci_t/vdci_t))
4322 double m00_exp(d00_exp1,((Dz_r-zci)*d00_logE0))
4323 #if defined(_DERIVATE)
4324 double m10_logE(d10_logE0,d00_logE0,(vptci_t/vdci_t))
4325 #define d10_exp1 d00_exp1
4326 #endif
4327 #if defined(_DERIVATE)
4328 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));
4329 #endif
4330 DC_c=(cjci0_t*d00_exp1);
4331 }
4332 #if defined(_DERIVATE)
4333 Dv_e_Vsi_ci=0.0;
4334 Dv_e_Vb_ci=0.0;
4335 Dv_e_Vbp_ci=0.0;
4336 Dv_e_Vtnode_GND=((DV_f_Vtnode_GND*VT-(DV_f-BP(bi,ci))*VT_Vtnode_GND)/VT/VT);
4337 Dv_e_Vbi_ci=((-1.0)/VT);
4338 #endif
4339 Dv_e=((DV_f-BP(bi,ci))/VT);
4340 if
4341 ((Dv_e<80.0))
4342 {
4343 {
4344 double m00_exp(d00_exp0,Dv_e)
4345 #if defined(_DERIVATE)
4346 #define d10_exp0 d00_exp0
4347 #endif
4348 #if defined(_DERIVATE)
4349 De_Vsi_ci=0.0;
4350 De_Vb_ci=0.0;
4351 De_Vbp_ci=0.0;
4352 De_Vtnode_GND=Dv_e_Vtnode_GND*d10_exp0;
4353 De_Vbi_ci=Dv_e_Vbi_ci*d10_exp0;
4354 #endif
4355 De=d00_exp0;
4356 }
4357 #if defined(_DERIVATE)
4358 De_1_Vsi_ci=0.0;
4359 De_1_Vb_ci=0.0;
4360 De_1_Vbp_ci=0.0;
4361 De_1_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
4362 De_1_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
4363 #endif
4364 De_1=(De/(1.0+De));
4365 {
4366 double m00_logE(d00_logE0,(1.0+De))
4367 #if defined(_DERIVATE)
4368 double m10_logE(d10_logE0,d00_logE0,(1.0+De))
4369 #endif
4370 #if defined(_DERIVATE)
4371 Dv_j1_Vsi_ci=0.0;
4372 Dv_j1_Vb_ci=0.0;
4373 Dv_j1_Vbp_ci=0.0;
4374 Dv_j1_Vtnode_GND=(DV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*De_Vtnode_GND*d10_logE0)));
4375 Dv_j1_Vbi_ci=(-(VT*De_Vbi_ci*d10_logE0));
4376 #endif
4377 Dv_j1=(DV_f-(VT*d00_logE0));
4378 }
4379 }
4380 else
4381 {
4382 #if defined(_DERIVATE)
4383 De_1_Vsi_ci=0.0;
4384 De_1_Vb_ci=0.0;
4385 De_1_Vbp_ci=0.0;
4386 De_1_Vtnode_GND=0.0;
4387 De_1_Vbi_ci=0.0;
4388 #endif
4389 De_1=1.0;
4390 #if defined(_DERIVATE)
4391 Dv_j1_Vsi_ci=0.0;
4392 Dv_j1_Vb_ci=0.0;
4393 Dv_j1_Vbp_ci=0.0;
4394 Dv_j1_Vtnode_GND=0.0;
4395 Dv_j1_Vbi_ci=1.0;
4396 #endif
4397 Dv_j1=BP(bi,ci);
4398 }
4399 #if defined(_DERIVATE)
4400 Da_Vtnode_GND=((0.1*Dv_p_Vtnode_GND)+(4.0*VT_Vtnode_GND));
4401 #endif
4402 Da=((0.1*Dv_p)+(4.0*VT));
4403 #if defined(_DERIVATE)
4404 Dv_r_Vsi_ci=0.0;
4405 Dv_r_Vb_ci=0.0;
4406 Dv_r_Vbp_ci=0.0;
4407 Dv_r_Vtnode_GND=(((Dv_p_Vtnode_GND+Dv_j1_Vtnode_GND)*Da-(Dv_p+Dv_j1)*Da_Vtnode_GND)/Da/Da);
4408 Dv_r_Vbi_ci=(Dv_j1_Vbi_ci/Da);
4409 #endif
4410 Dv_r=((Dv_p+Dv_j1)/Da);
4411 if
4412 ((Dv_r<80.0))
4413 {
4414 {
4415 double m00_exp(d00_exp0,Dv_r)
4416 #if defined(_DERIVATE)
4417 #define d10_exp0 d00_exp0
4418 #endif
4419 #if defined(_DERIVATE)
4420 De_Vsi_ci=0.0;
4421 De_Vb_ci=0.0;
4422 De_Vbp_ci=0.0;
4423 De_Vtnode_GND=Dv_r_Vtnode_GND*d10_exp0;
4424 De_Vbi_ci=Dv_r_Vbi_ci*d10_exp0;
4425 #endif
4426 De=d00_exp0;
4427 }
4428 #if defined(_DERIVATE)
4429 De_2_Vsi_ci=0.0;
4430 De_2_Vb_ci=0.0;
4431 De_2_Vbp_ci=0.0;
4432 De_2_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
4433 De_2_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
4434 #endif
4435 De_2=(De/(1.0+De));
4436 {
4437 double m00_logE(d00_logE0,(1.0+De))
4438 #if defined(_DERIVATE)
4439 double m10_logE(d10_logE0,d00_logE0,(1.0+De))
4440 #endif
4441 #if defined(_DERIVATE)
4442 Dv_j2_Vsi_ci=0.0;
4443 Dv_j2_Vb_ci=0.0;
4444 Dv_j2_Vbp_ci=0.0;
4445 Dv_j2_Vtnode_GND=((-Dv_p_Vtnode_GND)+((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
4446 Dv_j2_Vbi_ci=(Da*De_Vbi_ci*d10_logE0);
4447 #endif
4448 Dv_j2=((-Dv_p)+(Da*d00_logE0));
4449 }
4450 }
4451 else
4452 {
4453 #if defined(_DERIVATE)
4454 De_2_Vsi_ci=0.0;
4455 De_2_Vb_ci=0.0;
4456 De_2_Vbp_ci=0.0;
4457 De_2_Vtnode_GND=0.0;
4458 De_2_Vbi_ci=0.0;
4459 #endif
4460 De_2=1.0;
4461 #if defined(_DERIVATE)
4462 Dv_j2_Vsi_ci=0.0;
4463 Dv_j2_Vb_ci=0.0;
4464 Dv_j2_Vbp_ci=0.0;
4465 Dv_j2_Vtnode_GND=Dv_j1_Vtnode_GND;
4466 Dv_j2_Vbi_ci=Dv_j1_Vbi_ci;
4467 #endif
4468 Dv_j2=Dv_j1;
4469 }
4470 #if defined(_DERIVATE)
4471 Dv_j4_Vsi_ci=0.0;
4472 Dv_j4_Vb_ci=0.0;
4473 Dv_j4_Vbp_ci=0.0;
4474 Dv_j4_Vbi_ci=(1.0-Dv_j1_Vbi_ci);
4475 Dv_j4_Vtnode_GND=(-Dv_j1_Vtnode_GND);
4476 #endif
4477 Dv_j4=(BP(bi,ci)-Dv_j1);
4478 {
4479 double m00_logE(d00_logE0,(1.0-(Dv_j1/vdci_t)))
4480 #if defined(_DERIVATE)
4481 double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j1/vdci_t)))
4482 #endif
4483 #if defined(_DERIVATE)
4484 DCln1_Vsi_ci=0.0;
4485 DCln1_Vb_ci=0.0;
4486 DCln1_Vbp_ci=0.0;
4487 DCln1_Vtnode_GND=(-((Dv_j1_Vtnode_GND*vdci_t-Dv_j1*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
4488 DCln1_Vbi_ci=(-(Dv_j1_Vbi_ci/vdci_t))*d10_logE0;
4489 #endif
4490 DCln1=d00_logE0;
4491 }
4492 {
4493 double m00_logE(d00_logE0,(1.0-(Dv_j2/vdci_t)))
4494 #if defined(_DERIVATE)
4495 double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j2/vdci_t)))
4496 #endif
4497 #if defined(_DERIVATE)
4498 DCln2_Vsi_ci=0.0;
4499 DCln2_Vb_ci=0.0;
4500 DCln2_Vbp_ci=0.0;
4501 DCln2_Vtnode_GND=(-((Dv_j2_Vtnode_GND*vdci_t-Dv_j2*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
4502 DCln2_Vbi_ci=(-(Dv_j2_Vbi_ci/vdci_t))*d10_logE0;
4503 #endif
4504 DCln2=d00_logE0;
4505 }
4506 Dz1=(1.0-zci);
4507 Dzr1=(1.0-Dz_r);
4508 {
4509 double m00_exp(d00_exp0,(DCln2*(-zci)))
4510 #if defined(_DERIVATE)
4511 #define d10_exp0 d00_exp0
4512 #endif
4513 #if defined(_DERIVATE)
4514 DC_j1_Vsi_ci=0.0;
4515 DC_j1_Vb_ci=0.0;
4516 DC_j1_Vbp_ci=0.0;
4517 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));
4518 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));
4519 #endif
4520 DC_j1=(((cjci0_t*d00_exp0)*De_1)*De_2);
4521 }
4522 {
4523 double m00_exp(d00_exp0,(DCln1*(-Dz_r)))
4524 #if defined(_DERIVATE)
4525 #define d10_exp0 d00_exp0
4526 #endif
4527 #if defined(_DERIVATE)
4528 DC_j2_Vsi_ci=0.0;
4529 DC_j2_Vb_ci=0.0;
4530 DC_j2_Vbp_ci=0.0;
4531 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)));
4532 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)));
4533 #endif
4534 DC_j2=((DC_c*d00_exp0)*(1.0-De_2));
4535 }
4536 #if defined(_DERIVATE)
4537 DC_j3_Vsi_ci=0.0;
4538 DC_j3_Vb_ci=0.0;
4539 DC_j3_Vbp_ci=0.0;
4540 DC_j3_Vtnode_GND=((DC_max_Vtnode_GND*(1.0-De_1))+(DC_max*(-De_1_Vtnode_GND)));
4541 DC_j3_Vbi_ci=(DC_max*(-De_1_Vbi_ci));
4542 #endif
4543 DC_j3=(DC_max*(1.0-De_1));
4544 #if defined(_DERIVATE)
4545 Cjci_Vbi_ei=0.0;
4546 Cjci_Vtnode_GND=((DC_j1_Vtnode_GND+DC_j2_Vtnode_GND)+DC_j3_Vtnode_GND);
4547 Cjci_Vbi_ci=((DC_j1_Vbi_ci+DC_j2_Vbi_ci)+DC_j3_Vbi_ci);
4548 #endif
4549 Cjci=((DC_j1+DC_j2)+DC_j3);
4550 {
4551 double m00_exp(d00_exp0,(DCln2*Dz1))
4552 #if defined(_DERIVATE)
4553 #define d10_exp0 d00_exp0
4554 #endif
4555 #if defined(_DERIVATE)
4556 DQ_j1_Vsi_ci=0.0;
4557 DQ_j1_Vb_ci=0.0;
4558 DQ_j1_Vbp_ci=0.0;
4559 DQ_j1_Vtnode_GND=(((cjci0_t_Vtnode_GND*(1.0-d00_exp0))+(cjci0_t*(-DCln2_Vtnode_GND*Dz1*d10_exp0)))/Dz1);
4560 DQ_j1_Vbi_ci=((cjci0_t*(-DCln2_Vbi_ci*Dz1*d10_exp0))/Dz1);
4561 #endif
4562 DQ_j1=((cjci0_t*(1.0-d00_exp0))/Dz1);
4563 }
4564 {
4565 double m00_exp(d00_exp0,(DCln1*Dzr1))
4566 #if defined(_DERIVATE)
4567 #define d10_exp0 d00_exp0
4568 #endif
4569 #if defined(_DERIVATE)
4570 DQ_j2_Vsi_ci=0.0;
4571 DQ_j2_Vb_ci=0.0;
4572 DQ_j2_Vbp_ci=0.0;
4573 DQ_j2_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln1_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
4574 DQ_j2_Vbi_ci=((DC_c*(-DCln1_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
4575 #endif
4576 DQ_j2=((DC_c*(1.0-d00_exp0))/Dzr1);
4577 }
4578 {
4579 double m00_exp(d00_exp0,(DCln2*Dzr1))
4580 #if defined(_DERIVATE)
4581 #define d10_exp0 d00_exp0
4582 #endif
4583 #if defined(_DERIVATE)
4584 DQ_j3_Vsi_ci=0.0;
4585 DQ_j3_Vb_ci=0.0;
4586 DQ_j3_Vbp_ci=0.0;
4587 DQ_j3_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln2_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
4588 DQ_j3_Vbi_ci=((DC_c*(-DCln2_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
4589 #endif
4590 DQ_j3=((DC_c*(1.0-d00_exp0))/Dzr1);
4591 }
4592 #if defined(_DERIVATE)
4593 Qjci_Vbi_ei=0.0;
4594 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)));
4595 Qjci_Vbi_ci=(((DQ_j1_Vbi_ci+DQ_j2_Vbi_ci)-DQ_j3_Vbi_ci)*vdci_t+(DC_max*Dv_j4_Vbi_ci));
4596 #endif
4597 Qjci=((((DQ_j1+DQ_j2)-DQ_j3)*vdci_t)+(DC_max*Dv_j4));
4598 }
4599 else
4600 {
4601 #if defined(_DERIVATE)
4602 Cjci_Vbi_ei=0.0;
4603 Cjci_Vtnode_GND=0.0;
4604 Cjci_Vbi_ci=0.0;
4605 #endif
4606 Cjci=0.0;
4607 #if defined(_DERIVATE)
4608 Qjci_Vbi_ei=0.0;
4609 Qjci_Vtnode_GND=0.0;
4610 Qjci_Vbi_ci=0.0;
4611 #endif
4612 Qjci=0.0;
4613 }
4614 }
4615 else
4616 {
4617 if
4618 ((cjci0_t>0.0))
4619 {
4620 {
4621 double m00_logE(d00_logE0,2.4)
4622 double m00_exp(d00_exp1,((-d00_logE0)/zci))
4623 #if defined(_DERIVATE)
4624 DFV_f_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
4625 #endif
4626 DFV_f=(vdci_t*(1.0-d00_exp1));
4627 }
4628 #if defined(_DERIVATE)
4629 DFv_e_Vsi_ci=0.0;
4630 DFv_e_Vb_ci=0.0;
4631 DFv_e_Vbp_ci=0.0;
4632 DFv_e_Vbp_ei=0.0;
4633 DFv_e_Vbi_ci=((-1.0)/VT);
4634 DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(bi,ci))*VT_Vtnode_GND)/VT/VT);
4635 DFv_e_Vbi_ei=0.0;
4636 #endif
4637 DFv_e=((DFV_f-BP(bi,ci))/VT);
4638 {
4639 double m00_sqrt(d00_sqrt0,((DFv_e*DFv_e)+1.921812))
4640 #if defined(_DERIVATE)
4641 double m10_sqrt(d10_sqrt0,d00_sqrt0,((DFv_e*DFv_e)+1.921812))
4642 #endif
4643 #if defined(_DERIVATE)
4644 DFs_q_Vsi_ci=0.0;
4645 DFs_q_Vb_ci=0.0;
4646 DFs_q_Vbp_ci=0.0;
4647 DFs_q_Vbp_ei=0.0;
4648 DFs_q_Vbi_ci=((DFv_e_Vbi_ci*DFv_e)+(DFv_e*DFv_e_Vbi_ci))*d10_sqrt0;
4649 DFs_q_Vtnode_GND=((DFv_e_Vtnode_GND*DFv_e)+(DFv_e*DFv_e_Vtnode_GND))*d10_sqrt0;
4650 DFs_q_Vbi_ei=((DFv_e_Vbi_ei*DFv_e)+(DFv_e*DFv_e_Vbi_ei))*d10_sqrt0;
4651 #endif
4652 DFs_q=d00_sqrt0;
4653 }
4654 #if defined(_DERIVATE)
4655 DFs_q2_Vsi_ci=0.0;
4656 DFs_q2_Vb_ci=0.0;
4657 DFs_q2_Vbp_ci=0.0;
4658 DFs_q2_Vbp_ei=0.0;
4659 DFs_q2_Vbi_ci=(DFv_e_Vbi_ci+DFs_q_Vbi_ci)*0.5;
4660 DFs_q2_Vtnode_GND=(DFv_e_Vtnode_GND+DFs_q_Vtnode_GND)*0.5;
4661 DFs_q2_Vbi_ei=(DFv_e_Vbi_ei+DFs_q_Vbi_ei)*0.5;
4662 #endif
4663 DFs_q2=((DFv_e+DFs_q)*0.5);
4664 #if defined(_DERIVATE)
4665 DFv_j_Vsi_ci=0.0;
4666 DFv_j_Vb_ci=0.0;
4667 DFv_j_Vbp_ci=0.0;
4668 DFv_j_Vbp_ei=0.0;
4669 DFv_j_Vbi_ci=(-(VT*DFs_q2_Vbi_ci));
4670 DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*DFs_q2)+(VT*DFs_q2_Vtnode_GND)));
4671 DFv_j_Vbi_ei=(-(VT*DFs_q2_Vbi_ei));
4672 #endif
4673 DFv_j=(DFV_f-(VT*DFs_q2));
4674 #if defined(_DERIVATE)
4675 DFdvj_dv_Vsi_ci=0.0;
4676 DFdvj_dv_Vb_ci=0.0;
4677 DFdvj_dv_Vbp_ci=0.0;
4678 DFdvj_dv_Vbp_ei=0.0;
4679 DFdvj_dv_Vbi_ci=((DFs_q2_Vbi_ci*DFs_q-DFs_q2*DFs_q_Vbi_ci)/DFs_q/DFs_q);
4680 DFdvj_dv_Vtnode_GND=((DFs_q2_Vtnode_GND*DFs_q-DFs_q2*DFs_q_Vtnode_GND)/DFs_q/DFs_q);
4681 DFdvj_dv_Vbi_ei=((DFs_q2_Vbi_ei*DFs_q-DFs_q2*DFs_q_Vbi_ei)/DFs_q/DFs_q);
4682 #endif
4683 DFdvj_dv=(DFs_q2/DFs_q);
4684 {
4685 double m00_logE(d00_logE0,(1.0-(DFv_j/vdci_t)))
4686 #if defined(_DERIVATE)
4687 double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdci_t)))
4688 #endif
4689 #if defined(_DERIVATE)
4690 DFb_Vsi_ci=0.0;
4691 DFb_Vb_ci=0.0;
4692 DFb_Vbp_ci=0.0;
4693 DFb_Vbp_ei=0.0;
4694 DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdci_t))*d10_logE0;
4695 DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdci_t-DFv_j*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
4696 DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdci_t))*d10_logE0;
4697 #endif
4698 DFb=d00_logE0;
4699 }
4700 {
4701 double m00_exp(d00_exp0,((-zci)*DFb))
4702 #if defined(_DERIVATE)
4703 #define d10_exp0 d00_exp0
4704 #endif
4705 #if defined(_DERIVATE)
4706 DFC_j1_Vsi_ci=0.0;
4707 DFC_j1_Vb_ci=0.0;
4708 DFC_j1_Vbp_ci=0.0;
4709 DFC_j1_Vbp_ei=0.0;
4710 DFC_j1_Vbi_ci=(((cjci0_t*((-zci)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjci0_t*d00_exp0)*DFdvj_dv_Vbi_ci));
4711 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));
4712 DFC_j1_Vbi_ei=(((cjci0_t*((-zci)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjci0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
4713 #endif
4714 DFC_j1=((cjci0_t*d00_exp0)*DFdvj_dv);
4715 }
4716 #if defined(_DERIVATE)
4717 Cjci_Vbi_ei=(DFC_j1_Vbi_ei+((2.4*cjci0_t)*(-DFdvj_dv_Vbi_ei)));
4718 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))));
4719 Cjci_Vbi_ci=(DFC_j1_Vbi_ci+((2.4*cjci0_t)*(-DFdvj_dv_Vbi_ci)));
4720 #endif
4721 Cjci=(DFC_j1+((2.4*cjci0_t)*(1.0-DFdvj_dv)));
4722 {
4723 double m00_exp(d00_exp0,(DFb*(1.0-zci)))
4724 #if defined(_DERIVATE)
4725 #define d10_exp0 d00_exp0
4726 #endif
4727 #if defined(_DERIVATE)
4728 DFQ_j_Vsi_ci=0.0;
4729 DFQ_j_Vb_ci=0.0;
4730 DFQ_j_Vbp_ci=0.0;
4731 DFQ_j_Vbp_ei=0.0;
4732 DFQ_j_Vbi_ci=(((cjci0_t*vdci_t)*(-DFb_Vbi_ci*(1.0-zci)*d10_exp0))/(1.0-zci));
4733 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));
4734 DFQ_j_Vbi_ei=(((cjci0_t*vdci_t)*(-DFb_Vbi_ei*(1.0-zci)*d10_exp0))/(1.0-zci));
4735 #endif
4736 DFQ_j=(((cjci0_t*vdci_t)*(1.0-d00_exp0))/(1.0-zci));
4737 }
4738 #if defined(_DERIVATE)
4739 Qjci_Vbi_ei=(DFQ_j_Vbi_ei+((2.4*cjci0_t)*(-DFv_j_Vbi_ei)));
4740 Qjci_Vtnode_GND=(DFQ_j_Vtnode_GND+(((2.4*cjci0_t_Vtnode_GND)*(BP(bi,ci)-DFv_j))+((2.4*cjci0_t)*(-DFv_j_Vtnode_GND))));
4741 Qjci_Vbi_ci=(DFQ_j_Vbi_ci+((2.4*cjci0_t)*(1.0-DFv_j_Vbi_ci)));
4742 #endif
4743 Qjci=(DFQ_j+((2.4*cjci0_t)*(BP(bi,ci)-DFv_j)));
4744 }
4745 else
4746 {
4747 #if defined(_DERIVATE)
4748 Cjci_Vbi_ei=0.0;
4749 Cjci_Vtnode_GND=0.0;
4750 Cjci_Vbi_ci=0.0;
4751 #endif
4752 Cjci=0.0;
4753 #if defined(_DERIVATE)
4754 Qjci_Vbi_ei=0.0;
4755 Qjci_Vtnode_GND=0.0;
4756 Qjci_Vbi_ci=0.0;
4757 #endif
4758 Qjci=0.0;
4759 }
4760 }
4761 a_bpt=0.05;
4762 #if defined(_DERIVATE)
4763 Q_0_Vtnode_GND=((qp0_t_Vtnode_GND+(hjei*Qjei_Vtnode_GND))+(hjci*Qjci_Vtnode_GND));
4764 Q_0_Vbi_ei=((hjei*Qjei_Vbi_ei)+(hjci*Qjci_Vbi_ei));
4765 Q_0_Vbi_ci=(hjci*Qjci_Vbi_ci);
4766 #endif
4767 Q_0=((qp0_t+(hjei*Qjei))+(hjci*Qjci));
4768 #if defined(_DERIVATE)
4769 Q_bpt_Vtnode_GND=(a_bpt*qp0_t_Vtnode_GND);
4770 #endif
4771 Q_bpt=(a_bpt*qp0_t);
4772 #if defined(_DERIVATE)
4773 b_q_Vtnode_GND=((Q_0_Vtnode_GND*Q_bpt-Q_0*Q_bpt_Vtnode_GND)/Q_bpt/Q_bpt);
4774 b_q_Vbi_ei=(Q_0_Vbi_ei/Q_bpt);
4775 b_q_Vbi_ci=(Q_0_Vbi_ci/Q_bpt);
4776 #endif
4777 b_q=((Q_0/Q_bpt)-1);
4778 {
4779 double m00_sqrt(d00_sqrt0,((b_q*b_q)+1.921812))
4780 #if defined(_DERIVATE)
4781 double m10_sqrt(d10_sqrt0,d00_sqrt0,((b_q*b_q)+1.921812))
4782 #endif
4783 #if defined(_DERIVATE)
4784 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)));
4785 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));
4786 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));
4787 #endif
4788 Q_0=(Q_bpt*(1+((b_q+d00_sqrt0)/2)));
4789 }
4790 if
4791 ((cjci0_t>0.0))
4792 {
4793 double cV_f;
4794 double cv_e;
4795 double cs_q;
4796 double cs_q2;
4797 double cv_j;
4798 double cdvj_dv;
4799 #if defined(_DERIVATE)
4800 double cV_f_Vtnode_GND;
4801 #endif
4802 #if defined(_DERIVATE)
4803 double cv_e_Vtnode_GND;
4804 #endif
4805 #if defined(_DERIVATE)
4806 double cv_e_Vbi_ci;
4807 #endif
4808 #if defined(_DERIVATE)
4809 double cs_q_Vtnode_GND;
4810 #endif
4811 #if defined(_DERIVATE)
4812 double cs_q_Vbi_ci;
4813 #endif
4814 #if defined(_DERIVATE)
4815 double cs_q2_Vtnode_GND;
4816 #endif
4817 #if defined(_DERIVATE)
4818 double cs_q2_Vbi_ci;
4819 #endif
4820 #if defined(_DERIVATE)
4821 double cv_j_Vtnode_GND;
4822 #endif
4823 #if defined(_DERIVATE)
4824 double cv_j_Vbi_ci;
4825 #endif
4826 #if defined(_DERIVATE)
4827 double cdvj_dv_Vtnode_GND;
4828 #endif
4829 #if defined(_DERIVATE)
4830 double cdvj_dv_Vbi_ci;
4831 #endif
4832 {
4833 double m00_logE(d00_logE0,2.4)
4834 double m00_exp(d00_exp1,((-d00_logE0)/zci))
4835 #if defined(_DERIVATE)
4836 cV_f_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
4837 #endif
4838 cV_f=(vdci_t*(1.0-d00_exp1));
4839 }
4840 #if defined(_DERIVATE)
4841 cv_e_Vtnode_GND=((cV_f_Vtnode_GND*VT-(cV_f-BP(bi,ci))*VT_Vtnode_GND)/VT/VT);
4842 cv_e_Vbi_ci=((-1.0)/VT);
4843 #endif
4844 cv_e=((cV_f-BP(bi,ci))/VT);
4845 {
4846 double m00_sqrt(d00_sqrt0,((cv_e*cv_e)+1.921812))
4847 #if defined(_DERIVATE)
4848 double m10_sqrt(d10_sqrt0,d00_sqrt0,((cv_e*cv_e)+1.921812))
4849 #endif
4850 #if defined(_DERIVATE)
4851 cs_q_Vtnode_GND=((cv_e_Vtnode_GND*cv_e)+(cv_e*cv_e_Vtnode_GND))*d10_sqrt0;
4852 cs_q_Vbi_ci=((cv_e_Vbi_ci*cv_e)+(cv_e*cv_e_Vbi_ci))*d10_sqrt0;
4853 #endif
4854 cs_q=d00_sqrt0;
4855 }
4856 #if defined(_DERIVATE)
4857 cs_q2_Vtnode_GND=(cv_e_Vtnode_GND+cs_q_Vtnode_GND)*0.5;
4858 cs_q2_Vbi_ci=(cv_e_Vbi_ci+cs_q_Vbi_ci)*0.5;
4859 #endif
4860 cs_q2=((cv_e+cs_q)*0.5);
4861 #if defined(_DERIVATE)
4862 cv_j_Vtnode_GND=(cV_f_Vtnode_GND-((VT_Vtnode_GND*cs_q2)+(VT*cs_q2_Vtnode_GND)));
4863 cv_j_Vbi_ci=(-(VT*cs_q2_Vbi_ci));
4864 #endif
4865 cv_j=(cV_f-(VT*cs_q2));
4866 #if defined(_DERIVATE)
4867 cdvj_dv_Vtnode_GND=((cs_q2_Vtnode_GND*cs_q-cs_q2*cs_q_Vtnode_GND)/cs_q/cs_q);
4868 cdvj_dv_Vbi_ci=((cs_q2_Vbi_ci*cs_q-cs_q2*cs_q_Vbi_ci)/cs_q/cs_q);
4869 #endif
4870 cdvj_dv=(cs_q2/cs_q);
4871 {
4872 double m00_logE(d00_logE0,(1.0-(cv_j/vdci_t)))
4873 double m00_exp(d00_exp1,((-zci)*d00_logE0))
4874 #if defined(_DERIVATE)
4875 double m10_logE(d10_logE0,d00_logE0,(1.0-(cv_j/vdci_t)))
4876 #define d10_exp1 d00_exp1
4877 #endif
4878 #if defined(_DERIVATE)
4879 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))));
4880 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)));
4881 #endif
4882 Cjcit=(((cjci0_t*d00_exp1)*cdvj_dv)+((2.4*cjci0_t)*(1.0-cdvj_dv)));
4883 }
4884 }
4885 else
4886 {
4887 #if defined(_DERIVATE)
4888 Cjcit_Vtnode_GND=0.0;
4889 Cjcit_Vbi_ci=0.0;
4890 #endif
4891 Cjcit=0.0;
4892 }
4893 if
4894 ((Cjcit>0.0))
4895 {
4896 #if defined(_DERIVATE)
4897 cc_Vtnode_GND=((cjci0_t_Vtnode_GND*Cjcit-cjci0_t*Cjcit_Vtnode_GND)/Cjcit/Cjcit);
4898 cc_Vbi_ci=(-cjci0_t*Cjcit_Vbi_ci/Cjcit/Cjcit);
4899 #endif
4900 cc=(cjci0_t/Cjcit);
4901 }
4902 else
4903 {
4904 #if defined(_DERIVATE)
4905 cc_Vtnode_GND=0.0;
4906 cc_Vbi_ci=0.0;
4907 #endif
4908 cc=1.0;
4909 }
4910 #if defined(_DERIVATE)
4911 T_f0_Vtnode_GND=((t0_t_Vtnode_GND+(dt0h*cc_Vtnode_GND))+(tbvl*(-1*cc_Vtnode_GND/cc/cc)));
4912 T_f0_Vbi_ci=((dt0h*cc_Vbi_ci)+(tbvl*(-1*cc_Vbi_ci/cc/cc)));
4913 #endif
4914 T_f0=((t0_t+(dt0h*(cc-1.0)))+(tbvl*((1/cc)-1.0)));
4915 #if defined(_DERIVATE)
4916 vc_Vci_ei=1.0;
4917 vc_Vtnode_GND=(-vces_t_Vtnode_GND);
4918 #endif
4919 vc=(BP(ci,ei)-vces_t);
4920 {
4921 Ovpt=(1.0/vpt);
4922 #if defined(_DERIVATE)
4923 a_Vbi_ei=0.0;
4924 a_Vbi_ci=0.0;
4925 a_Vci_ei=(vc_Vci_ei/VT);
4926 a_Vtnode_GND=((vc_Vtnode_GND*VT-vc*VT_Vtnode_GND)/VT/VT);
4927 #endif
4928 a=(vc/VT);
4929 #if defined(_DERIVATE)
4930 d1_Vci_ei=a_Vci_ei;
4931 d1_Vtnode_GND=a_Vtnode_GND;
4932 #endif
4933 d1=(a-1);
4934 {
4935 double m00_sqrt(d00_sqrt0,((d1*d1)+1.921812))
4936 #if defined(_DERIVATE)
4937 double m10_sqrt(d10_sqrt0,d00_sqrt0,((d1*d1)+1.921812))
4938 #endif
4939 #if defined(_DERIVATE)
4940 vceff_Vci_ei=((d1_Vci_ei+((d1_Vci_ei*d1)+(d1*d1_Vci_ei))*d10_sqrt0)/2)*VT;
4941 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));
4942 #endif
4943 vceff=((1.0+((d1+d00_sqrt0)/2))*VT);
4944 }
4945 #if defined(_DERIVATE)
4946 a_Vbi_ei=0.0;
4947 a_Vbi_ci=0.0;
4948 a_Vci_ei=(vceff_Vci_ei/vlim_t);
4949 a_Vtnode_GND=((vceff_Vtnode_GND*vlim_t-vceff*vlim_t_Vtnode_GND)/vlim_t/vlim_t);
4950 #endif
4951 a=(vceff/vlim_t);
4952 {
4953 double m00_sqrt(d00_sqrt0,(1.0+(a*a)))
4954 #if defined(_DERIVATE)
4955 double m10_sqrt(d10_sqrt0,d00_sqrt0,(1.0+(a*a)))
4956 #endif
4957 #if defined(_DERIVATE)
4958 ick_Vci_ei=((vceff_Vci_ei*Orci0_t*d00_sqrt0-(vceff*Orci0_t)*((a_Vci_ei*a)+(a*a_Vci_ei))*d10_sqrt0)/d00_sqrt0/d00_sqrt0);
4959 ick_Vtnode_GND=((((vceff_Vtnode_GND*Orci0_t)+(vceff*Orci0_t_Vtnode_GND))*d00_sqrt0-(vceff*Orci0_t)*((a_Vtnode_GND*a)+(a*a_Vtnode_GND))*d10_sqrt0)/d00_sqrt0/d00_sqrt0);
4960 #endif
4961 ick=((vceff*Orci0_t)/d00_sqrt0);
4962 }
4963 #if defined(_DERIVATE)
4964 ICKa_Vci_ei=vceff_Vci_ei*Ovpt;
4965 ICKa_Vtnode_GND=(vceff_Vtnode_GND-vlim_t_Vtnode_GND)*Ovpt;
4966 #endif
4967 ICKa=((vceff-vlim_t)*Ovpt);
4968 {
4969 double m00_sqrt(d00_sqrt0,((ICKa*ICKa)+1.0e-3))
4970 #if defined(_DERIVATE)
4971 double m10_sqrt(d10_sqrt0,d00_sqrt0,((ICKa*ICKa)+1.0e-3))
4972 #endif
4973 #if defined(_DERIVATE)
4974 ick_Vci_ei=((ick_Vci_ei*(1.0+(0.5*(ICKa+d00_sqrt0))))+(ick*(0.5*(ICKa_Vci_ei+((ICKa_Vci_ei*ICKa)+(ICKa*ICKa_Vci_ei))*d10_sqrt0))));
4975 ick_Vtnode_GND=((ick_Vtnode_GND*(1.0+(0.5*(ICKa+d00_sqrt0))))+(ick*(0.5*(ICKa_Vtnode_GND+((ICKa_Vtnode_GND*ICKa)+(ICKa*ICKa_Vtnode_GND))*d10_sqrt0))));
4976 #endif
4977 ick=(ick*(1.0+(0.5*(ICKa+d00_sqrt0))));
4978 }
4979 }
4980 #if defined(_DERIVATE)
4981 Q_p_Vtnode_GND=Q_0_Vtnode_GND;
4982 Q_p_Vbi_ei=Q_0_Vbi_ei;
4983 Q_p_Vbi_ci=Q_0_Vbi_ci;
4984 #endif
4985 Q_p=Q_0;
4986 if
4987 (((T_f0>0.0)||(Tr>0.0)))
4988 {
4989 #if defined(_DERIVATE)
4990 A_Vtnode_GND=(0.5*Q_0_Vtnode_GND);
4991 A_Vbi_ei=(0.5*Q_0_Vbi_ei);
4992 A_Vbi_ci=(0.5*Q_0_Vbi_ci);
4993 #endif
4994 A=(0.5*Q_0);
4995 {
4996 double m00_sqrt(d00_sqrt0,(((A*A)+(T_f0*i_0f))+(Tr*i_0r)))
4997 #if defined(_DERIVATE)
4998 double m10_sqrt(d10_sqrt0,d00_sqrt0,(((A*A)+(T_f0*i_0f))+(Tr*i_0r)))
4999 #endif
5000 #if defined(_DERIVATE)
5001 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);
5002 Q_p_Vbi_ei=(A_Vbi_ei+(((A_Vbi_ei*A)+(A*A_Vbi_ei))+(T_f0*i_0f_Vbi_ei))*d10_sqrt0);
5003 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);
5004 #endif
5005 Q_p=(A+d00_sqrt0);
5006 }
5007 }
5008 #if defined(_DERIVATE)
5009 I_Tf1_Vci_ei=0.0;
5010 I_Tf1_Vtnode_GND=((i_0f_Vtnode_GND*Q_p-i_0f*Q_p_Vtnode_GND)/Q_p/Q_p);
5011 I_Tf1_Vbi_ei=((i_0f_Vbi_ei*Q_p-i_0f*Q_p_Vbi_ei)/Q_p/Q_p);
5012 I_Tf1_Vbi_ci=(-i_0f*Q_p_Vbi_ci/Q_p/Q_p);
5013 #endif
5014 I_Tf1=(i_0f/Q_p);
5015 #if defined(_DERIVATE)
5016 a_h_Vci_ei=0.0;
5017 a_h_Vtnode_GND=(Oich*I_Tf1_Vtnode_GND);
5018 a_h_Vbi_ei=(Oich*I_Tf1_Vbi_ei);
5019 a_h_Vbi_ci=(Oich*I_Tf1_Vbi_ci);
5020 #endif
5021 a_h=(Oich*I_Tf1);
5022 #if defined(_DERIVATE)
5023 itf_Vci_ei=0.0;
5024 itf_Vtnode_GND=((I_Tf1_Vtnode_GND*(1.0+a_h))+(I_Tf1*a_h_Vtnode_GND));
5025 itf_Vbi_ei=((I_Tf1_Vbi_ei*(1.0+a_h))+(I_Tf1*a_h_Vbi_ei));
5026 itf_Vbi_ci=((I_Tf1_Vbi_ci*(1.0+a_h))+(I_Tf1*a_h_Vbi_ci));
5027 #endif
5028 itf=(I_Tf1*(1.0+a_h));
5029 #if defined(_DERIVATE)
5030 itr_Vci_ei=0.0;
5031 itr_Vtnode_GND=((i_0r_Vtnode_GND*Q_p-i_0r*Q_p_Vtnode_GND)/Q_p/Q_p);
5032 itr_Vbi_ci=((i_0r_Vbi_ci*Q_p-i_0r*Q_p_Vbi_ci)/Q_p/Q_p);
5033 itr_Vbi_ei=(-i_0r*Q_p_Vbi_ei/Q_p/Q_p);
5034 #endif
5035 itr=(i_0r/Q_p);
5036 #if defined(_DERIVATE)
5037 Q_bf_Vtnode_GND=0.0;
5038 Q_bf_Vbi_ei=0.0;
5039 Q_bf_Vbi_ci=0.0;
5040 Q_bf_Vci_ei=0.0;
5041 #endif
5042 Q_bf=0.0;
5043 #if defined(_DERIVATE)
5044 Tf_Vci_ei=0.0;
5045 Tf_Vbi_ei=0.0;
5046 Tf_Vtnode_GND=T_f0_Vtnode_GND;
5047 Tf_Vbi_ci=T_f0_Vbi_ci;
5048 #endif
5049 Tf=T_f0;
5050 #if defined(_DERIVATE)
5051 Qf_Vci_ei=0.0;
5052 Qf_Vtnode_GND=((T_f0_Vtnode_GND*itf)+(T_f0*itf_Vtnode_GND));
5053 Qf_Vbi_ci=((T_f0_Vbi_ci*itf)+(T_f0*itf_Vbi_ci));
5054 Qf_Vbi_ei=(T_f0*itf_Vbi_ei);
5055 #endif
5056 Qf=(T_f0*itf);
5057 if
5058 ((itf<(1.0e-6*ick)))
5059 {
5060 #if defined(_DERIVATE)
5061 Q_fT_Vci_ei=0.0;
5062 Q_fT_Vtnode_GND=Qf_Vtnode_GND;
5063 Q_fT_Vbi_ci=Qf_Vbi_ci;
5064 Q_fT_Vbi_ei=Qf_Vbi_ei;
5065 #endif
5066 Q_fT=Qf;
5067 #if defined(_DERIVATE)
5068 T_fT_Vci_ei=0.0;
5069 T_fT_Vbi_ei=0.0;
5070 T_fT_Vtnode_GND=Tf_Vtnode_GND;
5071 T_fT_Vbi_ci=Tf_Vbi_ci;
5072 #endif
5073 T_fT=Tf;
5074 }
5075 else
5076 {
5077 #if defined(_DERIVATE)
5078 FFa_Vci_ei=((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf);
5079 FFa_Vtnode_GND=((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf);
5080 FFa_Vbi_ei=(-ick*itf_Vbi_ei/itf/itf);
5081 FFa_Vbi_ci=(-ick*itf_Vbi_ci/itf/itf);
5082 #endif
5083 FFa=(ick/itf);
5084 {
5085 double m00_logE(d00_logE0,FFa)
5086 double m00_exp(d00_exp1,((-gtfe)*d00_logE0))
5087 #if defined(_DERIVATE)
5088 double m10_logE(d10_logE0,d00_logE0,FFa)
5089 #define d10_exp1 d00_exp1
5090 #endif
5091 #if defined(_DERIVATE)
5092 FFd_TfE_Vtnode_GND=((tef0_t_Vtnode_GND*d00_exp1)+(tef0_t*((-gtfe)*FFa_Vtnode_GND*d10_logE0)*d10_exp1));
5093 FFd_TfE_Vci_ei=(tef0_t*((-gtfe)*FFa_Vci_ei*d10_logE0)*d10_exp1);
5094 FFd_TfE_Vbi_ei=(tef0_t*((-gtfe)*FFa_Vbi_ei*d10_logE0)*d10_exp1);
5095 FFd_TfE_Vbi_ci=(tef0_t*((-gtfe)*FFa_Vbi_ci*d10_logE0)*d10_exp1);
5096 #endif
5097 FFd_TfE=(tef0_t*d00_exp1);
5098 }
5099 #if defined(_DERIVATE)
5100 FFd_QfE_Vtnode_GND=(((FFd_TfE_Vtnode_GND*itf)+(FFd_TfE*itf_Vtnode_GND))/(gtfe+1.0));
5101 FFd_QfE_Vci_ei=(((FFd_TfE_Vci_ei*itf)+(FFd_TfE*itf_Vci_ei))/(gtfe+1.0));
5102 FFd_QfE_Vbi_ei=(((FFd_TfE_Vbi_ei*itf)+(FFd_TfE*itf_Vbi_ei))/(gtfe+1.0));
5103 FFd_QfE_Vbi_ci=(((FFd_TfE_Vbi_ci*itf)+(FFd_TfE*itf_Vbi_ci))/(gtfe+1.0));
5104 #endif
5105 FFd_QfE=((FFd_TfE*itf)/(gtfe+1.0));
5106 #if defined(_DERIVATE)
5107 FFT_fbS_Vtnode_GND=((1.0-fthc)*thcs_t_Vtnode_GND);
5108 #endif
5109 FFT_fbS=((1.0-fthc)*thcs_t);
5110 #if defined(_DERIVATE)
5111 FFx_Vci_ei=(-FFa_Vci_ei);
5112 FFx_Vtnode_GND=(-FFa_Vtnode_GND);
5113 FFx_Vbi_ei=(-FFa_Vbi_ei);
5114 FFx_Vbi_ci=(-FFa_Vbi_ci);
5115 #endif
5116 FFx=(1.0-FFa);
5117 {
5118 double m00_sqrt(d00_sqrt0,((FFx*FFx)+ahc))
5119 #if defined(_DERIVATE)
5120 double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFx*FFx)+ahc))
5121 #endif
5122 #if defined(_DERIVATE)
5123 FFs_Vci_ei=((FFx_Vci_ei*FFx)+(FFx*FFx_Vci_ei))*d10_sqrt0;
5124 FFs_Vtnode_GND=((FFx_Vtnode_GND*FFx)+(FFx*FFx_Vtnode_GND))*d10_sqrt0;
5125 FFs_Vbi_ei=((FFx_Vbi_ei*FFx)+(FFx*FFx_Vbi_ei))*d10_sqrt0;
5126 FFs_Vbi_ci=((FFx_Vbi_ci*FFx)+(FFx*FFx_Vbi_ci))*d10_sqrt0;
5127 #endif
5128 FFs=d00_sqrt0;
5129 }
5130 {
5131 double m00_sqrt(d00_sqrt0,(1.0+ahc))
5132 #if defined(_DERIVATE)
5133 FFw_Vci_ei=((FFx_Vci_ei+FFs_Vci_ei)/(1.0+d00_sqrt0));
5134 FFw_Vtnode_GND=((FFx_Vtnode_GND+FFs_Vtnode_GND)/(1.0+d00_sqrt0));
5135 FFw_Vbi_ei=((FFx_Vbi_ei+FFs_Vbi_ei)/(1.0+d00_sqrt0));
5136 FFw_Vbi_ci=((FFx_Vbi_ci+FFs_Vbi_ci)/(1.0+d00_sqrt0));
5137 #endif
5138 FFw=((FFx+FFs)/(1.0+d00_sqrt0));
5139 }
5140 #if defined(_DERIVATE)
5141 FFw_2_Vci_ei=((FFw_Vci_ei*FFw)+(FFw*FFw_Vci_ei));
5142 FFw_2_Vtnode_GND=((FFw_Vtnode_GND*FFw)+(FFw*FFw_Vtnode_GND));
5143 FFw_2_Vbi_ei=((FFw_Vbi_ei*FFw)+(FFw*FFw_Vbi_ei));
5144 FFw_2_Vbi_ci=((FFw_Vbi_ci*FFw)+(FFw*FFw_Vbi_ci));
5145 #endif
5146 FFw_2=(FFw*FFw);
5147 #if defined(_DERIVATE)
5148 FFd_QfB_Vtnode_GND=((((FFT_fbS_Vtnode_GND*itf)+(FFT_fbS*itf_Vtnode_GND))*FFw_2)+((FFT_fbS*itf)*FFw_2_Vtnode_GND));
5149 FFd_QfB_Vbi_ei=(((FFT_fbS*itf_Vbi_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ei));
5150 FFd_QfB_Vbi_ci=(((FFT_fbS*itf_Vbi_ci)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ci));
5151 FFd_QfB_Vci_ei=(((FFT_fbS*itf_Vci_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vci_ei));
5152 #endif
5153 FFd_QfB=((FFT_fbS*itf)*FFw_2);
5154 #if defined(_DERIVATE)
5155 Q_bf_Vtnode_GND=FFd_QfB_Vtnode_GND;
5156 Q_bf_Vbi_ei=FFd_QfB_Vbi_ei;
5157 Q_bf_Vbi_ci=FFd_QfB_Vbi_ci;
5158 Q_bf_Vci_ei=FFd_QfB_Vci_ei;
5159 #endif
5160 Q_bf=FFd_QfB;
5161 #if defined(_DERIVATE)
5162 FFa_w_Vci_ei=((FFw_2_Vci_ei*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vci_ei)*FFs-(2.0*FFa)*FFs_Vci_ei)/FFs/FFs)));
5163 FFa_w_Vtnode_GND=((FFw_2_Vtnode_GND*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vtnode_GND)*FFs-(2.0*FFa)*FFs_Vtnode_GND)/FFs/FFs)));
5164 FFa_w_Vbi_ei=((FFw_2_Vbi_ei*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vbi_ei)*FFs-(2.0*FFa)*FFs_Vbi_ei)/FFs/FFs)));
5165 FFa_w_Vbi_ci=((FFw_2_Vbi_ci*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vbi_ci)*FFs-(2.0*FFa)*FFs_Vbi_ci)/FFs/FFs)));
5166 #endif
5167 FFa_w=(FFw_2*(1.0+((2.0*FFa)/FFs)));
5168 #if defined(_DERIVATE)
5169 FFd_TfB_Vtnode_GND=((FFT_fbS_Vtnode_GND*FFa_w)+(FFT_fbS*FFa_w_Vtnode_GND));
5170 FFd_TfB_Vci_ei=(FFT_fbS*FFa_w_Vci_ei);
5171 FFd_TfB_Vbi_ei=(FFT_fbS*FFa_w_Vbi_ei);
5172 FFd_TfB_Vbi_ci=(FFT_fbS*FFa_w_Vbi_ci);
5173 #endif
5174 FFd_TfB=(FFT_fbS*FFa_w);
5175 #if defined(_DERIVATE)
5176 FFT_pcS_Vtnode_GND=(fthc*thcs_t_Vtnode_GND);
5177 #endif
5178 FFT_pcS=(fthc*thcs_t);
5179 if
5180 (((latb<=0.0)&&(latl<=0.0)))
5181 {
5182 #if defined(_DERIVATE)
5183 FFQ_fC_Vtnode_GND=((((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND))*FFw_2)+((FFT_pcS*itf)*FFw_2_Vtnode_GND));
5184 FFQ_fC_Vbi_ei=(((FFT_pcS*itf_Vbi_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ei));
5185 FFQ_fC_Vbi_ci=(((FFT_pcS*itf_Vbi_ci)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ci));
5186 FFQ_fC_Vci_ei=(((FFT_pcS*itf_Vci_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vci_ei));
5187 #endif
5188 FFQ_fC=((FFT_pcS*itf)*FFw_2);
5189 #if defined(_DERIVATE)
5190 FFT_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*FFa_w)+(FFT_pcS*FFa_w_Vtnode_GND));
5191 FFT_fC_Vci_ei=(FFT_pcS*FFa_w_Vci_ei);
5192 FFT_fC_Vbi_ei=(FFT_pcS*FFa_w_Vbi_ei);
5193 FFT_fC_Vbi_ci=(FFT_pcS*FFa_w_Vbi_ci);
5194 #endif
5195 FFT_fC=(FFT_pcS*FFa_w);
5196 #if defined(_DERIVATE)
5197 FFQ_cT_Vtnode_GND=FFQ_fC_Vtnode_GND;
5198 FFQ_cT_Vbi_ei=FFQ_fC_Vbi_ei;
5199 FFQ_cT_Vbi_ci=FFQ_fC_Vbi_ci;
5200 FFQ_cT_Vci_ei=FFQ_fC_Vci_ei;
5201 #endif
5202 FFQ_cT=FFQ_fC;
5203 #if defined(_DERIVATE)
5204 FFT_cT_Vtnode_GND=FFT_fC_Vtnode_GND;
5205 FFT_cT_Vci_ei=FFT_fC_Vci_ei;
5206 FFT_cT_Vbi_ei=FFT_fC_Vbi_ei;
5207 FFT_cT_Vbi_ci=FFT_fC_Vbi_ci;
5208 #endif
5209 FFT_cT=FFT_fC;
5210 }
5211 else
5212 {
5213 #if defined(_DERIVATE)
5214 FFQ_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND));
5215 FFQ_fC_Vbi_ei=(FFT_pcS*itf_Vbi_ei);
5216 FFQ_fC_Vbi_ci=(FFT_pcS*itf_Vbi_ci);
5217 FFQ_fC_Vci_ei=0.0;
5218 #endif
5219 FFQ_fC=(FFT_pcS*itf);
5220 #if defined(_DERIVATE)
5221 FCa_Vci_ei=(-((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf));
5222 FCa_Vtnode_GND=(-((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf));
5223 FCa_Vbi_ei=(-(-ick*itf_Vbi_ei/itf/itf));
5224 FCa_Vbi_ci=(-(-ick*itf_Vbi_ci/itf/itf));
5225 #endif
5226 FCa=(1.0-(ick/itf));
5227 {
5228 double m00_sqrt(d00_sqrt0,((FCa*FCa)+ahc))
5229 #if defined(_DERIVATE)
5230 double m10_sqrt(d10_sqrt0,d00_sqrt0,((FCa*FCa)+ahc))
5231 #endif
5232 #if defined(_DERIVATE)
5233 FCrt_Vci_ei=((FCa_Vci_ei*FCa)+(FCa*FCa_Vci_ei))*d10_sqrt0;
5234 FCrt_Vtnode_GND=((FCa_Vtnode_GND*FCa)+(FCa*FCa_Vtnode_GND))*d10_sqrt0;
5235 FCrt_Vbi_ei=((FCa_Vbi_ei*FCa)+(FCa*FCa_Vbi_ei))*d10_sqrt0;
5236 FCrt_Vbi_ci=((FCa_Vbi_ci*FCa)+(FCa*FCa_Vbi_ci))*d10_sqrt0;
5237 #endif
5238 FCrt=d00_sqrt0;
5239 }
5240 {
5241 double m00_sqrt(d00_sqrt0,(1.0+ahc))
5242 #if defined(_DERIVATE)
5243 FCa_ck_Vci_ei=(-((FCa_Vci_ei+FCrt_Vci_ei)/(1.0+d00_sqrt0)));
5244 FCa_ck_Vtnode_GND=(-((FCa_Vtnode_GND+FCrt_Vtnode_GND)/(1.0+d00_sqrt0)));
5245 FCa_ck_Vbi_ei=(-((FCa_Vbi_ei+FCrt_Vbi_ei)/(1.0+d00_sqrt0)));
5246 FCa_ck_Vbi_ci=(-((FCa_Vbi_ci+FCrt_Vbi_ci)/(1.0+d00_sqrt0)));
5247 #endif
5248 FCa_ck=(1.0-((FCa+FCrt)/(1.0+d00_sqrt0)));
5249 }
5250 #if defined(_DERIVATE)
5251 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));
5252 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));
5253 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));
5254 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));
5255 #endif
5256 FCdaick_ditf=(((FCa_ck-1.0)*(1-FCa))/(FCrt*itf));
5257 if
5258 ((latb>latl))
5259 {
5260 #if defined(_DERIVATE)
5261 FCz_Vci_ei=0.0;
5262 FCz_Vtnode_GND=0.0;
5263 FCz_Vbi_ei=0.0;
5264 FCz_Vbi_ci=0.0;
5265 #endif
5266 FCz=(latb-latl);
5267 FCxl=(1.0+latl);
5268 FCxb=(1.0+latb);
5269 if
5270 ((latb>0.01))
5271 {
5272 {
5273 double m00_logE(d00_logE0,(FCxb/FCxl))
5274 FCln=d00_logE0;
5275 }
5276 {
5277 double m00_exp(d00_exp0,((FCa_ck-1.0)*FCln))
5278 #if defined(_DERIVATE)
5279 #define d10_exp0 d00_exp0
5280 #endif
5281 #if defined(_DERIVATE)
5282 FCa1_Vci_ei=FCa_ck_Vci_ei*FCln*d10_exp0;
5283 FCa1_Vtnode_GND=FCa_ck_Vtnode_GND*FCln*d10_exp0;
5284 FCa1_Vbi_ei=FCa_ck_Vbi_ei*FCln*d10_exp0;
5285 FCa1_Vbi_ci=FCa_ck_Vbi_ci*FCln*d10_exp0;
5286 #endif
5287 FCa1=d00_exp0;
5288 }
5289 #if defined(_DERIVATE)
5290 FCd_a_Vci_ei=(-(-FCa1_Vci_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
5291 FCd_a_Vtnode_GND=(-(-FCa1_Vtnode_GND*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
5292 FCd_a_Vbi_ei=(-(-FCa1_Vbi_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
5293 FCd_a_Vbi_ci=(-(-FCa1_Vbi_ci*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
5294 #endif
5295 FCd_a=(1.0/(latl-(FCa1*latb)));
5296 #if defined(_DERIVATE)
5297 FCw_Vci_ei=((FCa1_Vci_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vci_ei));
5298 FCw_Vtnode_GND=((FCa1_Vtnode_GND*FCd_a)+((FCa1-1.0)*FCd_a_Vtnode_GND));
5299 FCw_Vbi_ei=((FCa1_Vbi_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ei));
5300 FCw_Vbi_ci=((FCa1_Vbi_ci*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ci));
5301 #endif
5302 FCw=((FCa1-1.0)*FCd_a);
5303 #if defined(_DERIVATE)
5304 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));
5305 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));
5306 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));
5307 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));
5308 #endif
5309 FCdw_daick=(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a);
5310 {
5311 double m00_logE(d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
5312 #if defined(_DERIVATE)
5313 double m10_logE(d10_logE0,d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
5314 #endif
5315 #if defined(_DERIVATE)
5316 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;
5317 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;
5318 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;
5319 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;
5320 #endif
5321 FCa1=d00_logE0;
5322 }
5323 #if defined(_DERIVATE)
5324 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))));
5325 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))));
5326 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))));
5327 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))));
5328 #endif
5329 FCda1_dw=((latb/(1.0+(latb*FCw)))-(latl/(1.0+(latl*FCw))));
5330 }
5331 else
5332 {
5333 #if defined(_DERIVATE)
5334 FCf1_Vci_ei=(-FCa_ck_Vci_ei);
5335 FCf1_Vtnode_GND=(-FCa_ck_Vtnode_GND);
5336 FCf1_Vbi_ei=(-FCa_ck_Vbi_ei);
5337 FCf1_Vbi_ci=(-FCa_ck_Vbi_ci);
5338 #endif
5339 FCf1=(1.0-FCa_ck);
5340 #if defined(_DERIVATE)
5341 FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5342 FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5343 FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5344 FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5345 #endif
5346 FCd_a=(1.0/(1.0+(FCa_ck*latb)));
5347 #if defined(_DERIVATE)
5348 FCw_Vci_ei=((FCf1_Vci_ei*FCd_a)+(FCf1*FCd_a_Vci_ei));
5349 FCw_Vtnode_GND=((FCf1_Vtnode_GND*FCd_a)+(FCf1*FCd_a_Vtnode_GND));
5350 FCw_Vbi_ei=((FCf1_Vbi_ei*FCd_a)+(FCf1*FCd_a_Vbi_ei));
5351 FCw_Vbi_ci=((FCf1_Vbi_ci*FCd_a)+(FCf1*FCd_a_Vbi_ci));
5352 #endif
5353 FCw=(FCf1*FCd_a);
5354 #if defined(_DERIVATE)
5355 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));
5356 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));
5357 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));
5358 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));
5359 #endif
5360 FCdw_daick=(((((-1.0)*FCd_a)*FCd_a)*FCxb)*FCd_a);
5361 #if defined(_DERIVATE)
5362 FCa1_Vci_ei=((FCz_Vci_ei*FCw)+(FCz*FCw_Vci_ei));
5363 FCa1_Vtnode_GND=((FCz_Vtnode_GND*FCw)+(FCz*FCw_Vtnode_GND));
5364 FCa1_Vbi_ei=((FCz_Vbi_ei*FCw)+(FCz*FCw_Vbi_ei));
5365 FCa1_Vbi_ci=((FCz_Vbi_ci*FCw)+(FCz*FCw_Vbi_ci));
5366 #endif
5367 FCa1=(FCz*FCw);
5368 #if defined(_DERIVATE)
5369 FCda1_dw_Vci_ei=0.0;
5370 FCda1_dw_Vtnode_GND=0.0;
5371 FCda1_dw_Vbi_ei=0.0;
5372 FCda1_dw_Vbi_ci=0.0;
5373 #endif
5374 FCda1_dw=FCz;
5375 }
5376 #if defined(_DERIVATE)
5377 FCf_CT_Vbi_ei=0.0;
5378 FCf_CT_Vbi_ci=0.0;
5379 FCf_CT_Vci_ei=0.0;
5380 FCf_CT_Vtnode_GND=0.0;
5381 #endif
5382 FCf_CT=(2.0/FCz);
5383 #if defined(_DERIVATE)
5384 FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
5385 FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
5386 FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
5387 FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
5388 #endif
5389 FCw2=(FCw*FCw);
5390 #if defined(_DERIVATE)
5391 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);
5392 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);
5393 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);
5394 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);
5395 #endif
5396 FCf1=((((((latb*latl)*FCw)*FCw2)/3.0)+(((latb+latl)*FCw2)/2.0))+FCw);
5397 #if defined(_DERIVATE)
5398 FCdf1_dw_Vci_ei=(((latb*latl)*FCw2_Vci_ei)+((latb+latl)*FCw_Vci_ei));
5399 FCdf1_dw_Vtnode_GND=(((latb*latl)*FCw2_Vtnode_GND)+((latb+latl)*FCw_Vtnode_GND));
5400 FCdf1_dw_Vbi_ei=(((latb*latl)*FCw2_Vbi_ei)+((latb+latl)*FCw_Vbi_ei));
5401 FCdf1_dw_Vbi_ci=(((latb*latl)*FCw2_Vbi_ci)+((latb+latl)*FCw_Vbi_ci));
5402 #endif
5403 FCdf1_dw=((((latb*latl)*FCw2)+((latb+latl)*FCw))+1.0);
5404 #if defined(_DERIVATE)
5405 z_Vci_ei=(latb*FCw_Vci_ei);
5406 z_Vtnode_GND=(latb*FCw_Vtnode_GND);
5407 z_Vbi_ei=(latb*FCw_Vbi_ei);
5408 z_Vbi_ci=(latb*FCw_Vbi_ci);
5409 #endif
5410 z=(latb*FCw);
5411 {
5412 double m00_logE(d00_logE0,(1+(latb*FCw)))
5413 #if defined(_DERIVATE)
5414 double m10_logE(d10_logE0,d00_logE0,(1+(latb*FCw)))
5415 #endif
5416 #if defined(_DERIVATE)
5417 lnzb_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
5418 lnzb_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
5419 lnzb_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
5420 lnzb_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
5421 #endif
5422 lnzb=d00_logE0;
5423 }
5424 if
5425 ((z>1.0e-6))
5426 {
5427 #if defined(_DERIVATE)
5428 x_Vci_ei=z_Vci_ei;
5429 x_Vtnode_GND=z_Vtnode_GND;
5430 x_Vbi_ei=z_Vbi_ei;
5431 x_Vbi_ci=z_Vbi_ci;
5432 #endif
5433 x=(1.0+z);
5434 #if defined(_DERIVATE)
5435 a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
5436 a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
5437 a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
5438 a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
5439 #endif
5440 a=(x*x);
5441 #if defined(_DERIVATE)
5442 a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ei))));
5443 a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ci))));
5444 a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vci_ei))));
5445 a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vtnode_GND))));
5446 #endif
5447 a2=(0.250*((a*((2.0*lnzb)-1.0))+1.0));
5448 #if defined(_DERIVATE)
5449 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);
5450 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);
5451 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);
5452 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);
5453 #endif
5454 a3=((((a*x)*((3.0*lnzb)-1.0))+1.0)/9.0);
5455 r=(latl/latb);
5456 #if defined(_DERIVATE)
5457 FCf2_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latb);
5458 FCf2_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latb);
5459 FCf2_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latb);
5460 FCf2_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latb);
5461 #endif
5462 FCf2=((((1.0-r)*a2)+(r*a3))/latb);
5463 #if defined(_DERIVATE)
5464 FCdf2_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vci_ei));
5465 FCdf2_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vtnode_GND));
5466 FCdf2_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ei));
5467 FCdf2_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ci));
5468 #endif
5469 FCdf2_dw=((((1.0-r)*x)+(r*a))*lnzb);
5470 }
5471 else
5472 {
5473 #if defined(_DERIVATE)
5474 a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
5475 a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
5476 a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
5477 a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
5478 #endif
5479 a=(z*z);
5480 #if defined(_DERIVATE)
5481 a2_Vbi_ei=((z_Vbi_ei-(0.25*a_Vbi_ei))+(((0.10*z_Vbi_ei)*a)+((0.10*z)*a_Vbi_ei)));
5482 a2_Vbi_ci=((z_Vbi_ci-(0.25*a_Vbi_ci))+(((0.10*z_Vbi_ci)*a)+((0.10*z)*a_Vbi_ci)));
5483 a2_Vci_ei=((z_Vci_ei-(0.25*a_Vci_ei))+(((0.10*z_Vci_ei)*a)+((0.10*z)*a_Vci_ei)));
5484 a2_Vtnode_GND=((z_Vtnode_GND-(0.25*a_Vtnode_GND))+(((0.10*z_Vtnode_GND)*a)+((0.10*z)*a_Vtnode_GND)));
5485 #endif
5486 a2=(((3.0+z)-(0.25*a))+((0.10*z)*a));
5487 #if defined(_DERIVATE)
5488 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)));
5489 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)));
5490 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)));
5491 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)));
5492 #endif
5493 a3=(((2.0*z)+(0.75*a))-((0.20*a)*z));
5494 #if defined(_DERIVATE)
5495 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);
5496 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);
5497 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);
5498 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);
5499 #endif
5500 FCf2=(((((latb*a2)+(latl*a3))*FCw)*FCw)/6.0);
5501 #if defined(_DERIVATE)
5502 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));
5503 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));
5504 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));
5505 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));
5506 #endif
5507 FCdf2_dw=(((1+(latl*FCw))*(1+z))*lnzb);
5508 }
5509 #if defined(_DERIVATE)
5510 z_Vci_ei=(latl*FCw_Vci_ei);
5511 z_Vtnode_GND=(latl*FCw_Vtnode_GND);
5512 z_Vbi_ei=(latl*FCw_Vbi_ei);
5513 z_Vbi_ci=(latl*FCw_Vbi_ci);
5514 #endif
5515 z=(latl*FCw);
5516 {
5517 double m00_logE(d00_logE0,(1+(latl*FCw)))
5518 #if defined(_DERIVATE)
5519 double m10_logE(d10_logE0,d00_logE0,(1+(latl*FCw)))
5520 #endif
5521 #if defined(_DERIVATE)
5522 lnzb_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
5523 lnzb_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
5524 lnzb_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
5525 lnzb_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
5526 #endif
5527 lnzb=d00_logE0;
5528 }
5529 if
5530 ((z>1.0e-6))
5531 {
5532 #if defined(_DERIVATE)
5533 x_Vci_ei=z_Vci_ei;
5534 x_Vtnode_GND=z_Vtnode_GND;
5535 x_Vbi_ei=z_Vbi_ei;
5536 x_Vbi_ci=z_Vbi_ci;
5537 #endif
5538 x=(1.0+z);
5539 #if defined(_DERIVATE)
5540 a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
5541 a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
5542 a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
5543 a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
5544 #endif
5545 a=(x*x);
5546 #if defined(_DERIVATE)
5547 a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ei))));
5548 a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ci))));
5549 a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vci_ei))));
5550 a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vtnode_GND))));
5551 #endif
5552 a2=(0.250*((a*((2.0*lnzb)-1.0))+1.0));
5553 #if defined(_DERIVATE)
5554 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);
5555 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);
5556 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);
5557 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);
5558 #endif
5559 a3=((((a*x)*((3.0*lnzb)-1.0))+1.0)/9.0);
5560 r=(latb/latl);
5561 #if defined(_DERIVATE)
5562 FCf3_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latl);
5563 FCf3_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latl);
5564 FCf3_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latl);
5565 FCf3_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latl);
5566 #endif
5567 FCf3=((((1.0-r)*a2)+(r*a3))/latl);
5568 #if defined(_DERIVATE)
5569 FCdf3_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vci_ei));
5570 FCdf3_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vtnode_GND));
5571 FCdf3_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ei));
5572 FCdf3_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ci));
5573 #endif
5574 FCdf3_dw=((((1.0-r)*x)+(r*a))*lnzb);
5575 }
5576 else
5577 {
5578 #if defined(_DERIVATE)
5579 a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
5580 a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
5581 a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
5582 a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
5583 #endif
5584 a=(z*z);
5585 #if defined(_DERIVATE)
5586 a2_Vbi_ei=((z_Vbi_ei-(0.25*a_Vbi_ei))+(((0.10*z_Vbi_ei)*a)+((0.10*z)*a_Vbi_ei)));
5587 a2_Vbi_ci=((z_Vbi_ci-(0.25*a_Vbi_ci))+(((0.10*z_Vbi_ci)*a)+((0.10*z)*a_Vbi_ci)));
5588 a2_Vci_ei=((z_Vci_ei-(0.25*a_Vci_ei))+(((0.10*z_Vci_ei)*a)+((0.10*z)*a_Vci_ei)));
5589 a2_Vtnode_GND=((z_Vtnode_GND-(0.25*a_Vtnode_GND))+(((0.10*z_Vtnode_GND)*a)+((0.10*z)*a_Vtnode_GND)));
5590 #endif
5591 a2=(((3.0+z)-(0.25*a))+((0.10*z)*a));
5592 #if defined(_DERIVATE)
5593 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)));
5594 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)));
5595 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)));
5596 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)));
5597 #endif
5598 a3=(((2.0*z)+(0.75*a))-((0.20*a)*z));
5599 #if defined(_DERIVATE)
5600 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);
5601 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);
5602 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);
5603 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);
5604 #endif
5605 FCf3=(((((latl*a2)+(latb*a3))*FCw)*FCw)/6.0);
5606 #if defined(_DERIVATE)
5607 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));
5608 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));
5609 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));
5610 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));
5611 #endif
5612 FCdf3_dw=(((1+(latb*FCw))*(1+z))*lnzb);
5613 }
5614 #if defined(_DERIVATE)
5615 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)));
5616 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)));
5617 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)));
5618 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)));
5619 #endif
5620 FCf_ci=(FCf_CT*(((FCa1*FCf1)-FCf2)+FCf3));
5621 #if defined(_DERIVATE)
5622 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)));
5623 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)));
5624 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)));
5625 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)));
5626 #endif
5627 FCdfc_dw=(FCf_CT*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw));
5628 #if defined(_DERIVATE)
5629 FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
5630 FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
5631 FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
5632 FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
5633 #endif
5634 FCdw_ditf=(FCdw_daick*FCdaick_ditf);
5635 #if defined(_DERIVATE)
5636 FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
5637 FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
5638 FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
5639 FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
5640 #endif
5641 FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
5642 if
5643 (((flcomp==0.0)||(flcomp==2.1)))
5644 {
5645 #if defined(_DERIVATE)
5646 a_Vbi_ei=(latb*FCw_Vbi_ei);
5647 a_Vbi_ci=(latb*FCw_Vbi_ci);
5648 a_Vci_ei=(latb*FCw_Vci_ei);
5649 a_Vtnode_GND=(latb*FCw_Vtnode_GND);
5650 #endif
5651 a=(latb*FCw);
5652 {
5653 double m00_logE(d00_logE0,(1+(latb*FCw)))
5654 #if defined(_DERIVATE)
5655 double m10_logE(d10_logE0,d00_logE0,(1+(latb*FCw)))
5656 #endif
5657 #if defined(_DERIVATE)
5658 lnz_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
5659 lnz_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
5660 lnz_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
5661 lnz_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
5662 #endif
5663 lnz=d00_logE0;
5664 }
5665 if
5666 ((a>1.0e-6))
5667 {
5668 #if defined(_DERIVATE)
5669 FCf2_Vbi_ei=((a_Vbi_ei-lnz_Vbi_ei)/latb);
5670 FCf2_Vbi_ci=((a_Vbi_ci-lnz_Vbi_ci)/latb);
5671 FCf2_Vci_ei=((a_Vci_ei-lnz_Vci_ei)/latb);
5672 FCf2_Vtnode_GND=((a_Vtnode_GND-lnz_Vtnode_GND)/latb);
5673 #endif
5674 FCf2=((a-lnz)/latb);
5675 #if defined(_DERIVATE)
5676 FCdf2_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
5677 FCdf2_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
5678 FCdf2_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
5679 FCdf2_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
5680 #endif
5681 FCdf2_dw=(a/(1.0+a));
5682 }
5683 else
5684 {
5685 #if defined(_DERIVATE)
5686 FCf2_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
5687 FCf2_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
5688 FCf2_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
5689 FCf2_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
5690 #endif
5691 FCf2=((0.5*a)*FCw);
5692 #if defined(_DERIVATE)
5693 FCdf2_dw_Vci_ei=a_Vci_ei;
5694 FCdf2_dw_Vtnode_GND=a_Vtnode_GND;
5695 FCdf2_dw_Vbi_ei=a_Vbi_ei;
5696 FCdf2_dw_Vbi_ci=a_Vbi_ci;
5697 #endif
5698 FCdf2_dw=a;
5699 }
5700 #if defined(_DERIVATE)
5701 a_Vbi_ei=(latl*FCw_Vbi_ei);
5702 a_Vbi_ci=(latl*FCw_Vbi_ci);
5703 a_Vci_ei=(latl*FCw_Vci_ei);
5704 a_Vtnode_GND=(latl*FCw_Vtnode_GND);
5705 #endif
5706 a=(latl*FCw);
5707 {
5708 double m00_logE(d00_logE0,(1+(latl*FCw)))
5709 #if defined(_DERIVATE)
5710 double m10_logE(d10_logE0,d00_logE0,(1+(latl*FCw)))
5711 #endif
5712 #if defined(_DERIVATE)
5713 lnz_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
5714 lnz_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
5715 lnz_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
5716 lnz_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
5717 #endif
5718 lnz=d00_logE0;
5719 }
5720 if
5721 ((a>1.0e-6))
5722 {
5723 #if defined(_DERIVATE)
5724 FCf3_Vbi_ei=((a_Vbi_ei-lnz_Vbi_ei)/latl);
5725 FCf3_Vbi_ci=((a_Vbi_ci-lnz_Vbi_ci)/latl);
5726 FCf3_Vci_ei=((a_Vci_ei-lnz_Vci_ei)/latl);
5727 FCf3_Vtnode_GND=((a_Vtnode_GND-lnz_Vtnode_GND)/latl);
5728 #endif
5729 FCf3=((a-lnz)/latl);
5730 #if defined(_DERIVATE)
5731 FCdf3_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
5732 FCdf3_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
5733 FCdf3_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
5734 FCdf3_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
5735 #endif
5736 FCdf3_dw=(a/(1.0+a));
5737 }
5738 else
5739 {
5740 #if defined(_DERIVATE)
5741 FCf3_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
5742 FCf3_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
5743 FCf3_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
5744 FCf3_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
5745 #endif
5746 FCf3=((0.5*a)*FCw);
5747 #if defined(_DERIVATE)
5748 FCdf3_dw_Vci_ei=a_Vci_ei;
5749 FCdf3_dw_Vtnode_GND=a_Vtnode_GND;
5750 FCdf3_dw_Vbi_ei=a_Vbi_ei;
5751 FCdf3_dw_Vbi_ci=a_Vbi_ci;
5752 #endif
5753 FCdf3_dw=a;
5754 }
5755 #if defined(_DERIVATE)
5756 FCf_CT_Vbi_ei=((FCf_CT_Vbi_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ei-FCf3_Vbi_ei)));
5757 FCf_CT_Vbi_ci=((FCf_CT_Vbi_ci*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ci-FCf3_Vbi_ci)));
5758 FCf_CT_Vci_ei=((FCf_CT_Vci_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vci_ei-FCf3_Vci_ei)));
5759 FCf_CT_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCf2-FCf3))+(FCf_CT*(FCf2_Vtnode_GND-FCf3_Vtnode_GND)));
5760 #endif
5761 FCf_CT=(FCf_CT*(FCf2-FCf3));
5762 #if defined(_DERIVATE)
5763 FCdfCT_dw_Vbi_ei=((FCf_CT_Vbi_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ei-FCdf3_dw_Vbi_ei)));
5764 FCdfCT_dw_Vbi_ci=((FCf_CT_Vbi_ci*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ci-FCdf3_dw_Vbi_ci)));
5765 FCdfCT_dw_Vci_ei=((FCf_CT_Vci_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vci_ei-FCdf3_dw_Vci_ei)));
5766 FCdfCT_dw_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vtnode_GND-FCdf3_dw_Vtnode_GND)));
5767 #endif
5768 FCdfCT_dw=(FCf_CT*(FCdf2_dw-FCdf3_dw));
5769 #if defined(_DERIVATE)
5770 FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
5771 FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
5772 FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
5773 FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
5774 #endif
5775 FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
5776 }
5777 else
5778 {
5779 #if defined(_DERIVATE)
5780 FCf_CT_Vbi_ei=FCf_ci_Vbi_ei;
5781 FCf_CT_Vbi_ci=FCf_ci_Vbi_ci;
5782 FCf_CT_Vci_ei=FCf_ci_Vci_ei;
5783 FCf_CT_Vtnode_GND=FCf_ci_Vtnode_GND;
5784 #endif
5785 FCf_CT=FCf_ci;
5786 #if defined(_DERIVATE)
5787 FCdfCT_ditf_Vbi_ei=FCdfc_ditf_Vbi_ei;
5788 FCdfCT_ditf_Vbi_ci=FCdfc_ditf_Vbi_ci;
5789 FCdfCT_ditf_Vci_ei=FCdfc_ditf_Vci_ei;
5790 FCdfCT_ditf_Vtnode_GND=FCdfc_ditf_Vtnode_GND;
5791 #endif
5792 FCdfCT_ditf=FCdfc_ditf;
5793 }
5794 }
5795 else
5796 {
5797 if
5798 ((latb>0.01))
5799 {
5800 #if defined(_DERIVATE)
5801 FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5802 FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5803 FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5804 FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5805 #endif
5806 FCd_a=(1.0/(1.0+(FCa_ck*latb)));
5807 #if defined(_DERIVATE)
5808 FCw_Vci_ei=(((-FCa_ck_Vci_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vci_ei));
5809 FCw_Vtnode_GND=(((-FCa_ck_Vtnode_GND)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vtnode_GND));
5810 FCw_Vbi_ei=(((-FCa_ck_Vbi_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ei));
5811 FCw_Vbi_ci=(((-FCa_ck_Vbi_ci)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ci));
5812 #endif
5813 FCw=((1.0-FCa_ck)*FCd_a);
5814 #if defined(_DERIVATE)
5815 FCdw_daick_Vci_ei=((((-(1.0+latb))*FCd_a_Vci_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vci_ei));
5816 FCdw_daick_Vtnode_GND=((((-(1.0+latb))*FCd_a_Vtnode_GND)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vtnode_GND));
5817 FCdw_daick_Vbi_ei=((((-(1.0+latb))*FCd_a_Vbi_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ei));
5818 FCdw_daick_Vbi_ci=((((-(1.0+latb))*FCd_a_Vbi_ci)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ci));
5819 #endif
5820 FCdw_daick=(((-(1.0+latb))*FCd_a)*FCd_a);
5821 }
5822 else
5823 {
5824 #if defined(_DERIVATE)
5825 FCw_Vci_ei=((-FCa_ck_Vci_ei)-FCa_ck_Vci_ei*latb);
5826 FCw_Vtnode_GND=((-FCa_ck_Vtnode_GND)-FCa_ck_Vtnode_GND*latb);
5827 FCw_Vbi_ei=((-FCa_ck_Vbi_ei)-FCa_ck_Vbi_ei*latb);
5828 FCw_Vbi_ci=((-FCa_ck_Vbi_ci)-FCa_ck_Vbi_ci*latb);
5829 #endif
5830 FCw=((1.0-FCa_ck)-(FCa_ck*latb));
5831 #if defined(_DERIVATE)
5832 FCdw_daick_Vci_ei=0.0;
5833 FCdw_daick_Vtnode_GND=0.0;
5834 FCdw_daick_Vbi_ei=0.0;
5835 FCdw_daick_Vbi_ci=0.0;
5836 #endif
5837 FCdw_daick=(-(1.0+latb));
5838 }
5839 #if defined(_DERIVATE)
5840 FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
5841 FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
5842 FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
5843 FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
5844 #endif
5845 FCw2=(FCw*FCw);
5846 #if defined(_DERIVATE)
5847 FCz_Vci_ei=(latb*FCw_Vci_ei);
5848 FCz_Vtnode_GND=(latb*FCw_Vtnode_GND);
5849 FCz_Vbi_ei=(latb*FCw_Vbi_ei);
5850 FCz_Vbi_ci=(latb*FCw_Vbi_ci);
5851 #endif
5852 FCz=(latb*FCw);
5853 #if defined(_DERIVATE)
5854 FCz_1_Vci_ei=FCz_Vci_ei;
5855 FCz_1_Vtnode_GND=FCz_Vtnode_GND;
5856 FCz_1_Vbi_ei=FCz_Vbi_ei;
5857 FCz_1_Vbi_ci=FCz_Vbi_ci;
5858 #endif
5859 FCz_1=(1.0+FCz);
5860 #if defined(_DERIVATE)
5861 FCd_f_Vci_ei=(-FCz_1_Vci_ei/FCz_1/FCz_1);
5862 FCd_f_Vtnode_GND=(-FCz_1_Vtnode_GND/FCz_1/FCz_1);
5863 FCd_f_Vbi_ei=(-FCz_1_Vbi_ei/FCz_1/FCz_1);
5864 FCd_f_Vbi_ci=(-FCz_1_Vbi_ci/FCz_1/FCz_1);
5865 #endif
5866 FCd_f=(1.0/FCz_1);
5867 #if defined(_DERIVATE)
5868 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));
5869 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));
5870 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));
5871 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));
5872 #endif
5873 FCf_ci=((FCw2*(1.0+(FCz/3.0)))*FCd_f);
5874 #if defined(_DERIVATE)
5875 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));
5876 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));
5877 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));
5878 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));
5879 #endif
5880 FCdfc_dw=((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
5881 #if defined(_DERIVATE)
5882 FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
5883 FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
5884 FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
5885 FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
5886 #endif
5887 FCdw_ditf=(FCdw_daick*FCdaick_ditf);
5888 #if defined(_DERIVATE)
5889 FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
5890 FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
5891 FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
5892 FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
5893 #endif
5894 FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
5895 if
5896 (((flcomp==0.0)||(flcomp==2.1)))
5897 {
5898 if
5899 ((FCz>0.001))
5900 {
5901 {
5902 double m00_logE(d00_logE0,FCz_1)
5903 #if defined(_DERIVATE)
5904 double m10_logE(d10_logE0,d00_logE0,FCz_1)
5905 #endif
5906 #if defined(_DERIVATE)
5907 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));
5908 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));
5909 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));
5910 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));
5911 #endif
5912 FCf_CT=((2.0*((FCz_1*d00_logE0)-FCz))/((latb*latb)*FCz_1));
5913 }
5914 #if defined(_DERIVATE)
5915 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));
5916 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));
5917 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));
5918 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));
5919 #endif
5920 FCdfCT_dw=(((2.0*FCw)*FCd_f)*FCd_f);
5921 }
5922 else
5923 {
5924 #if defined(_DERIVATE)
5925 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));
5926 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));
5927 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));
5928 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));
5929 #endif
5930 FCf_CT=((FCw2*(1.0-(FCz/3.0)))*FCd_f);
5931 #if defined(_DERIVATE)
5932 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));
5933 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));
5934 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));
5935 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));
5936 #endif
5937 FCdfCT_dw=((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
5938 }
5939 #if defined(_DERIVATE)
5940 FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
5941 FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
5942 FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
5943 FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
5944 #endif
5945 FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
5946 }
5947 else
5948 {
5949 #if defined(_DERIVATE)
5950 FCf_CT_Vbi_ei=FCf_ci_Vbi_ei;
5951 FCf_CT_Vbi_ci=FCf_ci_Vbi_ci;
5952 FCf_CT_Vci_ei=FCf_ci_Vci_ei;
5953 FCf_CT_Vtnode_GND=FCf_ci_Vtnode_GND;
5954 #endif
5955 FCf_CT=FCf_ci;
5956 #if defined(_DERIVATE)
5957 FCdfCT_ditf_Vbi_ei=FCdfc_ditf_Vbi_ei;
5958 FCdfCT_ditf_Vbi_ci=FCdfc_ditf_Vbi_ci;
5959 FCdfCT_ditf_Vci_ei=FCdfc_ditf_Vci_ei;
5960 FCdfCT_ditf_Vtnode_GND=FCdfc_ditf_Vtnode_GND;
5961 #endif
5962 FCdfCT_ditf=FCdfc_ditf;
5963 }
5964 }
5965 #if defined(_DERIVATE)
5966 FFQ_cT_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_CT)+(FFQ_fC*FCf_CT_Vtnode_GND));
5967 FFQ_cT_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ei));
5968 FFQ_cT_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ci));
5969 FFQ_cT_Vci_ei=((FFQ_fC_Vci_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vci_ei));
5970 #endif
5971 FFQ_cT=(FFQ_fC*FCf_CT);
5972 #if defined(_DERIVATE)
5973 FFQ_fC_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_ci)+(FFQ_fC*FCf_ci_Vtnode_GND));
5974 FFQ_fC_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ei));
5975 FFQ_fC_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ci));
5976 FFQ_fC_Vci_ei=((FFQ_fC_Vci_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vci_ei));
5977 #endif
5978 FFQ_fC=(FFQ_fC*FCf_ci);
5979 #if defined(_DERIVATE)
5980 FFT_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*(FCf_ci+(itf*FCdfc_ditf)))+(FFT_pcS*(FCf_ci_Vtnode_GND+((itf_Vtnode_GND*FCdfc_ditf)+(itf*FCdfc_ditf_Vtnode_GND)))));
5981 FFT_fC_Vci_ei=(FFT_pcS*(FCf_ci_Vci_ei+((itf_Vci_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vci_ei))));
5982 FFT_fC_Vbi_ei=(FFT_pcS*(FCf_ci_Vbi_ei+((itf_Vbi_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ei))));
5983 FFT_fC_Vbi_ci=(FFT_pcS*(FCf_ci_Vbi_ci+((itf_Vbi_ci*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ci))));
5984 #endif
5985 FFT_fC=(FFT_pcS*(FCf_ci+(itf*FCdfc_ditf)));
5986 #if defined(_DERIVATE)
5987 FFT_cT_Vtnode_GND=((FFT_pcS_Vtnode_GND*(FCf_CT+(itf*FCdfCT_ditf)))+(FFT_pcS*(FCf_CT_Vtnode_GND+((itf_Vtnode_GND*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vtnode_GND)))));
5988 FFT_cT_Vci_ei=(FFT_pcS*(FCf_CT_Vci_ei+((itf_Vci_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vci_ei))));
5989 FFT_cT_Vbi_ei=(FFT_pcS*(FCf_CT_Vbi_ei+((itf_Vbi_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ei))));
5990 FFT_cT_Vbi_ci=(FFT_pcS*(FCf_CT_Vbi_ci+((itf_Vbi_ci*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ci))));
5991 #endif
5992 FFT_cT=(FFT_pcS*(FCf_CT+(itf*FCdfCT_ditf)));
5993 }
5994 #if defined(_DERIVATE)
5995 Qf_Vci_ei=(Qf_Vci_ei+FFd_QfB_Vci_ei);
5996 Qf_Vtnode_GND=(Qf_Vtnode_GND+FFd_QfB_Vtnode_GND);
5997 Qf_Vbi_ci=(Qf_Vbi_ci+FFd_QfB_Vbi_ci);
5998 Qf_Vbi_ei=(Qf_Vbi_ei+FFd_QfB_Vbi_ei);
5999 #endif
6000 Qf=(Qf+FFd_QfB);
6001 #if defined(_DERIVATE)
6002 Tf_Vci_ei=(Tf_Vci_ei+FFd_TfB_Vci_ei);
6003 Tf_Vbi_ei=(Tf_Vbi_ei+FFd_TfB_Vbi_ei);
6004 Tf_Vtnode_GND=(Tf_Vtnode_GND+FFd_TfB_Vtnode_GND);
6005 Tf_Vbi_ci=(Tf_Vbi_ci+FFd_TfB_Vbi_ci);
6006 #endif
6007 Tf=(Tf+FFd_TfB);
6008 #if defined(_DERIVATE)
6009 Q_fT_Vci_ei=((Qf_Vci_ei+(hfe*FFd_QfE_Vci_ei))+(hfc*FFQ_cT_Vci_ei));
6010 Q_fT_Vtnode_GND=((Qf_Vtnode_GND+(hfe*FFd_QfE_Vtnode_GND))+(hfc*FFQ_cT_Vtnode_GND));
6011 Q_fT_Vbi_ci=((Qf_Vbi_ci+(hfe*FFd_QfE_Vbi_ci))+(hfc*FFQ_cT_Vbi_ci));
6012 Q_fT_Vbi_ei=((Qf_Vbi_ei+(hfe*FFd_QfE_Vbi_ei))+(hfc*FFQ_cT_Vbi_ei));
6013 #endif
6014 Q_fT=((Qf+(hfe*FFd_QfE))+(hfc*FFQ_cT));
6015 #if defined(_DERIVATE)
6016 T_fT_Vci_ei=((Tf_Vci_ei+(hfe*FFd_TfE_Vci_ei))+(hfc*FFT_cT_Vci_ei));
6017 T_fT_Vbi_ei=((Tf_Vbi_ei+(hfe*FFd_TfE_Vbi_ei))+(hfc*FFT_cT_Vbi_ei));
6018 T_fT_Vtnode_GND=((Tf_Vtnode_GND+(hfe*FFd_TfE_Vtnode_GND))+(hfc*FFT_cT_Vtnode_GND));
6019 T_fT_Vbi_ci=((Tf_Vbi_ci+(hfe*FFd_TfE_Vbi_ci))+(hfc*FFT_cT_Vbi_ci));
6020 #endif
6021 T_fT=((Tf+(hfe*FFd_TfE))+(hfc*FFT_cT));
6022 #if defined(_DERIVATE)
6023 Qf_Vci_ei=((Qf_Vci_ei+FFd_QfE_Vci_ei)+FFQ_fC_Vci_ei);
6024 Qf_Vtnode_GND=((Qf_Vtnode_GND+FFd_QfE_Vtnode_GND)+FFQ_fC_Vtnode_GND);
6025 Qf_Vbi_ci=((Qf_Vbi_ci+FFd_QfE_Vbi_ci)+FFQ_fC_Vbi_ci);
6026 Qf_Vbi_ei=((Qf_Vbi_ei+FFd_QfE_Vbi_ei)+FFQ_fC_Vbi_ei);
6027 #endif
6028 Qf=((Qf+FFd_QfE)+FFQ_fC);
6029 #if defined(_DERIVATE)
6030 Tf_Vci_ei=((Tf_Vci_ei+FFd_TfE_Vci_ei)+FFT_fC_Vci_ei);
6031 Tf_Vbi_ei=((Tf_Vbi_ei+FFd_TfE_Vbi_ei)+FFT_fC_Vbi_ei);
6032 Tf_Vtnode_GND=((Tf_Vtnode_GND+FFd_TfE_Vtnode_GND)+FFT_fC_Vtnode_GND);
6033 Tf_Vbi_ci=((Tf_Vbi_ci+FFd_TfE_Vbi_ci)+FFT_fC_Vbi_ci);
6034 #endif
6035 Tf=((Tf+FFd_TfE)+FFT_fC);
6036 }
6037 #if defined(_DERIVATE)
6038 Qr_Vci_ei=0.0;
6039 Qr_Vtnode_GND=(Tr*itr_Vtnode_GND);
6040 Qr_Vbi_ci=(Tr*itr_Vbi_ci);
6041 Qr_Vbi_ei=(Tr*itr_Vbi_ei);
6042 #endif
6043 Qr=(Tr*itr);
6044 l_it=0;
6045 if
6046 (((Qf>(1.0e-5*Q_p))||(a_h>1.0e-5)))
6047 {
6048 {
6049 double m00_sqrt(d00_sqrt0,((T_f0*itf)*Q_fT))
6050 #if defined(_DERIVATE)
6051 double m10_sqrt(d10_sqrt0,d00_sqrt0,((T_f0*itf)*Q_fT))
6052 #endif
6053 #if defined(_DERIVATE)
6054 Qf_Vci_ei=(((T_f0*itf_Vci_ei)*Q_fT)+((T_f0*itf)*Q_fT_Vci_ei))*d10_sqrt0;
6055 Qf_Vtnode_GND=((((T_f0_Vtnode_GND*itf)+(T_f0*itf_Vtnode_GND))*Q_fT)+((T_f0*itf)*Q_fT_Vtnode_GND))*d10_sqrt0;
6056 Qf_Vbi_ci=((((T_f0_Vbi_ci*itf)+(T_f0*itf_Vbi_ci))*Q_fT)+((T_f0*itf)*Q_fT_Vbi_ci))*d10_sqrt0;
6057 Qf_Vbi_ei=(((T_f0*itf_Vbi_ei)*Q_fT)+((T_f0*itf)*Q_fT_Vbi_ei))*d10_sqrt0;
6058 #endif
6059 Qf=d00_sqrt0;
6060 }
6061 #if defined(_DERIVATE)
6062 Q_pT_Vtnode_GND=((Q_0_Vtnode_GND+Qf_Vtnode_GND)+Qr_Vtnode_GND);
6063 Q_pT_Vbi_ei=((Q_0_Vbi_ei+Qf_Vbi_ei)+Qr_Vbi_ei);
6064 Q_pT_Vbi_ci=((Q_0_Vbi_ci+Qf_Vbi_ci)+Qr_Vbi_ci);
6065 Q_pT_Vci_ei=(Qf_Vci_ei+Qr_Vci_ei);
6066 #endif
6067 Q_pT=((Q_0+Qf)+Qr);
6068 #if defined(_DERIVATE)
6069 d_Q_Vtnode_GND=Q_pT_Vtnode_GND;
6070 d_Q_Vbi_ei=Q_pT_Vbi_ei;
6071 d_Q_Vbi_ci=Q_pT_Vbi_ci;
6072 d_Q_Vci_ei=Q_pT_Vci_ei;
6073 #endif
6074 d_Q=Q_pT;
6075 while
6076 (((fabs(d_Q)>=(1.0e-5*fabs(Q_pT)))&&(l_it<=100)))
6077 {
6078 #if defined(_DYNAMIC)
6079 d_Q0=d_Q;
6080 #endif
6081 #if defined(_DERIVATE)
6082 I_Tf1_Vci_ei=(-i_0f*Q_pT_Vci_ei/Q_pT/Q_pT);
6083 I_Tf1_Vtnode_GND=((i_0f_Vtnode_GND*Q_pT-i_0f*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
6084 I_Tf1_Vbi_ei=((i_0f_Vbi_ei*Q_pT-i_0f*Q_pT_Vbi_ei)/Q_pT/Q_pT);
6085 I_Tf1_Vbi_ci=(-i_0f*Q_pT_Vbi_ci/Q_pT/Q_pT);
6086 #endif
6087 I_Tf1=(i_0f/Q_pT);
6088 #if defined(_DERIVATE)
6089 a_h_Vci_ei=(Oich*I_Tf1_Vci_ei);
6090 a_h_Vtnode_GND=(Oich*I_Tf1_Vtnode_GND);
6091 a_h_Vbi_ei=(Oich*I_Tf1_Vbi_ei);
6092 a_h_Vbi_ci=(Oich*I_Tf1_Vbi_ci);
6093 #endif
6094 a_h=(Oich*I_Tf1);
6095 #if defined(_DERIVATE)
6096 itf_Vci_ei=((I_Tf1_Vci_ei*(1.0+a_h))+(I_Tf1*a_h_Vci_ei));
6097 itf_Vtnode_GND=((I_Tf1_Vtnode_GND*(1.0+a_h))+(I_Tf1*a_h_Vtnode_GND));
6098 itf_Vbi_ei=((I_Tf1_Vbi_ei*(1.0+a_h))+(I_Tf1*a_h_Vbi_ei));
6099 itf_Vbi_ci=((I_Tf1_Vbi_ci*(1.0+a_h))+(I_Tf1*a_h_Vbi_ci));
6100 #endif
6101 itf=(I_Tf1*(1.0+a_h));
6102 #if defined(_DERIVATE)
6103 itr_Vci_ei=(-i_0r*Q_pT_Vci_ei/Q_pT/Q_pT);
6104 itr_Vtnode_GND=((i_0r_Vtnode_GND*Q_pT-i_0r*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
6105 itr_Vbi_ci=((i_0r_Vbi_ci*Q_pT-i_0r*Q_pT_Vbi_ci)/Q_pT/Q_pT);
6106 itr_Vbi_ei=(-i_0r*Q_pT_Vbi_ei/Q_pT/Q_pT);
6107 #endif
6108 itr=(i_0r/Q_pT);
6109 #if defined(_DERIVATE)
6110 Tf_Vci_ei=0.0;
6111 Tf_Vbi_ei=0.0;
6112 Tf_Vtnode_GND=T_f0_Vtnode_GND;
6113 Tf_Vbi_ci=T_f0_Vbi_ci;
6114 #endif
6115 Tf=T_f0;
6116 #if defined(_DERIVATE)
6117 Qf_Vci_ei=(T_f0*itf_Vci_ei);
6118 Qf_Vtnode_GND=((T_f0_Vtnode_GND*itf)+(T_f0*itf_Vtnode_GND));
6119 Qf_Vbi_ci=((T_f0_Vbi_ci*itf)+(T_f0*itf_Vbi_ci));
6120 Qf_Vbi_ei=(T_f0*itf_Vbi_ei);
6121 #endif
6122 Qf=(T_f0*itf);
6123 if
6124 ((itf<(1.0e-6*ick)))
6125 {
6126 #if defined(_DERIVATE)
6127 Q_fT_Vci_ei=Qf_Vci_ei;
6128 Q_fT_Vtnode_GND=Qf_Vtnode_GND;
6129 Q_fT_Vbi_ci=Qf_Vbi_ci;
6130 Q_fT_Vbi_ei=Qf_Vbi_ei;
6131 #endif
6132 Q_fT=Qf;
6133 #if defined(_DERIVATE)
6134 T_fT_Vci_ei=Tf_Vci_ei;
6135 T_fT_Vbi_ei=Tf_Vbi_ei;
6136 T_fT_Vtnode_GND=Tf_Vtnode_GND;
6137 T_fT_Vbi_ci=Tf_Vbi_ci;
6138 #endif
6139 T_fT=Tf;
6140 }
6141 else
6142 {
6143 #if defined(_DERIVATE)
6144 FFa_Vci_ei=((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf);
6145 FFa_Vtnode_GND=((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf);
6146 FFa_Vbi_ei=(-ick*itf_Vbi_ei/itf/itf);
6147 FFa_Vbi_ci=(-ick*itf_Vbi_ci/itf/itf);
6148 #endif
6149 FFa=(ick/itf);
6150 {
6151 double m00_logE(d00_logE0,FFa)
6152 double m00_exp(d00_exp1,((-gtfe)*d00_logE0))
6153 #if defined(_DERIVATE)
6154 double m10_logE(d10_logE0,d00_logE0,FFa)
6155 #define d10_exp1 d00_exp1
6156 #endif
6157 #if defined(_DERIVATE)
6158 FFd_TfE_Vtnode_GND=((tef0_t_Vtnode_GND*d00_exp1)+(tef0_t*((-gtfe)*FFa_Vtnode_GND*d10_logE0)*d10_exp1));
6159 FFd_TfE_Vci_ei=(tef0_t*((-gtfe)*FFa_Vci_ei*d10_logE0)*d10_exp1);
6160 FFd_TfE_Vbi_ei=(tef0_t*((-gtfe)*FFa_Vbi_ei*d10_logE0)*d10_exp1);
6161 FFd_TfE_Vbi_ci=(tef0_t*((-gtfe)*FFa_Vbi_ci*d10_logE0)*d10_exp1);
6162 #endif
6163 FFd_TfE=(tef0_t*d00_exp1);
6164 }
6165 #if defined(_DERIVATE)
6166 FFd_QfE_Vtnode_GND=(((FFd_TfE_Vtnode_GND*itf)+(FFd_TfE*itf_Vtnode_GND))/(gtfe+1.0));
6167 FFd_QfE_Vci_ei=(((FFd_TfE_Vci_ei*itf)+(FFd_TfE*itf_Vci_ei))/(gtfe+1.0));
6168 FFd_QfE_Vbi_ei=(((FFd_TfE_Vbi_ei*itf)+(FFd_TfE*itf_Vbi_ei))/(gtfe+1.0));
6169 FFd_QfE_Vbi_ci=(((FFd_TfE_Vbi_ci*itf)+(FFd_TfE*itf_Vbi_ci))/(gtfe+1.0));
6170 #endif
6171 FFd_QfE=((FFd_TfE*itf)/(gtfe+1.0));
6172 #if defined(_DERIVATE)
6173 FFT_fbS_Vtnode_GND=((1.0-fthc)*thcs_t_Vtnode_GND);
6174 #endif
6175 FFT_fbS=((1.0-fthc)*thcs_t);
6176 #if defined(_DERIVATE)
6177 FFx_Vci_ei=(-FFa_Vci_ei);
6178 FFx_Vtnode_GND=(-FFa_Vtnode_GND);
6179 FFx_Vbi_ei=(-FFa_Vbi_ei);
6180 FFx_Vbi_ci=(-FFa_Vbi_ci);
6181 #endif
6182 FFx=(1.0-FFa);
6183 {
6184 double m00_sqrt(d00_sqrt0,((FFx*FFx)+ahc))
6185 #if defined(_DERIVATE)
6186 double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFx*FFx)+ahc))
6187 #endif
6188 #if defined(_DERIVATE)
6189 FFs_Vci_ei=((FFx_Vci_ei*FFx)+(FFx*FFx_Vci_ei))*d10_sqrt0;
6190 FFs_Vtnode_GND=((FFx_Vtnode_GND*FFx)+(FFx*FFx_Vtnode_GND))*d10_sqrt0;
6191 FFs_Vbi_ei=((FFx_Vbi_ei*FFx)+(FFx*FFx_Vbi_ei))*d10_sqrt0;
6192 FFs_Vbi_ci=((FFx_Vbi_ci*FFx)+(FFx*FFx_Vbi_ci))*d10_sqrt0;
6193 #endif
6194 FFs=d00_sqrt0;
6195 }
6196 {
6197 double m00_sqrt(d00_sqrt0,(1.0+ahc))
6198 #if defined(_DERIVATE)
6199 FFw_Vci_ei=((FFx_Vci_ei+FFs_Vci_ei)/(1.0+d00_sqrt0));
6200 FFw_Vtnode_GND=((FFx_Vtnode_GND+FFs_Vtnode_GND)/(1.0+d00_sqrt0));
6201 FFw_Vbi_ei=((FFx_Vbi_ei+FFs_Vbi_ei)/(1.0+d00_sqrt0));
6202 FFw_Vbi_ci=((FFx_Vbi_ci+FFs_Vbi_ci)/(1.0+d00_sqrt0));
6203 #endif
6204 FFw=((FFx+FFs)/(1.0+d00_sqrt0));
6205 }
6206 #if defined(_DERIVATE)
6207 FFw_2_Vci_ei=((FFw_Vci_ei*FFw)+(FFw*FFw_Vci_ei));
6208 FFw_2_Vtnode_GND=((FFw_Vtnode_GND*FFw)+(FFw*FFw_Vtnode_GND));
6209 FFw_2_Vbi_ei=((FFw_Vbi_ei*FFw)+(FFw*FFw_Vbi_ei));
6210 FFw_2_Vbi_ci=((FFw_Vbi_ci*FFw)+(FFw*FFw_Vbi_ci));
6211 #endif
6212 FFw_2=(FFw*FFw);
6213 #if defined(_DERIVATE)
6214 FFd_QfB_Vtnode_GND=((((FFT_fbS_Vtnode_GND*itf)+(FFT_fbS*itf_Vtnode_GND))*FFw_2)+((FFT_fbS*itf)*FFw_2_Vtnode_GND));
6215 FFd_QfB_Vbi_ei=(((FFT_fbS*itf_Vbi_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ei));
6216 FFd_QfB_Vbi_ci=(((FFT_fbS*itf_Vbi_ci)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ci));
6217 FFd_QfB_Vci_ei=(((FFT_fbS*itf_Vci_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vci_ei));
6218 #endif
6219 FFd_QfB=((FFT_fbS*itf)*FFw_2);
6220 #if defined(_DERIVATE)
6221 Q_bf_Vtnode_GND=FFd_QfB_Vtnode_GND;
6222 Q_bf_Vbi_ei=FFd_QfB_Vbi_ei;
6223 Q_bf_Vbi_ci=FFd_QfB_Vbi_ci;
6224 Q_bf_Vci_ei=FFd_QfB_Vci_ei;
6225 #endif
6226 Q_bf=FFd_QfB;
6227 #if defined(_DERIVATE)
6228 FFa_w_Vci_ei=((FFw_2_Vci_ei*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vci_ei)*FFs-(2.0*FFa)*FFs_Vci_ei)/FFs/FFs)));
6229 FFa_w_Vtnode_GND=((FFw_2_Vtnode_GND*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vtnode_GND)*FFs-(2.0*FFa)*FFs_Vtnode_GND)/FFs/FFs)));
6230 FFa_w_Vbi_ei=((FFw_2_Vbi_ei*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vbi_ei)*FFs-(2.0*FFa)*FFs_Vbi_ei)/FFs/FFs)));
6231 FFa_w_Vbi_ci=((FFw_2_Vbi_ci*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vbi_ci)*FFs-(2.0*FFa)*FFs_Vbi_ci)/FFs/FFs)));
6232 #endif
6233 FFa_w=(FFw_2*(1.0+((2.0*FFa)/FFs)));
6234 #if defined(_DERIVATE)
6235 FFd_TfB_Vtnode_GND=((FFT_fbS_Vtnode_GND*FFa_w)+(FFT_fbS*FFa_w_Vtnode_GND));
6236 FFd_TfB_Vci_ei=(FFT_fbS*FFa_w_Vci_ei);
6237 FFd_TfB_Vbi_ei=(FFT_fbS*FFa_w_Vbi_ei);
6238 FFd_TfB_Vbi_ci=(FFT_fbS*FFa_w_Vbi_ci);
6239 #endif
6240 FFd_TfB=(FFT_fbS*FFa_w);
6241 #if defined(_DERIVATE)
6242 FFT_pcS_Vtnode_GND=(fthc*thcs_t_Vtnode_GND);
6243 #endif
6244 FFT_pcS=(fthc*thcs_t);
6245 if
6246 (((latb<=0.0)&&(latl<=0.0)))
6247 {
6248 #if defined(_DERIVATE)
6249 FFQ_fC_Vtnode_GND=((((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND))*FFw_2)+((FFT_pcS*itf)*FFw_2_Vtnode_GND));
6250 FFQ_fC_Vbi_ei=(((FFT_pcS*itf_Vbi_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ei));
6251 FFQ_fC_Vbi_ci=(((FFT_pcS*itf_Vbi_ci)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ci));
6252 FFQ_fC_Vci_ei=(((FFT_pcS*itf_Vci_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vci_ei));
6253 #endif
6254 FFQ_fC=((FFT_pcS*itf)*FFw_2);
6255 #if defined(_DERIVATE)
6256 FFT_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*FFa_w)+(FFT_pcS*FFa_w_Vtnode_GND));
6257 FFT_fC_Vci_ei=(FFT_pcS*FFa_w_Vci_ei);
6258 FFT_fC_Vbi_ei=(FFT_pcS*FFa_w_Vbi_ei);
6259 FFT_fC_Vbi_ci=(FFT_pcS*FFa_w_Vbi_ci);
6260 #endif
6261 FFT_fC=(FFT_pcS*FFa_w);
6262 #if defined(_DERIVATE)
6263 FFQ_cT_Vtnode_GND=FFQ_fC_Vtnode_GND;
6264 FFQ_cT_Vbi_ei=FFQ_fC_Vbi_ei;
6265 FFQ_cT_Vbi_ci=FFQ_fC_Vbi_ci;
6266 FFQ_cT_Vci_ei=FFQ_fC_Vci_ei;
6267 #endif
6268 FFQ_cT=FFQ_fC;
6269 #if defined(_DERIVATE)
6270 FFT_cT_Vtnode_GND=FFT_fC_Vtnode_GND;
6271 FFT_cT_Vci_ei=FFT_fC_Vci_ei;
6272 FFT_cT_Vbi_ei=FFT_fC_Vbi_ei;
6273 FFT_cT_Vbi_ci=FFT_fC_Vbi_ci;
6274 #endif
6275 FFT_cT=FFT_fC;
6276 }
6277 else
6278 {
6279 #if defined(_DERIVATE)
6280 FFQ_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND));
6281 FFQ_fC_Vbi_ei=(FFT_pcS*itf_Vbi_ei);
6282 FFQ_fC_Vbi_ci=(FFT_pcS*itf_Vbi_ci);
6283 FFQ_fC_Vci_ei=(FFT_pcS*itf_Vci_ei);
6284 #endif
6285 FFQ_fC=(FFT_pcS*itf);
6286 #if defined(_DERIVATE)
6287 FCa_Vci_ei=(-((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf));
6288 FCa_Vtnode_GND=(-((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf));
6289 FCa_Vbi_ei=(-(-ick*itf_Vbi_ei/itf/itf));
6290 FCa_Vbi_ci=(-(-ick*itf_Vbi_ci/itf/itf));
6291 #endif
6292 FCa=(1.0-(ick/itf));
6293 {
6294 double m00_sqrt(d00_sqrt0,((FCa*FCa)+ahc))
6295 #if defined(_DERIVATE)
6296 double m10_sqrt(d10_sqrt0,d00_sqrt0,((FCa*FCa)+ahc))
6297 #endif
6298 #if defined(_DERIVATE)
6299 FCrt_Vci_ei=((FCa_Vci_ei*FCa)+(FCa*FCa_Vci_ei))*d10_sqrt0;
6300 FCrt_Vtnode_GND=((FCa_Vtnode_GND*FCa)+(FCa*FCa_Vtnode_GND))*d10_sqrt0;
6301 FCrt_Vbi_ei=((FCa_Vbi_ei*FCa)+(FCa*FCa_Vbi_ei))*d10_sqrt0;
6302 FCrt_Vbi_ci=((FCa_Vbi_ci*FCa)+(FCa*FCa_Vbi_ci))*d10_sqrt0;
6303 #endif
6304 FCrt=d00_sqrt0;
6305 }
6306 {
6307 double m00_sqrt(d00_sqrt0,(1.0+ahc))
6308 #if defined(_DERIVATE)
6309 FCa_ck_Vci_ei=(-((FCa_Vci_ei+FCrt_Vci_ei)/(1.0+d00_sqrt0)));
6310 FCa_ck_Vtnode_GND=(-((FCa_Vtnode_GND+FCrt_Vtnode_GND)/(1.0+d00_sqrt0)));
6311 FCa_ck_Vbi_ei=(-((FCa_Vbi_ei+FCrt_Vbi_ei)/(1.0+d00_sqrt0)));
6312 FCa_ck_Vbi_ci=(-((FCa_Vbi_ci+FCrt_Vbi_ci)/(1.0+d00_sqrt0)));
6313 #endif
6314 FCa_ck=(1.0-((FCa+FCrt)/(1.0+d00_sqrt0)));
6315 }
6316 #if defined(_DERIVATE)
6317 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));
6318 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));
6319 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));
6320 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));
6321 #endif
6322 FCdaick_ditf=(((FCa_ck-1.0)*(1-FCa))/(FCrt*itf));
6323 if
6324 ((latb>latl))
6325 {
6326 #if defined(_DERIVATE)
6327 FCz_Vci_ei=0.0;
6328 FCz_Vtnode_GND=0.0;
6329 FCz_Vbi_ei=0.0;
6330 FCz_Vbi_ci=0.0;
6331 #endif
6332 FCz=(latb-latl);
6333 FCxl=(1.0+latl);
6334 FCxb=(1.0+latb);
6335 if
6336 ((latb>0.01))
6337 {
6338 {
6339 double m00_logE(d00_logE0,(FCxb/FCxl))
6340 FCln=d00_logE0;
6341 }
6342 {
6343 double m00_exp(d00_exp0,((FCa_ck-1.0)*FCln))
6344 #if defined(_DERIVATE)
6345 #define d10_exp0 d00_exp0
6346 #endif
6347 #if defined(_DERIVATE)
6348 FCa1_Vci_ei=FCa_ck_Vci_ei*FCln*d10_exp0;
6349 FCa1_Vtnode_GND=FCa_ck_Vtnode_GND*FCln*d10_exp0;
6350 FCa1_Vbi_ei=FCa_ck_Vbi_ei*FCln*d10_exp0;
6351 FCa1_Vbi_ci=FCa_ck_Vbi_ci*FCln*d10_exp0;
6352 #endif
6353 FCa1=d00_exp0;
6354 }
6355 #if defined(_DERIVATE)
6356 FCd_a_Vci_ei=(-(-FCa1_Vci_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
6357 FCd_a_Vtnode_GND=(-(-FCa1_Vtnode_GND*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
6358 FCd_a_Vbi_ei=(-(-FCa1_Vbi_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
6359 FCd_a_Vbi_ci=(-(-FCa1_Vbi_ci*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
6360 #endif
6361 FCd_a=(1.0/(latl-(FCa1*latb)));
6362 #if defined(_DERIVATE)
6363 FCw_Vci_ei=((FCa1_Vci_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vci_ei));
6364 FCw_Vtnode_GND=((FCa1_Vtnode_GND*FCd_a)+((FCa1-1.0)*FCd_a_Vtnode_GND));
6365 FCw_Vbi_ei=((FCa1_Vbi_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ei));
6366 FCw_Vbi_ci=((FCa1_Vbi_ci*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ci));
6367 #endif
6368 FCw=((FCa1-1.0)*FCd_a);
6369 #if defined(_DERIVATE)
6370 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));
6371 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));
6372 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));
6373 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));
6374 #endif
6375 FCdw_daick=(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a);
6376 {
6377 double m00_logE(d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
6378 #if defined(_DERIVATE)
6379 double m10_logE(d10_logE0,d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
6380 #endif
6381 #if defined(_DERIVATE)
6382 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;
6383 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;
6384 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;
6385 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;
6386 #endif
6387 FCa1=d00_logE0;
6388 }
6389 #if defined(_DERIVATE)
6390 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))));
6391 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))));
6392 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))));
6393 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))));
6394 #endif
6395 FCda1_dw=((latb/(1.0+(latb*FCw)))-(latl/(1.0+(latl*FCw))));
6396 }
6397 else
6398 {
6399 #if defined(_DERIVATE)
6400 FCf1_Vci_ei=(-FCa_ck_Vci_ei);
6401 FCf1_Vtnode_GND=(-FCa_ck_Vtnode_GND);
6402 FCf1_Vbi_ei=(-FCa_ck_Vbi_ei);
6403 FCf1_Vbi_ci=(-FCa_ck_Vbi_ci);
6404 #endif
6405 FCf1=(1.0-FCa_ck);
6406 #if defined(_DERIVATE)
6407 FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6408 FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6409 FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6410 FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6411 #endif
6412 FCd_a=(1.0/(1.0+(FCa_ck*latb)));
6413 #if defined(_DERIVATE)
6414 FCw_Vci_ei=((FCf1_Vci_ei*FCd_a)+(FCf1*FCd_a_Vci_ei));
6415 FCw_Vtnode_GND=((FCf1_Vtnode_GND*FCd_a)+(FCf1*FCd_a_Vtnode_GND));
6416 FCw_Vbi_ei=((FCf1_Vbi_ei*FCd_a)+(FCf1*FCd_a_Vbi_ei));
6417 FCw_Vbi_ci=((FCf1_Vbi_ci*FCd_a)+(FCf1*FCd_a_Vbi_ci));
6418 #endif
6419 FCw=(FCf1*FCd_a);
6420 #if defined(_DERIVATE)
6421 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));
6422 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));
6423 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));
6424 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));
6425 #endif
6426 FCdw_daick=(((((-1.0)*FCd_a)*FCd_a)*FCxb)*FCd_a);
6427 #if defined(_DERIVATE)
6428 FCa1_Vci_ei=((FCz_Vci_ei*FCw)+(FCz*FCw_Vci_ei));
6429 FCa1_Vtnode_GND=((FCz_Vtnode_GND*FCw)+(FCz*FCw_Vtnode_GND));
6430 FCa1_Vbi_ei=((FCz_Vbi_ei*FCw)+(FCz*FCw_Vbi_ei));
6431 FCa1_Vbi_ci=((FCz_Vbi_ci*FCw)+(FCz*FCw_Vbi_ci));
6432 #endif
6433 FCa1=(FCz*FCw);
6434 #if defined(_DERIVATE)
6435 FCda1_dw_Vci_ei=FCz_Vci_ei;
6436 FCda1_dw_Vtnode_GND=FCz_Vtnode_GND;
6437 FCda1_dw_Vbi_ei=FCz_Vbi_ei;
6438 FCda1_dw_Vbi_ci=FCz_Vbi_ci;
6439 #endif
6440 FCda1_dw=FCz;
6441 }
6442 #if defined(_DERIVATE)
6443 FCf_CT_Vbi_ei=(-2.0*FCz_Vbi_ei/FCz/FCz);
6444 FCf_CT_Vbi_ci=(-2.0*FCz_Vbi_ci/FCz/FCz);
6445 FCf_CT_Vci_ei=(-2.0*FCz_Vci_ei/FCz/FCz);
6446 FCf_CT_Vtnode_GND=(-2.0*FCz_Vtnode_GND/FCz/FCz);
6447 #endif
6448 FCf_CT=(2.0/FCz);
6449 #if defined(_DERIVATE)
6450 FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
6451 FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
6452 FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
6453 FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
6454 #endif
6455 FCw2=(FCw*FCw);
6456 #if defined(_DERIVATE)
6457 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);
6458 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);
6459 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);
6460 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);
6461 #endif
6462 FCf1=((((((latb*latl)*FCw)*FCw2)/3.0)+(((latb+latl)*FCw2)/2.0))+FCw);
6463 #if defined(_DERIVATE)
6464 FCdf1_dw_Vci_ei=(((latb*latl)*FCw2_Vci_ei)+((latb+latl)*FCw_Vci_ei));
6465 FCdf1_dw_Vtnode_GND=(((latb*latl)*FCw2_Vtnode_GND)+((latb+latl)*FCw_Vtnode_GND));
6466 FCdf1_dw_Vbi_ei=(((latb*latl)*FCw2_Vbi_ei)+((latb+latl)*FCw_Vbi_ei));
6467 FCdf1_dw_Vbi_ci=(((latb*latl)*FCw2_Vbi_ci)+((latb+latl)*FCw_Vbi_ci));
6468 #endif
6469 FCdf1_dw=((((latb*latl)*FCw2)+((latb+latl)*FCw))+1.0);
6470 #if defined(_DERIVATE)
6471 z_Vci_ei=(latb*FCw_Vci_ei);
6472 z_Vtnode_GND=(latb*FCw_Vtnode_GND);
6473 z_Vbi_ei=(latb*FCw_Vbi_ei);
6474 z_Vbi_ci=(latb*FCw_Vbi_ci);
6475 #endif
6476 z=(latb*FCw);
6477 {
6478 double m00_logE(d00_logE0,(1+(latb*FCw)))
6479 #if defined(_DERIVATE)
6480 double m10_logE(d10_logE0,d00_logE0,(1+(latb*FCw)))
6481 #endif
6482 #if defined(_DERIVATE)
6483 lnzb_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
6484 lnzb_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
6485 lnzb_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
6486 lnzb_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
6487 #endif
6488 lnzb=d00_logE0;
6489 }
6490 if
6491 ((z>1.0e-6))
6492 {
6493 #if defined(_DERIVATE)
6494 x_Vci_ei=z_Vci_ei;
6495 x_Vtnode_GND=z_Vtnode_GND;
6496 x_Vbi_ei=z_Vbi_ei;
6497 x_Vbi_ci=z_Vbi_ci;
6498 #endif
6499 x=(1.0+z);
6500 #if defined(_DERIVATE)
6501 a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
6502 a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
6503 a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
6504 a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
6505 #endif
6506 a=(x*x);
6507 #if defined(_DERIVATE)
6508 a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ei))));
6509 a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ci))));
6510 a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vci_ei))));
6511 a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vtnode_GND))));
6512 #endif
6513 a2=(0.250*((a*((2.0*lnzb)-1.0))+1.0));
6514 #if defined(_DERIVATE)
6515 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);
6516 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);
6517 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);
6518 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);
6519 #endif
6520 a3=((((a*x)*((3.0*lnzb)-1.0))+1.0)/9.0);
6521 r=(latl/latb);
6522 #if defined(_DERIVATE)
6523 FCf2_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latb);
6524 FCf2_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latb);
6525 FCf2_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latb);
6526 FCf2_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latb);
6527 #endif
6528 FCf2=((((1.0-r)*a2)+(r*a3))/latb);
6529 #if defined(_DERIVATE)
6530 FCdf2_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vci_ei));
6531 FCdf2_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vtnode_GND));
6532 FCdf2_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ei));
6533 FCdf2_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ci));
6534 #endif
6535 FCdf2_dw=((((1.0-r)*x)+(r*a))*lnzb);
6536 }
6537 else
6538 {
6539 #if defined(_DERIVATE)
6540 a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
6541 a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
6542 a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
6543 a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
6544 #endif
6545 a=(z*z);
6546 #if defined(_DERIVATE)
6547 a2_Vbi_ei=((z_Vbi_ei-(0.25*a_Vbi_ei))+(((0.10*z_Vbi_ei)*a)+((0.10*z)*a_Vbi_ei)));
6548 a2_Vbi_ci=((z_Vbi_ci-(0.25*a_Vbi_ci))+(((0.10*z_Vbi_ci)*a)+((0.10*z)*a_Vbi_ci)));
6549 a2_Vci_ei=((z_Vci_ei-(0.25*a_Vci_ei))+(((0.10*z_Vci_ei)*a)+((0.10*z)*a_Vci_ei)));
6550 a2_Vtnode_GND=((z_Vtnode_GND-(0.25*a_Vtnode_GND))+(((0.10*z_Vtnode_GND)*a)+((0.10*z)*a_Vtnode_GND)));
6551 #endif
6552 a2=(((3.0+z)-(0.25*a))+((0.10*z)*a));
6553 #if defined(_DERIVATE)
6554 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)));
6555 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)));
6556 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)));
6557 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)));
6558 #endif
6559 a3=(((2.0*z)+(0.75*a))-((0.20*a)*z));
6560 #if defined(_DERIVATE)
6561 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);
6562 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);
6563 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);
6564 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);
6565 #endif
6566 FCf2=(((((latb*a2)+(latl*a3))*FCw)*FCw)/6.0);
6567 #if defined(_DERIVATE)
6568 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));
6569 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));
6570 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));
6571 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));
6572 #endif
6573 FCdf2_dw=(((1+(latl*FCw))*(1+z))*lnzb);
6574 }
6575 #if defined(_DERIVATE)
6576 z_Vci_ei=(latl*FCw_Vci_ei);
6577 z_Vtnode_GND=(latl*FCw_Vtnode_GND);
6578 z_Vbi_ei=(latl*FCw_Vbi_ei);
6579 z_Vbi_ci=(latl*FCw_Vbi_ci);
6580 #endif
6581 z=(latl*FCw);
6582 {
6583 double m00_logE(d00_logE0,(1+(latl*FCw)))
6584 #if defined(_DERIVATE)
6585 double m10_logE(d10_logE0,d00_logE0,(1+(latl*FCw)))
6586 #endif
6587 #if defined(_DERIVATE)
6588 lnzb_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
6589 lnzb_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
6590 lnzb_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
6591 lnzb_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
6592 #endif
6593 lnzb=d00_logE0;
6594 }
6595 if
6596 ((z>1.0e-6))
6597 {
6598 #if defined(_DERIVATE)
6599 x_Vci_ei=z_Vci_ei;
6600 x_Vtnode_GND=z_Vtnode_GND;
6601 x_Vbi_ei=z_Vbi_ei;
6602 x_Vbi_ci=z_Vbi_ci;
6603 #endif
6604 x=(1.0+z);
6605 #if defined(_DERIVATE)
6606 a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
6607 a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
6608 a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
6609 a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
6610 #endif
6611 a=(x*x);
6612 #if defined(_DERIVATE)
6613 a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ei))));
6614 a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ci))));
6615 a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vci_ei))));
6616 a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vtnode_GND))));
6617 #endif
6618 a2=(0.250*((a*((2.0*lnzb)-1.0))+1.0));
6619 #if defined(_DERIVATE)
6620 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);
6621 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);
6622 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);
6623 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);
6624 #endif
6625 a3=((((a*x)*((3.0*lnzb)-1.0))+1.0)/9.0);
6626 r=(latb/latl);
6627 #if defined(_DERIVATE)
6628 FCf3_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latl);
6629 FCf3_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latl);
6630 FCf3_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latl);
6631 FCf3_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latl);
6632 #endif
6633 FCf3=((((1.0-r)*a2)+(r*a3))/latl);
6634 #if defined(_DERIVATE)
6635 FCdf3_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vci_ei));
6636 FCdf3_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vtnode_GND));
6637 FCdf3_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ei));
6638 FCdf3_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ci));
6639 #endif
6640 FCdf3_dw=((((1.0-r)*x)+(r*a))*lnzb);
6641 }
6642 else
6643 {
6644 #if defined(_DERIVATE)
6645 a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
6646 a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
6647 a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
6648 a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
6649 #endif
6650 a=(z*z);
6651 #if defined(_DERIVATE)
6652 a2_Vbi_ei=((z_Vbi_ei-(0.25*a_Vbi_ei))+(((0.10*z_Vbi_ei)*a)+((0.10*z)*a_Vbi_ei)));
6653 a2_Vbi_ci=((z_Vbi_ci-(0.25*a_Vbi_ci))+(((0.10*z_Vbi_ci)*a)+((0.10*z)*a_Vbi_ci)));
6654 a2_Vci_ei=((z_Vci_ei-(0.25*a_Vci_ei))+(((0.10*z_Vci_ei)*a)+((0.10*z)*a_Vci_ei)));
6655 a2_Vtnode_GND=((z_Vtnode_GND-(0.25*a_Vtnode_GND))+(((0.10*z_Vtnode_GND)*a)+((0.10*z)*a_Vtnode_GND)));
6656 #endif
6657 a2=(((3.0+z)-(0.25*a))+((0.10*z)*a));
6658 #if defined(_DERIVATE)
6659 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)));
6660 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)));
6661 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)));
6662 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)));
6663 #endif
6664 a3=(((2.0*z)+(0.75*a))-((0.20*a)*z));
6665 #if defined(_DERIVATE)
6666 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);
6667 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);
6668 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);
6669 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);
6670 #endif
6671 FCf3=(((((latl*a2)+(latb*a3))*FCw)*FCw)/6.0);
6672 #if defined(_DERIVATE)
6673 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));
6674 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));
6675 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));
6676 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));
6677 #endif
6678 FCdf3_dw=(((1+(latb*FCw))*(1+z))*lnzb);
6679 }
6680 #if defined(_DERIVATE)
6681 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)));
6682 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)));
6683 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)));
6684 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)));
6685 #endif
6686 FCf_ci=(FCf_CT*(((FCa1*FCf1)-FCf2)+FCf3));
6687 #if defined(_DERIVATE)
6688 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)));
6689 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)));
6690 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)));
6691 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)));
6692 #endif
6693 FCdfc_dw=(FCf_CT*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw));
6694 #if defined(_DERIVATE)
6695 FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
6696 FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
6697 FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
6698 FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
6699 #endif
6700 FCdw_ditf=(FCdw_daick*FCdaick_ditf);
6701 #if defined(_DERIVATE)
6702 FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
6703 FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
6704 FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
6705 FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
6706 #endif
6707 FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
6708 if
6709 (((flcomp==0.0)||(flcomp==2.1)))
6710 {
6711 #if defined(_DERIVATE)
6712 a_Vbi_ei=(latb*FCw_Vbi_ei);
6713 a_Vbi_ci=(latb*FCw_Vbi_ci);
6714 a_Vci_ei=(latb*FCw_Vci_ei);
6715 a_Vtnode_GND=(latb*FCw_Vtnode_GND);
6716 #endif
6717 a=(latb*FCw);
6718 {
6719 double m00_logE(d00_logE0,(1+(latb*FCw)))
6720 #if defined(_DERIVATE)
6721 double m10_logE(d10_logE0,d00_logE0,(1+(latb*FCw)))
6722 #endif
6723 #if defined(_DERIVATE)
6724 lnz_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
6725 lnz_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
6726 lnz_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
6727 lnz_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
6728 #endif
6729 lnz=d00_logE0;
6730 }
6731 if
6732 ((a>1.0e-6))
6733 {
6734 #if defined(_DERIVATE)
6735 FCf2_Vbi_ei=((a_Vbi_ei-lnz_Vbi_ei)/latb);
6736 FCf2_Vbi_ci=((a_Vbi_ci-lnz_Vbi_ci)/latb);
6737 FCf2_Vci_ei=((a_Vci_ei-lnz_Vci_ei)/latb);
6738 FCf2_Vtnode_GND=((a_Vtnode_GND-lnz_Vtnode_GND)/latb);
6739 #endif
6740 FCf2=((a-lnz)/latb);
6741 #if defined(_DERIVATE)
6742 FCdf2_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
6743 FCdf2_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
6744 FCdf2_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
6745 FCdf2_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
6746 #endif
6747 FCdf2_dw=(a/(1.0+a));
6748 }
6749 else
6750 {
6751 #if defined(_DERIVATE)
6752 FCf2_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
6753 FCf2_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
6754 FCf2_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
6755 FCf2_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
6756 #endif
6757 FCf2=((0.5*a)*FCw);
6758 #if defined(_DERIVATE)
6759 FCdf2_dw_Vci_ei=a_Vci_ei;
6760 FCdf2_dw_Vtnode_GND=a_Vtnode_GND;
6761 FCdf2_dw_Vbi_ei=a_Vbi_ei;
6762 FCdf2_dw_Vbi_ci=a_Vbi_ci;
6763 #endif
6764 FCdf2_dw=a;
6765 }
6766 #if defined(_DERIVATE)
6767 a_Vbi_ei=(latl*FCw_Vbi_ei);
6768 a_Vbi_ci=(latl*FCw_Vbi_ci);
6769 a_Vci_ei=(latl*FCw_Vci_ei);
6770 a_Vtnode_GND=(latl*FCw_Vtnode_GND);
6771 #endif
6772 a=(latl*FCw);
6773 {
6774 double m00_logE(d00_logE0,(1+(latl*FCw)))
6775 #if defined(_DERIVATE)
6776 double m10_logE(d10_logE0,d00_logE0,(1+(latl*FCw)))
6777 #endif
6778 #if defined(_DERIVATE)
6779 lnz_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
6780 lnz_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
6781 lnz_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
6782 lnz_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
6783 #endif
6784 lnz=d00_logE0;
6785 }
6786 if
6787 ((a>1.0e-6))
6788 {
6789 #if defined(_DERIVATE)
6790 FCf3_Vbi_ei=((a_Vbi_ei-lnz_Vbi_ei)/latl);
6791 FCf3_Vbi_ci=((a_Vbi_ci-lnz_Vbi_ci)/latl);
6792 FCf3_Vci_ei=((a_Vci_ei-lnz_Vci_ei)/latl);
6793 FCf3_Vtnode_GND=((a_Vtnode_GND-lnz_Vtnode_GND)/latl);
6794 #endif
6795 FCf3=((a-lnz)/latl);
6796 #if defined(_DERIVATE)
6797 FCdf3_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
6798 FCdf3_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
6799 FCdf3_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
6800 FCdf3_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
6801 #endif
6802 FCdf3_dw=(a/(1.0+a));
6803 }
6804 else
6805 {
6806 #if defined(_DERIVATE)
6807 FCf3_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
6808 FCf3_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
6809 FCf3_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
6810 FCf3_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
6811 #endif
6812 FCf3=((0.5*a)*FCw);
6813 #if defined(_DERIVATE)
6814 FCdf3_dw_Vci_ei=a_Vci_ei;
6815 FCdf3_dw_Vtnode_GND=a_Vtnode_GND;
6816 FCdf3_dw_Vbi_ei=a_Vbi_ei;
6817 FCdf3_dw_Vbi_ci=a_Vbi_ci;
6818 #endif
6819 FCdf3_dw=a;
6820 }
6821 #if defined(_DERIVATE)
6822 FCf_CT_Vbi_ei=((FCf_CT_Vbi_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ei-FCf3_Vbi_ei)));
6823 FCf_CT_Vbi_ci=((FCf_CT_Vbi_ci*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ci-FCf3_Vbi_ci)));
6824 FCf_CT_Vci_ei=((FCf_CT_Vci_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vci_ei-FCf3_Vci_ei)));
6825 FCf_CT_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCf2-FCf3))+(FCf_CT*(FCf2_Vtnode_GND-FCf3_Vtnode_GND)));
6826 #endif
6827 FCf_CT=(FCf_CT*(FCf2-FCf3));
6828 #if defined(_DERIVATE)
6829 FCdfCT_dw_Vbi_ei=((FCf_CT_Vbi_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ei-FCdf3_dw_Vbi_ei)));
6830 FCdfCT_dw_Vbi_ci=((FCf_CT_Vbi_ci*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ci-FCdf3_dw_Vbi_ci)));
6831 FCdfCT_dw_Vci_ei=((FCf_CT_Vci_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vci_ei-FCdf3_dw_Vci_ei)));
6832 FCdfCT_dw_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vtnode_GND-FCdf3_dw_Vtnode_GND)));
6833 #endif
6834 FCdfCT_dw=(FCf_CT*(FCdf2_dw-FCdf3_dw));
6835 #if defined(_DERIVATE)
6836 FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
6837 FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
6838 FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
6839 FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
6840 #endif
6841 FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
6842 }
6843 else
6844 {
6845 #if defined(_DERIVATE)
6846 FCf_CT_Vbi_ei=FCf_ci_Vbi_ei;
6847 FCf_CT_Vbi_ci=FCf_ci_Vbi_ci;
6848 FCf_CT_Vci_ei=FCf_ci_Vci_ei;
6849 FCf_CT_Vtnode_GND=FCf_ci_Vtnode_GND;
6850 #endif
6851 FCf_CT=FCf_ci;
6852 #if defined(_DERIVATE)
6853 FCdfCT_ditf_Vbi_ei=FCdfc_ditf_Vbi_ei;
6854 FCdfCT_ditf_Vbi_ci=FCdfc_ditf_Vbi_ci;
6855 FCdfCT_ditf_Vci_ei=FCdfc_ditf_Vci_ei;
6856 FCdfCT_ditf_Vtnode_GND=FCdfc_ditf_Vtnode_GND;
6857 #endif
6858 FCdfCT_ditf=FCdfc_ditf;
6859 }
6860 }
6861 else
6862 {
6863 if
6864 ((latb>0.01))
6865 {
6866 #if defined(_DERIVATE)
6867 FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6868 FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6869 FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6870 FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6871 #endif
6872 FCd_a=(1.0/(1.0+(FCa_ck*latb)));
6873 #if defined(_DERIVATE)
6874 FCw_Vci_ei=(((-FCa_ck_Vci_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vci_ei));
6875 FCw_Vtnode_GND=(((-FCa_ck_Vtnode_GND)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vtnode_GND));
6876 FCw_Vbi_ei=(((-FCa_ck_Vbi_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ei));
6877 FCw_Vbi_ci=(((-FCa_ck_Vbi_ci)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ci));
6878 #endif
6879 FCw=((1.0-FCa_ck)*FCd_a);
6880 #if defined(_DERIVATE)
6881 FCdw_daick_Vci_ei=((((-(1.0+latb))*FCd_a_Vci_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vci_ei));
6882 FCdw_daick_Vtnode_GND=((((-(1.0+latb))*FCd_a_Vtnode_GND)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vtnode_GND));
6883 FCdw_daick_Vbi_ei=((((-(1.0+latb))*FCd_a_Vbi_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ei));
6884 FCdw_daick_Vbi_ci=((((-(1.0+latb))*FCd_a_Vbi_ci)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ci));
6885 #endif
6886 FCdw_daick=(((-(1.0+latb))*FCd_a)*FCd_a);
6887 }
6888 else
6889 {
6890 #if defined(_DERIVATE)
6891 FCw_Vci_ei=((-FCa_ck_Vci_ei)-FCa_ck_Vci_ei*latb);
6892 FCw_Vtnode_GND=((-FCa_ck_Vtnode_GND)-FCa_ck_Vtnode_GND*latb);
6893 FCw_Vbi_ei=((-FCa_ck_Vbi_ei)-FCa_ck_Vbi_ei*latb);
6894 FCw_Vbi_ci=((-FCa_ck_Vbi_ci)-FCa_ck_Vbi_ci*latb);
6895 #endif
6896 FCw=((1.0-FCa_ck)-(FCa_ck*latb));
6897 #if defined(_DERIVATE)
6898 FCdw_daick_Vci_ei=0.0;
6899 FCdw_daick_Vtnode_GND=0.0;
6900 FCdw_daick_Vbi_ei=0.0;
6901 FCdw_daick_Vbi_ci=0.0;
6902 #endif
6903 FCdw_daick=(-(1.0+latb));
6904 }
6905 #if defined(_DERIVATE)
6906 FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
6907 FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
6908 FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
6909 FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
6910 #endif
6911 FCw2=(FCw*FCw);
6912 #if defined(_DERIVATE)
6913 FCz_Vci_ei=(latb*FCw_Vci_ei);
6914 FCz_Vtnode_GND=(latb*FCw_Vtnode_GND);
6915 FCz_Vbi_ei=(latb*FCw_Vbi_ei);
6916 FCz_Vbi_ci=(latb*FCw_Vbi_ci);
6917 #endif
6918 FCz=(latb*FCw);
6919 #if defined(_DERIVATE)
6920 FCz_1_Vci_ei=FCz_Vci_ei;
6921 FCz_1_Vtnode_GND=FCz_Vtnode_GND;
6922 FCz_1_Vbi_ei=FCz_Vbi_ei;
6923 FCz_1_Vbi_ci=FCz_Vbi_ci;
6924 #endif
6925 FCz_1=(1.0+FCz);
6926 #if defined(_DERIVATE)
6927 FCd_f_Vci_ei=(-FCz_1_Vci_ei/FCz_1/FCz_1);
6928 FCd_f_Vtnode_GND=(-FCz_1_Vtnode_GND/FCz_1/FCz_1);
6929 FCd_f_Vbi_ei=(-FCz_1_Vbi_ei/FCz_1/FCz_1);
6930 FCd_f_Vbi_ci=(-FCz_1_Vbi_ci/FCz_1/FCz_1);
6931 #endif
6932 FCd_f=(1.0/FCz_1);
6933 #if defined(_DERIVATE)
6934 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));
6935 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));
6936 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));
6937 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));
6938 #endif
6939 FCf_ci=((FCw2*(1.0+(FCz/3.0)))*FCd_f);
6940 #if defined(_DERIVATE)
6941 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));
6942 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));
6943 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));
6944 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));
6945 #endif
6946 FCdfc_dw=((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
6947 #if defined(_DERIVATE)
6948 FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
6949 FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
6950 FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
6951 FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
6952 #endif
6953 FCdw_ditf=(FCdw_daick*FCdaick_ditf);
6954 #if defined(_DERIVATE)
6955 FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
6956 FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
6957 FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
6958 FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
6959 #endif
6960 FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
6961 if
6962 (((flcomp==0.0)||(flcomp==2.1)))
6963 {
6964 if
6965 ((FCz>0.001))
6966 {
6967 {
6968 double m00_logE(d00_logE0,FCz_1)
6969 #if defined(_DERIVATE)
6970 double m10_logE(d10_logE0,d00_logE0,FCz_1)
6971 #endif
6972 #if defined(_DERIVATE)
6973 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));
6974 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));
6975 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));
6976 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));
6977 #endif
6978 FCf_CT=((2.0*((FCz_1*d00_logE0)-FCz))/((latb*latb)*FCz_1));
6979 }
6980 #if defined(_DERIVATE)
6981 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));
6982 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));
6983 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));
6984 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));
6985 #endif
6986 FCdfCT_dw=(((2.0*FCw)*FCd_f)*FCd_f);
6987 }
6988 else
6989 {
6990 #if defined(_DERIVATE)
6991 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));
6992 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));
6993 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));
6994 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));
6995 #endif
6996 FCf_CT=((FCw2*(1.0-(FCz/3.0)))*FCd_f);
6997 #if defined(_DERIVATE)
6998 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));
6999 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));
7000 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));
7001 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));
7002 #endif
7003 FCdfCT_dw=((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
7004 }
7005 #if defined(_DERIVATE)
7006 FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
7007 FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
7008 FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
7009 FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
7010 #endif
7011 FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
7012 }
7013 else
7014 {
7015 #if defined(_DERIVATE)
7016 FCf_CT_Vbi_ei=FCf_ci_Vbi_ei;
7017 FCf_CT_Vbi_ci=FCf_ci_Vbi_ci;
7018 FCf_CT_Vci_ei=FCf_ci_Vci_ei;
7019 FCf_CT_Vtnode_GND=FCf_ci_Vtnode_GND;
7020 #endif
7021 FCf_CT=FCf_ci;
7022 #if defined(_DERIVATE)
7023 FCdfCT_ditf_Vbi_ei=FCdfc_ditf_Vbi_ei;
7024 FCdfCT_ditf_Vbi_ci=FCdfc_ditf_Vbi_ci;
7025 FCdfCT_ditf_Vci_ei=FCdfc_ditf_Vci_ei;
7026 FCdfCT_ditf_Vtnode_GND=FCdfc_ditf_Vtnode_GND;
7027 #endif
7028 FCdfCT_ditf=FCdfc_ditf;
7029 }
7030 }
7031 #if defined(_DERIVATE)
7032 FFQ_cT_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_CT)+(FFQ_fC*FCf_CT_Vtnode_GND));
7033 FFQ_cT_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ei));
7034 FFQ_cT_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ci));
7035 FFQ_cT_Vci_ei=((FFQ_fC_Vci_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vci_ei));
7036 #endif
7037 FFQ_cT=(FFQ_fC*FCf_CT);
7038 #if defined(_DERIVATE)
7039 FFQ_fC_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_ci)+(FFQ_fC*FCf_ci_Vtnode_GND));
7040 FFQ_fC_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ei));
7041 FFQ_fC_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ci));
7042 FFQ_fC_Vci_ei=((FFQ_fC_Vci_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vci_ei));
7043 #endif
7044 FFQ_fC=(FFQ_fC*FCf_ci);
7045 #if defined(_DERIVATE)
7046 FFT_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*(FCf_ci+(itf*FCdfc_ditf)))+(FFT_pcS*(FCf_ci_Vtnode_GND+((itf_Vtnode_GND*FCdfc_ditf)+(itf*FCdfc_ditf_Vtnode_GND)))));
7047 FFT_fC_Vci_ei=(FFT_pcS*(FCf_ci_Vci_ei+((itf_Vci_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vci_ei))));
7048 FFT_fC_Vbi_ei=(FFT_pcS*(FCf_ci_Vbi_ei+((itf_Vbi_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ei))));
7049 FFT_fC_Vbi_ci=(FFT_pcS*(FCf_ci_Vbi_ci+((itf_Vbi_ci*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ci))));
7050 #endif
7051 FFT_fC=(FFT_pcS*(FCf_ci+(itf*FCdfc_ditf)));
7052 #if defined(_DERIVATE)
7053 FFT_cT_Vtnode_GND=((FFT_pcS_Vtnode_GND*(FCf_CT+(itf*FCdfCT_ditf)))+(FFT_pcS*(FCf_CT_Vtnode_GND+((itf_Vtnode_GND*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vtnode_GND)))));
7054 FFT_cT_Vci_ei=(FFT_pcS*(FCf_CT_Vci_ei+((itf_Vci_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vci_ei))));
7055 FFT_cT_Vbi_ei=(FFT_pcS*(FCf_CT_Vbi_ei+((itf_Vbi_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ei))));
7056 FFT_cT_Vbi_ci=(FFT_pcS*(FCf_CT_Vbi_ci+((itf_Vbi_ci*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ci))));
7057 #endif
7058 FFT_cT=(FFT_pcS*(FCf_CT+(itf*FCdfCT_ditf)));
7059 }
7060 #if defined(_DERIVATE)
7061 Qf_Vci_ei=(Qf_Vci_ei+FFd_QfB_Vci_ei);
7062 Qf_Vtnode_GND=(Qf_Vtnode_GND+FFd_QfB_Vtnode_GND);
7063 Qf_Vbi_ci=(Qf_Vbi_ci+FFd_QfB_Vbi_ci);
7064 Qf_Vbi_ei=(Qf_Vbi_ei+FFd_QfB_Vbi_ei);
7065 #endif
7066 Qf=(Qf+FFd_QfB);
7067 #if defined(_DERIVATE)
7068 Tf_Vci_ei=(Tf_Vci_ei+FFd_TfB_Vci_ei);
7069 Tf_Vbi_ei=(Tf_Vbi_ei+FFd_TfB_Vbi_ei);
7070 Tf_Vtnode_GND=(Tf_Vtnode_GND+FFd_TfB_Vtnode_GND);
7071 Tf_Vbi_ci=(Tf_Vbi_ci+FFd_TfB_Vbi_ci);
7072 #endif
7073 Tf=(Tf+FFd_TfB);
7074 #if defined(_DERIVATE)
7075 Q_fT_Vci_ei=((Qf_Vci_ei+(hfe*FFd_QfE_Vci_ei))+(hfc*FFQ_cT_Vci_ei));
7076 Q_fT_Vtnode_GND=((Qf_Vtnode_GND+(hfe*FFd_QfE_Vtnode_GND))+(hfc*FFQ_cT_Vtnode_GND));
7077 Q_fT_Vbi_ci=((Qf_Vbi_ci+(hfe*FFd_QfE_Vbi_ci))+(hfc*FFQ_cT_Vbi_ci));
7078 Q_fT_Vbi_ei=((Qf_Vbi_ei+(hfe*FFd_QfE_Vbi_ei))+(hfc*FFQ_cT_Vbi_ei));
7079 #endif
7080 Q_fT=((Qf+(hfe*FFd_QfE))+(hfc*FFQ_cT));
7081 #if defined(_DERIVATE)
7082 T_fT_Vci_ei=((Tf_Vci_ei+(hfe*FFd_TfE_Vci_ei))+(hfc*FFT_cT_Vci_ei));
7083 T_fT_Vbi_ei=((Tf_Vbi_ei+(hfe*FFd_TfE_Vbi_ei))+(hfc*FFT_cT_Vbi_ei));
7084 T_fT_Vtnode_GND=((Tf_Vtnode_GND+(hfe*FFd_TfE_Vtnode_GND))+(hfc*FFT_cT_Vtnode_GND));
7085 T_fT_Vbi_ci=((Tf_Vbi_ci+(hfe*FFd_TfE_Vbi_ci))+(hfc*FFT_cT_Vbi_ci));
7086 #endif
7087 T_fT=((Tf+(hfe*FFd_TfE))+(hfc*FFT_cT));
7088 #if defined(_DERIVATE)
7089 Qf_Vci_ei=((Qf_Vci_ei+FFd_QfE_Vci_ei)+FFQ_fC_Vci_ei);
7090 Qf_Vtnode_GND=((Qf_Vtnode_GND+FFd_QfE_Vtnode_GND)+FFQ_fC_Vtnode_GND);
7091 Qf_Vbi_ci=((Qf_Vbi_ci+FFd_QfE_Vbi_ci)+FFQ_fC_Vbi_ci);
7092 Qf_Vbi_ei=((Qf_Vbi_ei+FFd_QfE_Vbi_ei)+FFQ_fC_Vbi_ei);
7093 #endif
7094 Qf=((Qf+FFd_QfE)+FFQ_fC);
7095 #if defined(_DERIVATE)
7096 Tf_Vci_ei=((Tf_Vci_ei+FFd_TfE_Vci_ei)+FFT_fC_Vci_ei);
7097 Tf_Vbi_ei=((Tf_Vbi_ei+FFd_TfE_Vbi_ei)+FFT_fC_Vbi_ei);
7098 Tf_Vtnode_GND=((Tf_Vtnode_GND+FFd_TfE_Vtnode_GND)+FFT_fC_Vtnode_GND);
7099 Tf_Vbi_ci=((Tf_Vbi_ci+FFd_TfE_Vbi_ci)+FFT_fC_Vbi_ci);
7100 #endif
7101 Tf=((Tf+FFd_TfE)+FFT_fC);
7102 }
7103 #if defined(_DERIVATE)
7104 Qr_Vci_ei=(Tr*itr_Vci_ei);
7105 Qr_Vtnode_GND=(Tr*itr_Vtnode_GND);
7106 Qr_Vbi_ci=(Tr*itr_Vbi_ci);
7107 Qr_Vbi_ei=(Tr*itr_Vbi_ei);
7108 #endif
7109 Qr=(Tr*itr);
7110 if
7111 ((Oich==0.0))
7112 {
7113 #if defined(_DERIVATE)
7114 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);
7115 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);
7116 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);
7117 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);
7118 #endif
7119 a=(1.0+(((T_fT*itf)+Qr)/Q_pT));
7120 }
7121 else
7122 {
7123 #if defined(_DERIVATE)
7124 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);
7125 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);
7126 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);
7127 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);
7128 #endif
7129 a=(1.0+((((T_fT*I_Tf1)*(1.0+(2.0*a_h)))+Qr)/Q_pT));
7130 }
7131 #if defined(_DERIVATE)
7132 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);
7133 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);
7134 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);
7135 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);
7136 #endif
7137 d_Q=((-(Q_pT-((Q_0+Q_fT)+Qr)))/a);
7138 {
7139 double m00_fabs(d00_fabs0,(0.3*Q_pT))
7140 #if defined(_DERIVATE)
7141 double m10_fabs(d10_fabs0,d00_fabs0,(0.3*Q_pT))
7142 #endif
7143 #if defined(_DERIVATE)
7144 a_Vbi_ei=(0.3*Q_pT_Vbi_ei)*d10_fabs0;
7145 a_Vbi_ci=(0.3*Q_pT_Vbi_ci)*d10_fabs0;
7146 a_Vci_ei=(0.3*Q_pT_Vci_ei)*d10_fabs0;
7147 a_Vtnode_GND=(0.3*Q_pT_Vtnode_GND)*d10_fabs0;
7148 #endif
7149 a=d00_fabs0;
7150 }
7151 {
7152 double m00_fabs(d00_fabs0,d_Q)
7153 if
7154 ((d00_fabs0>a))
7155 {
7156 if
7157 ((d_Q>=0))
7158 {
7159 #if defined(_DERIVATE)
7160 d_Q_Vtnode_GND=a_Vtnode_GND;
7161 d_Q_Vbi_ei=a_Vbi_ei;
7162 d_Q_Vbi_ci=a_Vbi_ci;
7163 d_Q_Vci_ei=a_Vci_ei;
7164 #endif
7165 d_Q=a;
7166 }
7167 else
7168 {
7169 #if defined(_DERIVATE)
7170 d_Q_Vtnode_GND=(-a_Vtnode_GND);
7171 d_Q_Vbi_ei=(-a_Vbi_ei);
7172 d_Q_Vbi_ci=(-a_Vbi_ci);
7173 d_Q_Vci_ei=(-a_Vci_ei);
7174 #endif
7175 d_Q=(-a);
7176 }
7177 }
7178 }
7179 #if defined(_DERIVATE)
7180 Q_pT_Vtnode_GND=(Q_pT_Vtnode_GND+d_Q_Vtnode_GND);
7181 Q_pT_Vbi_ei=(Q_pT_Vbi_ei+d_Q_Vbi_ei);
7182 Q_pT_Vbi_ci=(Q_pT_Vbi_ci+d_Q_Vbi_ci);
7183 Q_pT_Vci_ei=(Q_pT_Vci_ei+d_Q_Vci_ei);
7184 #endif
7185 Q_pT=(Q_pT+d_Q);
7186 l_it=(l_it+1);
7187 }
7188 #if defined(_DERIVATE)
7189 I_Tf1_Vci_ei=(-i_0f*Q_pT_Vci_ei/Q_pT/Q_pT);
7190 I_Tf1_Vtnode_GND=((i_0f_Vtnode_GND*Q_pT-i_0f*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
7191 I_Tf1_Vbi_ei=((i_0f_Vbi_ei*Q_pT-i_0f*Q_pT_Vbi_ei)/Q_pT/Q_pT);
7192 I_Tf1_Vbi_ci=(-i_0f*Q_pT_Vbi_ci/Q_pT/Q_pT);
7193 #endif
7194 I_Tf1=(i_0f/Q_pT);
7195 #if defined(_DERIVATE)
7196 a_h_Vci_ei=(Oich*I_Tf1_Vci_ei);
7197 a_h_Vtnode_GND=(Oich*I_Tf1_Vtnode_GND);
7198 a_h_Vbi_ei=(Oich*I_Tf1_Vbi_ei);
7199 a_h_Vbi_ci=(Oich*I_Tf1_Vbi_ci);
7200 #endif
7201 a_h=(Oich*I_Tf1);
7202 #if defined(_DERIVATE)
7203 itf_Vci_ei=((I_Tf1_Vci_ei*(1.0+a_h))+(I_Tf1*a_h_Vci_ei));
7204 itf_Vtnode_GND=((I_Tf1_Vtnode_GND*(1.0+a_h))+(I_Tf1*a_h_Vtnode_GND));
7205 itf_Vbi_ei=((I_Tf1_Vbi_ei*(1.0+a_h))+(I_Tf1*a_h_Vbi_ei));
7206 itf_Vbi_ci=((I_Tf1_Vbi_ci*(1.0+a_h))+(I_Tf1*a_h_Vbi_ci));
7207 #endif
7208 itf=(I_Tf1*(1.0+a_h));
7209 #if defined(_DERIVATE)
7210 itr_Vci_ei=(-i_0r*Q_pT_Vci_ei/Q_pT/Q_pT);
7211 itr_Vtnode_GND=((i_0r_Vtnode_GND*Q_pT-i_0r*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
7212 itr_Vbi_ci=((i_0r_Vbi_ci*Q_pT-i_0r*Q_pT_Vbi_ci)/Q_pT/Q_pT);
7213 itr_Vbi_ei=(-i_0r*Q_pT_Vbi_ei/Q_pT/Q_pT);
7214 #endif
7215 itr=(i_0r/Q_pT);
7216 #if defined(_DERIVATE)
7217 Tf_Vci_ei=0.0;
7218 Tf_Vbi_ei=0.0;
7219 Tf_Vtnode_GND=T_f0_Vtnode_GND;
7220 Tf_Vbi_ci=T_f0_Vbi_ci;
7221 #endif
7222 Tf=T_f0;
7223 #if defined(_DERIVATE)
7224 Qf_Vci_ei=(T_f0*itf_Vci_ei);
7225 Qf_Vtnode_GND=((T_f0_Vtnode_GND*itf)+(T_f0*itf_Vtnode_GND));
7226 Qf_Vbi_ci=((T_f0_Vbi_ci*itf)+(T_f0*itf_Vbi_ci));
7227 Qf_Vbi_ei=(T_f0*itf_Vbi_ei);
7228 #endif
7229 Qf=(T_f0*itf);
7230 if
7231 ((itf<(1.0e-6*ick)))
7232 {
7233 #if defined(_DYNAMIC)
7234 #if defined(_DERIVATE)
7235 Q_fT_Vci_ei=Qf_Vci_ei;
7236 Q_fT_Vtnode_GND=Qf_Vtnode_GND;
7237 Q_fT_Vbi_ci=Qf_Vbi_ci;
7238 Q_fT_Vbi_ei=Qf_Vbi_ei;
7239 #endif
7240 Q_fT=Qf;
7241 #endif
7242 #if defined(_DYNAMIC)
7243 #if defined(_DERIVATE)
7244 T_fT_Vci_ei=Tf_Vci_ei;
7245 T_fT_Vbi_ei=Tf_Vbi_ei;
7246 T_fT_Vtnode_GND=Tf_Vtnode_GND;
7247 T_fT_Vbi_ci=Tf_Vbi_ci;
7248 #endif
7249 T_fT=Tf;
7250 #endif
7251 }
7252 else
7253 {
7254 #if defined(_DERIVATE)
7255 FFa_Vci_ei=((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf);
7256 FFa_Vtnode_GND=((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf);
7257 FFa_Vbi_ei=(-ick*itf_Vbi_ei/itf/itf);
7258 FFa_Vbi_ci=(-ick*itf_Vbi_ci/itf/itf);
7259 #endif
7260 FFa=(ick/itf);
7261 {
7262 double m00_logE(d00_logE0,FFa)
7263 double m00_exp(d00_exp1,((-gtfe)*d00_logE0))
7264 #if defined(_DERIVATE)
7265 double m10_logE(d10_logE0,d00_logE0,FFa)
7266 #define d10_exp1 d00_exp1
7267 #endif
7268 #if defined(_DERIVATE)
7269 FFd_TfE_Vtnode_GND=((tef0_t_Vtnode_GND*d00_exp1)+(tef0_t*((-gtfe)*FFa_Vtnode_GND*d10_logE0)*d10_exp1));
7270 FFd_TfE_Vci_ei=(tef0_t*((-gtfe)*FFa_Vci_ei*d10_logE0)*d10_exp1);
7271 FFd_TfE_Vbi_ei=(tef0_t*((-gtfe)*FFa_Vbi_ei*d10_logE0)*d10_exp1);
7272 FFd_TfE_Vbi_ci=(tef0_t*((-gtfe)*FFa_Vbi_ci*d10_logE0)*d10_exp1);
7273 #endif
7274 FFd_TfE=(tef0_t*d00_exp1);
7275 }
7276 #if defined(_DERIVATE)
7277 FFd_QfE_Vtnode_GND=(((FFd_TfE_Vtnode_GND*itf)+(FFd_TfE*itf_Vtnode_GND))/(gtfe+1.0));
7278 FFd_QfE_Vci_ei=(((FFd_TfE_Vci_ei*itf)+(FFd_TfE*itf_Vci_ei))/(gtfe+1.0));
7279 FFd_QfE_Vbi_ei=(((FFd_TfE_Vbi_ei*itf)+(FFd_TfE*itf_Vbi_ei))/(gtfe+1.0));
7280 FFd_QfE_Vbi_ci=(((FFd_TfE_Vbi_ci*itf)+(FFd_TfE*itf_Vbi_ci))/(gtfe+1.0));
7281 #endif
7282 FFd_QfE=((FFd_TfE*itf)/(gtfe+1.0));
7283 #if defined(_DERIVATE)
7284 FFT_fbS_Vtnode_GND=((1.0-fthc)*thcs_t_Vtnode_GND);
7285 #endif
7286 FFT_fbS=((1.0-fthc)*thcs_t);
7287 #if defined(_DERIVATE)
7288 FFx_Vci_ei=(-FFa_Vci_ei);
7289 FFx_Vtnode_GND=(-FFa_Vtnode_GND);
7290 FFx_Vbi_ei=(-FFa_Vbi_ei);
7291 FFx_Vbi_ci=(-FFa_Vbi_ci);
7292 #endif
7293 FFx=(1.0-FFa);
7294 {
7295 double m00_sqrt(d00_sqrt0,((FFx*FFx)+ahc))
7296 #if defined(_DERIVATE)
7297 double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFx*FFx)+ahc))
7298 #endif
7299 #if defined(_DERIVATE)
7300 FFs_Vci_ei=((FFx_Vci_ei*FFx)+(FFx*FFx_Vci_ei))*d10_sqrt0;
7301 FFs_Vtnode_GND=((FFx_Vtnode_GND*FFx)+(FFx*FFx_Vtnode_GND))*d10_sqrt0;
7302 FFs_Vbi_ei=((FFx_Vbi_ei*FFx)+(FFx*FFx_Vbi_ei))*d10_sqrt0;
7303 FFs_Vbi_ci=((FFx_Vbi_ci*FFx)+(FFx*FFx_Vbi_ci))*d10_sqrt0;
7304 #endif
7305 FFs=d00_sqrt0;
7306 }
7307 {
7308 double m00_sqrt(d00_sqrt0,(1.0+ahc))
7309 #if defined(_DERIVATE)
7310 FFw_Vci_ei=((FFx_Vci_ei+FFs_Vci_ei)/(1.0+d00_sqrt0));
7311 FFw_Vtnode_GND=((FFx_Vtnode_GND+FFs_Vtnode_GND)/(1.0+d00_sqrt0));
7312 FFw_Vbi_ei=((FFx_Vbi_ei+FFs_Vbi_ei)/(1.0+d00_sqrt0));
7313 FFw_Vbi_ci=((FFx_Vbi_ci+FFs_Vbi_ci)/(1.0+d00_sqrt0));
7314 #endif
7315 FFw=((FFx+FFs)/(1.0+d00_sqrt0));
7316 }
7317 #if defined(_DERIVATE)
7318 FFw_2_Vci_ei=((FFw_Vci_ei*FFw)+(FFw*FFw_Vci_ei));
7319 FFw_2_Vtnode_GND=((FFw_Vtnode_GND*FFw)+(FFw*FFw_Vtnode_GND));
7320 FFw_2_Vbi_ei=((FFw_Vbi_ei*FFw)+(FFw*FFw_Vbi_ei));
7321 FFw_2_Vbi_ci=((FFw_Vbi_ci*FFw)+(FFw*FFw_Vbi_ci));
7322 #endif
7323 FFw_2=(FFw*FFw);
7324 #if defined(_DERIVATE)
7325 FFd_QfB_Vtnode_GND=((((FFT_fbS_Vtnode_GND*itf)+(FFT_fbS*itf_Vtnode_GND))*FFw_2)+((FFT_fbS*itf)*FFw_2_Vtnode_GND));
7326 FFd_QfB_Vbi_ei=(((FFT_fbS*itf_Vbi_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ei));
7327 FFd_QfB_Vbi_ci=(((FFT_fbS*itf_Vbi_ci)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ci));
7328 FFd_QfB_Vci_ei=(((FFT_fbS*itf_Vci_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vci_ei));
7329 #endif
7330 FFd_QfB=((FFT_fbS*itf)*FFw_2);
7331 #if defined(_DERIVATE)
7332 Q_bf_Vtnode_GND=FFd_QfB_Vtnode_GND;
7333 Q_bf_Vbi_ei=FFd_QfB_Vbi_ei;
7334 Q_bf_Vbi_ci=FFd_QfB_Vbi_ci;
7335 Q_bf_Vci_ei=FFd_QfB_Vci_ei;
7336 #endif
7337 Q_bf=FFd_QfB;
7338 #if defined(_DERIVATE)
7339 FFa_w_Vci_ei=((FFw_2_Vci_ei*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vci_ei)*FFs-(2.0*FFa)*FFs_Vci_ei)/FFs/FFs)));
7340 FFa_w_Vtnode_GND=((FFw_2_Vtnode_GND*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vtnode_GND)*FFs-(2.0*FFa)*FFs_Vtnode_GND)/FFs/FFs)));
7341 FFa_w_Vbi_ei=((FFw_2_Vbi_ei*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vbi_ei)*FFs-(2.0*FFa)*FFs_Vbi_ei)/FFs/FFs)));
7342 FFa_w_Vbi_ci=((FFw_2_Vbi_ci*(1.0+((2.0*FFa)/FFs)))+(FFw_2*(((2.0*FFa_Vbi_ci)*FFs-(2.0*FFa)*FFs_Vbi_ci)/FFs/FFs)));
7343 #endif
7344 FFa_w=(FFw_2*(1.0+((2.0*FFa)/FFs)));
7345 #if defined(_DERIVATE)
7346 FFd_TfB_Vtnode_GND=((FFT_fbS_Vtnode_GND*FFa_w)+(FFT_fbS*FFa_w_Vtnode_GND));
7347 FFd_TfB_Vci_ei=(FFT_fbS*FFa_w_Vci_ei);
7348 FFd_TfB_Vbi_ei=(FFT_fbS*FFa_w_Vbi_ei);
7349 FFd_TfB_Vbi_ci=(FFT_fbS*FFa_w_Vbi_ci);
7350 #endif
7351 FFd_TfB=(FFT_fbS*FFa_w);
7352 #if defined(_DERIVATE)
7353 FFT_pcS_Vtnode_GND=(fthc*thcs_t_Vtnode_GND);
7354 #endif
7355 FFT_pcS=(fthc*thcs_t);
7356 if
7357 (((latb<=0.0)&&(latl<=0.0)))
7358 {
7359 #if defined(_DERIVATE)
7360 FFQ_fC_Vtnode_GND=((((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND))*FFw_2)+((FFT_pcS*itf)*FFw_2_Vtnode_GND));
7361 FFQ_fC_Vbi_ei=(((FFT_pcS*itf_Vbi_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ei));
7362 FFQ_fC_Vbi_ci=(((FFT_pcS*itf_Vbi_ci)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ci));
7363 FFQ_fC_Vci_ei=(((FFT_pcS*itf_Vci_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vci_ei));
7364 #endif
7365 FFQ_fC=((FFT_pcS*itf)*FFw_2);
7366 #if defined(_DERIVATE)
7367 FFT_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*FFa_w)+(FFT_pcS*FFa_w_Vtnode_GND));
7368 FFT_fC_Vci_ei=(FFT_pcS*FFa_w_Vci_ei);
7369 FFT_fC_Vbi_ei=(FFT_pcS*FFa_w_Vbi_ei);
7370 FFT_fC_Vbi_ci=(FFT_pcS*FFa_w_Vbi_ci);
7371 #endif
7372 FFT_fC=(FFT_pcS*FFa_w);
7373 #if defined(_DYNAMIC)
7374 #if defined(_DERIVATE)
7375 FFQ_cT_Vtnode_GND=FFQ_fC_Vtnode_GND;
7376 FFQ_cT_Vbi_ei=FFQ_fC_Vbi_ei;
7377 FFQ_cT_Vbi_ci=FFQ_fC_Vbi_ci;
7378 FFQ_cT_Vci_ei=FFQ_fC_Vci_ei;
7379 #endif
7380 FFQ_cT=FFQ_fC;
7381 #endif
7382 #if defined(_DYNAMIC)
7383 #if defined(_DERIVATE)
7384 FFT_cT_Vtnode_GND=FFT_fC_Vtnode_GND;
7385 FFT_cT_Vci_ei=FFT_fC_Vci_ei;
7386 FFT_cT_Vbi_ei=FFT_fC_Vbi_ei;
7387 FFT_cT_Vbi_ci=FFT_fC_Vbi_ci;
7388 #endif
7389 FFT_cT=FFT_fC;
7390 #endif
7391 }
7392 else
7393 {
7394 #if defined(_DERIVATE)
7395 FFQ_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND));
7396 FFQ_fC_Vbi_ei=(FFT_pcS*itf_Vbi_ei);
7397 FFQ_fC_Vbi_ci=(FFT_pcS*itf_Vbi_ci);
7398 FFQ_fC_Vci_ei=(FFT_pcS*itf_Vci_ei);
7399 #endif
7400 FFQ_fC=(FFT_pcS*itf);
7401 #if defined(_DERIVATE)
7402 FCa_Vci_ei=(-((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf));
7403 FCa_Vtnode_GND=(-((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf));
7404 FCa_Vbi_ei=(-(-ick*itf_Vbi_ei/itf/itf));
7405 FCa_Vbi_ci=(-(-ick*itf_Vbi_ci/itf/itf));
7406 #endif
7407 FCa=(1.0-(ick/itf));
7408 {
7409 double m00_sqrt(d00_sqrt0,((FCa*FCa)+ahc))
7410 #if defined(_DERIVATE)
7411 double m10_sqrt(d10_sqrt0,d00_sqrt0,((FCa*FCa)+ahc))
7412 #endif
7413 #if defined(_DERIVATE)
7414 FCrt_Vci_ei=((FCa_Vci_ei*FCa)+(FCa*FCa_Vci_ei))*d10_sqrt0;
7415 FCrt_Vtnode_GND=((FCa_Vtnode_GND*FCa)+(FCa*FCa_Vtnode_GND))*d10_sqrt0;
7416 FCrt_Vbi_ei=((FCa_Vbi_ei*FCa)+(FCa*FCa_Vbi_ei))*d10_sqrt0;
7417 FCrt_Vbi_ci=((FCa_Vbi_ci*FCa)+(FCa*FCa_Vbi_ci))*d10_sqrt0;
7418 #endif
7419 FCrt=d00_sqrt0;
7420 }
7421 {
7422 double m00_sqrt(d00_sqrt0,(1.0+ahc))
7423 #if defined(_DERIVATE)
7424 FCa_ck_Vci_ei=(-((FCa_Vci_ei+FCrt_Vci_ei)/(1.0+d00_sqrt0)));
7425 FCa_ck_Vtnode_GND=(-((FCa_Vtnode_GND+FCrt_Vtnode_GND)/(1.0+d00_sqrt0)));
7426 FCa_ck_Vbi_ei=(-((FCa_Vbi_ei+FCrt_Vbi_ei)/(1.0+d00_sqrt0)));
7427 FCa_ck_Vbi_ci=(-((FCa_Vbi_ci+FCrt_Vbi_ci)/(1.0+d00_sqrt0)));
7428 #endif
7429 FCa_ck=(1.0-((FCa+FCrt)/(1.0+d00_sqrt0)));
7430 }
7431 #if defined(_DERIVATE)
7432 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));
7433 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));
7434 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));
7435 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));
7436 #endif
7437 FCdaick_ditf=(((FCa_ck-1.0)*(1-FCa))/(FCrt*itf));
7438 if
7439 ((latb>latl))
7440 {
7441 #if defined(_DERIVATE)
7442 FCz_Vci_ei=0.0;
7443 FCz_Vtnode_GND=0.0;
7444 FCz_Vbi_ei=0.0;
7445 FCz_Vbi_ci=0.0;
7446 #endif
7447 FCz=(latb-latl);
7448 FCxl=(1.0+latl);
7449 FCxb=(1.0+latb);
7450 if
7451 ((latb>0.01))
7452 {
7453 {
7454 double m00_logE(d00_logE0,(FCxb/FCxl))
7455 FCln=d00_logE0;
7456 }
7457 {
7458 double m00_exp(d00_exp0,((FCa_ck-1.0)*FCln))
7459 #if defined(_DERIVATE)
7460 #define d10_exp0 d00_exp0
7461 #endif
7462 #if defined(_DERIVATE)
7463 FCa1_Vci_ei=FCa_ck_Vci_ei*FCln*d10_exp0;
7464 FCa1_Vtnode_GND=FCa_ck_Vtnode_GND*FCln*d10_exp0;
7465 FCa1_Vbi_ei=FCa_ck_Vbi_ei*FCln*d10_exp0;
7466 FCa1_Vbi_ci=FCa_ck_Vbi_ci*FCln*d10_exp0;
7467 #endif
7468 FCa1=d00_exp0;
7469 }
7470 #if defined(_DERIVATE)
7471 FCd_a_Vci_ei=(-(-FCa1_Vci_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
7472 FCd_a_Vtnode_GND=(-(-FCa1_Vtnode_GND*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
7473 FCd_a_Vbi_ei=(-(-FCa1_Vbi_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
7474 FCd_a_Vbi_ci=(-(-FCa1_Vbi_ci*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
7475 #endif
7476 FCd_a=(1.0/(latl-(FCa1*latb)));
7477 #if defined(_DERIVATE)
7478 FCw_Vci_ei=((FCa1_Vci_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vci_ei));
7479 FCw_Vtnode_GND=((FCa1_Vtnode_GND*FCd_a)+((FCa1-1.0)*FCd_a_Vtnode_GND));
7480 FCw_Vbi_ei=((FCa1_Vbi_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ei));
7481 FCw_Vbi_ci=((FCa1_Vbi_ci*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ci));
7482 #endif
7483 FCw=((FCa1-1.0)*FCd_a);
7484 #if defined(_DERIVATE)
7485 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));
7486 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));
7487 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));
7488 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));
7489 #endif
7490 FCdw_daick=(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a);
7491 {
7492 double m00_logE(d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
7493 #if defined(_DERIVATE)
7494 double m10_logE(d10_logE0,d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
7495 #endif
7496 #if defined(_DERIVATE)
7497 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;
7498 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;
7499 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;
7500 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;
7501 #endif
7502 FCa1=d00_logE0;
7503 }
7504 #if defined(_DERIVATE)
7505 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))));
7506 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))));
7507 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))));
7508 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))));
7509 #endif
7510 FCda1_dw=((latb/(1.0+(latb*FCw)))-(latl/(1.0+(latl*FCw))));
7511 }
7512 else
7513 {
7514 #if defined(_DERIVATE)
7515 FCf1_Vci_ei=(-FCa_ck_Vci_ei);
7516 FCf1_Vtnode_GND=(-FCa_ck_Vtnode_GND);
7517 FCf1_Vbi_ei=(-FCa_ck_Vbi_ei);
7518 FCf1_Vbi_ci=(-FCa_ck_Vbi_ci);
7519 #endif
7520 FCf1=(1.0-FCa_ck);
7521 #if defined(_DERIVATE)
7522 FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
7523 FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
7524 FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
7525 FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
7526 #endif
7527 FCd_a=(1.0/(1.0+(FCa_ck*latb)));
7528 #if defined(_DERIVATE)
7529 FCw_Vci_ei=((FCf1_Vci_ei*FCd_a)+(FCf1*FCd_a_Vci_ei));
7530 FCw_Vtnode_GND=((FCf1_Vtnode_GND*FCd_a)+(FCf1*FCd_a_Vtnode_GND));
7531 FCw_Vbi_ei=((FCf1_Vbi_ei*FCd_a)+(FCf1*FCd_a_Vbi_ei));
7532 FCw_Vbi_ci=((FCf1_Vbi_ci*FCd_a)+(FCf1*FCd_a_Vbi_ci));
7533 #endif
7534 FCw=(FCf1*FCd_a);
7535 #if defined(_DERIVATE)
7536 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));
7537 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));
7538 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));
7539 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));
7540 #endif
7541 FCdw_daick=(((((-1.0)*FCd_a)*FCd_a)*FCxb)*FCd_a);
7542 #if defined(_DERIVATE)
7543 FCa1_Vci_ei=((FCz_Vci_ei*FCw)+(FCz*FCw_Vci_ei));
7544 FCa1_Vtnode_GND=((FCz_Vtnode_GND*FCw)+(FCz*FCw_Vtnode_GND));
7545 FCa1_Vbi_ei=((FCz_Vbi_ei*FCw)+(FCz*FCw_Vbi_ei));
7546 FCa1_Vbi_ci=((FCz_Vbi_ci*FCw)+(FCz*FCw_Vbi_ci));
7547 #endif
7548 FCa1=(FCz*FCw);
7549 #if defined(_DERIVATE)
7550 FCda1_dw_Vci_ei=FCz_Vci_ei;
7551 FCda1_dw_Vtnode_GND=FCz_Vtnode_GND;
7552 FCda1_dw_Vbi_ei=FCz_Vbi_ei;
7553 FCda1_dw_Vbi_ci=FCz_Vbi_ci;
7554 #endif
7555 FCda1_dw=FCz;
7556 }
7557 #if defined(_DERIVATE)
7558 FCf_CT_Vbi_ei=(-2.0*FCz_Vbi_ei/FCz/FCz);
7559 FCf_CT_Vbi_ci=(-2.0*FCz_Vbi_ci/FCz/FCz);
7560 FCf_CT_Vci_ei=(-2.0*FCz_Vci_ei/FCz/FCz);
7561 FCf_CT_Vtnode_GND=(-2.0*FCz_Vtnode_GND/FCz/FCz);
7562 #endif
7563 FCf_CT=(2.0/FCz);
7564 #if defined(_DERIVATE)
7565 FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
7566 FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
7567 FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
7568 FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
7569 #endif
7570 FCw2=(FCw*FCw);
7571 #if defined(_DERIVATE)
7572 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);
7573 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);
7574 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);
7575 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);
7576 #endif
7577 FCf1=((((((latb*latl)*FCw)*FCw2)/3.0)+(((latb+latl)*FCw2)/2.0))+FCw);
7578 #if defined(_DERIVATE)
7579 FCdf1_dw_Vci_ei=(((latb*latl)*FCw2_Vci_ei)+((latb+latl)*FCw_Vci_ei));
7580 FCdf1_dw_Vtnode_GND=(((latb*latl)*FCw2_Vtnode_GND)+((latb+latl)*FCw_Vtnode_GND));
7581 FCdf1_dw_Vbi_ei=(((latb*latl)*FCw2_Vbi_ei)+((latb+latl)*FCw_Vbi_ei));
7582 FCdf1_dw_Vbi_ci=(((latb*latl)*FCw2_Vbi_ci)+((latb+latl)*FCw_Vbi_ci));
7583 #endif
7584 FCdf1_dw=((((latb*latl)*FCw2)+((latb+latl)*FCw))+1.0);
7585 #if defined(_DERIVATE)
7586 z_Vci_ei=(latb*FCw_Vci_ei);
7587 z_Vtnode_GND=(latb*FCw_Vtnode_GND);
7588 z_Vbi_ei=(latb*FCw_Vbi_ei);
7589 z_Vbi_ci=(latb*FCw_Vbi_ci);
7590 #endif
7591 z=(latb*FCw);
7592 {
7593 double m00_logE(d00_logE0,(1+(latb*FCw)))
7594 #if defined(_DERIVATE)
7595 double m10_logE(d10_logE0,d00_logE0,(1+(latb*FCw)))
7596 #endif
7597 #if defined(_DERIVATE)
7598 lnzb_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
7599 lnzb_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
7600 lnzb_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
7601 lnzb_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
7602 #endif
7603 lnzb=d00_logE0;
7604 }
7605 if
7606 ((z>1.0e-6))
7607 {
7608 #if defined(_DERIVATE)
7609 x_Vci_ei=z_Vci_ei;
7610 x_Vtnode_GND=z_Vtnode_GND;
7611 x_Vbi_ei=z_Vbi_ei;
7612 x_Vbi_ci=z_Vbi_ci;
7613 #endif
7614 x=(1.0+z);
7615 #if defined(_DERIVATE)
7616 a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
7617 a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
7618 a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
7619 a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
7620 #endif
7621 a=(x*x);
7622 #if defined(_DERIVATE)
7623 a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ei))));
7624 a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ci))));
7625 a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vci_ei))));
7626 a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vtnode_GND))));
7627 #endif
7628 a2=(0.250*((a*((2.0*lnzb)-1.0))+1.0));
7629 #if defined(_DERIVATE)
7630 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);
7631 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);
7632 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);
7633 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);
7634 #endif
7635 a3=((((a*x)*((3.0*lnzb)-1.0))+1.0)/9.0);
7636 r=(latl/latb);
7637 #if defined(_DERIVATE)
7638 FCf2_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latb);
7639 FCf2_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latb);
7640 FCf2_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latb);
7641 FCf2_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latb);
7642 #endif
7643 FCf2=((((1.0-r)*a2)+(r*a3))/latb);
7644 #if defined(_DERIVATE)
7645 FCdf2_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vci_ei));
7646 FCdf2_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vtnode_GND));
7647 FCdf2_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ei));
7648 FCdf2_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ci));
7649 #endif
7650 FCdf2_dw=((((1.0-r)*x)+(r*a))*lnzb);
7651 }
7652 else
7653 {
7654 #if defined(_DERIVATE)
7655 a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
7656 a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
7657 a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
7658 a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
7659 #endif
7660 a=(z*z);
7661 #if defined(_DERIVATE)
7662 a2_Vbi_ei=((z_Vbi_ei-(0.25*a_Vbi_ei))+(((0.10*z_Vbi_ei)*a)+((0.10*z)*a_Vbi_ei)));
7663 a2_Vbi_ci=((z_Vbi_ci-(0.25*a_Vbi_ci))+(((0.10*z_Vbi_ci)*a)+((0.10*z)*a_Vbi_ci)));
7664 a2_Vci_ei=((z_Vci_ei-(0.25*a_Vci_ei))+(((0.10*z_Vci_ei)*a)+((0.10*z)*a_Vci_ei)));
7665 a2_Vtnode_GND=((z_Vtnode_GND-(0.25*a_Vtnode_GND))+(((0.10*z_Vtnode_GND)*a)+((0.10*z)*a_Vtnode_GND)));
7666 #endif
7667 a2=(((3.0+z)-(0.25*a))+((0.10*z)*a));
7668 #if defined(_DERIVATE)
7669 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)));
7670 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)));
7671 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)));
7672 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)));
7673 #endif
7674 a3=(((2.0*z)+(0.75*a))-((0.20*a)*z));
7675 #if defined(_DERIVATE)
7676 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);
7677 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);
7678 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);
7679 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);
7680 #endif
7681 FCf2=(((((latb*a2)+(latl*a3))*FCw)*FCw)/6.0);
7682 #if defined(_DERIVATE)
7683 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));
7684 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));
7685 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));
7686 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));
7687 #endif
7688 FCdf2_dw=(((1+(latl*FCw))*(1+z))*lnzb);
7689 }
7690 #if defined(_DERIVATE)
7691 z_Vci_ei=(latl*FCw_Vci_ei);
7692 z_Vtnode_GND=(latl*FCw_Vtnode_GND);
7693 z_Vbi_ei=(latl*FCw_Vbi_ei);
7694 z_Vbi_ci=(latl*FCw_Vbi_ci);
7695 #endif
7696 z=(latl*FCw);
7697 {
7698 double m00_logE(d00_logE0,(1+(latl*FCw)))
7699 #if defined(_DERIVATE)
7700 double m10_logE(d10_logE0,d00_logE0,(1+(latl*FCw)))
7701 #endif
7702 #if defined(_DERIVATE)
7703 lnzb_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
7704 lnzb_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
7705 lnzb_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
7706 lnzb_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
7707 #endif
7708 lnzb=d00_logE0;
7709 }
7710 if
7711 ((z>1.0e-6))
7712 {
7713 #if defined(_DERIVATE)
7714 x_Vci_ei=z_Vci_ei;
7715 x_Vtnode_GND=z_Vtnode_GND;
7716 x_Vbi_ei=z_Vbi_ei;
7717 x_Vbi_ci=z_Vbi_ci;
7718 #endif
7719 x=(1.0+z);
7720 #if defined(_DERIVATE)
7721 a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
7722 a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
7723 a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
7724 a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
7725 #endif
7726 a=(x*x);
7727 #if defined(_DERIVATE)
7728 a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ei))));
7729 a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vbi_ci))));
7730 a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vci_ei))));
7731 a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*lnzb)-1.0))+(a*(2.0*lnzb_Vtnode_GND))));
7732 #endif
7733 a2=(0.250*((a*((2.0*lnzb)-1.0))+1.0));
7734 #if defined(_DERIVATE)
7735 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);
7736 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);
7737 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);
7738 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);
7739 #endif
7740 a3=((((a*x)*((3.0*lnzb)-1.0))+1.0)/9.0);
7741 r=(latb/latl);
7742 #if defined(_DERIVATE)
7743 FCf3_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latl);
7744 FCf3_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latl);
7745 FCf3_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latl);
7746 FCf3_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latl);
7747 #endif
7748 FCf3=((((1.0-r)*a2)+(r*a3))/latl);
7749 #if defined(_DERIVATE)
7750 FCdf3_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vci_ei));
7751 FCdf3_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vtnode_GND));
7752 FCdf3_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ei));
7753 FCdf3_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*lnzb)+((((1.0-r)*x)+(r*a))*lnzb_Vbi_ci));
7754 #endif
7755 FCdf3_dw=((((1.0-r)*x)+(r*a))*lnzb);
7756 }
7757 else
7758 {
7759 #if defined(_DERIVATE)
7760 a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
7761 a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
7762 a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
7763 a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
7764 #endif
7765 a=(z*z);
7766 #if defined(_DERIVATE)
7767 a2_Vbi_ei=((z_Vbi_ei-(0.25*a_Vbi_ei))+(((0.10*z_Vbi_ei)*a)+((0.10*z)*a_Vbi_ei)));
7768 a2_Vbi_ci=((z_Vbi_ci-(0.25*a_Vbi_ci))+(((0.10*z_Vbi_ci)*a)+((0.10*z)*a_Vbi_ci)));
7769 a2_Vci_ei=((z_Vci_ei-(0.25*a_Vci_ei))+(((0.10*z_Vci_ei)*a)+((0.10*z)*a_Vci_ei)));
7770 a2_Vtnode_GND=((z_Vtnode_GND-(0.25*a_Vtnode_GND))+(((0.10*z_Vtnode_GND)*a)+((0.10*z)*a_Vtnode_GND)));
7771 #endif
7772 a2=(((3.0+z)-(0.25*a))+((0.10*z)*a));
7773 #if defined(_DERIVATE)
7774 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)));
7775 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)));
7776 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)));
7777 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)));
7778 #endif
7779 a3=(((2.0*z)+(0.75*a))-((0.20*a)*z));
7780 #if defined(_DERIVATE)
7781 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);
7782 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);
7783 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);
7784 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);
7785 #endif
7786 FCf3=(((((latl*a2)+(latb*a3))*FCw)*FCw)/6.0);
7787 #if defined(_DERIVATE)
7788 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));
7789 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));
7790 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));
7791 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));
7792 #endif
7793 FCdf3_dw=(((1+(latb*FCw))*(1+z))*lnzb);
7794 }
7795 #if defined(_DERIVATE)
7796 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)));
7797 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)));
7798 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)));
7799 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)));
7800 #endif
7801 FCf_ci=(FCf_CT*(((FCa1*FCf1)-FCf2)+FCf3));
7802 #if defined(_DERIVATE)
7803 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)));
7804 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)));
7805 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)));
7806 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)));
7807 #endif
7808 FCdfc_dw=(FCf_CT*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw));
7809 #if defined(_DERIVATE)
7810 FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
7811 FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
7812 FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
7813 FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
7814 #endif
7815 FCdw_ditf=(FCdw_daick*FCdaick_ditf);
7816 #if defined(_DERIVATE)
7817 FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
7818 FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
7819 FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
7820 FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
7821 #endif
7822 FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
7823 #ifdef _DYNAMIC
7824 if
7825 (((flcomp==0.0)||(flcomp==2.1)))
7826 {
7827 #if defined(_DYNAMIC)
7828 #if defined(_DERIVATE)
7829 a_Vbi_ei=(latb*FCw_Vbi_ei);
7830 a_Vbi_ci=(latb*FCw_Vbi_ci);
7831 a_Vci_ei=(latb*FCw_Vci_ei);
7832 a_Vtnode_GND=(latb*FCw_Vtnode_GND);
7833 #endif
7834 a=(latb*FCw);
7835 #endif
7836 #if defined(_DYNAMIC)
7837 {
7838 double m00_logE(d00_logE0,(1+(latb*FCw)))
7839 #if defined(_DERIVATE)
7840 double m10_logE(d10_logE0,d00_logE0,(1+(latb*FCw)))
7841 #endif
7842 #if defined(_DERIVATE)
7843 lnz_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
7844 lnz_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
7845 lnz_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
7846 lnz_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
7847 #endif
7848 lnz=d00_logE0;
7849 }
7850 #endif
7851 #ifdef _DYNAMIC
7852 if
7853 ((a>1.0e-6))
7854 {
7855 #if defined(_DYNAMIC)
7856 #if defined(_DERIVATE)
7857 FCf2_Vbi_ei=((a_Vbi_ei-lnz_Vbi_ei)/latb);
7858 FCf2_Vbi_ci=((a_Vbi_ci-lnz_Vbi_ci)/latb);
7859 FCf2_Vci_ei=((a_Vci_ei-lnz_Vci_ei)/latb);
7860 FCf2_Vtnode_GND=((a_Vtnode_GND-lnz_Vtnode_GND)/latb);
7861 #endif
7862 FCf2=((a-lnz)/latb);
7863 #endif
7864 #if defined(_DYNAMIC)
7865 #if defined(_DERIVATE)
7866 FCdf2_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
7867 FCdf2_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
7868 FCdf2_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
7869 FCdf2_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
7870 #endif
7871 FCdf2_dw=(a/(1.0+a));
7872 #endif
7873 }
7874 else
7875 {
7876 #if defined(_DYNAMIC)
7877 #if defined(_DERIVATE)
7878 FCf2_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
7879 FCf2_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
7880 FCf2_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
7881 FCf2_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
7882 #endif
7883 FCf2=((0.5*a)*FCw);
7884 #endif
7885 #if defined(_DYNAMIC)
7886 #if defined(_DERIVATE)
7887 FCdf2_dw_Vci_ei=a_Vci_ei;
7888 FCdf2_dw_Vtnode_GND=a_Vtnode_GND;
7889 FCdf2_dw_Vbi_ei=a_Vbi_ei;
7890 FCdf2_dw_Vbi_ci=a_Vbi_ci;
7891 #endif
7892 FCdf2_dw=a;
7893 #endif
7894 }
7895 #endif /* if (...) */
7896 #if defined(_DYNAMIC)
7897 #if defined(_DERIVATE)
7898 a_Vbi_ei=(latl*FCw_Vbi_ei);
7899 a_Vbi_ci=(latl*FCw_Vbi_ci);
7900 a_Vci_ei=(latl*FCw_Vci_ei);
7901 a_Vtnode_GND=(latl*FCw_Vtnode_GND);
7902 #endif
7903 a=(latl*FCw);
7904 #endif
7905 #if defined(_DYNAMIC)
7906 {
7907 double m00_logE(d00_logE0,(1+(latl*FCw)))
7908 #if defined(_DERIVATE)
7909 double m10_logE(d10_logE0,d00_logE0,(1+(latl*FCw)))
7910 #endif
7911 #if defined(_DERIVATE)
7912 lnz_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
7913 lnz_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
7914 lnz_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
7915 lnz_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
7916 #endif
7917 lnz=d00_logE0;
7918 }
7919 #endif
7920 #ifdef _DYNAMIC
7921 if
7922 ((a>1.0e-6))
7923 {
7924 #if defined(_DYNAMIC)
7925 #if defined(_DERIVATE)
7926 FCf3_Vbi_ei=((a_Vbi_ei-lnz_Vbi_ei)/latl);
7927 FCf3_Vbi_ci=((a_Vbi_ci-lnz_Vbi_ci)/latl);
7928 FCf3_Vci_ei=((a_Vci_ei-lnz_Vci_ei)/latl);
7929 FCf3_Vtnode_GND=((a_Vtnode_GND-lnz_Vtnode_GND)/latl);
7930 #endif
7931 FCf3=((a-lnz)/latl);
7932 #endif
7933 #if defined(_DYNAMIC)
7934 #if defined(_DERIVATE)
7935 FCdf3_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
7936 FCdf3_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
7937 FCdf3_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
7938 FCdf3_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
7939 #endif
7940 FCdf3_dw=(a/(1.0+a));
7941 #endif
7942 }
7943 else
7944 {
7945 #if defined(_DYNAMIC)
7946 #if defined(_DERIVATE)
7947 FCf3_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
7948 FCf3_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
7949 FCf3_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
7950 FCf3_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
7951 #endif
7952 FCf3=((0.5*a)*FCw);
7953 #endif
7954 #if defined(_DYNAMIC)
7955 #if defined(_DERIVATE)
7956 FCdf3_dw_Vci_ei=a_Vci_ei;
7957 FCdf3_dw_Vtnode_GND=a_Vtnode_GND;
7958 FCdf3_dw_Vbi_ei=a_Vbi_ei;
7959 FCdf3_dw_Vbi_ci=a_Vbi_ci;
7960 #endif
7961 FCdf3_dw=a;
7962 #endif
7963 }
7964 #endif /* if (...) */
7965 #if defined(_DYNAMIC)
7966 #if defined(_DERIVATE)
7967 FCf_CT_Vbi_ei=((FCf_CT_Vbi_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ei-FCf3_Vbi_ei)));
7968 FCf_CT_Vbi_ci=((FCf_CT_Vbi_ci*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ci-FCf3_Vbi_ci)));
7969 FCf_CT_Vci_ei=((FCf_CT_Vci_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vci_ei-FCf3_Vci_ei)));
7970 FCf_CT_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCf2-FCf3))+(FCf_CT*(FCf2_Vtnode_GND-FCf3_Vtnode_GND)));
7971 #endif
7972 FCf_CT=(FCf_CT*(FCf2-FCf3));
7973 #endif
7974 #if defined(_DYNAMIC)
7975 #if defined(_DERIVATE)
7976 FCdfCT_dw_Vbi_ei=((FCf_CT_Vbi_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ei-FCdf3_dw_Vbi_ei)));
7977 FCdfCT_dw_Vbi_ci=((FCf_CT_Vbi_ci*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ci-FCdf3_dw_Vbi_ci)));
7978 FCdfCT_dw_Vci_ei=((FCf_CT_Vci_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vci_ei-FCdf3_dw_Vci_ei)));
7979 FCdfCT_dw_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vtnode_GND-FCdf3_dw_Vtnode_GND)));
7980 #endif
7981 FCdfCT_dw=(FCf_CT*(FCdf2_dw-FCdf3_dw));
7982 #endif
7983 #if defined(_DYNAMIC)
7984 #if defined(_DERIVATE)
7985 FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
7986 FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
7987 FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
7988 FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
7989 #endif
7990 FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
7991 #endif
7992 }
7993 else
7994 {
7995 #if defined(_DYNAMIC)
7996 #if defined(_DERIVATE)
7997 FCf_CT_Vbi_ei=FCf_ci_Vbi_ei;
7998 FCf_CT_Vbi_ci=FCf_ci_Vbi_ci;
7999 FCf_CT_Vci_ei=FCf_ci_Vci_ei;
8000 FCf_CT_Vtnode_GND=FCf_ci_Vtnode_GND;
8001 #endif
8002 FCf_CT=FCf_ci;
8003 #endif
8004 #if defined(_DYNAMIC)
8005 #if defined(_DERIVATE)
8006 FCdfCT_ditf_Vbi_ei=FCdfc_ditf_Vbi_ei;
8007 FCdfCT_ditf_Vbi_ci=FCdfc_ditf_Vbi_ci;
8008 FCdfCT_ditf_Vci_ei=FCdfc_ditf_Vci_ei;
8009 FCdfCT_ditf_Vtnode_GND=FCdfc_ditf_Vtnode_GND;
8010 #endif
8011 FCdfCT_ditf=FCdfc_ditf;
8012 #endif
8013 }
8014 #endif /* if (...) */
8015 }
8016 else
8017 {
8018 if
8019 ((latb>0.01))
8020 {
8021 #if defined(_DERIVATE)
8022 FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
8023 FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
8024 FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
8025 FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
8026 #endif
8027 FCd_a=(1.0/(1.0+(FCa_ck*latb)));
8028 #if defined(_DERIVATE)
8029 FCw_Vci_ei=(((-FCa_ck_Vci_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vci_ei));
8030 FCw_Vtnode_GND=(((-FCa_ck_Vtnode_GND)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vtnode_GND));
8031 FCw_Vbi_ei=(((-FCa_ck_Vbi_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ei));
8032 FCw_Vbi_ci=(((-FCa_ck_Vbi_ci)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ci));
8033 #endif
8034 FCw=((1.0-FCa_ck)*FCd_a);
8035 #if defined(_DERIVATE)
8036 FCdw_daick_Vci_ei=((((-(1.0+latb))*FCd_a_Vci_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vci_ei));
8037 FCdw_daick_Vtnode_GND=((((-(1.0+latb))*FCd_a_Vtnode_GND)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vtnode_GND));
8038 FCdw_daick_Vbi_ei=((((-(1.0+latb))*FCd_a_Vbi_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ei));
8039 FCdw_daick_Vbi_ci=((((-(1.0+latb))*FCd_a_Vbi_ci)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ci));
8040 #endif
8041 FCdw_daick=(((-(1.0+latb))*FCd_a)*FCd_a);
8042 }
8043 else
8044 {
8045 #if defined(_DERIVATE)
8046 FCw_Vci_ei=((-FCa_ck_Vci_ei)-FCa_ck_Vci_ei*latb);
8047 FCw_Vtnode_GND=((-FCa_ck_Vtnode_GND)-FCa_ck_Vtnode_GND*latb);
8048 FCw_Vbi_ei=((-FCa_ck_Vbi_ei)-FCa_ck_Vbi_ei*latb);
8049 FCw_Vbi_ci=((-FCa_ck_Vbi_ci)-FCa_ck_Vbi_ci*latb);
8050 #endif
8051 FCw=((1.0-FCa_ck)-(FCa_ck*latb));
8052 #if defined(_DERIVATE)
8053 FCdw_daick_Vci_ei=0.0;
8054 FCdw_daick_Vtnode_GND=0.0;
8055 FCdw_daick_Vbi_ei=0.0;
8056 FCdw_daick_Vbi_ci=0.0;
8057 #endif
8058 FCdw_daick=(-(1.0+latb));
8059 }
8060 #if defined(_DERIVATE)
8061 FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
8062 FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
8063 FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
8064 FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
8065 #endif
8066 FCw2=(FCw*FCw);
8067 #if defined(_DERIVATE)
8068 FCz_Vci_ei=(latb*FCw_Vci_ei);
8069 FCz_Vtnode_GND=(latb*FCw_Vtnode_GND);
8070 FCz_Vbi_ei=(latb*FCw_Vbi_ei);
8071 FCz_Vbi_ci=(latb*FCw_Vbi_ci);
8072 #endif
8073 FCz=(latb*FCw);
8074 #if defined(_DERIVATE)
8075 FCz_1_Vci_ei=FCz_Vci_ei;
8076 FCz_1_Vtnode_GND=FCz_Vtnode_GND;
8077 FCz_1_Vbi_ei=FCz_Vbi_ei;
8078 FCz_1_Vbi_ci=FCz_Vbi_ci;
8079 #endif
8080 FCz_1=(1.0+FCz);
8081 #if defined(_DERIVATE)
8082 FCd_f_Vci_ei=(-FCz_1_Vci_ei/FCz_1/FCz_1);
8083 FCd_f_Vtnode_GND=(-FCz_1_Vtnode_GND/FCz_1/FCz_1);
8084 FCd_f_Vbi_ei=(-FCz_1_Vbi_ei/FCz_1/FCz_1);
8085 FCd_f_Vbi_ci=(-FCz_1_Vbi_ci/FCz_1/FCz_1);
8086 #endif
8087 FCd_f=(1.0/FCz_1);
8088 #if defined(_DERIVATE)
8089 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));
8090 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));
8091 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));
8092 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));
8093 #endif
8094 FCf_ci=((FCw2*(1.0+(FCz/3.0)))*FCd_f);
8095 #if defined(_DERIVATE)
8096 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));
8097 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));
8098 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));
8099 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));
8100 #endif
8101 FCdfc_dw=((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
8102 #if defined(_DERIVATE)
8103 FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
8104 FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
8105 FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
8106 FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
8107 #endif
8108 FCdw_ditf=(FCdw_daick*FCdaick_ditf);
8109 #if defined(_DERIVATE)
8110 FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
8111 FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
8112 FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
8113 FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
8114 #endif
8115 FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
8116 #ifdef _DYNAMIC
8117 if
8118 (((flcomp==0.0)||(flcomp==2.1)))
8119 {
8120 #ifdef _DYNAMIC
8121 if
8122 ((FCz>0.001))
8123 {
8124 #if defined(_DYNAMIC)
8125 {
8126 double m00_logE(d00_logE0,FCz_1)
8127 #if defined(_DERIVATE)
8128 double m10_logE(d10_logE0,d00_logE0,FCz_1)
8129 #endif
8130 #if defined(_DERIVATE)
8131 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));
8132 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));
8133 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));
8134 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));
8135 #endif
8136 FCf_CT=((2.0*((FCz_1*d00_logE0)-FCz))/((latb*latb)*FCz_1));
8137 }
8138 #endif
8139 #if defined(_DYNAMIC)
8140 #if defined(_DERIVATE)
8141 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));
8142 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));
8143 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));
8144 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));
8145 #endif
8146 FCdfCT_dw=(((2.0*FCw)*FCd_f)*FCd_f);
8147 #endif
8148 }
8149 else
8150 {
8151 #if defined(_DYNAMIC)
8152 #if defined(_DERIVATE)
8153 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));
8154 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));
8155 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));
8156 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));
8157 #endif
8158 FCf_CT=((FCw2*(1.0-(FCz/3.0)))*FCd_f);
8159 #endif
8160 #if defined(_DYNAMIC)
8161 #if defined(_DERIVATE)
8162 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));
8163 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));
8164 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));
8165 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));
8166 #endif
8167 FCdfCT_dw=((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
8168 #endif
8169 }
8170 #endif /* if (...) */
8171 #if defined(_DYNAMIC)
8172 #if defined(_DERIVATE)
8173 FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
8174 FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
8175 FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
8176 FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
8177 #endif
8178 FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
8179 #endif
8180 }
8181 else
8182 {
8183 #if defined(_DYNAMIC)
8184 #if defined(_DERIVATE)
8185 FCf_CT_Vbi_ei=FCf_ci_Vbi_ei;
8186 FCf_CT_Vbi_ci=FCf_ci_Vbi_ci;
8187 FCf_CT_Vci_ei=FCf_ci_Vci_ei;
8188 FCf_CT_Vtnode_GND=FCf_ci_Vtnode_GND;
8189 #endif
8190 FCf_CT=FCf_ci;
8191 #endif
8192 #if defined(_DYNAMIC)
8193 #if defined(_DERIVATE)
8194 FCdfCT_ditf_Vbi_ei=FCdfc_ditf_Vbi_ei;
8195 FCdfCT_ditf_Vbi_ci=FCdfc_ditf_Vbi_ci;
8196 FCdfCT_ditf_Vci_ei=FCdfc_ditf_Vci_ei;
8197 FCdfCT_ditf_Vtnode_GND=FCdfc_ditf_Vtnode_GND;
8198 #endif
8199 FCdfCT_ditf=FCdfc_ditf;
8200 #endif
8201 }
8202 #endif /* if (...) */
8203 }
8204 #if defined(_DYNAMIC)
8205 #if defined(_DERIVATE)
8206 FFQ_cT_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_CT)+(FFQ_fC*FCf_CT_Vtnode_GND));
8207 FFQ_cT_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ei));
8208 FFQ_cT_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ci));
8209 FFQ_cT_Vci_ei=((FFQ_fC_Vci_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vci_ei));
8210 #endif
8211 FFQ_cT=(FFQ_fC*FCf_CT);
8212 #endif
8213 #if defined(_DERIVATE)
8214 FFQ_fC_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_ci)+(FFQ_fC*FCf_ci_Vtnode_GND));
8215 FFQ_fC_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ei));
8216 FFQ_fC_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ci));
8217 FFQ_fC_Vci_ei=((FFQ_fC_Vci_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vci_ei));
8218 #endif
8219 FFQ_fC=(FFQ_fC*FCf_ci);
8220 #if defined(_DERIVATE)
8221 FFT_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*(FCf_ci+(itf*FCdfc_ditf)))+(FFT_pcS*(FCf_ci_Vtnode_GND+((itf_Vtnode_GND*FCdfc_ditf)+(itf*FCdfc_ditf_Vtnode_GND)))));
8222 FFT_fC_Vci_ei=(FFT_pcS*(FCf_ci_Vci_ei+((itf_Vci_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vci_ei))));
8223 FFT_fC_Vbi_ei=(FFT_pcS*(FCf_ci_Vbi_ei+((itf_Vbi_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ei))));
8224 FFT_fC_Vbi_ci=(FFT_pcS*(FCf_ci_Vbi_ci+((itf_Vbi_ci*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ci))));
8225 #endif
8226 FFT_fC=(FFT_pcS*(FCf_ci+(itf*FCdfc_ditf)));
8227 #if defined(_DYNAMIC)
8228 #if defined(_DERIVATE)
8229 FFT_cT_Vtnode_GND=((FFT_pcS_Vtnode_GND*(FCf_CT+(itf*FCdfCT_ditf)))+(FFT_pcS*(FCf_CT_Vtnode_GND+((itf_Vtnode_GND*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vtnode_GND)))));
8230 FFT_cT_Vci_ei=(FFT_pcS*(FCf_CT_Vci_ei+((itf_Vci_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vci_ei))));
8231 FFT_cT_Vbi_ei=(FFT_pcS*(FCf_CT_Vbi_ei+((itf_Vbi_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ei))));
8232 FFT_cT_Vbi_ci=(FFT_pcS*(FCf_CT_Vbi_ci+((itf_Vbi_ci*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ci))));
8233 #endif
8234 FFT_cT=(FFT_pcS*(FCf_CT+(itf*FCdfCT_ditf)));
8235 #endif
8236 }
8237 #if defined(_DERIVATE)
8238 Qf_Vci_ei=(Qf_Vci_ei+FFd_QfB_Vci_ei);
8239 Qf_Vtnode_GND=(Qf_Vtnode_GND+FFd_QfB_Vtnode_GND);
8240 Qf_Vbi_ci=(Qf_Vbi_ci+FFd_QfB_Vbi_ci);
8241 Qf_Vbi_ei=(Qf_Vbi_ei+FFd_QfB_Vbi_ei);
8242 #endif
8243 Qf=(Qf+FFd_QfB);
8244 #if defined(_DERIVATE)
8245 Tf_Vci_ei=(Tf_Vci_ei+FFd_TfB_Vci_ei);
8246 Tf_Vbi_ei=(Tf_Vbi_ei+FFd_TfB_Vbi_ei);
8247 Tf_Vtnode_GND=(Tf_Vtnode_GND+FFd_TfB_Vtnode_GND);
8248 Tf_Vbi_ci=(Tf_Vbi_ci+FFd_TfB_Vbi_ci);
8249 #endif
8250 Tf=(Tf+FFd_TfB);
8251 #if defined(_DYNAMIC)
8252 #if defined(_DERIVATE)
8253 Q_fT_Vci_ei=((Qf_Vci_ei+(hfe*FFd_QfE_Vci_ei))+(hfc*FFQ_cT_Vci_ei));
8254 Q_fT_Vtnode_GND=((Qf_Vtnode_GND+(hfe*FFd_QfE_Vtnode_GND))+(hfc*FFQ_cT_Vtnode_GND));
8255 Q_fT_Vbi_ci=((Qf_Vbi_ci+(hfe*FFd_QfE_Vbi_ci))+(hfc*FFQ_cT_Vbi_ci));
8256 Q_fT_Vbi_ei=((Qf_Vbi_ei+(hfe*FFd_QfE_Vbi_ei))+(hfc*FFQ_cT_Vbi_ei));
8257 #endif
8258 Q_fT=((Qf+(hfe*FFd_QfE))+(hfc*FFQ_cT));
8259 #endif
8260 #if defined(_DYNAMIC)
8261 #if defined(_DERIVATE)
8262 T_fT_Vci_ei=((Tf_Vci_ei+(hfe*FFd_TfE_Vci_ei))+(hfc*FFT_cT_Vci_ei));
8263 T_fT_Vbi_ei=((Tf_Vbi_ei+(hfe*FFd_TfE_Vbi_ei))+(hfc*FFT_cT_Vbi_ei));
8264 T_fT_Vtnode_GND=((Tf_Vtnode_GND+(hfe*FFd_TfE_Vtnode_GND))+(hfc*FFT_cT_Vtnode_GND));
8265 T_fT_Vbi_ci=((Tf_Vbi_ci+(hfe*FFd_TfE_Vbi_ci))+(hfc*FFT_cT_Vbi_ci));
8266 #endif
8267 T_fT=((Tf+(hfe*FFd_TfE))+(hfc*FFT_cT));
8268 #endif
8269 #if defined(_DERIVATE)
8270 Qf_Vci_ei=((Qf_Vci_ei+FFd_QfE_Vci_ei)+FFQ_fC_Vci_ei);
8271 Qf_Vtnode_GND=((Qf_Vtnode_GND+FFd_QfE_Vtnode_GND)+FFQ_fC_Vtnode_GND);
8272 Qf_Vbi_ci=((Qf_Vbi_ci+FFd_QfE_Vbi_ci)+FFQ_fC_Vbi_ci);
8273 Qf_Vbi_ei=((Qf_Vbi_ei+FFd_QfE_Vbi_ei)+FFQ_fC_Vbi_ei);
8274 #endif
8275 Qf=((Qf+FFd_QfE)+FFQ_fC);
8276 #if defined(_DERIVATE)
8277 Tf_Vci_ei=((Tf_Vci_ei+FFd_TfE_Vci_ei)+FFT_fC_Vci_ei);
8278 Tf_Vbi_ei=((Tf_Vbi_ei+FFd_TfE_Vbi_ei)+FFT_fC_Vbi_ei);
8279 Tf_Vtnode_GND=((Tf_Vtnode_GND+FFd_TfE_Vtnode_GND)+FFT_fC_Vtnode_GND);
8280 Tf_Vbi_ci=((Tf_Vbi_ci+FFd_TfE_Vbi_ci)+FFT_fC_Vbi_ci);
8281 #endif
8282 Tf=((Tf+FFd_TfE)+FFT_fC);
8283 }
8284 #if defined(_DYNAMIC)
8285 #if defined(_DERIVATE)
8286 Qr_Vci_ei=(Tr*itr_Vci_ei);
8287 Qr_Vtnode_GND=(Tr*itr_Vtnode_GND);
8288 Qr_Vbi_ci=(Tr*itr_Vbi_ci);
8289 Qr_Vbi_ei=(Tr*itr_Vbi_ei);
8290 #endif
8291 Qr=(Tr*itr);
8292 #endif
8293 }
8294 #if defined(_DERIVATE)
8295 it_Vci_ei=(itf_Vci_ei-itr_Vci_ei);
8296 it_Vtnode_GND=(itf_Vtnode_GND-itr_Vtnode_GND);
8297 it_Vbi_ei=(itf_Vbi_ei-itr_Vbi_ei);
8298 it_Vbi_ci=(itf_Vbi_ci-itr_Vbi_ci);
8299 #endif
8300 it=(itf-itr);
8301 #if defined(_DERIVATE)
8302 Qdei_Vci_ei=Qf_Vci_ei;
8303 Qdei_Vtnode_GND=Qf_Vtnode_GND;
8304 Qdei_Vbi_ci=Qf_Vbi_ci;
8305 Qdei_Vbi_ei=Qf_Vbi_ei;
8306 #endif
8307 Qdei=Qf;
8308 #if defined(_DYNAMIC)
8309 #if defined(_DERIVATE)
8310 Qdci_Vci_ei=Qr_Vci_ei;
8311 Qdci_Vtnode_GND=Qr_Vtnode_GND;
8312 Qdci_Vbi_ci=Qr_Vbi_ci;
8313 Qdci_Vbi_ei=Qr_Vbi_ei;
8314 #endif
8315 Qdci=Qr;
8316 #endif
8317 #if defined(_DYNAMIC)
8318 #if defined(_DERIVATE)
8319 qrbi_Vtnode_GND=(fcrbi*(((Qjei_Vtnode_GND+Qjci_Vtnode_GND)+Qdei_Vtnode_GND)+Qdci_Vtnode_GND));
8320 qrbi_Vbi_ei=(fcrbi*(((Qjei_Vbi_ei+Qjci_Vbi_ei)+Qdei_Vbi_ei)+Qdci_Vbi_ei));
8321 qrbi_Vbi_ci=(fcrbi*((Qjci_Vbi_ci+Qdei_Vbi_ci)+Qdci_Vbi_ci));
8322 qrbi_Vci_ei=(fcrbi*(Qdei_Vci_ei+Qdci_Vci_ei));
8323 #endif
8324 qrbi=(fcrbi*(((Qjei+Qjci)+Qdei)+Qdci));
8325 #endif
8326 #if defined(_DERIVATE)
8327 DIOY_Vsi_ci=0.0;
8328 DIOY_Vbp_ci=0.0;
8329 DIOY_Vbp_ei=0.0;
8330 DIOY_Vbi_ci=(1/(mbci*VT));
8331 DIOY_Vbi_ei=0.0;
8332 DIOY_Vtnode_GND=(-BP(bi,ci)*(mbci*VT_Vtnode_GND)/(mbci*VT)/(mbci*VT));
8333 #endif
8334 DIOY=(BP(bi,ci)/(mbci*VT));
8335 if
8336 ((ibcis>0.0))
8337 {
8338 if
8339 ((DIOY>80.0))
8340 {
8341 #if defined(_DERIVATE)
8342 le_Vsi_ci=0.0;
8343 le_Vbp_ci=0.0;
8344 le_Vbp_ei=0.0;
8345 le_Vbi_ci=DIOY_Vbi_ci;
8346 le_Vbi_ei=DIOY_Vbi_ei;
8347 le_Vtnode_GND=DIOY_Vtnode_GND;
8348 #endif
8349 le=(1+(DIOY-80.0));
8350 #if defined(_DERIVATE)
8351 DIOY_Vsi_ci=0.0;
8352 DIOY_Vbp_ci=0.0;
8353 DIOY_Vbp_ei=0.0;
8354 DIOY_Vbi_ci=0.0;
8355 DIOY_Vbi_ei=0.0;
8356 DIOY_Vtnode_GND=0.0;
8357 #endif
8358 DIOY=80.0;
8359 }
8360 else
8361 {
8362 #if defined(_DERIVATE)
8363 le_Vsi_ci=0.0;
8364 le_Vbp_ci=0.0;
8365 le_Vbp_ei=0.0;
8366 le_Vbi_ci=0.0;
8367 le_Vbi_ei=0.0;
8368 le_Vtnode_GND=0.0;
8369 #endif
8370 le=1;
8371 }
8372 {
8373 double m00_limexp(d00_limexp0,DIOY)
8374 #if defined(_DERIVATE)
8375 double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
8376 #endif
8377 #if defined(_DERIVATE)
8378 le_Vsi_ci=0.0;
8379 le_Vbp_ci=0.0;
8380 le_Vbp_ei=0.0;
8381 le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
8382 le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
8383 le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
8384 #endif
8385 le=(le*d00_limexp0);
8386 }
8387 #if defined(_DERIVATE)
8388 ibci_Vtnode_GND=((ibcis_t_Vtnode_GND*(le-1.0))+(ibcis_t*le_Vtnode_GND));
8389 ibci_Vbi_ci=(ibcis_t*le_Vbi_ci);
8390 ibci_Vbi_ei=(ibcis_t*le_Vbi_ei);
8391 #endif
8392 ibci=(ibcis_t*(le-1.0));
8393 if
8394 ((DIOY<=(-14.0)))
8395 {
8396 #if defined(_DERIVATE)
8397 ibci_Vtnode_GND=(-ibcis_t_Vtnode_GND);
8398 ibci_Vbi_ci=0.0;
8399 ibci_Vbi_ei=0.0;
8400 #endif
8401 ibci=(-ibcis_t);
8402 }
8403 }
8404 else
8405 {
8406 #if defined(_DERIVATE)
8407 ibci_Vtnode_GND=0.0;
8408 ibci_Vbi_ci=0.0;
8409 ibci_Vbi_ei=0.0;
8410 #endif
8411 ibci=0.0;
8412 }
8413 if
8414 ((((BP(bi,ci)<0.0)&&(favl_t>0.0))&&(cjci0_t>0.0)))
8415 {
8416 double v_bord;
8417 double v_q;
8418 double U0;
8419 double av;
8420 double avl;
8421 double S_avl;
8422 #if defined(_DERIVATE)
8423 double v_bord_Vtnode_GND;
8424 #endif
8425 #if defined(_DERIVATE)
8426 double v_bord_Vbi_ci;
8427 #endif
8428 #if defined(_DERIVATE)
8429 double v_q_Vtnode_GND;
8430 #endif
8431 #if defined(_DERIVATE)
8432 double v_q_Vbi_ei;
8433 #endif
8434 #if defined(_DERIVATE)
8435 double v_q_Vbi_ci;
8436 #endif
8437 #if defined(_DERIVATE)
8438 double U0_Vtnode_GND;
8439 #endif
8440 #if defined(_DERIVATE)
8441 double av_Vtnode_GND;
8442 #endif
8443 #if defined(_DERIVATE)
8444 double av_Vbi_ei;
8445 #endif
8446 #if defined(_DERIVATE)
8447 double av_Vbi_ci;
8448 #endif
8449 #if defined(_DERIVATE)
8450 double avl_Vtnode_GND;
8451 #endif
8452 #if defined(_DERIVATE)
8453 double avl_Vbi_ei;
8454 #endif
8455 #if defined(_DERIVATE)
8456 double avl_Vbi_ci;
8457 #endif
8458 #if defined(_DERIVATE)
8459 v_bord_Vtnode_GND=vdci_t_Vtnode_GND;
8460 v_bord_Vbi_ci=(-1.0);
8461 #endif
8462 v_bord=(vdci_t-BP(bi,ci));
8463 #if defined(_DERIVATE)
8464 v_q_Vtnode_GND=((qavl_t_Vtnode_GND*Cjci-qavl_t*Cjci_Vtnode_GND)/Cjci/Cjci);
8465 v_q_Vbi_ei=(-qavl_t*Cjci_Vbi_ei/Cjci/Cjci);
8466 v_q_Vbi_ci=(-qavl_t*Cjci_Vbi_ci/Cjci/Cjci);
8467 #endif
8468 v_q=(qavl_t/Cjci);
8469 #if defined(_DERIVATE)
8470 U0_Vtnode_GND=((qavl_t_Vtnode_GND*cjci0_t-qavl_t*cjci0_t_Vtnode_GND)/cjci0_t/cjci0_t);
8471 #endif
8472 U0=(qavl_t/cjci0_t);
8473 if
8474 ((v_bord>U0))
8475 {
8476 {
8477 double m00_exp(d00_exp0,((-v_q)/U0))
8478 #if defined(_DERIVATE)
8479 #define d10_exp0 d00_exp0
8480 #endif
8481 #if defined(_DERIVATE)
8482 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));
8483 av_Vbi_ei=(favl_t*((-v_q_Vbi_ei)/U0)*d10_exp0);
8484 av_Vbi_ci=(favl_t*((-v_q_Vbi_ci)/U0)*d10_exp0);
8485 #endif
8486 av=(favl_t*d00_exp0);
8487 }
8488 #if defined(_DERIVATE)
8489 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))))));
8490 avl_Vbi_ei=((av_Vbi_ei*(U0+((1.0+(v_q/U0))*(v_bord-U0))))+(av*(v_q_Vbi_ei/U0)*(v_bord-U0)));
8491 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))));
8492 #endif
8493 avl=(av*(U0+((1.0+(v_q/U0))*(v_bord-U0))));
8494 }
8495 else
8496 {
8497 {
8498 double m00_exp(d00_exp0,((-v_q)/v_bord))
8499 #if defined(_DERIVATE)
8500 #define d10_exp0 d00_exp0
8501 #endif
8502 #if defined(_DERIVATE)
8503 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));
8504 avl_Vbi_ei=((favl_t*v_bord)*((-v_q_Vbi_ei)/v_bord)*d10_exp0);
8505 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));
8506 #endif
8507 avl=((favl_t*v_bord)*d00_exp0);
8508 }
8509 }
8510 #if defined(_DERIVATE)
8511 iavl_Vci_ei=itf_Vci_ei*avl;
8512 iavl_Vtnode_GND=((itf_Vtnode_GND*avl)+(itf*avl_Vtnode_GND));
8513 iavl_Vbi_ei=((itf_Vbi_ei*avl)+(itf*avl_Vbi_ei));
8514 iavl_Vbi_ci=((itf_Vbi_ci*avl)+(itf*avl_Vbi_ci));
8515 #endif
8516 iavl=(itf*avl);
8517 }
8518 else
8519 {
8520 #if defined(_DERIVATE)
8521 iavl_Vci_ei=0.0;
8522 iavl_Vtnode_GND=0.0;
8523 iavl_Vbi_ei=0.0;
8524 iavl_Vbi_ci=0.0;
8525 #endif
8526 iavl=0.0;
8527 }
8528 #if defined(_DERIVATE)
8529 ibh_rec_Vtnode_GND=Q_bf_Vtnode_GND*Otbhrec;
8530 ibh_rec_Vbi_ei=Q_bf_Vbi_ei*Otbhrec;
8531 ibh_rec_Vbi_ci=Q_bf_Vbi_ci*Otbhrec;
8532 ibh_rec_Vci_ei=Q_bf_Vci_ei*Otbhrec;
8533 #endif
8534 ibh_rec=(Q_bf*Otbhrec);
8535 if
8536 ((rbi0_t>0.0))
8537 {
8538 double Qz_nom;
8539 double f_QR;
8540 double f_p;
8541 double ETA;
8542 double Qz0;
8543 double fQz;
8544 #if defined(_DERIVATE)
8545 double Qz_nom_Vtnode_GND;
8546 #endif
8547 #if defined(_DERIVATE)
8548 double Qz_nom_Vbi_ei;
8549 #endif
8550 #if defined(_DERIVATE)
8551 double Qz_nom_Vbi_ci;
8552 #endif
8553 #if defined(_DERIVATE)
8554 double Qz_nom_Vci_ei;
8555 #endif
8556 #if defined(_DERIVATE)
8557 double f_QR_Vtnode_GND;
8558 #endif
8559 #if defined(_DERIVATE)
8560 double ETA_Vtnode_GND;
8561 #endif
8562 #if defined(_DERIVATE)
8563 double ETA_Vbi_ei;
8564 #endif
8565 #if defined(_DERIVATE)
8566 double ETA_Vbi_ci;
8567 #endif
8568 #if defined(_DERIVATE)
8569 double ETA_Vci_ei;
8570 #endif
8571 #if defined(_DERIVATE)
8572 double Qz0_Vtnode_GND;
8573 #endif
8574 #if defined(_DERIVATE)
8575 double Qz0_Vbi_ei;
8576 #endif
8577 #if defined(_DERIVATE)
8578 double Qz0_Vbi_ci;
8579 #endif
8580 #if defined(_DERIVATE)
8581 double Qz0_Vci_ei;
8582 #endif
8583 #if defined(_DERIVATE)
8584 double fQz_Vtnode_GND;
8585 #endif
8586 #if defined(_DERIVATE)
8587 double fQz_Vbi_ei;
8588 #endif
8589 #if defined(_DERIVATE)
8590 double fQz_Vbi_ci;
8591 #endif
8592 #if defined(_DERIVATE)
8593 double fQz_Vci_ei;
8594 #endif
8595 #if defined(_DERIVATE)
8596 f_QR_Vtnode_GND=((1+fdqr0)*qp0_t_Vtnode_GND);
8597 #endif
8598 f_QR=((1+fdqr0)*qp0_t);
8599 #if defined(_DERIVATE)
8600 Qz0_Vtnode_GND=((Qjei_Vtnode_GND+Qjci_Vtnode_GND)+Qf_Vtnode_GND);
8601 Qz0_Vbi_ei=((Qjei_Vbi_ei+Qjci_Vbi_ei)+Qf_Vbi_ei);
8602 Qz0_Vbi_ci=(Qjci_Vbi_ci+Qf_Vbi_ci);
8603 Qz0_Vci_ei=Qf_Vci_ei;
8604 #endif
8605 Qz0=((Qjei+Qjci)+Qf);
8606 #if defined(_DERIVATE)
8607 Qz_nom_Vtnode_GND=((Qz0_Vtnode_GND*f_QR-Qz0*f_QR_Vtnode_GND)/f_QR/f_QR);
8608 Qz_nom_Vbi_ei=(Qz0_Vbi_ei/f_QR);
8609 Qz_nom_Vbi_ci=(Qz0_Vbi_ci/f_QR);
8610 Qz_nom_Vci_ei=(Qz0_Vci_ei/f_QR);
8611 #endif
8612 Qz_nom=(1+(Qz0/f_QR));
8613 {
8614 double m00_sqrt(d00_sqrt0,((Qz_nom*Qz_nom)+0.01))
8615 #if defined(_DERIVATE)
8616 double m10_sqrt(d10_sqrt0,d00_sqrt0,((Qz_nom*Qz_nom)+0.01))
8617 #endif
8618 #if defined(_DERIVATE)
8619 fQz_Vtnode_GND=(0.5*(Qz_nom_Vtnode_GND+((Qz_nom_Vtnode_GND*Qz_nom)+(Qz_nom*Qz_nom_Vtnode_GND))*d10_sqrt0));
8620 fQz_Vbi_ei=(0.5*(Qz_nom_Vbi_ei+((Qz_nom_Vbi_ei*Qz_nom)+(Qz_nom*Qz_nom_Vbi_ei))*d10_sqrt0));
8621 fQz_Vbi_ci=(0.5*(Qz_nom_Vbi_ci+((Qz_nom_Vbi_ci*Qz_nom)+(Qz_nom*Qz_nom_Vbi_ci))*d10_sqrt0));
8622 fQz_Vci_ei=(0.5*(Qz_nom_Vci_ei+((Qz_nom_Vci_ei*Qz_nom)+(Qz_nom*Qz_nom_Vci_ei))*d10_sqrt0));
8623 #endif
8624 fQz=(0.5*(Qz_nom+d00_sqrt0));
8625 }
8626 #if defined(_DERIVATE)
8627 rbi_Vtnode_GND=((rbi0_t_Vtnode_GND*fQz-rbi0_t*fQz_Vtnode_GND)/fQz/fQz);
8628 rbi_Vbi_ei=(-rbi0_t*fQz_Vbi_ei/fQz/fQz);
8629 rbi_Vbi_ci=(-rbi0_t*fQz_Vbi_ci/fQz/fQz);
8630 rbi_Vci_ei=(-rbi0_t*fQz_Vci_ei/fQz/fQz);
8631 #endif
8632 rbi=(rbi0_t/fQz);
8633 if
8634 ((ibei>0.0))
8635 {
8636 #if defined(_DERIVATE)
8637 ETA_Vtnode_GND=((((rbi_Vtnode_GND*ibei)+(rbi*ibei_Vtnode_GND))*fgeo*VT-((rbi*ibei)*fgeo)*VT_Vtnode_GND)/VT/VT);
8638 ETA_Vbi_ei=(((rbi_Vbi_ei*ibei)+(rbi*ibei_Vbi_ei))*fgeo/VT);
8639 ETA_Vbi_ci=(rbi_Vbi_ci*ibei*fgeo/VT);
8640 ETA_Vci_ei=(rbi_Vci_ei*ibei*fgeo/VT);
8641 #endif
8642 ETA=(((rbi*ibei)*fgeo)/VT);
8643 if
8644 ((ETA<1.0e-6))
8645 {
8646 #if defined(_DERIVATE)
8647 rbi_Vtnode_GND=((rbi_Vtnode_GND*(1.0-(0.5*ETA)))+(rbi*(-(0.5*ETA_Vtnode_GND))));
8648 rbi_Vbi_ei=((rbi_Vbi_ei*(1.0-(0.5*ETA)))+(rbi*(-(0.5*ETA_Vbi_ei))));
8649 rbi_Vbi_ci=((rbi_Vbi_ci*(1.0-(0.5*ETA)))+(rbi*(-(0.5*ETA_Vbi_ci))));
8650 rbi_Vci_ei=((rbi_Vci_ei*(1.0-(0.5*ETA)))+(rbi*(-(0.5*ETA_Vci_ei))));
8651 #endif
8652 rbi=(rbi*(1.0-(0.5*ETA)));
8653 }
8654 else
8655 {
8656 {
8657 double m00_logE(d00_logE0,(1.0+ETA))
8658 #if defined(_DERIVATE)
8659 double m10_logE(d10_logE0,d00_logE0,(1.0+ETA))
8660 #endif
8661 #if defined(_DERIVATE)
8662 rbi_Vtnode_GND=((((rbi_Vtnode_GND*d00_logE0)+(rbi*ETA_Vtnode_GND*d10_logE0))*ETA-(rbi*d00_logE0)*ETA_Vtnode_GND)/ETA/ETA);
8663 rbi_Vbi_ei=((((rbi_Vbi_ei*d00_logE0)+(rbi*ETA_Vbi_ei*d10_logE0))*ETA-(rbi*d00_logE0)*ETA_Vbi_ei)/ETA/ETA);
8664 rbi_Vbi_ci=((((rbi_Vbi_ci*d00_logE0)+(rbi*ETA_Vbi_ci*d10_logE0))*ETA-(rbi*d00_logE0)*ETA_Vbi_ci)/ETA/ETA);
8665 rbi_Vci_ei=((((rbi_Vci_ei*d00_logE0)+(rbi*ETA_Vci_ei*d10_logE0))*ETA-(rbi*d00_logE0)*ETA_Vci_ei)/ETA/ETA);
8666 #endif
8667 rbi=((rbi*d00_logE0)/ETA);
8668 }
8669 }
8670 }
8671 if
8672 ((Qf>0.0))
8673 {
8674 #if defined(_DERIVATE)
8675 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));
8676 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));
8677 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));
8678 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));
8679 #endif
8680 rbi=((rbi*(Qjei+(Qf*fqi)))/(Qjei+Qf));
8681 }
8682 }
8683 else
8684 {
8685 #if defined(_DERIVATE)
8686 rbi_Vtnode_GND=0.0;
8687 rbi_Vbi_ei=0.0;
8688 rbi_Vbi_ci=0.0;
8689 rbi_Vci_ei=0.0;
8690 #endif
8691 rbi=0.0;
8692 }
8693 #if defined(_DERIVATE)
8694 DIOY_Vsi_ci=0.0;
8695 DIOY_Vbp_ci=0.0;
8696 DIOY_Vbp_ei=(1/(mbep*VT));
8697 DIOY_Vbi_ci=0.0;
8698 DIOY_Vbi_ei=0.0;
8699 DIOY_Vtnode_GND=(-BP(bp,ei)*(mbep*VT_Vtnode_GND)/(mbep*VT)/(mbep*VT));
8700 #endif
8701 DIOY=(BP(bp,ei)/(mbep*VT));
8702 if
8703 ((ibeps>0.0))
8704 {
8705 if
8706 ((DIOY>80.0))
8707 {
8708 #if defined(_DERIVATE)
8709 le_Vsi_ci=0.0;
8710 le_Vbp_ci=0.0;
8711 le_Vbp_ei=DIOY_Vbp_ei;
8712 le_Vbi_ci=DIOY_Vbi_ci;
8713 le_Vbi_ei=DIOY_Vbi_ei;
8714 le_Vtnode_GND=DIOY_Vtnode_GND;
8715 #endif
8716 le=(1+(DIOY-80.0));
8717 #if defined(_DERIVATE)
8718 DIOY_Vsi_ci=0.0;
8719 DIOY_Vbp_ci=0.0;
8720 DIOY_Vbp_ei=0.0;
8721 DIOY_Vbi_ci=0.0;
8722 DIOY_Vbi_ei=0.0;
8723 DIOY_Vtnode_GND=0.0;
8724 #endif
8725 DIOY=80.0;
8726 }
8727 else
8728 {
8729 #if defined(_DERIVATE)
8730 le_Vsi_ci=0.0;
8731 le_Vbp_ci=0.0;
8732 le_Vbp_ei=0.0;
8733 le_Vbi_ci=0.0;
8734 le_Vbi_ei=0.0;
8735 le_Vtnode_GND=0.0;
8736 #endif
8737 le=1;
8738 }
8739 {
8740 double m00_limexp(d00_limexp0,DIOY)
8741 #if defined(_DERIVATE)
8742 double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
8743 #endif
8744 #if defined(_DERIVATE)
8745 le_Vsi_ci=0.0;
8746 le_Vbp_ci=0.0;
8747 le_Vbp_ei=((le_Vbp_ei*d00_limexp0)+(le*DIOY_Vbp_ei*d10_limexp0));
8748 le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
8749 le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
8750 le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
8751 #endif
8752 le=(le*d00_limexp0);
8753 }
8754 #if defined(_DERIVATE)
8755 ibep_Vtnode_GND=((ibeps_t_Vtnode_GND*(le-1.0))+(ibeps_t*le_Vtnode_GND));
8756 ibep_Vbp_ei=(ibeps_t*le_Vbp_ei);
8757 ibep_Vbi_ci=(ibeps_t*le_Vbi_ci);
8758 ibep_Vbi_ei=(ibeps_t*le_Vbi_ei);
8759 #endif
8760 ibep=(ibeps_t*(le-1.0));
8761 if
8762 ((DIOY<=(-14.0)))
8763 {
8764 #if defined(_DERIVATE)
8765 ibep_Vtnode_GND=(-ibeps_t_Vtnode_GND);
8766 ibep_Vbp_ei=0.0;
8767 ibep_Vbi_ci=0.0;
8768 ibep_Vbi_ei=0.0;
8769 #endif
8770 ibep=(-ibeps_t);
8771 }
8772 }
8773 else
8774 {
8775 #if defined(_DERIVATE)
8776 ibep_Vtnode_GND=0.0;
8777 ibep_Vbp_ei=0.0;
8778 ibep_Vbi_ci=0.0;
8779 ibep_Vbi_ei=0.0;
8780 #endif
8781 ibep=0.0;
8782 }
8783 #if defined(_DERIVATE)
8784 DIOY_Vsi_ci=0.0;
8785 DIOY_Vbp_ci=0.0;
8786 DIOY_Vbp_ei=(1/(mrep*VT));
8787 DIOY_Vbi_ci=0.0;
8788 DIOY_Vbi_ei=0.0;
8789 DIOY_Vtnode_GND=(-BP(bp,ei)*(mrep*VT_Vtnode_GND)/(mrep*VT)/(mrep*VT));
8790 #endif
8791 DIOY=(BP(bp,ei)/(mrep*VT));
8792 if
8793 ((ireps>0.0))
8794 {
8795 if
8796 ((DIOY>80.0))
8797 {
8798 #if defined(_DERIVATE)
8799 le_Vsi_ci=0.0;
8800 le_Vbp_ci=0.0;
8801 le_Vbp_ei=DIOY_Vbp_ei;
8802 le_Vbi_ci=DIOY_Vbi_ci;
8803 le_Vbi_ei=DIOY_Vbi_ei;
8804 le_Vtnode_GND=DIOY_Vtnode_GND;
8805 #endif
8806 le=(1+(DIOY-80.0));
8807 #if defined(_DERIVATE)
8808 DIOY_Vsi_ci=0.0;
8809 DIOY_Vbp_ci=0.0;
8810 DIOY_Vbp_ei=0.0;
8811 DIOY_Vbi_ci=0.0;
8812 DIOY_Vbi_ei=0.0;
8813 DIOY_Vtnode_GND=0.0;
8814 #endif
8815 DIOY=80.0;
8816 }
8817 else
8818 {
8819 #if defined(_DERIVATE)
8820 le_Vsi_ci=0.0;
8821 le_Vbp_ci=0.0;
8822 le_Vbp_ei=0.0;
8823 le_Vbi_ci=0.0;
8824 le_Vbi_ei=0.0;
8825 le_Vtnode_GND=0.0;
8826 #endif
8827 le=1;
8828 }
8829 {
8830 double m00_limexp(d00_limexp0,DIOY)
8831 #if defined(_DERIVATE)
8832 double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
8833 #endif
8834 #if defined(_DERIVATE)
8835 le_Vsi_ci=0.0;
8836 le_Vbp_ci=0.0;
8837 le_Vbp_ei=((le_Vbp_ei*d00_limexp0)+(le*DIOY_Vbp_ei*d10_limexp0));
8838 le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
8839 le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
8840 le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
8841 #endif
8842 le=(le*d00_limexp0);
8843 }
8844 #if defined(_DERIVATE)
8845 irep_Vtnode_GND=((ireps_t_Vtnode_GND*(le-1.0))+(ireps_t*le_Vtnode_GND));
8846 irep_Vbp_ei=(ireps_t*le_Vbp_ei);
8847 irep_Vbi_ci=(ireps_t*le_Vbi_ci);
8848 irep_Vbi_ei=(ireps_t*le_Vbi_ei);
8849 #endif
8850 irep=(ireps_t*(le-1.0));
8851 if
8852 ((DIOY<=(-14.0)))
8853 {
8854 #if defined(_DERIVATE)
8855 irep_Vtnode_GND=(-ireps_t_Vtnode_GND);
8856 irep_Vbp_ei=0.0;
8857 irep_Vbi_ci=0.0;
8858 irep_Vbi_ei=0.0;
8859 #endif
8860 irep=(-ireps_t);
8861 }
8862 }
8863 else
8864 {
8865 #if defined(_DERIVATE)
8866 irep_Vtnode_GND=0.0;
8867 irep_Vbp_ei=0.0;
8868 irep_Vbi_ci=0.0;
8869 irep_Vbi_ei=0.0;
8870 #endif
8871 irep=0.0;
8872 }
8873 if
8874 ((cjep0_t>0.0))
8875 {
8876 {
8877 double m00_logE(d00_logE0,ajep_t)
8878 double m00_exp(d00_exp1,((-d00_logE0)/zep))
8879 #if defined(_DERIVATE)
8880 double m10_logE(d10_logE0,d00_logE0,ajep_t)
8881 #define d10_exp1 d00_exp1
8882 #endif
8883 #if defined(_DERIVATE)
8884 DFV_f_Vtnode_GND=((vdep_t_Vtnode_GND*(1.0-d00_exp1))+(vdep_t*(-((-ajep_t_Vtnode_GND*d10_logE0)/zep)*d10_exp1)));
8885 #endif
8886 DFV_f=(vdep_t*(1.0-d00_exp1));
8887 }
8888 #if defined(_DERIVATE)
8889 DFv_e_Vsi_ci=0.0;
8890 DFv_e_Vb_ci=0.0;
8891 DFv_e_Vbp_ci=0.0;
8892 DFv_e_Vbp_ei=((-1.0)/VT);
8893 DFv_e_Vbi_ci=0.0;
8894 DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(bp,ei))*VT_Vtnode_GND)/VT/VT);
8895 DFv_e_Vbi_ei=0.0;
8896 #endif
8897 DFv_e=((DFV_f-BP(bp,ei))/VT);
8898 {
8899 double m00_sqrt(d00_sqrt0,((DFv_e*DFv_e)+1.921812))
8900 #if defined(_DERIVATE)
8901 double m10_sqrt(d10_sqrt0,d00_sqrt0,((DFv_e*DFv_e)+1.921812))
8902 #endif
8903 #if defined(_DERIVATE)
8904 DFs_q_Vsi_ci=0.0;
8905 DFs_q_Vb_ci=0.0;
8906 DFs_q_Vbp_ci=0.0;
8907 DFs_q_Vbp_ei=((DFv_e_Vbp_ei*DFv_e)+(DFv_e*DFv_e_Vbp_ei))*d10_sqrt0;
8908 DFs_q_Vbi_ci=((DFv_e_Vbi_ci*DFv_e)+(DFv_e*DFv_e_Vbi_ci))*d10_sqrt0;
8909 DFs_q_Vtnode_GND=((DFv_e_Vtnode_GND*DFv_e)+(DFv_e*DFv_e_Vtnode_GND))*d10_sqrt0;
8910 DFs_q_Vbi_ei=((DFv_e_Vbi_ei*DFv_e)+(DFv_e*DFv_e_Vbi_ei))*d10_sqrt0;
8911 #endif
8912 DFs_q=d00_sqrt0;
8913 }
8914 #if defined(_DERIVATE)
8915 DFs_q2_Vsi_ci=0.0;
8916 DFs_q2_Vb_ci=0.0;
8917 DFs_q2_Vbp_ci=0.0;
8918 DFs_q2_Vbp_ei=(DFv_e_Vbp_ei+DFs_q_Vbp_ei)*0.5;
8919 DFs_q2_Vbi_ci=(DFv_e_Vbi_ci+DFs_q_Vbi_ci)*0.5;
8920 DFs_q2_Vtnode_GND=(DFv_e_Vtnode_GND+DFs_q_Vtnode_GND)*0.5;
8921 DFs_q2_Vbi_ei=(DFv_e_Vbi_ei+DFs_q_Vbi_ei)*0.5;
8922 #endif
8923 DFs_q2=((DFv_e+DFs_q)*0.5);
8924 #if defined(_DERIVATE)
8925 DFv_j_Vsi_ci=0.0;
8926 DFv_j_Vb_ci=0.0;
8927 DFv_j_Vbp_ci=0.0;
8928 DFv_j_Vbp_ei=(-(VT*DFs_q2_Vbp_ei));
8929 DFv_j_Vbi_ci=(-(VT*DFs_q2_Vbi_ci));
8930 DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*DFs_q2)+(VT*DFs_q2_Vtnode_GND)));
8931 DFv_j_Vbi_ei=(-(VT*DFs_q2_Vbi_ei));
8932 #endif
8933 DFv_j=(DFV_f-(VT*DFs_q2));
8934 #if defined(_DERIVATE)
8935 DFdvj_dv_Vsi_ci=0.0;
8936 DFdvj_dv_Vb_ci=0.0;
8937 DFdvj_dv_Vbp_ci=0.0;
8938 DFdvj_dv_Vbp_ei=((DFs_q2_Vbp_ei*DFs_q-DFs_q2*DFs_q_Vbp_ei)/DFs_q/DFs_q);
8939 DFdvj_dv_Vbi_ci=((DFs_q2_Vbi_ci*DFs_q-DFs_q2*DFs_q_Vbi_ci)/DFs_q/DFs_q);
8940 DFdvj_dv_Vtnode_GND=((DFs_q2_Vtnode_GND*DFs_q-DFs_q2*DFs_q_Vtnode_GND)/DFs_q/DFs_q);
8941 DFdvj_dv_Vbi_ei=((DFs_q2_Vbi_ei*DFs_q-DFs_q2*DFs_q_Vbi_ei)/DFs_q/DFs_q);
8942 #endif
8943 DFdvj_dv=(DFs_q2/DFs_q);
8944 {
8945 double m00_logE(d00_logE0,(1.0-(DFv_j/vdep_t)))
8946 #if defined(_DERIVATE)
8947 double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdep_t)))
8948 #endif
8949 #if defined(_DERIVATE)
8950 DFb_Vsi_ci=0.0;
8951 DFb_Vb_ci=0.0;
8952 DFb_Vbp_ci=0.0;
8953 DFb_Vbp_ei=(-(DFv_j_Vbp_ei/vdep_t))*d10_logE0;
8954 DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdep_t))*d10_logE0;
8955 DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdep_t-DFv_j*vdep_t_Vtnode_GND)/vdep_t/vdep_t))*d10_logE0;
8956 DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdep_t))*d10_logE0;
8957 #endif
8958 DFb=d00_logE0;
8959 }
8960 {
8961 double m00_exp(d00_exp0,((-zep)*DFb))
8962 #if defined(_DERIVATE)
8963 #define d10_exp0 d00_exp0
8964 #endif
8965 #if defined(_DERIVATE)
8966 DFC_j1_Vsi_ci=0.0;
8967 DFC_j1_Vb_ci=0.0;
8968 DFC_j1_Vbp_ci=0.0;
8969 DFC_j1_Vbp_ei=(((cjep0_t*((-zep)*DFb_Vbp_ei)*d10_exp0)*DFdvj_dv)+((cjep0_t*d00_exp0)*DFdvj_dv_Vbp_ei));
8970 DFC_j1_Vbi_ci=(((cjep0_t*((-zep)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjep0_t*d00_exp0)*DFdvj_dv_Vbi_ci));
8971 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));
8972 DFC_j1_Vbi_ei=(((cjep0_t*((-zep)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjep0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
8973 #endif
8974 DFC_j1=((cjep0_t*d00_exp0)*DFdvj_dv);
8975 }
8976 #if defined(_DERIVATE)
8977 Cjep_Vbp_ei=(DFC_j1_Vbp_ei+((ajep_t*cjep0_t)*(-DFdvj_dv_Vbp_ei)));
8978 Cjep_Vbi_ci=(DFC_j1_Vbi_ci+((ajep_t*cjep0_t)*(-DFdvj_dv_Vbi_ci)));
8979 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))));
8980 Cjep_Vbi_ei=(DFC_j1_Vbi_ei+((ajep_t*cjep0_t)*(-DFdvj_dv_Vbi_ei)));
8981 #endif
8982 Cjep=(DFC_j1+((ajep_t*cjep0_t)*(1.0-DFdvj_dv)));
8983 #if defined(_DYNAMIC)
8984 {
8985 double m00_exp(d00_exp0,(DFb*(1.0-zep)))
8986 #if defined(_DERIVATE)
8987 #define d10_exp0 d00_exp0
8988 #endif
8989 #if defined(_DERIVATE)
8990 DFQ_j_Vsi_ci=0.0;
8991 DFQ_j_Vb_ci=0.0;
8992 DFQ_j_Vbp_ci=0.0;
8993 DFQ_j_Vbp_ei=(((cjep0_t*vdep_t)*(-DFb_Vbp_ei*(1.0-zep)*d10_exp0))/(1.0-zep));
8994 DFQ_j_Vbi_ci=(((cjep0_t*vdep_t)*(-DFb_Vbi_ci*(1.0-zep)*d10_exp0))/(1.0-zep));
8995 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));
8996 DFQ_j_Vbi_ei=(((cjep0_t*vdep_t)*(-DFb_Vbi_ei*(1.0-zep)*d10_exp0))/(1.0-zep));
8997 #endif
8998 DFQ_j=(((cjep0_t*vdep_t)*(1.0-d00_exp0))/(1.0-zep));
8999 }
9000 #endif
9001 #if defined(_DYNAMIC)
9002 #if defined(_DERIVATE)
9003 Qjep_Vbp_ei=(DFQ_j_Vbp_ei+((ajep_t*cjep0_t)*(1.0-DFv_j_Vbp_ei)));
9004 Qjep_Vbi_ci=(DFQ_j_Vbi_ci+((ajep_t*cjep0_t)*(-DFv_j_Vbi_ci)));
9005 Qjep_Vtnode_GND=(DFQ_j_Vtnode_GND+((((ajep_t_Vtnode_GND*cjep0_t)+(ajep_t*cjep0_t_Vtnode_GND))*(BP(bp,ei)-DFv_j))+((ajep_t*cjep0_t)*(-DFv_j_Vtnode_GND))));
9006 Qjep_Vbi_ei=(DFQ_j_Vbi_ei+((ajep_t*cjep0_t)*(-DFv_j_Vbi_ei)));
9007 #endif
9008 Qjep=(DFQ_j+((ajep_t*cjep0_t)*(BP(bp,ei)-DFv_j)));
9009 #endif
9010 }
9011 else
9012 {
9013 #if defined(_DERIVATE)
9014 Cjep_Vbp_ei=0.0;
9015 Cjep_Vbi_ci=0.0;
9016 Cjep_Vtnode_GND=0.0;
9017 Cjep_Vbi_ei=0.0;
9018 #endif
9019 Cjep=0.0;
9020 #if defined(_DYNAMIC)
9021 #if defined(_DERIVATE)
9022 Qjep_Vbp_ei=0.0;
9023 Qjep_Vbi_ci=0.0;
9024 Qjep_Vtnode_GND=0.0;
9025 Qjep_Vbi_ei=0.0;
9026 #endif
9027 Qjep=0.0;
9028 #endif
9029 }
9030 if
9031 (((BP(bp,ei)<0.0)||(BP(bi,ei)<0.0)))
9032 {
9033 double pocce;
9034 double czz;
9035 #if defined(_DERIVATE)
9036 double pocce_Vbp_ei;
9037 #endif
9038 #if defined(_DERIVATE)
9039 double pocce_Vbi_ci;
9040 #endif
9041 #if defined(_DERIVATE)
9042 double pocce_Vtnode_GND;
9043 #endif
9044 #if defined(_DERIVATE)
9045 double pocce_Vbi_ei;
9046 #endif
9047 #if defined(_DERIVATE)
9048 double czz_Vbp_ei;
9049 #endif
9050 #if defined(_DERIVATE)
9051 double czz_Vtnode_GND;
9052 #endif
9053 #if defined(_DERIVATE)
9054 double czz_Vbi_ci;
9055 #endif
9056 #if defined(_DERIVATE)
9057 double czz_Vbi_ei;
9058 #endif
9059 if
9060 ((((tunode==1)&&(cjep0_t>0.0))&&(vdep_t>0.0)))
9061 {
9062 {
9063 double m00_logE(d00_logE0,(Cjep/cjep0_t))
9064 double m00_exp(d00_exp1,((1-(1/zep))*d00_logE0))
9065 #if defined(_DERIVATE)
9066 double m10_logE(d10_logE0,d00_logE0,(Cjep/cjep0_t))
9067 #define d10_exp1 d00_exp1
9068 #endif
9069 #if defined(_DERIVATE)
9070 pocce_Vbp_ei=((1-(1/zep))*(Cjep_Vbp_ei/cjep0_t)*d10_logE0)*d10_exp1;
9071 pocce_Vbi_ci=((1-(1/zep))*(Cjep_Vbi_ci/cjep0_t)*d10_logE0)*d10_exp1;
9072 pocce_Vtnode_GND=((1-(1/zep))*((Cjep_Vtnode_GND*cjep0_t-Cjep*cjep0_t_Vtnode_GND)/cjep0_t/cjep0_t)*d10_logE0)*d10_exp1;
9073 pocce_Vbi_ei=((1-(1/zep))*(Cjep_Vbi_ei/cjep0_t)*d10_logE0)*d10_exp1;
9074 #endif
9075 pocce=d00_exp1;
9076 }
9077 #if defined(_DERIVATE)
9078 czz_Vbp_ei=(((-(1/vdep_t))*ibets_t*pocce)+(((-(BP(bp,ei)/vdep_t))*ibets_t)*pocce_Vbp_ei));
9079 czz_Vtnode_GND=(((((-(-BP(bp,ei)*vdep_t_Vtnode_GND/vdep_t/vdep_t))*ibets_t)+((-(BP(bp,ei)/vdep_t))*ibets_t_Vtnode_GND))*pocce)+(((-(BP(bp,ei)/vdep_t))*ibets_t)*pocce_Vtnode_GND));
9080 czz_Vbi_ci=(((-(BP(bp,ei)/vdep_t))*ibets_t)*pocce_Vbi_ci);
9081 czz_Vbi_ei=(((-(BP(bp,ei)/vdep_t))*ibets_t)*pocce_Vbi_ei);
9082 #endif
9083 czz=(((-(BP(bp,ei)/vdep_t))*ibets_t)*pocce);
9084 {
9085 double m00_exp(d00_exp0,((-abet_t)/pocce))
9086 #if defined(_DERIVATE)
9087 #define d10_exp0 d00_exp0
9088 #endif
9089 #if defined(_DERIVATE)
9090 ibet_Vbp_ei=((czz_Vbp_ei*d00_exp0)+(czz*(-(-abet_t)*pocce_Vbp_ei/pocce/pocce)*d10_exp0));
9091 ibet_Vtnode_GND=((czz_Vtnode_GND*d00_exp0)+(czz*(((-abet_t_Vtnode_GND)*pocce-(-abet_t)*pocce_Vtnode_GND)/pocce/pocce)*d10_exp0));
9092 ibet_Vbi_ci=((czz_Vbi_ci*d00_exp0)+(czz*(-(-abet_t)*pocce_Vbi_ci/pocce/pocce)*d10_exp0));
9093 ibet_Vbi_ei=((czz_Vbi_ei*d00_exp0)+(czz*(-(-abet_t)*pocce_Vbi_ei/pocce/pocce)*d10_exp0));
9094 #endif
9095 ibet=(czz*d00_exp0);
9096 }
9097 }
9098 else
9099 {
9100 if
9101 ((((tunode==0)&&(cjei0_t>0.0))&&(vdei_t>0.0)))
9102 {
9103 {
9104 double m00_logE(d00_logE0,(Cjei/cjei0_t))
9105 double m00_exp(d00_exp1,((1-(1/zei))*d00_logE0))
9106 #if defined(_DERIVATE)
9107 double m10_logE(d10_logE0,d00_logE0,(Cjei/cjei0_t))
9108 #define d10_exp1 d00_exp1
9109 #endif
9110 #if defined(_DERIVATE)
9111 pocce_Vbp_ei=0.0;
9112 pocce_Vbi_ci=0.0;
9113 pocce_Vtnode_GND=((1-(1/zei))*((Cjei_Vtnode_GND*cjei0_t-Cjei*cjei0_t_Vtnode_GND)/cjei0_t/cjei0_t)*d10_logE0)*d10_exp1;
9114 pocce_Vbi_ei=((1-(1/zei))*(Cjei_Vbi_ei/cjei0_t)*d10_logE0)*d10_exp1;
9115 #endif
9116 pocce=d00_exp1;
9117 }
9118 #if defined(_DERIVATE)
9119 czz_Vbp_ei=(((-(BP(bi,ei)/vdei_t))*ibets_t)*pocce_Vbp_ei);
9120 czz_Vtnode_GND=(((((-(-BP(bi,ei)*vdei_t_Vtnode_GND/vdei_t/vdei_t))*ibets_t)+((-(BP(bi,ei)/vdei_t))*ibets_t_Vtnode_GND))*pocce)+(((-(BP(bi,ei)/vdei_t))*ibets_t)*pocce_Vtnode_GND));
9121 czz_Vbi_ci=(((-(BP(bi,ei)/vdei_t))*ibets_t)*pocce_Vbi_ci);
9122 czz_Vbi_ei=(((-(1/vdei_t))*ibets_t*pocce)+(((-(BP(bi,ei)/vdei_t))*ibets_t)*pocce_Vbi_ei));
9123 #endif
9124 czz=(((-(BP(bi,ei)/vdei_t))*ibets_t)*pocce);
9125 {
9126 double m00_exp(d00_exp0,((-abet_t)/pocce))
9127 #if defined(_DERIVATE)
9128 #define d10_exp0 d00_exp0
9129 #endif
9130 #if defined(_DERIVATE)
9131 ibet_Vbp_ei=((czz_Vbp_ei*d00_exp0)+(czz*(-(-abet_t)*pocce_Vbp_ei/pocce/pocce)*d10_exp0));
9132 ibet_Vtnode_GND=((czz_Vtnode_GND*d00_exp0)+(czz*(((-abet_t_Vtnode_GND)*pocce-(-abet_t)*pocce_Vtnode_GND)/pocce/pocce)*d10_exp0));
9133 ibet_Vbi_ci=((czz_Vbi_ci*d00_exp0)+(czz*(-(-abet_t)*pocce_Vbi_ci/pocce/pocce)*d10_exp0));
9134 ibet_Vbi_ei=((czz_Vbi_ei*d00_exp0)+(czz*(-(-abet_t)*pocce_Vbi_ei/pocce/pocce)*d10_exp0));
9135 #endif
9136 ibet=(czz*d00_exp0);
9137 }
9138 }
9139 else
9140 {
9141 #if defined(_DERIVATE)
9142 ibet_Vbp_ei=0.0;
9143 ibet_Vtnode_GND=0.0;
9144 ibet_Vbi_ci=0.0;
9145 ibet_Vbi_ei=0.0;
9146 #endif
9147 ibet=0.0;
9148 }
9149 }
9150 }
9151 else
9152 {
9153 #if defined(_DERIVATE)
9154 ibet_Vbp_ei=0.0;
9155 ibet_Vtnode_GND=0.0;
9156 ibet_Vbi_ci=0.0;
9157 ibet_Vbi_ei=0.0;
9158 #endif
9159 ibet=0.0;
9160 }
9161 #ifdef _DYNAMIC
9162 if
9163 ((vptcx_t<1.0e2))
9164 {
9165 #ifdef _DYNAMIC
9166 if
9167 ((cjcx02_t>0.0))
9168 {
9169 #if defined(_DYNAMIC)
9170 Dz_r=(zcx/4.0);
9171 #endif
9172 #if defined(_DYNAMIC)
9173 #if defined(_DERIVATE)
9174 Dv_p_Vtnode_GND=(vptcx_t_Vtnode_GND-vdcx_t_Vtnode_GND);
9175 #endif
9176 Dv_p=(vptcx_t-vdcx_t);
9177 #endif
9178 #if defined(_DYNAMIC)
9179 {
9180 double m00_logE(d00_logE0,2.4)
9181 double m00_exp(d00_exp1,((-d00_logE0)/zcx))
9182 #if defined(_DERIVATE)
9183 DV_f_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
9184 #endif
9185 DV_f=(vdcx_t*(1.0-d00_exp1));
9186 }
9187 #endif
9188 #if defined(_DYNAMIC)
9189 #if defined(_DERIVATE)
9190 DC_max_Vtnode_GND=(2.4*cjcx02_t_Vtnode_GND);
9191 #endif
9192 DC_max=(2.4*cjcx02_t);
9193 #endif
9194 #if defined(_DYNAMIC)
9195 {
9196 double m00_logE(d00_logE0,(vptcx_t/vdcx_t))
9197 double m00_exp(d00_exp1,((Dz_r-zcx)*d00_logE0))
9198 #if defined(_DERIVATE)
9199 double m10_logE(d10_logE0,d00_logE0,(vptcx_t/vdcx_t))
9200 #define d10_exp1 d00_exp1
9201 #endif
9202 #if defined(_DERIVATE)
9203 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));
9204 #endif
9205 DC_c=(cjcx02_t*d00_exp1);
9206 }
9207 #endif
9208 #if defined(_DYNAMIC)
9209 #if defined(_DERIVATE)
9210 Dv_e_Vsi_ci=0.0;
9211 Dv_e_Vb_ci=0.0;
9212 Dv_e_Vbp_ci=((-1.0)/VT);
9213 Dv_e_Vtnode_GND=((DV_f_Vtnode_GND*VT-(DV_f-BP(bp,ci))*VT_Vtnode_GND)/VT/VT);
9214 Dv_e_Vbi_ci=0.0;
9215 #endif
9216 Dv_e=((DV_f-BP(bp,ci))/VT);
9217 #endif
9218 #ifdef _DYNAMIC
9219 if
9220 ((Dv_e<80.0))
9221 {
9222 #if defined(_DYNAMIC)
9223 {
9224 double m00_exp(d00_exp0,Dv_e)
9225 #if defined(_DERIVATE)
9226 #define d10_exp0 d00_exp0
9227 #endif
9228 #if defined(_DERIVATE)
9229 De_Vsi_ci=0.0;
9230 De_Vb_ci=0.0;
9231 De_Vbp_ci=Dv_e_Vbp_ci*d10_exp0;
9232 De_Vtnode_GND=Dv_e_Vtnode_GND*d10_exp0;
9233 De_Vbi_ci=Dv_e_Vbi_ci*d10_exp0;
9234 #endif
9235 De=d00_exp0;
9236 }
9237 #endif
9238 #if defined(_DYNAMIC)
9239 #if defined(_DERIVATE)
9240 De_1_Vsi_ci=0.0;
9241 De_1_Vb_ci=0.0;
9242 De_1_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
9243 De_1_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
9244 De_1_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
9245 #endif
9246 De_1=(De/(1.0+De));
9247 #endif
9248 #if defined(_DYNAMIC)
9249 {
9250 double m00_logE(d00_logE0,(1.0+De))
9251 #if defined(_DERIVATE)
9252 double m10_logE(d10_logE0,d00_logE0,(1.0+De))
9253 #endif
9254 #if defined(_DERIVATE)
9255 Dv_j1_Vsi_ci=0.0;
9256 Dv_j1_Vb_ci=0.0;
9257 Dv_j1_Vbp_ci=(-(VT*De_Vbp_ci*d10_logE0));
9258 Dv_j1_Vtnode_GND=(DV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*De_Vtnode_GND*d10_logE0)));
9259 Dv_j1_Vbi_ci=(-(VT*De_Vbi_ci*d10_logE0));
9260 #endif
9261 Dv_j1=(DV_f-(VT*d00_logE0));
9262 }
9263 #endif
9264 }
9265 else
9266 {
9267 #if defined(_DYNAMIC)
9268 #if defined(_DERIVATE)
9269 De_1_Vsi_ci=0.0;
9270 De_1_Vb_ci=0.0;
9271 De_1_Vbp_ci=0.0;
9272 De_1_Vtnode_GND=0.0;
9273 De_1_Vbi_ci=0.0;
9274 #endif
9275 De_1=1.0;
9276 #endif
9277 #if defined(_DYNAMIC)
9278 #if defined(_DERIVATE)
9279 Dv_j1_Vsi_ci=0.0;
9280 Dv_j1_Vb_ci=0.0;
9281 Dv_j1_Vbp_ci=1.0;
9282 Dv_j1_Vtnode_GND=0.0;
9283 Dv_j1_Vbi_ci=0.0;
9284 #endif
9285 Dv_j1=BP(bp,ci);
9286 #endif
9287 }
9288 #endif /* if (...) */
9289 #if defined(_DYNAMIC)
9290 #if defined(_DERIVATE)
9291 Da_Vtnode_GND=((0.1*Dv_p_Vtnode_GND)+(4.0*VT_Vtnode_GND));
9292 #endif
9293 Da=((0.1*Dv_p)+(4.0*VT));
9294 #endif
9295 #if defined(_DYNAMIC)
9296 #if defined(_DERIVATE)
9297 Dv_r_Vsi_ci=0.0;
9298 Dv_r_Vb_ci=0.0;
9299 Dv_r_Vbp_ci=(Dv_j1_Vbp_ci/Da);
9300 Dv_r_Vtnode_GND=(((Dv_p_Vtnode_GND+Dv_j1_Vtnode_GND)*Da-(Dv_p+Dv_j1)*Da_Vtnode_GND)/Da/Da);
9301 Dv_r_Vbi_ci=(Dv_j1_Vbi_ci/Da);
9302 #endif
9303 Dv_r=((Dv_p+Dv_j1)/Da);
9304 #endif
9305 #ifdef _DYNAMIC
9306 if
9307 ((Dv_r<80.0))
9308 {
9309 #if defined(_DYNAMIC)
9310 {
9311 double m00_exp(d00_exp0,Dv_r)
9312 #if defined(_DERIVATE)
9313 #define d10_exp0 d00_exp0
9314 #endif
9315 #if defined(_DERIVATE)
9316 De_Vsi_ci=0.0;
9317 De_Vb_ci=0.0;
9318 De_Vbp_ci=Dv_r_Vbp_ci*d10_exp0;
9319 De_Vtnode_GND=Dv_r_Vtnode_GND*d10_exp0;
9320 De_Vbi_ci=Dv_r_Vbi_ci*d10_exp0;
9321 #endif
9322 De=d00_exp0;
9323 }
9324 #endif
9325 #if defined(_DYNAMIC)
9326 #if defined(_DERIVATE)
9327 De_2_Vsi_ci=0.0;
9328 De_2_Vb_ci=0.0;
9329 De_2_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
9330 De_2_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
9331 De_2_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
9332 #endif
9333 De_2=(De/(1.0+De));
9334 #endif
9335 #if defined(_DYNAMIC)
9336 {
9337 double m00_logE(d00_logE0,(1.0+De))
9338 #if defined(_DERIVATE)
9339 double m10_logE(d10_logE0,d00_logE0,(1.0+De))
9340 #endif
9341 #if defined(_DERIVATE)
9342 Dv_j2_Vsi_ci=0.0;
9343 Dv_j2_Vb_ci=0.0;
9344 Dv_j2_Vbp_ci=(Da*De_Vbp_ci*d10_logE0);
9345 Dv_j2_Vtnode_GND=((-Dv_p_Vtnode_GND)+((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
9346 Dv_j2_Vbi_ci=(Da*De_Vbi_ci*d10_logE0);
9347 #endif
9348 Dv_j2=((-Dv_p)+(Da*d00_logE0));
9349 }
9350 #endif
9351 }
9352 else
9353 {
9354 #if defined(_DYNAMIC)
9355 #if defined(_DERIVATE)
9356 De_2_Vsi_ci=0.0;
9357 De_2_Vb_ci=0.0;
9358 De_2_Vbp_ci=0.0;
9359 De_2_Vtnode_GND=0.0;
9360 De_2_Vbi_ci=0.0;
9361 #endif
9362 De_2=1.0;
9363 #endif
9364 #if defined(_DYNAMIC)
9365 #if defined(_DERIVATE)
9366 Dv_j2_Vsi_ci=0.0;
9367 Dv_j2_Vb_ci=0.0;
9368 Dv_j2_Vbp_ci=Dv_j1_Vbp_ci;
9369 Dv_j2_Vtnode_GND=Dv_j1_Vtnode_GND;
9370 Dv_j2_Vbi_ci=Dv_j1_Vbi_ci;
9371 #endif
9372 Dv_j2=Dv_j1;
9373 #endif
9374 }
9375 #endif /* if (...) */
9376 #if defined(_DYNAMIC)
9377 #if defined(_DERIVATE)
9378 Dv_j4_Vsi_ci=0.0;
9379 Dv_j4_Vb_ci=0.0;
9380 Dv_j4_Vbp_ci=(1.0-Dv_j1_Vbp_ci);
9381 Dv_j4_Vbi_ci=(-Dv_j1_Vbi_ci);
9382 Dv_j4_Vtnode_GND=(-Dv_j1_Vtnode_GND);
9383 #endif
9384 Dv_j4=(BP(bp,ci)-Dv_j1);
9385 #endif
9386 #if defined(_DYNAMIC)
9387 {
9388 double m00_logE(d00_logE0,(1.0-(Dv_j1/vdcx_t)))
9389 #if defined(_DERIVATE)
9390 double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j1/vdcx_t)))
9391 #endif
9392 #if defined(_DERIVATE)
9393 DCln1_Vsi_ci=0.0;
9394 DCln1_Vb_ci=0.0;
9395 DCln1_Vbp_ci=(-(Dv_j1_Vbp_ci/vdcx_t))*d10_logE0;
9396 DCln1_Vtnode_GND=(-((Dv_j1_Vtnode_GND*vdcx_t-Dv_j1*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
9397 DCln1_Vbi_ci=(-(Dv_j1_Vbi_ci/vdcx_t))*d10_logE0;
9398 #endif
9399 DCln1=d00_logE0;
9400 }
9401 #endif
9402 #if defined(_DYNAMIC)
9403 {
9404 double m00_logE(d00_logE0,(1.0-(Dv_j2/vdcx_t)))
9405 #if defined(_DERIVATE)
9406 double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j2/vdcx_t)))
9407 #endif
9408 #if defined(_DERIVATE)
9409 DCln2_Vsi_ci=0.0;
9410 DCln2_Vb_ci=0.0;
9411 DCln2_Vbp_ci=(-(Dv_j2_Vbp_ci/vdcx_t))*d10_logE0;
9412 DCln2_Vtnode_GND=(-((Dv_j2_Vtnode_GND*vdcx_t-Dv_j2*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
9413 DCln2_Vbi_ci=(-(Dv_j2_Vbi_ci/vdcx_t))*d10_logE0;
9414 #endif
9415 DCln2=d00_logE0;
9416 }
9417 #endif
9418 #if defined(_DYNAMIC)
9419 Dz1=(1.0-zcx);
9420 #endif
9421 #if defined(_DYNAMIC)
9422 Dzr1=(1.0-Dz_r);
9423 #endif
9424 #if defined(_DYNAMIC)
9425 {
9426 double m00_exp(d00_exp0,(DCln2*(-zcx)))
9427 #if defined(_DERIVATE)
9428 #define d10_exp0 d00_exp0
9429 #endif
9430 #if defined(_DERIVATE)
9431 DC_j1_Vsi_ci=0.0;
9432 DC_j1_Vb_ci=0.0;
9433 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));
9434 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));
9435 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));
9436 #endif
9437 DC_j1=(((cjcx02_t*d00_exp0)*De_1)*De_2);
9438 }
9439 #endif
9440 #if defined(_DYNAMIC)
9441 {
9442 double m00_exp(d00_exp0,(DCln1*(-Dz_r)))
9443 #if defined(_DERIVATE)
9444 #define d10_exp0 d00_exp0
9445 #endif
9446 #if defined(_DERIVATE)
9447 DC_j2_Vsi_ci=0.0;
9448 DC_j2_Vb_ci=0.0;
9449 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)));
9450 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)));
9451 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)));
9452 #endif
9453 DC_j2=((DC_c*d00_exp0)*(1.0-De_2));
9454 }
9455 #endif
9456 #if defined(_DYNAMIC)
9457 #if defined(_DERIVATE)
9458 DC_j3_Vsi_ci=0.0;
9459 DC_j3_Vb_ci=0.0;
9460 DC_j3_Vbp_ci=(DC_max*(-De_1_Vbp_ci));
9461 DC_j3_Vtnode_GND=((DC_max_Vtnode_GND*(1.0-De_1))+(DC_max*(-De_1_Vtnode_GND)));
9462 DC_j3_Vbi_ci=(DC_max*(-De_1_Vbi_ci));
9463 #endif
9464 DC_j3=(DC_max*(1.0-De_1));
9465 #endif
9466 #if defined(_DYNAMIC)
9467 c_dummy=((DC_j1+DC_j2)+DC_j3);
9468 #endif
9469 #if defined(_DYNAMIC)
9470 {
9471 double m00_exp(d00_exp0,(DCln2*Dz1))
9472 #if defined(_DERIVATE)
9473 #define d10_exp0 d00_exp0
9474 #endif
9475 #if defined(_DERIVATE)
9476 DQ_j1_Vsi_ci=0.0;
9477 DQ_j1_Vb_ci=0.0;
9478 DQ_j1_Vbp_ci=((cjcx02_t*(-DCln2_Vbp_ci*Dz1*d10_exp0))/Dz1);
9479 DQ_j1_Vtnode_GND=(((cjcx02_t_Vtnode_GND*(1.0-d00_exp0))+(cjcx02_t*(-DCln2_Vtnode_GND*Dz1*d10_exp0)))/Dz1);
9480 DQ_j1_Vbi_ci=((cjcx02_t*(-DCln2_Vbi_ci*Dz1*d10_exp0))/Dz1);
9481 #endif
9482 DQ_j1=((cjcx02_t*(1.0-d00_exp0))/Dz1);
9483 }
9484 #endif
9485 #if defined(_DYNAMIC)
9486 {
9487 double m00_exp(d00_exp0,(DCln1*Dzr1))
9488 #if defined(_DERIVATE)
9489 #define d10_exp0 d00_exp0
9490 #endif
9491 #if defined(_DERIVATE)
9492 DQ_j2_Vsi_ci=0.0;
9493 DQ_j2_Vb_ci=0.0;
9494 DQ_j2_Vbp_ci=((DC_c*(-DCln1_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
9495 DQ_j2_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln1_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
9496 DQ_j2_Vbi_ci=((DC_c*(-DCln1_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
9497 #endif
9498 DQ_j2=((DC_c*(1.0-d00_exp0))/Dzr1);
9499 }
9500 #endif
9501 #if defined(_DYNAMIC)
9502 {
9503 double m00_exp(d00_exp0,(DCln2*Dzr1))
9504 #if defined(_DERIVATE)
9505 #define d10_exp0 d00_exp0
9506 #endif
9507 #if defined(_DERIVATE)
9508 DQ_j3_Vsi_ci=0.0;
9509 DQ_j3_Vb_ci=0.0;
9510 DQ_j3_Vbp_ci=((DC_c*(-DCln2_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
9511 DQ_j3_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln2_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
9512 DQ_j3_Vbi_ci=((DC_c*(-DCln2_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
9513 #endif
9514 DQ_j3=((DC_c*(1.0-d00_exp0))/Dzr1);
9515 }
9516 #endif
9517 #if defined(_DYNAMIC)
9518 #if defined(_DERIVATE)
9519 qjcx0_t_ii_Vbp_ei=0.0;
9520 qjcx0_t_ii_Vbi_ei=0.0;
9521 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));
9522 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)));
9523 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));
9524 #endif
9525 qjcx0_t_ii=((((DQ_j1+DQ_j2)-DQ_j3)*vdcx_t)+(DC_max*Dv_j4));
9526 #endif
9527 }
9528 else
9529 {
9530 #if defined(_DYNAMIC)
9531 c_dummy=0.0;
9532 #endif
9533 #if defined(_DYNAMIC)
9534 #if defined(_DERIVATE)
9535 qjcx0_t_ii_Vbp_ei=0.0;
9536 qjcx0_t_ii_Vbi_ei=0.0;
9537 qjcx0_t_ii_Vbp_ci=0.0;
9538 qjcx0_t_ii_Vtnode_GND=0.0;
9539 qjcx0_t_ii_Vbi_ci=0.0;
9540 #endif
9541 qjcx0_t_ii=0.0;
9542 #endif
9543 }
9544 #endif /* if (...) */
9545 }
9546 else
9547 {
9548 #ifdef _DYNAMIC
9549 if
9550 ((cjcx02_t>0.0))
9551 {
9552 #if defined(_DYNAMIC)
9553 {
9554 double m00_logE(d00_logE0,2.4)
9555 double m00_exp(d00_exp1,((-d00_logE0)/zcx))
9556 #if defined(_DERIVATE)
9557 DFV_f_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
9558 #endif
9559 DFV_f=(vdcx_t*(1.0-d00_exp1));
9560 }
9561 #endif
9562 #if defined(_DYNAMIC)
9563 #if defined(_DERIVATE)
9564 DFv_e_Vsi_ci=0.0;
9565 DFv_e_Vb_ci=0.0;
9566 DFv_e_Vbp_ci=((-1.0)/VT);
9567 DFv_e_Vbp_ei=0.0;
9568 DFv_e_Vbi_ci=0.0;
9569 DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(bp,ci))*VT_Vtnode_GND)/VT/VT);
9570 DFv_e_Vbi_ei=0.0;
9571 #endif
9572 DFv_e=((DFV_f-BP(bp,ci))/VT);
9573 #endif
9574 #if defined(_DYNAMIC)
9575 {
9576 double m00_sqrt(d00_sqrt0,((DFv_e*DFv_e)+1.921812))
9577 #if defined(_DERIVATE)
9578 double m10_sqrt(d10_sqrt0,d00_sqrt0,((DFv_e*DFv_e)+1.921812))
9579 #endif
9580 #if defined(_DERIVATE)
9581 DFs_q_Vsi_ci=0.0;
9582 DFs_q_Vb_ci=0.0;
9583 DFs_q_Vbp_ci=((DFv_e_Vbp_ci*DFv_e)+(DFv_e*DFv_e_Vbp_ci))*d10_sqrt0;
9584 DFs_q_Vbp_ei=((DFv_e_Vbp_ei*DFv_e)+(DFv_e*DFv_e_Vbp_ei))*d10_sqrt0;
9585 DFs_q_Vbi_ci=((DFv_e_Vbi_ci*DFv_e)+(DFv_e*DFv_e_Vbi_ci))*d10_sqrt0;
9586 DFs_q_Vtnode_GND=((DFv_e_Vtnode_GND*DFv_e)+(DFv_e*DFv_e_Vtnode_GND))*d10_sqrt0;
9587 DFs_q_Vbi_ei=((DFv_e_Vbi_ei*DFv_e)+(DFv_e*DFv_e_Vbi_ei))*d10_sqrt0;
9588 #endif
9589 DFs_q=d00_sqrt0;
9590 }
9591 #endif
9592 #if defined(_DYNAMIC)
9593 #if defined(_DERIVATE)
9594 DFs_q2_Vsi_ci=0.0;
9595 DFs_q2_Vb_ci=0.0;
9596 DFs_q2_Vbp_ci=(DFv_e_Vbp_ci+DFs_q_Vbp_ci)*0.5;
9597 DFs_q2_Vbp_ei=(DFv_e_Vbp_ei+DFs_q_Vbp_ei)*0.5;
9598 DFs_q2_Vbi_ci=(DFv_e_Vbi_ci+DFs_q_Vbi_ci)*0.5;
9599 DFs_q2_Vtnode_GND=(DFv_e_Vtnode_GND+DFs_q_Vtnode_GND)*0.5;
9600 DFs_q2_Vbi_ei=(DFv_e_Vbi_ei+DFs_q_Vbi_ei)*0.5;
9601 #endif
9602 DFs_q2=((DFv_e+DFs_q)*0.5);
9603 #endif
9604 #if defined(_DYNAMIC)
9605 #if defined(_DERIVATE)
9606 DFv_j_Vsi_ci=0.0;
9607 DFv_j_Vb_ci=0.0;
9608 DFv_j_Vbp_ci=(-(VT*DFs_q2_Vbp_ci));
9609 DFv_j_Vbp_ei=(-(VT*DFs_q2_Vbp_ei));
9610 DFv_j_Vbi_ci=(-(VT*DFs_q2_Vbi_ci));
9611 DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*DFs_q2)+(VT*DFs_q2_Vtnode_GND)));
9612 DFv_j_Vbi_ei=(-(VT*DFs_q2_Vbi_ei));
9613 #endif
9614 DFv_j=(DFV_f-(VT*DFs_q2));
9615 #endif
9616 #if defined(_DYNAMIC)
9617 #if defined(_DERIVATE)
9618 DFdvj_dv_Vsi_ci=0.0;
9619 DFdvj_dv_Vb_ci=0.0;
9620 DFdvj_dv_Vbp_ci=((DFs_q2_Vbp_ci*DFs_q-DFs_q2*DFs_q_Vbp_ci)/DFs_q/DFs_q);
9621 DFdvj_dv_Vbp_ei=((DFs_q2_Vbp_ei*DFs_q-DFs_q2*DFs_q_Vbp_ei)/DFs_q/DFs_q);
9622 DFdvj_dv_Vbi_ci=((DFs_q2_Vbi_ci*DFs_q-DFs_q2*DFs_q_Vbi_ci)/DFs_q/DFs_q);
9623 DFdvj_dv_Vtnode_GND=((DFs_q2_Vtnode_GND*DFs_q-DFs_q2*DFs_q_Vtnode_GND)/DFs_q/DFs_q);
9624 DFdvj_dv_Vbi_ei=((DFs_q2_Vbi_ei*DFs_q-DFs_q2*DFs_q_Vbi_ei)/DFs_q/DFs_q);
9625 #endif
9626 DFdvj_dv=(DFs_q2/DFs_q);
9627 #endif
9628 #if defined(_DYNAMIC)
9629 {
9630 double m00_logE(d00_logE0,(1.0-(DFv_j/vdcx_t)))
9631 #if defined(_DERIVATE)
9632 double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdcx_t)))
9633 #endif
9634 #if defined(_DERIVATE)
9635 DFb_Vsi_ci=0.0;
9636 DFb_Vb_ci=0.0;
9637 DFb_Vbp_ci=(-(DFv_j_Vbp_ci/vdcx_t))*d10_logE0;
9638 DFb_Vbp_ei=(-(DFv_j_Vbp_ei/vdcx_t))*d10_logE0;
9639 DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdcx_t))*d10_logE0;
9640 DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdcx_t-DFv_j*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
9641 DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdcx_t))*d10_logE0;
9642 #endif
9643 DFb=d00_logE0;
9644 }
9645 #endif
9646 #if defined(_DYNAMIC)
9647 {
9648 double m00_exp(d00_exp0,((-zcx)*DFb))
9649 #if defined(_DERIVATE)
9650 #define d10_exp0 d00_exp0
9651 #endif
9652 #if defined(_DERIVATE)
9653 DFC_j1_Vsi_ci=0.0;
9654 DFC_j1_Vb_ci=0.0;
9655 DFC_j1_Vbp_ci=(((cjcx02_t*((-zcx)*DFb_Vbp_ci)*d10_exp0)*DFdvj_dv)+((cjcx02_t*d00_exp0)*DFdvj_dv_Vbp_ci));
9656 DFC_j1_Vbp_ei=(((cjcx02_t*((-zcx)*DFb_Vbp_ei)*d10_exp0)*DFdvj_dv)+((cjcx02_t*d00_exp0)*DFdvj_dv_Vbp_ei));
9657 DFC_j1_Vbi_ci=(((cjcx02_t*((-zcx)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjcx02_t*d00_exp0)*DFdvj_dv_Vbi_ci));
9658 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));
9659 DFC_j1_Vbi_ei=(((cjcx02_t*((-zcx)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjcx02_t*d00_exp0)*DFdvj_dv_Vbi_ei));
9660 #endif
9661 DFC_j1=((cjcx02_t*d00_exp0)*DFdvj_dv);
9662 }
9663 #endif
9664 #if defined(_DYNAMIC)
9665 c_dummy=(DFC_j1+((2.4*cjcx02_t)*(1.0-DFdvj_dv)));
9666 #endif
9667 #if defined(_DYNAMIC)
9668 {
9669 double m00_exp(d00_exp0,(DFb*(1.0-zcx)))
9670 #if defined(_DERIVATE)
9671 #define d10_exp0 d00_exp0
9672 #endif
9673 #if defined(_DERIVATE)
9674 DFQ_j_Vsi_ci=0.0;
9675 DFQ_j_Vb_ci=0.0;
9676 DFQ_j_Vbp_ci=(((cjcx02_t*vdcx_t)*(-DFb_Vbp_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
9677 DFQ_j_Vbp_ei=(((cjcx02_t*vdcx_t)*(-DFb_Vbp_ei*(1.0-zcx)*d10_exp0))/(1.0-zcx));
9678 DFQ_j_Vbi_ci=(((cjcx02_t*vdcx_t)*(-DFb_Vbi_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
9679 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));
9680 DFQ_j_Vbi_ei=(((cjcx02_t*vdcx_t)*(-DFb_Vbi_ei*(1.0-zcx)*d10_exp0))/(1.0-zcx));
9681 #endif
9682 DFQ_j=(((cjcx02_t*vdcx_t)*(1.0-d00_exp0))/(1.0-zcx));
9683 }
9684 #endif
9685 #if defined(_DYNAMIC)
9686 #if defined(_DERIVATE)
9687 qjcx0_t_ii_Vbp_ei=(DFQ_j_Vbp_ei+((2.4*cjcx02_t)*(-DFv_j_Vbp_ei)));
9688 qjcx0_t_ii_Vbi_ei=(DFQ_j_Vbi_ei+((2.4*cjcx02_t)*(-DFv_j_Vbi_ei)));
9689 qjcx0_t_ii_Vbp_ci=(DFQ_j_Vbp_ci+((2.4*cjcx02_t)*(1.0-DFv_j_Vbp_ci)));
9690 qjcx0_t_ii_Vtnode_GND=(DFQ_j_Vtnode_GND+(((2.4*cjcx02_t_Vtnode_GND)*(BP(bp,ci)-DFv_j))+((2.4*cjcx02_t)*(-DFv_j_Vtnode_GND))));
9691 qjcx0_t_ii_Vbi_ci=(DFQ_j_Vbi_ci+((2.4*cjcx02_t)*(-DFv_j_Vbi_ci)));
9692 #endif
9693 qjcx0_t_ii=(DFQ_j+((2.4*cjcx02_t)*(BP(bp,ci)-DFv_j)));
9694 #endif
9695 }
9696 else
9697 {
9698 #if defined(_DYNAMIC)
9699 c_dummy=0.0;
9700 #endif
9701 #if defined(_DYNAMIC)
9702 #if defined(_DERIVATE)
9703 qjcx0_t_ii_Vbp_ei=0.0;
9704 qjcx0_t_ii_Vbi_ei=0.0;
9705 qjcx0_t_ii_Vbp_ci=0.0;
9706 qjcx0_t_ii_Vtnode_GND=0.0;
9707 qjcx0_t_ii_Vbi_ci=0.0;
9708 #endif
9709 qjcx0_t_ii=0.0;
9710 #endif
9711 }
9712 #endif /* if (...) */
9713 }
9714 #endif /* if (...) */
9715 #if defined(_DERIVATE)
9716 DIOY_Vsi_ci=0.0;
9717 DIOY_Vbp_ci=(1/(mbcx*VT));
9718 DIOY_Vbp_ei=0.0;
9719 DIOY_Vbi_ci=0.0;
9720 DIOY_Vbi_ei=0.0;
9721 DIOY_Vtnode_GND=(-BP(bp,ci)*(mbcx*VT_Vtnode_GND)/(mbcx*VT)/(mbcx*VT));
9722 #endif
9723 DIOY=(BP(bp,ci)/(mbcx*VT));
9724 if
9725 ((ibcxs>0.0))
9726 {
9727 if
9728 ((DIOY>80.0))
9729 {
9730 #if defined(_DERIVATE)
9731 le_Vsi_ci=0.0;
9732 le_Vbp_ci=DIOY_Vbp_ci;
9733 le_Vbp_ei=DIOY_Vbp_ei;
9734 le_Vbi_ci=DIOY_Vbi_ci;
9735 le_Vbi_ei=DIOY_Vbi_ei;
9736 le_Vtnode_GND=DIOY_Vtnode_GND;
9737 #endif
9738 le=(1+(DIOY-80.0));
9739 #if defined(_DERIVATE)
9740 DIOY_Vsi_ci=0.0;
9741 DIOY_Vbp_ci=0.0;
9742 DIOY_Vbp_ei=0.0;
9743 DIOY_Vbi_ci=0.0;
9744 DIOY_Vbi_ei=0.0;
9745 DIOY_Vtnode_GND=0.0;
9746 #endif
9747 DIOY=80.0;
9748 }
9749 else
9750 {
9751 #if defined(_DERIVATE)
9752 le_Vsi_ci=0.0;
9753 le_Vbp_ci=0.0;
9754 le_Vbp_ei=0.0;
9755 le_Vbi_ci=0.0;
9756 le_Vbi_ei=0.0;
9757 le_Vtnode_GND=0.0;
9758 #endif
9759 le=1;
9760 }
9761 {
9762 double m00_limexp(d00_limexp0,DIOY)
9763 #if defined(_DERIVATE)
9764 double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
9765 #endif
9766 #if defined(_DERIVATE)
9767 le_Vsi_ci=0.0;
9768 le_Vbp_ci=((le_Vbp_ci*d00_limexp0)+(le*DIOY_Vbp_ci*d10_limexp0));
9769 le_Vbp_ei=((le_Vbp_ei*d00_limexp0)+(le*DIOY_Vbp_ei*d10_limexp0));
9770 le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
9771 le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
9772 le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
9773 #endif
9774 le=(le*d00_limexp0);
9775 }
9776 #if defined(_DERIVATE)
9777 ijbcx_Vtnode_GND=((ibcxs_t_Vtnode_GND*(le-1.0))+(ibcxs_t*le_Vtnode_GND));
9778 ijbcx_Vbp_ci=(ibcxs_t*le_Vbp_ci);
9779 ijbcx_Vbp_ei=(ibcxs_t*le_Vbp_ei);
9780 ijbcx_Vbi_ci=(ibcxs_t*le_Vbi_ci);
9781 ijbcx_Vbi_ei=(ibcxs_t*le_Vbi_ei);
9782 #endif
9783 ijbcx=(ibcxs_t*(le-1.0));
9784 if
9785 ((DIOY<=(-14.0)))
9786 {
9787 #if defined(_DERIVATE)
9788 ijbcx_Vtnode_GND=(-ibcxs_t_Vtnode_GND);
9789 ijbcx_Vbp_ci=0.0;
9790 ijbcx_Vbp_ei=0.0;
9791 ijbcx_Vbi_ci=0.0;
9792 ijbcx_Vbi_ei=0.0;
9793 #endif
9794 ijbcx=(-ibcxs_t);
9795 }
9796 }
9797 else
9798 {
9799 #if defined(_DERIVATE)
9800 ijbcx_Vtnode_GND=0.0;
9801 ijbcx_Vbp_ci=0.0;
9802 ijbcx_Vbp_ei=0.0;
9803 ijbcx_Vbi_ci=0.0;
9804 ijbcx_Vbi_ei=0.0;
9805 #endif
9806 ijbcx=0.0;
9807 }
9808 #ifdef _DYNAMIC
9809 if
9810 ((vptcx_t<1.0e2))
9811 {
9812 #ifdef _DYNAMIC
9813 if
9814 ((cjcx01_t>0.0))
9815 {
9816 #if defined(_DYNAMIC)
9817 Dz_r=(zcx/4.0);
9818 #endif
9819 #if defined(_DYNAMIC)
9820 #if defined(_DERIVATE)
9821 Dv_p_Vtnode_GND=(vptcx_t_Vtnode_GND-vdcx_t_Vtnode_GND);
9822 #endif
9823 Dv_p=(vptcx_t-vdcx_t);
9824 #endif
9825 #if defined(_DYNAMIC)
9826 {
9827 double m00_logE(d00_logE0,2.4)
9828 double m00_exp(d00_exp1,((-d00_logE0)/zcx))
9829 #if defined(_DERIVATE)
9830 DV_f_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
9831 #endif
9832 DV_f=(vdcx_t*(1.0-d00_exp1));
9833 }
9834 #endif
9835 #if defined(_DYNAMIC)
9836 #if defined(_DERIVATE)
9837 DC_max_Vtnode_GND=(2.4*cjcx01_t_Vtnode_GND);
9838 #endif
9839 DC_max=(2.4*cjcx01_t);
9840 #endif
9841 #if defined(_DYNAMIC)
9842 {
9843 double m00_logE(d00_logE0,(vptcx_t/vdcx_t))
9844 double m00_exp(d00_exp1,((Dz_r-zcx)*d00_logE0))
9845 #if defined(_DERIVATE)
9846 double m10_logE(d10_logE0,d00_logE0,(vptcx_t/vdcx_t))
9847 #define d10_exp1 d00_exp1
9848 #endif
9849 #if defined(_DERIVATE)
9850 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));
9851 #endif
9852 DC_c=(cjcx01_t*d00_exp1);
9853 }
9854 #endif
9855 #if defined(_DYNAMIC)
9856 #if defined(_DERIVATE)
9857 Dv_e_Vsi_ci=0.0;
9858 Dv_e_Vb_ci=((-1.0)/VT);
9859 Dv_e_Vbp_ci=0.0;
9860 Dv_e_Vtnode_GND=((DV_f_Vtnode_GND*VT-(DV_f-BP(b,ci))*VT_Vtnode_GND)/VT/VT);
9861 Dv_e_Vbi_ci=0.0;
9862 #endif
9863 Dv_e=((DV_f-BP(b,ci))/VT);
9864 #endif
9865 #ifdef _DYNAMIC
9866 if
9867 ((Dv_e<80.0))
9868 {
9869 #if defined(_DYNAMIC)
9870 {
9871 double m00_exp(d00_exp0,Dv_e)
9872 #if defined(_DERIVATE)
9873 #define d10_exp0 d00_exp0
9874 #endif
9875 #if defined(_DERIVATE)
9876 De_Vsi_ci=0.0;
9877 De_Vb_ci=Dv_e_Vb_ci*d10_exp0;
9878 De_Vbp_ci=Dv_e_Vbp_ci*d10_exp0;
9879 De_Vtnode_GND=Dv_e_Vtnode_GND*d10_exp0;
9880 De_Vbi_ci=Dv_e_Vbi_ci*d10_exp0;
9881 #endif
9882 De=d00_exp0;
9883 }
9884 #endif
9885 #if defined(_DYNAMIC)
9886 #if defined(_DERIVATE)
9887 De_1_Vsi_ci=0.0;
9888 De_1_Vb_ci=((De_Vb_ci*(1.0+De)-De*De_Vb_ci)/(1.0+De)/(1.0+De));
9889 De_1_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
9890 De_1_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
9891 De_1_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
9892 #endif
9893 De_1=(De/(1.0+De));
9894 #endif
9895 #if defined(_DYNAMIC)
9896 {
9897 double m00_logE(d00_logE0,(1.0+De))
9898 #if defined(_DERIVATE)
9899 double m10_logE(d10_logE0,d00_logE0,(1.0+De))
9900 #endif
9901 #if defined(_DERIVATE)
9902 Dv_j1_Vsi_ci=0.0;
9903 Dv_j1_Vb_ci=(-(VT*De_Vb_ci*d10_logE0));
9904 Dv_j1_Vbp_ci=(-(VT*De_Vbp_ci*d10_logE0));
9905 Dv_j1_Vtnode_GND=(DV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*De_Vtnode_GND*d10_logE0)));
9906 Dv_j1_Vbi_ci=(-(VT*De_Vbi_ci*d10_logE0));
9907 #endif
9908 Dv_j1=(DV_f-(VT*d00_logE0));
9909 }
9910 #endif
9911 }
9912 else
9913 {
9914 #if defined(_DYNAMIC)
9915 #if defined(_DERIVATE)
9916 De_1_Vsi_ci=0.0;
9917 De_1_Vb_ci=0.0;
9918 De_1_Vbp_ci=0.0;
9919 De_1_Vtnode_GND=0.0;
9920 De_1_Vbi_ci=0.0;
9921 #endif
9922 De_1=1.0;
9923 #endif
9924 #if defined(_DYNAMIC)
9925 #if defined(_DERIVATE)
9926 Dv_j1_Vsi_ci=0.0;
9927 Dv_j1_Vb_ci=1.0;
9928 Dv_j1_Vbp_ci=0.0;
9929 Dv_j1_Vtnode_GND=0.0;
9930 Dv_j1_Vbi_ci=0.0;
9931 #endif
9932 Dv_j1=BP(b,ci);
9933 #endif
9934 }
9935 #endif /* if (...) */
9936 #if defined(_DYNAMIC)
9937 #if defined(_DERIVATE)
9938 Da_Vtnode_GND=((0.1*Dv_p_Vtnode_GND)+(4.0*VT_Vtnode_GND));
9939 #endif
9940 Da=((0.1*Dv_p)+(4.0*VT));
9941 #endif
9942 #if defined(_DYNAMIC)
9943 #if defined(_DERIVATE)
9944 Dv_r_Vsi_ci=0.0;
9945 Dv_r_Vb_ci=(Dv_j1_Vb_ci/Da);
9946 Dv_r_Vbp_ci=(Dv_j1_Vbp_ci/Da);
9947 Dv_r_Vtnode_GND=(((Dv_p_Vtnode_GND+Dv_j1_Vtnode_GND)*Da-(Dv_p+Dv_j1)*Da_Vtnode_GND)/Da/Da);
9948 Dv_r_Vbi_ci=(Dv_j1_Vbi_ci/Da);
9949 #endif
9950 Dv_r=((Dv_p+Dv_j1)/Da);
9951 #endif
9952 #ifdef _DYNAMIC
9953 if
9954 ((Dv_r<80.0))
9955 {
9956 #if defined(_DYNAMIC)
9957 {
9958 double m00_exp(d00_exp0,Dv_r)
9959 #if defined(_DERIVATE)
9960 #define d10_exp0 d00_exp0
9961 #endif
9962 #if defined(_DERIVATE)
9963 De_Vsi_ci=0.0;
9964 De_Vb_ci=Dv_r_Vb_ci*d10_exp0;
9965 De_Vbp_ci=Dv_r_Vbp_ci*d10_exp0;
9966 De_Vtnode_GND=Dv_r_Vtnode_GND*d10_exp0;
9967 De_Vbi_ci=Dv_r_Vbi_ci*d10_exp0;
9968 #endif
9969 De=d00_exp0;
9970 }
9971 #endif
9972 #if defined(_DYNAMIC)
9973 #if defined(_DERIVATE)
9974 De_2_Vsi_ci=0.0;
9975 De_2_Vb_ci=((De_Vb_ci*(1.0+De)-De*De_Vb_ci)/(1.0+De)/(1.0+De));
9976 De_2_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
9977 De_2_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
9978 De_2_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
9979 #endif
9980 De_2=(De/(1.0+De));
9981 #endif
9982 #if defined(_DYNAMIC)
9983 {
9984 double m00_logE(d00_logE0,(1.0+De))
9985 #if defined(_DERIVATE)
9986 double m10_logE(d10_logE0,d00_logE0,(1.0+De))
9987 #endif
9988 #if defined(_DERIVATE)
9989 Dv_j2_Vsi_ci=0.0;
9990 Dv_j2_Vb_ci=(Da*De_Vb_ci*d10_logE0);
9991 Dv_j2_Vbp_ci=(Da*De_Vbp_ci*d10_logE0);
9992 Dv_j2_Vtnode_GND=((-Dv_p_Vtnode_GND)+((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
9993 Dv_j2_Vbi_ci=(Da*De_Vbi_ci*d10_logE0);
9994 #endif
9995 Dv_j2=((-Dv_p)+(Da*d00_logE0));
9996 }
9997 #endif
9998 }
9999 else
10000 {
10001 #if defined(_DYNAMIC)
10002 #if defined(_DERIVATE)
10003 De_2_Vsi_ci=0.0;
10004 De_2_Vb_ci=0.0;
10005 De_2_Vbp_ci=0.0;
10006 De_2_Vtnode_GND=0.0;
10007 De_2_Vbi_ci=0.0;
10008 #endif
10009 De_2=1.0;
10010 #endif
10011 #if defined(_DYNAMIC)
10012 #if defined(_DERIVATE)
10013 Dv_j2_Vsi_ci=0.0;
10014 Dv_j2_Vb_ci=Dv_j1_Vb_ci;
10015 Dv_j2_Vbp_ci=Dv_j1_Vbp_ci;
10016 Dv_j2_Vtnode_GND=Dv_j1_Vtnode_GND;
10017 Dv_j2_Vbi_ci=Dv_j1_Vbi_ci;
10018 #endif
10019 Dv_j2=Dv_j1;
10020 #endif
10021 }
10022 #endif /* if (...) */
10023 #if defined(_DYNAMIC)
10024 #if defined(_DERIVATE)
10025 Dv_j4_Vsi_ci=0.0;
10026 Dv_j4_Vb_ci=(1.0-Dv_j1_Vb_ci);
10027 Dv_j4_Vbp_ci=(-Dv_j1_Vbp_ci);
10028 Dv_j4_Vbi_ci=(-Dv_j1_Vbi_ci);
10029 Dv_j4_Vtnode_GND=(-Dv_j1_Vtnode_GND);
10030 #endif
10031 Dv_j4=(BP(b,ci)-Dv_j1);
10032 #endif
10033 #if defined(_DYNAMIC)
10034 {
10035 double m00_logE(d00_logE0,(1.0-(Dv_j1/vdcx_t)))
10036 #if defined(_DERIVATE)
10037 double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j1/vdcx_t)))
10038 #endif
10039 #if defined(_DERIVATE)
10040 DCln1_Vsi_ci=0.0;
10041 DCln1_Vb_ci=(-(Dv_j1_Vb_ci/vdcx_t))*d10_logE0;
10042 DCln1_Vbp_ci=(-(Dv_j1_Vbp_ci/vdcx_t))*d10_logE0;
10043 DCln1_Vtnode_GND=(-((Dv_j1_Vtnode_GND*vdcx_t-Dv_j1*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
10044 DCln1_Vbi_ci=(-(Dv_j1_Vbi_ci/vdcx_t))*d10_logE0;
10045 #endif
10046 DCln1=d00_logE0;
10047 }
10048 #endif
10049 #if defined(_DYNAMIC)
10050 {
10051 double m00_logE(d00_logE0,(1.0-(Dv_j2/vdcx_t)))
10052 #if defined(_DERIVATE)
10053 double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j2/vdcx_t)))
10054 #endif
10055 #if defined(_DERIVATE)
10056 DCln2_Vsi_ci=0.0;
10057 DCln2_Vb_ci=(-(Dv_j2_Vb_ci/vdcx_t))*d10_logE0;
10058 DCln2_Vbp_ci=(-(Dv_j2_Vbp_ci/vdcx_t))*d10_logE0;
10059 DCln2_Vtnode_GND=(-((Dv_j2_Vtnode_GND*vdcx_t-Dv_j2*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
10060 DCln2_Vbi_ci=(-(Dv_j2_Vbi_ci/vdcx_t))*d10_logE0;
10061 #endif
10062 DCln2=d00_logE0;
10063 }
10064 #endif
10065 #if defined(_DYNAMIC)
10066 Dz1=(1.0-zcx);
10067 #endif
10068 #if defined(_DYNAMIC)
10069 Dzr1=(1.0-Dz_r);
10070 #endif
10071 #if defined(_DYNAMIC)
10072 {
10073 double m00_exp(d00_exp0,(DCln2*(-zcx)))
10074 #if defined(_DERIVATE)
10075 #define d10_exp0 d00_exp0
10076 #endif
10077 #if defined(_DERIVATE)
10078 DC_j1_Vsi_ci=0.0;
10079 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));
10080 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));
10081 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));
10082 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));
10083 #endif
10084 DC_j1=(((cjcx01_t*d00_exp0)*De_1)*De_2);
10085 }
10086 #endif
10087 #if defined(_DYNAMIC)
10088 {
10089 double m00_exp(d00_exp0,(DCln1*(-Dz_r)))
10090 #if defined(_DERIVATE)
10091 #define d10_exp0 d00_exp0
10092 #endif
10093 #if defined(_DERIVATE)
10094 DC_j2_Vsi_ci=0.0;
10095 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)));
10096 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)));
10097 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)));
10098 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)));
10099 #endif
10100 DC_j2=((DC_c*d00_exp0)*(1.0-De_2));
10101 }
10102 #endif
10103 #if defined(_DYNAMIC)
10104 #if defined(_DERIVATE)
10105 DC_j3_Vsi_ci=0.0;
10106 DC_j3_Vb_ci=(DC_max*(-De_1_Vb_ci));
10107 DC_j3_Vbp_ci=(DC_max*(-De_1_Vbp_ci));
10108 DC_j3_Vtnode_GND=((DC_max_Vtnode_GND*(1.0-De_1))+(DC_max*(-De_1_Vtnode_GND)));
10109 DC_j3_Vbi_ci=(DC_max*(-De_1_Vbi_ci));
10110 #endif
10111 DC_j3=(DC_max*(1.0-De_1));
10112 #endif
10113 #if defined(_DYNAMIC)
10114 c_dummy=((DC_j1+DC_j2)+DC_j3);
10115 #endif
10116 #if defined(_DYNAMIC)
10117 {
10118 double m00_exp(d00_exp0,(DCln2*Dz1))
10119 #if defined(_DERIVATE)
10120 #define d10_exp0 d00_exp0
10121 #endif
10122 #if defined(_DERIVATE)
10123 DQ_j1_Vsi_ci=0.0;
10124 DQ_j1_Vb_ci=((cjcx01_t*(-DCln2_Vb_ci*Dz1*d10_exp0))/Dz1);
10125 DQ_j1_Vbp_ci=((cjcx01_t*(-DCln2_Vbp_ci*Dz1*d10_exp0))/Dz1);
10126 DQ_j1_Vtnode_GND=(((cjcx01_t_Vtnode_GND*(1.0-d00_exp0))+(cjcx01_t*(-DCln2_Vtnode_GND*Dz1*d10_exp0)))/Dz1);
10127 DQ_j1_Vbi_ci=((cjcx01_t*(-DCln2_Vbi_ci*Dz1*d10_exp0))/Dz1);
10128 #endif
10129 DQ_j1=((cjcx01_t*(1.0-d00_exp0))/Dz1);
10130 }
10131 #endif
10132 #if defined(_DYNAMIC)
10133 {
10134 double m00_exp(d00_exp0,(DCln1*Dzr1))
10135 #if defined(_DERIVATE)
10136 #define d10_exp0 d00_exp0
10137 #endif
10138 #if defined(_DERIVATE)
10139 DQ_j2_Vsi_ci=0.0;
10140 DQ_j2_Vb_ci=((DC_c*(-DCln1_Vb_ci*Dzr1*d10_exp0))/Dzr1);
10141 DQ_j2_Vbp_ci=((DC_c*(-DCln1_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
10142 DQ_j2_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln1_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
10143 DQ_j2_Vbi_ci=((DC_c*(-DCln1_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
10144 #endif
10145 DQ_j2=((DC_c*(1.0-d00_exp0))/Dzr1);
10146 }
10147 #endif
10148 #if defined(_DYNAMIC)
10149 {
10150 double m00_exp(d00_exp0,(DCln2*Dzr1))
10151 #if defined(_DERIVATE)
10152 #define d10_exp0 d00_exp0
10153 #endif
10154 #if defined(_DERIVATE)
10155 DQ_j3_Vsi_ci=0.0;
10156 DQ_j3_Vb_ci=((DC_c*(-DCln2_Vb_ci*Dzr1*d10_exp0))/Dzr1);
10157 DQ_j3_Vbp_ci=((DC_c*(-DCln2_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
10158 DQ_j3_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln2_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
10159 DQ_j3_Vbi_ci=((DC_c*(-DCln2_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
10160 #endif
10161 DQ_j3=((DC_c*(1.0-d00_exp0))/Dzr1);
10162 }
10163 #endif
10164 #if defined(_DYNAMIC)
10165 #if defined(_DERIVATE)
10166 qjcx0_t_i_Vbp_ei=0.0;
10167 qjcx0_t_i_Vbi_ei=0.0;
10168 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));
10169 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));
10170 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)));
10171 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));
10172 #endif
10173 qjcx0_t_i=((((DQ_j1+DQ_j2)-DQ_j3)*vdcx_t)+(DC_max*Dv_j4));
10174 #endif
10175 }
10176 else
10177 {
10178 #if defined(_DYNAMIC)
10179 c_dummy=0.0;
10180 #endif
10181 #if defined(_DYNAMIC)
10182 #if defined(_DERIVATE)
10183 qjcx0_t_i_Vbp_ei=0.0;
10184 qjcx0_t_i_Vbi_ei=0.0;
10185 qjcx0_t_i_Vb_ci=0.0;
10186 qjcx0_t_i_Vbp_ci=0.0;
10187 qjcx0_t_i_Vtnode_GND=0.0;
10188 qjcx0_t_i_Vbi_ci=0.0;
10189 #endif
10190 qjcx0_t_i=0.0;
10191 #endif
10192 }
10193 #endif /* if (...) */
10194 }
10195 else
10196 {
10197 #ifdef _DYNAMIC
10198 if
10199 ((cjcx01_t>0.0))
10200 {
10201 #if defined(_DYNAMIC)
10202 {
10203 double m00_logE(d00_logE0,2.4)
10204 double m00_exp(d00_exp1,((-d00_logE0)/zcx))
10205 #if defined(_DERIVATE)
10206 DFV_f_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
10207 #endif
10208 DFV_f=(vdcx_t*(1.0-d00_exp1));
10209 }
10210 #endif
10211 #if defined(_DYNAMIC)
10212 #if defined(_DERIVATE)
10213 DFv_e_Vsi_ci=0.0;
10214 DFv_e_Vb_ci=((-1.0)/VT);
10215 DFv_e_Vbp_ci=0.0;
10216 DFv_e_Vbp_ei=0.0;
10217 DFv_e_Vbi_ci=0.0;
10218 DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(b,ci))*VT_Vtnode_GND)/VT/VT);
10219 DFv_e_Vbi_ei=0.0;
10220 #endif
10221 DFv_e=((DFV_f-BP(b,ci))/VT);
10222 #endif
10223 #if defined(_DYNAMIC)
10224 {
10225 double m00_sqrt(d00_sqrt0,((DFv_e*DFv_e)+1.921812))
10226 #if defined(_DERIVATE)
10227 double m10_sqrt(d10_sqrt0,d00_sqrt0,((DFv_e*DFv_e)+1.921812))
10228 #endif
10229 #if defined(_DERIVATE)
10230 DFs_q_Vsi_ci=0.0;
10231 DFs_q_Vb_ci=((DFv_e_Vb_ci*DFv_e)+(DFv_e*DFv_e_Vb_ci))*d10_sqrt0;
10232 DFs_q_Vbp_ci=((DFv_e_Vbp_ci*DFv_e)+(DFv_e*DFv_e_Vbp_ci))*d10_sqrt0;
10233 DFs_q_Vbp_ei=((DFv_e_Vbp_ei*DFv_e)+(DFv_e*DFv_e_Vbp_ei))*d10_sqrt0;
10234 DFs_q_Vbi_ci=((DFv_e_Vbi_ci*DFv_e)+(DFv_e*DFv_e_Vbi_ci))*d10_sqrt0;
10235 DFs_q_Vtnode_GND=((DFv_e_Vtnode_GND*DFv_e)+(DFv_e*DFv_e_Vtnode_GND))*d10_sqrt0;
10236 DFs_q_Vbi_ei=((DFv_e_Vbi_ei*DFv_e)+(DFv_e*DFv_e_Vbi_ei))*d10_sqrt0;
10237 #endif
10238 DFs_q=d00_sqrt0;
10239 }
10240 #endif
10241 #if defined(_DYNAMIC)
10242 #if defined(_DERIVATE)
10243 DFs_q2_Vsi_ci=0.0;
10244 DFs_q2_Vb_ci=(DFv_e_Vb_ci+DFs_q_Vb_ci)*0.5;
10245 DFs_q2_Vbp_ci=(DFv_e_Vbp_ci+DFs_q_Vbp_ci)*0.5;
10246 DFs_q2_Vbp_ei=(DFv_e_Vbp_ei+DFs_q_Vbp_ei)*0.5;
10247 DFs_q2_Vbi_ci=(DFv_e_Vbi_ci+DFs_q_Vbi_ci)*0.5;
10248 DFs_q2_Vtnode_GND=(DFv_e_Vtnode_GND+DFs_q_Vtnode_GND)*0.5;
10249 DFs_q2_Vbi_ei=(DFv_e_Vbi_ei+DFs_q_Vbi_ei)*0.5;
10250 #endif
10251 DFs_q2=((DFv_e+DFs_q)*0.5);
10252 #endif
10253 #if defined(_DYNAMIC)
10254 #if defined(_DERIVATE)
10255 DFv_j_Vsi_ci=0.0;
10256 DFv_j_Vb_ci=(-(VT*DFs_q2_Vb_ci));
10257 DFv_j_Vbp_ci=(-(VT*DFs_q2_Vbp_ci));
10258 DFv_j_Vbp_ei=(-(VT*DFs_q2_Vbp_ei));
10259 DFv_j_Vbi_ci=(-(VT*DFs_q2_Vbi_ci));
10260 DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*DFs_q2)+(VT*DFs_q2_Vtnode_GND)));
10261 DFv_j_Vbi_ei=(-(VT*DFs_q2_Vbi_ei));
10262 #endif
10263 DFv_j=(DFV_f-(VT*DFs_q2));
10264 #endif
10265 #if defined(_DYNAMIC)
10266 #if defined(_DERIVATE)
10267 DFdvj_dv_Vsi_ci=0.0;
10268 DFdvj_dv_Vb_ci=((DFs_q2_Vb_ci*DFs_q-DFs_q2*DFs_q_Vb_ci)/DFs_q/DFs_q);
10269 DFdvj_dv_Vbp_ci=((DFs_q2_Vbp_ci*DFs_q-DFs_q2*DFs_q_Vbp_ci)/DFs_q/DFs_q);
10270 DFdvj_dv_Vbp_ei=((DFs_q2_Vbp_ei*DFs_q-DFs_q2*DFs_q_Vbp_ei)/DFs_q/DFs_q);
10271 DFdvj_dv_Vbi_ci=((DFs_q2_Vbi_ci*DFs_q-DFs_q2*DFs_q_Vbi_ci)/DFs_q/DFs_q);
10272 DFdvj_dv_Vtnode_GND=((DFs_q2_Vtnode_GND*DFs_q-DFs_q2*DFs_q_Vtnode_GND)/DFs_q/DFs_q);
10273 DFdvj_dv_Vbi_ei=((DFs_q2_Vbi_ei*DFs_q-DFs_q2*DFs_q_Vbi_ei)/DFs_q/DFs_q);
10274 #endif
10275 DFdvj_dv=(DFs_q2/DFs_q);
10276 #endif
10277 #if defined(_DYNAMIC)
10278 {
10279 double m00_logE(d00_logE0,(1.0-(DFv_j/vdcx_t)))
10280 #if defined(_DERIVATE)
10281 double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdcx_t)))
10282 #endif
10283 #if defined(_DERIVATE)
10284 DFb_Vsi_ci=0.0;
10285 DFb_Vb_ci=(-(DFv_j_Vb_ci/vdcx_t))*d10_logE0;
10286 DFb_Vbp_ci=(-(DFv_j_Vbp_ci/vdcx_t))*d10_logE0;
10287 DFb_Vbp_ei=(-(DFv_j_Vbp_ei/vdcx_t))*d10_logE0;
10288 DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdcx_t))*d10_logE0;
10289 DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdcx_t-DFv_j*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
10290 DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdcx_t))*d10_logE0;
10291 #endif
10292 DFb=d00_logE0;
10293 }
10294 #endif
10295 #if defined(_DYNAMIC)
10296 {
10297 double m00_exp(d00_exp0,((-zcx)*DFb))
10298 #if defined(_DERIVATE)
10299 #define d10_exp0 d00_exp0
10300 #endif
10301 #if defined(_DERIVATE)
10302 DFC_j1_Vsi_ci=0.0;
10303 DFC_j1_Vb_ci=(((cjcx01_t*((-zcx)*DFb_Vb_ci)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vb_ci));
10304 DFC_j1_Vbp_ci=(((cjcx01_t*((-zcx)*DFb_Vbp_ci)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vbp_ci));
10305 DFC_j1_Vbp_ei=(((cjcx01_t*((-zcx)*DFb_Vbp_ei)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vbp_ei));
10306 DFC_j1_Vbi_ci=(((cjcx01_t*((-zcx)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vbi_ci));
10307 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));
10308 DFC_j1_Vbi_ei=(((cjcx01_t*((-zcx)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vbi_ei));
10309 #endif
10310 DFC_j1=((cjcx01_t*d00_exp0)*DFdvj_dv);
10311 }
10312 #endif
10313 #if defined(_DYNAMIC)
10314 c_dummy=(DFC_j1+((2.4*cjcx01_t)*(1.0-DFdvj_dv)));
10315 #endif
10316 #if defined(_DYNAMIC)
10317 {
10318 double m00_exp(d00_exp0,(DFb*(1.0-zcx)))
10319 #if defined(_DERIVATE)
10320 #define d10_exp0 d00_exp0
10321 #endif
10322 #if defined(_DERIVATE)
10323 DFQ_j_Vsi_ci=0.0;
10324 DFQ_j_Vb_ci=(((cjcx01_t*vdcx_t)*(-DFb_Vb_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
10325 DFQ_j_Vbp_ci=(((cjcx01_t*vdcx_t)*(-DFb_Vbp_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
10326 DFQ_j_Vbp_ei=(((cjcx01_t*vdcx_t)*(-DFb_Vbp_ei*(1.0-zcx)*d10_exp0))/(1.0-zcx));
10327 DFQ_j_Vbi_ci=(((cjcx01_t*vdcx_t)*(-DFb_Vbi_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
10328 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));
10329 DFQ_j_Vbi_ei=(((cjcx01_t*vdcx_t)*(-DFb_Vbi_ei*(1.0-zcx)*d10_exp0))/(1.0-zcx));
10330 #endif
10331 DFQ_j=(((cjcx01_t*vdcx_t)*(1.0-d00_exp0))/(1.0-zcx));
10332 }
10333 #endif
10334 #if defined(_DYNAMIC)
10335 #if defined(_DERIVATE)
10336 qjcx0_t_i_Vbp_ei=(DFQ_j_Vbp_ei+((2.4*cjcx01_t)*(-DFv_j_Vbp_ei)));
10337 qjcx0_t_i_Vbi_ei=(DFQ_j_Vbi_ei+((2.4*cjcx01_t)*(-DFv_j_Vbi_ei)));
10338 qjcx0_t_i_Vb_ci=(DFQ_j_Vb_ci+((2.4*cjcx01_t)*(1.0-DFv_j_Vb_ci)));
10339 qjcx0_t_i_Vbp_ci=(DFQ_j_Vbp_ci+((2.4*cjcx01_t)*(-DFv_j_Vbp_ci)));
10340 qjcx0_t_i_Vtnode_GND=(DFQ_j_Vtnode_GND+(((2.4*cjcx01_t_Vtnode_GND)*(BP(b,ci)-DFv_j))+((2.4*cjcx01_t)*(-DFv_j_Vtnode_GND))));
10341 qjcx0_t_i_Vbi_ci=(DFQ_j_Vbi_ci+((2.4*cjcx01_t)*(-DFv_j_Vbi_ci)));
10342 #endif
10343 qjcx0_t_i=(DFQ_j+((2.4*cjcx01_t)*(BP(b,ci)-DFv_j)));
10344 #endif
10345 }
10346 else
10347 {
10348 #if defined(_DYNAMIC)
10349 c_dummy=0.0;
10350 #endif
10351 #if defined(_DYNAMIC)
10352 #if defined(_DERIVATE)
10353 qjcx0_t_i_Vbp_ei=0.0;
10354 qjcx0_t_i_Vbi_ei=0.0;
10355 qjcx0_t_i_Vb_ci=0.0;
10356 qjcx0_t_i_Vbp_ci=0.0;
10357 qjcx0_t_i_Vtnode_GND=0.0;
10358 qjcx0_t_i_Vbi_ci=0.0;
10359 #endif
10360 qjcx0_t_i=0.0;
10361 #endif
10362 }
10363 #endif /* if (...) */
10364 }
10365 #endif /* if (...) */
10366 #ifdef _DYNAMIC
10367 if
10368 ((vpts_t<1.0e2))
10369 {
10370 #ifdef _DYNAMIC
10371 if
10372 ((cjs0_t>0.0))
10373 {
10374 #if defined(_DYNAMIC)
10375 Dz_r=(zs/4.0);
10376 #endif
10377 #if defined(_DYNAMIC)
10378 #if defined(_DERIVATE)
10379 Dv_p_Vtnode_GND=(vpts_t_Vtnode_GND-vds_t_Vtnode_GND);
10380 #endif
10381 Dv_p=(vpts_t-vds_t);
10382 #endif
10383 #if defined(_DYNAMIC)
10384 {
10385 double m00_logE(d00_logE0,2.4)
10386 double m00_exp(d00_exp1,((-d00_logE0)/zs))
10387 #if defined(_DERIVATE)
10388 DV_f_Vtnode_GND=vds_t_Vtnode_GND*(1.0-d00_exp1);
10389 #endif
10390 DV_f=(vds_t*(1.0-d00_exp1));
10391 }
10392 #endif
10393 #if defined(_DYNAMIC)
10394 #if defined(_DERIVATE)
10395 DC_max_Vtnode_GND=(2.4*cjs0_t_Vtnode_GND);
10396 #endif
10397 DC_max=(2.4*cjs0_t);
10398 #endif
10399 #if defined(_DYNAMIC)
10400 {
10401 double m00_logE(d00_logE0,(vpts_t/vds_t))
10402 double m00_exp(d00_exp1,((Dz_r-zs)*d00_logE0))
10403 #if defined(_DERIVATE)
10404 double m10_logE(d10_logE0,d00_logE0,(vpts_t/vds_t))
10405 #define d10_exp1 d00_exp1
10406 #endif
10407 #if defined(_DERIVATE)
10408 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));
10409 #endif
10410 DC_c=(cjs0_t*d00_exp1);
10411 }
10412 #endif
10413 #if defined(_DYNAMIC)
10414 #if defined(_DERIVATE)
10415 Dv_e_Vsi_ci=((-1.0)/VT);
10416 Dv_e_Vb_ci=0.0;
10417 Dv_e_Vbp_ci=0.0;
10418 Dv_e_Vtnode_GND=((DV_f_Vtnode_GND*VT-(DV_f-BP(si,ci))*VT_Vtnode_GND)/VT/VT);
10419 Dv_e_Vbi_ci=0.0;
10420 #endif
10421 Dv_e=((DV_f-BP(si,ci))/VT);
10422 #endif
10423 #ifdef _DYNAMIC
10424 if
10425 ((Dv_e<80.0))
10426 {
10427 #if defined(_DYNAMIC)
10428 {
10429 double m00_exp(d00_exp0,Dv_e)
10430 #if defined(_DERIVATE)
10431 #define d10_exp0 d00_exp0
10432 #endif
10433 #if defined(_DERIVATE)
10434 De_Vsi_ci=Dv_e_Vsi_ci*d10_exp0;
10435 De_Vb_ci=Dv_e_Vb_ci*d10_exp0;
10436 De_Vbp_ci=Dv_e_Vbp_ci*d10_exp0;
10437 De_Vtnode_GND=Dv_e_Vtnode_GND*d10_exp0;
10438 De_Vbi_ci=Dv_e_Vbi_ci*d10_exp0;
10439 #endif
10440 De=d00_exp0;
10441 }
10442 #endif
10443 #if defined(_DYNAMIC)
10444 #if defined(_DERIVATE)
10445 De_1_Vsi_ci=((De_Vsi_ci*(1.0+De)-De*De_Vsi_ci)/(1.0+De)/(1.0+De));
10446 De_1_Vb_ci=((De_Vb_ci*(1.0+De)-De*De_Vb_ci)/(1.0+De)/(1.0+De));
10447 De_1_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
10448 De_1_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
10449 De_1_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
10450 #endif
10451 De_1=(De/(1.0+De));
10452 #endif
10453 #if defined(_DYNAMIC)
10454 {
10455 double m00_logE(d00_logE0,(1.0+De))
10456 #if defined(_DERIVATE)
10457 double m10_logE(d10_logE0,d00_logE0,(1.0+De))
10458 #endif
10459 #if defined(_DERIVATE)
10460 Dv_j1_Vsi_ci=(-(VT*De_Vsi_ci*d10_logE0));
10461 Dv_j1_Vb_ci=(-(VT*De_Vb_ci*d10_logE0));
10462 Dv_j1_Vbp_ci=(-(VT*De_Vbp_ci*d10_logE0));
10463 Dv_j1_Vtnode_GND=(DV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*De_Vtnode_GND*d10_logE0)));
10464 Dv_j1_Vbi_ci=(-(VT*De_Vbi_ci*d10_logE0));
10465 #endif
10466 Dv_j1=(DV_f-(VT*d00_logE0));
10467 }
10468 #endif
10469 }
10470 else
10471 {
10472 #if defined(_DYNAMIC)
10473 #if defined(_DERIVATE)
10474 De_1_Vsi_ci=0.0;
10475 De_1_Vb_ci=0.0;
10476 De_1_Vbp_ci=0.0;
10477 De_1_Vtnode_GND=0.0;
10478 De_1_Vbi_ci=0.0;
10479 #endif
10480 De_1=1.0;
10481 #endif
10482 #if defined(_DYNAMIC)
10483 #if defined(_DERIVATE)
10484 Dv_j1_Vsi_ci=1.0;
10485 Dv_j1_Vb_ci=0.0;
10486 Dv_j1_Vbp_ci=0.0;
10487 Dv_j1_Vtnode_GND=0.0;
10488 Dv_j1_Vbi_ci=0.0;
10489 #endif
10490 Dv_j1=BP(si,ci);
10491 #endif
10492 }
10493 #endif /* if (...) */
10494 #if defined(_DYNAMIC)
10495 #if defined(_DERIVATE)
10496 Da_Vtnode_GND=((0.1*Dv_p_Vtnode_GND)+(4.0*VT_Vtnode_GND));
10497 #endif
10498 Da=((0.1*Dv_p)+(4.0*VT));
10499 #endif
10500 #if defined(_DYNAMIC)
10501 #if defined(_DERIVATE)
10502 Dv_r_Vsi_ci=(Dv_j1_Vsi_ci/Da);
10503 Dv_r_Vb_ci=(Dv_j1_Vb_ci/Da);
10504 Dv_r_Vbp_ci=(Dv_j1_Vbp_ci/Da);
10505 Dv_r_Vtnode_GND=(((Dv_p_Vtnode_GND+Dv_j1_Vtnode_GND)*Da-(Dv_p+Dv_j1)*Da_Vtnode_GND)/Da/Da);
10506 Dv_r_Vbi_ci=(Dv_j1_Vbi_ci/Da);
10507 #endif
10508 Dv_r=((Dv_p+Dv_j1)/Da);
10509 #endif
10510 #ifdef _DYNAMIC
10511 if
10512 ((Dv_r<80.0))
10513 {
10514 #if defined(_DYNAMIC)
10515 {
10516 double m00_exp(d00_exp0,Dv_r)
10517 #if defined(_DERIVATE)
10518 #define d10_exp0 d00_exp0
10519 #endif
10520 #if defined(_DERIVATE)
10521 De_Vsi_ci=Dv_r_Vsi_ci*d10_exp0;
10522 De_Vb_ci=Dv_r_Vb_ci*d10_exp0;
10523 De_Vbp_ci=Dv_r_Vbp_ci*d10_exp0;
10524 De_Vtnode_GND=Dv_r_Vtnode_GND*d10_exp0;
10525 De_Vbi_ci=Dv_r_Vbi_ci*d10_exp0;
10526 #endif
10527 De=d00_exp0;
10528 }
10529 #endif
10530 #if defined(_DYNAMIC)
10531 #if defined(_DERIVATE)
10532 De_2_Vsi_ci=((De_Vsi_ci*(1.0+De)-De*De_Vsi_ci)/(1.0+De)/(1.0+De));
10533 De_2_Vb_ci=((De_Vb_ci*(1.0+De)-De*De_Vb_ci)/(1.0+De)/(1.0+De));
10534 De_2_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
10535 De_2_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
10536 De_2_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
10537 #endif
10538 De_2=(De/(1.0+De));
10539 #endif
10540 #if defined(_DYNAMIC)
10541 {
10542 double m00_logE(d00_logE0,(1.0+De))
10543 #if defined(_DERIVATE)
10544 double m10_logE(d10_logE0,d00_logE0,(1.0+De))
10545 #endif
10546 #if defined(_DERIVATE)
10547 Dv_j2_Vsi_ci=(Da*De_Vsi_ci*d10_logE0);
10548 Dv_j2_Vb_ci=(Da*De_Vb_ci*d10_logE0);
10549 Dv_j2_Vbp_ci=(Da*De_Vbp_ci*d10_logE0);
10550 Dv_j2_Vtnode_GND=((-Dv_p_Vtnode_GND)+((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
10551 Dv_j2_Vbi_ci=(Da*De_Vbi_ci*d10_logE0);
10552 #endif
10553 Dv_j2=((-Dv_p)+(Da*d00_logE0));
10554 }
10555 #endif
10556 }
10557 else
10558 {
10559 #if defined(_DYNAMIC)
10560 #if defined(_DERIVATE)
10561 De_2_Vsi_ci=0.0;
10562 De_2_Vb_ci=0.0;
10563 De_2_Vbp_ci=0.0;
10564 De_2_Vtnode_GND=0.0;
10565 De_2_Vbi_ci=0.0;
10566 #endif
10567 De_2=1.0;
10568 #endif
10569 #if defined(_DYNAMIC)
10570 #if defined(_DERIVATE)
10571 Dv_j2_Vsi_ci=Dv_j1_Vsi_ci;
10572 Dv_j2_Vb_ci=Dv_j1_Vb_ci;
10573 Dv_j2_Vbp_ci=Dv_j1_Vbp_ci;
10574 Dv_j2_Vtnode_GND=Dv_j1_Vtnode_GND;
10575 Dv_j2_Vbi_ci=Dv_j1_Vbi_ci;
10576 #endif
10577 Dv_j2=Dv_j1;
10578 #endif
10579 }
10580 #endif /* if (...) */
10581 #if defined(_DYNAMIC)
10582 #if defined(_DERIVATE)
10583 Dv_j4_Vsi_ci=(1.0-Dv_j1_Vsi_ci);
10584 Dv_j4_Vb_ci=(-Dv_j1_Vb_ci);
10585 Dv_j4_Vbp_ci=(-Dv_j1_Vbp_ci);
10586 Dv_j4_Vbi_ci=(-Dv_j1_Vbi_ci);
10587 Dv_j4_Vtnode_GND=(-Dv_j1_Vtnode_GND);
10588 #endif
10589 Dv_j4=(BP(si,ci)-Dv_j1);
10590 #endif
10591 #if defined(_DYNAMIC)
10592 {
10593 double m00_logE(d00_logE0,(1.0-(Dv_j1/vds_t)))
10594 #if defined(_DERIVATE)
10595 double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j1/vds_t)))
10596 #endif
10597 #if defined(_DERIVATE)
10598 DCln1_Vsi_ci=(-(Dv_j1_Vsi_ci/vds_t))*d10_logE0;
10599 DCln1_Vb_ci=(-(Dv_j1_Vb_ci/vds_t))*d10_logE0;
10600 DCln1_Vbp_ci=(-(Dv_j1_Vbp_ci/vds_t))*d10_logE0;
10601 DCln1_Vtnode_GND=(-((Dv_j1_Vtnode_GND*vds_t-Dv_j1*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0;
10602 DCln1_Vbi_ci=(-(Dv_j1_Vbi_ci/vds_t))*d10_logE0;
10603 #endif
10604 DCln1=d00_logE0;
10605 }
10606 #endif
10607 #if defined(_DYNAMIC)
10608 {
10609 double m00_logE(d00_logE0,(1.0-(Dv_j2/vds_t)))
10610 #if defined(_DERIVATE)
10611 double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j2/vds_t)))
10612 #endif
10613 #if defined(_DERIVATE)
10614 DCln2_Vsi_ci=(-(Dv_j2_Vsi_ci/vds_t))*d10_logE0;
10615 DCln2_Vb_ci=(-(Dv_j2_Vb_ci/vds_t))*d10_logE0;
10616 DCln2_Vbp_ci=(-(Dv_j2_Vbp_ci/vds_t))*d10_logE0;
10617 DCln2_Vtnode_GND=(-((Dv_j2_Vtnode_GND*vds_t-Dv_j2*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0;
10618 DCln2_Vbi_ci=(-(Dv_j2_Vbi_ci/vds_t))*d10_logE0;
10619 #endif
10620 DCln2=d00_logE0;
10621 }
10622 #endif
10623 #if defined(_DYNAMIC)
10624 Dz1=(1.0-zs);
10625 #endif
10626 #if defined(_DYNAMIC)
10627 Dzr1=(1.0-Dz_r);
10628 #endif
10629 #if defined(_DYNAMIC)
10630 {
10631 double m00_exp(d00_exp0,(DCln2*(-zs)))
10632 #if defined(_DERIVATE)
10633 #define d10_exp0 d00_exp0
10634 #endif
10635 #if defined(_DERIVATE)
10636 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));
10637 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));
10638 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));
10639 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));
10640 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));
10641 #endif
10642 DC_j1=(((cjs0_t*d00_exp0)*De_1)*De_2);
10643 }
10644 #endif
10645 #if defined(_DYNAMIC)
10646 {
10647 double m00_exp(d00_exp0,(DCln1*(-Dz_r)))
10648 #if defined(_DERIVATE)
10649 #define d10_exp0 d00_exp0
10650 #endif
10651 #if defined(_DERIVATE)
10652 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)));
10653 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)));
10654 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)));
10655 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)));
10656 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)));
10657 #endif
10658 DC_j2=((DC_c*d00_exp0)*(1.0-De_2));
10659 }
10660 #endif
10661 #if defined(_DYNAMIC)
10662 #if defined(_DERIVATE)
10663 DC_j3_Vsi_ci=(DC_max*(-De_1_Vsi_ci));
10664 DC_j3_Vb_ci=(DC_max*(-De_1_Vb_ci));
10665 DC_j3_Vbp_ci=(DC_max*(-De_1_Vbp_ci));
10666 DC_j3_Vtnode_GND=((DC_max_Vtnode_GND*(1.0-De_1))+(DC_max*(-De_1_Vtnode_GND)));
10667 DC_j3_Vbi_ci=(DC_max*(-De_1_Vbi_ci));
10668 #endif
10669 DC_j3=(DC_max*(1.0-De_1));
10670 #endif
10671 #if defined(_DYNAMIC)
10672 c_dummy=((DC_j1+DC_j2)+DC_j3);
10673 #endif
10674 #if defined(_DYNAMIC)
10675 {
10676 double m00_exp(d00_exp0,(DCln2*Dz1))
10677 #if defined(_DERIVATE)
10678 #define d10_exp0 d00_exp0
10679 #endif
10680 #if defined(_DERIVATE)
10681 DQ_j1_Vsi_ci=((cjs0_t*(-DCln2_Vsi_ci*Dz1*d10_exp0))/Dz1);
10682 DQ_j1_Vb_ci=((cjs0_t*(-DCln2_Vb_ci*Dz1*d10_exp0))/Dz1);
10683 DQ_j1_Vbp_ci=((cjs0_t*(-DCln2_Vbp_ci*Dz1*d10_exp0))/Dz1);
10684 DQ_j1_Vtnode_GND=(((cjs0_t_Vtnode_GND*(1.0-d00_exp0))+(cjs0_t*(-DCln2_Vtnode_GND*Dz1*d10_exp0)))/Dz1);
10685 DQ_j1_Vbi_ci=((cjs0_t*(-DCln2_Vbi_ci*Dz1*d10_exp0))/Dz1);
10686 #endif
10687 DQ_j1=((cjs0_t*(1.0-d00_exp0))/Dz1);
10688 }
10689 #endif
10690 #if defined(_DYNAMIC)
10691 {
10692 double m00_exp(d00_exp0,(DCln1*Dzr1))
10693 #if defined(_DERIVATE)
10694 #define d10_exp0 d00_exp0
10695 #endif
10696 #if defined(_DERIVATE)
10697 DQ_j2_Vsi_ci=((DC_c*(-DCln1_Vsi_ci*Dzr1*d10_exp0))/Dzr1);
10698 DQ_j2_Vb_ci=((DC_c*(-DCln1_Vb_ci*Dzr1*d10_exp0))/Dzr1);
10699 DQ_j2_Vbp_ci=((DC_c*(-DCln1_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
10700 DQ_j2_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln1_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
10701 DQ_j2_Vbi_ci=((DC_c*(-DCln1_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
10702 #endif
10703 DQ_j2=((DC_c*(1.0-d00_exp0))/Dzr1);
10704 }
10705 #endif
10706 #if defined(_DYNAMIC)
10707 {
10708 double m00_exp(d00_exp0,(DCln2*Dzr1))
10709 #if defined(_DERIVATE)
10710 #define d10_exp0 d00_exp0
10711 #endif
10712 #if defined(_DERIVATE)
10713 DQ_j3_Vsi_ci=((DC_c*(-DCln2_Vsi_ci*Dzr1*d10_exp0))/Dzr1);
10714 DQ_j3_Vb_ci=((DC_c*(-DCln2_Vb_ci*Dzr1*d10_exp0))/Dzr1);
10715 DQ_j3_Vbp_ci=((DC_c*(-DCln2_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
10716 DQ_j3_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln2_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
10717 DQ_j3_Vbi_ci=((DC_c*(-DCln2_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
10718 #endif
10719 DQ_j3=((DC_c*(1.0-d00_exp0))/Dzr1);
10720 }
10721 #endif
10722 #if defined(_DYNAMIC)
10723 #if defined(_DERIVATE)
10724 Qjs_Vbp_ei=0.0;
10725 Qjs_Vbi_ei=0.0;
10726 Qjs_Vsi_ci=(((DQ_j1_Vsi_ci+DQ_j2_Vsi_ci)-DQ_j3_Vsi_ci)*vds_t+(DC_max*Dv_j4_Vsi_ci));
10727 Qjs_Vb_ci=(((DQ_j1_Vb_ci+DQ_j2_Vb_ci)-DQ_j3_Vb_ci)*vds_t+(DC_max*Dv_j4_Vb_ci));
10728 Qjs_Vbp_ci=(((DQ_j1_Vbp_ci+DQ_j2_Vbp_ci)-DQ_j3_Vbp_ci)*vds_t+(DC_max*Dv_j4_Vbp_ci));
10729 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)));
10730 Qjs_Vbi_ci=(((DQ_j1_Vbi_ci+DQ_j2_Vbi_ci)-DQ_j3_Vbi_ci)*vds_t+(DC_max*Dv_j4_Vbi_ci));
10731 #endif
10732 Qjs=((((DQ_j1+DQ_j2)-DQ_j3)*vds_t)+(DC_max*Dv_j4));
10733 #endif
10734 }
10735 else
10736 {
10737 #if defined(_DYNAMIC)
10738 c_dummy=0.0;
10739 #endif
10740 #if defined(_DYNAMIC)
10741 #if defined(_DERIVATE)
10742 Qjs_Vbp_ei=0.0;
10743 Qjs_Vbi_ei=0.0;
10744 Qjs_Vsi_ci=0.0;
10745 Qjs_Vb_ci=0.0;
10746 Qjs_Vbp_ci=0.0;
10747 Qjs_Vtnode_GND=0.0;
10748 Qjs_Vbi_ci=0.0;
10749 #endif
10750 Qjs=0.0;
10751 #endif
10752 }
10753 #endif /* if (...) */
10754 }
10755 else
10756 {
10757 #ifdef _DYNAMIC
10758 if
10759 ((cjs0_t>0.0))
10760 {
10761 #if defined(_DYNAMIC)
10762 {
10763 double m00_logE(d00_logE0,2.4)
10764 double m00_exp(d00_exp1,((-d00_logE0)/zs))
10765 #if defined(_DERIVATE)
10766 DFV_f_Vtnode_GND=vds_t_Vtnode_GND*(1.0-d00_exp1);
10767 #endif
10768 DFV_f=(vds_t*(1.0-d00_exp1));
10769 }
10770 #endif
10771 #if defined(_DYNAMIC)
10772 #if defined(_DERIVATE)
10773 DFv_e_Vsi_ci=((-1.0)/VT);
10774 DFv_e_Vb_ci=0.0;
10775 DFv_e_Vbp_ci=0.0;
10776 DFv_e_Vbp_ei=0.0;
10777 DFv_e_Vbi_ci=0.0;
10778 DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(si,ci))*VT_Vtnode_GND)/VT/VT);
10779 DFv_e_Vbi_ei=0.0;
10780 #endif
10781 DFv_e=((DFV_f-BP(si,ci))/VT);
10782 #endif
10783 #if defined(_DYNAMIC)
10784 {
10785 double m00_sqrt(d00_sqrt0,((DFv_e*DFv_e)+1.921812))
10786 #if defined(_DERIVATE)
10787 double m10_sqrt(d10_sqrt0,d00_sqrt0,((DFv_e*DFv_e)+1.921812))
10788 #endif
10789 #if defined(_DERIVATE)
10790 DFs_q_Vsi_ci=((DFv_e_Vsi_ci*DFv_e)+(DFv_e*DFv_e_Vsi_ci))*d10_sqrt0;
10791 DFs_q_Vb_ci=((DFv_e_Vb_ci*DFv_e)+(DFv_e*DFv_e_Vb_ci))*d10_sqrt0;
10792 DFs_q_Vbp_ci=((DFv_e_Vbp_ci*DFv_e)+(DFv_e*DFv_e_Vbp_ci))*d10_sqrt0;
10793 DFs_q_Vbp_ei=((DFv_e_Vbp_ei*DFv_e)+(DFv_e*DFv_e_Vbp_ei))*d10_sqrt0;
10794 DFs_q_Vbi_ci=((DFv_e_Vbi_ci*DFv_e)+(DFv_e*DFv_e_Vbi_ci))*d10_sqrt0;
10795 DFs_q_Vtnode_GND=((DFv_e_Vtnode_GND*DFv_e)+(DFv_e*DFv_e_Vtnode_GND))*d10_sqrt0;
10796 DFs_q_Vbi_ei=((DFv_e_Vbi_ei*DFv_e)+(DFv_e*DFv_e_Vbi_ei))*d10_sqrt0;
10797 #endif
10798 DFs_q=d00_sqrt0;
10799 }
10800 #endif
10801 #if defined(_DYNAMIC)
10802 #if defined(_DERIVATE)
10803 DFs_q2_Vsi_ci=(DFv_e_Vsi_ci+DFs_q_Vsi_ci)*0.5;
10804 DFs_q2_Vb_ci=(DFv_e_Vb_ci+DFs_q_Vb_ci)*0.5;
10805 DFs_q2_Vbp_ci=(DFv_e_Vbp_ci+DFs_q_Vbp_ci)*0.5;
10806 DFs_q2_Vbp_ei=(DFv_e_Vbp_ei+DFs_q_Vbp_ei)*0.5;
10807 DFs_q2_Vbi_ci=(DFv_e_Vbi_ci+DFs_q_Vbi_ci)*0.5;
10808 DFs_q2_Vtnode_GND=(DFv_e_Vtnode_GND+DFs_q_Vtnode_GND)*0.5;
10809 DFs_q2_Vbi_ei=(DFv_e_Vbi_ei+DFs_q_Vbi_ei)*0.5;
10810 #endif
10811 DFs_q2=((DFv_e+DFs_q)*0.5);
10812 #endif
10813 #if defined(_DYNAMIC)
10814 #if defined(_DERIVATE)
10815 DFv_j_Vsi_ci=(-(VT*DFs_q2_Vsi_ci));
10816 DFv_j_Vb_ci=(-(VT*DFs_q2_Vb_ci));
10817 DFv_j_Vbp_ci=(-(VT*DFs_q2_Vbp_ci));
10818 DFv_j_Vbp_ei=(-(VT*DFs_q2_Vbp_ei));
10819 DFv_j_Vbi_ci=(-(VT*DFs_q2_Vbi_ci));
10820 DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*DFs_q2)+(VT*DFs_q2_Vtnode_GND)));
10821 DFv_j_Vbi_ei=(-(VT*DFs_q2_Vbi_ei));
10822 #endif
10823 DFv_j=(DFV_f-(VT*DFs_q2));
10824 #endif
10825 #if defined(_DYNAMIC)
10826 #if defined(_DERIVATE)
10827 DFdvj_dv_Vsi_ci=((DFs_q2_Vsi_ci*DFs_q-DFs_q2*DFs_q_Vsi_ci)/DFs_q/DFs_q);
10828 DFdvj_dv_Vb_ci=((DFs_q2_Vb_ci*DFs_q-DFs_q2*DFs_q_Vb_ci)/DFs_q/DFs_q);
10829 DFdvj_dv_Vbp_ci=((DFs_q2_Vbp_ci*DFs_q-DFs_q2*DFs_q_Vbp_ci)/DFs_q/DFs_q);
10830 DFdvj_dv_Vbp_ei=((DFs_q2_Vbp_ei*DFs_q-DFs_q2*DFs_q_Vbp_ei)/DFs_q/DFs_q);
10831 DFdvj_dv_Vbi_ci=((DFs_q2_Vbi_ci*DFs_q-DFs_q2*DFs_q_Vbi_ci)/DFs_q/DFs_q);
10832 DFdvj_dv_Vtnode_GND=((DFs_q2_Vtnode_GND*DFs_q-DFs_q2*DFs_q_Vtnode_GND)/DFs_q/DFs_q);
10833 DFdvj_dv_Vbi_ei=((DFs_q2_Vbi_ei*DFs_q-DFs_q2*DFs_q_Vbi_ei)/DFs_q/DFs_q);
10834 #endif
10835 DFdvj_dv=(DFs_q2/DFs_q);
10836 #endif
10837 #if defined(_DYNAMIC)
10838 {
10839 double m00_logE(d00_logE0,(1.0-(DFv_j/vds_t)))
10840 #if defined(_DERIVATE)
10841 double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vds_t)))
10842 #endif
10843 #if defined(_DERIVATE)
10844 DFb_Vsi_ci=(-(DFv_j_Vsi_ci/vds_t))*d10_logE0;
10845 DFb_Vb_ci=(-(DFv_j_Vb_ci/vds_t))*d10_logE0;
10846 DFb_Vbp_ci=(-(DFv_j_Vbp_ci/vds_t))*d10_logE0;
10847 DFb_Vbp_ei=(-(DFv_j_Vbp_ei/vds_t))*d10_logE0;
10848 DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vds_t))*d10_logE0;
10849 DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vds_t-DFv_j*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0;
10850 DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vds_t))*d10_logE0;
10851 #endif
10852 DFb=d00_logE0;
10853 }
10854 #endif
10855 #if defined(_DYNAMIC)
10856 {
10857 double m00_exp(d00_exp0,((-zs)*DFb))
10858 #if defined(_DERIVATE)
10859 #define d10_exp0 d00_exp0
10860 #endif
10861 #if defined(_DERIVATE)
10862 DFC_j1_Vsi_ci=(((cjs0_t*((-zs)*DFb_Vsi_ci)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vsi_ci));
10863 DFC_j1_Vb_ci=(((cjs0_t*((-zs)*DFb_Vb_ci)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vb_ci));
10864 DFC_j1_Vbp_ci=(((cjs0_t*((-zs)*DFb_Vbp_ci)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vbp_ci));
10865 DFC_j1_Vbp_ei=(((cjs0_t*((-zs)*DFb_Vbp_ei)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vbp_ei));
10866 DFC_j1_Vbi_ci=(((cjs0_t*((-zs)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vbi_ci));
10867 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));
10868 DFC_j1_Vbi_ei=(((cjs0_t*((-zs)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
10869 #endif
10870 DFC_j1=((cjs0_t*d00_exp0)*DFdvj_dv);
10871 }
10872 #endif
10873 #if defined(_DYNAMIC)
10874 c_dummy=(DFC_j1+((2.4*cjs0_t)*(1.0-DFdvj_dv)));
10875 #endif
10876 #if defined(_DYNAMIC)
10877 {
10878 double m00_exp(d00_exp0,(DFb*(1.0-zs)))
10879 #if defined(_DERIVATE)
10880 #define d10_exp0 d00_exp0
10881 #endif
10882 #if defined(_DERIVATE)
10883 DFQ_j_Vsi_ci=(((cjs0_t*vds_t)*(-DFb_Vsi_ci*(1.0-zs)*d10_exp0))/(1.0-zs));
10884 DFQ_j_Vb_ci=(((cjs0_t*vds_t)*(-DFb_Vb_ci*(1.0-zs)*d10_exp0))/(1.0-zs));
10885 DFQ_j_Vbp_ci=(((cjs0_t*vds_t)*(-DFb_Vbp_ci*(1.0-zs)*d10_exp0))/(1.0-zs));
10886 DFQ_j_Vbp_ei=(((cjs0_t*vds_t)*(-DFb_Vbp_ei*(1.0-zs)*d10_exp0))/(1.0-zs));
10887 DFQ_j_Vbi_ci=(((cjs0_t*vds_t)*(-DFb_Vbi_ci*(1.0-zs)*d10_exp0))/(1.0-zs));
10888 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));
10889 DFQ_j_Vbi_ei=(((cjs0_t*vds_t)*(-DFb_Vbi_ei*(1.0-zs)*d10_exp0))/(1.0-zs));
10890 #endif
10891 DFQ_j=(((cjs0_t*vds_t)*(1.0-d00_exp0))/(1.0-zs));
10892 }
10893 #endif
10894 #if defined(_DYNAMIC)
10895 #if defined(_DERIVATE)
10896 Qjs_Vbp_ei=(DFQ_j_Vbp_ei+((2.4*cjs0_t)*(-DFv_j_Vbp_ei)));
10897 Qjs_Vbi_ei=(DFQ_j_Vbi_ei+((2.4*cjs0_t)*(-DFv_j_Vbi_ei)));
10898 Qjs_Vsi_ci=(DFQ_j_Vsi_ci+((2.4*cjs0_t)*(1.0-DFv_j_Vsi_ci)));
10899 Qjs_Vb_ci=(DFQ_j_Vb_ci+((2.4*cjs0_t)*(-DFv_j_Vb_ci)));
10900 Qjs_Vbp_ci=(DFQ_j_Vbp_ci+((2.4*cjs0_t)*(-DFv_j_Vbp_ci)));
10901 Qjs_Vtnode_GND=(DFQ_j_Vtnode_GND+(((2.4*cjs0_t_Vtnode_GND)*(BP(si,ci)-DFv_j))+((2.4*cjs0_t)*(-DFv_j_Vtnode_GND))));
10902 Qjs_Vbi_ci=(DFQ_j_Vbi_ci+((2.4*cjs0_t)*(-DFv_j_Vbi_ci)));
10903 #endif
10904 Qjs=(DFQ_j+((2.4*cjs0_t)*(BP(si,ci)-DFv_j)));
10905 #endif
10906 }
10907 else
10908 {
10909 #if defined(_DYNAMIC)
10910 c_dummy=0.0;
10911 #endif
10912 #if defined(_DYNAMIC)
10913 #if defined(_DERIVATE)
10914 Qjs_Vbp_ei=0.0;
10915 Qjs_Vbi_ei=0.0;
10916 Qjs_Vsi_ci=0.0;
10917 Qjs_Vb_ci=0.0;
10918 Qjs_Vbp_ci=0.0;
10919 Qjs_Vtnode_GND=0.0;
10920 Qjs_Vbi_ci=0.0;
10921 #endif
10922 Qjs=0.0;
10923 #endif
10924 }
10925 #endif /* if (...) */
10926 }
10927 #endif /* if (...) */
10928 if
10929 ((itss>0.0))
10930 {
10931 #if defined(_DERIVATE)
10932 HSUM_Vtnode_GND=(msf*VT_Vtnode_GND);
10933 #endif
10934 HSUM=(msf*VT);
10935 {
10936 double m00_limexp(d00_limexp0,(BP(bp,ci)/HSUM))
10937 #if defined(_DERIVATE)
10938 double m10_limexp(d10_limexp0,d00_limexp0,(BP(bp,ci)/HSUM))
10939 #endif
10940 #if defined(_DERIVATE)
10941 HSa_Vbp_ci=(1/HSUM)*d10_limexp0;
10942 HSa_Vtnode_GND=(-BP(bp,ci)*HSUM_Vtnode_GND/HSUM/HSUM)*d10_limexp0;
10943 #endif
10944 HSa=d00_limexp0;
10945 }
10946 {
10947 double m00_limexp(d00_limexp0,(BP(si,ci)/HSUM))
10948 #if defined(_DERIVATE)
10949 double m10_limexp(d10_limexp0,d00_limexp0,(BP(si,ci)/HSUM))
10950 #endif
10951 #if defined(_DERIVATE)
10952 HSb_Vsi_ci=(1/HSUM)*d10_limexp0;
10953 HSb_Vtnode_GND=(-BP(si,ci)*HSUM_Vtnode_GND/HSUM/HSUM)*d10_limexp0;
10954 #endif
10955 HSb=d00_limexp0;
10956 }
10957 #if defined(_DERIVATE)
10958 HSI_Tsu_Vtnode_GND=((itss_t_Vtnode_GND*(HSa-HSb))+(itss_t*(HSa_Vtnode_GND-HSb_Vtnode_GND)));
10959 HSI_Tsu_Vbp_ci=(itss_t*HSa_Vbp_ci);
10960 HSI_Tsu_Vsi_ci=(itss_t*(-HSb_Vsi_ci));
10961 #endif
10962 HSI_Tsu=(itss_t*(HSa-HSb));
10963 #ifdef _DYNAMIC
10964 if
10965 ((tsf>0.0))
10966 {
10967 #if defined(_DYNAMIC)
10968 #if defined(_DERIVATE)
10969 Qdsu_Vtnode_GND=((((tsf_t_Vtnode_GND*itss_t)+(tsf_t*itss_t_Vtnode_GND))*HSa)+((tsf_t*itss_t)*HSa_Vtnode_GND));
10970 Qdsu_Vbp_ci=((tsf_t*itss_t)*HSa_Vbp_ci);
10971 #endif
10972 Qdsu=((tsf_t*itss_t)*HSa);
10973 #endif
10974 }
10975 else
10976 {
10977 #if defined(_DYNAMIC)
10978 #if defined(_DERIVATE)
10979 Qdsu_Vtnode_GND=0.0;
10980 Qdsu_Vbp_ci=0.0;
10981 #endif
10982 Qdsu=0.0;
10983 #endif
10984 }
10985 #endif /* if (...) */
10986 }
10987 else
10988 {
10989 #if defined(_DERIVATE)
10990 HSI_Tsu_Vtnode_GND=0.0;
10991 HSI_Tsu_Vbp_ci=0.0;
10992 HSI_Tsu_Vsi_ci=0.0;
10993 #endif
10994 HSI_Tsu=0.0;
10995 #if defined(_DYNAMIC)
10996 #if defined(_DERIVATE)
10997 Qdsu_Vtnode_GND=0.0;
10998 Qdsu_Vbp_ci=0.0;
10999 #endif
11000 Qdsu=0.0;
11001 #endif
11002 }
11003 #if defined(_DYNAMIC)
11004 #if defined(_DERIVATE)
11005 betad_Vtnode_GND=ibei_Vtnode_GND;
11006 betad_Vbi_ei=ibei_Vbi_ei;
11007 #endif
11008 betad=ibei;
11009 #endif
11010 #ifdef _DYNAMIC
11011 if
11012 ((betad>0.0))
11013 {
11014 #if defined(_DYNAMIC)
11015 betadin=betad;
11016 #endif
11017 #if defined(_DYNAMIC)
11018 #if defined(_DERIVATE)
11019 betan_Vci_ei=it_Vci_ei;
11020 betan_Vtnode_GND=it_Vtnode_GND;
11021 betan_Vbi_ei=it_Vbi_ei;
11022 betan_Vbi_ci=it_Vbi_ci;
11023 #endif
11024 betan=it;
11025 #endif
11026 #if defined(_DYNAMIC)
11027 #if defined(_DERIVATE)
11028 betadc_Vci_ei=(betan_Vci_ei/betad);
11029 betadc_Vtnode_GND=((betan_Vtnode_GND*betad-betan*betad_Vtnode_GND)/betad/betad);
11030 betadc_Vbi_ei=((betan_Vbi_ei*betad-betan*betad_Vbi_ei)/betad/betad);
11031 betadc_Vbi_ci=(betan_Vbi_ci/betad);
11032 #endif
11033 betadc=(betan/betad);
11034 #endif
11035 }
11036 else
11037 {
11038 #if defined(_DYNAMIC)
11039 #if defined(_DERIVATE)
11040 betadc_Vci_ei=0.0;
11041 betadc_Vtnode_GND=0.0;
11042 betadc_Vbi_ei=0.0;
11043 betadc_Vbi_ci=0.0;
11044 #endif
11045 betadc=0.0;
11046 #endif
11047 }
11048 #endif /* if (...) */
11049 #if defined(_DERIVATE)
11050 DIOY_Vsi_ci=(1/(msc*VT));
11051 DIOY_Vbp_ci=0.0;
11052 DIOY_Vbp_ei=0.0;
11053 DIOY_Vbi_ci=0.0;
11054 DIOY_Vbi_ei=0.0;
11055 DIOY_Vtnode_GND=(-BP(si,ci)*(msc*VT_Vtnode_GND)/(msc*VT)/(msc*VT));
11056 #endif
11057 DIOY=(BP(si,ci)/(msc*VT));
11058 if
11059 ((iscs>0.0))
11060 {
11061 if
11062 ((DIOY>80.0))
11063 {
11064 #if defined(_DERIVATE)
11065 le_Vsi_ci=DIOY_Vsi_ci;
11066 le_Vbp_ci=DIOY_Vbp_ci;
11067 le_Vbp_ei=DIOY_Vbp_ei;
11068 le_Vbi_ci=DIOY_Vbi_ci;
11069 le_Vbi_ei=DIOY_Vbi_ei;
11070 le_Vtnode_GND=DIOY_Vtnode_GND;
11071 #endif
11072 le=(1+(DIOY-80.0));
11073 #if defined(_DERIVATE)
11074 DIOY_Vsi_ci=0.0;
11075 DIOY_Vbp_ci=0.0;
11076 DIOY_Vbp_ei=0.0;
11077 DIOY_Vbi_ci=0.0;
11078 DIOY_Vbi_ei=0.0;
11079 DIOY_Vtnode_GND=0.0;
11080 #endif
11081 DIOY=80.0;
11082 }
11083 else
11084 {
11085 #if defined(_DERIVATE)
11086 le_Vsi_ci=0.0;
11087 le_Vbp_ci=0.0;
11088 le_Vbp_ei=0.0;
11089 le_Vbi_ci=0.0;
11090 le_Vbi_ei=0.0;
11091 le_Vtnode_GND=0.0;
11092 #endif
11093 le=1;
11094 }
11095 {
11096 double m00_limexp(d00_limexp0,DIOY)
11097 #if defined(_DERIVATE)
11098 double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
11099 #endif
11100 #if defined(_DERIVATE)
11101 le_Vsi_ci=((le_Vsi_ci*d00_limexp0)+(le*DIOY_Vsi_ci*d10_limexp0));
11102 le_Vbp_ci=((le_Vbp_ci*d00_limexp0)+(le*DIOY_Vbp_ci*d10_limexp0));
11103 le_Vbp_ei=((le_Vbp_ei*d00_limexp0)+(le*DIOY_Vbp_ei*d10_limexp0));
11104 le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
11105 le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
11106 le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
11107 #endif
11108 le=(le*d00_limexp0);
11109 }
11110 #if defined(_DERIVATE)
11111 ijsc_Vtnode_GND=((iscs_t_Vtnode_GND*(le-1.0))+(iscs_t*le_Vtnode_GND));
11112 ijsc_Vsi_ci=(iscs_t*le_Vsi_ci);
11113 ijsc_Vbp_ci=(iscs_t*le_Vbp_ci);
11114 ijsc_Vbp_ei=(iscs_t*le_Vbp_ei);
11115 ijsc_Vbi_ci=(iscs_t*le_Vbi_ci);
11116 ijsc_Vbi_ei=(iscs_t*le_Vbi_ei);
11117 #endif
11118 ijsc=(iscs_t*(le-1.0));
11119 if
11120 ((DIOY<=(-14.0)))
11121 {
11122 #if defined(_DERIVATE)
11123 ijsc_Vtnode_GND=(-iscs_t_Vtnode_GND);
11124 ijsc_Vsi_ci=0.0;
11125 ijsc_Vbp_ci=0.0;
11126 ijsc_Vbp_ei=0.0;
11127 ijsc_Vbi_ci=0.0;
11128 ijsc_Vbi_ei=0.0;
11129 #endif
11130 ijsc=(-iscs_t);
11131 }
11132 }
11133 else
11134 {
11135 #if defined(_DERIVATE)
11136 ijsc_Vtnode_GND=0.0;
11137 ijsc_Vsi_ci=0.0;
11138 ijsc_Vbp_ci=0.0;
11139 ijsc_Vbp_ei=0.0;
11140 ijsc_Vbi_ci=0.0;
11141 ijsc_Vbi_ei=0.0;
11142 #endif
11143 ijsc=0.0;
11144 }
11145 if
11146 (((flsh==1)&&(rth>=0.001)))
11147 {
11148 #if defined(_DERIVATE)
11149 pterm_Vb_bp=0.0;
11150 pterm_Vci_c=0.0;
11151 pterm_Vei_e=0.0;
11152 pterm_Vbp_bi=0.0;
11153 pterm_Vbp_ei=0.0;
11154 pterm_Vbp_ci=0.0;
11155 pterm_Vsi_ci=0.0;
11156 pterm_Vci_ei=((it+(it_Vci_ei*BP(ci,ei)))+((vdci_t-BP(bi,ci))*iavl_Vci_ei));
11157 pterm_Vtnode_GND=((BP(ci,ei)*it_Vtnode_GND)+((vdci_t_Vtnode_GND*iavl)+((vdci_t-BP(bi,ci))*iavl_Vtnode_GND)));
11158 pterm_Vbi_ei=((BP(ci,ei)*it_Vbi_ei)+((vdci_t-BP(bi,ci))*iavl_Vbi_ei));
11159 pterm_Vbi_ci=((BP(ci,ei)*it_Vbi_ci)+(((-1.0)*iavl)+((vdci_t-BP(bi,ci))*iavl_Vbi_ci)));
11160 #endif
11161 pterm=((BP(ci,ei)*it)+((vdci_t-BP(bi,ci))*iavl));
11162 }
11163 else
11164 {
11165 if
11166 (((flsh==2)&&(rth>=0.001)))
11167 {
11168 #if defined(_DERIVATE)
11169 pterm_Vb_bp=0.0;
11170 pterm_Vci_c=0.0;
11171 pterm_Vei_e=0.0;
11172 pterm_Vbp_bi=0.0;
11173 pterm_Vbp_ei=((((ibep_Vbp_ei*BP(bp,ei))+ibep)+ijbcx_Vbp_ei*BP(bp,ci))+ijsc_Vbp_ei*BP(si,ci));
11174 pterm_Vbp_ci=(((ijbcx_Vbp_ci*BP(bp,ci))+ijbcx)+ijsc_Vbp_ci*BP(si,ci));
11175 pterm_Vsi_ci=((ijsc_Vsi_ci*BP(si,ci))+ijsc);
11176 pterm_Vci_ei=((it+(it_Vci_ei*BP(ci,ei)))+((vdci_t-BP(bi,ci))*iavl_Vci_ei));
11177 pterm_Vtnode_GND=(((((((BP(ci,ei)*it_Vtnode_GND)+((vdci_t_Vtnode_GND*iavl)+((vdci_t-BP(bi,ci))*iavl_Vtnode_GND)))+ibei_Vtnode_GND*BP(bi,ei))+ibci_Vtnode_GND*BP(bi,ci))+ibep_Vtnode_GND*BP(bp,ei))+ijbcx_Vtnode_GND*BP(bp,ci))+ijsc_Vtnode_GND*BP(si,ci));
11178 pterm_Vbi_ei=(((((((BP(ci,ei)*it_Vbi_ei)+((vdci_t-BP(bi,ci))*iavl_Vbi_ei))+((ibei_Vbi_ei*BP(bi,ei))+ibei))+ibci_Vbi_ei*BP(bi,ci))+ibep_Vbi_ei*BP(bp,ei))+ijbcx_Vbi_ei*BP(bp,ci))+ijsc_Vbi_ei*BP(si,ci));
11179 pterm_Vbi_ci=((((((BP(ci,ei)*it_Vbi_ci)+(((-1.0)*iavl)+((vdci_t-BP(bi,ci))*iavl_Vbi_ci)))+((ibci_Vbi_ci*BP(bi,ci))+ibci))+ibep_Vbi_ci*BP(bp,ei))+ijbcx_Vbi_ci*BP(bp,ci))+ijsc_Vbi_ci*BP(si,ci));
11180 #endif
11181 pterm=(((((((BP(ci,ei)*it)+((vdci_t-BP(bi,ci))*iavl))+(ibei*BP(bi,ei)))+(ibci*BP(bi,ci)))+(ibep*BP(bp,ei)))+(ijbcx*BP(bp,ci)))+(ijsc*BP(si,ci)));
11182 if
11183 ((rbi>=0.001))
11184 {
11185 #if defined(_DERIVATE)
11186 pterm_Vb_bp=0.0;
11187 pterm_Vci_c=0.0;
11188 pterm_Vei_e=0.0;
11189 pterm_Vbp_bi=(pterm_Vbp_bi+((BP(bp,bi)+BP(bp,bi))/rbi));
11190 pterm_Vbp_ei=pterm_Vbp_ei;
11191 pterm_Vbp_ci=pterm_Vbp_ci;
11192 pterm_Vsi_ci=pterm_Vsi_ci;
11193 pterm_Vci_ei=(pterm_Vci_ei+(-(BP(bp,bi)*BP(bp,bi))*rbi_Vci_ei/rbi/rbi));
11194 pterm_Vtnode_GND=(pterm_Vtnode_GND+(-(BP(bp,bi)*BP(bp,bi))*rbi_Vtnode_GND/rbi/rbi));
11195 pterm_Vbi_ei=(pterm_Vbi_ei+(-(BP(bp,bi)*BP(bp,bi))*rbi_Vbi_ei/rbi/rbi));
11196 pterm_Vbi_ci=(pterm_Vbi_ci+(-(BP(bp,bi)*BP(bp,bi))*rbi_Vbi_ci/rbi/rbi));
11197 #endif
11198 pterm=(pterm+((BP(bp,bi)*BP(bp,bi))/rbi));
11199 }
11200 if
11201 ((re_t>=0.001))
11202 {
11203 #if defined(_DERIVATE)
11204 pterm_Vb_bp=0.0;
11205 pterm_Vci_c=0.0;
11206 pterm_Vei_e=(pterm_Vei_e+((BP(ei,e)+BP(ei,e))/re_t));
11207 pterm_Vbp_bi=pterm_Vbp_bi;
11208 pterm_Vbp_ei=pterm_Vbp_ei;
11209 pterm_Vbp_ci=pterm_Vbp_ci;
11210 pterm_Vsi_ci=pterm_Vsi_ci;
11211 pterm_Vci_ei=pterm_Vci_ei;
11212 pterm_Vtnode_GND=(pterm_Vtnode_GND+(-(BP(ei,e)*BP(ei,e))*re_t_Vtnode_GND/re_t/re_t));
11213 pterm_Vbi_ei=pterm_Vbi_ei;
11214 pterm_Vbi_ci=pterm_Vbi_ci;
11215 #endif
11216 pterm=(pterm+((BP(ei,e)*BP(ei,e))/re_t));
11217 }
11218 if
11219 ((rcx_t>=0.001))
11220 {
11221 #if defined(_DERIVATE)
11222 pterm_Vb_bp=0.0;
11223 pterm_Vci_c=(pterm_Vci_c+((BP(ci,c)+BP(ci,c))/rcx_t));
11224 pterm_Vei_e=pterm_Vei_e;
11225 pterm_Vbp_bi=pterm_Vbp_bi;
11226 pterm_Vbp_ei=pterm_Vbp_ei;
11227 pterm_Vbp_ci=pterm_Vbp_ci;
11228 pterm_Vsi_ci=pterm_Vsi_ci;
11229 pterm_Vci_ei=pterm_Vci_ei;
11230 pterm_Vtnode_GND=(pterm_Vtnode_GND+(-(BP(ci,c)*BP(ci,c))*rcx_t_Vtnode_GND/rcx_t/rcx_t));
11231 pterm_Vbi_ei=pterm_Vbi_ei;
11232 pterm_Vbi_ci=pterm_Vbi_ci;
11233 #endif
11234 pterm=(pterm+((BP(ci,c)*BP(ci,c))/rcx_t));
11235 }
11236 if
11237 ((rbx_t>=0.001))
11238 {
11239 #if defined(_DERIVATE)
11240 pterm_Vb_bp=(pterm_Vb_bp+((BP(b,bp)+BP(b,bp))/rbx_t));
11241 pterm_Vci_c=pterm_Vci_c;
11242 pterm_Vei_e=pterm_Vei_e;
11243 pterm_Vbp_bi=pterm_Vbp_bi;
11244 pterm_Vbp_ei=pterm_Vbp_ei;
11245 pterm_Vbp_ci=pterm_Vbp_ci;
11246 pterm_Vsi_ci=pterm_Vsi_ci;
11247 pterm_Vci_ei=pterm_Vci_ei;
11248 pterm_Vtnode_GND=(pterm_Vtnode_GND+(-(BP(b,bp)*BP(b,bp))*rbx_t_Vtnode_GND/rbx_t/rbx_t));
11249 pterm_Vbi_ei=pterm_Vbi_ei;
11250 pterm_Vbi_ci=pterm_Vbi_ci;
11251 #endif
11252 pterm=(pterm+((BP(b,bp)*BP(b,bp))/rbx_t));
11253 }
11254 }
11255 }
11256 #if defined(_DERIVATE)
11257 Itxf_Vxf2_GND=0.0;
11258 Itxf_Vci_ei=itf_Vci_ei;
11259 Itxf_Vtnode_GND=itf_Vtnode_GND;
11260 Itxf_Vbi_ei=itf_Vbi_ei;
11261 Itxf_Vbi_ci=itf_Vbi_ci;
11262 #endif
11263 Itxf=itf;
11264 #if defined(_DYNAMIC)
11265 #if defined(_DERIVATE)
11266 Qdeix_Vxf_GND=0.0;
11267 Qdeix_Vci_ei=Qdei_Vci_ei;
11268 Qdeix_Vtnode_GND=Qdei_Vtnode_GND;
11269 Qdeix_Vbi_ci=Qdei_Vbi_ci;
11270 Qdeix_Vbi_ei=Qdei_Vbi_ei;
11271 #endif
11272 Qdeix=Qdei;
11273 #endif
11274 if
11275 (((flnqs!=0)&&(Tf!=0)))
11276 {
11277 #if defined(_DERIVATE)
11278 Vxf1_Vxf1_GND=1.0;
11279 #endif
11280 Vxf1=NP(xf1);
11281 #if defined(_DERIVATE)
11282 Vxf2_Vxf2_GND=1.0;
11283 #endif
11284 Vxf2=NP(xf2);
11285 #if defined(_DERIVATE)
11286 Ixf1_Vxf1_GND=0.0;
11287 Ixf1_Vxf2_GND=(Vxf2_Vxf2_GND/Tf)*t0;
11288 Ixf1_Vci_ei=(((-itf_Vci_ei)*Tf-(Vxf2-itf)*Tf_Vci_ei)/Tf/Tf)*t0;
11289 Ixf1_Vtnode_GND=(((-itf_Vtnode_GND)*Tf-(Vxf2-itf)*Tf_Vtnode_GND)/Tf/Tf)*t0;
11290 Ixf1_Vbi_ei=(((-itf_Vbi_ei)*Tf-(Vxf2-itf)*Tf_Vbi_ei)/Tf/Tf)*t0;
11291 Ixf1_Vbi_ci=(((-itf_Vbi_ci)*Tf-(Vxf2-itf)*Tf_Vbi_ci)/Tf/Tf)*t0;
11292 #endif
11293 Ixf1=(((Vxf2-itf)/Tf)*t0);
11294 #if defined(_DERIVATE)
11295 Ixf2_Vxf2_GND=(Vxf2_Vxf2_GND/Tf)*t0;
11296 Ixf2_Vxf1_GND=((-Vxf1_Vxf1_GND)/Tf)*t0;
11297 Ixf2_Vci_ei=(-(Vxf2-Vxf1)*Tf_Vci_ei/Tf/Tf)*t0;
11298 Ixf2_Vbi_ei=(-(Vxf2-Vxf1)*Tf_Vbi_ei/Tf/Tf)*t0;
11299 Ixf2_Vtnode_GND=(-(Vxf2-Vxf1)*Tf_Vtnode_GND/Tf/Tf)*t0;
11300 Ixf2_Vbi_ci=(-(Vxf2-Vxf1)*Tf_Vbi_ci/Tf/Tf)*t0;
11301 #endif
11302 Ixf2=(((Vxf2-Vxf1)/Tf)*t0);
11303 #if defined(_DYNAMIC)
11304 #if defined(_DERIVATE)
11305 Qxf1_Vxf1_GND=(alit*Vxf1_Vxf1_GND)*t0;
11306 #endif
11307 Qxf1=((alit*Vxf1)*t0);
11308 #endif
11309 #if defined(_DYNAMIC)
11310 #if defined(_DERIVATE)
11311 Qxf2_Vxf2_GND=((alit*Vxf2_Vxf2_GND)/3)*t0;
11312 #endif
11313 Qxf2=(((alit*Vxf2)/3)*t0);
11314 #endif
11315 #if defined(_DERIVATE)
11316 Itxf_Vxf2_GND=Vxf2_Vxf2_GND;
11317 Itxf_Vci_ei=0.0;
11318 Itxf_Vtnode_GND=0.0;
11319 Itxf_Vbi_ei=0.0;
11320 Itxf_Vbi_ci=0.0;
11321 #endif
11322 Itxf=Vxf2;
11323 #if defined(_DERIVATE)
11324 Vxf_Vxf_GND=1.0;
11325 #endif
11326 Vxf=NP(xf);
11327 #if defined(_DERIVATE)
11328 fact_Vci_ei=(-t0*Tf_Vci_ei/Tf/Tf);
11329 fact_Vbi_ei=(-t0*Tf_Vbi_ei/Tf/Tf);
11330 fact_Vtnode_GND=(-t0*Tf_Vtnode_GND/Tf/Tf);
11331 fact_Vbi_ci=(-t0*Tf_Vbi_ci/Tf/Tf);
11332 #endif
11333 fact=(t0/Tf);
11334 #if defined(_DERIVATE)
11335 Ixf_Vxf_GND=Vxf_Vxf_GND*fact;
11336 Ixf_Vci_ei=(((-Qdei_Vci_ei)*fact)+((Vxf-Qdei)*fact_Vci_ei));
11337 Ixf_Vtnode_GND=(((-Qdei_Vtnode_GND)*fact)+((Vxf-Qdei)*fact_Vtnode_GND));
11338 Ixf_Vbi_ci=(((-Qdei_Vbi_ci)*fact)+((Vxf-Qdei)*fact_Vbi_ci));
11339 Ixf_Vbi_ei=(((-Qdei_Vbi_ei)*fact)+((Vxf-Qdei)*fact_Vbi_ei));
11340 #endif
11341 Ixf=((Vxf-Qdei)*fact);
11342 #if defined(_DYNAMIC)
11343 #if defined(_DERIVATE)
11344 Qxf_Vxf_GND=(alqf*Vxf_Vxf_GND)*t0;
11345 #endif
11346 Qxf=((alqf*Vxf)*t0);
11347 #endif
11348 #if defined(_DYNAMIC)
11349 #if defined(_DERIVATE)
11350 Qdeix_Vxf_GND=Vxf_Vxf_GND;
11351 Qdeix_Vci_ei=0.0;
11352 Qdeix_Vtnode_GND=0.0;
11353 Qdeix_Vbi_ci=0.0;
11354 Qdeix_Vbi_ei=0.0;
11355 #endif
11356 Qdeix=Vxf;
11357 #endif
11358 }
11359 else
11360 {
11361 #if defined(_DERIVATE)
11362 Ixf1_Vxf1_GND=1.0;
11363 Ixf1_Vxf2_GND=0.0;
11364 Ixf1_Vci_ei=0.0;
11365 Ixf1_Vtnode_GND=0.0;
11366 Ixf1_Vbi_ei=0.0;
11367 Ixf1_Vbi_ci=0.0;
11368 #endif
11369 Ixf1=NP(xf1);
11370 #if defined(_DERIVATE)
11371 Ixf2_Vxf2_GND=1.0;
11372 Ixf2_Vxf1_GND=0.0;
11373 Ixf2_Vci_ei=0.0;
11374 Ixf2_Vbi_ei=0.0;
11375 Ixf2_Vtnode_GND=0.0;
11376 Ixf2_Vbi_ci=0.0;
11377 #endif
11378 Ixf2=NP(xf2);
11379 #if defined(_DYNAMIC)
11380 #if defined(_DERIVATE)
11381 Qxf1_Vxf1_GND=0.0;
11382 #endif
11383 Qxf1=0;
11384 #endif
11385 #if defined(_DYNAMIC)
11386 #if defined(_DERIVATE)
11387 Qxf2_Vxf2_GND=0.0;
11388 #endif
11389 Qxf2=0;
11390 #endif
11391 #if defined(_DERIVATE)
11392 Ixf_Vxf_GND=1.0;
11393 Ixf_Vci_ei=0.0;
11394 Ixf_Vtnode_GND=0.0;
11395 Ixf_Vbi_ci=0.0;
11396 Ixf_Vbi_ei=0.0;
11397 #endif
11398 Ixf=NP(xf);
11399 #if defined(_DYNAMIC)
11400 #if defined(_DERIVATE)
11401 Qxf_Vxf_GND=0.0;
11402 #endif
11403 Qxf=0;
11404 #endif
11405 }
11406 }
11407 {
11408 _load_static_residual2(bi,ei,(1.0e-12*BP(bi,ei)));
11409 #if defined(_DERIVATE)
11410 _load_static_jacobian4(bi,ei,bi,ei,(1.0e-12));
11411 #endif
11412 _load_static_residual2(bi,ci,(1.0e-12*BP(bi,ci)));
11413 #if defined(_DERIVATE)
11414 _load_static_jacobian4(bi,ci,bi,ci,(1.0e-12));
11415 #endif
11416 #if defined(_DYNAMIC)
11417 _load_dynamic_residual2(b,ci,_DDT(qjcx0_t_i));
11418 #if defined(_DERIVATE)
11419 _load_dynamic_jacobian4(b,ci,bi,ci,qjcx0_t_i_Vbi_ci);
11420 _load_dynamic_jacobian2s(b,ci,tnode,qjcx0_t_i_Vtnode_GND);
11421 _load_dynamic_jacobian4(b,ci,bp,ci,qjcx0_t_i_Vbp_ci);
11422 _load_dynamic_jacobian4(b,ci,b,ci,qjcx0_t_i_Vb_ci);
11423 _load_dynamic_jacobian4(b,ci,bi,ei,qjcx0_t_i_Vbi_ei);
11424 _load_dynamic_jacobian4(b,ci,bp,ei,qjcx0_t_i_Vbp_ei);
11425 #endif
11426 #endif
11427 #if defined(_DYNAMIC)
11428 _load_dynamic_residual2(b,ci,_DDT((cbcpar1*BP(b,ci))));
11429 #if defined(_DERIVATE)
11430 _load_dynamic_jacobian4(b,ci,b,ci,(cbcpar1));
11431 #endif
11432 #endif
11433 #if defined(_DYNAMIC)
11434 _load_dynamic_residual2(bp,ci,_DDT((cbcpar2*BP(bp,ci))));
11435 #if defined(_DERIVATE)
11436 _load_dynamic_jacobian4(bp,ci,bp,ci,(cbcpar2));
11437 #endif
11438 #endif
11439 if
11440 ((rbx>=0.001))
11441 {
11442 _load_static_residual2(b,bp,(BP(b,bp)/rbx_t));
11443 #if defined(_DERIVATE)
11444 _load_static_jacobian2s(b,bp,tnode,(-BP(b,bp)*rbx_t_Vtnode_GND/rbx_t/rbx_t));
11445 _load_static_jacobian4(b,bp,b,bp,(1/rbx_t));
11446 #endif
11447 }
11448 else
11449 {
11450 _load_static_residual2(b,bp,(BP(b,bp)/1e-6));
11451 #if defined(_DERIVATE)
11452 _load_static_jacobian4(b,bp,b,bp,(1/1e-6));
11453 #endif
11454 }
11455 if
11456 ((rbi0>=0.001))
11457 {
11458 _load_static_residual2(bp,bi,(BP(bp,bi)/rbi));
11459 #if defined(_DERIVATE)
11460 _load_static_jacobian4(bp,bi,ci,ei,(-BP(bp,bi)*rbi_Vci_ei/rbi/rbi));
11461 _load_static_jacobian4(bp,bi,bi,ci,(-BP(bp,bi)*rbi_Vbi_ci/rbi/rbi));
11462 _load_static_jacobian4(bp,bi,bi,ei,(-BP(bp,bi)*rbi_Vbi_ei/rbi/rbi));
11463 _load_static_jacobian2s(bp,bi,tnode,(-BP(bp,bi)*rbi_Vtnode_GND/rbi/rbi));
11464 _load_static_jacobian4(bp,bi,bp,bi,(1/rbi));
11465 #endif
11466 #if defined(_DYNAMIC)
11467 _load_dynamic_residual2(bp,bi,_DDT(qrbi));
11468 #if defined(_DERIVATE)
11469 _load_dynamic_jacobian4(bp,bi,ci,ei,qrbi_Vci_ei);
11470 _load_dynamic_jacobian4(bp,bi,bi,ci,qrbi_Vbi_ci);
11471 _load_dynamic_jacobian4(bp,bi,bi,ei,qrbi_Vbi_ei);
11472 _load_dynamic_jacobian2s(bp,bi,tnode,qrbi_Vtnode_GND);
11473 #endif
11474 #endif
11475 }
11476 else
11477 {
11478 _load_static_residual2(bp,bi,(BP(bp,bi)/1e-6));
11479 #if defined(_DERIVATE)
11480 _load_static_jacobian4(bp,bi,bp,bi,(1/1e-6));
11481 #endif
11482 }
11483 if
11484 ((tunode==1.0))
11485 {
11486 _load_static_residual2(bp,ei,(-ibet));
11487 #if defined(_DERIVATE)
11488 _load_static_jacobian4(bp,ei,bi,ei,(-ibet_Vbi_ei));
11489 _load_static_jacobian4(bp,ei,bi,ci,(-ibet_Vbi_ci));
11490 _load_static_jacobian2s(bp,ei,tnode,(-ibet_Vtnode_GND));
11491 _load_static_jacobian4(bp,ei,bp,ei,(-ibet_Vbp_ei));
11492 #endif
11493 }
11494 else
11495 {
11496 _load_static_residual2(bi,ei,(-ibet));
11497 #if defined(_DERIVATE)
11498 _load_static_jacobian4(bi,ei,bi,ei,(-ibet_Vbi_ei));
11499 _load_static_jacobian4(bi,ei,bi,ci,(-ibet_Vbi_ci));
11500 _load_static_jacobian2s(bi,ei,tnode,(-ibet_Vtnode_GND));
11501 _load_static_jacobian4(bi,ei,bp,ei,(-ibet_Vbp_ei));
11502 #endif
11503 }
11504 _load_static_residual2(bp,ei,ibep);
11505 #if defined(_DERIVATE)
11506 _load_static_jacobian4(bp,ei,bi,ei,ibep_Vbi_ei);
11507 _load_static_jacobian4(bp,ei,bi,ci,ibep_Vbi_ci);
11508 _load_static_jacobian4(bp,ei,bp,ei,ibep_Vbp_ei);
11509 _load_static_jacobian2s(bp,ei,tnode,ibep_Vtnode_GND);
11510 #endif
11511 _load_static_residual2(bp,ei,irep);
11512 #if defined(_DERIVATE)
11513 _load_static_jacobian4(bp,ei,bi,ei,irep_Vbi_ei);
11514 _load_static_jacobian4(bp,ei,bi,ci,irep_Vbi_ci);
11515 _load_static_jacobian4(bp,ei,bp,ei,irep_Vbp_ei);
11516 _load_static_jacobian2s(bp,ei,tnode,irep_Vtnode_GND);
11517 #endif
11518 #if defined(_DYNAMIC)
11519 _load_dynamic_residual2(bp,ei,_DDT(Qjep));
11520 #if defined(_DERIVATE)
11521 _load_dynamic_jacobian4(bp,ei,bi,ei,Qjep_Vbi_ei);
11522 _load_dynamic_jacobian2s(bp,ei,tnode,Qjep_Vtnode_GND);
11523 _load_dynamic_jacobian4(bp,ei,bi,ci,Qjep_Vbi_ci);
11524 _load_dynamic_jacobian4(bp,ei,bp,ei,Qjep_Vbp_ei);
11525 #endif
11526 #endif
11527 _load_static_residual2(bi,ei,ibei);
11528 #if defined(_DERIVATE)
11529 _load_static_jacobian4(bi,ei,bi,ei,ibei_Vbi_ei);
11530 _load_static_jacobian2s(bi,ei,tnode,ibei_Vtnode_GND);
11531 #endif
11532 _load_static_residual2(bi,ei,irei);
11533 #if defined(_DERIVATE)
11534 _load_static_jacobian4(bi,ei,bi,ei,irei_Vbi_ei);
11535 _load_static_jacobian2s(bi,ei,tnode,irei_Vtnode_GND);
11536 #endif
11537 _load_static_residual2(bi,ei,ibh_rec);
11538 #if defined(_DERIVATE)
11539 _load_static_jacobian4(bi,ei,ci,ei,ibh_rec_Vci_ei);
11540 _load_static_jacobian4(bi,ei,bi,ci,ibh_rec_Vbi_ci);
11541 _load_static_jacobian4(bi,ei,bi,ei,ibh_rec_Vbi_ei);
11542 _load_static_jacobian2s(bi,ei,tnode,ibh_rec_Vtnode_GND);
11543 #endif
11544 #if defined(_DYNAMIC)
11545 _load_dynamic_residual2(bi,ei,_DDT((Qdeix+Qjei)));
11546 #if defined(_DERIVATE)
11547 _load_dynamic_jacobian4(bi,ei,bi,ei,(Qdeix_Vbi_ei+Qjei_Vbi_ei));
11548 _load_dynamic_jacobian4(bi,ei,bi,ci,Qdeix_Vbi_ci);
11549 _load_dynamic_jacobian2s(bi,ei,tnode,(Qdeix_Vtnode_GND+Qjei_Vtnode_GND));
11550 _load_dynamic_jacobian4(bi,ei,ci,ei,Qdeix_Vci_ei);
11551 _load_dynamic_jacobian2s(bi,ei,xf,Qdeix_Vxf_GND);
11552 #endif
11553 #endif
11554 _load_static_residual2(bp,si,HSI_Tsu);
11555 #if defined(_DERIVATE)
11556 _load_static_jacobian4(bp,si,si,ci,HSI_Tsu_Vsi_ci);
11557 _load_static_jacobian4(bp,si,bp,ci,HSI_Tsu_Vbp_ci);
11558 _load_static_jacobian2s(bp,si,tnode,HSI_Tsu_Vtnode_GND);
11559 #endif
11560 _load_static_residual2(bp,ci,ijbcx);
11561 #if defined(_DERIVATE)
11562 _load_static_jacobian4(bp,ci,bi,ei,ijbcx_Vbi_ei);
11563 _load_static_jacobian4(bp,ci,bi,ci,ijbcx_Vbi_ci);
11564 _load_static_jacobian4(bp,ci,bp,ei,ijbcx_Vbp_ei);
11565 _load_static_jacobian4(bp,ci,bp,ci,ijbcx_Vbp_ci);
11566 _load_static_jacobian2s(bp,ci,tnode,ijbcx_Vtnode_GND);
11567 #endif
11568 #if defined(_DYNAMIC)
11569 _load_dynamic_residual2(bp,ci,_DDT((qjcx0_t_ii+Qdsu)));
11570 #if defined(_DERIVATE)
11571 _load_dynamic_jacobian4(bp,ci,bi,ci,qjcx0_t_ii_Vbi_ci);
11572 _load_dynamic_jacobian2s(bp,ci,tnode,(qjcx0_t_ii_Vtnode_GND+Qdsu_Vtnode_GND));
11573 _load_dynamic_jacobian4(bp,ci,bp,ci,(qjcx0_t_ii_Vbp_ci+Qdsu_Vbp_ci));
11574 _load_dynamic_jacobian4(bp,ci,bi,ei,qjcx0_t_ii_Vbi_ei);
11575 _load_dynamic_jacobian4(bp,ci,bp,ei,qjcx0_t_ii_Vbp_ei);
11576 #endif
11577 #endif
11578 #if defined(_DYNAMIC)
11579 _load_dynamic_residual2(b,e,_DDT((cbepar1*BP(b,e))));
11580 #if defined(_DERIVATE)
11581 _load_dynamic_jacobian4(b,e,b,e,(cbepar1));
11582 #endif
11583 #endif
11584 #if defined(_DYNAMIC)
11585 _load_dynamic_residual2(bp,e,_DDT((cbepar2*BP(bp,e))));
11586 #if defined(_DERIVATE)
11587 _load_dynamic_jacobian4(bp,e,bp,e,(cbepar2));
11588 #endif
11589 #endif
11590 _load_static_residual2(bi,ci,(ibci-iavl));
11591 #if defined(_DERIVATE)
11592 _load_static_jacobian4(bi,ci,ci,ei,(-iavl_Vci_ei));
11593 _load_static_jacobian4(bi,ci,bi,ei,(ibci_Vbi_ei-iavl_Vbi_ei));
11594 _load_static_jacobian4(bi,ci,bi,ci,(ibci_Vbi_ci-iavl_Vbi_ci));
11595 _load_static_jacobian2s(bi,ci,tnode,(ibci_Vtnode_GND-iavl_Vtnode_GND));
11596 #endif
11597 #if defined(_DYNAMIC)
11598 _load_dynamic_residual2(bi,ci,_DDT((Qdci+Qjci)));
11599 #if defined(_DERIVATE)
11600 _load_dynamic_jacobian4(bi,ci,bi,ei,(Qdci_Vbi_ei+Qjci_Vbi_ei));
11601 _load_dynamic_jacobian4(bi,ci,bi,ci,(Qdci_Vbi_ci+Qjci_Vbi_ci));
11602 _load_dynamic_jacobian2s(bi,ci,tnode,(Qdci_Vtnode_GND+Qjci_Vtnode_GND));
11603 _load_dynamic_jacobian4(bi,ci,ci,ei,Qdci_Vci_ei);
11604 #endif
11605 #endif
11606 _load_static_residual2(si,ci,ijsc);
11607 #if defined(_DERIVATE)
11608 _load_static_jacobian4(si,ci,bi,ei,ijsc_Vbi_ei);
11609 _load_static_jacobian4(si,ci,bi,ci,ijsc_Vbi_ci);
11610 _load_static_jacobian4(si,ci,bp,ei,ijsc_Vbp_ei);
11611 _load_static_jacobian4(si,ci,bp,ci,ijsc_Vbp_ci);
11612 _load_static_jacobian4(si,ci,si,ci,ijsc_Vsi_ci);
11613 _load_static_jacobian2s(si,ci,tnode,ijsc_Vtnode_GND);
11614 #endif
11615 #if defined(_DYNAMIC)
11616 _load_dynamic_residual2(si,ci,_DDT(Qjs));
11617 #if defined(_DERIVATE)
11618 _load_dynamic_jacobian4(si,ci,bi,ci,Qjs_Vbi_ci);
11619 _load_dynamic_jacobian2s(si,ci,tnode,Qjs_Vtnode_GND);
11620 _load_dynamic_jacobian4(si,ci,bp,ci,Qjs_Vbp_ci);
11621 _load_dynamic_jacobian4(si,ci,b,ci,Qjs_Vb_ci);
11622 _load_dynamic_jacobian4(si,ci,si,ci,Qjs_Vsi_ci);
11623 _load_dynamic_jacobian4(si,ci,bi,ei,Qjs_Vbi_ei);
11624 _load_dynamic_jacobian4(si,ci,bp,ei,Qjs_Vbp_ei);
11625 #endif
11626 #endif
11627 _load_static_residual2(ci,ei,Itxf);
11628 #if defined(_DERIVATE)
11629 _load_static_jacobian4(ci,ei,bi,ci,Itxf_Vbi_ci);
11630 _load_static_jacobian4(ci,ei,bi,ei,Itxf_Vbi_ei);
11631 _load_static_jacobian2s(ci,ei,tnode,Itxf_Vtnode_GND);
11632 _load_static_jacobian4(ci,ei,ci,ei,Itxf_Vci_ei);
11633 _load_static_jacobian2s(ci,ei,xf2,Itxf_Vxf2_GND);
11634 #endif
11635 _load_static_residual2(ei,ci,itr);
11636 #if defined(_DERIVATE)
11637 _load_static_jacobian4(ei,ci,bi,ei,itr_Vbi_ei);
11638 _load_static_jacobian4(ei,ci,bi,ci,itr_Vbi_ci);
11639 _load_static_jacobian2s(ei,ci,tnode,itr_Vtnode_GND);
11640 _load_static_jacobian4(ei,ci,ci,ei,itr_Vci_ei);
11641 #endif
11642 if
11643 ((rcx>=0.001))
11644 {
11645 _load_static_residual2(ci,c,(BP(ci,c)/rcx_t));
11646 #if defined(_DERIVATE)
11647 _load_static_jacobian2s(ci,c,tnode,(-BP(ci,c)*rcx_t_Vtnode_GND/rcx_t/rcx_t));
11648 _load_static_jacobian4(ci,c,ci,c,(1/rcx_t));
11649 #endif
11650 }
11651 else
11652 {
11653 _load_static_residual2(ci,c,(BP(ci,c)/1e-6));
11654 #if defined(_DERIVATE)
11655 _load_static_jacobian4(ci,c,ci,c,(1/1e-6));
11656 #endif
11657 }
11658 if
11659 ((re>=0.001))
11660 {
11661 _load_static_residual2(ei,e,(BP(ei,e)/re_t));
11662 #if defined(_DERIVATE)
11663 _load_static_jacobian2s(ei,e,tnode,(-BP(ei,e)*re_t_Vtnode_GND/re_t/re_t));
11664 _load_static_jacobian4(ei,e,ei,e,(1/re_t));
11665 #endif
11666 }
11667 else
11668 {
11669 _load_static_residual2(ei,e,(BP(ei,e)/1e-6));
11670 #if defined(_DERIVATE)
11671 _load_static_jacobian4(ei,e,ei,e,(1/1e-6));
11672 #endif
11673 }
11674 if
11675 ((rsu>=0.001))
11676 {
11677 _load_static_residual2(si,s,(BP(si,s)/rsu));
11678 #if defined(_DERIVATE)
11679 _load_static_jacobian4(si,s,si,s,(1/rsu));
11680 #endif
11681 #if defined(_DYNAMIC)
11682 _load_dynamic_residual2(si,s,_DDT((csu*BP(si,s))));
11683 #if defined(_DERIVATE)
11684 _load_dynamic_jacobian4(si,s,si,s,(csu));
11685 #endif
11686 #endif
11687 }
11688 else
11689 {
11690 _load_static_residual2(si,s,(BP(si,s)/1e-6));
11691 #if defined(_DERIVATE)
11692 _load_static_jacobian4(si,s,si,s,(1/1e-6));
11693 #endif
11694 }
11695 if
11696 (((flsh==0)||(rth<0.001)))
11697 {
11698 _load_static_residual1(tnode,(NP(tnode)/0.001));
11699 #if defined(_DERIVATE)
11700 _load_static_jacobian1(tnode,tnode,(1/0.001));
11701 #endif
11702 }
11703 else
11704 {
11705 _load_static_residual1(tnode,((NP(tnode)/rth)-pterm));
11706 #if defined(_DERIVATE)
11707 _load_static_jacobian2p(tnode,bi,ci,(-pterm_Vbi_ci));
11708 _load_static_jacobian2p(tnode,bi,ei,(-pterm_Vbi_ei));
11709 _load_static_jacobian2p(tnode,ci,ei,(-pterm_Vci_ei));
11710 _load_static_jacobian2p(tnode,si,ci,(-pterm_Vsi_ci));
11711 _load_static_jacobian2p(tnode,bp,ci,(-pterm_Vbp_ci));
11712 _load_static_jacobian2p(tnode,bp,ei,(-pterm_Vbp_ei));
11713 _load_static_jacobian2p(tnode,bp,bi,(-pterm_Vbp_bi));
11714 _load_static_jacobian2p(tnode,ei,e,(-pterm_Vei_e));
11715 _load_static_jacobian2p(tnode,ci,c,(-pterm_Vci_c));
11716 _load_static_jacobian2p(tnode,b,bp,(-pterm_Vb_bp));
11717 _load_static_jacobian1(tnode,tnode,((1/rth)-pterm_Vtnode_GND));
11718 #endif
11719 #if defined(_DYNAMIC)
11720 _load_dynamic_residual1(tnode,_DDT((cth*NP(tnode))));
11721 #if defined(_DERIVATE)
11722 _load_dynamic_jacobian1(tnode,tnode,(cth));
11723 #endif
11724 #endif
11725 }
11726 _load_static_residual1(xf1,Ixf1);
11727 #if defined(_DERIVATE)
11728 _load_static_jacobian2p(xf1,bi,ci,Ixf1_Vbi_ci);
11729 _load_static_jacobian2p(xf1,bi,ei,Ixf1_Vbi_ei);
11730 _load_static_jacobian1(xf1,tnode,Ixf1_Vtnode_GND);
11731 _load_static_jacobian2p(xf1,ci,ei,Ixf1_Vci_ei);
11732 _load_static_jacobian1(xf1,xf2,Ixf1_Vxf2_GND);
11733 _load_static_jacobian1(xf1,xf1,Ixf1_Vxf1_GND);
11734 #endif
11735 #if defined(_DYNAMIC)
11736 _load_dynamic_residual1(xf1,_DDT(Qxf1));
11737 #if defined(_DERIVATE)
11738 _load_dynamic_jacobian1(xf1,xf1,Qxf1_Vxf1_GND);
11739 #endif
11740 #endif
11741 _load_static_residual1(xf2,Ixf2);
11742 #if defined(_DERIVATE)
11743 _load_static_jacobian2p(xf2,bi,ci,Ixf2_Vbi_ci);
11744 _load_static_jacobian1(xf2,tnode,Ixf2_Vtnode_GND);
11745 _load_static_jacobian2p(xf2,bi,ei,Ixf2_Vbi_ei);
11746 _load_static_jacobian2p(xf2,ci,ei,Ixf2_Vci_ei);
11747 _load_static_jacobian1(xf2,xf1,Ixf2_Vxf1_GND);
11748 _load_static_jacobian1(xf2,xf2,Ixf2_Vxf2_GND);
11749 #endif
11750 #if defined(_DYNAMIC)
11751 _load_dynamic_residual1(xf2,_DDT(Qxf2));
11752 #if defined(_DERIVATE)
11753 _load_dynamic_jacobian1(xf2,xf2,Qxf2_Vxf2_GND);
11754 #endif
11755 #endif
11756 _load_static_residual1(xf,Ixf);
11757 #if defined(_DERIVATE)
11758 _load_static_jacobian2p(xf,bi,ei,Ixf_Vbi_ei);
11759 _load_static_jacobian2p(xf,bi,ci,Ixf_Vbi_ci);
11760 _load_static_jacobian1(xf,tnode,Ixf_Vtnode_GND);
11761 _load_static_jacobian2p(xf,ci,ei,Ixf_Vci_ei);
11762 _load_static_jacobian1(xf,xf,Ixf_Vxf_GND);
11763 #endif
11764 #if defined(_DYNAMIC)
11765 _load_dynamic_residual1(xf,_DDT(Qxf));
11766 #if defined(_DERIVATE)
11767 _load_dynamic_jacobian1(xf,xf,Qxf_Vxf_GND);
11768 #endif
11769 #endif
11770 }
11771 
11772 /* ------------------ end of verilog analog equations --------------------- */
11773 
11774 /* ------------------ evaluate verilog noise equations -------------------- */
11775 double twoq;
11776 double flicker_Pwr;
11777 #if defined(_DERIVATE)
11778 double flicker_Pwr_Vtnode_GND;
11779 double flicker_Pwr_Vbi_ei;
11780 double flicker_Pwr_Vbp_ei;
11781 double flicker_Pwr_Vbi_ci;
11782 #endif
11783 double fourkt;
11784 #if defined(_DERIVATE)
11785 double fourkt_Vtnode_GND;
11786 #endif
11787 {
11788 #if defined(_DERIVATE)
11789 fourkt_Vtnode_GND=((4.0*1.3806503e-23)*Tdev_Vtnode_GND);
11790 #endif
11791 fourkt=((4.0*1.3806503e-23)*Tdev);
11792 if
11793 ((rbx>=0.001))
11794 {
11795 _save_whitenoise2(b,bp,(fourkt/rbx_t),"thermal");
11796 }
11797 if
11798 ((rbi0>=0.001))
11799 {
11800 _save_whitenoise2(bp,bi,(fourkt/rbi),"thermal");
11801 }
11802 if
11803 ((rcx>=0.001))
11804 {
11805 _save_whitenoise2(ci,c,(fourkt/rcx_t),"thermal");
11806 }
11807 if
11808 ((re>=0.001))
11809 {
11810 _save_whitenoise2(ei,e,(fourkt/re_t),"thermal");
11811 }
11812 if
11813 ((rsu>=0.001))
11814 {
11815 _save_whitenoise2(si,s,(fourkt/rsu),"thermal");
11816 }
11817 {
11818 double m00_pow(d00_pow0,(ibei+ibep),af)
11819 #if defined(_DERIVATE)
11820 double m10_pow(d10_pow0,d00_pow0,(ibei+ibep),af)
11821 #endif
11822 #if defined(_DERIVATE)
11823 flicker_Pwr_Vtnode_GND=(kf*(d10_pow0*(ibei_Vtnode_GND+ibep_Vtnode_GND)));
11824 flicker_Pwr_Vbi_ei=(kf*(d10_pow0*(ibei_Vbi_ei+ibep_Vbi_ei)));
11825 flicker_Pwr_Vbp_ei=(kf*(d10_pow0*ibep_Vbp_ei));
11826 flicker_Pwr_Vbi_ci=(kf*(d10_pow0*ibep_Vbi_ci));
11827 #endif
11828 flicker_Pwr=(kf*d00_pow0);
11829 }
11830 if
11831 ((cfbe==(-1)))
11832 {
11833 _save_flickernoise2(bi,ei,flicker_Pwr,1.0,NULL);
11834 }
11835 else
11836 {
11837 _save_flickernoise2(bp,ei,flicker_Pwr,1.0,NULL);
11838 }
11839 twoq=(2.0*1.602176462e-19);
11840 _save_whitenoise2(ci,bi,(twoq*iavl),"shot");
11841 _save_whitenoise2(bi,ci,(twoq*fabs(ibci)),"shot");
11842 _save_whitenoise2(bp,ei,(twoq*ibep),"shot");
11843 _save_whitenoise2(bp,ci,(twoq*fabs(ijbcx)),"shot");
11844 _save_whitenoise2(si,ci,(twoq*fabs(ijsc)),"shot");
11845 _save_whitenoise1(n1,((2*1.602176462e-19)*ibei),"shot");
11846 _load_static_residual1(n1,NP(n1));
11847 #if defined(_DERIVATE)
11848 _load_static_jacobian1(n1,n1,1.0);
11849 #endif
11850 _save_whitenoise1(n2,((2*1.602176462e-19)*it),"shot");
11851 _load_static_residual1(n2,NP(n2));
11852 #if defined(_DERIVATE)
11853 _load_static_jacobian1(n2,n2,1.0);
11854 #endif
11855 _load_static_residual2(bi,ei,NP(n1));
11856 #if defined(_DERIVATE)
11857 _load_static_jacobian2s(bi,ei,n1,1.0);
11858 #endif
11859 #if defined(_DYNAMIC)
11860 _load_dynamic_residual2(ci,ei,(NP(n2)+_DDT(((((((betadc/2)*alit)*Tf)*alit)*Tf)*_DDT(NP(n2))))));
11861 #if defined(_DERIVATE)
11862 _load_dynamic_jacobian4(ci,ei,bi,ci,(((((betadc_Vbi_ci/2)*alit*Tf)+(((betadc/2)*alit)*Tf_Vbi_ci))*alit*Tf)+(((((betadc/2)*alit)*Tf)*alit)*Tf_Vbi_ci))*_DDT(NP(n2)));
11863 _load_dynamic_jacobian4(ci,ei,bi,ei,(((((betadc_Vbi_ei/2)*alit*Tf)+(((betadc/2)*alit)*Tf_Vbi_ei))*alit*Tf)+(((((betadc/2)*alit)*Tf)*alit)*Tf_Vbi_ei))*_DDT(NP(n2)));
11864 _load_dynamic_jacobian2s(ci,ei,tnode,(((((betadc_Vtnode_GND/2)*alit*Tf)+(((betadc/2)*alit)*Tf_Vtnode_GND))*alit*Tf)+(((((betadc/2)*alit)*Tf)*alit)*Tf_Vtnode_GND))*_DDT(NP(n2)));
11865 _load_dynamic_jacobian4(ci,ei,ci,ei,(((((betadc_Vci_ei/2)*alit*Tf)+(((betadc/2)*alit)*Tf_Vci_ei))*alit*Tf)+(((((betadc/2)*alit)*Tf)*alit)*Tf_Vci_ei))*_DDT(NP(n2)));
11866 _load_dynamic_jacobian2s(ci,ei,n2,(1.0+((((((betadc/2)*alit)*Tf)*alit)*Tf))));
11867 #endif
11868 #endif
11869 #if defined(_DYNAMIC)
11870 _load_dynamic_residual2(ci,ei,(betadc*_DDT(((-(Tf*alit))*NP(n1)))));
11871 #if defined(_DERIVATE)
11872 _load_dynamic_jacobian2s(ci,ei,n1,(betadc*((-(Tf*alit)))));
11873 _load_dynamic_jacobian4(ci,ei,bi,ci,((betadc_Vbi_ci*_DDT(((-(Tf*alit))*NP(n1))))+(betadc*(-Tf_Vbi_ci*alit)*NP(n1))));
11874 _load_dynamic_jacobian4(ci,ei,bi,ei,((betadc_Vbi_ei*_DDT(((-(Tf*alit))*NP(n1))))+(betadc*(-Tf_Vbi_ei*alit)*NP(n1))));
11875 _load_dynamic_jacobian2s(ci,ei,tnode,((betadc_Vtnode_GND*_DDT(((-(Tf*alit))*NP(n1))))+(betadc*(-Tf_Vtnode_GND*alit)*NP(n1))));
11876 _load_dynamic_jacobian4(ci,ei,ci,ei,((betadc_Vci_ei*_DDT(((-(Tf*alit))*NP(n1))))+(betadc*(-Tf_Vci_ei*alit)*NP(n1))));
11877 #endif
11878 #endif
11879 }
11880 
11881 /* ------------------- end of verilog noise equations --------------------- */
11882 }
11883 
11884 /* Perform DC iteration. */
11885 void hicumL2V2p24::calcDC (void)
11886 {
11887  // evaluate Verilog code
11888  initVerilog ();
11889  calcVerilog ();
11890 
11891  // fill right hand side and static jacobian
11892  for (int i1 = 0; i1 < 15; i1++) {
11893  setI (i1, _rhs[i1]);
11894  for (int i2 = 0; i2 < 15; i2++) {
11895  setY (i1, i2, _jstat[i1][i2]);
11896  }
11897  }
11898 }
11899 
11900 /* Save operating points. */
11901 void hicumL2V2p24::saveOperatingPoints (void)
11902 {
11903  // save global instance operating points
11904  setOperatingPoint ("it", it);
11905  setOperatingPoint ("ibei", ibei);
11906  setOperatingPoint ("ibci", ibci);
11907  setOperatingPoint ("ibep", ibep);
11908  setOperatingPoint ("iavl", iavl);
11909  setOperatingPoint ("ijbcx", ijbcx);
11910  setOperatingPoint ("ijsc", ijsc);
11911  setOperatingPoint ("rbi", rbi);
11912  setOperatingPoint ("Tf", Tf);
11913  setOperatingPoint ("betadc", betadc);
11914 }
11915 
11916 /* Load operating points. */
11917 void hicumL2V2p24::loadOperatingPoints (void)
11918 {
11919 }
11920 
11921 /* Calculate operating points. */
11922 void hicumL2V2p24::calcOperatingPoints (void)
11923 {
11924 }
11925 
11926 /* Initialization of AC analysis. */
11927 void hicumL2V2p24::initAC (void)
11928 {
11929  allocMatrixMNA ();
11930 }
11931 
11932 /* Perform AC calculations. */
11933 void hicumL2V2p24::calcAC (nr_double_t frequency)
11934 {
11935  setMatrixY (calcMatrixY (frequency));
11936 }
11937 
11938 /* Compute Y-matrix for AC analysis. */
11939 matrix hicumL2V2p24::calcMatrixY (nr_double_t frequency)
11940 {
11941  _freq = frequency;
11942  saveOperatingPoints ();
11943  matrix y (15);
11944 
11945  for (int i1 = 0; i1 < 15; i1++) {
11946  for (int i2 = 0; i2 < 15; i2++) {
11947  y (i1,i2) = rect (_jstat[i1][i2], _jdyna[i1][i2] * 2 * M_PI * _freq);
11948  }
11949  }
11950 
11951  return y;
11952 }
11953 
11954 /* Initialization of S-parameter analysis. */
11955 void hicumL2V2p24::initSP (void)
11956 {
11957  allocMatrixS ();
11958 }
11959 
11960 /* Perform S-parameter calculations. */
11961 void hicumL2V2p24::calcSP (nr_double_t frequency)
11962 {
11963  setMatrixS (ytos (calcMatrixY (frequency)));
11964 }
11965 
11966 /* Initialization of transient analysis. */
11967 void hicumL2V2p24::initTR (void)
11968 {
11969  setStates (2 * 15 * 15);
11970  initDC ();
11971 }
11972 
11973 /* Perform transient analysis iteration step. */
11974 void hicumL2V2p24::calcTR (nr_double_t)
11975 {
11976  doHB = 0;
11977  doAC = 1;
11978  doTR = 1;
11979  calcDC ();
11980 
11981  int i1, i2, i3, i4, state;
11982 
11983  // 2-node charge integrations
11984  for (i1 = 0; i1 < 15; i1++) {
11985  for (i2 = 0; i2 < 15; i2++) {
11986  state = 2 * (i2 + 15 * i1);
11987  if (i1 != i2)
11988  if (_charges[i1][i2] != 0.0)
11989  transientCapacitanceQ (state, i1, i2, _charges[i1][i2]);
11990  } }
11991 
11992  // 1-node charge integrations
11993  for (i1 = 0; i1 < 15; i1++) {
11994  state = 2 * (i1 + 15 * i1);
11995  if (_charges[i1][i1] != 0.0)
11996  transientCapacitanceQ (state, i1, _charges[i1][i1]);
11997  }
11998 
11999  // charge: 2-node, voltage: 2-node
12000  for (i1 = 0; i1 < 15; i1++) {
12001  for (i2 = 0; i2 < 15; i2++) {
12002  if (i1 != i2)
12003  for (i3 = 0; i3 < 15; i3++) {
12004  for (i4 = 0; i4 < 15; i4++) {
12005  if (i3 != i4)
12006  if (_caps[i1][i2][i3][i4] != 0.0)
12007  transientCapacitanceC (i1, i2, i3, i4, _caps[i1][i2][i3][i4], BP(i3,i4));
12008  } } } }
12009 
12010  // charge: 2-node, voltage: 1-node
12011  for (i1 = 0; i1 < 15; i1++) {
12012  for (i2 = 0; i2 < 15; i2++) {
12013  if (i1 != i2)
12014  for (i3 = 0; i3 < 15; i3++) {
12015  if (_caps[i1][i2][i3][i3] != 0.0)
12016  transientCapacitanceC2Q (i1, i2, i3, _caps[i1][i2][i3][i3], NP(i3));
12017  } } }
12018 
12019  // charge: 1-node, voltage: 2-node
12020  for (i1 = 0; i1 < 15; i1++) {
12021  for (i3 = 0; i3 < 15; i3++) {
12022  for (i4 = 0; i4 < 15; i4++) {
12023  if (i3 != i4)
12024  if (_caps[i1][i1][i3][i4] != 0.0)
12025  transientCapacitanceC2V (i1, i3, i4, _caps[i1][i1][i3][i4], BP(i3,i4));
12026  } } }
12027 
12028  // charge: 1-node, voltage: 1-node
12029  for (i1 = 0; i1 < 15; i1++) {
12030  for (i3 = 0; i3 < 15; i3++) {
12031  if (_caps[i1][i1][i3][i3] != 0.0)
12032  transientCapacitanceC (i1, i3, _caps[i1][i1][i3][i3], NP(i3));
12033  } }
12034 }
12035 
12036 /* Compute Cy-matrix for AC noise analysis. */
12037 matrix hicumL2V2p24::calcMatrixCy (nr_double_t frequency)
12038 {
12039  _freq = frequency;
12040  matrix cy (15);
12041 
12042  _load_flickernoise2 (bp,ei,_flicker_pwr[bp][ei],_flicker_exp[bp][ei]);
12043  _load_flickernoise2 (bi,ei,_flicker_pwr[bi][ei],_flicker_exp[bi][ei]);
12044  _load_whitenoise1 (n2,_white_pwr[n2][n2]);
12045  _load_whitenoise1 (n1,_white_pwr[n1][n1]);
12046  _load_whitenoise2 (ci,bi,_white_pwr[ci][bi]);
12047  _load_whitenoise2 (si,s,_white_pwr[si][s]);
12048  _load_whitenoise2 (ei,e,_white_pwr[ei][e]);
12049  _load_whitenoise2 (ci,c,_white_pwr[ci][c]);
12050  _load_whitenoise2 (si,ci,_white_pwr[si][ci]);
12051  _load_whitenoise2 (bp,ei,_white_pwr[bp][ei]);
12052  _load_whitenoise2 (bp,bi,_white_pwr[bp][bi]);
12053  _load_whitenoise2 (b,bp,_white_pwr[b][bp]);
12054  _load_whitenoise2 (bp,ci,_white_pwr[bp][ci]);
12055  _load_whitenoise2 (bi,ci,_white_pwr[bi][ci]);
12056 
12057  return cy;
12058 }
12059 
12060 /* Perform AC noise computations. */
12061 void hicumL2V2p24::calcNoiseAC (nr_double_t frequency)
12062 {
12063  setMatrixN (calcMatrixCy (frequency));
12064 }
12065 
12066 /* Perform S-parameter noise computations. */
12067 void hicumL2V2p24::calcNoiseSP (nr_double_t frequency)
12068 {
12069  setMatrixN (cytocs (calcMatrixCy (frequency) * z0, getMatrixS ()));
12070 }
12071 
12072 /* Initialization of HB analysis. */
12073 void hicumL2V2p24::initHB (int)
12074 {
12075  initDC ();
12076  allocMatrixHB ();
12077 }
12078 
12079 /* Perform HB analysis. */
12080 void hicumL2V2p24::calcHB (int)
12081 {
12082  doHB = 1;
12083  doAC = 1;
12084  doTR = 0;
12085 
12086  // jacobian dI/dV and currents get filled
12087  calcDC ();
12088  saveOperatingPoints ();
12089 
12090  // fill in HB matrices
12091  for (int i1 = 0; i1 < 15; i1++) {
12092  setQ (i1, _qhs[i1]); // charges
12093  setCV (i1, _chs[i1]); // jacobian dQ/dV * V
12094  setGV (i1, _ghs[i1]); // jacobian dI/dV * V
12095  for (int i2 = 0; i2 < 15; i2++) {
12096  setQV (i1, i2, _jdyna[i1][i2]); // jacobian dQ/dV
12097  }
12098  }
12099 }
12100 
12101 #include "hicumL2V2p24.defs.h"
Generated on Tue Dec 25 2012 14:30:30 for My Project by   doxygen 1.8.2