My Project  0.0.16
QUCS Mapping
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
hicumL2V2p1.core.cpp
Go to the documentation of this file.
1 /*
2  * hicumL2V2p1.core.cpp - device implementations for hicumL2V2p1 module
3  *
4  * This is free software; you can redistribute it and/or modify
5  * it under the terms of the GNU General Public License as published by
6  * the Free Software Foundation; either version 2, or (at your option)
7  * any later version.
8  *
9  */
10 
11 #if HAVE_CONFIG_H
12 #include <config.h>
13 #endif
14 
15 #include "hicumL2V2p1.analogfunction.h"
16 #include "component.h"
17 #include "device.h"
18 #include "hicumL2V2p1.core.h"
19 
20 #ifndef CIR_hicumL2V2p1
21 #define CIR_hicumL2V2p1 -1
22 #endif
23 
24 // external nodes
25 #define c 0
26 #define b 1
27 #define e 2
28 #define s 3
29 #define tnode 4
30 // internal nodes
31 #define ci 5
32 #define ei 6
33 #define bp 7
34 #define bi 8
35 #define si 9
36 
37 // useful macro definitions
38 #define NP(node) real (getV (node))
39 #define BP(pnode,nnode) (NP(pnode) - NP(nnode))
40 #define _load_static_residual2(pnode,nnode,current)\
41  _rhs[pnode] -= current;\
42  _rhs[nnode] += current;
43 #define _load_static_augmented_residual2(pnode,nnode,current)\
44  _rhs[pnode] -= current;\
45  _rhs[nnode] += current;
46 #define _load_static_residual1(node,current)\
47  _rhs[node] -= current;
48 #define _load_static_augmented_residual1(node,current)\
49  _rhs[node] -= current;
50 #define _load_static_jacobian4(pnode,nnode,vpnode,vnnode,conductance)\
51  _jstat[pnode][vpnode] += conductance;\
52  _jstat[nnode][vnnode] += conductance;\
53  _jstat[pnode][vnnode] -= conductance;\
54  _jstat[nnode][vpnode] -= conductance;\
55  if (doHB) {\
56  _ghs[pnode] += conductance * BP(vpnode,vnnode);\
57  _ghs[nnode] -= conductance * BP(vpnode,vnnode);\
58  } else {\
59  _rhs[pnode] += conductance * BP(vpnode,vnnode);\
60  _rhs[nnode] -= conductance * BP(vpnode,vnnode);\
61  }
62 #define _load_static_jacobian2p(node,vpnode,vnnode,conductance)\
63  _jstat[node][vpnode] += conductance;\
64  _jstat[node][vnnode] -= conductance;\
65  if (doHB) {\
66  _ghs[node] += conductance * BP(vpnode,vnnode);\
67  } else {\
68  _rhs[node] += conductance * BP(vpnode,vnnode);\
69  }
70 #define _load_static_jacobian2s(pnode,nnode,node,conductance)\
71  _jstat[pnode][node] += conductance;\
72  _jstat[nnode][node] -= conductance;\
73  if (doHB) {\
74  _ghs[pnode] += conductance * NP(node);\
75  _ghs[nnode] -= conductance * NP(node);\
76  } else {\
77  _rhs[pnode] += conductance * NP(node);\
78  _rhs[nnode] -= conductance * NP(node);\
79  }
80 #define _load_static_jacobian1(node,vnode,conductance)\
81  _jstat[node][vnode] += conductance;\
82  if (doHB) {\
83  _ghs[node] += conductance * NP(vnode);\
84  } else {\
85  _rhs[node] += conductance * NP(vnode);\
86  }
87 #define _load_dynamic_residual2(pnode,nnode,charge)\
88  if (doTR) _charges[pnode][nnode] += charge;\
89  if (doHB) {\
90  _qhs[pnode] -= charge;\
91  _qhs[nnode] += charge;\
92  }
93 #define _load_dynamic_residual1(node,charge)\
94  if (doTR) _charges[node][node] += charge;\
95  if (doHB) {\
96  _qhs[node] -= charge;\
97  }
98 #define _load_dynamic_jacobian4(pnode,nnode,vpnode,vnnode,capacitance)\
99  if (doAC) {\
100  _jdyna[pnode][vpnode] += capacitance;\
101  _jdyna[nnode][vnnode] += capacitance;\
102  _jdyna[pnode][vnnode] -= capacitance;\
103  _jdyna[nnode][vpnode] -= capacitance;\
104  }\
105  if (doTR) {\
106  _caps[pnode][nnode][vpnode][vnnode] += capacitance;\
107  }\
108  if (doHB) {\
109  _chs[pnode] += capacitance * BP(vpnode,vnnode);\
110  _chs[nnode] -= capacitance * BP(vpnode,vnnode);\
111  }
112 #define _load_dynamic_jacobian2s(pnode,nnode,vnode,capacitance)\
113  if (doAC) {\
114  _jdyna[pnode][vnode] += capacitance;\
115  _jdyna[nnode][vnode] -= capacitance;\
116  }\
117  if (doTR) {\
118  _caps[pnode][nnode][vnode][vnode] += capacitance;\
119  }\
120  if (doHB) {\
121  _chs[pnode] += capacitance * NP(vnode);\
122  _chs[nnode] -= capacitance * NP(vnode);\
123  }
124 #define _load_dynamic_jacobian2p(node,vpnode,vnnode,capacitance)\
125  if (doAC) {\
126  _jdyna[node][vpnode] += capacitance;\
127  _jdyna[node][vnnode] -= capacitance;\
128  }\
129  if (doTR) {\
130  _caps[node][node][vpnode][vnnode] += capacitance;\
131  }\
132  if (doHB) {\
133  _chs[node] += capacitance * BP(vpnode,vnnode);\
134  }
135 #define _load_dynamic_jacobian1(node,vnode,capacitance)\
136  if (doAC) {\
137  _jdyna[node][vnode] += capacitance;\
138  }\
139  if (doTR) {\
140  _caps[node][node][vnode][vnode] += capacitance;\
141  }\
142  if (doHB) {\
143  _chs[node] += capacitance * NP(vnode);\
144  }
145 
146 #define _save_whitenoise1(n1,pwr,type)\
147  _white_pwr[n1][n1] += pwr;
148 #define _save_whitenoise2(n1,n2,pwr,type)\
149  _white_pwr[n1][n2] += pwr;
150 #define _save_flickernoise1(n1,pwr,exp,type)\
151  _flicker_pwr[n1][n1] += pwr;\
152  _flicker_exp[n1][n1] += exp;
153 #define _save_flickernoise2(n1,n2,pwr,exp,type)\
154  _flicker_pwr[n1][n2] += pwr;\
155  _flicker_exp[n1][n2] += exp;
156 #define _load_whitenoise2(n1,n2,pwr)\
157  cy (n1,n2) -= pwr/kB/T0; cy (n2,n1) -= pwr/kB/T0;\
158  cy (n1,n1) += pwr/kB/T0; cy (n2,n2) += pwr/kB/T0;
159 #define _load_whitenoise1(n1,pwr)\
160  cy (n1,n1) += pwr/kB/T0;
161 #define _load_flickernoise2(n1,n2,pwr,exp)\
162  cy (n1,n2) -= pwr*pow(_freq,-exp)/kB/T0;\
163  cy (n2,n1) -= pwr*pow(_freq,-exp)/kB/T0;\
164  cy (n1,n1) += pwr*pow(_freq,-exp)/kB/T0;\
165  cy (n2,n2) += pwr*pow(_freq,-exp)/kB/T0;
166 #define _load_flickernoise1(n1,pwr,exp)\
167  cy (n1,n1) += pwr*pow(_freq,-exp)/kB/T0;
168 
169 // derivative helper macros
170 #define m00_hypot(v00,x,y) v00 = xhypot(x,y);
171 #define m10_hypot(v10,v00,x,y) v10 = (x)/(v00);
172 #define m11_hypot(v11,v00,x,y) v11 = (y)/(v00);
173 #define m00_max(v00,x,y) v00 = ((x)>(y))?(x):(y);
174 #define m10_max(v10,v00,x,y) v10 = ((x)>(y))?1.0:0.0;
175 #define m11_max(v11,v00,x,y) v11 = ((x)>(y))?0.0:1.0;
176 #define m00_min(v00,x,y) v00 = ((x)<(y))?(x):(y);
177 #define m10_min(v10,v00,x,y) v10 = ((x)<(y))?1.0:0.0;
178 #define m11_min(v11,v00,x,y) v11 = ((x)<(y))?0.0:1.0;
179 #define m00_pow(v00,x,y) v00 = pow(x,y);
180 #define m10_pow(v10,v00,x,y) v10 = (x==0.0)?0.0:(v00)*(y)/(x);
181 #define m11_pow(v11,v00,x,y) v11 = (x==0.0)?0.0:(log(x)*(v00));
182 
183 #define m00_div(v00,v10,x,y) double v10=1/(y); double v00=(x)*v10;
184 #define m10_div(v10,v00,vv,x,y)
185 #define m11_div(v11,v00,vv,x,y) double v11 = -v00*vv;
186 
187 #define m00_mult(v00,v10,v11,x,y) double v10=(x); double v11=(y); double v00=v10*v11;
188 #define m00_add(v00,x,y) double v00=(x)+(y);
189 
190 #define m00_cos(v00,x) v00 = cos(x);
191 #define m10_cos(v10,v00,x) v10 = (-sin(x));
192 #define m00_sin(v00,x) v00 = sin(x);
193 #define m10_sin(v10,v00,x) v10 = (cos(x));
194 #define m00_tan(v00,x) v00 = tan(x);
195 #define m10_tan(v10,v00,x) v10 = (1.0/cos(x)/cos(x));
196 #define m00_cosh(v00,x) v00 = cosh(x);
197 #define m10_cosh(v10,v00,x) v10 = (sinh(x));
198 #define m00_sinh(v00,x) v00 = sinh(x);
199 #define m10_sinh(v10,v00,x) v10 = (cosh(x));
200 #define m00_tanh(v00,x) v00 = tanh(x);
201 #define m10_tanh(v10,v00,x) v10 = (1.0/cosh(x)/cosh(x));
202 #define m00_acos(v00,x) v00 = acos(x);
203 #define m10_acos(v10,v00,x) v10 = (-1.0/sqrt(1-x*x));
204 #define m00_asin(v00,x) v00 = asin(x);
205 #define m10_asin(v10,v00,x) v10 = (+1.0/sqrt(1-x*x));
206 #define m00_atan(v00,x) v00 = atan(x);
207 #define m10_atan(v10,v00,x) v10 = (+1.0/(1+x*x));
208 #define m00_atanh(v00,x) v00 = atanh(x);
209 #define m10_atanh(v10,v00,x) v10 = (+1.0/(1-x*x));
210 #define m00_logE(v00,x) v00 = log(x);
211 #define m10_logE(v10,v00,x) v10 = (1.0/x);
212 #define m00_log10(v00,x) v00 = log10(x);
213 #define m10_log10(v10,v00,x) v10 = (1.0/x/M_LN10);
214 #define m00_sqrt(v00,x) v00 = sqrt(x);
215 #define m10_sqrt(v10,v00,x) v10 = (0.5/v00);
216 #define m00_fabs(v00,x) v00 = fabs(x);
217 #define m10_fabs(v10,v00,x) v10 = (((x)>=0)?(+1.0):(-1.0));
218 
219 #define m00_exp(v00,x) v00 = exp(x);
220 #define m10_exp(v10,v00,x) v10 = v00;
221 
222 #define m00_abs(v00) ((v00)<(0)?(-(v00)):(v00))
223 #define m00_floor(v00,x) v00 = floor(x);
224 #define m00_limexp(v00,x) v00 = ((x)<80.0?exp(x):exp(80.0)*(x-79.0));
225 #define m10_limexp(v10,v00,x) v10 = ((x)<80.0?(v00):exp(80.0));
226 
227 #define m20_logE(v00) (-1.0/v00/v00)
228 #define m20_exp(v00) exp(v00)
229 #define m20_limexp(v00) ((v00)<80.0?exp(v00):0.0)
230 #define m20_sqrt(v00) (-0.25/(v00)/sqrt(v00))
231 #define m20_fabs(v00) 0.0
232 #define m20_pow(x,y) ((y)*((y)-1.0)*pow(x,y)/(x)/(x))
233 #define m00_vt(x) (kBoverQ*(x))
234 #define m10_vt(x) (kBoverQ)
235 
236 // simulator specific definitions
237 #define _modelname "hicumL2V2p1"
238 #define _instancename getName()
239 #define _circuit_temp (getPropertyDouble("Temp")+273.15)
240 #define _param_given(p) (isPropertyGiven(p)?1:0)
241 
242 
243 // $vt and $vt() functions
244 #define _vt_nom (kBoverQ*_circuit_temp)
245 
246 using namespace device;
247 
248 /* Device constructor. */
249 hicumL2V2p1::hicumL2V2p1() : circuit (10)
250 {
251  type = CIR_hicumL2V2p1;
252 }
253 
254 /* Initialization of model. */
255 void hicumL2V2p1::initModel (void)
256 {
257  // create internal nodes
258  setInternalNode (ci, "ci");
259  setInternalNode (ei, "ei");
260  setInternalNode (bp, "bp");
261  setInternalNode (bi, "bi");
262  setInternalNode (si, "si");
263 
264  // get device model parameters
265  loadVariables ();
266  // evaluate global model equations
267  initializeModel ();
268  // evaluate initial step equations
269  initialStep ();
270  // evaluate global instance equations
271  initializeInstance ();
272 }
273 
274 /* Initialization of DC analysis. */
275 void hicumL2V2p1::initDC (void)
276 {
277  allocMatrixMNA ();
278  initModel ();
279  pol = 1;
280  restartDC ();
281  doAC = 1;
282  doTR = 0;
283  doHB = 0;
284 }
285 
286 /* Run when DC is restarted (fallback algorithms). */
287 void hicumL2V2p1::restartDC (void)
288 {
289 }
290 
291 /* Initialize Verilog-AMS code. */
292 void hicumL2V2p1::initVerilog (void)
293 {
294  // initialization of noise variables
295  _white_pwr[ci][bi] = 0.0;
296  _white_pwr[si][s] = 0.0;
297  _white_pwr[ei][e] = 0.0;
298  _white_pwr[ci][c] = 0.0;
299  _white_pwr[bp][bi] = 0.0;
300  _white_pwr[b][bp] = 0.0;
301  _white_pwr[ci][ei] = 0.0;
302  _white_pwr[si][ci] = 0.0;
303  _white_pwr[bi][ci] = 0.0;
304  _white_pwr[bp][ci] = 0.0;
305  _white_pwr[bi][ei] = 0.0;
306  _white_pwr[bp][ei] = 0.0;
307  _flicker_pwr[bi][ei] = 0.0;
308  _flicker_exp[bi][ei] = 0.0;
309 
310  int i1, i2, i3, i4;
311 
312  // zero charges
313  for (i1 = 0; i1 < 10; i1++) {
314  for (i2 = 0; i2 < 10; i2++) {
315  _charges[i1][i2] = 0.0;
316  } }
317 
318  // zero capacitances
319  for (i1 = 0; i1 < 10; i1++) {
320  for (i2 = 0; i2 < 10; i2++) {
321  for (i3 = 0; i3 < 10; i3++) {
322  for (i4 = 0; i4 < 10; i4++) {
323  _caps[i1][i2][i3][i4] = 0.0;
324  } } } }
325 
326  // zero right hand side, static and dynamic jacobian
327  for (i1 = 0; i1 < 10; i1++) {
328  _rhs[i1] = 0.0;
329  _qhs[i1] = 0.0;
330  _chs[i1] = 0.0;
331  _ghs[i1] = 0.0;
332  for (i2 = 0; i2 < 10; i2++) {
333  _jstat[i1][i2] = 0.0;
334  _jdyna[i1][i2] = 0.0;
335  }
336  }
337 }
338 
339 /* Load device model input parameters. */
340 void hicumL2V2p1::loadVariables (void)
341 {
342  c10 = getPropertyDouble ("c10");
343  qp0 = getPropertyDouble ("qp0");
344  ich = getPropertyDouble ("ich");
345  hfe = getPropertyDouble ("hfe");
346  hfc = getPropertyDouble ("hfc");
347  hjei = getPropertyDouble ("hjei");
348  hjci = getPropertyDouble ("hjci");
349  ibeis = getPropertyDouble ("ibeis");
350  mbei = getPropertyDouble ("mbei");
351  ireis = getPropertyDouble ("ireis");
352  mrei = getPropertyDouble ("mrei");
353  ibeps = getPropertyDouble ("ibeps");
354  mbep = getPropertyDouble ("mbep");
355  ireps = getPropertyDouble ("ireps");
356  mrep = getPropertyDouble ("mrep");
357  mcf = getPropertyDouble ("mcf");
358  ibcis = getPropertyDouble ("ibcis");
359  mbci = getPropertyDouble ("mbci");
360  ibcxs = getPropertyDouble ("ibcxs");
361  mbcx = getPropertyDouble ("mbcx");
362  ibets = getPropertyDouble ("ibets");
363  abet = getPropertyDouble ("abet");
364  favl = getPropertyDouble ("favl");
365  qavl = getPropertyDouble ("qavl");
366  alfav = getPropertyDouble ("alfav");
367  alqav = getPropertyDouble ("alqav");
368  rbi0 = getPropertyDouble ("rbi0");
369  rbx = getPropertyDouble ("rbx");
370  fgeo = getPropertyDouble ("fgeo");
371  fdqr0 = getPropertyDouble ("fdqr0");
372  fcrbi = getPropertyDouble ("fcrbi");
373  fqi = getPropertyDouble ("fqi");
374  re = getPropertyDouble ("re");
375  rcx = getPropertyDouble ("rcx");
376  itss = getPropertyDouble ("itss");
377  msf = getPropertyDouble ("msf");
378  iscs = getPropertyDouble ("iscs");
379  msc = getPropertyDouble ("msc");
380  tsf = getPropertyDouble ("tsf");
381  rsu = getPropertyDouble ("rsu");
382  csu = getPropertyDouble ("csu");
383  cjei0 = getPropertyDouble ("cjei0");
384  vdei = getPropertyDouble ("vdei");
385  zei = getPropertyDouble ("zei");
386  aljei = getPropertyDouble ("aljei");
387  cjep0 = getPropertyDouble ("cjep0");
388  vdep = getPropertyDouble ("vdep");
389  zep = getPropertyDouble ("zep");
390  aljep = getPropertyDouble ("aljep");
391  cjci0 = getPropertyDouble ("cjci0");
392  vdci = getPropertyDouble ("vdci");
393  zci = getPropertyDouble ("zci");
394  vptci = getPropertyDouble ("vptci");
395  cjcx0 = getPropertyDouble ("cjcx0");
396  vdcx = getPropertyDouble ("vdcx");
397  zcx = getPropertyDouble ("zcx");
398  vptcx = getPropertyDouble ("vptcx");
399  fbc = getPropertyDouble ("fbc");
400  cjs0 = getPropertyDouble ("cjs0");
401  vds = getPropertyDouble ("vds");
402  zs = getPropertyDouble ("zs");
403  vpts = getPropertyDouble ("vpts");
404  t0 = getPropertyDouble ("t0");
405  dt0h = getPropertyDouble ("dt0h");
406  tbvl = getPropertyDouble ("tbvl");
407  tef0 = getPropertyDouble ("tef0");
408  gtfe = getPropertyDouble ("gtfe");
409  thcs = getPropertyDouble ("thcs");
410  alhc = getPropertyDouble ("alhc");
411  fthc = getPropertyDouble ("fthc");
412  rci0 = getPropertyDouble ("rci0");
413  vlim = getPropertyDouble ("vlim");
414  vces = getPropertyDouble ("vces");
415  vpt = getPropertyDouble ("vpt");
416  tr = getPropertyDouble ("tr");
417  ceox = getPropertyDouble ("ceox");
418  ccox = getPropertyDouble ("ccox");
419  alqf = getPropertyDouble ("alqf");
420  alit = getPropertyDouble ("alit");
421  kf = getPropertyDouble ("kf");
422  af = getPropertyDouble ("af");
423  krbi = getPropertyDouble ("krbi");
424  latb = getPropertyDouble ("latb");
425  latl = getPropertyDouble ("latl");
426  vgb = getPropertyDouble ("vgb");
427  alt0 = getPropertyDouble ("alt0");
428  kt0 = getPropertyDouble ("kt0");
429  zetaci = getPropertyDouble ("zetaci");
430  zetacx = getPropertyDouble ("zetacx");
431  alvs = getPropertyDouble ("alvs");
432  alces = getPropertyDouble ("alces");
433  zetarbi = getPropertyDouble ("zetarbi");
434  zetarbx = getPropertyDouble ("zetarbx");
435  zetarcx = getPropertyDouble ("zetarcx");
436  zetare = getPropertyDouble ("zetare");
437  alb = getPropertyDouble ("alb");
438  rth = getPropertyDouble ("rth");
439  cth = getPropertyDouble ("cth");
440  tnom = getPropertyDouble ("tnom");
441  dt = getPropertyDouble ("dt");
442 }
443 
444 /* #define's for translated code */
445 #undef _DDT
446 #define _DDT(q) q
447 #define _DYNAMIC
448 #define _DERIVATE
449 #define _DDX
450 #define _DERIVATEFORDDX
451 
452 /* Evaluate Verilog-AMS equations in model initialization. */
453 void hicumL2V2p1::initializeModel (void)
454 {
455 }
456 
457 /* Evaluate Verilog-AMS equations in instance initialization. */
458 void hicumL2V2p1::initializeInstance (void)
459 {
460 }
461 
462 /* Evaluate Verilog-AMS equations in initial step. */
463 void hicumL2V2p1::initialStep (void)
464 {
465 }
466 
467 /* Evaluate Verilog-AMS equations in final step. */
468 void hicumL2V2p1::finalStep (void)
469 {
470 }
471 
472 /* Evaluate Verilog-AMS equations in analog block. */
473 void hicumL2V2p1::calcVerilog (void)
474 {
475 
476 /* ----------------- evaluate verilog analog equations -------------------- */
477 double twoq;
478 double flicker_Pwr;
479 #if defined(_DERIVATE)
480 double flicker_Pwr_Vtnode_GND;
481 double flicker_Pwr_Vbi_ei;
482 double flicker_Pwr_Vbp_ei;
483 double flicker_Pwr_Vbi_ci;
484 #endif
485 double rbin;
486 #if defined(_DERIVATE)
487 double rbin_Vtnode_GND;
488 double rbin_Vbi_ei;
489 double rbin_Vci_ei;
490 double rbin_Vbi_ci;
491 #endif
492 double fourkt;
493 #if defined(_DERIVATE)
494 double fourkt_Vtnode_GND;
495 #endif
496 double pterm;
497 #if defined(_DERIVATE)
498 double pterm_Vci_ei;
499 double pterm_Vtnode_GND;
500 double pterm_Vbi_ei;
501 double pterm_Vbi_ci;
502 #endif
503 double ijsc;
504 #if defined(_DERIVATE)
505 double ijsc_Vtnode_GND;
506 double ijsc_Vsi_ci;
507 double ijsc_Vbp_ci;
508 double ijsc_Vbp_ei;
509 double ijsc_Vbi_ci;
510 double ijsc_Vbi_ei;
511 #endif
512 #if defined(_DYNAMIC)
513 double Qdsu;
514 #if defined(_DERIVATE)
515 double Qdsu_Vtnode_GND;
516 double Qdsu_Vbp_ci;
517 #endif
518 #endif
519 double HSI_Tsu;
520 #if defined(_DERIVATE)
521 double HSI_Tsu_Vtnode_GND;
522 double HSI_Tsu_Vbp_ci;
523 double HSI_Tsu_Vsi_ci;
524 #endif
525 double HSb;
526 #if defined(_DERIVATE)
527 double HSb_Vsi_ci;
528 double HSb_Vtnode_GND;
529 #endif
530 double HSa;
531 #if defined(_DERIVATE)
532 double HSa_Vbp_ci;
533 double HSa_Vtnode_GND;
534 #endif
535 double HSUM;
536 #if defined(_DERIVATE)
537 double HSUM_Vtnode_GND;
538 #endif
539 #if defined(_DYNAMIC)
540 double Qjs;
541 #if defined(_DERIVATE)
542 double Qjs_Vbp_ei;
543 double Qjs_Vbi_ei;
544 double Qjs_Vsi_ci;
545 double Qjs_Vb_ci;
546 double Qjs_Vbp_ci;
547 double Qjs_Vtnode_GND;
548 double Qjs_Vbi_ci;
549 #endif
550 #endif
551 double Cjs;
552 #if defined(_DYNAMIC)
553 double qjcx0_t_i;
554 #if defined(_DERIVATE)
555 double qjcx0_t_i_Vbp_ei;
556 double qjcx0_t_i_Vbi_ei;
557 double qjcx0_t_i_Vb_ci;
558 double qjcx0_t_i_Vbp_ci;
559 double qjcx0_t_i_Vtnode_GND;
560 double qjcx0_t_i_Vbi_ci;
561 #endif
562 #endif
563 double cjcx0_t_i;
564 double ijbcx;
565 #if defined(_DERIVATE)
566 double ijbcx_Vtnode_GND;
567 double ijbcx_Vbp_ci;
568 double ijbcx_Vbp_ei;
569 double ijbcx_Vbi_ci;
570 double ijbcx_Vbi_ei;
571 #endif
572 #if defined(_DYNAMIC)
573 double qjcx0_t_ii;
574 #if defined(_DERIVATE)
575 double qjcx0_t_ii_Vbp_ei;
576 double qjcx0_t_ii_Vbi_ei;
577 double qjcx0_t_ii_Vbp_ci;
578 double qjcx0_t_ii_Vtnode_GND;
579 double qjcx0_t_ii_Vbi_ci;
580 #endif
581 #endif
582 double cjcx0_t_ii;
583 double ibet;
584 #if defined(_DERIVATE)
585 double ibet_Vtnode_GND;
586 double ibet_Vbp_ei;
587 double ibet_Vbi_ci;
588 double ibet_Vbi_ei;
589 #endif
590 double czz;
591 #if defined(_DERIVATE)
592 double czz_Vtnode_GND;
593 double czz_Vbp_ei;
594 double czz_Vbi_ci;
595 double czz_Vbi_ei;
596 #endif
597 double pocce;
598 #if defined(_DERIVATE)
599 double pocce_Vbp_ei;
600 double pocce_Vbi_ci;
601 double pocce_Vtnode_GND;
602 double pocce_Vbi_ei;
603 #endif
604 double zex;
605 double cce;
606 #if defined(_DERIVATE)
607 double cce_Vbp_ei;
608 double cce_Vbi_ci;
609 double cce_Vtnode_GND;
610 double cce_Vbi_ei;
611 #endif
612 double vve;
613 #if defined(_DERIVATE)
614 double vve_Vbp_ei;
615 double vve_Vtnode_GND;
616 #endif
617 double ibets_t;
618 #if defined(_DERIVATE)
619 double ibets_t_Vtnode_GND;
620 #endif
621 double ab;
622 #if defined(_DERIVATE)
623 double ab_Vtnode_GND;
624 #endif
625 double a_eg;
626 #if defined(_DERIVATE)
627 double a_eg_Vtnode_GND;
628 #endif
629 #if defined(_DYNAMIC)
630 double Qjep;
631 #if defined(_DERIVATE)
632 double Qjep_Vbp_ei;
633 double Qjep_Vbi_ci;
634 double Qjep_Vtnode_GND;
635 double Qjep_Vbi_ei;
636 #endif
637 #endif
638 double Cjep;
639 #if defined(_DERIVATE)
640 double Cjep_Vbp_ei;
641 double Cjep_Vbi_ci;
642 double Cjep_Vtnode_GND;
643 double Cjep_Vbi_ei;
644 #endif
645 double irep;
646 #if defined(_DERIVATE)
647 double irep_Vtnode_GND;
648 double irep_Vbp_ei;
649 double irep_Vbi_ci;
650 double irep_Vbi_ei;
651 #endif
652 double ibep;
653 #if defined(_DERIVATE)
654 double ibep_Vtnode_GND;
655 double ibep_Vbp_ei;
656 double ibep_Vbi_ci;
657 double ibep_Vbi_ei;
658 #endif
659 double ETA;
660 #if defined(_DERIVATE)
661 double ETA_Vtnode_GND;
662 double ETA_Vbi_ei;
663 double ETA_Vci_ei;
664 double ETA_Vbi_ci;
665 #endif
666 double I_BI;
667 #if defined(_DERIVATE)
668 double I_BI_Vtnode_GND;
669 double I_BI_Vbi_ei;
670 #endif
671 double rbi;
672 #if defined(_DERIVATE)
673 double rbi_Vtnode_GND;
674 double rbi_Vbi_ei;
675 double rbi_Vci_ei;
676 double rbi_Vbi_ci;
677 #endif
678 double f_p;
679 #if defined(_DERIVATE)
680 double f_p_Vtnode_GND;
681 double f_p_Vbi_ei;
682 double f_p_Vci_ei;
683 double f_p_Vbi_ci;
684 #endif
685 double Q_fi;
686 #if defined(_DERIVATE)
687 double Q_fi_Vci_ei;
688 double Q_fi_Vtnode_GND;
689 double Q_fi_Vbi_ci;
690 double Q_fi_Vbi_ei;
691 #endif
692 double Qz;
693 #if defined(_DERIVATE)
694 double Qz_Vtnode_GND;
695 double Qz_Vbi_ei;
696 double Qz_Vci_ei;
697 double Qz_Vbi_ci;
698 #endif
699 double f_QR;
700 #if defined(_DERIVATE)
701 double f_QR_Vtnode_GND;
702 #endif
703 double iavl;
704 #if defined(_DERIVATE)
705 double iavl_Vci_ei;
706 double iavl_Vtnode_GND;
707 double iavl_Vbi_ei;
708 double iavl_Vbi_ci;
709 #endif
710 double AVLS_avl;
711 #if defined(_DERIVATE)
712 double AVLS_avl_Vtnode_GND;
713 double AVLS_avl_Vbi_ei;
714 double AVLS_avl_Vbi_ci;
715 #endif
716 double AVLa;
717 #if defined(_DERIVATE)
718 double AVLa_Vtnode_GND;
719 double AVLa_Vbi_ei;
720 double AVLa_Vbi_ci;
721 #endif
722 double AVLU0;
723 #if defined(_DERIVATE)
724 double AVLU0_Vtnode_GND;
725 #endif
726 double AVLv_q;
727 #if defined(_DERIVATE)
728 double AVLv_q_Vtnode_GND;
729 double AVLv_q_Vbi_ei;
730 double AVLv_q_Vbi_ci;
731 #endif
732 double AVLv_bord;
733 #if defined(_DERIVATE)
734 double AVLv_bord_Vtnode_GND;
735 double AVLv_bord_Vbi_ci;
736 #endif
737 double ibci;
738 #if defined(_DERIVATE)
739 double ibci_Vtnode_GND;
740 double ibci_Vbi_ci;
741 double ibci_Vbi_ei;
742 #endif
743 #if defined(_DYNAMIC)
744 double qrbi;
745 #if defined(_DERIVATE)
746 double qrbi_Vtnode_GND;
747 double qrbi_Vbi_ei;
748 double qrbi_Vci_ei;
749 double qrbi_Vbi_ci;
750 #endif
751 #endif
752 #if defined(_DYNAMIC)
753 double Qdci;
754 #if defined(_DERIVATE)
755 double Qdci_Vci_ei;
756 double Qdci_Vtnode_GND;
757 double Qdci_Vbi_ci;
758 double Qdci_Vbi_ei;
759 #endif
760 #endif
761 #if defined(_DYNAMIC)
762 double Qdei;
763 #if defined(_DERIVATE)
764 double Qdei_Vci_ei;
765 double Qdei_Vtnode_GND;
766 double Qdei_Vbi_ci;
767 double Qdei_Vbi_ei;
768 #endif
769 #endif
770 double it;
771 #if defined(_DERIVATE)
772 double it_Vci_ei;
773 double it_Vtnode_GND;
774 double it_Vbi_ei;
775 double it_Vbi_ci;
776 #endif
777 double d_Q0;
778 double d_Q;
779 #if defined(_DERIVATE)
780 double d_Q_Vtnode_GND;
781 double d_Q_Vbi_ei;
782 double d_Q_Vbi_ci;
783 double d_Q_Vci_ei;
784 #endif
785 double Q_pT;
786 #if defined(_DERIVATE)
787 double Q_pT_Vtnode_GND;
788 double Q_pT_Vbi_ei;
789 double Q_pT_Vbi_ci;
790 double Q_pT_Vci_ei;
791 #endif
792 double l_it;
793 double Qr;
794 #if defined(_DERIVATE)
795 double Qr_Vci_ei;
796 double Qr_Vtnode_GND;
797 double Qr_Vbi_ci;
798 double Qr_Vbi_ei;
799 #endif
800 double FCd_f;
801 #if defined(_DERIVATE)
802 double FCd_f_Vci_ei;
803 double FCd_f_Vtnode_GND;
804 double FCd_f_Vbi_ei;
805 double FCd_f_Vbi_ci;
806 #endif
807 double FCz_1;
808 #if defined(_DERIVATE)
809 double FCz_1_Vci_ei;
810 double FCz_1_Vtnode_GND;
811 double FCz_1_Vbi_ei;
812 double FCz_1_Vbi_ci;
813 #endif
814 double FCdfCT_ditf;
815 #if defined(_DERIVATE)
816 double FCdfCT_ditf_Vci_ei;
817 double FCdfCT_ditf_Vbi_ei;
818 double FCdfCT_ditf_Vbi_ci;
819 double FCdfCT_ditf_Vtnode_GND;
820 #endif
821 double FCdfCT_dw;
822 #if defined(_DERIVATE)
823 double FCdfCT_dw_Vci_ei;
824 double FCdfCT_dw_Vbi_ei;
825 double FCdfCT_dw_Vbi_ci;
826 double FCdfCT_dw_Vtnode_GND;
827 #endif
828 double FCdfc_ditf;
829 #if defined(_DERIVATE)
830 double FCdfc_ditf_Vci_ei;
831 double FCdfc_ditf_Vtnode_GND;
832 double FCdfc_ditf_Vbi_ei;
833 double FCdfc_ditf_Vbi_ci;
834 #endif
835 double FCdw_ditf;
836 #if defined(_DERIVATE)
837 double FCdw_ditf_Vci_ei;
838 double FCdw_ditf_Vtnode_GND;
839 double FCdw_ditf_Vbi_ei;
840 double FCdw_ditf_Vbi_ci;
841 #endif
842 double FCdfc_dw;
843 #if defined(_DERIVATE)
844 double FCdfc_dw_Vci_ei;
845 double FCdfc_dw_Vtnode_GND;
846 double FCdfc_dw_Vbi_ei;
847 double FCdfc_dw_Vbi_ci;
848 #endif
849 double FCf_ci;
850 #if defined(_DERIVATE)
851 double FCf_ci_Vci_ei;
852 double FCf_ci_Vtnode_GND;
853 double FCf_ci_Vbi_ei;
854 double FCf_ci_Vbi_ci;
855 #endif
856 double FCdf3_dw;
857 #if defined(_DERIVATE)
858 double FCdf3_dw_Vci_ei;
859 double FCdf3_dw_Vtnode_GND;
860 double FCdf3_dw_Vbi_ei;
861 double FCdf3_dw_Vbi_ci;
862 #endif
863 double FCf3;
864 #if defined(_DERIVATE)
865 double FCf3_Vci_ei;
866 double FCf3_Vbi_ei;
867 double FCf3_Vbi_ci;
868 double FCf3_Vtnode_GND;
869 #endif
870 double FCdf2_dw;
871 #if defined(_DERIVATE)
872 double FCdf2_dw_Vci_ei;
873 double FCdf2_dw_Vtnode_GND;
874 double FCdf2_dw_Vbi_ei;
875 double FCdf2_dw_Vbi_ci;
876 #endif
877 double FCf2;
878 #if defined(_DERIVATE)
879 double FCf2_Vci_ei;
880 double FCf2_Vbi_ei;
881 double FCf2_Vbi_ci;
882 double FCf2_Vtnode_GND;
883 #endif
884 double r;
885 double a3;
886 #if defined(_DERIVATE)
887 double a3_Vci_ei;
888 double a3_Vbi_ei;
889 double a3_Vbi_ci;
890 double a3_Vtnode_GND;
891 #endif
892 double a2;
893 #if defined(_DERIVATE)
894 double a2_Vci_ei;
895 double a2_Vbi_ei;
896 double a2_Vbi_ci;
897 double a2_Vtnode_GND;
898 #endif
899 double x;
900 #if defined(_DERIVATE)
901 double x_Vci_ei;
902 double x_Vtnode_GND;
903 double x_Vbi_ei;
904 double x_Vbi_ci;
905 #endif
906 double z;
907 #if defined(_DERIVATE)
908 double z_Vci_ei;
909 double z_Vtnode_GND;
910 double z_Vbi_ei;
911 double z_Vbi_ci;
912 #endif
913 double FCdf1_dw;
914 #if defined(_DERIVATE)
915 double FCdf1_dw_Vci_ei;
916 double FCdf1_dw_Vtnode_GND;
917 double FCdf1_dw_Vbi_ei;
918 double FCdf1_dw_Vbi_ci;
919 #endif
920 double FCw2;
921 #if defined(_DERIVATE)
922 double FCw2_Vci_ei;
923 double FCw2_Vtnode_GND;
924 double FCw2_Vbi_ei;
925 double FCw2_Vbi_ci;
926 #endif
927 double FCf_CT;
928 #if defined(_DERIVATE)
929 double FCf_CT_Vci_ei;
930 double FCf_CT_Vbi_ei;
931 double FCf_CT_Vbi_ci;
932 double FCf_CT_Vtnode_GND;
933 #endif
934 double FCf1;
935 #if defined(_DERIVATE)
936 double FCf1_Vci_ei;
937 double FCf1_Vtnode_GND;
938 double FCf1_Vbi_ei;
939 double FCf1_Vbi_ci;
940 #endif
941 double FCda1_dw;
942 #if defined(_DERIVATE)
943 double FCda1_dw_Vci_ei;
944 double FCda1_dw_Vtnode_GND;
945 double FCda1_dw_Vbi_ei;
946 double FCda1_dw_Vbi_ci;
947 #endif
948 double FClnl;
949 #if defined(_DERIVATE)
950 double FClnl_Vci_ei;
951 double FClnl_Vtnode_GND;
952 double FClnl_Vbi_ei;
953 double FClnl_Vbi_ci;
954 #endif
955 double FClnb;
956 #if defined(_DERIVATE)
957 double FClnb_Vci_ei;
958 double FClnb_Vtnode_GND;
959 double FClnb_Vbi_ei;
960 double FClnb_Vbi_ci;
961 #endif
962 double FCdw_daick;
963 #if defined(_DERIVATE)
964 double FCdw_daick_Vci_ei;
965 double FCdw_daick_Vtnode_GND;
966 double FCdw_daick_Vbi_ei;
967 double FCdw_daick_Vbi_ci;
968 #endif
969 double FCw;
970 #if defined(_DERIVATE)
971 double FCw_Vci_ei;
972 double FCw_Vtnode_GND;
973 double FCw_Vbi_ei;
974 double FCw_Vbi_ci;
975 #endif
976 double FCd_a;
977 #if defined(_DERIVATE)
978 double FCd_a_Vci_ei;
979 double FCd_a_Vtnode_GND;
980 double FCd_a_Vbi_ei;
981 double FCd_a_Vbi_ci;
982 #endif
983 double FCa1;
984 #if defined(_DERIVATE)
985 double FCa1_Vci_ei;
986 double FCa1_Vtnode_GND;
987 double FCa1_Vbi_ei;
988 double FCa1_Vbi_ci;
989 #endif
990 double FCln;
991 double FCxb;
992 double FCxl;
993 double FCz;
994 #if defined(_DERIVATE)
995 double FCz_Vci_ei;
996 double FCz_Vtnode_GND;
997 double FCz_Vbi_ei;
998 double FCz_Vbi_ci;
999 #endif
1000 double FCdaick_ditf;
1001 #if defined(_DERIVATE)
1002 double FCdaick_ditf_Vci_ei;
1003 double FCdaick_ditf_Vtnode_GND;
1004 double FCdaick_ditf_Vbi_ei;
1005 double FCdaick_ditf_Vbi_ci;
1006 #endif
1007 double FCa_ck;
1008 #if defined(_DERIVATE)
1009 double FCa_ck_Vci_ei;
1010 double FCa_ck_Vtnode_GND;
1011 double FCa_ck_Vbi_ei;
1012 double FCa_ck_Vbi_ci;
1013 #endif
1014 double FCrt;
1015 #if defined(_DERIVATE)
1016 double FCrt_Vci_ei;
1017 double FCrt_Vtnode_GND;
1018 double FCrt_Vbi_ei;
1019 double FCrt_Vbi_ci;
1020 #endif
1021 double FCa;
1022 #if defined(_DERIVATE)
1023 double FCa_Vci_ei;
1024 double FCa_Vtnode_GND;
1025 double FCa_Vbi_ei;
1026 double FCa_Vbi_ci;
1027 #endif
1028 double FFT_cT;
1029 #if defined(_DERIVATE)
1030 double FFT_cT_Vtnode_GND;
1031 double FFT_cT_Vci_ei;
1032 double FFT_cT_Vbi_ei;
1033 double FFT_cT_Vbi_ci;
1034 #endif
1035 double FFQ_cT;
1036 #if defined(_DERIVATE)
1037 double FFQ_cT_Vtnode_GND;
1038 double FFQ_cT_Vbi_ei;
1039 double FFQ_cT_Vbi_ci;
1040 double FFQ_cT_Vci_ei;
1041 #endif
1042 double FFT_fC;
1043 #if defined(_DERIVATE)
1044 double FFT_fC_Vtnode_GND;
1045 double FFT_fC_Vci_ei;
1046 double FFT_fC_Vbi_ei;
1047 double FFT_fC_Vbi_ci;
1048 #endif
1049 double FFQ_fC;
1050 #if defined(_DERIVATE)
1051 double FFQ_fC_Vtnode_GND;
1052 double FFQ_fC_Vbi_ei;
1053 double FFQ_fC_Vbi_ci;
1054 double FFQ_fC_Vci_ei;
1055 #endif
1056 double FFT_pcS;
1057 #if defined(_DERIVATE)
1058 double FFT_pcS_Vtnode_GND;
1059 #endif
1060 double FFd_TfB;
1061 #if defined(_DERIVATE)
1062 double FFd_TfB_Vtnode_GND;
1063 double FFd_TfB_Vci_ei;
1064 double FFd_TfB_Vbi_ei;
1065 double FFd_TfB_Vbi_ci;
1066 #endif
1067 double FFa_w;
1068 #if defined(_DERIVATE)
1069 double FFa_w_Vci_ei;
1070 double FFa_w_Vtnode_GND;
1071 double FFa_w_Vbi_ei;
1072 double FFa_w_Vbi_ci;
1073 #endif
1074 double FFd_QfB;
1075 #if defined(_DERIVATE)
1076 double FFd_QfB_Vtnode_GND;
1077 double FFd_QfB_Vbi_ei;
1078 double FFd_QfB_Vbi_ci;
1079 double FFd_QfB_Vci_ei;
1080 #endif
1081 double FFw_2;
1082 #if defined(_DERIVATE)
1083 double FFw_2_Vci_ei;
1084 double FFw_2_Vtnode_GND;
1085 double FFw_2_Vbi_ei;
1086 double FFw_2_Vbi_ci;
1087 #endif
1088 double FFw;
1089 #if defined(_DERIVATE)
1090 double FFw_Vci_ei;
1091 double FFw_Vtnode_GND;
1092 double FFw_Vbi_ei;
1093 double FFw_Vbi_ci;
1094 #endif
1095 double FFs;
1096 #if defined(_DERIVATE)
1097 double FFs_Vci_ei;
1098 double FFs_Vtnode_GND;
1099 double FFs_Vbi_ei;
1100 double FFs_Vbi_ci;
1101 #endif
1102 double FFx;
1103 #if defined(_DERIVATE)
1104 double FFx_Vci_ei;
1105 double FFx_Vtnode_GND;
1106 double FFx_Vbi_ei;
1107 double FFx_Vbi_ci;
1108 #endif
1109 double FFT_fbS;
1110 #if defined(_DERIVATE)
1111 double FFT_fbS_Vtnode_GND;
1112 #endif
1113 double FFd_QfE;
1114 #if defined(_DERIVATE)
1115 double FFd_QfE_Vtnode_GND;
1116 double FFd_QfE_Vci_ei;
1117 double FFd_QfE_Vbi_ei;
1118 double FFd_QfE_Vbi_ci;
1119 #endif
1120 double FFd_TfE;
1121 #if defined(_DERIVATE)
1122 double FFd_TfE_Vtnode_GND;
1123 double FFd_TfE_Vci_ei;
1124 double FFd_TfE_Vbi_ei;
1125 double FFd_TfE_Vbi_ci;
1126 #endif
1127 double FFa;
1128 #if defined(_DERIVATE)
1129 double FFa_Vci_ei;
1130 double FFa_Vtnode_GND;
1131 double FFa_Vbi_ei;
1132 double FFa_Vbi_ci;
1133 #endif
1134 double T_fT;
1135 #if defined(_DERIVATE)
1136 double T_fT_Vci_ei;
1137 double T_fT_Vtnode_GND;
1138 double T_fT_Vbi_ci;
1139 double T_fT_Vbi_ei;
1140 #endif
1141 double Q_fT;
1142 #if defined(_DERIVATE)
1143 double Q_fT_Vci_ei;
1144 double Q_fT_Vtnode_GND;
1145 double Q_fT_Vbi_ci;
1146 double Q_fT_Vbi_ei;
1147 #endif
1148 double Qf;
1149 #if defined(_DERIVATE)
1150 double Qf_Vci_ei;
1151 double Qf_Vtnode_GND;
1152 double Qf_Vbi_ci;
1153 double Qf_Vbi_ei;
1154 #endif
1155 double Tf;
1156 #if defined(_DERIVATE)
1157 double Tf_Vci_ei;
1158 double Tf_Vtnode_GND;
1159 double Tf_Vbi_ci;
1160 double Tf_Vbi_ei;
1161 #endif
1162 double itr;
1163 #if defined(_DERIVATE)
1164 double itr_Vci_ei;
1165 double itr_Vtnode_GND;
1166 double itr_Vbi_ci;
1167 double itr_Vbi_ei;
1168 #endif
1169 double itf;
1170 #if defined(_DERIVATE)
1171 double itf_Vci_ei;
1172 double itf_Vtnode_GND;
1173 double itf_Vbi_ei;
1174 double itf_Vbi_ci;
1175 #endif
1176 double a_h;
1177 #if defined(_DERIVATE)
1178 double a_h_Vci_ei;
1179 double a_h_Vtnode_GND;
1180 double a_h_Vbi_ei;
1181 double a_h_Vbi_ci;
1182 #endif
1183 double I_Tf1;
1184 #if defined(_DERIVATE)
1185 double I_Tf1_Vci_ei;
1186 double I_Tf1_Vtnode_GND;
1187 double I_Tf1_Vbi_ei;
1188 double I_Tf1_Vbi_ci;
1189 #endif
1190 double Q_p;
1191 #if defined(_DERIVATE)
1192 double Q_p_Vtnode_GND;
1193 double Q_p_Vbi_ei;
1194 double Q_p_Vbi_ci;
1195 #endif
1196 double A;
1197 #if defined(_DERIVATE)
1198 double A_Vtnode_GND;
1199 double A_Vbi_ei;
1200 double A_Vbi_ci;
1201 #endif
1202 double ICKa;
1203 #if defined(_DERIVATE)
1204 double ICKa_Vci_ei;
1205 double ICKa_Vtnode_GND;
1206 #endif
1207 double ick;
1208 #if defined(_DERIVATE)
1209 double ick_Vci_ei;
1210 double ick_Vtnode_GND;
1211 #endif
1212 double vceff;
1213 #if defined(_DERIVATE)
1214 double vceff_Vci_ei;
1215 double vceff_Vtnode_GND;
1216 #endif
1217 double ICKv;
1218 #if defined(_DERIVATE)
1219 double ICKv_Vci_ei;
1220 double ICKv_Vtnode_GND;
1221 #endif
1222 double vc;
1223 #if defined(_DERIVATE)
1224 double vc_Vci_ei;
1225 double vc_Vtnode_GND;
1226 #endif
1227 double T_f0;
1228 #if defined(_DERIVATE)
1229 double T_f0_Vtnode_GND;
1230 double T_f0_Vbi_ci;
1231 double T_f0_Vbi_ei;
1232 #endif
1233 double cc;
1234 #if defined(_DERIVATE)
1235 double cc_Vtnode_GND;
1236 double cc_Vbi_ci;
1237 double cc_Vbi_ei;
1238 #endif
1239 double d1;
1240 double Cjcit;
1241 #if defined(_DERIVATE)
1242 double Cjcit_Vbi_ci;
1243 double Cjcit_Vtnode_GND;
1244 double Cjcit_Vbi_ei;
1245 #endif
1246 double b_q;
1247 #if defined(_DERIVATE)
1248 double b_q_Vtnode_GND;
1249 double b_q_Vbi_ei;
1250 double b_q_Vbi_ci;
1251 #endif
1252 double Q_bpt;
1253 #if defined(_DERIVATE)
1254 double Q_bpt_Vtnode_GND;
1255 #endif
1256 double a_bpt;
1257 double Q_0;
1258 #if defined(_DERIVATE)
1259 double Q_0_Vtnode_GND;
1260 double Q_0_Vbi_ei;
1261 double Q_0_Vbi_ci;
1262 #endif
1263 double Qjci;
1264 #if defined(_DERIVATE)
1265 double Qjci_Vbi_ei;
1266 double Qjci_Vtnode_GND;
1267 double Qjci_Vbi_ci;
1268 #endif
1269 double DQ_j3;
1270 #if defined(_DERIVATE)
1271 double DQ_j3_Vsi_ci;
1272 double DQ_j3_Vb_ci;
1273 double DQ_j3_Vbp_ci;
1274 double DQ_j3_Vtnode_GND;
1275 double DQ_j3_Vbi_ci;
1276 #endif
1277 double DQ_j2;
1278 #if defined(_DERIVATE)
1279 double DQ_j2_Vsi_ci;
1280 double DQ_j2_Vb_ci;
1281 double DQ_j2_Vbp_ci;
1282 double DQ_j2_Vtnode_GND;
1283 double DQ_j2_Vbi_ci;
1284 #endif
1285 double DQ_j1;
1286 #if defined(_DERIVATE)
1287 double DQ_j1_Vsi_ci;
1288 double DQ_j1_Vb_ci;
1289 double DQ_j1_Vbp_ci;
1290 double DQ_j1_Vtnode_GND;
1291 double DQ_j1_Vbi_ci;
1292 #endif
1293 double Cjci;
1294 #if defined(_DERIVATE)
1295 double Cjci_Vbi_ei;
1296 double Cjci_Vtnode_GND;
1297 double Cjci_Vbi_ci;
1298 #endif
1299 double DC_j3;
1300 #if defined(_DERIVATE)
1301 double DC_j3_Vsi_ci;
1302 double DC_j3_Vb_ci;
1303 double DC_j3_Vbp_ci;
1304 double DC_j3_Vtnode_GND;
1305 double DC_j3_Vbi_ci;
1306 #endif
1307 double DC_j2;
1308 #if defined(_DERIVATE)
1309 double DC_j2_Vsi_ci;
1310 double DC_j2_Vb_ci;
1311 double DC_j2_Vbp_ci;
1312 double DC_j2_Vtnode_GND;
1313 double DC_j2_Vbi_ci;
1314 #endif
1315 double DC_j1;
1316 #if defined(_DERIVATE)
1317 double DC_j1_Vsi_ci;
1318 double DC_j1_Vb_ci;
1319 double DC_j1_Vbp_ci;
1320 double DC_j1_Vtnode_GND;
1321 double DC_j1_Vbi_ci;
1322 #endif
1323 double Dzr1;
1324 double Dz1;
1325 double DCln2;
1326 #if defined(_DERIVATE)
1327 double DCln2_Vsi_ci;
1328 double DCln2_Vb_ci;
1329 double DCln2_Vbp_ci;
1330 double DCln2_Vtnode_GND;
1331 double DCln2_Vbi_ci;
1332 #endif
1333 double DCln1;
1334 #if defined(_DERIVATE)
1335 double DCln1_Vsi_ci;
1336 double DCln1_Vb_ci;
1337 double DCln1_Vbp_ci;
1338 double DCln1_Vtnode_GND;
1339 double DCln1_Vbi_ci;
1340 #endif
1341 double Dv_j4;
1342 #if defined(_DERIVATE)
1343 double Dv_j4_Vsi_ci;
1344 double Dv_j4_Vb_ci;
1345 double Dv_j4_Vbp_ci;
1346 double Dv_j4_Vbi_ci;
1347 double Dv_j4_Vtnode_GND;
1348 #endif
1349 double Dv_j2;
1350 #if defined(_DERIVATE)
1351 double Dv_j2_Vsi_ci;
1352 double Dv_j2_Vb_ci;
1353 double Dv_j2_Vbp_ci;
1354 double Dv_j2_Vtnode_GND;
1355 double Dv_j2_Vbi_ci;
1356 #endif
1357 double De_2;
1358 #if defined(_DERIVATE)
1359 double De_2_Vsi_ci;
1360 double De_2_Vb_ci;
1361 double De_2_Vbp_ci;
1362 double De_2_Vtnode_GND;
1363 double De_2_Vbi_ci;
1364 #endif
1365 double Dv_r;
1366 #if defined(_DERIVATE)
1367 double Dv_r_Vsi_ci;
1368 double Dv_r_Vb_ci;
1369 double Dv_r_Vbp_ci;
1370 double Dv_r_Vtnode_GND;
1371 double Dv_r_Vbi_ci;
1372 #endif
1373 double Dv_j1;
1374 #if defined(_DERIVATE)
1375 double Dv_j1_Vsi_ci;
1376 double Dv_j1_Vb_ci;
1377 double Dv_j1_Vbp_ci;
1378 double Dv_j1_Vtnode_GND;
1379 double Dv_j1_Vbi_ci;
1380 #endif
1381 double De_1;
1382 #if defined(_DERIVATE)
1383 double De_1_Vsi_ci;
1384 double De_1_Vb_ci;
1385 double De_1_Vbp_ci;
1386 double De_1_Vtnode_GND;
1387 double De_1_Vbi_ci;
1388 #endif
1389 double De;
1390 #if defined(_DERIVATE)
1391 double De_Vsi_ci;
1392 double De_Vb_ci;
1393 double De_Vbp_ci;
1394 double De_Vtnode_GND;
1395 double De_Vbi_ci;
1396 #endif
1397 double Dv_e;
1398 #if defined(_DERIVATE)
1399 double Dv_e_Vsi_ci;
1400 double Dv_e_Vb_ci;
1401 double Dv_e_Vbp_ci;
1402 double Dv_e_Vtnode_GND;
1403 double Dv_e_Vbi_ci;
1404 #endif
1405 double Da;
1406 #if defined(_DERIVATE)
1407 double Da_Vtnode_GND;
1408 #endif
1409 double DC_c;
1410 #if defined(_DERIVATE)
1411 double DC_c_Vtnode_GND;
1412 #endif
1413 double DC_max;
1414 #if defined(_DERIVATE)
1415 double DC_max_Vtnode_GND;
1416 #endif
1417 double DV_f;
1418 #if defined(_DERIVATE)
1419 double DV_f_Vtnode_GND;
1420 #endif
1421 double Dv_p;
1422 #if defined(_DERIVATE)
1423 double Dv_p_Vtnode_GND;
1424 #endif
1425 double Dz_r;
1426 double Qjei;
1427 #if defined(_DERIVATE)
1428 double Qjei_Vtnode_GND;
1429 double Qjei_Vbi_ei;
1430 #endif
1431 double DFQ_j;
1432 #if defined(_DERIVATE)
1433 double DFQ_j_Vsi_ci;
1434 double DFQ_j_Vb_ci;
1435 double DFQ_j_Vbp_ci;
1436 double DFQ_j_Vbp_ei;
1437 double DFQ_j_Vbi_ci;
1438 double DFQ_j_Vtnode_GND;
1439 double DFQ_j_Vbi_ei;
1440 #endif
1441 double Cjei;
1442 double DFC_j1;
1443 #if defined(_DERIVATE)
1444 double DFC_j1_Vsi_ci;
1445 double DFC_j1_Vb_ci;
1446 double DFC_j1_Vbp_ci;
1447 double DFC_j1_Vbp_ei;
1448 double DFC_j1_Vbi_ci;
1449 double DFC_j1_Vtnode_GND;
1450 double DFC_j1_Vbi_ei;
1451 #endif
1452 double DFb;
1453 #if defined(_DERIVATE)
1454 double DFb_Vsi_ci;
1455 double DFb_Vb_ci;
1456 double DFb_Vbp_ci;
1457 double DFb_Vbp_ei;
1458 double DFb_Vbi_ci;
1459 double DFb_Vtnode_GND;
1460 double DFb_Vbi_ei;
1461 #endif
1462 double DFdvj_dv;
1463 #if defined(_DERIVATE)
1464 double DFdvj_dv_Vsi_ci;
1465 double DFdvj_dv_Vb_ci;
1466 double DFdvj_dv_Vbp_ci;
1467 double DFdvj_dv_Vbp_ei;
1468 double DFdvj_dv_Vbi_ci;
1469 double DFdvj_dv_Vtnode_GND;
1470 double DFdvj_dv_Vbi_ei;
1471 #endif
1472 double DFv_j;
1473 #if defined(_DERIVATE)
1474 double DFv_j_Vsi_ci;
1475 double DFv_j_Vb_ci;
1476 double DFv_j_Vbp_ci;
1477 double DFv_j_Vbp_ei;
1478 double DFv_j_Vbi_ci;
1479 double DFv_j_Vtnode_GND;
1480 double DFv_j_Vbi_ei;
1481 #endif
1482 double DFe;
1483 #if defined(_DERIVATE)
1484 double DFe_Vsi_ci;
1485 double DFe_Vb_ci;
1486 double DFe_Vbp_ci;
1487 double DFe_Vbp_ei;
1488 double DFe_Vbi_ci;
1489 double DFe_Vtnode_GND;
1490 double DFe_Vbi_ei;
1491 #endif
1492 double DFv_e;
1493 #if defined(_DERIVATE)
1494 double DFv_e_Vsi_ci;
1495 double DFv_e_Vb_ci;
1496 double DFv_e_Vbp_ci;
1497 double DFv_e_Vbp_ei;
1498 double DFv_e_Vbi_ci;
1499 double DFv_e_Vtnode_GND;
1500 double DFv_e_Vbi_ei;
1501 #endif
1502 double DFC_max;
1503 #if defined(_DERIVATE)
1504 double DFC_max_Vtnode_GND;
1505 #endif
1506 double DFV_f;
1507 #if defined(_DERIVATE)
1508 double DFV_f_Vtnode_GND;
1509 #endif
1510 double i_0r;
1511 #if defined(_DERIVATE)
1512 double i_0r_Vtnode_GND;
1513 double i_0r_Vbi_ci;
1514 #endif
1515 double i_0f;
1516 #if defined(_DERIVATE)
1517 double i_0f_Vtnode_GND;
1518 double i_0f_Vbi_ei;
1519 #endif
1520 double VT_f;
1521 #if defined(_DERIVATE)
1522 double VT_f_Vtnode_GND;
1523 #endif
1524 double Tr;
1525 double Ovpt;
1526 double Oich;
1527 double irei;
1528 #if defined(_DERIVATE)
1529 double irei_Vtnode_GND;
1530 double irei_Vbi_ei;
1531 #endif
1532 double ibei;
1533 #if defined(_DERIVATE)
1534 double ibei_Vtnode_GND;
1535 double ibei_Vbi_ei;
1536 #endif
1537 double le;
1538 #if defined(_DERIVATE)
1539 double le_Vsi_ci;
1540 double le_Vbp_ci;
1541 double le_Vbp_ei;
1542 double le_Vbi_ci;
1543 double le_Vbi_ei;
1544 double le_Vtnode_GND;
1545 #endif
1546 double DIOY;
1547 #if defined(_DERIVATE)
1548 double DIOY_Vsi_ci;
1549 double DIOY_Vbp_ci;
1550 double DIOY_Vbp_ei;
1551 double DIOY_Vbi_ci;
1552 double DIOY_Vbi_ei;
1553 double DIOY_Vtnode_GND;
1554 #endif
1555 #if defined(_DYNAMIC)
1556 double vpts_t;
1557 #if defined(_DERIVATE)
1558 double vpts_t_Vtnode_GND;
1559 #endif
1560 #endif
1561 #if defined(_DYNAMIC)
1562 double cjs0_t;
1563 #if defined(_DERIVATE)
1564 double cjs0_t_Vtnode_GND;
1565 #endif
1566 #endif
1567 #if defined(_DYNAMIC)
1568 double vds_t;
1569 #if defined(_DERIVATE)
1570 double vds_t_Vtnode_GND;
1571 #endif
1572 #endif
1573 double iscs_t;
1574 #if defined(_DERIVATE)
1575 double iscs_t_Vtnode_GND;
1576 #endif
1577 double itss_t;
1578 #if defined(_DERIVATE)
1579 double itss_t_Vtnode_GND;
1580 #endif
1581 #if defined(_DYNAMIC)
1582 double tsf_t;
1583 #if defined(_DERIVATE)
1584 double tsf_t_Vtnode_GND;
1585 #endif
1586 #endif
1587 double re_t;
1588 #if defined(_DERIVATE)
1589 double re_t_Vtnode_GND;
1590 #endif
1591 double rbx_t;
1592 #if defined(_DERIVATE)
1593 double rbx_t_Vtnode_GND;
1594 #endif
1595 double rcx_t;
1596 #if defined(_DERIVATE)
1597 double rcx_t_Vtnode_GND;
1598 #endif
1599 double ibcxs_t;
1600 #if defined(_DERIVATE)
1601 double ibcxs_t_Vtnode_GND;
1602 #endif
1603 #if defined(_DYNAMIC)
1604 double cjcx02_t;
1605 #if defined(_DERIVATE)
1606 double cjcx02_t_Vtnode_GND;
1607 #endif
1608 #endif
1609 #if defined(_DYNAMIC)
1610 double cjcx01_t;
1611 #if defined(_DERIVATE)
1612 double cjcx01_t_Vtnode_GND;
1613 #endif
1614 #endif
1615 #if defined(_DYNAMIC)
1616 double vptcx_t;
1617 #if defined(_DERIVATE)
1618 double vptcx_t_Vtnode_GND;
1619 #endif
1620 #endif
1621 #if defined(_DYNAMIC)
1622 double cratio_t;
1623 #if defined(_DERIVATE)
1624 double cratio_t_Vtnode_GND;
1625 #endif
1626 #endif
1627 #if defined(_DYNAMIC)
1628 double vdcx_t;
1629 #if defined(_DERIVATE)
1630 double vdcx_t_Vtnode_GND;
1631 #endif
1632 #endif
1633 #if defined(_DYNAMIC)
1634 double cjcx02;
1635 #endif
1636 #if defined(_DYNAMIC)
1637 double cjcx01;
1638 #endif
1639 #if defined(_DYNAMIC)
1640 double ccox2;
1641 #endif
1642 #if defined(_DYNAMIC)
1643 double ccox1;
1644 #endif
1645 #if defined(_DYNAMIC)
1646 double C_1;
1647 #endif
1648 double aljep_t;
1649 #if defined(_DERIVATE)
1650 double aljep_t_Vtnode_GND;
1651 #endif
1652 double cjep0_t;
1653 #if defined(_DERIVATE)
1654 double cjep0_t_Vtnode_GND;
1655 #endif
1656 double vdep_t;
1657 #if defined(_DERIVATE)
1658 double vdep_t_Vtnode_GND;
1659 #endif
1660 double ireps_t;
1661 #if defined(_DERIVATE)
1662 double ireps_t_Vtnode_GND;
1663 #endif
1664 double ibeps_t;
1665 #if defined(_DERIVATE)
1666 double ibeps_t_Vtnode_GND;
1667 #endif
1668 double rbi0_t;
1669 #if defined(_DERIVATE)
1670 double rbi0_t_Vtnode_GND;
1671 #endif
1672 double qavl_t;
1673 #if defined(_DERIVATE)
1674 double qavl_t_Vtnode_GND;
1675 #endif
1676 double favl_t;
1677 #if defined(_DERIVATE)
1678 double favl_t_Vtnode_GND;
1679 #endif
1680 double thcs_t;
1681 #if defined(_DERIVATE)
1682 double thcs_t_Vtnode_GND;
1683 #endif
1684 double tef0_t;
1685 #if defined(_DERIVATE)
1686 double tef0_t_Vtnode_GND;
1687 #endif
1688 double t0_t;
1689 #if defined(_DERIVATE)
1690 double t0_t_Vtnode_GND;
1691 #endif
1692 double vptci_t;
1693 #if defined(_DERIVATE)
1694 double vptci_t_Vtnode_GND;
1695 #endif
1696 double cjci0_t;
1697 #if defined(_DERIVATE)
1698 double cjci0_t_Vtnode_GND;
1699 #endif
1700 double vdci_t;
1701 #if defined(_DERIVATE)
1702 double vdci_t_Vtnode_GND;
1703 #endif
1704 double ibcis_t;
1705 #if defined(_DERIVATE)
1706 double ibcis_t_Vtnode_GND;
1707 #endif
1708 double vces_t;
1709 #if defined(_DERIVATE)
1710 double vces_t_Vtnode_GND;
1711 #endif
1712 double vlim_t;
1713 #if defined(_DERIVATE)
1714 double vlim_t_Vtnode_GND;
1715 #endif
1716 double k;
1717 #if defined(_DERIVATE)
1718 double k_Vtnode_GND;
1719 #endif
1720 double Orci0_t;
1721 #if defined(_DERIVATE)
1722 double Orci0_t_Vtnode_GND;
1723 #endif
1724 double qtt0_zci;
1725 #if defined(_DERIVATE)
1726 double qtt0_zci_Vtnode_GND;
1727 #endif
1728 double qp0_t;
1729 #if defined(_DERIVATE)
1730 double qp0_t_Vtnode_GND;
1731 #endif
1732 double c10_t;
1733 #if defined(_DERIVATE)
1734 double c10_t_Vtnode_GND;
1735 #endif
1736 double aljei_t;
1737 #if defined(_DERIVATE)
1738 double aljei_t_Vtnode_GND;
1739 #endif
1740 double cjei0_t;
1741 #if defined(_DERIVATE)
1742 double cjei0_t_Vtnode_GND;
1743 #endif
1744 double vdei_t;
1745 #if defined(_DERIVATE)
1746 double vdei_t_Vtnode_GND;
1747 #endif
1748 double vdjt;
1749 #if defined(_DERIVATE)
1750 double vdjt_Vtnode_GND;
1751 #endif
1752 double vdj1;
1753 double vdj0;
1754 #if defined(_DERIVATE)
1755 double vdj0_Vtnode_GND;
1756 #endif
1757 double ireis_t;
1758 #if defined(_DERIVATE)
1759 double ireis_t_Vtnode_GND;
1760 #endif
1761 double ibeis_t;
1762 #if defined(_DERIVATE)
1763 double ibeis_t_Vtnode_GND;
1764 #endif
1765 double a;
1766 #if defined(_DERIVATE)
1767 double a_Vci_ei;
1768 double a_Vbi_ei;
1769 double a_Vbi_ci;
1770 double a_Vtnode_GND;
1771 #endif
1772 double r_VgVT;
1773 #if defined(_DERIVATE)
1774 double r_VgVT_Vtnode_GND;
1775 #endif
1776 double V_gT;
1777 #if defined(_DERIVATE)
1778 double V_gT_Vtnode_GND;
1779 #endif
1780 double avs;
1781 double ln_qtt0;
1782 #if defined(_DERIVATE)
1783 double ln_qtt0_Vtnode_GND;
1784 #endif
1785 double qtt0;
1786 #if defined(_DERIVATE)
1787 double qtt0_Vtnode_GND;
1788 #endif
1789 double dT;
1790 #if defined(_DERIVATE)
1791 double dT_Vtnode_GND;
1792 #endif
1793 double VT;
1794 #if defined(_DERIVATE)
1795 double VT_Vtnode_GND;
1796 #endif
1797 double vt0;
1798 double Tdev;
1799 #if defined(_DERIVATE)
1800 double Tdev_Vtnode_GND;
1801 #endif
1802 double Tamb;
1803 double Tnom;
1804 Tnom=(tnom+273.15);
1805 Tamb=_circuit_temp;
1806 #if defined(_DERIVATE)
1807 Tdev_Vtnode_GND=1.0;
1808 #endif
1809 Tdev=((Tamb+dt)+NP(tnode));
1810 if
1811 ((Tdev<((-100.0)+273.15)))
1812 {
1813 #if defined(_DERIVATE)
1814 Tdev_Vtnode_GND=0.0;
1815 #endif
1816 Tdev=((-100.0)+273.15);
1817 }
1818 else
1819 {
1820 if
1821 ((Tdev>(326.85+273.15)))
1822 {
1823 #if defined(_DERIVATE)
1824 Tdev_Vtnode_GND=0.0;
1825 #endif
1826 Tdev=(326.85+273.15);
1827 }
1828 }
1829 #if defined(_DYNAMIC)
1830 vt0=m00_vt(Tnom);
1831 #endif
1832 #if defined(_DERIVATE)
1833 VT_Vtnode_GND=Tdev_Vtnode_GND*m10_vt(Tdev);
1834 #endif
1835 VT=m00_vt(Tdev);
1836 #if defined(_DERIVATE)
1837 dT_Vtnode_GND=Tdev_Vtnode_GND;
1838 #endif
1839 dT=(Tdev-Tnom);
1840 #if defined(_DERIVATE)
1841 qtt0_Vtnode_GND=(Tdev_Vtnode_GND/Tnom);
1842 #endif
1843 qtt0=(Tdev/Tnom);
1844 {
1845 double m00_logE(d00_logE0,qtt0)
1846 #if defined(_DERIVATE)
1847 double m10_logE(d10_logE0,d00_logE0,qtt0)
1848 #endif
1849 #if defined(_DERIVATE)
1850 ln_qtt0_Vtnode_GND=qtt0_Vtnode_GND*d10_logE0;
1851 #endif
1852 ln_qtt0=d00_logE0;
1853 }
1854 #if defined(_DYNAMIC)
1855 avs=(alvs*Tnom);
1856 #endif
1857 #if defined(_DERIVATE)
1858 V_gT_Vtnode_GND=((((3.0*VT_Vtnode_GND)*ln_qtt0)+((3.0*VT)*ln_qtt0_Vtnode_GND))+(vgb*qtt0_Vtnode_GND));
1859 #endif
1860 V_gT=(((3.0*VT)*ln_qtt0)+(vgb*(qtt0-1.0)));
1861 #if defined(_DERIVATE)
1862 r_VgVT_Vtnode_GND=((V_gT_Vtnode_GND*VT-V_gT*VT_Vtnode_GND)/VT/VT);
1863 #endif
1864 r_VgVT=(V_gT/VT);
1865 #if defined(_DERIVATE)
1866 a_Vci_ei=0.0;
1867 a_Vbi_ei=0.0;
1868 a_Vbi_ci=0.0;
1869 a_Vtnode_GND=(((mcf*r_VgVT_Vtnode_GND)/mbei)-(alb*dT_Vtnode_GND));
1870 #endif
1871 a=(((mcf*r_VgVT)/mbei)-(alb*dT));
1872 {
1873 double m00_exp(d00_exp0,a)
1874 #if defined(_DERIVATE)
1875 #define d10_exp0 d00_exp0
1876 #endif
1877 #if defined(_DERIVATE)
1878 ibeis_t_Vtnode_GND=(ibeis*a_Vtnode_GND*d10_exp0);
1879 #endif
1880 ibeis_t=(ibeis*d00_exp0);
1881 }
1882 #if defined(_DERIVATE)
1883 a_Vci_ei=0.0;
1884 a_Vbi_ei=0.0;
1885 a_Vbi_ci=0.0;
1886 a_Vtnode_GND=(((mcf*r_VgVT_Vtnode_GND)/mrei)-(alb*dT_Vtnode_GND));
1887 #endif
1888 a=(((mcf*r_VgVT)/mrei)-(alb*dT));
1889 {
1890 double m00_exp(d00_exp0,a)
1891 #if defined(_DERIVATE)
1892 #define d10_exp0 d00_exp0
1893 #endif
1894 #if defined(_DERIVATE)
1895 ireis_t_Vtnode_GND=(ireis*a_Vtnode_GND*d10_exp0);
1896 #endif
1897 ireis_t=(ireis*d00_exp0);
1898 }
1899 if
1900 ((cjei0>0.0))
1901 {
1902 #if defined(_DERIVATE)
1903 vdj0_Vtnode_GND=((vdei*qtt0_Vtnode_GND)-V_gT_Vtnode_GND);
1904 #endif
1905 vdj0=((vdei*qtt0)-V_gT);
1906 vdj1=(0.1*vdei);
1907 #if defined(_DERIVATE)
1908 vdjt_Vtnode_GND=((vdj0_Vtnode_GND*VT-(vdj0-vdj1)*VT_Vtnode_GND)/VT/VT);
1909 #endif
1910 vdjt=((vdj0-vdj1)/VT);
1911 if
1912 ((vdjt<11.0))
1913 {
1914 {
1915 double m00_exp(d00_exp0,vdjt)
1916 double m00_logE(d00_logE1,(1.0+d00_exp0))
1917 #if defined(_DERIVATE)
1918 #define d10_exp0 d00_exp0
1919 double m10_logE(d10_logE1,d00_logE1,(1.0+d00_exp0))
1920 #endif
1921 #if defined(_DERIVATE)
1922 vdei_t_Vtnode_GND=((VT_Vtnode_GND*d00_logE1)+(VT*vdjt_Vtnode_GND*d10_exp0*d10_logE1));
1923 #endif
1924 vdei_t=(vdj1+(VT*d00_logE1));
1925 }
1926 }
1927 else
1928 {
1929 #if defined(_DERIVATE)
1930 vdei_t_Vtnode_GND=vdj0_Vtnode_GND;
1931 #endif
1932 vdei_t=vdj0;
1933 }
1934 {
1935 double m00_logE(d00_logE0,(vdei/vdei_t))
1936 double m00_exp(d00_exp1,(zei*d00_logE0))
1937 #if defined(_DERIVATE)
1938 double m10_logE(d10_logE0,d00_logE0,(vdei/vdei_t))
1939 #define d10_exp1 d00_exp1
1940 #endif
1941 #if defined(_DERIVATE)
1942 cjei0_t_Vtnode_GND=(cjei0*(zei*(-vdei*vdei_t_Vtnode_GND/vdei_t/vdei_t)*d10_logE0)*d10_exp1);
1943 #endif
1944 cjei0_t=(cjei0*d00_exp1);
1945 }
1946 if
1947 ((1==1))
1948 {
1949 #if defined(_DERIVATE)
1950 aljei_t_Vtnode_GND=((aljei*vdei_t_Vtnode_GND)/vdei);
1951 #endif
1952 aljei_t=((aljei*vdei_t)/vdei);
1953 }
1954 else
1955 {
1956 #if defined(_DERIVATE)
1957 aljei_t_Vtnode_GND=0.0;
1958 #endif
1959 aljei_t=aljei;
1960 }
1961 }
1962 else
1963 {
1964 #if defined(_DERIVATE)
1965 cjei0_t_Vtnode_GND=0.0;
1966 #endif
1967 cjei0_t=cjei0;
1968 #if defined(_DERIVATE)
1969 vdei_t_Vtnode_GND=0.0;
1970 #endif
1971 vdei_t=vdei;
1972 #if defined(_DERIVATE)
1973 aljei_t_Vtnode_GND=0.0;
1974 #endif
1975 aljei_t=aljei;
1976 }
1977 {
1978 double m00_exp(d00_exp0,r_VgVT)
1979 #if defined(_DERIVATE)
1980 #define d10_exp0 d00_exp0
1981 #endif
1982 #if defined(_DERIVATE)
1983 c10_t_Vtnode_GND=(c10*r_VgVT_Vtnode_GND*d10_exp0);
1984 #endif
1985 c10_t=(c10*d00_exp0);
1986 }
1987 #if defined(_DERIVATE)
1988 a_Vci_ei=0.0;
1989 a_Vbi_ei=0.0;
1990 a_Vbi_ci=0.0;
1991 a_Vtnode_GND=(vdei_t_Vtnode_GND/vdei);
1992 #endif
1993 a=(vdei_t/vdei);
1994 #if defined(_DERIVATE)
1995 qp0_t_Vtnode_GND=(qp0*((0.5*zei)*(-a_Vtnode_GND)));
1996 #endif
1997 qp0_t=(qp0*(1.0+((0.5*zei)*(1.0-a))));
1998 {
1999 double m00_exp(d00_exp0,(zetaci*ln_qtt0))
2000 #if defined(_DERIVATE)
2001 #define d10_exp0 d00_exp0
2002 #endif
2003 #if defined(_DERIVATE)
2004 qtt0_zci_Vtnode_GND=(zetaci*ln_qtt0_Vtnode_GND)*d10_exp0;
2005 #endif
2006 qtt0_zci=d00_exp0;
2007 }
2008 #if defined(_DERIVATE)
2009 Orci0_t_Vtnode_GND=(-(rci0*qtt0_zci_Vtnode_GND)/(rci0*qtt0_zci)/(rci0*qtt0_zci));
2010 #endif
2011 Orci0_t=(1.0/(rci0*qtt0_zci));
2012 #if defined(_DERIVATE)
2013 a_Vci_ei=0.0;
2014 a_Vbi_ei=0.0;
2015 a_Vbi_ci=0.0;
2016 a_Vtnode_GND=(((vlim*qtt0_zci_Vtnode_GND)*(1.0-(alvs*dT)))+((vlim*qtt0_zci)*(-(alvs*dT_Vtnode_GND))));
2017 #endif
2018 a=((vlim*qtt0_zci)*(1.0-(alvs*dT)));
2019 #if defined(_DERIVATE)
2020 k_Vtnode_GND=(((a_Vtnode_GND-VT_Vtnode_GND)*VT-(a-VT)*VT_Vtnode_GND)/VT/VT);
2021 #endif
2022 k=((a-VT)/VT);
2023 if
2024 ((k<11.0))
2025 {
2026 {
2027 double m00_exp(d00_exp0,k)
2028 double m00_logE(d00_logE1,(1.0+d00_exp0))
2029 #if defined(_DERIVATE)
2030 #define d10_exp0 d00_exp0
2031 double m10_logE(d10_logE1,d00_logE1,(1.0+d00_exp0))
2032 #endif
2033 #if defined(_DERIVATE)
2034 vlim_t_Vtnode_GND=(VT_Vtnode_GND+((VT_Vtnode_GND*d00_logE1)+(VT*k_Vtnode_GND*d10_exp0*d10_logE1)));
2035 #endif
2036 vlim_t=(VT+(VT*d00_logE1));
2037 }
2038 }
2039 else
2040 {
2041 #if defined(_DERIVATE)
2042 vlim_t_Vtnode_GND=a_Vtnode_GND;
2043 #endif
2044 vlim_t=a;
2045 }
2046 #if defined(_DERIVATE)
2047 vces_t_Vtnode_GND=(vces*(alces*dT_Vtnode_GND));
2048 #endif
2049 vces_t=(vces*(1+(alces*dT)));
2050 #if defined(_DERIVATE)
2051 a_Vci_ei=0.0;
2052 a_Vbi_ei=0.0;
2053 a_Vbi_ci=0.0;
2054 a_Vtnode_GND=(r_VgVT_Vtnode_GND/mbci);
2055 #endif
2056 a=(r_VgVT/mbci);
2057 {
2058 double m00_exp(d00_exp0,a)
2059 #if defined(_DERIVATE)
2060 #define d10_exp0 d00_exp0
2061 #endif
2062 #if defined(_DERIVATE)
2063 ibcis_t_Vtnode_GND=(ibcis*a_Vtnode_GND*d10_exp0);
2064 #endif
2065 ibcis_t=(ibcis*d00_exp0);
2066 }
2067 if
2068 ((cjci0>0.0))
2069 {
2070 #if defined(_DERIVATE)
2071 vdj0_Vtnode_GND=((vdci*qtt0_Vtnode_GND)-V_gT_Vtnode_GND);
2072 #endif
2073 vdj0=((vdci*qtt0)-V_gT);
2074 vdj1=(0.1*vdci);
2075 #if defined(_DERIVATE)
2076 vdjt_Vtnode_GND=((vdj0_Vtnode_GND*VT-(vdj0-vdj1)*VT_Vtnode_GND)/VT/VT);
2077 #endif
2078 vdjt=((vdj0-vdj1)/VT);
2079 if
2080 ((vdjt<11.0))
2081 {
2082 {
2083 double m00_exp(d00_exp0,vdjt)
2084 double m00_logE(d00_logE1,(1.0+d00_exp0))
2085 #if defined(_DERIVATE)
2086 #define d10_exp0 d00_exp0
2087 double m10_logE(d10_logE1,d00_logE1,(1.0+d00_exp0))
2088 #endif
2089 #if defined(_DERIVATE)
2090 vdci_t_Vtnode_GND=((VT_Vtnode_GND*d00_logE1)+(VT*vdjt_Vtnode_GND*d10_exp0*d10_logE1));
2091 #endif
2092 vdci_t=(vdj1+(VT*d00_logE1));
2093 }
2094 }
2095 else
2096 {
2097 #if defined(_DERIVATE)
2098 vdci_t_Vtnode_GND=vdj0_Vtnode_GND;
2099 #endif
2100 vdci_t=vdj0;
2101 }
2102 {
2103 double m00_logE(d00_logE0,(vdci/vdci_t))
2104 double m00_exp(d00_exp1,(zci*d00_logE0))
2105 #if defined(_DERIVATE)
2106 double m10_logE(d10_logE0,d00_logE0,(vdci/vdci_t))
2107 #define d10_exp1 d00_exp1
2108 #endif
2109 #if defined(_DERIVATE)
2110 cjci0_t_Vtnode_GND=(cjci0*(zci*(-vdci*vdci_t_Vtnode_GND/vdci_t/vdci_t)*d10_logE0)*d10_exp1);
2111 #endif
2112 cjci0_t=(cjci0*d00_exp1);
2113 }
2114 if
2115 ((0==1))
2116 {
2117 #if defined(_DERIVATE)
2118 vptci_t_Vtnode_GND=((vptci*vdci_t_Vtnode_GND)/vdci);
2119 #endif
2120 vptci_t=((vptci*vdci_t)/vdci);
2121 }
2122 else
2123 {
2124 #if defined(_DERIVATE)
2125 vptci_t_Vtnode_GND=0.0;
2126 #endif
2127 vptci_t=vptci;
2128 }
2129 }
2130 else
2131 {
2132 #if defined(_DERIVATE)
2133 cjci0_t_Vtnode_GND=0.0;
2134 #endif
2135 cjci0_t=cjci0;
2136 #if defined(_DERIVATE)
2137 vdci_t_Vtnode_GND=0.0;
2138 #endif
2139 vdci_t=vdci;
2140 #if defined(_DERIVATE)
2141 vptci_t_Vtnode_GND=0.0;
2142 #endif
2143 vptci_t=vptci;
2144 }
2145 #if defined(_DERIVATE)
2146 t0_t_Vtnode_GND=(t0*((alt0*dT_Vtnode_GND)+(((kt0*dT_Vtnode_GND)*dT)+((kt0*dT)*dT_Vtnode_GND))));
2147 #endif
2148 t0_t=(t0*((1+(alt0*dT))+((kt0*dT)*dT)));
2149 #if defined(_DERIVATE)
2150 a_Vci_ei=0.0;
2151 a_Vbi_ei=0.0;
2152 a_Vbi_ci=0.0;
2153 a_Vtnode_GND=(alb*dT_Vtnode_GND);
2154 #endif
2155 a=(1.0+(alb*dT));
2156 {
2157 double m00_sqrt(d00_sqrt0,((a*a)+0.01))
2158 #if defined(_DERIVATE)
2159 double m10_sqrt(d10_sqrt0,d00_sqrt0,((a*a)+0.01))
2160 #endif
2161 #if defined(_DERIVATE)
2162 k_Vtnode_GND=(0.5*(a_Vtnode_GND+((a_Vtnode_GND*a)+(a*a_Vtnode_GND))*d10_sqrt0));
2163 #endif
2164 k=(0.5*(a+d00_sqrt0));
2165 }
2166 #if defined(_DERIVATE)
2167 tef0_t_Vtnode_GND=(((tef0*qtt0_Vtnode_GND)*k-(tef0*qtt0)*k_Vtnode_GND)/k/k);
2168 #endif
2169 tef0_t=((tef0*qtt0)/k);
2170 #if defined(_DERIVATE)
2171 thcs_t_Vtnode_GND=(((thcs*qtt0_zci_Vtnode_GND)*qtt0-(thcs*qtt0_zci)*qtt0_Vtnode_GND)/qtt0/qtt0);
2172 #endif
2173 thcs_t=((thcs*qtt0_zci)/qtt0);
2174 {
2175 double m00_exp(d00_exp0,(alfav*dT))
2176 #if defined(_DERIVATE)
2177 #define d10_exp0 d00_exp0
2178 #endif
2179 #if defined(_DERIVATE)
2180 favl_t_Vtnode_GND=(favl*(alfav*dT_Vtnode_GND)*d10_exp0);
2181 #endif
2182 favl_t=(favl*d00_exp0);
2183 }
2184 {
2185 double m00_exp(d00_exp0,(alqav*dT))
2186 #if defined(_DERIVATE)
2187 #define d10_exp0 d00_exp0
2188 #endif
2189 #if defined(_DERIVATE)
2190 qavl_t_Vtnode_GND=(qavl*(alqav*dT_Vtnode_GND)*d10_exp0);
2191 #endif
2192 qavl_t=(qavl*d00_exp0);
2193 }
2194 {
2195 double m00_exp(d00_exp0,(zetarbi*ln_qtt0))
2196 #if defined(_DERIVATE)
2197 #define d10_exp0 d00_exp0
2198 #endif
2199 #if defined(_DERIVATE)
2200 rbi0_t_Vtnode_GND=(rbi0*(zetarbi*ln_qtt0_Vtnode_GND)*d10_exp0);
2201 #endif
2202 rbi0_t=(rbi0*d00_exp0);
2203 }
2204 #if defined(_DERIVATE)
2205 a_Vci_ei=0.0;
2206 a_Vbi_ei=0.0;
2207 a_Vbi_ci=0.0;
2208 a_Vtnode_GND=(((mcf*r_VgVT_Vtnode_GND)/mbep)-(alb*dT_Vtnode_GND));
2209 #endif
2210 a=(((mcf*r_VgVT)/mbep)-(alb*dT));
2211 {
2212 double m00_exp(d00_exp0,a)
2213 #if defined(_DERIVATE)
2214 #define d10_exp0 d00_exp0
2215 #endif
2216 #if defined(_DERIVATE)
2217 ibeps_t_Vtnode_GND=(ibeps*a_Vtnode_GND*d10_exp0);
2218 #endif
2219 ibeps_t=(ibeps*d00_exp0);
2220 }
2221 #if defined(_DERIVATE)
2222 a_Vci_ei=0.0;
2223 a_Vbi_ei=0.0;
2224 a_Vbi_ci=0.0;
2225 a_Vtnode_GND=(((mcf*r_VgVT_Vtnode_GND)/mrep)-(alb*dT_Vtnode_GND));
2226 #endif
2227 a=(((mcf*r_VgVT)/mrep)-(alb*dT));
2228 {
2229 double m00_exp(d00_exp0,a)
2230 #if defined(_DERIVATE)
2231 #define d10_exp0 d00_exp0
2232 #endif
2233 #if defined(_DERIVATE)
2234 ireps_t_Vtnode_GND=(ireps*a_Vtnode_GND*d10_exp0);
2235 #endif
2236 ireps_t=(ireps*d00_exp0);
2237 }
2238 if
2239 ((cjep0>0.0))
2240 {
2241 #if defined(_DERIVATE)
2242 vdj0_Vtnode_GND=((vdep*qtt0_Vtnode_GND)-V_gT_Vtnode_GND);
2243 #endif
2244 vdj0=((vdep*qtt0)-V_gT);
2245 vdj1=(0.1*vdep);
2246 #if defined(_DERIVATE)
2247 vdjt_Vtnode_GND=((vdj0_Vtnode_GND*VT-(vdj0-vdj1)*VT_Vtnode_GND)/VT/VT);
2248 #endif
2249 vdjt=((vdj0-vdj1)/VT);
2250 if
2251 ((vdjt<11.0))
2252 {
2253 {
2254 double m00_exp(d00_exp0,vdjt)
2255 double m00_logE(d00_logE1,(1.0+d00_exp0))
2256 #if defined(_DERIVATE)
2257 #define d10_exp0 d00_exp0
2258 double m10_logE(d10_logE1,d00_logE1,(1.0+d00_exp0))
2259 #endif
2260 #if defined(_DERIVATE)
2261 vdep_t_Vtnode_GND=((VT_Vtnode_GND*d00_logE1)+(VT*vdjt_Vtnode_GND*d10_exp0*d10_logE1));
2262 #endif
2263 vdep_t=(vdj1+(VT*d00_logE1));
2264 }
2265 }
2266 else
2267 {
2268 #if defined(_DERIVATE)
2269 vdep_t_Vtnode_GND=vdj0_Vtnode_GND;
2270 #endif
2271 vdep_t=vdj0;
2272 }
2273 {
2274 double m00_logE(d00_logE0,(vdep/vdep_t))
2275 double m00_exp(d00_exp1,(zep*d00_logE0))
2276 #if defined(_DERIVATE)
2277 double m10_logE(d10_logE0,d00_logE0,(vdep/vdep_t))
2278 #define d10_exp1 d00_exp1
2279 #endif
2280 #if defined(_DERIVATE)
2281 cjep0_t_Vtnode_GND=(cjep0*(zep*(-vdep*vdep_t_Vtnode_GND/vdep_t/vdep_t)*d10_logE0)*d10_exp1);
2282 #endif
2283 cjep0_t=(cjep0*d00_exp1);
2284 }
2285 if
2286 ((1==1))
2287 {
2288 #if defined(_DERIVATE)
2289 aljep_t_Vtnode_GND=((aljep*vdep_t_Vtnode_GND)/vdep);
2290 #endif
2291 aljep_t=((aljep*vdep_t)/vdep);
2292 }
2293 else
2294 {
2295 #if defined(_DERIVATE)
2296 aljep_t_Vtnode_GND=0.0;
2297 #endif
2298 aljep_t=aljep;
2299 }
2300 }
2301 else
2302 {
2303 #if defined(_DERIVATE)
2304 cjep0_t_Vtnode_GND=0.0;
2305 #endif
2306 cjep0_t=cjep0;
2307 #if defined(_DERIVATE)
2308 vdep_t_Vtnode_GND=0.0;
2309 #endif
2310 vdep_t=vdep;
2311 #if defined(_DERIVATE)
2312 aljep_t_Vtnode_GND=0.0;
2313 #endif
2314 aljep_t=aljep;
2315 }
2316 #if defined(_DYNAMIC)
2317 C_1=((1.0-fbc)*(cjcx0+ccox));
2318 #endif
2319 #ifdef _DYNAMIC
2320 if
2321 ((C_1>=ccox))
2322 {
2323 #if defined(_DYNAMIC)
2324 ccox1=ccox;
2325 #endif
2326 #if defined(_DYNAMIC)
2327 ccox2=0;
2328 #endif
2329 #if defined(_DYNAMIC)
2330 cjcx01=(C_1-ccox);
2331 #endif
2332 #if defined(_DYNAMIC)
2333 cjcx02=(cjcx0-cjcx01);
2334 #endif
2335 }
2336 else
2337 {
2338 #if defined(_DYNAMIC)
2339 ccox1=C_1;
2340 #endif
2341 #if defined(_DYNAMIC)
2342 ccox2=(ccox-ccox1);
2343 #endif
2344 #if defined(_DYNAMIC)
2345 cjcx01=0.0;
2346 #endif
2347 #if defined(_DYNAMIC)
2348 cjcx02=cjcx0;
2349 #endif
2350 }
2351 #endif /* if (...) */
2352 #ifdef _DYNAMIC
2353 if
2354 ((1.0>0.0))
2355 {
2356 #if defined(_DYNAMIC)
2357 #if defined(_DERIVATE)
2358 vdj0_Vtnode_GND=((vdcx*qtt0_Vtnode_GND)-V_gT_Vtnode_GND);
2359 #endif
2360 vdj0=((vdcx*qtt0)-V_gT);
2361 #endif
2362 #if defined(_DYNAMIC)
2363 vdj1=(0.1*vdcx);
2364 #endif
2365 #if defined(_DYNAMIC)
2366 #if defined(_DERIVATE)
2367 vdjt_Vtnode_GND=((vdj0_Vtnode_GND*VT-(vdj0-vdj1)*VT_Vtnode_GND)/VT/VT);
2368 #endif
2369 vdjt=((vdj0-vdj1)/VT);
2370 #endif
2371 #ifdef _DYNAMIC
2372 if
2373 ((vdjt<11.0))
2374 {
2375 #if defined(_DYNAMIC)
2376 {
2377 double m00_exp(d00_exp0,vdjt)
2378 double m00_logE(d00_logE1,(1.0+d00_exp0))
2379 #if defined(_DERIVATE)
2380 #define d10_exp0 d00_exp0
2381 double m10_logE(d10_logE1,d00_logE1,(1.0+d00_exp0))
2382 #endif
2383 #if defined(_DERIVATE)
2384 vdcx_t_Vtnode_GND=((VT_Vtnode_GND*d00_logE1)+(VT*vdjt_Vtnode_GND*d10_exp0*d10_logE1));
2385 #endif
2386 vdcx_t=(vdj1+(VT*d00_logE1));
2387 }
2388 #endif
2389 }
2390 else
2391 {
2392 #if defined(_DYNAMIC)
2393 #if defined(_DERIVATE)
2394 vdcx_t_Vtnode_GND=vdj0_Vtnode_GND;
2395 #endif
2396 vdcx_t=vdj0;
2397 #endif
2398 }
2399 #endif /* if (...) */
2400 #if defined(_DYNAMIC)
2401 {
2402 double m00_logE(d00_logE0,(vdcx/vdcx_t))
2403 double m00_exp(d00_exp1,(zcx*d00_logE0))
2404 #if defined(_DERIVATE)
2405 double m10_logE(d10_logE0,d00_logE0,(vdcx/vdcx_t))
2406 #define d10_exp1 d00_exp1
2407 #endif
2408 #if defined(_DERIVATE)
2409 cratio_t_Vtnode_GND=(1.0*(zcx*(-vdcx*vdcx_t_Vtnode_GND/vdcx_t/vdcx_t)*d10_logE0)*d10_exp1);
2410 #endif
2411 cratio_t=(1.0*d00_exp1);
2412 }
2413 #endif
2414 #ifdef _DYNAMIC
2415 if
2416 ((0==1))
2417 {
2418 #if defined(_DYNAMIC)
2419 #if defined(_DERIVATE)
2420 vptcx_t_Vtnode_GND=((vptcx*vdcx_t_Vtnode_GND)/vdcx);
2421 #endif
2422 vptcx_t=((vptcx*vdcx_t)/vdcx);
2423 #endif
2424 }
2425 else
2426 {
2427 #if defined(_DYNAMIC)
2428 #if defined(_DERIVATE)
2429 vptcx_t_Vtnode_GND=0.0;
2430 #endif
2431 vptcx_t=vptcx;
2432 #endif
2433 }
2434 #endif /* if (...) */
2435 }
2436 else
2437 {
2438 #if defined(_DYNAMIC)
2439 #if defined(_DERIVATE)
2440 cratio_t_Vtnode_GND=0.0;
2441 #endif
2442 cratio_t=1.0;
2443 #endif
2444 #if defined(_DYNAMIC)
2445 #if defined(_DERIVATE)
2446 vdcx_t_Vtnode_GND=0.0;
2447 #endif
2448 vdcx_t=vdcx;
2449 #endif
2450 #if defined(_DYNAMIC)
2451 #if defined(_DERIVATE)
2452 vptcx_t_Vtnode_GND=0.0;
2453 #endif
2454 vptcx_t=vptcx;
2455 #endif
2456 }
2457 #endif /* if (...) */
2458 #if defined(_DYNAMIC)
2459 #if defined(_DERIVATE)
2460 cjcx01_t_Vtnode_GND=cratio_t_Vtnode_GND*cjcx01;
2461 #endif
2462 cjcx01_t=(cratio_t*cjcx01);
2463 #endif
2464 #if defined(_DYNAMIC)
2465 #if defined(_DERIVATE)
2466 cjcx02_t_Vtnode_GND=cratio_t_Vtnode_GND*cjcx02;
2467 #endif
2468 cjcx02_t=(cratio_t*cjcx02);
2469 #endif
2470 #if defined(_DERIVATE)
2471 a_Vci_ei=0.0;
2472 a_Vbi_ei=0.0;
2473 a_Vbi_ci=0.0;
2474 a_Vtnode_GND=(r_VgVT_Vtnode_GND/mbcx);
2475 #endif
2476 a=(r_VgVT/mbcx);
2477 {
2478 double m00_exp(d00_exp0,a)
2479 #if defined(_DERIVATE)
2480 #define d10_exp0 d00_exp0
2481 #endif
2482 #if defined(_DERIVATE)
2483 ibcxs_t_Vtnode_GND=(ibcxs*a_Vtnode_GND*d10_exp0);
2484 #endif
2485 ibcxs_t=(ibcxs*d00_exp0);
2486 }
2487 {
2488 double m00_exp(d00_exp0,(zetarcx*ln_qtt0))
2489 #if defined(_DERIVATE)
2490 #define d10_exp0 d00_exp0
2491 #endif
2492 #if defined(_DERIVATE)
2493 rcx_t_Vtnode_GND=(rcx*(zetarcx*ln_qtt0_Vtnode_GND)*d10_exp0);
2494 #endif
2495 rcx_t=(rcx*d00_exp0);
2496 }
2497 {
2498 double m00_exp(d00_exp0,(zetarbx*ln_qtt0))
2499 #if defined(_DERIVATE)
2500 #define d10_exp0 d00_exp0
2501 #endif
2502 #if defined(_DERIVATE)
2503 rbx_t_Vtnode_GND=(rbx*(zetarbx*ln_qtt0_Vtnode_GND)*d10_exp0);
2504 #endif
2505 rbx_t=(rbx*d00_exp0);
2506 }
2507 {
2508 double m00_exp(d00_exp0,(zetare*ln_qtt0))
2509 #if defined(_DERIVATE)
2510 #define d10_exp0 d00_exp0
2511 #endif
2512 #if defined(_DERIVATE)
2513 re_t_Vtnode_GND=(re*(zetare*ln_qtt0_Vtnode_GND)*d10_exp0);
2514 #endif
2515 re_t=(re*d00_exp0);
2516 }
2517 #if defined(_DYNAMIC)
2518 {
2519 double m00_exp(d00_exp0,((zetacx-1.0)*ln_qtt0))
2520 #if defined(_DERIVATE)
2521 #define d10_exp0 d00_exp0
2522 #endif
2523 #if defined(_DERIVATE)
2524 tsf_t_Vtnode_GND=(tsf*((zetacx-1.0)*ln_qtt0_Vtnode_GND)*d10_exp0);
2525 #endif
2526 tsf_t=(tsf*d00_exp0);
2527 }
2528 #endif
2529 #if defined(_DERIVATE)
2530 a_Vci_ei=0.0;
2531 a_Vbi_ei=0.0;
2532 a_Vbi_ci=0.0;
2533 a_Vtnode_GND=(r_VgVT_Vtnode_GND/msf);
2534 #endif
2535 a=(r_VgVT/msf);
2536 {
2537 double m00_exp(d00_exp0,a)
2538 #if defined(_DERIVATE)
2539 #define d10_exp0 d00_exp0
2540 #endif
2541 #if defined(_DERIVATE)
2542 itss_t_Vtnode_GND=(itss*a_Vtnode_GND*d10_exp0);
2543 #endif
2544 itss_t=(itss*d00_exp0);
2545 }
2546 #if defined(_DERIVATE)
2547 a_Vci_ei=0.0;
2548 a_Vbi_ei=0.0;
2549 a_Vbi_ci=0.0;
2550 a_Vtnode_GND=r_VgVT_Vtnode_GND*msc;
2551 #endif
2552 a=(r_VgVT*msc);
2553 {
2554 double m00_exp(d00_exp0,a)
2555 #if defined(_DERIVATE)
2556 #define d10_exp0 d00_exp0
2557 #endif
2558 #if defined(_DERIVATE)
2559 iscs_t_Vtnode_GND=(iscs*a_Vtnode_GND*d10_exp0);
2560 #endif
2561 iscs_t=(iscs*d00_exp0);
2562 }
2563 #ifdef _DYNAMIC
2564 if
2565 ((cjs0>0.0))
2566 {
2567 #if defined(_DYNAMIC)
2568 #if defined(_DERIVATE)
2569 vdj0_Vtnode_GND=((vds*qtt0_Vtnode_GND)-V_gT_Vtnode_GND);
2570 #endif
2571 vdj0=((vds*qtt0)-V_gT);
2572 #endif
2573 #if defined(_DYNAMIC)
2574 vdj1=(0.1*vds);
2575 #endif
2576 #if defined(_DYNAMIC)
2577 #if defined(_DERIVATE)
2578 vdjt_Vtnode_GND=((vdj0_Vtnode_GND*VT-(vdj0-vdj1)*VT_Vtnode_GND)/VT/VT);
2579 #endif
2580 vdjt=((vdj0-vdj1)/VT);
2581 #endif
2582 #ifdef _DYNAMIC
2583 if
2584 ((vdjt<11.0))
2585 {
2586 #if defined(_DYNAMIC)
2587 {
2588 double m00_exp(d00_exp0,vdjt)
2589 double m00_logE(d00_logE1,(1.0+d00_exp0))
2590 #if defined(_DERIVATE)
2591 #define d10_exp0 d00_exp0
2592 double m10_logE(d10_logE1,d00_logE1,(1.0+d00_exp0))
2593 #endif
2594 #if defined(_DERIVATE)
2595 vds_t_Vtnode_GND=((VT_Vtnode_GND*d00_logE1)+(VT*vdjt_Vtnode_GND*d10_exp0*d10_logE1));
2596 #endif
2597 vds_t=(vdj1+(VT*d00_logE1));
2598 }
2599 #endif
2600 }
2601 else
2602 {
2603 #if defined(_DYNAMIC)
2604 #if defined(_DERIVATE)
2605 vds_t_Vtnode_GND=vdj0_Vtnode_GND;
2606 #endif
2607 vds_t=vdj0;
2608 #endif
2609 }
2610 #endif /* if (...) */
2611 #if defined(_DYNAMIC)
2612 {
2613 double m00_logE(d00_logE0,(vds/vds_t))
2614 double m00_exp(d00_exp1,(zs*d00_logE0))
2615 #if defined(_DERIVATE)
2616 double m10_logE(d10_logE0,d00_logE0,(vds/vds_t))
2617 #define d10_exp1 d00_exp1
2618 #endif
2619 #if defined(_DERIVATE)
2620 cjs0_t_Vtnode_GND=(cjs0*(zs*(-vds*vds_t_Vtnode_GND/vds_t/vds_t)*d10_logE0)*d10_exp1);
2621 #endif
2622 cjs0_t=(cjs0*d00_exp1);
2623 }
2624 #endif
2625 #ifdef _DYNAMIC
2626 if
2627 ((0==1))
2628 {
2629 #if defined(_DYNAMIC)
2630 #if defined(_DERIVATE)
2631 vpts_t_Vtnode_GND=((vpts*vds_t_Vtnode_GND)/vds);
2632 #endif
2633 vpts_t=((vpts*vds_t)/vds);
2634 #endif
2635 }
2636 else
2637 {
2638 #if defined(_DYNAMIC)
2639 #if defined(_DERIVATE)
2640 vpts_t_Vtnode_GND=0.0;
2641 #endif
2642 vpts_t=vpts;
2643 #endif
2644 }
2645 #endif /* if (...) */
2646 }
2647 else
2648 {
2649 #if defined(_DYNAMIC)
2650 #if defined(_DERIVATE)
2651 cjs0_t_Vtnode_GND=0.0;
2652 #endif
2653 cjs0_t=cjs0;
2654 #endif
2655 #if defined(_DYNAMIC)
2656 #if defined(_DERIVATE)
2657 vds_t_Vtnode_GND=0.0;
2658 #endif
2659 vds_t=vds;
2660 #endif
2661 #if defined(_DYNAMIC)
2662 #if defined(_DERIVATE)
2663 vpts_t_Vtnode_GND=0.0;
2664 #endif
2665 vpts_t=vpts;
2666 #endif
2667 }
2668 #endif /* if (...) */
2669 #if defined(_DERIVATE)
2670 DIOY_Vsi_ci=0.0;
2671 DIOY_Vbp_ci=0.0;
2672 DIOY_Vbp_ei=0.0;
2673 DIOY_Vbi_ci=0.0;
2674 DIOY_Vbi_ei=(1/(mbei*VT));
2675 DIOY_Vtnode_GND=(-BP(bi,ei)*(mbei*VT_Vtnode_GND)/(mbei*VT)/(mbei*VT));
2676 #endif
2677 DIOY=(BP(bi,ei)/(mbei*VT));
2678 if
2679 ((ibeis>0.0))
2680 {
2681 if
2682 ((DIOY>80.0))
2683 {
2684 #if defined(_DERIVATE)
2685 le_Vsi_ci=0.0;
2686 le_Vbp_ci=0.0;
2687 le_Vbp_ei=0.0;
2688 le_Vbi_ci=0.0;
2689 le_Vbi_ei=DIOY_Vbi_ei;
2690 le_Vtnode_GND=DIOY_Vtnode_GND;
2691 #endif
2692 le=(1+(DIOY-80.0));
2693 #if defined(_DERIVATE)
2694 DIOY_Vsi_ci=0.0;
2695 DIOY_Vbp_ci=0.0;
2696 DIOY_Vbp_ei=0.0;
2697 DIOY_Vbi_ci=0.0;
2698 DIOY_Vbi_ei=0.0;
2699 DIOY_Vtnode_GND=0.0;
2700 #endif
2701 DIOY=80.0;
2702 }
2703 else
2704 {
2705 #if defined(_DERIVATE)
2706 le_Vsi_ci=0.0;
2707 le_Vbp_ci=0.0;
2708 le_Vbp_ei=0.0;
2709 le_Vbi_ci=0.0;
2710 le_Vbi_ei=0.0;
2711 le_Vtnode_GND=0.0;
2712 #endif
2713 le=1;
2714 }
2715 {
2716 double m00_limexp(d00_limexp0,DIOY)
2717 #if defined(_DERIVATE)
2718 double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
2719 #endif
2720 #if defined(_DERIVATE)
2721 le_Vsi_ci=0.0;
2722 le_Vbp_ci=0.0;
2723 le_Vbp_ei=0.0;
2724 le_Vbi_ci=0.0;
2725 le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
2726 le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
2727 #endif
2728 le=(le*d00_limexp0);
2729 }
2730 #if defined(_DERIVATE)
2731 ibei_Vtnode_GND=((ibeis_t_Vtnode_GND*(le-1.0))+(ibeis_t*le_Vtnode_GND));
2732 ibei_Vbi_ei=(ibeis_t*le_Vbi_ei);
2733 #endif
2734 ibei=(ibeis_t*(le-1.0));
2735 if
2736 ((DIOY<=(-14.0)))
2737 {
2738 #if defined(_DERIVATE)
2739 ibei_Vtnode_GND=(-ibeis_t_Vtnode_GND);
2740 ibei_Vbi_ei=0.0;
2741 #endif
2742 ibei=(-ibeis_t);
2743 }
2744 }
2745 else
2746 {
2747 #if defined(_DERIVATE)
2748 ibei_Vtnode_GND=0.0;
2749 ibei_Vbi_ei=0.0;
2750 #endif
2751 ibei=0.0;
2752 }
2753 #if defined(_DERIVATE)
2754 DIOY_Vsi_ci=0.0;
2755 DIOY_Vbp_ci=0.0;
2756 DIOY_Vbp_ei=0.0;
2757 DIOY_Vbi_ci=0.0;
2758 DIOY_Vbi_ei=(1/(mrei*VT));
2759 DIOY_Vtnode_GND=(-BP(bi,ei)*(mrei*VT_Vtnode_GND)/(mrei*VT)/(mrei*VT));
2760 #endif
2761 DIOY=(BP(bi,ei)/(mrei*VT));
2762 if
2763 ((ireis>0.0))
2764 {
2765 if
2766 ((DIOY>80.0))
2767 {
2768 #if defined(_DERIVATE)
2769 le_Vsi_ci=0.0;
2770 le_Vbp_ci=0.0;
2771 le_Vbp_ei=0.0;
2772 le_Vbi_ci=0.0;
2773 le_Vbi_ei=DIOY_Vbi_ei;
2774 le_Vtnode_GND=DIOY_Vtnode_GND;
2775 #endif
2776 le=(1+(DIOY-80.0));
2777 #if defined(_DERIVATE)
2778 DIOY_Vsi_ci=0.0;
2779 DIOY_Vbp_ci=0.0;
2780 DIOY_Vbp_ei=0.0;
2781 DIOY_Vbi_ci=0.0;
2782 DIOY_Vbi_ei=0.0;
2783 DIOY_Vtnode_GND=0.0;
2784 #endif
2785 DIOY=80.0;
2786 }
2787 else
2788 {
2789 #if defined(_DERIVATE)
2790 le_Vsi_ci=0.0;
2791 le_Vbp_ci=0.0;
2792 le_Vbp_ei=0.0;
2793 le_Vbi_ci=0.0;
2794 le_Vbi_ei=0.0;
2795 le_Vtnode_GND=0.0;
2796 #endif
2797 le=1;
2798 }
2799 {
2800 double m00_limexp(d00_limexp0,DIOY)
2801 #if defined(_DERIVATE)
2802 double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
2803 #endif
2804 #if defined(_DERIVATE)
2805 le_Vsi_ci=0.0;
2806 le_Vbp_ci=0.0;
2807 le_Vbp_ei=0.0;
2808 le_Vbi_ci=0.0;
2809 le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
2810 le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
2811 #endif
2812 le=(le*d00_limexp0);
2813 }
2814 #if defined(_DERIVATE)
2815 irei_Vtnode_GND=((ireis_t_Vtnode_GND*(le-1.0))+(ireis_t*le_Vtnode_GND));
2816 irei_Vbi_ei=(ireis_t*le_Vbi_ei);
2817 #endif
2818 irei=(ireis_t*(le-1.0));
2819 if
2820 ((DIOY<=(-14.0)))
2821 {
2822 #if defined(_DERIVATE)
2823 irei_Vtnode_GND=(-ireis_t_Vtnode_GND);
2824 irei_Vbi_ei=0.0;
2825 #endif
2826 irei=(-ireis_t);
2827 }
2828 }
2829 else
2830 {
2831 #if defined(_DERIVATE)
2832 irei_Vtnode_GND=0.0;
2833 irei_Vbi_ei=0.0;
2834 #endif
2835 irei=0.0;
2836 }
2837 if
2838 ((ich>0.0))
2839 {
2840 Oich=(1.0/ich);
2841 }
2842 else
2843 {
2844 Oich=0.0;
2845 }
2846 if
2847 ((vpt>0.0))
2848 {
2849 Ovpt=(1.0/vpt);
2850 }
2851 else
2852 {
2853 Ovpt=0.0;
2854 }
2855 Tr=tr;
2856 #if defined(_DERIVATE)
2857 VT_f_Vtnode_GND=(mcf*VT_Vtnode_GND);
2858 #endif
2859 VT_f=(mcf*VT);
2860 {
2861 double m00_limexp(d00_limexp0,(BP(bi,ei)/VT_f))
2862 #if defined(_DERIVATE)
2863 double m10_limexp(d10_limexp0,d00_limexp0,(BP(bi,ei)/VT_f))
2864 #endif
2865 #if defined(_DERIVATE)
2866 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));
2867 i_0f_Vbi_ei=(c10_t*(1/VT_f)*d10_limexp0);
2868 #endif
2869 i_0f=(c10_t*d00_limexp0);
2870 }
2871 {
2872 double m00_limexp(d00_limexp0,(BP(bi,ci)/VT))
2873 #if defined(_DERIVATE)
2874 double m10_limexp(d10_limexp0,d00_limexp0,(BP(bi,ci)/VT))
2875 #endif
2876 #if defined(_DERIVATE)
2877 i_0r_Vtnode_GND=((c10_t_Vtnode_GND*d00_limexp0)+(c10_t*(-BP(bi,ci)*VT_Vtnode_GND/VT/VT)*d10_limexp0));
2878 i_0r_Vbi_ci=(c10_t*(1/VT)*d10_limexp0);
2879 #endif
2880 i_0r=(c10_t*d00_limexp0);
2881 }
2882 if
2883 ((cjei0_t>0.0))
2884 {
2885 {
2886 double m00_logE(d00_logE0,aljei_t)
2887 double m00_exp(d00_exp1,((-d00_logE0)/zei))
2888 #if defined(_DERIVATE)
2889 double m10_logE(d10_logE0,d00_logE0,aljei_t)
2890 #define d10_exp1 d00_exp1
2891 #endif
2892 #if defined(_DERIVATE)
2893 DFV_f_Vtnode_GND=((vdei_t_Vtnode_GND*(1.0-d00_exp1))+(vdei_t*(-((-aljei_t_Vtnode_GND*d10_logE0)/zei)*d10_exp1)));
2894 #endif
2895 DFV_f=(vdei_t*(1.0-d00_exp1));
2896 }
2897 #if defined(_DERIVATE)
2898 DFC_max_Vtnode_GND=((aljei_t_Vtnode_GND*cjei0_t)+(aljei_t*cjei0_t_Vtnode_GND));
2899 #endif
2900 DFC_max=(aljei_t*cjei0_t);
2901 #if defined(_DERIVATE)
2902 DFv_e_Vsi_ci=0.0;
2903 DFv_e_Vb_ci=0.0;
2904 DFv_e_Vbp_ci=0.0;
2905 DFv_e_Vbp_ei=0.0;
2906 DFv_e_Vbi_ci=0.0;
2907 DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(bi,ei))*VT_Vtnode_GND)/VT/VT);
2908 DFv_e_Vbi_ei=((-1.0)/VT);
2909 #endif
2910 DFv_e=((DFV_f-BP(bi,ei))/VT);
2911 if
2912 ((DFv_e<80.0))
2913 {
2914 {
2915 double m00_exp(d00_exp0,DFv_e)
2916 #if defined(_DERIVATE)
2917 #define d10_exp0 d00_exp0
2918 #endif
2919 #if defined(_DERIVATE)
2920 DFe_Vsi_ci=0.0;
2921 DFe_Vb_ci=0.0;
2922 DFe_Vbp_ci=0.0;
2923 DFe_Vbp_ei=0.0;
2924 DFe_Vbi_ci=0.0;
2925 DFe_Vtnode_GND=DFv_e_Vtnode_GND*d10_exp0;
2926 DFe_Vbi_ei=DFv_e_Vbi_ei*d10_exp0;
2927 #endif
2928 DFe=d00_exp0;
2929 }
2930 {
2931 double m00_logE(d00_logE0,(1.0+DFe))
2932 #if defined(_DERIVATE)
2933 double m10_logE(d10_logE0,d00_logE0,(1.0+DFe))
2934 #endif
2935 #if defined(_DERIVATE)
2936 DFv_j_Vsi_ci=0.0;
2937 DFv_j_Vb_ci=0.0;
2938 DFv_j_Vbp_ci=0.0;
2939 DFv_j_Vbp_ei=0.0;
2940 DFv_j_Vbi_ci=0.0;
2941 DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*DFe_Vtnode_GND*d10_logE0)));
2942 DFv_j_Vbi_ei=(-(VT*DFe_Vbi_ei*d10_logE0));
2943 #endif
2944 DFv_j=(DFV_f-(VT*d00_logE0));
2945 }
2946 #if defined(_DERIVATE)
2947 DFdvj_dv_Vsi_ci=0.0;
2948 DFdvj_dv_Vb_ci=0.0;
2949 DFdvj_dv_Vbp_ci=0.0;
2950 DFdvj_dv_Vbp_ei=0.0;
2951 DFdvj_dv_Vbi_ci=0.0;
2952 DFdvj_dv_Vtnode_GND=((DFe_Vtnode_GND*(1.0+DFe)-DFe*DFe_Vtnode_GND)/(1.0+DFe)/(1.0+DFe));
2953 DFdvj_dv_Vbi_ei=((DFe_Vbi_ei*(1.0+DFe)-DFe*DFe_Vbi_ei)/(1.0+DFe)/(1.0+DFe));
2954 #endif
2955 DFdvj_dv=(DFe/(1.0+DFe));
2956 }
2957 else
2958 {
2959 #if defined(_DERIVATE)
2960 DFv_j_Vsi_ci=0.0;
2961 DFv_j_Vb_ci=0.0;
2962 DFv_j_Vbp_ci=0.0;
2963 DFv_j_Vbp_ei=0.0;
2964 DFv_j_Vbi_ci=0.0;
2965 DFv_j_Vtnode_GND=0.0;
2966 DFv_j_Vbi_ei=1.0;
2967 #endif
2968 DFv_j=BP(bi,ei);
2969 #if defined(_DERIVATE)
2970 DFdvj_dv_Vsi_ci=0.0;
2971 DFdvj_dv_Vb_ci=0.0;
2972 DFdvj_dv_Vbp_ci=0.0;
2973 DFdvj_dv_Vbp_ei=0.0;
2974 DFdvj_dv_Vbi_ci=0.0;
2975 DFdvj_dv_Vtnode_GND=0.0;
2976 DFdvj_dv_Vbi_ei=0.0;
2977 #endif
2978 DFdvj_dv=1;
2979 }
2980 {
2981 double m00_logE(d00_logE0,(1.0-(DFv_j/vdei_t)))
2982 #if defined(_DERIVATE)
2983 double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdei_t)))
2984 #endif
2985 #if defined(_DERIVATE)
2986 DFb_Vsi_ci=0.0;
2987 DFb_Vb_ci=0.0;
2988 DFb_Vbp_ci=0.0;
2989 DFb_Vbp_ei=0.0;
2990 DFb_Vbi_ci=0.0;
2991 DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdei_t-DFv_j*vdei_t_Vtnode_GND)/vdei_t/vdei_t))*d10_logE0;
2992 DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdei_t))*d10_logE0;
2993 #endif
2994 DFb=d00_logE0;
2995 }
2996 {
2997 double m00_exp(d00_exp0,((-zei)*DFb))
2998 #if defined(_DERIVATE)
2999 #define d10_exp0 d00_exp0
3000 #endif
3001 #if defined(_DERIVATE)
3002 DFC_j1_Vsi_ci=0.0;
3003 DFC_j1_Vb_ci=0.0;
3004 DFC_j1_Vbp_ci=0.0;
3005 DFC_j1_Vbp_ei=0.0;
3006 DFC_j1_Vbi_ci=0.0;
3007 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));
3008 DFC_j1_Vbi_ei=(((cjei0_t*((-zei)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjei0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
3009 #endif
3010 DFC_j1=((cjei0_t*d00_exp0)*DFdvj_dv);
3011 }
3012 #if defined(_DYNAMIC)
3013 Cjei=(DFC_j1+(DFC_max*(1.0-DFdvj_dv)));
3014 #endif
3015 {
3016 double m00_exp(d00_exp0,(DFb*(1.0-zei)))
3017 #if defined(_DERIVATE)
3018 #define d10_exp0 d00_exp0
3019 #endif
3020 #if defined(_DERIVATE)
3021 DFQ_j_Vsi_ci=0.0;
3022 DFQ_j_Vb_ci=0.0;
3023 DFQ_j_Vbp_ci=0.0;
3024 DFQ_j_Vbp_ei=0.0;
3025 DFQ_j_Vbi_ci=0.0;
3026 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));
3027 DFQ_j_Vbi_ei=(((cjei0_t*vdei_t)*(-DFb_Vbi_ei*(1.0-zei)*d10_exp0))/(1.0-zei));
3028 #endif
3029 DFQ_j=(((cjei0_t*vdei_t)*(1.0-d00_exp0))/(1.0-zei));
3030 }
3031 #if defined(_DERIVATE)
3032 Qjei_Vtnode_GND=(DFQ_j_Vtnode_GND+((DFC_max_Vtnode_GND*(BP(bi,ei)-DFv_j))+(DFC_max*(-DFv_j_Vtnode_GND))));
3033 Qjei_Vbi_ei=(DFQ_j_Vbi_ei+(DFC_max*(1.0-DFv_j_Vbi_ei)));
3034 #endif
3035 Qjei=(DFQ_j+(DFC_max*(BP(bi,ei)-DFv_j)));
3036 }
3037 else
3038 {
3039 #if defined(_DYNAMIC)
3040 Cjei=0.0;
3041 #endif
3042 #if defined(_DERIVATE)
3043 Qjei_Vtnode_GND=0.0;
3044 Qjei_Vbi_ei=0.0;
3045 #endif
3046 Qjei=0.0;
3047 }
3048 if
3049 ((vptci_t<1.0e2))
3050 {
3051 if
3052 ((cjci0_t>0.0))
3053 {
3054 Dz_r=(zci/4.0);
3055 #if defined(_DERIVATE)
3056 Dv_p_Vtnode_GND=(vptci_t_Vtnode_GND-vdci_t_Vtnode_GND);
3057 #endif
3058 Dv_p=(vptci_t-vdci_t);
3059 {
3060 double m00_logE(d00_logE0,2.4)
3061 double m00_exp(d00_exp1,((-d00_logE0)/zci))
3062 #if defined(_DERIVATE)
3063 DV_f_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
3064 #endif
3065 DV_f=(vdci_t*(1.0-d00_exp1));
3066 }
3067 #if defined(_DERIVATE)
3068 DC_max_Vtnode_GND=(2.4*cjci0_t_Vtnode_GND);
3069 #endif
3070 DC_max=(2.4*cjci0_t);
3071 {
3072 double m00_logE(d00_logE0,(vptci_t/vdci_t))
3073 double m00_exp(d00_exp1,(d00_logE0*(Dz_r-zci)))
3074 #if defined(_DERIVATE)
3075 double m10_logE(d10_logE0,d00_logE0,(vptci_t/vdci_t))
3076 #define d10_exp1 d00_exp1
3077 #endif
3078 #if defined(_DERIVATE)
3079 DC_c_Vtnode_GND=((cjci0_t_Vtnode_GND*d00_exp1)+(cjci0_t*((vptci_t_Vtnode_GND*vdci_t-vptci_t*vdci_t_Vtnode_GND)/vdci_t/vdci_t)*d10_logE0*(Dz_r-zci)*d10_exp1));
3080 #endif
3081 DC_c=(cjci0_t*d00_exp1);
3082 }
3083 #if defined(_DERIVATE)
3084 Da_Vtnode_GND=VT_Vtnode_GND;
3085 #endif
3086 Da=VT;
3087 #if defined(_DERIVATE)
3088 Dv_e_Vsi_ci=0.0;
3089 Dv_e_Vb_ci=0.0;
3090 Dv_e_Vbp_ci=0.0;
3091 Dv_e_Vtnode_GND=((DV_f_Vtnode_GND*Da-(DV_f-BP(bi,ci))*Da_Vtnode_GND)/Da/Da);
3092 Dv_e_Vbi_ci=((-1.0)/Da);
3093 #endif
3094 Dv_e=((DV_f-BP(bi,ci))/Da);
3095 if
3096 ((Dv_e<80.0))
3097 {
3098 {
3099 double m00_exp(d00_exp0,Dv_e)
3100 #if defined(_DERIVATE)
3101 #define d10_exp0 d00_exp0
3102 #endif
3103 #if defined(_DERIVATE)
3104 De_Vsi_ci=0.0;
3105 De_Vb_ci=0.0;
3106 De_Vbp_ci=0.0;
3107 De_Vtnode_GND=Dv_e_Vtnode_GND*d10_exp0;
3108 De_Vbi_ci=Dv_e_Vbi_ci*d10_exp0;
3109 #endif
3110 De=d00_exp0;
3111 }
3112 #if defined(_DERIVATE)
3113 De_1_Vsi_ci=0.0;
3114 De_1_Vb_ci=0.0;
3115 De_1_Vbp_ci=0.0;
3116 De_1_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
3117 De_1_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
3118 #endif
3119 De_1=(De/(1.0+De));
3120 {
3121 double m00_logE(d00_logE0,(1.0+De))
3122 #if defined(_DERIVATE)
3123 double m10_logE(d10_logE0,d00_logE0,(1.0+De))
3124 #endif
3125 #if defined(_DERIVATE)
3126 Dv_j1_Vsi_ci=0.0;
3127 Dv_j1_Vb_ci=0.0;
3128 Dv_j1_Vbp_ci=0.0;
3129 Dv_j1_Vtnode_GND=(DV_f_Vtnode_GND-((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
3130 Dv_j1_Vbi_ci=(-(Da*De_Vbi_ci*d10_logE0));
3131 #endif
3132 Dv_j1=(DV_f-(Da*d00_logE0));
3133 }
3134 }
3135 else
3136 {
3137 #if defined(_DERIVATE)
3138 De_1_Vsi_ci=0.0;
3139 De_1_Vb_ci=0.0;
3140 De_1_Vbp_ci=0.0;
3141 De_1_Vtnode_GND=0.0;
3142 De_1_Vbi_ci=0.0;
3143 #endif
3144 De_1=1.0;
3145 #if defined(_DERIVATE)
3146 Dv_j1_Vsi_ci=0.0;
3147 Dv_j1_Vb_ci=0.0;
3148 Dv_j1_Vbp_ci=0.0;
3149 Dv_j1_Vtnode_GND=0.0;
3150 Dv_j1_Vbi_ci=1.0;
3151 #endif
3152 Dv_j1=BP(bi,ci);
3153 }
3154 #if defined(_DERIVATE)
3155 Da_Vtnode_GND=((0.1*Dv_p_Vtnode_GND)+(4.0*VT_Vtnode_GND));
3156 #endif
3157 Da=((0.1*Dv_p)+(4.0*VT));
3158 #if defined(_DERIVATE)
3159 Dv_r_Vsi_ci=0.0;
3160 Dv_r_Vb_ci=0.0;
3161 Dv_r_Vbp_ci=0.0;
3162 Dv_r_Vtnode_GND=(((Dv_p_Vtnode_GND+Dv_j1_Vtnode_GND)*Da-(Dv_p+Dv_j1)*Da_Vtnode_GND)/Da/Da);
3163 Dv_r_Vbi_ci=(Dv_j1_Vbi_ci/Da);
3164 #endif
3165 Dv_r=((Dv_p+Dv_j1)/Da);
3166 if
3167 ((Dv_r<80.0))
3168 {
3169 {
3170 double m00_exp(d00_exp0,Dv_r)
3171 #if defined(_DERIVATE)
3172 #define d10_exp0 d00_exp0
3173 #endif
3174 #if defined(_DERIVATE)
3175 De_Vsi_ci=0.0;
3176 De_Vb_ci=0.0;
3177 De_Vbp_ci=0.0;
3178 De_Vtnode_GND=Dv_r_Vtnode_GND*d10_exp0;
3179 De_Vbi_ci=Dv_r_Vbi_ci*d10_exp0;
3180 #endif
3181 De=d00_exp0;
3182 }
3183 #if defined(_DERIVATE)
3184 De_2_Vsi_ci=0.0;
3185 De_2_Vb_ci=0.0;
3186 De_2_Vbp_ci=0.0;
3187 De_2_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
3188 De_2_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
3189 #endif
3190 De_2=(De/(1.0+De));
3191 {
3192 double m00_logE(d00_logE0,(1.0+De))
3193 #if defined(_DERIVATE)
3194 double m10_logE(d10_logE0,d00_logE0,(1.0+De))
3195 #endif
3196 #if defined(_DERIVATE)
3197 Dv_j2_Vsi_ci=0.0;
3198 Dv_j2_Vb_ci=0.0;
3199 Dv_j2_Vbp_ci=0.0;
3200 Dv_j2_Vtnode_GND=((-Dv_p_Vtnode_GND)+((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
3201 Dv_j2_Vbi_ci=(Da*De_Vbi_ci*d10_logE0);
3202 #endif
3203 Dv_j2=((-Dv_p)+(Da*d00_logE0));
3204 }
3205 }
3206 else
3207 {
3208 #if defined(_DERIVATE)
3209 De_2_Vsi_ci=0.0;
3210 De_2_Vb_ci=0.0;
3211 De_2_Vbp_ci=0.0;
3212 De_2_Vtnode_GND=0.0;
3213 De_2_Vbi_ci=0.0;
3214 #endif
3215 De_2=1.0;
3216 #if defined(_DERIVATE)
3217 Dv_j2_Vsi_ci=0.0;
3218 Dv_j2_Vb_ci=0.0;
3219 Dv_j2_Vbp_ci=0.0;
3220 Dv_j2_Vtnode_GND=Dv_j1_Vtnode_GND;
3221 Dv_j2_Vbi_ci=Dv_j1_Vbi_ci;
3222 #endif
3223 Dv_j2=Dv_j1;
3224 }
3225 #if defined(_DERIVATE)
3226 Dv_j4_Vsi_ci=0.0;
3227 Dv_j4_Vb_ci=0.0;
3228 Dv_j4_Vbp_ci=0.0;
3229 Dv_j4_Vbi_ci=(1.0-Dv_j1_Vbi_ci);
3230 Dv_j4_Vtnode_GND=(-Dv_j1_Vtnode_GND);
3231 #endif
3232 Dv_j4=(BP(bi,ci)-Dv_j1);
3233 {
3234 double m00_logE(d00_logE0,(1.0-(Dv_j1/vdci_t)))
3235 #if defined(_DERIVATE)
3236 double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j1/vdci_t)))
3237 #endif
3238 #if defined(_DERIVATE)
3239 DCln1_Vsi_ci=0.0;
3240 DCln1_Vb_ci=0.0;
3241 DCln1_Vbp_ci=0.0;
3242 DCln1_Vtnode_GND=(-((Dv_j1_Vtnode_GND*vdci_t-Dv_j1*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
3243 DCln1_Vbi_ci=(-(Dv_j1_Vbi_ci/vdci_t))*d10_logE0;
3244 #endif
3245 DCln1=d00_logE0;
3246 }
3247 {
3248 double m00_logE(d00_logE0,(1.0-(Dv_j2/vdci_t)))
3249 #if defined(_DERIVATE)
3250 double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j2/vdci_t)))
3251 #endif
3252 #if defined(_DERIVATE)
3253 DCln2_Vsi_ci=0.0;
3254 DCln2_Vb_ci=0.0;
3255 DCln2_Vbp_ci=0.0;
3256 DCln2_Vtnode_GND=(-((Dv_j2_Vtnode_GND*vdci_t-Dv_j2*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
3257 DCln2_Vbi_ci=(-(Dv_j2_Vbi_ci/vdci_t))*d10_logE0;
3258 #endif
3259 DCln2=d00_logE0;
3260 }
3261 Dz1=(1.0-zci);
3262 Dzr1=(1.0-Dz_r);
3263 {
3264 double m00_exp(d00_exp0,(DCln2*(-zci)))
3265 #if defined(_DERIVATE)
3266 #define d10_exp0 d00_exp0
3267 #endif
3268 #if defined(_DERIVATE)
3269 DC_j1_Vsi_ci=0.0;
3270 DC_j1_Vb_ci=0.0;
3271 DC_j1_Vbp_ci=0.0;
3272 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));
3273 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));
3274 #endif
3275 DC_j1=(((cjci0_t*d00_exp0)*De_1)*De_2);
3276 }
3277 {
3278 double m00_exp(d00_exp0,(DCln1*(-Dz_r)))
3279 #if defined(_DERIVATE)
3280 #define d10_exp0 d00_exp0
3281 #endif
3282 #if defined(_DERIVATE)
3283 DC_j2_Vsi_ci=0.0;
3284 DC_j2_Vb_ci=0.0;
3285 DC_j2_Vbp_ci=0.0;
3286 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)));
3287 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)));
3288 #endif
3289 DC_j2=((DC_c*d00_exp0)*(1.0-De_2));
3290 }
3291 #if defined(_DERIVATE)
3292 DC_j3_Vsi_ci=0.0;
3293 DC_j3_Vb_ci=0.0;
3294 DC_j3_Vbp_ci=0.0;
3295 DC_j3_Vtnode_GND=((DC_max_Vtnode_GND*(1.0-De_1))+(DC_max*(-De_1_Vtnode_GND)));
3296 DC_j3_Vbi_ci=(DC_max*(-De_1_Vbi_ci));
3297 #endif
3298 DC_j3=(DC_max*(1.0-De_1));
3299 #if defined(_DERIVATE)
3300 Cjci_Vbi_ei=0.0;
3301 Cjci_Vtnode_GND=((DC_j1_Vtnode_GND+DC_j2_Vtnode_GND)+DC_j3_Vtnode_GND);
3302 Cjci_Vbi_ci=((DC_j1_Vbi_ci+DC_j2_Vbi_ci)+DC_j3_Vbi_ci);
3303 #endif
3304 Cjci=((DC_j1+DC_j2)+DC_j3);
3305 {
3306 double m00_exp(d00_exp0,(DCln2*Dz1))
3307 #if defined(_DERIVATE)
3308 #define d10_exp0 d00_exp0
3309 #endif
3310 #if defined(_DERIVATE)
3311 DQ_j1_Vsi_ci=0.0;
3312 DQ_j1_Vb_ci=0.0;
3313 DQ_j1_Vbp_ci=0.0;
3314 DQ_j1_Vtnode_GND=(((cjci0_t_Vtnode_GND*(1.0-d00_exp0))+(cjci0_t*(-DCln2_Vtnode_GND*Dz1*d10_exp0)))/Dz1);
3315 DQ_j1_Vbi_ci=((cjci0_t*(-DCln2_Vbi_ci*Dz1*d10_exp0))/Dz1);
3316 #endif
3317 DQ_j1=((cjci0_t*(1.0-d00_exp0))/Dz1);
3318 }
3319 {
3320 double m00_exp(d00_exp0,(DCln1*Dzr1))
3321 #if defined(_DERIVATE)
3322 #define d10_exp0 d00_exp0
3323 #endif
3324 #if defined(_DERIVATE)
3325 DQ_j2_Vsi_ci=0.0;
3326 DQ_j2_Vb_ci=0.0;
3327 DQ_j2_Vbp_ci=0.0;
3328 DQ_j2_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln1_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
3329 DQ_j2_Vbi_ci=((DC_c*(-DCln1_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
3330 #endif
3331 DQ_j2=((DC_c*(1.0-d00_exp0))/Dzr1);
3332 }
3333 {
3334 double m00_exp(d00_exp0,(DCln2*Dzr1))
3335 #if defined(_DERIVATE)
3336 #define d10_exp0 d00_exp0
3337 #endif
3338 #if defined(_DERIVATE)
3339 DQ_j3_Vsi_ci=0.0;
3340 DQ_j3_Vb_ci=0.0;
3341 DQ_j3_Vbp_ci=0.0;
3342 DQ_j3_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln2_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
3343 DQ_j3_Vbi_ci=((DC_c*(-DCln2_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
3344 #endif
3345 DQ_j3=((DC_c*(1.0-d00_exp0))/Dzr1);
3346 }
3347 #if defined(_DERIVATE)
3348 Qjci_Vbi_ei=0.0;
3349 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)));
3350 Qjci_Vbi_ci=(((DQ_j1_Vbi_ci+DQ_j2_Vbi_ci)-DQ_j3_Vbi_ci)*vdci_t+(DC_max*Dv_j4_Vbi_ci));
3351 #endif
3352 Qjci=((((DQ_j1+DQ_j2)-DQ_j3)*vdci_t)+(DC_max*Dv_j4));
3353 }
3354 else
3355 {
3356 #if defined(_DERIVATE)
3357 Cjci_Vbi_ei=0.0;
3358 Cjci_Vtnode_GND=0.0;
3359 Cjci_Vbi_ci=0.0;
3360 #endif
3361 Cjci=0.0;
3362 #if defined(_DERIVATE)
3363 Qjci_Vbi_ei=0.0;
3364 Qjci_Vtnode_GND=0.0;
3365 Qjci_Vbi_ci=0.0;
3366 #endif
3367 Qjci=0.0;
3368 }
3369 }
3370 else
3371 {
3372 if
3373 ((cjci0_t>0.0))
3374 {
3375 {
3376 double m00_logE(d00_logE0,2.4)
3377 double m00_exp(d00_exp1,((-d00_logE0)/zci))
3378 #if defined(_DERIVATE)
3379 DFV_f_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
3380 #endif
3381 DFV_f=(vdci_t*(1.0-d00_exp1));
3382 }
3383 #if defined(_DERIVATE)
3384 DFC_max_Vtnode_GND=(2.4*cjci0_t_Vtnode_GND);
3385 #endif
3386 DFC_max=(2.4*cjci0_t);
3387 #if defined(_DERIVATE)
3388 DFv_e_Vsi_ci=0.0;
3389 DFv_e_Vb_ci=0.0;
3390 DFv_e_Vbp_ci=0.0;
3391 DFv_e_Vbp_ei=0.0;
3392 DFv_e_Vbi_ci=((-1.0)/VT);
3393 DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(bi,ci))*VT_Vtnode_GND)/VT/VT);
3394 DFv_e_Vbi_ei=0.0;
3395 #endif
3396 DFv_e=((DFV_f-BP(bi,ci))/VT);
3397 if
3398 ((DFv_e<80.0))
3399 {
3400 {
3401 double m00_exp(d00_exp0,DFv_e)
3402 #if defined(_DERIVATE)
3403 #define d10_exp0 d00_exp0
3404 #endif
3405 #if defined(_DERIVATE)
3406 DFe_Vsi_ci=0.0;
3407 DFe_Vb_ci=0.0;
3408 DFe_Vbp_ci=0.0;
3409 DFe_Vbp_ei=0.0;
3410 DFe_Vbi_ci=DFv_e_Vbi_ci*d10_exp0;
3411 DFe_Vtnode_GND=DFv_e_Vtnode_GND*d10_exp0;
3412 DFe_Vbi_ei=DFv_e_Vbi_ei*d10_exp0;
3413 #endif
3414 DFe=d00_exp0;
3415 }
3416 {
3417 double m00_logE(d00_logE0,(1.0+DFe))
3418 #if defined(_DERIVATE)
3419 double m10_logE(d10_logE0,d00_logE0,(1.0+DFe))
3420 #endif
3421 #if defined(_DERIVATE)
3422 DFv_j_Vsi_ci=0.0;
3423 DFv_j_Vb_ci=0.0;
3424 DFv_j_Vbp_ci=0.0;
3425 DFv_j_Vbp_ei=0.0;
3426 DFv_j_Vbi_ci=(-(VT*DFe_Vbi_ci*d10_logE0));
3427 DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*DFe_Vtnode_GND*d10_logE0)));
3428 DFv_j_Vbi_ei=(-(VT*DFe_Vbi_ei*d10_logE0));
3429 #endif
3430 DFv_j=(DFV_f-(VT*d00_logE0));
3431 }
3432 #if defined(_DERIVATE)
3433 DFdvj_dv_Vsi_ci=0.0;
3434 DFdvj_dv_Vb_ci=0.0;
3435 DFdvj_dv_Vbp_ci=0.0;
3436 DFdvj_dv_Vbp_ei=0.0;
3437 DFdvj_dv_Vbi_ci=((DFe_Vbi_ci*(1.0+DFe)-DFe*DFe_Vbi_ci)/(1.0+DFe)/(1.0+DFe));
3438 DFdvj_dv_Vtnode_GND=((DFe_Vtnode_GND*(1.0+DFe)-DFe*DFe_Vtnode_GND)/(1.0+DFe)/(1.0+DFe));
3439 DFdvj_dv_Vbi_ei=((DFe_Vbi_ei*(1.0+DFe)-DFe*DFe_Vbi_ei)/(1.0+DFe)/(1.0+DFe));
3440 #endif
3441 DFdvj_dv=(DFe/(1.0+DFe));
3442 }
3443 else
3444 {
3445 #if defined(_DERIVATE)
3446 DFv_j_Vsi_ci=0.0;
3447 DFv_j_Vb_ci=0.0;
3448 DFv_j_Vbp_ci=0.0;
3449 DFv_j_Vbp_ei=0.0;
3450 DFv_j_Vbi_ci=1.0;
3451 DFv_j_Vtnode_GND=0.0;
3452 DFv_j_Vbi_ei=0.0;
3453 #endif
3454 DFv_j=BP(bi,ci);
3455 #if defined(_DERIVATE)
3456 DFdvj_dv_Vsi_ci=0.0;
3457 DFdvj_dv_Vb_ci=0.0;
3458 DFdvj_dv_Vbp_ci=0.0;
3459 DFdvj_dv_Vbp_ei=0.0;
3460 DFdvj_dv_Vbi_ci=0.0;
3461 DFdvj_dv_Vtnode_GND=0.0;
3462 DFdvj_dv_Vbi_ei=0.0;
3463 #endif
3464 DFdvj_dv=1;
3465 }
3466 {
3467 double m00_logE(d00_logE0,(1.0-(DFv_j/vdci_t)))
3468 #if defined(_DERIVATE)
3469 double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdci_t)))
3470 #endif
3471 #if defined(_DERIVATE)
3472 DFb_Vsi_ci=0.0;
3473 DFb_Vb_ci=0.0;
3474 DFb_Vbp_ci=0.0;
3475 DFb_Vbp_ei=0.0;
3476 DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdci_t))*d10_logE0;
3477 DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdci_t-DFv_j*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
3478 DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdci_t))*d10_logE0;
3479 #endif
3480 DFb=d00_logE0;
3481 }
3482 {
3483 double m00_exp(d00_exp0,((-zci)*DFb))
3484 #if defined(_DERIVATE)
3485 #define d10_exp0 d00_exp0
3486 #endif
3487 #if defined(_DERIVATE)
3488 DFC_j1_Vsi_ci=0.0;
3489 DFC_j1_Vb_ci=0.0;
3490 DFC_j1_Vbp_ci=0.0;
3491 DFC_j1_Vbp_ei=0.0;
3492 DFC_j1_Vbi_ci=(((cjci0_t*((-zci)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjci0_t*d00_exp0)*DFdvj_dv_Vbi_ci));
3493 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));
3494 DFC_j1_Vbi_ei=(((cjci0_t*((-zci)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjci0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
3495 #endif
3496 DFC_j1=((cjci0_t*d00_exp0)*DFdvj_dv);
3497 }
3498 #if defined(_DERIVATE)
3499 Cjci_Vbi_ei=(DFC_j1_Vbi_ei+(DFC_max*(-DFdvj_dv_Vbi_ei)));
3500 Cjci_Vtnode_GND=(DFC_j1_Vtnode_GND+((DFC_max_Vtnode_GND*(1.0-DFdvj_dv))+(DFC_max*(-DFdvj_dv_Vtnode_GND))));
3501 Cjci_Vbi_ci=(DFC_j1_Vbi_ci+(DFC_max*(-DFdvj_dv_Vbi_ci)));
3502 #endif
3503 Cjci=(DFC_j1+(DFC_max*(1.0-DFdvj_dv)));
3504 {
3505 double m00_exp(d00_exp0,(DFb*(1.0-zci)))
3506 #if defined(_DERIVATE)
3507 #define d10_exp0 d00_exp0
3508 #endif
3509 #if defined(_DERIVATE)
3510 DFQ_j_Vsi_ci=0.0;
3511 DFQ_j_Vb_ci=0.0;
3512 DFQ_j_Vbp_ci=0.0;
3513 DFQ_j_Vbp_ei=0.0;
3514 DFQ_j_Vbi_ci=(((cjci0_t*vdci_t)*(-DFb_Vbi_ci*(1.0-zci)*d10_exp0))/(1.0-zci));
3515 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));
3516 DFQ_j_Vbi_ei=(((cjci0_t*vdci_t)*(-DFb_Vbi_ei*(1.0-zci)*d10_exp0))/(1.0-zci));
3517 #endif
3518 DFQ_j=(((cjci0_t*vdci_t)*(1.0-d00_exp0))/(1.0-zci));
3519 }
3520 #if defined(_DERIVATE)
3521 Qjci_Vbi_ei=(DFQ_j_Vbi_ei+(DFC_max*(-DFv_j_Vbi_ei)));
3522 Qjci_Vtnode_GND=(DFQ_j_Vtnode_GND+((DFC_max_Vtnode_GND*(BP(bi,ci)-DFv_j))+(DFC_max*(-DFv_j_Vtnode_GND))));
3523 Qjci_Vbi_ci=(DFQ_j_Vbi_ci+(DFC_max*(1.0-DFv_j_Vbi_ci)));
3524 #endif
3525 Qjci=(DFQ_j+(DFC_max*(BP(bi,ci)-DFv_j)));
3526 }
3527 else
3528 {
3529 #if defined(_DERIVATE)
3530 Cjci_Vbi_ei=0.0;
3531 Cjci_Vtnode_GND=0.0;
3532 Cjci_Vbi_ci=0.0;
3533 #endif
3534 Cjci=0.0;
3535 #if defined(_DERIVATE)
3536 Qjci_Vbi_ei=0.0;
3537 Qjci_Vtnode_GND=0.0;
3538 Qjci_Vbi_ci=0.0;
3539 #endif
3540 Qjci=0.0;
3541 }
3542 }
3543 #if defined(_DERIVATE)
3544 Q_0_Vtnode_GND=((qp0_t_Vtnode_GND+(hjei*Qjei_Vtnode_GND))+(hjci*Qjci_Vtnode_GND));
3545 Q_0_Vbi_ei=((hjei*Qjei_Vbi_ei)+(hjci*Qjci_Vbi_ei));
3546 Q_0_Vbi_ci=(hjci*Qjci_Vbi_ci);
3547 #endif
3548 Q_0=((qp0_t+(hjei*Qjei))+(hjci*Qjci));
3549 if
3550 ((Q_0<(0.6*qp0_t)))
3551 {
3552 a_bpt=0.05;
3553 #if defined(_DERIVATE)
3554 Q_bpt_Vtnode_GND=(a_bpt*qp0_t_Vtnode_GND);
3555 #endif
3556 Q_bpt=(a_bpt*qp0_t);
3557 #if defined(_DERIVATE)
3558 b_q_Vtnode_GND=((Q_0_Vtnode_GND*Q_bpt-Q_0*Q_bpt_Vtnode_GND)/Q_bpt/Q_bpt);
3559 b_q_Vbi_ei=(Q_0_Vbi_ei/Q_bpt);
3560 b_q_Vbi_ci=(Q_0_Vbi_ci/Q_bpt);
3561 #endif
3562 b_q=((Q_0/Q_bpt)-1.0);
3563 {
3564 double m00_exp(d00_exp0,b_q)
3565 double m00_logE(d00_logE1,(1+d00_exp0))
3566 #if defined(_DERIVATE)
3567 #define d10_exp0 d00_exp0
3568 double m10_logE(d10_logE1,d00_logE1,(1+d00_exp0))
3569 #endif
3570 #if defined(_DERIVATE)
3571 Q_0_Vtnode_GND=((Q_bpt_Vtnode_GND*(1+d00_logE1))+(Q_bpt*b_q_Vtnode_GND*d10_exp0*d10_logE1));
3572 Q_0_Vbi_ei=(Q_bpt*b_q_Vbi_ei*d10_exp0*d10_logE1);
3573 Q_0_Vbi_ci=(Q_bpt*b_q_Vbi_ci*d10_exp0*d10_logE1);
3574 #endif
3575 Q_0=(Q_bpt*(1+d00_logE1));
3576 }
3577 }
3578 if
3579 ((cjci0_t>0.0))
3580 {
3581 {
3582 double m00_logE(d00_logE0,2.4)
3583 double m00_exp(d00_exp1,((-d00_logE0)/zci))
3584 #if defined(_DERIVATE)
3585 DFV_f_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
3586 #endif
3587 DFV_f=(vdci_t*(1.0-d00_exp1));
3588 }
3589 #if defined(_DERIVATE)
3590 DFC_max_Vtnode_GND=(2.4*cjci0_t_Vtnode_GND);
3591 #endif
3592 DFC_max=(2.4*cjci0_t);
3593 #if defined(_DERIVATE)
3594 DFv_e_Vsi_ci=0.0;
3595 DFv_e_Vb_ci=0.0;
3596 DFv_e_Vbp_ci=0.0;
3597 DFv_e_Vbp_ei=0.0;
3598 DFv_e_Vbi_ci=((-1.0)/VT);
3599 DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(bi,ci))*VT_Vtnode_GND)/VT/VT);
3600 DFv_e_Vbi_ei=0.0;
3601 #endif
3602 DFv_e=((DFV_f-BP(bi,ci))/VT);
3603 if
3604 ((DFv_e<80.0))
3605 {
3606 {
3607 double m00_exp(d00_exp0,DFv_e)
3608 #if defined(_DERIVATE)
3609 #define d10_exp0 d00_exp0
3610 #endif
3611 #if defined(_DERIVATE)
3612 DFe_Vsi_ci=0.0;
3613 DFe_Vb_ci=0.0;
3614 DFe_Vbp_ci=0.0;
3615 DFe_Vbp_ei=0.0;
3616 DFe_Vbi_ci=DFv_e_Vbi_ci*d10_exp0;
3617 DFe_Vtnode_GND=DFv_e_Vtnode_GND*d10_exp0;
3618 DFe_Vbi_ei=DFv_e_Vbi_ei*d10_exp0;
3619 #endif
3620 DFe=d00_exp0;
3621 }
3622 {
3623 double m00_logE(d00_logE0,(1.0+DFe))
3624 #if defined(_DERIVATE)
3625 double m10_logE(d10_logE0,d00_logE0,(1.0+DFe))
3626 #endif
3627 #if defined(_DERIVATE)
3628 DFv_j_Vsi_ci=0.0;
3629 DFv_j_Vb_ci=0.0;
3630 DFv_j_Vbp_ci=0.0;
3631 DFv_j_Vbp_ei=0.0;
3632 DFv_j_Vbi_ci=(-(VT*DFe_Vbi_ci*d10_logE0));
3633 DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*DFe_Vtnode_GND*d10_logE0)));
3634 DFv_j_Vbi_ei=(-(VT*DFe_Vbi_ei*d10_logE0));
3635 #endif
3636 DFv_j=(DFV_f-(VT*d00_logE0));
3637 }
3638 #if defined(_DERIVATE)
3639 DFdvj_dv_Vsi_ci=0.0;
3640 DFdvj_dv_Vb_ci=0.0;
3641 DFdvj_dv_Vbp_ci=0.0;
3642 DFdvj_dv_Vbp_ei=0.0;
3643 DFdvj_dv_Vbi_ci=((DFe_Vbi_ci*(1.0+DFe)-DFe*DFe_Vbi_ci)/(1.0+DFe)/(1.0+DFe));
3644 DFdvj_dv_Vtnode_GND=((DFe_Vtnode_GND*(1.0+DFe)-DFe*DFe_Vtnode_GND)/(1.0+DFe)/(1.0+DFe));
3645 DFdvj_dv_Vbi_ei=((DFe_Vbi_ei*(1.0+DFe)-DFe*DFe_Vbi_ei)/(1.0+DFe)/(1.0+DFe));
3646 #endif
3647 DFdvj_dv=(DFe/(1.0+DFe));
3648 }
3649 else
3650 {
3651 #if defined(_DERIVATE)
3652 DFv_j_Vsi_ci=0.0;
3653 DFv_j_Vb_ci=0.0;
3654 DFv_j_Vbp_ci=0.0;
3655 DFv_j_Vbp_ei=0.0;
3656 DFv_j_Vbi_ci=1.0;
3657 DFv_j_Vtnode_GND=0.0;
3658 DFv_j_Vbi_ei=0.0;
3659 #endif
3660 DFv_j=BP(bi,ci);
3661 #if defined(_DERIVATE)
3662 DFdvj_dv_Vsi_ci=0.0;
3663 DFdvj_dv_Vb_ci=0.0;
3664 DFdvj_dv_Vbp_ci=0.0;
3665 DFdvj_dv_Vbp_ei=0.0;
3666 DFdvj_dv_Vbi_ci=0.0;
3667 DFdvj_dv_Vtnode_GND=0.0;
3668 DFdvj_dv_Vbi_ei=0.0;
3669 #endif
3670 DFdvj_dv=1;
3671 }
3672 {
3673 double m00_logE(d00_logE0,(1.0-(DFv_j/vdci_t)))
3674 #if defined(_DERIVATE)
3675 double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdci_t)))
3676 #endif
3677 #if defined(_DERIVATE)
3678 DFb_Vsi_ci=0.0;
3679 DFb_Vb_ci=0.0;
3680 DFb_Vbp_ci=0.0;
3681 DFb_Vbp_ei=0.0;
3682 DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdci_t))*d10_logE0;
3683 DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdci_t-DFv_j*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
3684 DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdci_t))*d10_logE0;
3685 #endif
3686 DFb=d00_logE0;
3687 }
3688 {
3689 double m00_exp(d00_exp0,((-zci)*DFb))
3690 #if defined(_DERIVATE)
3691 #define d10_exp0 d00_exp0
3692 #endif
3693 #if defined(_DERIVATE)
3694 DFC_j1_Vsi_ci=0.0;
3695 DFC_j1_Vb_ci=0.0;
3696 DFC_j1_Vbp_ci=0.0;
3697 DFC_j1_Vbp_ei=0.0;
3698 DFC_j1_Vbi_ci=(((cjci0_t*((-zci)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjci0_t*d00_exp0)*DFdvj_dv_Vbi_ci));
3699 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));
3700 DFC_j1_Vbi_ei=(((cjci0_t*((-zci)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjci0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
3701 #endif
3702 DFC_j1=((cjci0_t*d00_exp0)*DFdvj_dv);
3703 }
3704 #if defined(_DERIVATE)
3705 Cjcit_Vbi_ci=(DFC_j1_Vbi_ci+(DFC_max*(-DFdvj_dv_Vbi_ci)));
3706 Cjcit_Vtnode_GND=(DFC_j1_Vtnode_GND+((DFC_max_Vtnode_GND*(1.0-DFdvj_dv))+(DFC_max*(-DFdvj_dv_Vtnode_GND))));
3707 Cjcit_Vbi_ei=(DFC_j1_Vbi_ei+(DFC_max*(-DFdvj_dv_Vbi_ei)));
3708 #endif
3709 Cjcit=(DFC_j1+(DFC_max*(1.0-DFdvj_dv)));
3710 #if defined(_DYNAMIC)
3711 {
3712 double m00_exp(d00_exp0,(DFb*(1.0-zci)))
3713 #if defined(_DERIVATE)
3714 #define d10_exp0 d00_exp0
3715 #endif
3716 #if defined(_DERIVATE)
3717 DFQ_j_Vsi_ci=0.0;
3718 DFQ_j_Vb_ci=0.0;
3719 DFQ_j_Vbp_ci=0.0;
3720 DFQ_j_Vbp_ei=0.0;
3721 DFQ_j_Vbi_ci=(((cjci0_t*vdci_t)*(-DFb_Vbi_ci*(1.0-zci)*d10_exp0))/(1.0-zci));
3722 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));
3723 DFQ_j_Vbi_ei=(((cjci0_t*vdci_t)*(-DFb_Vbi_ei*(1.0-zci)*d10_exp0))/(1.0-zci));
3724 #endif
3725 DFQ_j=(((cjci0_t*vdci_t)*(1.0-d00_exp0))/(1.0-zci));
3726 }
3727 #endif
3728 #if defined(_DYNAMIC)
3729 d1=(DFQ_j+(DFC_max*(BP(bi,ci)-DFv_j)));
3730 #endif
3731 }
3732 else
3733 {
3734 #if defined(_DERIVATE)
3735 Cjcit_Vbi_ci=0.0;
3736 Cjcit_Vtnode_GND=0.0;
3737 Cjcit_Vbi_ei=0.0;
3738 #endif
3739 Cjcit=0.0;
3740 #if defined(_DYNAMIC)
3741 d1=0.0;
3742 #endif
3743 }
3744 if
3745 ((Cjcit>0.0))
3746 {
3747 #if defined(_DERIVATE)
3748 cc_Vtnode_GND=((cjci0_t_Vtnode_GND*Cjcit-cjci0_t*Cjcit_Vtnode_GND)/Cjcit/Cjcit);
3749 cc_Vbi_ci=(-cjci0_t*Cjcit_Vbi_ci/Cjcit/Cjcit);
3750 cc_Vbi_ei=(-cjci0_t*Cjcit_Vbi_ei/Cjcit/Cjcit);
3751 #endif
3752 cc=(cjci0_t/Cjcit);
3753 }
3754 else
3755 {
3756 #if defined(_DERIVATE)
3757 cc_Vtnode_GND=0.0;
3758 cc_Vbi_ci=0.0;
3759 cc_Vbi_ei=0.0;
3760 #endif
3761 cc=1.0;
3762 }
3763 #if defined(_DERIVATE)
3764 T_f0_Vtnode_GND=((t0_t_Vtnode_GND+(dt0h*cc_Vtnode_GND))+(tbvl*(-1*cc_Vtnode_GND/cc/cc)));
3765 T_f0_Vbi_ci=((dt0h*cc_Vbi_ci)+(tbvl*(-1*cc_Vbi_ci/cc/cc)));
3766 T_f0_Vbi_ei=((dt0h*cc_Vbi_ei)+(tbvl*(-1*cc_Vbi_ei/cc/cc)));
3767 #endif
3768 T_f0=((t0_t+(dt0h*(cc-1.0)))+(tbvl*((1/cc)-1.0)));
3769 #if defined(_DERIVATE)
3770 vc_Vci_ei=1.0;
3771 vc_Vtnode_GND=(-vces_t_Vtnode_GND);
3772 #endif
3773 vc=(BP(ci,ei)-vces_t);
3774 #if defined(_DERIVATE)
3775 ICKv_Vci_ei=(vc_Vci_ei/VT);
3776 ICKv_Vtnode_GND=((vc_Vtnode_GND*VT-vc*VT_Vtnode_GND)/VT/VT);
3777 #endif
3778 ICKv=(vc/VT);
3779 if
3780 ((ICKv<30.0))
3781 {
3782 {
3783 double m00_exp(d00_exp0,(ICKv-1.0))
3784 double m00_logE(d00_logE1,(1+d00_exp0))
3785 #if defined(_DERIVATE)
3786 #define d10_exp0 d00_exp0
3787 double m10_logE(d10_logE1,d00_logE1,(1+d00_exp0))
3788 #endif
3789 #if defined(_DERIVATE)
3790 vceff_Vci_ei=ICKv_Vci_ei*d10_exp0*d10_logE1*VT;
3791 vceff_Vtnode_GND=((ICKv_Vtnode_GND*d10_exp0*d10_logE1*VT)+((1.0+d00_logE1)*VT_Vtnode_GND));
3792 #endif
3793 vceff=((1.0+d00_logE1)*VT);
3794 }
3795 }
3796 else
3797 {
3798 #if defined(_DERIVATE)
3799 vceff_Vci_ei=vc_Vci_ei;
3800 vceff_Vtnode_GND=vc_Vtnode_GND;
3801 #endif
3802 vceff=vc;
3803 }
3804 #if defined(_DERIVATE)
3805 ICKv_Vci_ei=(vceff_Vci_ei/vlim_t);
3806 ICKv_Vtnode_GND=((vceff_Vtnode_GND*vlim_t-vceff*vlim_t_Vtnode_GND)/vlim_t/vlim_t);
3807 #endif
3808 ICKv=(vceff/vlim_t);
3809 {
3810 double m00_sqrt(d00_sqrt0,(1.0+(ICKv*ICKv)))
3811 #if defined(_DERIVATE)
3812 double m10_sqrt(d10_sqrt0,d00_sqrt0,(1.0+(ICKv*ICKv)))
3813 #endif
3814 #if defined(_DERIVATE)
3815 ick_Vci_ei=((vceff_Vci_ei*Orci0_t*d00_sqrt0-(vceff*Orci0_t)*((ICKv_Vci_ei*ICKv)+(ICKv*ICKv_Vci_ei))*d10_sqrt0)/d00_sqrt0/d00_sqrt0);
3816 ick_Vtnode_GND=((((vceff_Vtnode_GND*Orci0_t)+(vceff*Orci0_t_Vtnode_GND))*d00_sqrt0-(vceff*Orci0_t)*((ICKv_Vtnode_GND*ICKv)+(ICKv*ICKv_Vtnode_GND))*d10_sqrt0)/d00_sqrt0/d00_sqrt0);
3817 #endif
3818 ick=((vceff*Orci0_t)/d00_sqrt0);
3819 }
3820 #if defined(_DERIVATE)
3821 ICKa_Vci_ei=vceff_Vci_ei*Ovpt;
3822 ICKa_Vtnode_GND=(vceff_Vtnode_GND-vlim_t_Vtnode_GND)*Ovpt;
3823 #endif
3824 ICKa=((vceff-vlim_t)*Ovpt);
3825 {
3826 double m00_sqrt(d00_sqrt0,((ICKa*ICKa)+1.0e-3))
3827 #if defined(_DERIVATE)
3828 double m10_sqrt(d10_sqrt0,d00_sqrt0,((ICKa*ICKa)+1.0e-3))
3829 #endif
3830 #if defined(_DERIVATE)
3831 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))));
3832 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))));
3833 #endif
3834 ick=(ick*(1.0+(0.5*(ICKa+d00_sqrt0))));
3835 }
3836 if
3837 (((T_f0>0.0)||(Tr>0.0)))
3838 {
3839 #if defined(_DERIVATE)
3840 A_Vtnode_GND=(0.5*Q_0_Vtnode_GND);
3841 A_Vbi_ei=(0.5*Q_0_Vbi_ei);
3842 A_Vbi_ci=(0.5*Q_0_Vbi_ci);
3843 #endif
3844 A=(0.5*Q_0);
3845 {
3846 double m00_sqrt(d00_sqrt0,(((A*A)+(T_f0*i_0f))+(Tr*i_0r)))
3847 #if defined(_DERIVATE)
3848 double m10_sqrt(d10_sqrt0,d00_sqrt0,(((A*A)+(T_f0*i_0f))+(Tr*i_0r)))
3849 #endif
3850 #if defined(_DERIVATE)
3851 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);
3852 Q_p_Vbi_ei=(A_Vbi_ei+(((A_Vbi_ei*A)+(A*A_Vbi_ei))+((T_f0_Vbi_ei*i_0f)+(T_f0*i_0f_Vbi_ei)))*d10_sqrt0);
3853 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);
3854 #endif
3855 Q_p=(A+d00_sqrt0);
3856 }
3857 }
3858 else
3859 {
3860 #if defined(_DERIVATE)
3861 Q_p_Vtnode_GND=Q_0_Vtnode_GND;
3862 Q_p_Vbi_ei=Q_0_Vbi_ei;
3863 Q_p_Vbi_ci=Q_0_Vbi_ci;
3864 #endif
3865 Q_p=Q_0;
3866 }
3867 #if defined(_DERIVATE)
3868 I_Tf1_Vci_ei=0.0;
3869 I_Tf1_Vtnode_GND=((i_0f_Vtnode_GND*Q_p-i_0f*Q_p_Vtnode_GND)/Q_p/Q_p);
3870 I_Tf1_Vbi_ei=((i_0f_Vbi_ei*Q_p-i_0f*Q_p_Vbi_ei)/Q_p/Q_p);
3871 I_Tf1_Vbi_ci=(-i_0f*Q_p_Vbi_ci/Q_p/Q_p);
3872 #endif
3873 I_Tf1=(i_0f/Q_p);
3874 #if defined(_DERIVATE)
3875 a_h_Vci_ei=0.0;
3876 a_h_Vtnode_GND=(Oich*I_Tf1_Vtnode_GND);
3877 a_h_Vbi_ei=(Oich*I_Tf1_Vbi_ei);
3878 a_h_Vbi_ci=(Oich*I_Tf1_Vbi_ci);
3879 #endif
3880 a_h=(Oich*I_Tf1);
3881 #if defined(_DERIVATE)
3882 itf_Vci_ei=0.0;
3883 itf_Vtnode_GND=((I_Tf1_Vtnode_GND*(1.0+a_h))+(I_Tf1*a_h_Vtnode_GND));
3884 itf_Vbi_ei=((I_Tf1_Vbi_ei*(1.0+a_h))+(I_Tf1*a_h_Vbi_ei));
3885 itf_Vbi_ci=((I_Tf1_Vbi_ci*(1.0+a_h))+(I_Tf1*a_h_Vbi_ci));
3886 #endif
3887 itf=(I_Tf1*(1.0+a_h));
3888 #if defined(_DERIVATE)
3889 itr_Vci_ei=0.0;
3890 itr_Vtnode_GND=((i_0r_Vtnode_GND*Q_p-i_0r*Q_p_Vtnode_GND)/Q_p/Q_p);
3891 itr_Vbi_ci=((i_0r_Vbi_ci*Q_p-i_0r*Q_p_Vbi_ci)/Q_p/Q_p);
3892 itr_Vbi_ei=(-i_0r*Q_p_Vbi_ei/Q_p/Q_p);
3893 #endif
3894 itr=(i_0r/Q_p);
3895 #if defined(_DERIVATE)
3896 Tf_Vci_ei=0.0;
3897 Tf_Vtnode_GND=T_f0_Vtnode_GND;
3898 Tf_Vbi_ci=T_f0_Vbi_ci;
3899 Tf_Vbi_ei=T_f0_Vbi_ei;
3900 #endif
3901 Tf=T_f0;
3902 #if defined(_DERIVATE)
3903 Qf_Vci_ei=0.0;
3904 Qf_Vtnode_GND=((T_f0_Vtnode_GND*itf)+(T_f0*itf_Vtnode_GND));
3905 Qf_Vbi_ci=((T_f0_Vbi_ci*itf)+(T_f0*itf_Vbi_ci));
3906 Qf_Vbi_ei=((T_f0_Vbi_ei*itf)+(T_f0*itf_Vbi_ei));
3907 #endif
3908 Qf=(T_f0*itf);
3909 if
3910 ((itf<(1.0e-6*ick)))
3911 {
3912 #if defined(_DERIVATE)
3913 Q_fT_Vci_ei=0.0;
3914 Q_fT_Vtnode_GND=Qf_Vtnode_GND;
3915 Q_fT_Vbi_ci=Qf_Vbi_ci;
3916 Q_fT_Vbi_ei=Qf_Vbi_ei;
3917 #endif
3918 Q_fT=Qf;
3919 #if defined(_DERIVATE)
3920 T_fT_Vci_ei=0.0;
3921 T_fT_Vtnode_GND=Tf_Vtnode_GND;
3922 T_fT_Vbi_ci=Tf_Vbi_ci;
3923 T_fT_Vbi_ei=Tf_Vbi_ei;
3924 #endif
3925 T_fT=Tf;
3926 }
3927 else
3928 {
3929 #if defined(_DERIVATE)
3930 FFa_Vci_ei=((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf);
3931 FFa_Vtnode_GND=((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf);
3932 FFa_Vbi_ei=(-ick*itf_Vbi_ei/itf/itf);
3933 FFa_Vbi_ci=(-ick*itf_Vbi_ci/itf/itf);
3934 #endif
3935 FFa=(ick/itf);
3936 {
3937 double m00_logE(d00_logE0,FFa)
3938 double m00_exp(d00_exp1,((-gtfe)*d00_logE0))
3939 #if defined(_DERIVATE)
3940 double m10_logE(d10_logE0,d00_logE0,FFa)
3941 #define d10_exp1 d00_exp1
3942 #endif
3943 #if defined(_DERIVATE)
3944 FFd_TfE_Vtnode_GND=((tef0_t_Vtnode_GND*d00_exp1)+(tef0_t*((-gtfe)*FFa_Vtnode_GND*d10_logE0)*d10_exp1));
3945 FFd_TfE_Vci_ei=(tef0_t*((-gtfe)*FFa_Vci_ei*d10_logE0)*d10_exp1);
3946 FFd_TfE_Vbi_ei=(tef0_t*((-gtfe)*FFa_Vbi_ei*d10_logE0)*d10_exp1);
3947 FFd_TfE_Vbi_ci=(tef0_t*((-gtfe)*FFa_Vbi_ci*d10_logE0)*d10_exp1);
3948 #endif
3949 FFd_TfE=(tef0_t*d00_exp1);
3950 }
3951 #if defined(_DERIVATE)
3952 FFd_QfE_Vtnode_GND=(((FFd_TfE_Vtnode_GND*itf)+(FFd_TfE*itf_Vtnode_GND))/(gtfe+1.0));
3953 FFd_QfE_Vci_ei=(((FFd_TfE_Vci_ei*itf)+(FFd_TfE*itf_Vci_ei))/(gtfe+1.0));
3954 FFd_QfE_Vbi_ei=(((FFd_TfE_Vbi_ei*itf)+(FFd_TfE*itf_Vbi_ei))/(gtfe+1.0));
3955 FFd_QfE_Vbi_ci=(((FFd_TfE_Vbi_ci*itf)+(FFd_TfE*itf_Vbi_ci))/(gtfe+1.0));
3956 #endif
3957 FFd_QfE=((FFd_TfE*itf)/(gtfe+1.0));
3958 #if defined(_DERIVATE)
3959 FFT_fbS_Vtnode_GND=((1.0-fthc)*thcs_t_Vtnode_GND);
3960 #endif
3961 FFT_fbS=((1.0-fthc)*thcs_t);
3962 #if defined(_DERIVATE)
3963 FFx_Vci_ei=(-FFa_Vci_ei);
3964 FFx_Vtnode_GND=(-FFa_Vtnode_GND);
3965 FFx_Vbi_ei=(-FFa_Vbi_ei);
3966 FFx_Vbi_ci=(-FFa_Vbi_ci);
3967 #endif
3968 FFx=(1.0-FFa);
3969 {
3970 double m00_sqrt(d00_sqrt0,((FFx*FFx)+alhc))
3971 #if defined(_DERIVATE)
3972 double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFx*FFx)+alhc))
3973 #endif
3974 #if defined(_DERIVATE)
3975 FFs_Vci_ei=((FFx_Vci_ei*FFx)+(FFx*FFx_Vci_ei))*d10_sqrt0;
3976 FFs_Vtnode_GND=((FFx_Vtnode_GND*FFx)+(FFx*FFx_Vtnode_GND))*d10_sqrt0;
3977 FFs_Vbi_ei=((FFx_Vbi_ei*FFx)+(FFx*FFx_Vbi_ei))*d10_sqrt0;
3978 FFs_Vbi_ci=((FFx_Vbi_ci*FFx)+(FFx*FFx_Vbi_ci))*d10_sqrt0;
3979 #endif
3980 FFs=d00_sqrt0;
3981 }
3982 {
3983 double m00_sqrt(d00_sqrt0,(1.0+alhc))
3984 #if defined(_DERIVATE)
3985 FFw_Vci_ei=((FFx_Vci_ei+FFs_Vci_ei)/(1.0+d00_sqrt0));
3986 FFw_Vtnode_GND=((FFx_Vtnode_GND+FFs_Vtnode_GND)/(1.0+d00_sqrt0));
3987 FFw_Vbi_ei=((FFx_Vbi_ei+FFs_Vbi_ei)/(1.0+d00_sqrt0));
3988 FFw_Vbi_ci=((FFx_Vbi_ci+FFs_Vbi_ci)/(1.0+d00_sqrt0));
3989 #endif
3990 FFw=((FFx+FFs)/(1.0+d00_sqrt0));
3991 }
3992 #if defined(_DERIVATE)
3993 FFw_2_Vci_ei=((FFw_Vci_ei*FFw)+(FFw*FFw_Vci_ei));
3994 FFw_2_Vtnode_GND=((FFw_Vtnode_GND*FFw)+(FFw*FFw_Vtnode_GND));
3995 FFw_2_Vbi_ei=((FFw_Vbi_ei*FFw)+(FFw*FFw_Vbi_ei));
3996 FFw_2_Vbi_ci=((FFw_Vbi_ci*FFw)+(FFw*FFw_Vbi_ci));
3997 #endif
3998 FFw_2=(FFw*FFw);
3999 #if defined(_DERIVATE)
4000 FFd_QfB_Vtnode_GND=((((FFT_fbS_Vtnode_GND*itf)+(FFT_fbS*itf_Vtnode_GND))*FFw_2)+((FFT_fbS*itf)*FFw_2_Vtnode_GND));
4001 FFd_QfB_Vbi_ei=(((FFT_fbS*itf_Vbi_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ei));
4002 FFd_QfB_Vbi_ci=(((FFT_fbS*itf_Vbi_ci)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ci));
4003 FFd_QfB_Vci_ei=(((FFT_fbS*itf_Vci_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vci_ei));
4004 #endif
4005 FFd_QfB=((FFT_fbS*itf)*FFw_2);
4006 #if defined(_DERIVATE)
4007 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)));
4008 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)));
4009 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)));
4010 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)));
4011 #endif
4012 FFa_w=(FFw_2*(1.0+((2.0*FFa)/FFs)));
4013 #if defined(_DERIVATE)
4014 FFd_TfB_Vtnode_GND=((FFT_fbS_Vtnode_GND*FFa_w)+(FFT_fbS*FFa_w_Vtnode_GND));
4015 FFd_TfB_Vci_ei=(FFT_fbS*FFa_w_Vci_ei);
4016 FFd_TfB_Vbi_ei=(FFT_fbS*FFa_w_Vbi_ei);
4017 FFd_TfB_Vbi_ci=(FFT_fbS*FFa_w_Vbi_ci);
4018 #endif
4019 FFd_TfB=(FFT_fbS*FFa_w);
4020 #if defined(_DERIVATE)
4021 FFT_pcS_Vtnode_GND=(fthc*thcs_t_Vtnode_GND);
4022 #endif
4023 FFT_pcS=(fthc*thcs_t);
4024 if
4025 (((latb<=0.0)&&(latl<=0.0)))
4026 {
4027 #if defined(_DERIVATE)
4028 FFQ_fC_Vtnode_GND=((((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND))*FFw_2)+((FFT_pcS*itf)*FFw_2_Vtnode_GND));
4029 FFQ_fC_Vbi_ei=(((FFT_pcS*itf_Vbi_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ei));
4030 FFQ_fC_Vbi_ci=(((FFT_pcS*itf_Vbi_ci)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ci));
4031 FFQ_fC_Vci_ei=(((FFT_pcS*itf_Vci_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vci_ei));
4032 #endif
4033 FFQ_fC=((FFT_pcS*itf)*FFw_2);
4034 #if defined(_DERIVATE)
4035 FFT_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*FFa_w)+(FFT_pcS*FFa_w_Vtnode_GND));
4036 FFT_fC_Vci_ei=(FFT_pcS*FFa_w_Vci_ei);
4037 FFT_fC_Vbi_ei=(FFT_pcS*FFa_w_Vbi_ei);
4038 FFT_fC_Vbi_ci=(FFT_pcS*FFa_w_Vbi_ci);
4039 #endif
4040 FFT_fC=(FFT_pcS*FFa_w);
4041 #if defined(_DERIVATE)
4042 FFQ_cT_Vtnode_GND=FFQ_fC_Vtnode_GND;
4043 FFQ_cT_Vbi_ei=FFQ_fC_Vbi_ei;
4044 FFQ_cT_Vbi_ci=FFQ_fC_Vbi_ci;
4045 FFQ_cT_Vci_ei=FFQ_fC_Vci_ei;
4046 #endif
4047 FFQ_cT=FFQ_fC;
4048 #if defined(_DERIVATE)
4049 FFT_cT_Vtnode_GND=FFT_fC_Vtnode_GND;
4050 FFT_cT_Vci_ei=FFT_fC_Vci_ei;
4051 FFT_cT_Vbi_ei=FFT_fC_Vbi_ei;
4052 FFT_cT_Vbi_ci=FFT_fC_Vbi_ci;
4053 #endif
4054 FFT_cT=FFT_fC;
4055 }
4056 else
4057 {
4058 #if defined(_DERIVATE)
4059 FFQ_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND));
4060 FFQ_fC_Vbi_ei=(FFT_pcS*itf_Vbi_ei);
4061 FFQ_fC_Vbi_ci=(FFT_pcS*itf_Vbi_ci);
4062 FFQ_fC_Vci_ei=0.0;
4063 #endif
4064 FFQ_fC=(FFT_pcS*itf);
4065 #if defined(_DERIVATE)
4066 FCa_Vci_ei=(-((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf));
4067 FCa_Vtnode_GND=(-((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf));
4068 FCa_Vbi_ei=(-(-ick*itf_Vbi_ei/itf/itf));
4069 FCa_Vbi_ci=(-(-ick*itf_Vbi_ci/itf/itf));
4070 #endif
4071 FCa=(1.0-(ick/itf));
4072 {
4073 double m00_sqrt(d00_sqrt0,((FCa*FCa)+alhc))
4074 #if defined(_DERIVATE)
4075 double m10_sqrt(d10_sqrt0,d00_sqrt0,((FCa*FCa)+alhc))
4076 #endif
4077 #if defined(_DERIVATE)
4078 FCrt_Vci_ei=((FCa_Vci_ei*FCa)+(FCa*FCa_Vci_ei))*d10_sqrt0;
4079 FCrt_Vtnode_GND=((FCa_Vtnode_GND*FCa)+(FCa*FCa_Vtnode_GND))*d10_sqrt0;
4080 FCrt_Vbi_ei=((FCa_Vbi_ei*FCa)+(FCa*FCa_Vbi_ei))*d10_sqrt0;
4081 FCrt_Vbi_ci=((FCa_Vbi_ci*FCa)+(FCa*FCa_Vbi_ci))*d10_sqrt0;
4082 #endif
4083 FCrt=d00_sqrt0;
4084 }
4085 {
4086 double m00_sqrt(d00_sqrt0,(1.0+alhc))
4087 #if defined(_DERIVATE)
4088 FCa_ck_Vci_ei=(-((FCa_Vci_ei+FCrt_Vci_ei)/(1.0+d00_sqrt0)));
4089 FCa_ck_Vtnode_GND=(-((FCa_Vtnode_GND+FCrt_Vtnode_GND)/(1.0+d00_sqrt0)));
4090 FCa_ck_Vbi_ei=(-((FCa_Vbi_ei+FCrt_Vbi_ei)/(1.0+d00_sqrt0)));
4091 FCa_ck_Vbi_ci=(-((FCa_Vbi_ci+FCrt_Vbi_ci)/(1.0+d00_sqrt0)));
4092 #endif
4093 FCa_ck=(1.0-((FCa+FCrt)/(1.0+d00_sqrt0)));
4094 }
4095 #if defined(_DERIVATE)
4096 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));
4097 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));
4098 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));
4099 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));
4100 #endif
4101 FCdaick_ditf=(((FCa_ck-1.0)*(1-FCa))/(FCrt*itf));
4102 if
4103 ((latb>latl))
4104 {
4105 #if defined(_DERIVATE)
4106 FCz_Vci_ei=0.0;
4107 FCz_Vtnode_GND=0.0;
4108 FCz_Vbi_ei=0.0;
4109 FCz_Vbi_ci=0.0;
4110 #endif
4111 FCz=(latb-latl);
4112 FCxl=(1.0+latl);
4113 FCxb=(1.0+latb);
4114 if
4115 ((latb>0.01))
4116 {
4117 {
4118 double m00_logE(d00_logE0,(FCxb/FCxl))
4119 FCln=d00_logE0;
4120 }
4121 {
4122 double m00_exp(d00_exp0,((FCa_ck-1.0)*FCln))
4123 #if defined(_DERIVATE)
4124 #define d10_exp0 d00_exp0
4125 #endif
4126 #if defined(_DERIVATE)
4127 FCa1_Vci_ei=FCa_ck_Vci_ei*FCln*d10_exp0;
4128 FCa1_Vtnode_GND=FCa_ck_Vtnode_GND*FCln*d10_exp0;
4129 FCa1_Vbi_ei=FCa_ck_Vbi_ei*FCln*d10_exp0;
4130 FCa1_Vbi_ci=FCa_ck_Vbi_ci*FCln*d10_exp0;
4131 #endif
4132 FCa1=d00_exp0;
4133 }
4134 #if defined(_DERIVATE)
4135 FCd_a_Vci_ei=(-(-FCa1_Vci_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
4136 FCd_a_Vtnode_GND=(-(-FCa1_Vtnode_GND*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
4137 FCd_a_Vbi_ei=(-(-FCa1_Vbi_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
4138 FCd_a_Vbi_ci=(-(-FCa1_Vbi_ci*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
4139 #endif
4140 FCd_a=(1.0/(latl-(FCa1*latb)));
4141 #if defined(_DERIVATE)
4142 FCw_Vci_ei=((FCa1_Vci_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vci_ei));
4143 FCw_Vtnode_GND=((FCa1_Vtnode_GND*FCd_a)+((FCa1-1.0)*FCd_a_Vtnode_GND));
4144 FCw_Vbi_ei=((FCa1_Vbi_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ei));
4145 FCw_Vbi_ci=((FCa1_Vbi_ci*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ci));
4146 #endif
4147 FCw=((FCa1-1.0)*FCd_a);
4148 {
4149 double m00_logE(d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
4150 #if defined(_DERIVATE)
4151 double m10_logE(d10_logE0,d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
4152 #endif
4153 #if defined(_DERIVATE)
4154 FCa_Vci_ei=(((latb*FCw_Vci_ei)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vci_ei))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
4155 FCa_Vtnode_GND=(((latb*FCw_Vtnode_GND)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vtnode_GND))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
4156 FCa_Vbi_ei=(((latb*FCw_Vbi_ei)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vbi_ei))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
4157 FCa_Vbi_ci=(((latb*FCw_Vbi_ci)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vbi_ci))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
4158 #endif
4159 FCa=d00_logE0;
4160 }
4161 #if defined(_DERIVATE)
4162 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));
4163 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));
4164 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));
4165 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));
4166 #endif
4167 FCdw_daick=(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a);
4168 {
4169 double m00_logE(d00_logE0,(1.0+(latb*FCw)))
4170 #if defined(_DERIVATE)
4171 double m10_logE(d10_logE0,d00_logE0,(1.0+(latb*FCw)))
4172 #endif
4173 #if defined(_DERIVATE)
4174 FClnb_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
4175 FClnb_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
4176 FClnb_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
4177 FClnb_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
4178 #endif
4179 FClnb=d00_logE0;
4180 }
4181 {
4182 double m00_logE(d00_logE0,(1.0+(latl*FCw)))
4183 #if defined(_DERIVATE)
4184 double m10_logE(d10_logE0,d00_logE0,(1.0+(latl*FCw)))
4185 #endif
4186 #if defined(_DERIVATE)
4187 FClnl_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
4188 FClnl_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
4189 FClnl_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
4190 FClnl_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
4191 #endif
4192 FClnl=d00_logE0;
4193 }
4194 #if defined(_DERIVATE)
4195 FCa1_Vci_ei=(FClnb_Vci_ei-FClnl_Vci_ei);
4196 FCa1_Vtnode_GND=(FClnb_Vtnode_GND-FClnl_Vtnode_GND);
4197 FCa1_Vbi_ei=(FClnb_Vbi_ei-FClnl_Vbi_ei);
4198 FCa1_Vbi_ci=(FClnb_Vbi_ci-FClnl_Vbi_ci);
4199 #endif
4200 FCa1=(FClnb-FClnl);
4201 #if defined(_DERIVATE)
4202 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))));
4203 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))));
4204 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))));
4205 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))));
4206 #endif
4207 FCda1_dw=((latb/(1.0+(latb*FCw)))-(latl/(1.0+(latl*FCw))));
4208 }
4209 else
4210 {
4211 #if defined(_DERIVATE)
4212 FCf1_Vci_ei=(-FCa_ck_Vci_ei);
4213 FCf1_Vtnode_GND=(-FCa_ck_Vtnode_GND);
4214 FCf1_Vbi_ei=(-FCa_ck_Vbi_ei);
4215 FCf1_Vbi_ci=(-FCa_ck_Vbi_ci);
4216 #endif
4217 FCf1=(1.0-FCa_ck);
4218 #if defined(_DERIVATE)
4219 FCd_a_Vci_ei=(-(-FCf1_Vci_ei*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
4220 FCd_a_Vtnode_GND=(-(-FCf1_Vtnode_GND*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
4221 FCd_a_Vbi_ei=(-(-FCf1_Vbi_ei*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
4222 FCd_a_Vbi_ci=(-(-FCf1_Vbi_ci*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
4223 #endif
4224 FCd_a=(1.0/(1.0-(FCf1*latb)));
4225 #if defined(_DERIVATE)
4226 FCw_Vci_ei=((FCf1_Vci_ei*FCd_a)+(FCf1*FCd_a_Vci_ei));
4227 FCw_Vtnode_GND=((FCf1_Vtnode_GND*FCd_a)+(FCf1*FCd_a_Vtnode_GND));
4228 FCw_Vbi_ei=((FCf1_Vbi_ei*FCd_a)+(FCf1*FCd_a_Vbi_ei));
4229 FCw_Vbi_ci=((FCf1_Vbi_ci*FCd_a)+(FCf1*FCd_a_Vbi_ci));
4230 #endif
4231 FCw=(FCf1*FCd_a);
4232 #if defined(_DERIVATE)
4233 FCa_Vci_ei=((FCz_Vci_ei*FCw)+(FCz*FCw_Vci_ei));
4234 FCa_Vtnode_GND=((FCz_Vtnode_GND*FCw)+(FCz*FCw_Vtnode_GND));
4235 FCa_Vbi_ei=((FCz_Vbi_ei*FCw)+(FCz*FCw_Vbi_ei));
4236 FCa_Vbi_ci=((FCz_Vbi_ci*FCw)+(FCz*FCw_Vbi_ci));
4237 #endif
4238 FCa=(FCz*FCw);
4239 #if defined(_DERIVATE)
4240 FCdw_daick_Vci_ei=((((-1.0)*FCd_a_Vci_ei)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vci_ei));
4241 FCdw_daick_Vtnode_GND=((((-1.0)*FCd_a_Vtnode_GND)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vtnode_GND));
4242 FCdw_daick_Vbi_ei=((((-1.0)*FCd_a_Vbi_ei)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vbi_ei));
4243 FCdw_daick_Vbi_ci=((((-1.0)*FCd_a_Vbi_ci)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vbi_ci));
4244 #endif
4245 FCdw_daick=(((-1.0)*FCd_a)*FCd_a);
4246 #if defined(_DERIVATE)
4247 FClnb_Vci_ei=(latb*FCw_Vci_ei);
4248 FClnb_Vtnode_GND=(latb*FCw_Vtnode_GND);
4249 FClnb_Vbi_ei=(latb*FCw_Vbi_ei);
4250 FClnb_Vbi_ci=(latb*FCw_Vbi_ci);
4251 #endif
4252 FClnb=(latb*FCw);
4253 #if defined(_DERIVATE)
4254 FClnl_Vci_ei=(latl*FCw_Vci_ei);
4255 FClnl_Vtnode_GND=(latl*FCw_Vtnode_GND);
4256 FClnl_Vbi_ei=(latl*FCw_Vbi_ei);
4257 FClnl_Vbi_ci=(latl*FCw_Vbi_ci);
4258 #endif
4259 FClnl=(latl*FCw);
4260 #if defined(_DERIVATE)
4261 FCa1_Vci_ei=((FCz_Vci_ei*FCw)+(FCz*FCw_Vci_ei));
4262 FCa1_Vtnode_GND=((FCz_Vtnode_GND*FCw)+(FCz*FCw_Vtnode_GND));
4263 FCa1_Vbi_ei=((FCz_Vbi_ei*FCw)+(FCz*FCw_Vbi_ei));
4264 FCa1_Vbi_ci=((FCz_Vbi_ci*FCw)+(FCz*FCw_Vbi_ci));
4265 #endif
4266 FCa1=(FCz*FCw);
4267 #if defined(_DERIVATE)
4268 FCda1_dw_Vci_ei=0.0;
4269 FCda1_dw_Vtnode_GND=0.0;
4270 FCda1_dw_Vbi_ei=0.0;
4271 FCda1_dw_Vbi_ci=0.0;
4272 #endif
4273 FCda1_dw=FCz;
4274 }
4275 #if defined(_DERIVATE)
4276 FCf_CT_Vci_ei=0.0;
4277 FCf_CT_Vbi_ei=0.0;
4278 FCf_CT_Vbi_ci=0.0;
4279 FCf_CT_Vtnode_GND=0.0;
4280 #endif
4281 FCf_CT=(2.0/FCz);
4282 #if defined(_DERIVATE)
4283 FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
4284 FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
4285 FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
4286 FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
4287 #endif
4288 FCw2=(FCw*FCw);
4289 #if defined(_DERIVATE)
4290 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);
4291 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);
4292 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);
4293 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);
4294 #endif
4295 FCf1=((((((latb*latl)*FCw)*FCw2)/3.0)+(((latb+latl)*FCw2)/2.0))+FCw);
4296 #if defined(_DERIVATE)
4297 FCdf1_dw_Vci_ei=(((latb*latl)*FCw2_Vci_ei)+((latb+latl)*FCw_Vci_ei));
4298 FCdf1_dw_Vtnode_GND=(((latb*latl)*FCw2_Vtnode_GND)+((latb+latl)*FCw_Vtnode_GND));
4299 FCdf1_dw_Vbi_ei=(((latb*latl)*FCw2_Vbi_ei)+((latb+latl)*FCw_Vbi_ei));
4300 FCdf1_dw_Vbi_ci=(((latb*latl)*FCw2_Vbi_ci)+((latb+latl)*FCw_Vbi_ci));
4301 #endif
4302 FCdf1_dw=((((latb*latl)*FCw2)+((latb+latl)*FCw))+1.0);
4303 #if defined(_DERIVATE)
4304 z_Vci_ei=(latb*FCw_Vci_ei);
4305 z_Vtnode_GND=(latb*FCw_Vtnode_GND);
4306 z_Vbi_ei=(latb*FCw_Vbi_ei);
4307 z_Vbi_ci=(latb*FCw_Vbi_ci);
4308 #endif
4309 z=(latb*FCw);
4310 if
4311 ((z>1.0e-6))
4312 {
4313 #if defined(_DERIVATE)
4314 x_Vci_ei=z_Vci_ei;
4315 x_Vtnode_GND=z_Vtnode_GND;
4316 x_Vbi_ei=z_Vbi_ei;
4317 x_Vbi_ci=z_Vbi_ci;
4318 #endif
4319 x=(1.0+z);
4320 #if defined(_DERIVATE)
4321 a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
4322 a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
4323 a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
4324 a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
4325 #endif
4326 a=(x*x);
4327 #if defined(_DERIVATE)
4328 a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vci_ei))));
4329 a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vbi_ei))));
4330 a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vbi_ci))));
4331 a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vtnode_GND))));
4332 #endif
4333 a2=(0.250*((a*((2.0*FClnb)-1.0))+1.0));
4334 #if defined(_DERIVATE)
4335 a3_Vci_ei=(((((a_Vci_ei*x)+(a*x_Vci_ei))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vci_ei)))/9.0);
4336 a3_Vbi_ei=(((((a_Vbi_ei*x)+(a*x_Vbi_ei))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vbi_ei)))/9.0);
4337 a3_Vbi_ci=(((((a_Vbi_ci*x)+(a*x_Vbi_ci))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vbi_ci)))/9.0);
4338 a3_Vtnode_GND=(((((a_Vtnode_GND*x)+(a*x_Vtnode_GND))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vtnode_GND)))/9.0);
4339 #endif
4340 a3=((((a*x)*((3.0*FClnb)-1.0))+1.0)/9.0);
4341 r=(latl/latb);
4342 #if defined(_DERIVATE)
4343 FCf2_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latb);
4344 FCf2_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latb);
4345 FCf2_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latb);
4346 FCf2_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latb);
4347 #endif
4348 FCf2=((((1.0-r)*a2)+(r*a3))/latb);
4349 #if defined(_DERIVATE)
4350 FCdf2_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vci_ei));
4351 FCdf2_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vtnode_GND));
4352 FCdf2_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vbi_ei));
4353 FCdf2_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vbi_ci));
4354 #endif
4355 FCdf2_dw=((((1.0-r)*x)+(r*a))*FClnb);
4356 }
4357 else
4358 {
4359 #if defined(_DERIVATE)
4360 a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
4361 a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
4362 a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
4363 a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
4364 #endif
4365 a=(z*z);
4366 #if defined(_DERIVATE)
4367 a2_Vci_ei=((z_Vci_ei-(0.5*a_Vci_ei))+((z_Vci_ei*a)+(z*a_Vci_ei)));
4368 a2_Vbi_ei=((z_Vbi_ei-(0.5*a_Vbi_ei))+((z_Vbi_ei*a)+(z*a_Vbi_ei)));
4369 a2_Vbi_ci=((z_Vbi_ci-(0.5*a_Vbi_ci))+((z_Vbi_ci*a)+(z*a_Vbi_ci)));
4370 a2_Vtnode_GND=((z_Vtnode_GND-(0.5*a_Vtnode_GND))+((z_Vtnode_GND*a)+(z*a_Vtnode_GND)));
4371 #endif
4372 a2=(((3.0+z)-(0.5*a))+(z*a));
4373 #if defined(_DERIVATE)
4374 a3_Vci_ei=((((-2.0)*z_Vci_ei)+(1.5*a_Vci_ei))+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0));
4375 a3_Vbi_ei=((((-2.0)*z_Vbi_ei)+(1.5*a_Vbi_ei))+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0));
4376 a3_Vbi_ci=((((-2.0)*z_Vbi_ci)+(1.5*a_Vbi_ci))+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0));
4377 a3_Vtnode_GND=((((-2.0)*z_Vtnode_GND)+(1.5*a_Vtnode_GND))+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0));
4378 #endif
4379 a3=((((-2.0)*z)+(1.5*a))+(((2.0*a)*a)/3.0));
4380 #if defined(_DERIVATE)
4381 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);
4382 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);
4383 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);
4384 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);
4385 #endif
4386 FCf2=(((((latb*a2)+(latl*a3))*FCw)*FCw)/6.0);
4387 #if defined(_DERIVATE)
4388 FCdf2_dw_Vci_ei=((((z_Vci_ei+(0.5*a_Vci_ei))-(((a_Vci_ei*z)+(a*z_Vci_ei))/3.0))+((((5.0*a_Vci_ei)*a)+((5.0*a)*a_Vci_ei))/6.0))+(((latl*FCw_Vci_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vci_ei-z_Vci_ei)+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0)))));
4389 FCdf2_dw_Vtnode_GND=((((z_Vtnode_GND+(0.5*a_Vtnode_GND))-(((a_Vtnode_GND*z)+(a*z_Vtnode_GND))/3.0))+((((5.0*a_Vtnode_GND)*a)+((5.0*a)*a_Vtnode_GND))/6.0))+(((latl*FCw_Vtnode_GND)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vtnode_GND-z_Vtnode_GND)+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0)))));
4390 FCdf2_dw_Vbi_ei=((((z_Vbi_ei+(0.5*a_Vbi_ei))-(((a_Vbi_ei*z)+(a*z_Vbi_ei))/3.0))+((((5.0*a_Vbi_ei)*a)+((5.0*a)*a_Vbi_ei))/6.0))+(((latl*FCw_Vbi_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vbi_ei-z_Vbi_ei)+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0)))));
4391 FCdf2_dw_Vbi_ci=((((z_Vbi_ci+(0.5*a_Vbi_ci))-(((a_Vbi_ci*z)+(a*z_Vbi_ci))/3.0))+((((5.0*a_Vbi_ci)*a)+((5.0*a)*a_Vbi_ci))/6.0))+(((latl*FCw_Vbi_ci)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vbi_ci-z_Vbi_ci)+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0)))));
4392 #endif
4393 FCdf2_dw=((((z+(0.5*a))-((a*z)/3.0))+(((5.0*a)*a)/6.0))+((latl*FCw)*((a-z)+(((2.0*a)*a)/3.0))));
4394 }
4395 #if defined(_DERIVATE)
4396 z_Vci_ei=(latl*FCw_Vci_ei);
4397 z_Vtnode_GND=(latl*FCw_Vtnode_GND);
4398 z_Vbi_ei=(latl*FCw_Vbi_ei);
4399 z_Vbi_ci=(latl*FCw_Vbi_ci);
4400 #endif
4401 z=(latl*FCw);
4402 if
4403 ((z>1.0e-6))
4404 {
4405 #if defined(_DERIVATE)
4406 x_Vci_ei=z_Vci_ei;
4407 x_Vtnode_GND=z_Vtnode_GND;
4408 x_Vbi_ei=z_Vbi_ei;
4409 x_Vbi_ci=z_Vbi_ci;
4410 #endif
4411 x=(1.0+z);
4412 #if defined(_DERIVATE)
4413 a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
4414 a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
4415 a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
4416 a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
4417 #endif
4418 a=(x*x);
4419 #if defined(_DERIVATE)
4420 a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vci_ei))));
4421 a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vbi_ei))));
4422 a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vbi_ci))));
4423 a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vtnode_GND))));
4424 #endif
4425 a2=(0.250*((a*((2.0*FClnl)-1.0))+1.0));
4426 #if defined(_DERIVATE)
4427 a3_Vci_ei=(((((a_Vci_ei*x)+(a*x_Vci_ei))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vci_ei)))/9.0);
4428 a3_Vbi_ei=(((((a_Vbi_ei*x)+(a*x_Vbi_ei))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vbi_ei)))/9.0);
4429 a3_Vbi_ci=(((((a_Vbi_ci*x)+(a*x_Vbi_ci))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vbi_ci)))/9.0);
4430 a3_Vtnode_GND=(((((a_Vtnode_GND*x)+(a*x_Vtnode_GND))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vtnode_GND)))/9.0);
4431 #endif
4432 a3=((((a*x)*((3.0*FClnl)-1.0))+1.0)/9.0);
4433 r=(latb/latl);
4434 #if defined(_DERIVATE)
4435 FCf3_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latl);
4436 FCf3_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latl);
4437 FCf3_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latl);
4438 FCf3_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latl);
4439 #endif
4440 FCf3=((((1.0-r)*a2)+(r*a3))/latl);
4441 #if defined(_DERIVATE)
4442 FCdf3_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vci_ei));
4443 FCdf3_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vtnode_GND));
4444 FCdf3_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vbi_ei));
4445 FCdf3_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vbi_ci));
4446 #endif
4447 FCdf3_dw=((((1.0-r)*x)+(r*a))*FClnl);
4448 }
4449 else
4450 {
4451 #if defined(_DERIVATE)
4452 a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
4453 a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
4454 a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
4455 a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
4456 #endif
4457 a=(z*z);
4458 #if defined(_DERIVATE)
4459 a2_Vci_ei=((z_Vci_ei-(0.5*a_Vci_ei))+((z_Vci_ei*a)+(z*a_Vci_ei)));
4460 a2_Vbi_ei=((z_Vbi_ei-(0.5*a_Vbi_ei))+((z_Vbi_ei*a)+(z*a_Vbi_ei)));
4461 a2_Vbi_ci=((z_Vbi_ci-(0.5*a_Vbi_ci))+((z_Vbi_ci*a)+(z*a_Vbi_ci)));
4462 a2_Vtnode_GND=((z_Vtnode_GND-(0.5*a_Vtnode_GND))+((z_Vtnode_GND*a)+(z*a_Vtnode_GND)));
4463 #endif
4464 a2=(((3.0+z)-(0.5*a))+(z*a));
4465 #if defined(_DERIVATE)
4466 a3_Vci_ei=((((-2.0)*z_Vci_ei)+(1.5*a_Vci_ei))+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0));
4467 a3_Vbi_ei=((((-2.0)*z_Vbi_ei)+(1.5*a_Vbi_ei))+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0));
4468 a3_Vbi_ci=((((-2.0)*z_Vbi_ci)+(1.5*a_Vbi_ci))+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0));
4469 a3_Vtnode_GND=((((-2.0)*z_Vtnode_GND)+(1.5*a_Vtnode_GND))+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0));
4470 #endif
4471 a3=((((-2.0)*z)+(1.5*a))+(((2.0*a)*a)/3.0));
4472 #if defined(_DERIVATE)
4473 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);
4474 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);
4475 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);
4476 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);
4477 #endif
4478 FCf3=(((((latl*a2)+(latb*a3))*FCw)*FCw)/6.0);
4479 #if defined(_DERIVATE)
4480 FCdf3_dw_Vci_ei=((((z_Vci_ei+(0.5*a_Vci_ei))-(((a_Vci_ei*z)+(a*z_Vci_ei))/3.0))+((((5.0*a_Vci_ei)*a)+((5.0*a)*a_Vci_ei))/6.0))+(((latb*FCw_Vci_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vci_ei-z_Vci_ei)+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0)))));
4481 FCdf3_dw_Vtnode_GND=((((z_Vtnode_GND+(0.5*a_Vtnode_GND))-(((a_Vtnode_GND*z)+(a*z_Vtnode_GND))/3.0))+((((5.0*a_Vtnode_GND)*a)+((5.0*a)*a_Vtnode_GND))/6.0))+(((latb*FCw_Vtnode_GND)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vtnode_GND-z_Vtnode_GND)+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0)))));
4482 FCdf3_dw_Vbi_ei=((((z_Vbi_ei+(0.5*a_Vbi_ei))-(((a_Vbi_ei*z)+(a*z_Vbi_ei))/3.0))+((((5.0*a_Vbi_ei)*a)+((5.0*a)*a_Vbi_ei))/6.0))+(((latb*FCw_Vbi_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vbi_ei-z_Vbi_ei)+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0)))));
4483 FCdf3_dw_Vbi_ci=((((z_Vbi_ci+(0.5*a_Vbi_ci))-(((a_Vbi_ci*z)+(a*z_Vbi_ci))/3.0))+((((5.0*a_Vbi_ci)*a)+((5.0*a)*a_Vbi_ci))/6.0))+(((latb*FCw_Vbi_ci)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vbi_ci-z_Vbi_ci)+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0)))));
4484 #endif
4485 FCdf3_dw=((((z+(0.5*a))-((a*z)/3.0))+(((5.0*a)*a)/6.0))+((latb*FCw)*((a-z)+(((2.0*a)*a)/3.0))));
4486 }
4487 #if defined(_DERIVATE)
4488 FCf_ci_Vci_ei=((FCf_CT_Vci_ei*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vci_ei*FCf1)+(FCa*FCf1_Vci_ei))-FCf2_Vci_ei)+FCf3_Vci_ei)));
4489 FCf_ci_Vtnode_GND=((FCf_CT_Vtnode_GND*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vtnode_GND*FCf1)+(FCa*FCf1_Vtnode_GND))-FCf2_Vtnode_GND)+FCf3_Vtnode_GND)));
4490 FCf_ci_Vbi_ei=((FCf_CT_Vbi_ei*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vbi_ei*FCf1)+(FCa*FCf1_Vbi_ei))-FCf2_Vbi_ei)+FCf3_Vbi_ei)));
4491 FCf_ci_Vbi_ci=((FCf_CT_Vbi_ci*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vbi_ci*FCf1)+(FCa*FCf1_Vbi_ci))-FCf2_Vbi_ci)+FCf3_Vbi_ci)));
4492 #endif
4493 FCf_ci=(FCf_CT*(((FCa*FCf1)-FCf2)+FCf3));
4494 #if defined(_DERIVATE)
4495 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)));
4496 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)));
4497 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)));
4498 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)));
4499 #endif
4500 FCdfc_dw=(FCf_CT*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw));
4501 #if defined(_DERIVATE)
4502 FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
4503 FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
4504 FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
4505 FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
4506 #endif
4507 FCdw_ditf=(FCdw_daick*FCdaick_ditf);
4508 #if defined(_DERIVATE)
4509 FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
4510 FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
4511 FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
4512 FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
4513 #endif
4514 FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
4515 #if defined(_DERIVATE)
4516 a_Vci_ei=(latb*FCw_Vci_ei);
4517 a_Vbi_ei=(latb*FCw_Vbi_ei);
4518 a_Vbi_ci=(latb*FCw_Vbi_ci);
4519 a_Vtnode_GND=(latb*FCw_Vtnode_GND);
4520 #endif
4521 a=(latb*FCw);
4522 if
4523 ((a>1.0e-6))
4524 {
4525 #if defined(_DERIVATE)
4526 FCf2_Vci_ei=((a_Vci_ei-FClnb_Vci_ei)/latb);
4527 FCf2_Vbi_ei=((a_Vbi_ei-FClnb_Vbi_ei)/latb);
4528 FCf2_Vbi_ci=((a_Vbi_ci-FClnb_Vbi_ci)/latb);
4529 FCf2_Vtnode_GND=((a_Vtnode_GND-FClnb_Vtnode_GND)/latb);
4530 #endif
4531 FCf2=((a-FClnb)/latb);
4532 #if defined(_DERIVATE)
4533 FCdf2_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
4534 FCdf2_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
4535 FCdf2_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
4536 FCdf2_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
4537 #endif
4538 FCdf2_dw=(a/(1.0+a));
4539 }
4540 else
4541 {
4542 #if defined(_DERIVATE)
4543 FCf2_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
4544 FCf2_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
4545 FCf2_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
4546 FCf2_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
4547 #endif
4548 FCf2=((0.5*a)*FCw);
4549 #if defined(_DERIVATE)
4550 FCdf2_dw_Vci_ei=a_Vci_ei;
4551 FCdf2_dw_Vtnode_GND=a_Vtnode_GND;
4552 FCdf2_dw_Vbi_ei=a_Vbi_ei;
4553 FCdf2_dw_Vbi_ci=a_Vbi_ci;
4554 #endif
4555 FCdf2_dw=a;
4556 }
4557 #if defined(_DERIVATE)
4558 a_Vci_ei=(latl*FCw_Vci_ei);
4559 a_Vbi_ei=(latl*FCw_Vbi_ei);
4560 a_Vbi_ci=(latl*FCw_Vbi_ci);
4561 a_Vtnode_GND=(latl*FCw_Vtnode_GND);
4562 #endif
4563 a=(latl*FCw);
4564 if
4565 ((a>1.0e-6))
4566 {
4567 #if defined(_DERIVATE)
4568 FCf3_Vci_ei=((a_Vci_ei-FClnl_Vci_ei)/latl);
4569 FCf3_Vbi_ei=((a_Vbi_ei-FClnl_Vbi_ei)/latl);
4570 FCf3_Vbi_ci=((a_Vbi_ci-FClnl_Vbi_ci)/latl);
4571 FCf3_Vtnode_GND=((a_Vtnode_GND-FClnl_Vtnode_GND)/latl);
4572 #endif
4573 FCf3=((a-FClnl)/latl);
4574 #if defined(_DERIVATE)
4575 FCdf3_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
4576 FCdf3_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
4577 FCdf3_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
4578 FCdf3_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
4579 #endif
4580 FCdf3_dw=(a/(1.0+a));
4581 }
4582 else
4583 {
4584 #if defined(_DERIVATE)
4585 FCf3_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
4586 FCf3_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
4587 FCf3_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
4588 FCf3_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
4589 #endif
4590 FCf3=((0.5*a)*FCw);
4591 #if defined(_DERIVATE)
4592 FCdf3_dw_Vci_ei=a_Vci_ei;
4593 FCdf3_dw_Vtnode_GND=a_Vtnode_GND;
4594 FCdf3_dw_Vbi_ei=a_Vbi_ei;
4595 FCdf3_dw_Vbi_ci=a_Vbi_ci;
4596 #endif
4597 FCdf3_dw=a;
4598 }
4599 #if defined(_DERIVATE)
4600 FCf_CT_Vci_ei=((FCf_CT_Vci_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vci_ei-FCf3_Vci_ei)));
4601 FCf_CT_Vbi_ei=((FCf_CT_Vbi_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ei-FCf3_Vbi_ei)));
4602 FCf_CT_Vbi_ci=((FCf_CT_Vbi_ci*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ci-FCf3_Vbi_ci)));
4603 FCf_CT_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCf2-FCf3))+(FCf_CT*(FCf2_Vtnode_GND-FCf3_Vtnode_GND)));
4604 #endif
4605 FCf_CT=(FCf_CT*(FCf2-FCf3));
4606 #if defined(_DERIVATE)
4607 FCdfCT_dw_Vci_ei=((FCf_CT_Vci_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vci_ei-FCdf3_dw_Vci_ei)));
4608 FCdfCT_dw_Vbi_ei=((FCf_CT_Vbi_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ei-FCdf3_dw_Vbi_ei)));
4609 FCdfCT_dw_Vbi_ci=((FCf_CT_Vbi_ci*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ci-FCdf3_dw_Vbi_ci)));
4610 FCdfCT_dw_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vtnode_GND-FCdf3_dw_Vtnode_GND)));
4611 #endif
4612 FCdfCT_dw=(FCf_CT*(FCdf2_dw-FCdf3_dw));
4613 #if defined(_DERIVATE)
4614 FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
4615 FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
4616 FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
4617 FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
4618 #endif
4619 FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
4620 }
4621 else
4622 {
4623 if
4624 ((latb>0.01))
4625 {
4626 #if defined(_DERIVATE)
4627 FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
4628 FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
4629 FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
4630 FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
4631 #endif
4632 FCd_a=(1.0/(1.0+(FCa_ck*latb)));
4633 #if defined(_DERIVATE)
4634 FCw_Vci_ei=(((-FCa_ck_Vci_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vci_ei));
4635 FCw_Vtnode_GND=(((-FCa_ck_Vtnode_GND)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vtnode_GND));
4636 FCw_Vbi_ei=(((-FCa_ck_Vbi_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ei));
4637 FCw_Vbi_ci=(((-FCa_ck_Vbi_ci)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ci));
4638 #endif
4639 FCw=((1.0-FCa_ck)*FCd_a);
4640 #if defined(_DERIVATE)
4641 FCdw_daick_Vci_ei=((((-(1.0+latb))*FCd_a_Vci_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vci_ei));
4642 FCdw_daick_Vtnode_GND=((((-(1.0+latb))*FCd_a_Vtnode_GND)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vtnode_GND));
4643 FCdw_daick_Vbi_ei=((((-(1.0+latb))*FCd_a_Vbi_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ei));
4644 FCdw_daick_Vbi_ci=((((-(1.0+latb))*FCd_a_Vbi_ci)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ci));
4645 #endif
4646 FCdw_daick=(((-(1.0+latb))*FCd_a)*FCd_a);
4647 }
4648 else
4649 {
4650 #if defined(_DERIVATE)
4651 FCw_Vci_ei=((-FCa_ck_Vci_ei)-FCa_ck_Vci_ei*latb);
4652 FCw_Vtnode_GND=((-FCa_ck_Vtnode_GND)-FCa_ck_Vtnode_GND*latb);
4653 FCw_Vbi_ei=((-FCa_ck_Vbi_ei)-FCa_ck_Vbi_ei*latb);
4654 FCw_Vbi_ci=((-FCa_ck_Vbi_ci)-FCa_ck_Vbi_ci*latb);
4655 #endif
4656 FCw=((1.0-FCa_ck)-(FCa_ck*latb));
4657 #if defined(_DERIVATE)
4658 FCdw_daick_Vci_ei=0.0;
4659 FCdw_daick_Vtnode_GND=0.0;
4660 FCdw_daick_Vbi_ei=0.0;
4661 FCdw_daick_Vbi_ci=0.0;
4662 #endif
4663 FCdw_daick=(-(1.0+latb));
4664 }
4665 #if defined(_DERIVATE)
4666 FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
4667 FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
4668 FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
4669 FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
4670 #endif
4671 FCw2=(FCw*FCw);
4672 #if defined(_DERIVATE)
4673 FCz_Vci_ei=(latb*FCw_Vci_ei);
4674 FCz_Vtnode_GND=(latb*FCw_Vtnode_GND);
4675 FCz_Vbi_ei=(latb*FCw_Vbi_ei);
4676 FCz_Vbi_ci=(latb*FCw_Vbi_ci);
4677 #endif
4678 FCz=(latb*FCw);
4679 #if defined(_DERIVATE)
4680 FCz_1_Vci_ei=FCz_Vci_ei;
4681 FCz_1_Vtnode_GND=FCz_Vtnode_GND;
4682 FCz_1_Vbi_ei=FCz_Vbi_ei;
4683 FCz_1_Vbi_ci=FCz_Vbi_ci;
4684 #endif
4685 FCz_1=(1.0+FCz);
4686 #if defined(_DERIVATE)
4687 FCd_f_Vci_ei=(-FCz_1_Vci_ei/FCz_1/FCz_1);
4688 FCd_f_Vtnode_GND=(-FCz_1_Vtnode_GND/FCz_1/FCz_1);
4689 FCd_f_Vbi_ei=(-FCz_1_Vbi_ei/FCz_1/FCz_1);
4690 FCd_f_Vbi_ci=(-FCz_1_Vbi_ci/FCz_1/FCz_1);
4691 #endif
4692 FCd_f=(1.0/FCz_1);
4693 #if defined(_DERIVATE)
4694 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));
4695 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));
4696 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));
4697 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));
4698 #endif
4699 FCf_ci=((FCw2*(1.0+(FCz/3.0)))*FCd_f);
4700 #if defined(_DERIVATE)
4701 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));
4702 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));
4703 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));
4704 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));
4705 #endif
4706 FCdfc_dw=((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
4707 #if defined(_DERIVATE)
4708 FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
4709 FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
4710 FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
4711 FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
4712 #endif
4713 FCdw_ditf=(FCdw_daick*FCdaick_ditf);
4714 #if defined(_DERIVATE)
4715 FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
4716 FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
4717 FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
4718 FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
4719 #endif
4720 FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
4721 if
4722 ((FCz>0.001))
4723 {
4724 {
4725 double m00_logE(d00_logE0,FCz_1)
4726 #if defined(_DERIVATE)
4727 double m10_logE(d10_logE0,d00_logE0,FCz_1)
4728 #endif
4729 #if defined(_DERIVATE)
4730 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));
4731 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));
4732 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));
4733 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));
4734 #endif
4735 FCf_CT=((2.0*((FCz_1*d00_logE0)-FCz))/((latb*latb)*FCz_1));
4736 }
4737 #if defined(_DERIVATE)
4738 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));
4739 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));
4740 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));
4741 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));
4742 #endif
4743 FCdfCT_dw=(((2.0*FCw)*FCd_f)*FCd_f);
4744 }
4745 else
4746 {
4747 #if defined(_DERIVATE)
4748 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));
4749 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));
4750 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));
4751 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));
4752 #endif
4753 FCf_CT=((FCw2*(1.0-(FCz/3.0)))*FCd_f);
4754 #if defined(_DERIVATE)
4755 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));
4756 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));
4757 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));
4758 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));
4759 #endif
4760 FCdfCT_dw=((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
4761 }
4762 #if defined(_DERIVATE)
4763 FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
4764 FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
4765 FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
4766 FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
4767 #endif
4768 FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
4769 }
4770 #if defined(_DERIVATE)
4771 FFQ_cT_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_CT)+(FFQ_fC*FCf_CT_Vtnode_GND));
4772 FFQ_cT_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ei));
4773 FFQ_cT_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ci));
4774 FFQ_cT_Vci_ei=((FFQ_fC_Vci_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vci_ei));
4775 #endif
4776 FFQ_cT=(FFQ_fC*FCf_CT);
4777 #if defined(_DERIVATE)
4778 FFQ_fC_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_ci)+(FFQ_fC*FCf_ci_Vtnode_GND));
4779 FFQ_fC_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ei));
4780 FFQ_fC_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ci));
4781 FFQ_fC_Vci_ei=((FFQ_fC_Vci_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vci_ei));
4782 #endif
4783 FFQ_fC=(FFQ_fC*FCf_ci);
4784 #if defined(_DERIVATE)
4785 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)))));
4786 FFT_fC_Vci_ei=(FFT_pcS*(FCf_ci_Vci_ei+((itf_Vci_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vci_ei))));
4787 FFT_fC_Vbi_ei=(FFT_pcS*(FCf_ci_Vbi_ei+((itf_Vbi_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ei))));
4788 FFT_fC_Vbi_ci=(FFT_pcS*(FCf_ci_Vbi_ci+((itf_Vbi_ci*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ci))));
4789 #endif
4790 FFT_fC=(FFT_pcS*(FCf_ci+(itf*FCdfc_ditf)));
4791 #if defined(_DERIVATE)
4792 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)))));
4793 FFT_cT_Vci_ei=(FFT_pcS*(FCf_CT_Vci_ei+((itf_Vci_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vci_ei))));
4794 FFT_cT_Vbi_ei=(FFT_pcS*(FCf_CT_Vbi_ei+((itf_Vbi_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ei))));
4795 FFT_cT_Vbi_ci=(FFT_pcS*(FCf_CT_Vbi_ci+((itf_Vbi_ci*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ci))));
4796 #endif
4797 FFT_cT=(FFT_pcS*(FCf_CT+(itf*FCdfCT_ditf)));
4798 }
4799 #if defined(_DERIVATE)
4800 Qf_Vci_ei=(Qf_Vci_ei+FFd_QfB_Vci_ei);
4801 Qf_Vtnode_GND=(Qf_Vtnode_GND+FFd_QfB_Vtnode_GND);
4802 Qf_Vbi_ci=(Qf_Vbi_ci+FFd_QfB_Vbi_ci);
4803 Qf_Vbi_ei=(Qf_Vbi_ei+FFd_QfB_Vbi_ei);
4804 #endif
4805 Qf=(Qf+FFd_QfB);
4806 #if defined(_DERIVATE)
4807 Tf_Vci_ei=(Tf_Vci_ei+FFd_TfB_Vci_ei);
4808 Tf_Vtnode_GND=(Tf_Vtnode_GND+FFd_TfB_Vtnode_GND);
4809 Tf_Vbi_ci=(Tf_Vbi_ci+FFd_TfB_Vbi_ci);
4810 Tf_Vbi_ei=(Tf_Vbi_ei+FFd_TfB_Vbi_ei);
4811 #endif
4812 Tf=(Tf+FFd_TfB);
4813 #if defined(_DERIVATE)
4814 Q_fT_Vci_ei=((Qf_Vci_ei+(hfe*FFd_QfE_Vci_ei))+(hfc*FFQ_cT_Vci_ei));
4815 Q_fT_Vtnode_GND=((Qf_Vtnode_GND+(hfe*FFd_QfE_Vtnode_GND))+(hfc*FFQ_cT_Vtnode_GND));
4816 Q_fT_Vbi_ci=((Qf_Vbi_ci+(hfe*FFd_QfE_Vbi_ci))+(hfc*FFQ_cT_Vbi_ci));
4817 Q_fT_Vbi_ei=((Qf_Vbi_ei+(hfe*FFd_QfE_Vbi_ei))+(hfc*FFQ_cT_Vbi_ei));
4818 #endif
4819 Q_fT=((Qf+(hfe*FFd_QfE))+(hfc*FFQ_cT));
4820 #if defined(_DERIVATE)
4821 T_fT_Vci_ei=((Tf_Vci_ei+(hfe*FFd_TfE_Vci_ei))+(hfc*FFT_cT_Vci_ei));
4822 T_fT_Vtnode_GND=((Tf_Vtnode_GND+(hfe*FFd_TfE_Vtnode_GND))+(hfc*FFT_cT_Vtnode_GND));
4823 T_fT_Vbi_ci=((Tf_Vbi_ci+(hfe*FFd_TfE_Vbi_ci))+(hfc*FFT_cT_Vbi_ci));
4824 T_fT_Vbi_ei=((Tf_Vbi_ei+(hfe*FFd_TfE_Vbi_ei))+(hfc*FFT_cT_Vbi_ei));
4825 #endif
4826 T_fT=((Tf+(hfe*FFd_TfE))+(hfc*FFT_cT));
4827 #if defined(_DERIVATE)
4828 Qf_Vci_ei=((Qf_Vci_ei+FFd_QfE_Vci_ei)+FFQ_fC_Vci_ei);
4829 Qf_Vtnode_GND=((Qf_Vtnode_GND+FFd_QfE_Vtnode_GND)+FFQ_fC_Vtnode_GND);
4830 Qf_Vbi_ci=((Qf_Vbi_ci+FFd_QfE_Vbi_ci)+FFQ_fC_Vbi_ci);
4831 Qf_Vbi_ei=((Qf_Vbi_ei+FFd_QfE_Vbi_ei)+FFQ_fC_Vbi_ei);
4832 #endif
4833 Qf=((Qf+FFd_QfE)+FFQ_fC);
4834 #if defined(_DERIVATE)
4835 Tf_Vci_ei=((Tf_Vci_ei+FFd_TfE_Vci_ei)+FFT_fC_Vci_ei);
4836 Tf_Vtnode_GND=((Tf_Vtnode_GND+FFd_TfE_Vtnode_GND)+FFT_fC_Vtnode_GND);
4837 Tf_Vbi_ci=((Tf_Vbi_ci+FFd_TfE_Vbi_ci)+FFT_fC_Vbi_ci);
4838 Tf_Vbi_ei=((Tf_Vbi_ei+FFd_TfE_Vbi_ei)+FFT_fC_Vbi_ei);
4839 #endif
4840 Tf=((Tf+FFd_TfE)+FFT_fC);
4841 }
4842 #if defined(_DERIVATE)
4843 Qr_Vci_ei=0.0;
4844 Qr_Vtnode_GND=(Tr*itr_Vtnode_GND);
4845 Qr_Vbi_ci=(Tr*itr_Vbi_ci);
4846 Qr_Vbi_ei=(Tr*itr_Vbi_ei);
4847 #endif
4848 Qr=(Tr*itr);
4849 l_it=0;
4850 if
4851 (((Qf>(1.0e-5*Q_p))||(a_h>1.0e-5)))
4852 {
4853 {
4854 double m00_sqrt(d00_sqrt0,((T_f0*itf)*Q_fT))
4855 #if defined(_DERIVATE)
4856 double m10_sqrt(d10_sqrt0,d00_sqrt0,((T_f0*itf)*Q_fT))
4857 #endif
4858 #if defined(_DERIVATE)
4859 Qf_Vci_ei=(((T_f0*itf_Vci_ei)*Q_fT)+((T_f0*itf)*Q_fT_Vci_ei))*d10_sqrt0;
4860 Qf_Vtnode_GND=((((T_f0_Vtnode_GND*itf)+(T_f0*itf_Vtnode_GND))*Q_fT)+((T_f0*itf)*Q_fT_Vtnode_GND))*d10_sqrt0;
4861 Qf_Vbi_ci=((((T_f0_Vbi_ci*itf)+(T_f0*itf_Vbi_ci))*Q_fT)+((T_f0*itf)*Q_fT_Vbi_ci))*d10_sqrt0;
4862 Qf_Vbi_ei=((((T_f0_Vbi_ei*itf)+(T_f0*itf_Vbi_ei))*Q_fT)+((T_f0*itf)*Q_fT_Vbi_ei))*d10_sqrt0;
4863 #endif
4864 Qf=d00_sqrt0;
4865 }
4866 #if defined(_DERIVATE)
4867 Q_pT_Vtnode_GND=((Q_0_Vtnode_GND+Qf_Vtnode_GND)+Qr_Vtnode_GND);
4868 Q_pT_Vbi_ei=((Q_0_Vbi_ei+Qf_Vbi_ei)+Qr_Vbi_ei);
4869 Q_pT_Vbi_ci=((Q_0_Vbi_ci+Qf_Vbi_ci)+Qr_Vbi_ci);
4870 Q_pT_Vci_ei=(Qf_Vci_ei+Qr_Vci_ei);
4871 #endif
4872 Q_pT=((Q_0+Qf)+Qr);
4873 #if defined(_DERIVATE)
4874 d_Q_Vtnode_GND=Q_pT_Vtnode_GND;
4875 d_Q_Vbi_ei=Q_pT_Vbi_ei;
4876 d_Q_Vbi_ci=Q_pT_Vbi_ci;
4877 d_Q_Vci_ei=Q_pT_Vci_ei;
4878 #endif
4879 d_Q=Q_pT;
4880 while
4881 (((fabs(d_Q)>=(1.0e-5*fabs(Q_pT)))&&(l_it<=100)))
4882 {
4883 #if defined(_DYNAMIC)
4884 d_Q0=d_Q;
4885 #endif
4886 #if defined(_DERIVATE)
4887 I_Tf1_Vci_ei=(-i_0f*Q_pT_Vci_ei/Q_pT/Q_pT);
4888 I_Tf1_Vtnode_GND=((i_0f_Vtnode_GND*Q_pT-i_0f*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
4889 I_Tf1_Vbi_ei=((i_0f_Vbi_ei*Q_pT-i_0f*Q_pT_Vbi_ei)/Q_pT/Q_pT);
4890 I_Tf1_Vbi_ci=(-i_0f*Q_pT_Vbi_ci/Q_pT/Q_pT);
4891 #endif
4892 I_Tf1=(i_0f/Q_pT);
4893 #if defined(_DERIVATE)
4894 a_h_Vci_ei=(Oich*I_Tf1_Vci_ei);
4895 a_h_Vtnode_GND=(Oich*I_Tf1_Vtnode_GND);
4896 a_h_Vbi_ei=(Oich*I_Tf1_Vbi_ei);
4897 a_h_Vbi_ci=(Oich*I_Tf1_Vbi_ci);
4898 #endif
4899 a_h=(Oich*I_Tf1);
4900 #if defined(_DERIVATE)
4901 itf_Vci_ei=((I_Tf1_Vci_ei*(1.0+a_h))+(I_Tf1*a_h_Vci_ei));
4902 itf_Vtnode_GND=((I_Tf1_Vtnode_GND*(1.0+a_h))+(I_Tf1*a_h_Vtnode_GND));
4903 itf_Vbi_ei=((I_Tf1_Vbi_ei*(1.0+a_h))+(I_Tf1*a_h_Vbi_ei));
4904 itf_Vbi_ci=((I_Tf1_Vbi_ci*(1.0+a_h))+(I_Tf1*a_h_Vbi_ci));
4905 #endif
4906 itf=(I_Tf1*(1.0+a_h));
4907 #if defined(_DERIVATE)
4908 itr_Vci_ei=(-i_0r*Q_pT_Vci_ei/Q_pT/Q_pT);
4909 itr_Vtnode_GND=((i_0r_Vtnode_GND*Q_pT-i_0r*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
4910 itr_Vbi_ci=((i_0r_Vbi_ci*Q_pT-i_0r*Q_pT_Vbi_ci)/Q_pT/Q_pT);
4911 itr_Vbi_ei=(-i_0r*Q_pT_Vbi_ei/Q_pT/Q_pT);
4912 #endif
4913 itr=(i_0r/Q_pT);
4914 #if defined(_DERIVATE)
4915 Tf_Vci_ei=0.0;
4916 Tf_Vtnode_GND=T_f0_Vtnode_GND;
4917 Tf_Vbi_ci=T_f0_Vbi_ci;
4918 Tf_Vbi_ei=T_f0_Vbi_ei;
4919 #endif
4920 Tf=T_f0;
4921 #if defined(_DERIVATE)
4922 Qf_Vci_ei=(T_f0*itf_Vci_ei);
4923 Qf_Vtnode_GND=((T_f0_Vtnode_GND*itf)+(T_f0*itf_Vtnode_GND));
4924 Qf_Vbi_ci=((T_f0_Vbi_ci*itf)+(T_f0*itf_Vbi_ci));
4925 Qf_Vbi_ei=((T_f0_Vbi_ei*itf)+(T_f0*itf_Vbi_ei));
4926 #endif
4927 Qf=(T_f0*itf);
4928 if
4929 ((itf<(1.0e-6*ick)))
4930 {
4931 #if defined(_DERIVATE)
4932 Q_fT_Vci_ei=Qf_Vci_ei;
4933 Q_fT_Vtnode_GND=Qf_Vtnode_GND;
4934 Q_fT_Vbi_ci=Qf_Vbi_ci;
4935 Q_fT_Vbi_ei=Qf_Vbi_ei;
4936 #endif
4937 Q_fT=Qf;
4938 #if defined(_DERIVATE)
4939 T_fT_Vci_ei=Tf_Vci_ei;
4940 T_fT_Vtnode_GND=Tf_Vtnode_GND;
4941 T_fT_Vbi_ci=Tf_Vbi_ci;
4942 T_fT_Vbi_ei=Tf_Vbi_ei;
4943 #endif
4944 T_fT=Tf;
4945 }
4946 else
4947 {
4948 #if defined(_DERIVATE)
4949 FFa_Vci_ei=((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf);
4950 FFa_Vtnode_GND=((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf);
4951 FFa_Vbi_ei=(-ick*itf_Vbi_ei/itf/itf);
4952 FFa_Vbi_ci=(-ick*itf_Vbi_ci/itf/itf);
4953 #endif
4954 FFa=(ick/itf);
4955 {
4956 double m00_logE(d00_logE0,FFa)
4957 double m00_exp(d00_exp1,((-gtfe)*d00_logE0))
4958 #if defined(_DERIVATE)
4959 double m10_logE(d10_logE0,d00_logE0,FFa)
4960 #define d10_exp1 d00_exp1
4961 #endif
4962 #if defined(_DERIVATE)
4963 FFd_TfE_Vtnode_GND=((tef0_t_Vtnode_GND*d00_exp1)+(tef0_t*((-gtfe)*FFa_Vtnode_GND*d10_logE0)*d10_exp1));
4964 FFd_TfE_Vci_ei=(tef0_t*((-gtfe)*FFa_Vci_ei*d10_logE0)*d10_exp1);
4965 FFd_TfE_Vbi_ei=(tef0_t*((-gtfe)*FFa_Vbi_ei*d10_logE0)*d10_exp1);
4966 FFd_TfE_Vbi_ci=(tef0_t*((-gtfe)*FFa_Vbi_ci*d10_logE0)*d10_exp1);
4967 #endif
4968 FFd_TfE=(tef0_t*d00_exp1);
4969 }
4970 #if defined(_DERIVATE)
4971 FFd_QfE_Vtnode_GND=(((FFd_TfE_Vtnode_GND*itf)+(FFd_TfE*itf_Vtnode_GND))/(gtfe+1.0));
4972 FFd_QfE_Vci_ei=(((FFd_TfE_Vci_ei*itf)+(FFd_TfE*itf_Vci_ei))/(gtfe+1.0));
4973 FFd_QfE_Vbi_ei=(((FFd_TfE_Vbi_ei*itf)+(FFd_TfE*itf_Vbi_ei))/(gtfe+1.0));
4974 FFd_QfE_Vbi_ci=(((FFd_TfE_Vbi_ci*itf)+(FFd_TfE*itf_Vbi_ci))/(gtfe+1.0));
4975 #endif
4976 FFd_QfE=((FFd_TfE*itf)/(gtfe+1.0));
4977 #if defined(_DERIVATE)
4978 FFT_fbS_Vtnode_GND=((1.0-fthc)*thcs_t_Vtnode_GND);
4979 #endif
4980 FFT_fbS=((1.0-fthc)*thcs_t);
4981 #if defined(_DERIVATE)
4982 FFx_Vci_ei=(-FFa_Vci_ei);
4983 FFx_Vtnode_GND=(-FFa_Vtnode_GND);
4984 FFx_Vbi_ei=(-FFa_Vbi_ei);
4985 FFx_Vbi_ci=(-FFa_Vbi_ci);
4986 #endif
4987 FFx=(1.0-FFa);
4988 {
4989 double m00_sqrt(d00_sqrt0,((FFx*FFx)+alhc))
4990 #if defined(_DERIVATE)
4991 double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFx*FFx)+alhc))
4992 #endif
4993 #if defined(_DERIVATE)
4994 FFs_Vci_ei=((FFx_Vci_ei*FFx)+(FFx*FFx_Vci_ei))*d10_sqrt0;
4995 FFs_Vtnode_GND=((FFx_Vtnode_GND*FFx)+(FFx*FFx_Vtnode_GND))*d10_sqrt0;
4996 FFs_Vbi_ei=((FFx_Vbi_ei*FFx)+(FFx*FFx_Vbi_ei))*d10_sqrt0;
4997 FFs_Vbi_ci=((FFx_Vbi_ci*FFx)+(FFx*FFx_Vbi_ci))*d10_sqrt0;
4998 #endif
4999 FFs=d00_sqrt0;
5000 }
5001 {
5002 double m00_sqrt(d00_sqrt0,(1.0+alhc))
5003 #if defined(_DERIVATE)
5004 FFw_Vci_ei=((FFx_Vci_ei+FFs_Vci_ei)/(1.0+d00_sqrt0));
5005 FFw_Vtnode_GND=((FFx_Vtnode_GND+FFs_Vtnode_GND)/(1.0+d00_sqrt0));
5006 FFw_Vbi_ei=((FFx_Vbi_ei+FFs_Vbi_ei)/(1.0+d00_sqrt0));
5007 FFw_Vbi_ci=((FFx_Vbi_ci+FFs_Vbi_ci)/(1.0+d00_sqrt0));
5008 #endif
5009 FFw=((FFx+FFs)/(1.0+d00_sqrt0));
5010 }
5011 #if defined(_DERIVATE)
5012 FFw_2_Vci_ei=((FFw_Vci_ei*FFw)+(FFw*FFw_Vci_ei));
5013 FFw_2_Vtnode_GND=((FFw_Vtnode_GND*FFw)+(FFw*FFw_Vtnode_GND));
5014 FFw_2_Vbi_ei=((FFw_Vbi_ei*FFw)+(FFw*FFw_Vbi_ei));
5015 FFw_2_Vbi_ci=((FFw_Vbi_ci*FFw)+(FFw*FFw_Vbi_ci));
5016 #endif
5017 FFw_2=(FFw*FFw);
5018 #if defined(_DERIVATE)
5019 FFd_QfB_Vtnode_GND=((((FFT_fbS_Vtnode_GND*itf)+(FFT_fbS*itf_Vtnode_GND))*FFw_2)+((FFT_fbS*itf)*FFw_2_Vtnode_GND));
5020 FFd_QfB_Vbi_ei=(((FFT_fbS*itf_Vbi_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ei));
5021 FFd_QfB_Vbi_ci=(((FFT_fbS*itf_Vbi_ci)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ci));
5022 FFd_QfB_Vci_ei=(((FFT_fbS*itf_Vci_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vci_ei));
5023 #endif
5024 FFd_QfB=((FFT_fbS*itf)*FFw_2);
5025 #if defined(_DERIVATE)
5026 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)));
5027 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)));
5028 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)));
5029 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)));
5030 #endif
5031 FFa_w=(FFw_2*(1.0+((2.0*FFa)/FFs)));
5032 #if defined(_DERIVATE)
5033 FFd_TfB_Vtnode_GND=((FFT_fbS_Vtnode_GND*FFa_w)+(FFT_fbS*FFa_w_Vtnode_GND));
5034 FFd_TfB_Vci_ei=(FFT_fbS*FFa_w_Vci_ei);
5035 FFd_TfB_Vbi_ei=(FFT_fbS*FFa_w_Vbi_ei);
5036 FFd_TfB_Vbi_ci=(FFT_fbS*FFa_w_Vbi_ci);
5037 #endif
5038 FFd_TfB=(FFT_fbS*FFa_w);
5039 #if defined(_DERIVATE)
5040 FFT_pcS_Vtnode_GND=(fthc*thcs_t_Vtnode_GND);
5041 #endif
5042 FFT_pcS=(fthc*thcs_t);
5043 if
5044 (((latb<=0.0)&&(latl<=0.0)))
5045 {
5046 #if defined(_DERIVATE)
5047 FFQ_fC_Vtnode_GND=((((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND))*FFw_2)+((FFT_pcS*itf)*FFw_2_Vtnode_GND));
5048 FFQ_fC_Vbi_ei=(((FFT_pcS*itf_Vbi_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ei));
5049 FFQ_fC_Vbi_ci=(((FFT_pcS*itf_Vbi_ci)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ci));
5050 FFQ_fC_Vci_ei=(((FFT_pcS*itf_Vci_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vci_ei));
5051 #endif
5052 FFQ_fC=((FFT_pcS*itf)*FFw_2);
5053 #if defined(_DERIVATE)
5054 FFT_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*FFa_w)+(FFT_pcS*FFa_w_Vtnode_GND));
5055 FFT_fC_Vci_ei=(FFT_pcS*FFa_w_Vci_ei);
5056 FFT_fC_Vbi_ei=(FFT_pcS*FFa_w_Vbi_ei);
5057 FFT_fC_Vbi_ci=(FFT_pcS*FFa_w_Vbi_ci);
5058 #endif
5059 FFT_fC=(FFT_pcS*FFa_w);
5060 #if defined(_DERIVATE)
5061 FFQ_cT_Vtnode_GND=FFQ_fC_Vtnode_GND;
5062 FFQ_cT_Vbi_ei=FFQ_fC_Vbi_ei;
5063 FFQ_cT_Vbi_ci=FFQ_fC_Vbi_ci;
5064 FFQ_cT_Vci_ei=FFQ_fC_Vci_ei;
5065 #endif
5066 FFQ_cT=FFQ_fC;
5067 #if defined(_DERIVATE)
5068 FFT_cT_Vtnode_GND=FFT_fC_Vtnode_GND;
5069 FFT_cT_Vci_ei=FFT_fC_Vci_ei;
5070 FFT_cT_Vbi_ei=FFT_fC_Vbi_ei;
5071 FFT_cT_Vbi_ci=FFT_fC_Vbi_ci;
5072 #endif
5073 FFT_cT=FFT_fC;
5074 }
5075 else
5076 {
5077 #if defined(_DERIVATE)
5078 FFQ_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND));
5079 FFQ_fC_Vbi_ei=(FFT_pcS*itf_Vbi_ei);
5080 FFQ_fC_Vbi_ci=(FFT_pcS*itf_Vbi_ci);
5081 FFQ_fC_Vci_ei=(FFT_pcS*itf_Vci_ei);
5082 #endif
5083 FFQ_fC=(FFT_pcS*itf);
5084 #if defined(_DERIVATE)
5085 FCa_Vci_ei=(-((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf));
5086 FCa_Vtnode_GND=(-((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf));
5087 FCa_Vbi_ei=(-(-ick*itf_Vbi_ei/itf/itf));
5088 FCa_Vbi_ci=(-(-ick*itf_Vbi_ci/itf/itf));
5089 #endif
5090 FCa=(1.0-(ick/itf));
5091 {
5092 double m00_sqrt(d00_sqrt0,((FCa*FCa)+alhc))
5093 #if defined(_DERIVATE)
5094 double m10_sqrt(d10_sqrt0,d00_sqrt0,((FCa*FCa)+alhc))
5095 #endif
5096 #if defined(_DERIVATE)
5097 FCrt_Vci_ei=((FCa_Vci_ei*FCa)+(FCa*FCa_Vci_ei))*d10_sqrt0;
5098 FCrt_Vtnode_GND=((FCa_Vtnode_GND*FCa)+(FCa*FCa_Vtnode_GND))*d10_sqrt0;
5099 FCrt_Vbi_ei=((FCa_Vbi_ei*FCa)+(FCa*FCa_Vbi_ei))*d10_sqrt0;
5100 FCrt_Vbi_ci=((FCa_Vbi_ci*FCa)+(FCa*FCa_Vbi_ci))*d10_sqrt0;
5101 #endif
5102 FCrt=d00_sqrt0;
5103 }
5104 {
5105 double m00_sqrt(d00_sqrt0,(1.0+alhc))
5106 #if defined(_DERIVATE)
5107 FCa_ck_Vci_ei=(-((FCa_Vci_ei+FCrt_Vci_ei)/(1.0+d00_sqrt0)));
5108 FCa_ck_Vtnode_GND=(-((FCa_Vtnode_GND+FCrt_Vtnode_GND)/(1.0+d00_sqrt0)));
5109 FCa_ck_Vbi_ei=(-((FCa_Vbi_ei+FCrt_Vbi_ei)/(1.0+d00_sqrt0)));
5110 FCa_ck_Vbi_ci=(-((FCa_Vbi_ci+FCrt_Vbi_ci)/(1.0+d00_sqrt0)));
5111 #endif
5112 FCa_ck=(1.0-((FCa+FCrt)/(1.0+d00_sqrt0)));
5113 }
5114 #if defined(_DERIVATE)
5115 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));
5116 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));
5117 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));
5118 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));
5119 #endif
5120 FCdaick_ditf=(((FCa_ck-1.0)*(1-FCa))/(FCrt*itf));
5121 if
5122 ((latb>latl))
5123 {
5124 #if defined(_DERIVATE)
5125 FCz_Vci_ei=0.0;
5126 FCz_Vtnode_GND=0.0;
5127 FCz_Vbi_ei=0.0;
5128 FCz_Vbi_ci=0.0;
5129 #endif
5130 FCz=(latb-latl);
5131 FCxl=(1.0+latl);
5132 FCxb=(1.0+latb);
5133 if
5134 ((latb>0.01))
5135 {
5136 {
5137 double m00_logE(d00_logE0,(FCxb/FCxl))
5138 FCln=d00_logE0;
5139 }
5140 {
5141 double m00_exp(d00_exp0,((FCa_ck-1.0)*FCln))
5142 #if defined(_DERIVATE)
5143 #define d10_exp0 d00_exp0
5144 #endif
5145 #if defined(_DERIVATE)
5146 FCa1_Vci_ei=FCa_ck_Vci_ei*FCln*d10_exp0;
5147 FCa1_Vtnode_GND=FCa_ck_Vtnode_GND*FCln*d10_exp0;
5148 FCa1_Vbi_ei=FCa_ck_Vbi_ei*FCln*d10_exp0;
5149 FCa1_Vbi_ci=FCa_ck_Vbi_ci*FCln*d10_exp0;
5150 #endif
5151 FCa1=d00_exp0;
5152 }
5153 #if defined(_DERIVATE)
5154 FCd_a_Vci_ei=(-(-FCa1_Vci_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
5155 FCd_a_Vtnode_GND=(-(-FCa1_Vtnode_GND*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
5156 FCd_a_Vbi_ei=(-(-FCa1_Vbi_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
5157 FCd_a_Vbi_ci=(-(-FCa1_Vbi_ci*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
5158 #endif
5159 FCd_a=(1.0/(latl-(FCa1*latb)));
5160 #if defined(_DERIVATE)
5161 FCw_Vci_ei=((FCa1_Vci_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vci_ei));
5162 FCw_Vtnode_GND=((FCa1_Vtnode_GND*FCd_a)+((FCa1-1.0)*FCd_a_Vtnode_GND));
5163 FCw_Vbi_ei=((FCa1_Vbi_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ei));
5164 FCw_Vbi_ci=((FCa1_Vbi_ci*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ci));
5165 #endif
5166 FCw=((FCa1-1.0)*FCd_a);
5167 {
5168 double m00_logE(d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
5169 #if defined(_DERIVATE)
5170 double m10_logE(d10_logE0,d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
5171 #endif
5172 #if defined(_DERIVATE)
5173 FCa_Vci_ei=(((latb*FCw_Vci_ei)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vci_ei))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
5174 FCa_Vtnode_GND=(((latb*FCw_Vtnode_GND)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vtnode_GND))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
5175 FCa_Vbi_ei=(((latb*FCw_Vbi_ei)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vbi_ei))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
5176 FCa_Vbi_ci=(((latb*FCw_Vbi_ci)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vbi_ci))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
5177 #endif
5178 FCa=d00_logE0;
5179 }
5180 #if defined(_DERIVATE)
5181 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));
5182 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));
5183 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));
5184 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));
5185 #endif
5186 FCdw_daick=(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a);
5187 {
5188 double m00_logE(d00_logE0,(1.0+(latb*FCw)))
5189 #if defined(_DERIVATE)
5190 double m10_logE(d10_logE0,d00_logE0,(1.0+(latb*FCw)))
5191 #endif
5192 #if defined(_DERIVATE)
5193 FClnb_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
5194 FClnb_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
5195 FClnb_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
5196 FClnb_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
5197 #endif
5198 FClnb=d00_logE0;
5199 }
5200 {
5201 double m00_logE(d00_logE0,(1.0+(latl*FCw)))
5202 #if defined(_DERIVATE)
5203 double m10_logE(d10_logE0,d00_logE0,(1.0+(latl*FCw)))
5204 #endif
5205 #if defined(_DERIVATE)
5206 FClnl_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
5207 FClnl_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
5208 FClnl_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
5209 FClnl_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
5210 #endif
5211 FClnl=d00_logE0;
5212 }
5213 #if defined(_DERIVATE)
5214 FCa1_Vci_ei=(FClnb_Vci_ei-FClnl_Vci_ei);
5215 FCa1_Vtnode_GND=(FClnb_Vtnode_GND-FClnl_Vtnode_GND);
5216 FCa1_Vbi_ei=(FClnb_Vbi_ei-FClnl_Vbi_ei);
5217 FCa1_Vbi_ci=(FClnb_Vbi_ci-FClnl_Vbi_ci);
5218 #endif
5219 FCa1=(FClnb-FClnl);
5220 #if defined(_DERIVATE)
5221 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))));
5222 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))));
5223 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))));
5224 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))));
5225 #endif
5226 FCda1_dw=((latb/(1.0+(latb*FCw)))-(latl/(1.0+(latl*FCw))));
5227 }
5228 else
5229 {
5230 #if defined(_DERIVATE)
5231 FCf1_Vci_ei=(-FCa_ck_Vci_ei);
5232 FCf1_Vtnode_GND=(-FCa_ck_Vtnode_GND);
5233 FCf1_Vbi_ei=(-FCa_ck_Vbi_ei);
5234 FCf1_Vbi_ci=(-FCa_ck_Vbi_ci);
5235 #endif
5236 FCf1=(1.0-FCa_ck);
5237 #if defined(_DERIVATE)
5238 FCd_a_Vci_ei=(-(-FCf1_Vci_ei*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
5239 FCd_a_Vtnode_GND=(-(-FCf1_Vtnode_GND*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
5240 FCd_a_Vbi_ei=(-(-FCf1_Vbi_ei*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
5241 FCd_a_Vbi_ci=(-(-FCf1_Vbi_ci*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
5242 #endif
5243 FCd_a=(1.0/(1.0-(FCf1*latb)));
5244 #if defined(_DERIVATE)
5245 FCw_Vci_ei=((FCf1_Vci_ei*FCd_a)+(FCf1*FCd_a_Vci_ei));
5246 FCw_Vtnode_GND=((FCf1_Vtnode_GND*FCd_a)+(FCf1*FCd_a_Vtnode_GND));
5247 FCw_Vbi_ei=((FCf1_Vbi_ei*FCd_a)+(FCf1*FCd_a_Vbi_ei));
5248 FCw_Vbi_ci=((FCf1_Vbi_ci*FCd_a)+(FCf1*FCd_a_Vbi_ci));
5249 #endif
5250 FCw=(FCf1*FCd_a);
5251 #if defined(_DERIVATE)
5252 FCa_Vci_ei=((FCz_Vci_ei*FCw)+(FCz*FCw_Vci_ei));
5253 FCa_Vtnode_GND=((FCz_Vtnode_GND*FCw)+(FCz*FCw_Vtnode_GND));
5254 FCa_Vbi_ei=((FCz_Vbi_ei*FCw)+(FCz*FCw_Vbi_ei));
5255 FCa_Vbi_ci=((FCz_Vbi_ci*FCw)+(FCz*FCw_Vbi_ci));
5256 #endif
5257 FCa=(FCz*FCw);
5258 #if defined(_DERIVATE)
5259 FCdw_daick_Vci_ei=((((-1.0)*FCd_a_Vci_ei)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vci_ei));
5260 FCdw_daick_Vtnode_GND=((((-1.0)*FCd_a_Vtnode_GND)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vtnode_GND));
5261 FCdw_daick_Vbi_ei=((((-1.0)*FCd_a_Vbi_ei)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vbi_ei));
5262 FCdw_daick_Vbi_ci=((((-1.0)*FCd_a_Vbi_ci)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vbi_ci));
5263 #endif
5264 FCdw_daick=(((-1.0)*FCd_a)*FCd_a);
5265 #if defined(_DERIVATE)
5266 FClnb_Vci_ei=(latb*FCw_Vci_ei);
5267 FClnb_Vtnode_GND=(latb*FCw_Vtnode_GND);
5268 FClnb_Vbi_ei=(latb*FCw_Vbi_ei);
5269 FClnb_Vbi_ci=(latb*FCw_Vbi_ci);
5270 #endif
5271 FClnb=(latb*FCw);
5272 #if defined(_DERIVATE)
5273 FClnl_Vci_ei=(latl*FCw_Vci_ei);
5274 FClnl_Vtnode_GND=(latl*FCw_Vtnode_GND);
5275 FClnl_Vbi_ei=(latl*FCw_Vbi_ei);
5276 FClnl_Vbi_ci=(latl*FCw_Vbi_ci);
5277 #endif
5278 FClnl=(latl*FCw);
5279 #if defined(_DERIVATE)
5280 FCa1_Vci_ei=((FCz_Vci_ei*FCw)+(FCz*FCw_Vci_ei));
5281 FCa1_Vtnode_GND=((FCz_Vtnode_GND*FCw)+(FCz*FCw_Vtnode_GND));
5282 FCa1_Vbi_ei=((FCz_Vbi_ei*FCw)+(FCz*FCw_Vbi_ei));
5283 FCa1_Vbi_ci=((FCz_Vbi_ci*FCw)+(FCz*FCw_Vbi_ci));
5284 #endif
5285 FCa1=(FCz*FCw);
5286 #if defined(_DERIVATE)
5287 FCda1_dw_Vci_ei=FCz_Vci_ei;
5288 FCda1_dw_Vtnode_GND=FCz_Vtnode_GND;
5289 FCda1_dw_Vbi_ei=FCz_Vbi_ei;
5290 FCda1_dw_Vbi_ci=FCz_Vbi_ci;
5291 #endif
5292 FCda1_dw=FCz;
5293 }
5294 #if defined(_DERIVATE)
5295 FCf_CT_Vci_ei=(-2.0*FCz_Vci_ei/FCz/FCz);
5296 FCf_CT_Vbi_ei=(-2.0*FCz_Vbi_ei/FCz/FCz);
5297 FCf_CT_Vbi_ci=(-2.0*FCz_Vbi_ci/FCz/FCz);
5298 FCf_CT_Vtnode_GND=(-2.0*FCz_Vtnode_GND/FCz/FCz);
5299 #endif
5300 FCf_CT=(2.0/FCz);
5301 #if defined(_DERIVATE)
5302 FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
5303 FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
5304 FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
5305 FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
5306 #endif
5307 FCw2=(FCw*FCw);
5308 #if defined(_DERIVATE)
5309 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);
5310 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);
5311 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);
5312 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);
5313 #endif
5314 FCf1=((((((latb*latl)*FCw)*FCw2)/3.0)+(((latb+latl)*FCw2)/2.0))+FCw);
5315 #if defined(_DERIVATE)
5316 FCdf1_dw_Vci_ei=(((latb*latl)*FCw2_Vci_ei)+((latb+latl)*FCw_Vci_ei));
5317 FCdf1_dw_Vtnode_GND=(((latb*latl)*FCw2_Vtnode_GND)+((latb+latl)*FCw_Vtnode_GND));
5318 FCdf1_dw_Vbi_ei=(((latb*latl)*FCw2_Vbi_ei)+((latb+latl)*FCw_Vbi_ei));
5319 FCdf1_dw_Vbi_ci=(((latb*latl)*FCw2_Vbi_ci)+((latb+latl)*FCw_Vbi_ci));
5320 #endif
5321 FCdf1_dw=((((latb*latl)*FCw2)+((latb+latl)*FCw))+1.0);
5322 #if defined(_DERIVATE)
5323 z_Vci_ei=(latb*FCw_Vci_ei);
5324 z_Vtnode_GND=(latb*FCw_Vtnode_GND);
5325 z_Vbi_ei=(latb*FCw_Vbi_ei);
5326 z_Vbi_ci=(latb*FCw_Vbi_ci);
5327 #endif
5328 z=(latb*FCw);
5329 if
5330 ((z>1.0e-6))
5331 {
5332 #if defined(_DERIVATE)
5333 x_Vci_ei=z_Vci_ei;
5334 x_Vtnode_GND=z_Vtnode_GND;
5335 x_Vbi_ei=z_Vbi_ei;
5336 x_Vbi_ci=z_Vbi_ci;
5337 #endif
5338 x=(1.0+z);
5339 #if defined(_DERIVATE)
5340 a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
5341 a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
5342 a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
5343 a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
5344 #endif
5345 a=(x*x);
5346 #if defined(_DERIVATE)
5347 a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vci_ei))));
5348 a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vbi_ei))));
5349 a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vbi_ci))));
5350 a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vtnode_GND))));
5351 #endif
5352 a2=(0.250*((a*((2.0*FClnb)-1.0))+1.0));
5353 #if defined(_DERIVATE)
5354 a3_Vci_ei=(((((a_Vci_ei*x)+(a*x_Vci_ei))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vci_ei)))/9.0);
5355 a3_Vbi_ei=(((((a_Vbi_ei*x)+(a*x_Vbi_ei))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vbi_ei)))/9.0);
5356 a3_Vbi_ci=(((((a_Vbi_ci*x)+(a*x_Vbi_ci))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vbi_ci)))/9.0);
5357 a3_Vtnode_GND=(((((a_Vtnode_GND*x)+(a*x_Vtnode_GND))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vtnode_GND)))/9.0);
5358 #endif
5359 a3=((((a*x)*((3.0*FClnb)-1.0))+1.0)/9.0);
5360 r=(latl/latb);
5361 #if defined(_DERIVATE)
5362 FCf2_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latb);
5363 FCf2_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latb);
5364 FCf2_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latb);
5365 FCf2_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latb);
5366 #endif
5367 FCf2=((((1.0-r)*a2)+(r*a3))/latb);
5368 #if defined(_DERIVATE)
5369 FCdf2_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vci_ei));
5370 FCdf2_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vtnode_GND));
5371 FCdf2_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vbi_ei));
5372 FCdf2_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vbi_ci));
5373 #endif
5374 FCdf2_dw=((((1.0-r)*x)+(r*a))*FClnb);
5375 }
5376 else
5377 {
5378 #if defined(_DERIVATE)
5379 a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
5380 a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
5381 a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
5382 a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
5383 #endif
5384 a=(z*z);
5385 #if defined(_DERIVATE)
5386 a2_Vci_ei=((z_Vci_ei-(0.5*a_Vci_ei))+((z_Vci_ei*a)+(z*a_Vci_ei)));
5387 a2_Vbi_ei=((z_Vbi_ei-(0.5*a_Vbi_ei))+((z_Vbi_ei*a)+(z*a_Vbi_ei)));
5388 a2_Vbi_ci=((z_Vbi_ci-(0.5*a_Vbi_ci))+((z_Vbi_ci*a)+(z*a_Vbi_ci)));
5389 a2_Vtnode_GND=((z_Vtnode_GND-(0.5*a_Vtnode_GND))+((z_Vtnode_GND*a)+(z*a_Vtnode_GND)));
5390 #endif
5391 a2=(((3.0+z)-(0.5*a))+(z*a));
5392 #if defined(_DERIVATE)
5393 a3_Vci_ei=((((-2.0)*z_Vci_ei)+(1.5*a_Vci_ei))+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0));
5394 a3_Vbi_ei=((((-2.0)*z_Vbi_ei)+(1.5*a_Vbi_ei))+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0));
5395 a3_Vbi_ci=((((-2.0)*z_Vbi_ci)+(1.5*a_Vbi_ci))+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0));
5396 a3_Vtnode_GND=((((-2.0)*z_Vtnode_GND)+(1.5*a_Vtnode_GND))+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0));
5397 #endif
5398 a3=((((-2.0)*z)+(1.5*a))+(((2.0*a)*a)/3.0));
5399 #if defined(_DERIVATE)
5400 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);
5401 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);
5402 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);
5403 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);
5404 #endif
5405 FCf2=(((((latb*a2)+(latl*a3))*FCw)*FCw)/6.0);
5406 #if defined(_DERIVATE)
5407 FCdf2_dw_Vci_ei=((((z_Vci_ei+(0.5*a_Vci_ei))-(((a_Vci_ei*z)+(a*z_Vci_ei))/3.0))+((((5.0*a_Vci_ei)*a)+((5.0*a)*a_Vci_ei))/6.0))+(((latl*FCw_Vci_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vci_ei-z_Vci_ei)+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0)))));
5408 FCdf2_dw_Vtnode_GND=((((z_Vtnode_GND+(0.5*a_Vtnode_GND))-(((a_Vtnode_GND*z)+(a*z_Vtnode_GND))/3.0))+((((5.0*a_Vtnode_GND)*a)+((5.0*a)*a_Vtnode_GND))/6.0))+(((latl*FCw_Vtnode_GND)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vtnode_GND-z_Vtnode_GND)+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0)))));
5409 FCdf2_dw_Vbi_ei=((((z_Vbi_ei+(0.5*a_Vbi_ei))-(((a_Vbi_ei*z)+(a*z_Vbi_ei))/3.0))+((((5.0*a_Vbi_ei)*a)+((5.0*a)*a_Vbi_ei))/6.0))+(((latl*FCw_Vbi_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vbi_ei-z_Vbi_ei)+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0)))));
5410 FCdf2_dw_Vbi_ci=((((z_Vbi_ci+(0.5*a_Vbi_ci))-(((a_Vbi_ci*z)+(a*z_Vbi_ci))/3.0))+((((5.0*a_Vbi_ci)*a)+((5.0*a)*a_Vbi_ci))/6.0))+(((latl*FCw_Vbi_ci)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vbi_ci-z_Vbi_ci)+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0)))));
5411 #endif
5412 FCdf2_dw=((((z+(0.5*a))-((a*z)/3.0))+(((5.0*a)*a)/6.0))+((latl*FCw)*((a-z)+(((2.0*a)*a)/3.0))));
5413 }
5414 #if defined(_DERIVATE)
5415 z_Vci_ei=(latl*FCw_Vci_ei);
5416 z_Vtnode_GND=(latl*FCw_Vtnode_GND);
5417 z_Vbi_ei=(latl*FCw_Vbi_ei);
5418 z_Vbi_ci=(latl*FCw_Vbi_ci);
5419 #endif
5420 z=(latl*FCw);
5421 if
5422 ((z>1.0e-6))
5423 {
5424 #if defined(_DERIVATE)
5425 x_Vci_ei=z_Vci_ei;
5426 x_Vtnode_GND=z_Vtnode_GND;
5427 x_Vbi_ei=z_Vbi_ei;
5428 x_Vbi_ci=z_Vbi_ci;
5429 #endif
5430 x=(1.0+z);
5431 #if defined(_DERIVATE)
5432 a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
5433 a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
5434 a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
5435 a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
5436 #endif
5437 a=(x*x);
5438 #if defined(_DERIVATE)
5439 a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vci_ei))));
5440 a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vbi_ei))));
5441 a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vbi_ci))));
5442 a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vtnode_GND))));
5443 #endif
5444 a2=(0.250*((a*((2.0*FClnl)-1.0))+1.0));
5445 #if defined(_DERIVATE)
5446 a3_Vci_ei=(((((a_Vci_ei*x)+(a*x_Vci_ei))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vci_ei)))/9.0);
5447 a3_Vbi_ei=(((((a_Vbi_ei*x)+(a*x_Vbi_ei))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vbi_ei)))/9.0);
5448 a3_Vbi_ci=(((((a_Vbi_ci*x)+(a*x_Vbi_ci))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vbi_ci)))/9.0);
5449 a3_Vtnode_GND=(((((a_Vtnode_GND*x)+(a*x_Vtnode_GND))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vtnode_GND)))/9.0);
5450 #endif
5451 a3=((((a*x)*((3.0*FClnl)-1.0))+1.0)/9.0);
5452 r=(latb/latl);
5453 #if defined(_DERIVATE)
5454 FCf3_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latl);
5455 FCf3_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latl);
5456 FCf3_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latl);
5457 FCf3_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latl);
5458 #endif
5459 FCf3=((((1.0-r)*a2)+(r*a3))/latl);
5460 #if defined(_DERIVATE)
5461 FCdf3_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vci_ei));
5462 FCdf3_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vtnode_GND));
5463 FCdf3_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vbi_ei));
5464 FCdf3_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vbi_ci));
5465 #endif
5466 FCdf3_dw=((((1.0-r)*x)+(r*a))*FClnl);
5467 }
5468 else
5469 {
5470 #if defined(_DERIVATE)
5471 a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
5472 a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
5473 a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
5474 a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
5475 #endif
5476 a=(z*z);
5477 #if defined(_DERIVATE)
5478 a2_Vci_ei=((z_Vci_ei-(0.5*a_Vci_ei))+((z_Vci_ei*a)+(z*a_Vci_ei)));
5479 a2_Vbi_ei=((z_Vbi_ei-(0.5*a_Vbi_ei))+((z_Vbi_ei*a)+(z*a_Vbi_ei)));
5480 a2_Vbi_ci=((z_Vbi_ci-(0.5*a_Vbi_ci))+((z_Vbi_ci*a)+(z*a_Vbi_ci)));
5481 a2_Vtnode_GND=((z_Vtnode_GND-(0.5*a_Vtnode_GND))+((z_Vtnode_GND*a)+(z*a_Vtnode_GND)));
5482 #endif
5483 a2=(((3.0+z)-(0.5*a))+(z*a));
5484 #if defined(_DERIVATE)
5485 a3_Vci_ei=((((-2.0)*z_Vci_ei)+(1.5*a_Vci_ei))+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0));
5486 a3_Vbi_ei=((((-2.0)*z_Vbi_ei)+(1.5*a_Vbi_ei))+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0));
5487 a3_Vbi_ci=((((-2.0)*z_Vbi_ci)+(1.5*a_Vbi_ci))+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0));
5488 a3_Vtnode_GND=((((-2.0)*z_Vtnode_GND)+(1.5*a_Vtnode_GND))+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0));
5489 #endif
5490 a3=((((-2.0)*z)+(1.5*a))+(((2.0*a)*a)/3.0));
5491 #if defined(_DERIVATE)
5492 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);
5493 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);
5494 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);
5495 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);
5496 #endif
5497 FCf3=(((((latl*a2)+(latb*a3))*FCw)*FCw)/6.0);
5498 #if defined(_DERIVATE)
5499 FCdf3_dw_Vci_ei=((((z_Vci_ei+(0.5*a_Vci_ei))-(((a_Vci_ei*z)+(a*z_Vci_ei))/3.0))+((((5.0*a_Vci_ei)*a)+((5.0*a)*a_Vci_ei))/6.0))+(((latb*FCw_Vci_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vci_ei-z_Vci_ei)+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0)))));
5500 FCdf3_dw_Vtnode_GND=((((z_Vtnode_GND+(0.5*a_Vtnode_GND))-(((a_Vtnode_GND*z)+(a*z_Vtnode_GND))/3.0))+((((5.0*a_Vtnode_GND)*a)+((5.0*a)*a_Vtnode_GND))/6.0))+(((latb*FCw_Vtnode_GND)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vtnode_GND-z_Vtnode_GND)+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0)))));
5501 FCdf3_dw_Vbi_ei=((((z_Vbi_ei+(0.5*a_Vbi_ei))-(((a_Vbi_ei*z)+(a*z_Vbi_ei))/3.0))+((((5.0*a_Vbi_ei)*a)+((5.0*a)*a_Vbi_ei))/6.0))+(((latb*FCw_Vbi_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vbi_ei-z_Vbi_ei)+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0)))));
5502 FCdf3_dw_Vbi_ci=((((z_Vbi_ci+(0.5*a_Vbi_ci))-(((a_Vbi_ci*z)+(a*z_Vbi_ci))/3.0))+((((5.0*a_Vbi_ci)*a)+((5.0*a)*a_Vbi_ci))/6.0))+(((latb*FCw_Vbi_ci)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vbi_ci-z_Vbi_ci)+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0)))));
5503 #endif
5504 FCdf3_dw=((((z+(0.5*a))-((a*z)/3.0))+(((5.0*a)*a)/6.0))+((latb*FCw)*((a-z)+(((2.0*a)*a)/3.0))));
5505 }
5506 #if defined(_DERIVATE)
5507 FCf_ci_Vci_ei=((FCf_CT_Vci_ei*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vci_ei*FCf1)+(FCa*FCf1_Vci_ei))-FCf2_Vci_ei)+FCf3_Vci_ei)));
5508 FCf_ci_Vtnode_GND=((FCf_CT_Vtnode_GND*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vtnode_GND*FCf1)+(FCa*FCf1_Vtnode_GND))-FCf2_Vtnode_GND)+FCf3_Vtnode_GND)));
5509 FCf_ci_Vbi_ei=((FCf_CT_Vbi_ei*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vbi_ei*FCf1)+(FCa*FCf1_Vbi_ei))-FCf2_Vbi_ei)+FCf3_Vbi_ei)));
5510 FCf_ci_Vbi_ci=((FCf_CT_Vbi_ci*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vbi_ci*FCf1)+(FCa*FCf1_Vbi_ci))-FCf2_Vbi_ci)+FCf3_Vbi_ci)));
5511 #endif
5512 FCf_ci=(FCf_CT*(((FCa*FCf1)-FCf2)+FCf3));
5513 #if defined(_DERIVATE)
5514 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)));
5515 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)));
5516 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)));
5517 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)));
5518 #endif
5519 FCdfc_dw=(FCf_CT*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw));
5520 #if defined(_DERIVATE)
5521 FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
5522 FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
5523 FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
5524 FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
5525 #endif
5526 FCdw_ditf=(FCdw_daick*FCdaick_ditf);
5527 #if defined(_DERIVATE)
5528 FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
5529 FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
5530 FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
5531 FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
5532 #endif
5533 FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
5534 #if defined(_DERIVATE)
5535 a_Vci_ei=(latb*FCw_Vci_ei);
5536 a_Vbi_ei=(latb*FCw_Vbi_ei);
5537 a_Vbi_ci=(latb*FCw_Vbi_ci);
5538 a_Vtnode_GND=(latb*FCw_Vtnode_GND);
5539 #endif
5540 a=(latb*FCw);
5541 if
5542 ((a>1.0e-6))
5543 {
5544 #if defined(_DERIVATE)
5545 FCf2_Vci_ei=((a_Vci_ei-FClnb_Vci_ei)/latb);
5546 FCf2_Vbi_ei=((a_Vbi_ei-FClnb_Vbi_ei)/latb);
5547 FCf2_Vbi_ci=((a_Vbi_ci-FClnb_Vbi_ci)/latb);
5548 FCf2_Vtnode_GND=((a_Vtnode_GND-FClnb_Vtnode_GND)/latb);
5549 #endif
5550 FCf2=((a-FClnb)/latb);
5551 #if defined(_DERIVATE)
5552 FCdf2_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
5553 FCdf2_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
5554 FCdf2_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
5555 FCdf2_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
5556 #endif
5557 FCdf2_dw=(a/(1.0+a));
5558 }
5559 else
5560 {
5561 #if defined(_DERIVATE)
5562 FCf2_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
5563 FCf2_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
5564 FCf2_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
5565 FCf2_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
5566 #endif
5567 FCf2=((0.5*a)*FCw);
5568 #if defined(_DERIVATE)
5569 FCdf2_dw_Vci_ei=a_Vci_ei;
5570 FCdf2_dw_Vtnode_GND=a_Vtnode_GND;
5571 FCdf2_dw_Vbi_ei=a_Vbi_ei;
5572 FCdf2_dw_Vbi_ci=a_Vbi_ci;
5573 #endif
5574 FCdf2_dw=a;
5575 }
5576 #if defined(_DERIVATE)
5577 a_Vci_ei=(latl*FCw_Vci_ei);
5578 a_Vbi_ei=(latl*FCw_Vbi_ei);
5579 a_Vbi_ci=(latl*FCw_Vbi_ci);
5580 a_Vtnode_GND=(latl*FCw_Vtnode_GND);
5581 #endif
5582 a=(latl*FCw);
5583 if
5584 ((a>1.0e-6))
5585 {
5586 #if defined(_DERIVATE)
5587 FCf3_Vci_ei=((a_Vci_ei-FClnl_Vci_ei)/latl);
5588 FCf3_Vbi_ei=((a_Vbi_ei-FClnl_Vbi_ei)/latl);
5589 FCf3_Vbi_ci=((a_Vbi_ci-FClnl_Vbi_ci)/latl);
5590 FCf3_Vtnode_GND=((a_Vtnode_GND-FClnl_Vtnode_GND)/latl);
5591 #endif
5592 FCf3=((a-FClnl)/latl);
5593 #if defined(_DERIVATE)
5594 FCdf3_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
5595 FCdf3_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
5596 FCdf3_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
5597 FCdf3_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
5598 #endif
5599 FCdf3_dw=(a/(1.0+a));
5600 }
5601 else
5602 {
5603 #if defined(_DERIVATE)
5604 FCf3_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
5605 FCf3_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
5606 FCf3_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
5607 FCf3_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
5608 #endif
5609 FCf3=((0.5*a)*FCw);
5610 #if defined(_DERIVATE)
5611 FCdf3_dw_Vci_ei=a_Vci_ei;
5612 FCdf3_dw_Vtnode_GND=a_Vtnode_GND;
5613 FCdf3_dw_Vbi_ei=a_Vbi_ei;
5614 FCdf3_dw_Vbi_ci=a_Vbi_ci;
5615 #endif
5616 FCdf3_dw=a;
5617 }
5618 #if defined(_DERIVATE)
5619 FCf_CT_Vci_ei=((FCf_CT_Vci_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vci_ei-FCf3_Vci_ei)));
5620 FCf_CT_Vbi_ei=((FCf_CT_Vbi_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ei-FCf3_Vbi_ei)));
5621 FCf_CT_Vbi_ci=((FCf_CT_Vbi_ci*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ci-FCf3_Vbi_ci)));
5622 FCf_CT_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCf2-FCf3))+(FCf_CT*(FCf2_Vtnode_GND-FCf3_Vtnode_GND)));
5623 #endif
5624 FCf_CT=(FCf_CT*(FCf2-FCf3));
5625 #if defined(_DERIVATE)
5626 FCdfCT_dw_Vci_ei=((FCf_CT_Vci_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vci_ei-FCdf3_dw_Vci_ei)));
5627 FCdfCT_dw_Vbi_ei=((FCf_CT_Vbi_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ei-FCdf3_dw_Vbi_ei)));
5628 FCdfCT_dw_Vbi_ci=((FCf_CT_Vbi_ci*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ci-FCdf3_dw_Vbi_ci)));
5629 FCdfCT_dw_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vtnode_GND-FCdf3_dw_Vtnode_GND)));
5630 #endif
5631 FCdfCT_dw=(FCf_CT*(FCdf2_dw-FCdf3_dw));
5632 #if defined(_DERIVATE)
5633 FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
5634 FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
5635 FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
5636 FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
5637 #endif
5638 FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
5639 }
5640 else
5641 {
5642 if
5643 ((latb>0.01))
5644 {
5645 #if defined(_DERIVATE)
5646 FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5647 FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5648 FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5649 FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
5650 #endif
5651 FCd_a=(1.0/(1.0+(FCa_ck*latb)));
5652 #if defined(_DERIVATE)
5653 FCw_Vci_ei=(((-FCa_ck_Vci_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vci_ei));
5654 FCw_Vtnode_GND=(((-FCa_ck_Vtnode_GND)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vtnode_GND));
5655 FCw_Vbi_ei=(((-FCa_ck_Vbi_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ei));
5656 FCw_Vbi_ci=(((-FCa_ck_Vbi_ci)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ci));
5657 #endif
5658 FCw=((1.0-FCa_ck)*FCd_a);
5659 #if defined(_DERIVATE)
5660 FCdw_daick_Vci_ei=((((-(1.0+latb))*FCd_a_Vci_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vci_ei));
5661 FCdw_daick_Vtnode_GND=((((-(1.0+latb))*FCd_a_Vtnode_GND)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vtnode_GND));
5662 FCdw_daick_Vbi_ei=((((-(1.0+latb))*FCd_a_Vbi_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ei));
5663 FCdw_daick_Vbi_ci=((((-(1.0+latb))*FCd_a_Vbi_ci)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ci));
5664 #endif
5665 FCdw_daick=(((-(1.0+latb))*FCd_a)*FCd_a);
5666 }
5667 else
5668 {
5669 #if defined(_DERIVATE)
5670 FCw_Vci_ei=((-FCa_ck_Vci_ei)-FCa_ck_Vci_ei*latb);
5671 FCw_Vtnode_GND=((-FCa_ck_Vtnode_GND)-FCa_ck_Vtnode_GND*latb);
5672 FCw_Vbi_ei=((-FCa_ck_Vbi_ei)-FCa_ck_Vbi_ei*latb);
5673 FCw_Vbi_ci=((-FCa_ck_Vbi_ci)-FCa_ck_Vbi_ci*latb);
5674 #endif
5675 FCw=((1.0-FCa_ck)-(FCa_ck*latb));
5676 #if defined(_DERIVATE)
5677 FCdw_daick_Vci_ei=0.0;
5678 FCdw_daick_Vtnode_GND=0.0;
5679 FCdw_daick_Vbi_ei=0.0;
5680 FCdw_daick_Vbi_ci=0.0;
5681 #endif
5682 FCdw_daick=(-(1.0+latb));
5683 }
5684 #if defined(_DERIVATE)
5685 FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
5686 FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
5687 FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
5688 FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
5689 #endif
5690 FCw2=(FCw*FCw);
5691 #if defined(_DERIVATE)
5692 FCz_Vci_ei=(latb*FCw_Vci_ei);
5693 FCz_Vtnode_GND=(latb*FCw_Vtnode_GND);
5694 FCz_Vbi_ei=(latb*FCw_Vbi_ei);
5695 FCz_Vbi_ci=(latb*FCw_Vbi_ci);
5696 #endif
5697 FCz=(latb*FCw);
5698 #if defined(_DERIVATE)
5699 FCz_1_Vci_ei=FCz_Vci_ei;
5700 FCz_1_Vtnode_GND=FCz_Vtnode_GND;
5701 FCz_1_Vbi_ei=FCz_Vbi_ei;
5702 FCz_1_Vbi_ci=FCz_Vbi_ci;
5703 #endif
5704 FCz_1=(1.0+FCz);
5705 #if defined(_DERIVATE)
5706 FCd_f_Vci_ei=(-FCz_1_Vci_ei/FCz_1/FCz_1);
5707 FCd_f_Vtnode_GND=(-FCz_1_Vtnode_GND/FCz_1/FCz_1);
5708 FCd_f_Vbi_ei=(-FCz_1_Vbi_ei/FCz_1/FCz_1);
5709 FCd_f_Vbi_ci=(-FCz_1_Vbi_ci/FCz_1/FCz_1);
5710 #endif
5711 FCd_f=(1.0/FCz_1);
5712 #if defined(_DERIVATE)
5713 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));
5714 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));
5715 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));
5716 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));
5717 #endif
5718 FCf_ci=((FCw2*(1.0+(FCz/3.0)))*FCd_f);
5719 #if defined(_DERIVATE)
5720 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));
5721 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));
5722 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));
5723 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));
5724 #endif
5725 FCdfc_dw=((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
5726 #if defined(_DERIVATE)
5727 FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
5728 FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
5729 FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
5730 FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
5731 #endif
5732 FCdw_ditf=(FCdw_daick*FCdaick_ditf);
5733 #if defined(_DERIVATE)
5734 FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
5735 FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
5736 FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
5737 FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
5738 #endif
5739 FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
5740 if
5741 ((FCz>0.001))
5742 {
5743 {
5744 double m00_logE(d00_logE0,FCz_1)
5745 #if defined(_DERIVATE)
5746 double m10_logE(d10_logE0,d00_logE0,FCz_1)
5747 #endif
5748 #if defined(_DERIVATE)
5749 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));
5750 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));
5751 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));
5752 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));
5753 #endif
5754 FCf_CT=((2.0*((FCz_1*d00_logE0)-FCz))/((latb*latb)*FCz_1));
5755 }
5756 #if defined(_DERIVATE)
5757 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));
5758 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));
5759 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));
5760 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));
5761 #endif
5762 FCdfCT_dw=(((2.0*FCw)*FCd_f)*FCd_f);
5763 }
5764 else
5765 {
5766 #if defined(_DERIVATE)
5767 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));
5768 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));
5769 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));
5770 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));
5771 #endif
5772 FCf_CT=((FCw2*(1.0-(FCz/3.0)))*FCd_f);
5773 #if defined(_DERIVATE)
5774 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));
5775 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));
5776 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));
5777 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));
5778 #endif
5779 FCdfCT_dw=((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
5780 }
5781 #if defined(_DERIVATE)
5782 FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
5783 FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
5784 FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
5785 FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
5786 #endif
5787 FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
5788 }
5789 #if defined(_DERIVATE)
5790 FFQ_cT_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_CT)+(FFQ_fC*FCf_CT_Vtnode_GND));
5791 FFQ_cT_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ei));
5792 FFQ_cT_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ci));
5793 FFQ_cT_Vci_ei=((FFQ_fC_Vci_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vci_ei));
5794 #endif
5795 FFQ_cT=(FFQ_fC*FCf_CT);
5796 #if defined(_DERIVATE)
5797 FFQ_fC_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_ci)+(FFQ_fC*FCf_ci_Vtnode_GND));
5798 FFQ_fC_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ei));
5799 FFQ_fC_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ci));
5800 FFQ_fC_Vci_ei=((FFQ_fC_Vci_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vci_ei));
5801 #endif
5802 FFQ_fC=(FFQ_fC*FCf_ci);
5803 #if defined(_DERIVATE)
5804 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)))));
5805 FFT_fC_Vci_ei=(FFT_pcS*(FCf_ci_Vci_ei+((itf_Vci_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vci_ei))));
5806 FFT_fC_Vbi_ei=(FFT_pcS*(FCf_ci_Vbi_ei+((itf_Vbi_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ei))));
5807 FFT_fC_Vbi_ci=(FFT_pcS*(FCf_ci_Vbi_ci+((itf_Vbi_ci*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ci))));
5808 #endif
5809 FFT_fC=(FFT_pcS*(FCf_ci+(itf*FCdfc_ditf)));
5810 #if defined(_DERIVATE)
5811 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)))));
5812 FFT_cT_Vci_ei=(FFT_pcS*(FCf_CT_Vci_ei+((itf_Vci_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vci_ei))));
5813 FFT_cT_Vbi_ei=(FFT_pcS*(FCf_CT_Vbi_ei+((itf_Vbi_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ei))));
5814 FFT_cT_Vbi_ci=(FFT_pcS*(FCf_CT_Vbi_ci+((itf_Vbi_ci*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ci))));
5815 #endif
5816 FFT_cT=(FFT_pcS*(FCf_CT+(itf*FCdfCT_ditf)));
5817 }
5818 #if defined(_DERIVATE)
5819 Qf_Vci_ei=(Qf_Vci_ei+FFd_QfB_Vci_ei);
5820 Qf_Vtnode_GND=(Qf_Vtnode_GND+FFd_QfB_Vtnode_GND);
5821 Qf_Vbi_ci=(Qf_Vbi_ci+FFd_QfB_Vbi_ci);
5822 Qf_Vbi_ei=(Qf_Vbi_ei+FFd_QfB_Vbi_ei);
5823 #endif
5824 Qf=(Qf+FFd_QfB);
5825 #if defined(_DERIVATE)
5826 Tf_Vci_ei=(Tf_Vci_ei+FFd_TfB_Vci_ei);
5827 Tf_Vtnode_GND=(Tf_Vtnode_GND+FFd_TfB_Vtnode_GND);
5828 Tf_Vbi_ci=(Tf_Vbi_ci+FFd_TfB_Vbi_ci);
5829 Tf_Vbi_ei=(Tf_Vbi_ei+FFd_TfB_Vbi_ei);
5830 #endif
5831 Tf=(Tf+FFd_TfB);
5832 #if defined(_DERIVATE)
5833 Q_fT_Vci_ei=((Qf_Vci_ei+(hfe*FFd_QfE_Vci_ei))+(hfc*FFQ_cT_Vci_ei));
5834 Q_fT_Vtnode_GND=((Qf_Vtnode_GND+(hfe*FFd_QfE_Vtnode_GND))+(hfc*FFQ_cT_Vtnode_GND));
5835 Q_fT_Vbi_ci=((Qf_Vbi_ci+(hfe*FFd_QfE_Vbi_ci))+(hfc*FFQ_cT_Vbi_ci));
5836 Q_fT_Vbi_ei=((Qf_Vbi_ei+(hfe*FFd_QfE_Vbi_ei))+(hfc*FFQ_cT_Vbi_ei));
5837 #endif
5838 Q_fT=((Qf+(hfe*FFd_QfE))+(hfc*FFQ_cT));
5839 #if defined(_DERIVATE)
5840 T_fT_Vci_ei=((Tf_Vci_ei+(hfe*FFd_TfE_Vci_ei))+(hfc*FFT_cT_Vci_ei));
5841 T_fT_Vtnode_GND=((Tf_Vtnode_GND+(hfe*FFd_TfE_Vtnode_GND))+(hfc*FFT_cT_Vtnode_GND));
5842 T_fT_Vbi_ci=((Tf_Vbi_ci+(hfe*FFd_TfE_Vbi_ci))+(hfc*FFT_cT_Vbi_ci));
5843 T_fT_Vbi_ei=((Tf_Vbi_ei+(hfe*FFd_TfE_Vbi_ei))+(hfc*FFT_cT_Vbi_ei));
5844 #endif
5845 T_fT=((Tf+(hfe*FFd_TfE))+(hfc*FFT_cT));
5846 #if defined(_DERIVATE)
5847 Qf_Vci_ei=((Qf_Vci_ei+FFd_QfE_Vci_ei)+FFQ_fC_Vci_ei);
5848 Qf_Vtnode_GND=((Qf_Vtnode_GND+FFd_QfE_Vtnode_GND)+FFQ_fC_Vtnode_GND);
5849 Qf_Vbi_ci=((Qf_Vbi_ci+FFd_QfE_Vbi_ci)+FFQ_fC_Vbi_ci);
5850 Qf_Vbi_ei=((Qf_Vbi_ei+FFd_QfE_Vbi_ei)+FFQ_fC_Vbi_ei);
5851 #endif
5852 Qf=((Qf+FFd_QfE)+FFQ_fC);
5853 #if defined(_DERIVATE)
5854 Tf_Vci_ei=((Tf_Vci_ei+FFd_TfE_Vci_ei)+FFT_fC_Vci_ei);
5855 Tf_Vtnode_GND=((Tf_Vtnode_GND+FFd_TfE_Vtnode_GND)+FFT_fC_Vtnode_GND);
5856 Tf_Vbi_ci=((Tf_Vbi_ci+FFd_TfE_Vbi_ci)+FFT_fC_Vbi_ci);
5857 Tf_Vbi_ei=((Tf_Vbi_ei+FFd_TfE_Vbi_ei)+FFT_fC_Vbi_ei);
5858 #endif
5859 Tf=((Tf+FFd_TfE)+FFT_fC);
5860 }
5861 #if defined(_DERIVATE)
5862 Qr_Vci_ei=(Tr*itr_Vci_ei);
5863 Qr_Vtnode_GND=(Tr*itr_Vtnode_GND);
5864 Qr_Vbi_ci=(Tr*itr_Vbi_ci);
5865 Qr_Vbi_ei=(Tr*itr_Vbi_ei);
5866 #endif
5867 Qr=(Tr*itr);
5868 if
5869 ((Oich==0.0))
5870 {
5871 #if defined(_DERIVATE)
5872 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);
5873 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);
5874 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);
5875 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);
5876 #endif
5877 a=(1.0+(((T_fT*itf)+Qr)/Q_pT));
5878 }
5879 else
5880 {
5881 #if defined(_DERIVATE)
5882 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);
5883 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);
5884 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);
5885 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);
5886 #endif
5887 a=(1.0+((((T_fT*I_Tf1)*(1.0+(2.0*a_h)))+Qr)/Q_pT));
5888 }
5889 #if defined(_DERIVATE)
5890 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);
5891 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);
5892 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);
5893 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);
5894 #endif
5895 d_Q=((-(Q_pT-((Q_0+Q_fT)+Qr)))/a);
5896 {
5897 double m00_fabs(d00_fabs0,(0.3*Q_pT))
5898 #if defined(_DERIVATE)
5899 double m10_fabs(d10_fabs0,d00_fabs0,(0.3*Q_pT))
5900 #endif
5901 #if defined(_DERIVATE)
5902 a_Vci_ei=(0.3*Q_pT_Vci_ei)*d10_fabs0;
5903 a_Vbi_ei=(0.3*Q_pT_Vbi_ei)*d10_fabs0;
5904 a_Vbi_ci=(0.3*Q_pT_Vbi_ci)*d10_fabs0;
5905 a_Vtnode_GND=(0.3*Q_pT_Vtnode_GND)*d10_fabs0;
5906 #endif
5907 a=d00_fabs0;
5908 }
5909 {
5910 double m00_fabs(d00_fabs0,d_Q)
5911 if
5912 ((d00_fabs0>a))
5913 {
5914 if
5915 ((d_Q>=0))
5916 {
5917 #if defined(_DERIVATE)
5918 d_Q_Vtnode_GND=a_Vtnode_GND;
5919 d_Q_Vbi_ei=a_Vbi_ei;
5920 d_Q_Vbi_ci=a_Vbi_ci;
5921 d_Q_Vci_ei=a_Vci_ei;
5922 #endif
5923 d_Q=a;
5924 }
5925 else
5926 {
5927 #if defined(_DERIVATE)
5928 d_Q_Vtnode_GND=(-a_Vtnode_GND);
5929 d_Q_Vbi_ei=(-a_Vbi_ei);
5930 d_Q_Vbi_ci=(-a_Vbi_ci);
5931 d_Q_Vci_ei=(-a_Vci_ei);
5932 #endif
5933 d_Q=(-a);
5934 }
5935 }
5936 }
5937 #if defined(_DERIVATE)
5938 Q_pT_Vtnode_GND=(Q_pT_Vtnode_GND+d_Q_Vtnode_GND);
5939 Q_pT_Vbi_ei=(Q_pT_Vbi_ei+d_Q_Vbi_ei);
5940 Q_pT_Vbi_ci=(Q_pT_Vbi_ci+d_Q_Vbi_ci);
5941 Q_pT_Vci_ei=(Q_pT_Vci_ei+d_Q_Vci_ei);
5942 #endif
5943 Q_pT=(Q_pT+d_Q);
5944 l_it=(l_it+1);
5945 }
5946 #if defined(_DERIVATE)
5947 I_Tf1_Vci_ei=(-i_0f*Q_pT_Vci_ei/Q_pT/Q_pT);
5948 I_Tf1_Vtnode_GND=((i_0f_Vtnode_GND*Q_pT-i_0f*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
5949 I_Tf1_Vbi_ei=((i_0f_Vbi_ei*Q_pT-i_0f*Q_pT_Vbi_ei)/Q_pT/Q_pT);
5950 I_Tf1_Vbi_ci=(-i_0f*Q_pT_Vbi_ci/Q_pT/Q_pT);
5951 #endif
5952 I_Tf1=(i_0f/Q_pT);
5953 #if defined(_DERIVATE)
5954 a_h_Vci_ei=(Oich*I_Tf1_Vci_ei);
5955 a_h_Vtnode_GND=(Oich*I_Tf1_Vtnode_GND);
5956 a_h_Vbi_ei=(Oich*I_Tf1_Vbi_ei);
5957 a_h_Vbi_ci=(Oich*I_Tf1_Vbi_ci);
5958 #endif
5959 a_h=(Oich*I_Tf1);
5960 #if defined(_DERIVATE)
5961 itf_Vci_ei=((I_Tf1_Vci_ei*(1.0+a_h))+(I_Tf1*a_h_Vci_ei));
5962 itf_Vtnode_GND=((I_Tf1_Vtnode_GND*(1.0+a_h))+(I_Tf1*a_h_Vtnode_GND));
5963 itf_Vbi_ei=((I_Tf1_Vbi_ei*(1.0+a_h))+(I_Tf1*a_h_Vbi_ei));
5964 itf_Vbi_ci=((I_Tf1_Vbi_ci*(1.0+a_h))+(I_Tf1*a_h_Vbi_ci));
5965 #endif
5966 itf=(I_Tf1*(1.0+a_h));
5967 #if defined(_DERIVATE)
5968 itr_Vci_ei=(-i_0r*Q_pT_Vci_ei/Q_pT/Q_pT);
5969 itr_Vtnode_GND=((i_0r_Vtnode_GND*Q_pT-i_0r*Q_pT_Vtnode_GND)/Q_pT/Q_pT);
5970 itr_Vbi_ci=((i_0r_Vbi_ci*Q_pT-i_0r*Q_pT_Vbi_ci)/Q_pT/Q_pT);
5971 itr_Vbi_ei=(-i_0r*Q_pT_Vbi_ei/Q_pT/Q_pT);
5972 #endif
5973 itr=(i_0r/Q_pT);
5974 #if defined(_DYNAMIC)
5975 #if defined(_DERIVATE)
5976 Tf_Vci_ei=0.0;
5977 Tf_Vtnode_GND=T_f0_Vtnode_GND;
5978 Tf_Vbi_ci=T_f0_Vbi_ci;
5979 Tf_Vbi_ei=T_f0_Vbi_ei;
5980 #endif
5981 Tf=T_f0;
5982 #endif
5983 #if defined(_DERIVATE)
5984 Qf_Vci_ei=(T_f0*itf_Vci_ei);
5985 Qf_Vtnode_GND=((T_f0_Vtnode_GND*itf)+(T_f0*itf_Vtnode_GND));
5986 Qf_Vbi_ci=((T_f0_Vbi_ci*itf)+(T_f0*itf_Vbi_ci));
5987 Qf_Vbi_ei=((T_f0_Vbi_ei*itf)+(T_f0*itf_Vbi_ei));
5988 #endif
5989 Qf=(T_f0*itf);
5990 if
5991 ((itf<(1.0e-6*ick)))
5992 {
5993 #if defined(_DYNAMIC)
5994 #if defined(_DERIVATE)
5995 Q_fT_Vci_ei=Qf_Vci_ei;
5996 Q_fT_Vtnode_GND=Qf_Vtnode_GND;
5997 Q_fT_Vbi_ci=Qf_Vbi_ci;
5998 Q_fT_Vbi_ei=Qf_Vbi_ei;
5999 #endif
6000 Q_fT=Qf;
6001 #endif
6002 #if defined(_DYNAMIC)
6003 #if defined(_DERIVATE)
6004 T_fT_Vci_ei=Tf_Vci_ei;
6005 T_fT_Vtnode_GND=Tf_Vtnode_GND;
6006 T_fT_Vbi_ci=Tf_Vbi_ci;
6007 T_fT_Vbi_ei=Tf_Vbi_ei;
6008 #endif
6009 T_fT=Tf;
6010 #endif
6011 }
6012 else
6013 {
6014 #if defined(_DERIVATE)
6015 FFa_Vci_ei=((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf);
6016 FFa_Vtnode_GND=((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf);
6017 FFa_Vbi_ei=(-ick*itf_Vbi_ei/itf/itf);
6018 FFa_Vbi_ci=(-ick*itf_Vbi_ci/itf/itf);
6019 #endif
6020 FFa=(ick/itf);
6021 {
6022 double m00_logE(d00_logE0,FFa)
6023 double m00_exp(d00_exp1,((-gtfe)*d00_logE0))
6024 #if defined(_DERIVATE)
6025 double m10_logE(d10_logE0,d00_logE0,FFa)
6026 #define d10_exp1 d00_exp1
6027 #endif
6028 #if defined(_DERIVATE)
6029 FFd_TfE_Vtnode_GND=((tef0_t_Vtnode_GND*d00_exp1)+(tef0_t*((-gtfe)*FFa_Vtnode_GND*d10_logE0)*d10_exp1));
6030 FFd_TfE_Vci_ei=(tef0_t*((-gtfe)*FFa_Vci_ei*d10_logE0)*d10_exp1);
6031 FFd_TfE_Vbi_ei=(tef0_t*((-gtfe)*FFa_Vbi_ei*d10_logE0)*d10_exp1);
6032 FFd_TfE_Vbi_ci=(tef0_t*((-gtfe)*FFa_Vbi_ci*d10_logE0)*d10_exp1);
6033 #endif
6034 FFd_TfE=(tef0_t*d00_exp1);
6035 }
6036 #if defined(_DERIVATE)
6037 FFd_QfE_Vtnode_GND=(((FFd_TfE_Vtnode_GND*itf)+(FFd_TfE*itf_Vtnode_GND))/(gtfe+1.0));
6038 FFd_QfE_Vci_ei=(((FFd_TfE_Vci_ei*itf)+(FFd_TfE*itf_Vci_ei))/(gtfe+1.0));
6039 FFd_QfE_Vbi_ei=(((FFd_TfE_Vbi_ei*itf)+(FFd_TfE*itf_Vbi_ei))/(gtfe+1.0));
6040 FFd_QfE_Vbi_ci=(((FFd_TfE_Vbi_ci*itf)+(FFd_TfE*itf_Vbi_ci))/(gtfe+1.0));
6041 #endif
6042 FFd_QfE=((FFd_TfE*itf)/(gtfe+1.0));
6043 #if defined(_DERIVATE)
6044 FFT_fbS_Vtnode_GND=((1.0-fthc)*thcs_t_Vtnode_GND);
6045 #endif
6046 FFT_fbS=((1.0-fthc)*thcs_t);
6047 #if defined(_DERIVATE)
6048 FFx_Vci_ei=(-FFa_Vci_ei);
6049 FFx_Vtnode_GND=(-FFa_Vtnode_GND);
6050 FFx_Vbi_ei=(-FFa_Vbi_ei);
6051 FFx_Vbi_ci=(-FFa_Vbi_ci);
6052 #endif
6053 FFx=(1.0-FFa);
6054 {
6055 double m00_sqrt(d00_sqrt0,((FFx*FFx)+alhc))
6056 #if defined(_DERIVATE)
6057 double m10_sqrt(d10_sqrt0,d00_sqrt0,((FFx*FFx)+alhc))
6058 #endif
6059 #if defined(_DERIVATE)
6060 FFs_Vci_ei=((FFx_Vci_ei*FFx)+(FFx*FFx_Vci_ei))*d10_sqrt0;
6061 FFs_Vtnode_GND=((FFx_Vtnode_GND*FFx)+(FFx*FFx_Vtnode_GND))*d10_sqrt0;
6062 FFs_Vbi_ei=((FFx_Vbi_ei*FFx)+(FFx*FFx_Vbi_ei))*d10_sqrt0;
6063 FFs_Vbi_ci=((FFx_Vbi_ci*FFx)+(FFx*FFx_Vbi_ci))*d10_sqrt0;
6064 #endif
6065 FFs=d00_sqrt0;
6066 }
6067 {
6068 double m00_sqrt(d00_sqrt0,(1.0+alhc))
6069 #if defined(_DERIVATE)
6070 FFw_Vci_ei=((FFx_Vci_ei+FFs_Vci_ei)/(1.0+d00_sqrt0));
6071 FFw_Vtnode_GND=((FFx_Vtnode_GND+FFs_Vtnode_GND)/(1.0+d00_sqrt0));
6072 FFw_Vbi_ei=((FFx_Vbi_ei+FFs_Vbi_ei)/(1.0+d00_sqrt0));
6073 FFw_Vbi_ci=((FFx_Vbi_ci+FFs_Vbi_ci)/(1.0+d00_sqrt0));
6074 #endif
6075 FFw=((FFx+FFs)/(1.0+d00_sqrt0));
6076 }
6077 #if defined(_DERIVATE)
6078 FFw_2_Vci_ei=((FFw_Vci_ei*FFw)+(FFw*FFw_Vci_ei));
6079 FFw_2_Vtnode_GND=((FFw_Vtnode_GND*FFw)+(FFw*FFw_Vtnode_GND));
6080 FFw_2_Vbi_ei=((FFw_Vbi_ei*FFw)+(FFw*FFw_Vbi_ei));
6081 FFw_2_Vbi_ci=((FFw_Vbi_ci*FFw)+(FFw*FFw_Vbi_ci));
6082 #endif
6083 FFw_2=(FFw*FFw);
6084 #if defined(_DERIVATE)
6085 FFd_QfB_Vtnode_GND=((((FFT_fbS_Vtnode_GND*itf)+(FFT_fbS*itf_Vtnode_GND))*FFw_2)+((FFT_fbS*itf)*FFw_2_Vtnode_GND));
6086 FFd_QfB_Vbi_ei=(((FFT_fbS*itf_Vbi_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ei));
6087 FFd_QfB_Vbi_ci=(((FFT_fbS*itf_Vbi_ci)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vbi_ci));
6088 FFd_QfB_Vci_ei=(((FFT_fbS*itf_Vci_ei)*FFw_2)+((FFT_fbS*itf)*FFw_2_Vci_ei));
6089 #endif
6090 FFd_QfB=((FFT_fbS*itf)*FFw_2);
6091 #if defined(_DYNAMIC)
6092 #if defined(_DERIVATE)
6093 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)));
6094 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)));
6095 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)));
6096 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)));
6097 #endif
6098 FFa_w=(FFw_2*(1.0+((2.0*FFa)/FFs)));
6099 #endif
6100 #if defined(_DYNAMIC)
6101 #if defined(_DERIVATE)
6102 FFd_TfB_Vtnode_GND=((FFT_fbS_Vtnode_GND*FFa_w)+(FFT_fbS*FFa_w_Vtnode_GND));
6103 FFd_TfB_Vci_ei=(FFT_fbS*FFa_w_Vci_ei);
6104 FFd_TfB_Vbi_ei=(FFT_fbS*FFa_w_Vbi_ei);
6105 FFd_TfB_Vbi_ci=(FFT_fbS*FFa_w_Vbi_ci);
6106 #endif
6107 FFd_TfB=(FFT_fbS*FFa_w);
6108 #endif
6109 #if defined(_DERIVATE)
6110 FFT_pcS_Vtnode_GND=(fthc*thcs_t_Vtnode_GND);
6111 #endif
6112 FFT_pcS=(fthc*thcs_t);
6113 if
6114 (((latb<=0.0)&&(latl<=0.0)))
6115 {
6116 #if defined(_DERIVATE)
6117 FFQ_fC_Vtnode_GND=((((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND))*FFw_2)+((FFT_pcS*itf)*FFw_2_Vtnode_GND));
6118 FFQ_fC_Vbi_ei=(((FFT_pcS*itf_Vbi_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ei));
6119 FFQ_fC_Vbi_ci=(((FFT_pcS*itf_Vbi_ci)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vbi_ci));
6120 FFQ_fC_Vci_ei=(((FFT_pcS*itf_Vci_ei)*FFw_2)+((FFT_pcS*itf)*FFw_2_Vci_ei));
6121 #endif
6122 FFQ_fC=((FFT_pcS*itf)*FFw_2);
6123 #if defined(_DYNAMIC)
6124 #if defined(_DERIVATE)
6125 FFT_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*FFa_w)+(FFT_pcS*FFa_w_Vtnode_GND));
6126 FFT_fC_Vci_ei=(FFT_pcS*FFa_w_Vci_ei);
6127 FFT_fC_Vbi_ei=(FFT_pcS*FFa_w_Vbi_ei);
6128 FFT_fC_Vbi_ci=(FFT_pcS*FFa_w_Vbi_ci);
6129 #endif
6130 FFT_fC=(FFT_pcS*FFa_w);
6131 #endif
6132 #if defined(_DYNAMIC)
6133 #if defined(_DERIVATE)
6134 FFQ_cT_Vtnode_GND=FFQ_fC_Vtnode_GND;
6135 FFQ_cT_Vbi_ei=FFQ_fC_Vbi_ei;
6136 FFQ_cT_Vbi_ci=FFQ_fC_Vbi_ci;
6137 FFQ_cT_Vci_ei=FFQ_fC_Vci_ei;
6138 #endif
6139 FFQ_cT=FFQ_fC;
6140 #endif
6141 #if defined(_DYNAMIC)
6142 #if defined(_DERIVATE)
6143 FFT_cT_Vtnode_GND=FFT_fC_Vtnode_GND;
6144 FFT_cT_Vci_ei=FFT_fC_Vci_ei;
6145 FFT_cT_Vbi_ei=FFT_fC_Vbi_ei;
6146 FFT_cT_Vbi_ci=FFT_fC_Vbi_ci;
6147 #endif
6148 FFT_cT=FFT_fC;
6149 #endif
6150 }
6151 else
6152 {
6153 #if defined(_DERIVATE)
6154 FFQ_fC_Vtnode_GND=((FFT_pcS_Vtnode_GND*itf)+(FFT_pcS*itf_Vtnode_GND));
6155 FFQ_fC_Vbi_ei=(FFT_pcS*itf_Vbi_ei);
6156 FFQ_fC_Vbi_ci=(FFT_pcS*itf_Vbi_ci);
6157 FFQ_fC_Vci_ei=(FFT_pcS*itf_Vci_ei);
6158 #endif
6159 FFQ_fC=(FFT_pcS*itf);
6160 #if defined(_DERIVATE)
6161 FCa_Vci_ei=(-((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf));
6162 FCa_Vtnode_GND=(-((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf));
6163 FCa_Vbi_ei=(-(-ick*itf_Vbi_ei/itf/itf));
6164 FCa_Vbi_ci=(-(-ick*itf_Vbi_ci/itf/itf));
6165 #endif
6166 FCa=(1.0-(ick/itf));
6167 {
6168 double m00_sqrt(d00_sqrt0,((FCa*FCa)+alhc))
6169 #if defined(_DERIVATE)
6170 double m10_sqrt(d10_sqrt0,d00_sqrt0,((FCa*FCa)+alhc))
6171 #endif
6172 #if defined(_DERIVATE)
6173 FCrt_Vci_ei=((FCa_Vci_ei*FCa)+(FCa*FCa_Vci_ei))*d10_sqrt0;
6174 FCrt_Vtnode_GND=((FCa_Vtnode_GND*FCa)+(FCa*FCa_Vtnode_GND))*d10_sqrt0;
6175 FCrt_Vbi_ei=((FCa_Vbi_ei*FCa)+(FCa*FCa_Vbi_ei))*d10_sqrt0;
6176 FCrt_Vbi_ci=((FCa_Vbi_ci*FCa)+(FCa*FCa_Vbi_ci))*d10_sqrt0;
6177 #endif
6178 FCrt=d00_sqrt0;
6179 }
6180 {
6181 double m00_sqrt(d00_sqrt0,(1.0+alhc))
6182 #if defined(_DERIVATE)
6183 FCa_ck_Vci_ei=(-((FCa_Vci_ei+FCrt_Vci_ei)/(1.0+d00_sqrt0)));
6184 FCa_ck_Vtnode_GND=(-((FCa_Vtnode_GND+FCrt_Vtnode_GND)/(1.0+d00_sqrt0)));
6185 FCa_ck_Vbi_ei=(-((FCa_Vbi_ei+FCrt_Vbi_ei)/(1.0+d00_sqrt0)));
6186 FCa_ck_Vbi_ci=(-((FCa_Vbi_ci+FCrt_Vbi_ci)/(1.0+d00_sqrt0)));
6187 #endif
6188 FCa_ck=(1.0-((FCa+FCrt)/(1.0+d00_sqrt0)));
6189 }
6190 #if defined(_DYNAMIC)
6191 #if defined(_DERIVATE)
6192 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));
6193 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));
6194 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));
6195 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));
6196 #endif
6197 FCdaick_ditf=(((FCa_ck-1.0)*(1-FCa))/(FCrt*itf));
6198 #endif
6199 if
6200 ((latb>latl))
6201 {
6202 #if defined(_DERIVATE)
6203 FCz_Vci_ei=0.0;
6204 FCz_Vtnode_GND=0.0;
6205 FCz_Vbi_ei=0.0;
6206 FCz_Vbi_ci=0.0;
6207 #endif
6208 FCz=(latb-latl);
6209 FCxl=(1.0+latl);
6210 FCxb=(1.0+latb);
6211 if
6212 ((latb>0.01))
6213 {
6214 {
6215 double m00_logE(d00_logE0,(FCxb/FCxl))
6216 FCln=d00_logE0;
6217 }
6218 {
6219 double m00_exp(d00_exp0,((FCa_ck-1.0)*FCln))
6220 #if defined(_DERIVATE)
6221 #define d10_exp0 d00_exp0
6222 #endif
6223 #if defined(_DERIVATE)
6224 FCa1_Vci_ei=FCa_ck_Vci_ei*FCln*d10_exp0;
6225 FCa1_Vtnode_GND=FCa_ck_Vtnode_GND*FCln*d10_exp0;
6226 FCa1_Vbi_ei=FCa_ck_Vbi_ei*FCln*d10_exp0;
6227 FCa1_Vbi_ci=FCa_ck_Vbi_ci*FCln*d10_exp0;
6228 #endif
6229 FCa1=d00_exp0;
6230 }
6231 #if defined(_DERIVATE)
6232 FCd_a_Vci_ei=(-(-FCa1_Vci_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
6233 FCd_a_Vtnode_GND=(-(-FCa1_Vtnode_GND*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
6234 FCd_a_Vbi_ei=(-(-FCa1_Vbi_ei*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
6235 FCd_a_Vbi_ci=(-(-FCa1_Vbi_ci*latb)/(latl-(FCa1*latb))/(latl-(FCa1*latb)));
6236 #endif
6237 FCd_a=(1.0/(latl-(FCa1*latb)));
6238 #if defined(_DERIVATE)
6239 FCw_Vci_ei=((FCa1_Vci_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vci_ei));
6240 FCw_Vtnode_GND=((FCa1_Vtnode_GND*FCd_a)+((FCa1-1.0)*FCd_a_Vtnode_GND));
6241 FCw_Vbi_ei=((FCa1_Vbi_ei*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ei));
6242 FCw_Vbi_ci=((FCa1_Vbi_ci*FCd_a)+((FCa1-1.0)*FCd_a_Vbi_ci));
6243 #endif
6244 FCw=((FCa1-1.0)*FCd_a);
6245 {
6246 double m00_logE(d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
6247 #if defined(_DERIVATE)
6248 double m10_logE(d10_logE0,d00_logE0,((1.0+(latb*FCw))/(1.0+(latl*FCw))))
6249 #endif
6250 #if defined(_DERIVATE)
6251 FCa_Vci_ei=(((latb*FCw_Vci_ei)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vci_ei))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
6252 FCa_Vtnode_GND=(((latb*FCw_Vtnode_GND)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vtnode_GND))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
6253 FCa_Vbi_ei=(((latb*FCw_Vbi_ei)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vbi_ei))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
6254 FCa_Vbi_ci=(((latb*FCw_Vbi_ci)*(1.0+(latl*FCw))-(1.0+(latb*FCw))*(latl*FCw_Vbi_ci))/(1.0+(latl*FCw))/(1.0+(latl*FCw)))*d10_logE0;
6255 #endif
6256 FCa=d00_logE0;
6257 }
6258 #if defined(_DYNAMIC)
6259 #if defined(_DERIVATE)
6260 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));
6261 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));
6262 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));
6263 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));
6264 #endif
6265 FCdw_daick=(((((-FCz)*FCa1)*FCln)*FCd_a)*FCd_a);
6266 #endif
6267 {
6268 double m00_logE(d00_logE0,(1.0+(latb*FCw)))
6269 #if defined(_DERIVATE)
6270 double m10_logE(d10_logE0,d00_logE0,(1.0+(latb*FCw)))
6271 #endif
6272 #if defined(_DERIVATE)
6273 FClnb_Vci_ei=(latb*FCw_Vci_ei)*d10_logE0;
6274 FClnb_Vtnode_GND=(latb*FCw_Vtnode_GND)*d10_logE0;
6275 FClnb_Vbi_ei=(latb*FCw_Vbi_ei)*d10_logE0;
6276 FClnb_Vbi_ci=(latb*FCw_Vbi_ci)*d10_logE0;
6277 #endif
6278 FClnb=d00_logE0;
6279 }
6280 {
6281 double m00_logE(d00_logE0,(1.0+(latl*FCw)))
6282 #if defined(_DERIVATE)
6283 double m10_logE(d10_logE0,d00_logE0,(1.0+(latl*FCw)))
6284 #endif
6285 #if defined(_DERIVATE)
6286 FClnl_Vci_ei=(latl*FCw_Vci_ei)*d10_logE0;
6287 FClnl_Vtnode_GND=(latl*FCw_Vtnode_GND)*d10_logE0;
6288 FClnl_Vbi_ei=(latl*FCw_Vbi_ei)*d10_logE0;
6289 FClnl_Vbi_ci=(latl*FCw_Vbi_ci)*d10_logE0;
6290 #endif
6291 FClnl=d00_logE0;
6292 }
6293 #if defined(_DYNAMIC)
6294 #if defined(_DERIVATE)
6295 FCa1_Vci_ei=(FClnb_Vci_ei-FClnl_Vci_ei);
6296 FCa1_Vtnode_GND=(FClnb_Vtnode_GND-FClnl_Vtnode_GND);
6297 FCa1_Vbi_ei=(FClnb_Vbi_ei-FClnl_Vbi_ei);
6298 FCa1_Vbi_ci=(FClnb_Vbi_ci-FClnl_Vbi_ci);
6299 #endif
6300 FCa1=(FClnb-FClnl);
6301 #endif
6302 #if defined(_DYNAMIC)
6303 #if defined(_DERIVATE)
6304 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))));
6305 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))));
6306 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))));
6307 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))));
6308 #endif
6309 FCda1_dw=((latb/(1.0+(latb*FCw)))-(latl/(1.0+(latl*FCw))));
6310 #endif
6311 }
6312 else
6313 {
6314 #if defined(_DERIVATE)
6315 FCf1_Vci_ei=(-FCa_ck_Vci_ei);
6316 FCf1_Vtnode_GND=(-FCa_ck_Vtnode_GND);
6317 FCf1_Vbi_ei=(-FCa_ck_Vbi_ei);
6318 FCf1_Vbi_ci=(-FCa_ck_Vbi_ci);
6319 #endif
6320 FCf1=(1.0-FCa_ck);
6321 #if defined(_DERIVATE)
6322 FCd_a_Vci_ei=(-(-FCf1_Vci_ei*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
6323 FCd_a_Vtnode_GND=(-(-FCf1_Vtnode_GND*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
6324 FCd_a_Vbi_ei=(-(-FCf1_Vbi_ei*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
6325 FCd_a_Vbi_ci=(-(-FCf1_Vbi_ci*latb)/(1.0-(FCf1*latb))/(1.0-(FCf1*latb)));
6326 #endif
6327 FCd_a=(1.0/(1.0-(FCf1*latb)));
6328 #if defined(_DERIVATE)
6329 FCw_Vci_ei=((FCf1_Vci_ei*FCd_a)+(FCf1*FCd_a_Vci_ei));
6330 FCw_Vtnode_GND=((FCf1_Vtnode_GND*FCd_a)+(FCf1*FCd_a_Vtnode_GND));
6331 FCw_Vbi_ei=((FCf1_Vbi_ei*FCd_a)+(FCf1*FCd_a_Vbi_ei));
6332 FCw_Vbi_ci=((FCf1_Vbi_ci*FCd_a)+(FCf1*FCd_a_Vbi_ci));
6333 #endif
6334 FCw=(FCf1*FCd_a);
6335 #if defined(_DERIVATE)
6336 FCa_Vci_ei=((FCz_Vci_ei*FCw)+(FCz*FCw_Vci_ei));
6337 FCa_Vtnode_GND=((FCz_Vtnode_GND*FCw)+(FCz*FCw_Vtnode_GND));
6338 FCa_Vbi_ei=((FCz_Vbi_ei*FCw)+(FCz*FCw_Vbi_ei));
6339 FCa_Vbi_ci=((FCz_Vbi_ci*FCw)+(FCz*FCw_Vbi_ci));
6340 #endif
6341 FCa=(FCz*FCw);
6342 #if defined(_DYNAMIC)
6343 #if defined(_DERIVATE)
6344 FCdw_daick_Vci_ei=((((-1.0)*FCd_a_Vci_ei)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vci_ei));
6345 FCdw_daick_Vtnode_GND=((((-1.0)*FCd_a_Vtnode_GND)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vtnode_GND));
6346 FCdw_daick_Vbi_ei=((((-1.0)*FCd_a_Vbi_ei)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vbi_ei));
6347 FCdw_daick_Vbi_ci=((((-1.0)*FCd_a_Vbi_ci)*FCd_a)+(((-1.0)*FCd_a)*FCd_a_Vbi_ci));
6348 #endif
6349 FCdw_daick=(((-1.0)*FCd_a)*FCd_a);
6350 #endif
6351 #if defined(_DERIVATE)
6352 FClnb_Vci_ei=(latb*FCw_Vci_ei);
6353 FClnb_Vtnode_GND=(latb*FCw_Vtnode_GND);
6354 FClnb_Vbi_ei=(latb*FCw_Vbi_ei);
6355 FClnb_Vbi_ci=(latb*FCw_Vbi_ci);
6356 #endif
6357 FClnb=(latb*FCw);
6358 #if defined(_DERIVATE)
6359 FClnl_Vci_ei=(latl*FCw_Vci_ei);
6360 FClnl_Vtnode_GND=(latl*FCw_Vtnode_GND);
6361 FClnl_Vbi_ei=(latl*FCw_Vbi_ei);
6362 FClnl_Vbi_ci=(latl*FCw_Vbi_ci);
6363 #endif
6364 FClnl=(latl*FCw);
6365 #if defined(_DYNAMIC)
6366 #if defined(_DERIVATE)
6367 FCa1_Vci_ei=((FCz_Vci_ei*FCw)+(FCz*FCw_Vci_ei));
6368 FCa1_Vtnode_GND=((FCz_Vtnode_GND*FCw)+(FCz*FCw_Vtnode_GND));
6369 FCa1_Vbi_ei=((FCz_Vbi_ei*FCw)+(FCz*FCw_Vbi_ei));
6370 FCa1_Vbi_ci=((FCz_Vbi_ci*FCw)+(FCz*FCw_Vbi_ci));
6371 #endif
6372 FCa1=(FCz*FCw);
6373 #endif
6374 #if defined(_DYNAMIC)
6375 #if defined(_DERIVATE)
6376 FCda1_dw_Vci_ei=FCz_Vci_ei;
6377 FCda1_dw_Vtnode_GND=FCz_Vtnode_GND;
6378 FCda1_dw_Vbi_ei=FCz_Vbi_ei;
6379 FCda1_dw_Vbi_ci=FCz_Vbi_ci;
6380 #endif
6381 FCda1_dw=FCz;
6382 #endif
6383 }
6384 #if defined(_DERIVATE)
6385 FCf_CT_Vci_ei=(-2.0*FCz_Vci_ei/FCz/FCz);
6386 FCf_CT_Vbi_ei=(-2.0*FCz_Vbi_ei/FCz/FCz);
6387 FCf_CT_Vbi_ci=(-2.0*FCz_Vbi_ci/FCz/FCz);
6388 FCf_CT_Vtnode_GND=(-2.0*FCz_Vtnode_GND/FCz/FCz);
6389 #endif
6390 FCf_CT=(2.0/FCz);
6391 #if defined(_DERIVATE)
6392 FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
6393 FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
6394 FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
6395 FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
6396 #endif
6397 FCw2=(FCw*FCw);
6398 #if defined(_DERIVATE)
6399 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);
6400 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);
6401 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);
6402 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);
6403 #endif
6404 FCf1=((((((latb*latl)*FCw)*FCw2)/3.0)+(((latb+latl)*FCw2)/2.0))+FCw);
6405 #if defined(_DYNAMIC)
6406 #if defined(_DERIVATE)
6407 FCdf1_dw_Vci_ei=(((latb*latl)*FCw2_Vci_ei)+((latb+latl)*FCw_Vci_ei));
6408 FCdf1_dw_Vtnode_GND=(((latb*latl)*FCw2_Vtnode_GND)+((latb+latl)*FCw_Vtnode_GND));
6409 FCdf1_dw_Vbi_ei=(((latb*latl)*FCw2_Vbi_ei)+((latb+latl)*FCw_Vbi_ei));
6410 FCdf1_dw_Vbi_ci=(((latb*latl)*FCw2_Vbi_ci)+((latb+latl)*FCw_Vbi_ci));
6411 #endif
6412 FCdf1_dw=((((latb*latl)*FCw2)+((latb+latl)*FCw))+1.0);
6413 #endif
6414 #if defined(_DERIVATE)
6415 z_Vci_ei=(latb*FCw_Vci_ei);
6416 z_Vtnode_GND=(latb*FCw_Vtnode_GND);
6417 z_Vbi_ei=(latb*FCw_Vbi_ei);
6418 z_Vbi_ci=(latb*FCw_Vbi_ci);
6419 #endif
6420 z=(latb*FCw);
6421 if
6422 ((z>1.0e-6))
6423 {
6424 #if defined(_DERIVATE)
6425 x_Vci_ei=z_Vci_ei;
6426 x_Vtnode_GND=z_Vtnode_GND;
6427 x_Vbi_ei=z_Vbi_ei;
6428 x_Vbi_ci=z_Vbi_ci;
6429 #endif
6430 x=(1.0+z);
6431 #if defined(_DERIVATE)
6432 a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
6433 a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
6434 a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
6435 a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
6436 #endif
6437 a=(x*x);
6438 #if defined(_DERIVATE)
6439 a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vci_ei))));
6440 a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vbi_ei))));
6441 a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vbi_ci))));
6442 a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*FClnb)-1.0))+(a*(2.0*FClnb_Vtnode_GND))));
6443 #endif
6444 a2=(0.250*((a*((2.0*FClnb)-1.0))+1.0));
6445 #if defined(_DERIVATE)
6446 a3_Vci_ei=(((((a_Vci_ei*x)+(a*x_Vci_ei))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vci_ei)))/9.0);
6447 a3_Vbi_ei=(((((a_Vbi_ei*x)+(a*x_Vbi_ei))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vbi_ei)))/9.0);
6448 a3_Vbi_ci=(((((a_Vbi_ci*x)+(a*x_Vbi_ci))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vbi_ci)))/9.0);
6449 a3_Vtnode_GND=(((((a_Vtnode_GND*x)+(a*x_Vtnode_GND))*((3.0*FClnb)-1.0))+((a*x)*(3.0*FClnb_Vtnode_GND)))/9.0);
6450 #endif
6451 a3=((((a*x)*((3.0*FClnb)-1.0))+1.0)/9.0);
6452 r=(latl/latb);
6453 #if defined(_DERIVATE)
6454 FCf2_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latb);
6455 FCf2_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latb);
6456 FCf2_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latb);
6457 FCf2_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latb);
6458 #endif
6459 FCf2=((((1.0-r)*a2)+(r*a3))/latb);
6460 #if defined(_DYNAMIC)
6461 #if defined(_DERIVATE)
6462 FCdf2_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vci_ei));
6463 FCdf2_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vtnode_GND));
6464 FCdf2_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vbi_ei));
6465 FCdf2_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*FClnb)+((((1.0-r)*x)+(r*a))*FClnb_Vbi_ci));
6466 #endif
6467 FCdf2_dw=((((1.0-r)*x)+(r*a))*FClnb);
6468 #endif
6469 }
6470 else
6471 {
6472 #if defined(_DERIVATE)
6473 a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
6474 a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
6475 a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
6476 a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
6477 #endif
6478 a=(z*z);
6479 #if defined(_DERIVATE)
6480 a2_Vci_ei=((z_Vci_ei-(0.5*a_Vci_ei))+((z_Vci_ei*a)+(z*a_Vci_ei)));
6481 a2_Vbi_ei=((z_Vbi_ei-(0.5*a_Vbi_ei))+((z_Vbi_ei*a)+(z*a_Vbi_ei)));
6482 a2_Vbi_ci=((z_Vbi_ci-(0.5*a_Vbi_ci))+((z_Vbi_ci*a)+(z*a_Vbi_ci)));
6483 a2_Vtnode_GND=((z_Vtnode_GND-(0.5*a_Vtnode_GND))+((z_Vtnode_GND*a)+(z*a_Vtnode_GND)));
6484 #endif
6485 a2=(((3.0+z)-(0.5*a))+(z*a));
6486 #if defined(_DERIVATE)
6487 a3_Vci_ei=((((-2.0)*z_Vci_ei)+(1.5*a_Vci_ei))+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0));
6488 a3_Vbi_ei=((((-2.0)*z_Vbi_ei)+(1.5*a_Vbi_ei))+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0));
6489 a3_Vbi_ci=((((-2.0)*z_Vbi_ci)+(1.5*a_Vbi_ci))+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0));
6490 a3_Vtnode_GND=((((-2.0)*z_Vtnode_GND)+(1.5*a_Vtnode_GND))+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0));
6491 #endif
6492 a3=((((-2.0)*z)+(1.5*a))+(((2.0*a)*a)/3.0));
6493 #if defined(_DERIVATE)
6494 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);
6495 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);
6496 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);
6497 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);
6498 #endif
6499 FCf2=(((((latb*a2)+(latl*a3))*FCw)*FCw)/6.0);
6500 #if defined(_DYNAMIC)
6501 #if defined(_DERIVATE)
6502 FCdf2_dw_Vci_ei=((((z_Vci_ei+(0.5*a_Vci_ei))-(((a_Vci_ei*z)+(a*z_Vci_ei))/3.0))+((((5.0*a_Vci_ei)*a)+((5.0*a)*a_Vci_ei))/6.0))+(((latl*FCw_Vci_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vci_ei-z_Vci_ei)+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0)))));
6503 FCdf2_dw_Vtnode_GND=((((z_Vtnode_GND+(0.5*a_Vtnode_GND))-(((a_Vtnode_GND*z)+(a*z_Vtnode_GND))/3.0))+((((5.0*a_Vtnode_GND)*a)+((5.0*a)*a_Vtnode_GND))/6.0))+(((latl*FCw_Vtnode_GND)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vtnode_GND-z_Vtnode_GND)+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0)))));
6504 FCdf2_dw_Vbi_ei=((((z_Vbi_ei+(0.5*a_Vbi_ei))-(((a_Vbi_ei*z)+(a*z_Vbi_ei))/3.0))+((((5.0*a_Vbi_ei)*a)+((5.0*a)*a_Vbi_ei))/6.0))+(((latl*FCw_Vbi_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vbi_ei-z_Vbi_ei)+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0)))));
6505 FCdf2_dw_Vbi_ci=((((z_Vbi_ci+(0.5*a_Vbi_ci))-(((a_Vbi_ci*z)+(a*z_Vbi_ci))/3.0))+((((5.0*a_Vbi_ci)*a)+((5.0*a)*a_Vbi_ci))/6.0))+(((latl*FCw_Vbi_ci)*((a-z)+(((2.0*a)*a)/3.0)))+((latl*FCw)*((a_Vbi_ci-z_Vbi_ci)+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0)))));
6506 #endif
6507 FCdf2_dw=((((z+(0.5*a))-((a*z)/3.0))+(((5.0*a)*a)/6.0))+((latl*FCw)*((a-z)+(((2.0*a)*a)/3.0))));
6508 #endif
6509 }
6510 #if defined(_DERIVATE)
6511 z_Vci_ei=(latl*FCw_Vci_ei);
6512 z_Vtnode_GND=(latl*FCw_Vtnode_GND);
6513 z_Vbi_ei=(latl*FCw_Vbi_ei);
6514 z_Vbi_ci=(latl*FCw_Vbi_ci);
6515 #endif
6516 z=(latl*FCw);
6517 if
6518 ((z>1.0e-6))
6519 {
6520 #if defined(_DERIVATE)
6521 x_Vci_ei=z_Vci_ei;
6522 x_Vtnode_GND=z_Vtnode_GND;
6523 x_Vbi_ei=z_Vbi_ei;
6524 x_Vbi_ci=z_Vbi_ci;
6525 #endif
6526 x=(1.0+z);
6527 #if defined(_DERIVATE)
6528 a_Vci_ei=((x_Vci_ei*x)+(x*x_Vci_ei));
6529 a_Vbi_ei=((x_Vbi_ei*x)+(x*x_Vbi_ei));
6530 a_Vbi_ci=((x_Vbi_ci*x)+(x*x_Vbi_ci));
6531 a_Vtnode_GND=((x_Vtnode_GND*x)+(x*x_Vtnode_GND));
6532 #endif
6533 a=(x*x);
6534 #if defined(_DERIVATE)
6535 a2_Vci_ei=(0.250*((a_Vci_ei*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vci_ei))));
6536 a2_Vbi_ei=(0.250*((a_Vbi_ei*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vbi_ei))));
6537 a2_Vbi_ci=(0.250*((a_Vbi_ci*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vbi_ci))));
6538 a2_Vtnode_GND=(0.250*((a_Vtnode_GND*((2.0*FClnl)-1.0))+(a*(2.0*FClnl_Vtnode_GND))));
6539 #endif
6540 a2=(0.250*((a*((2.0*FClnl)-1.0))+1.0));
6541 #if defined(_DERIVATE)
6542 a3_Vci_ei=(((((a_Vci_ei*x)+(a*x_Vci_ei))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vci_ei)))/9.0);
6543 a3_Vbi_ei=(((((a_Vbi_ei*x)+(a*x_Vbi_ei))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vbi_ei)))/9.0);
6544 a3_Vbi_ci=(((((a_Vbi_ci*x)+(a*x_Vbi_ci))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vbi_ci)))/9.0);
6545 a3_Vtnode_GND=(((((a_Vtnode_GND*x)+(a*x_Vtnode_GND))*((3.0*FClnl)-1.0))+((a*x)*(3.0*FClnl_Vtnode_GND)))/9.0);
6546 #endif
6547 a3=((((a*x)*((3.0*FClnl)-1.0))+1.0)/9.0);
6548 r=(latb/latl);
6549 #if defined(_DERIVATE)
6550 FCf3_Vci_ei=((((1.0-r)*a2_Vci_ei)+(r*a3_Vci_ei))/latl);
6551 FCf3_Vbi_ei=((((1.0-r)*a2_Vbi_ei)+(r*a3_Vbi_ei))/latl);
6552 FCf3_Vbi_ci=((((1.0-r)*a2_Vbi_ci)+(r*a3_Vbi_ci))/latl);
6553 FCf3_Vtnode_GND=((((1.0-r)*a2_Vtnode_GND)+(r*a3_Vtnode_GND))/latl);
6554 #endif
6555 FCf3=((((1.0-r)*a2)+(r*a3))/latl);
6556 #if defined(_DYNAMIC)
6557 #if defined(_DERIVATE)
6558 FCdf3_dw_Vci_ei=(((((1.0-r)*x_Vci_ei)+(r*a_Vci_ei))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vci_ei));
6559 FCdf3_dw_Vtnode_GND=(((((1.0-r)*x_Vtnode_GND)+(r*a_Vtnode_GND))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vtnode_GND));
6560 FCdf3_dw_Vbi_ei=(((((1.0-r)*x_Vbi_ei)+(r*a_Vbi_ei))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vbi_ei));
6561 FCdf3_dw_Vbi_ci=(((((1.0-r)*x_Vbi_ci)+(r*a_Vbi_ci))*FClnl)+((((1.0-r)*x)+(r*a))*FClnl_Vbi_ci));
6562 #endif
6563 FCdf3_dw=((((1.0-r)*x)+(r*a))*FClnl);
6564 #endif
6565 }
6566 else
6567 {
6568 #if defined(_DERIVATE)
6569 a_Vci_ei=((z_Vci_ei*z)+(z*z_Vci_ei));
6570 a_Vbi_ei=((z_Vbi_ei*z)+(z*z_Vbi_ei));
6571 a_Vbi_ci=((z_Vbi_ci*z)+(z*z_Vbi_ci));
6572 a_Vtnode_GND=((z_Vtnode_GND*z)+(z*z_Vtnode_GND));
6573 #endif
6574 a=(z*z);
6575 #if defined(_DERIVATE)
6576 a2_Vci_ei=((z_Vci_ei-(0.5*a_Vci_ei))+((z_Vci_ei*a)+(z*a_Vci_ei)));
6577 a2_Vbi_ei=((z_Vbi_ei-(0.5*a_Vbi_ei))+((z_Vbi_ei*a)+(z*a_Vbi_ei)));
6578 a2_Vbi_ci=((z_Vbi_ci-(0.5*a_Vbi_ci))+((z_Vbi_ci*a)+(z*a_Vbi_ci)));
6579 a2_Vtnode_GND=((z_Vtnode_GND-(0.5*a_Vtnode_GND))+((z_Vtnode_GND*a)+(z*a_Vtnode_GND)));
6580 #endif
6581 a2=(((3.0+z)-(0.5*a))+(z*a));
6582 #if defined(_DERIVATE)
6583 a3_Vci_ei=((((-2.0)*z_Vci_ei)+(1.5*a_Vci_ei))+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0));
6584 a3_Vbi_ei=((((-2.0)*z_Vbi_ei)+(1.5*a_Vbi_ei))+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0));
6585 a3_Vbi_ci=((((-2.0)*z_Vbi_ci)+(1.5*a_Vbi_ci))+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0));
6586 a3_Vtnode_GND=((((-2.0)*z_Vtnode_GND)+(1.5*a_Vtnode_GND))+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0));
6587 #endif
6588 a3=((((-2.0)*z)+(1.5*a))+(((2.0*a)*a)/3.0));
6589 #if defined(_DERIVATE)
6590 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);
6591 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);
6592 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);
6593 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);
6594 #endif
6595 FCf3=(((((latl*a2)+(latb*a3))*FCw)*FCw)/6.0);
6596 #if defined(_DYNAMIC)
6597 #if defined(_DERIVATE)
6598 FCdf3_dw_Vci_ei=((((z_Vci_ei+(0.5*a_Vci_ei))-(((a_Vci_ei*z)+(a*z_Vci_ei))/3.0))+((((5.0*a_Vci_ei)*a)+((5.0*a)*a_Vci_ei))/6.0))+(((latb*FCw_Vci_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vci_ei-z_Vci_ei)+((((2.0*a_Vci_ei)*a)+((2.0*a)*a_Vci_ei))/3.0)))));
6599 FCdf3_dw_Vtnode_GND=((((z_Vtnode_GND+(0.5*a_Vtnode_GND))-(((a_Vtnode_GND*z)+(a*z_Vtnode_GND))/3.0))+((((5.0*a_Vtnode_GND)*a)+((5.0*a)*a_Vtnode_GND))/6.0))+(((latb*FCw_Vtnode_GND)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vtnode_GND-z_Vtnode_GND)+((((2.0*a_Vtnode_GND)*a)+((2.0*a)*a_Vtnode_GND))/3.0)))));
6600 FCdf3_dw_Vbi_ei=((((z_Vbi_ei+(0.5*a_Vbi_ei))-(((a_Vbi_ei*z)+(a*z_Vbi_ei))/3.0))+((((5.0*a_Vbi_ei)*a)+((5.0*a)*a_Vbi_ei))/6.0))+(((latb*FCw_Vbi_ei)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vbi_ei-z_Vbi_ei)+((((2.0*a_Vbi_ei)*a)+((2.0*a)*a_Vbi_ei))/3.0)))));
6601 FCdf3_dw_Vbi_ci=((((z_Vbi_ci+(0.5*a_Vbi_ci))-(((a_Vbi_ci*z)+(a*z_Vbi_ci))/3.0))+((((5.0*a_Vbi_ci)*a)+((5.0*a)*a_Vbi_ci))/6.0))+(((latb*FCw_Vbi_ci)*((a-z)+(((2.0*a)*a)/3.0)))+((latb*FCw)*((a_Vbi_ci-z_Vbi_ci)+((((2.0*a_Vbi_ci)*a)+((2.0*a)*a_Vbi_ci))/3.0)))));
6602 #endif
6603 FCdf3_dw=((((z+(0.5*a))-((a*z)/3.0))+(((5.0*a)*a)/6.0))+((latb*FCw)*((a-z)+(((2.0*a)*a)/3.0))));
6604 #endif
6605 }
6606 #if defined(_DERIVATE)
6607 FCf_ci_Vci_ei=((FCf_CT_Vci_ei*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vci_ei*FCf1)+(FCa*FCf1_Vci_ei))-FCf2_Vci_ei)+FCf3_Vci_ei)));
6608 FCf_ci_Vtnode_GND=((FCf_CT_Vtnode_GND*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vtnode_GND*FCf1)+(FCa*FCf1_Vtnode_GND))-FCf2_Vtnode_GND)+FCf3_Vtnode_GND)));
6609 FCf_ci_Vbi_ei=((FCf_CT_Vbi_ei*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vbi_ei*FCf1)+(FCa*FCf1_Vbi_ei))-FCf2_Vbi_ei)+FCf3_Vbi_ei)));
6610 FCf_ci_Vbi_ci=((FCf_CT_Vbi_ci*(((FCa*FCf1)-FCf2)+FCf3))+(FCf_CT*((((FCa_Vbi_ci*FCf1)+(FCa*FCf1_Vbi_ci))-FCf2_Vbi_ci)+FCf3_Vbi_ci)));
6611 #endif
6612 FCf_ci=(FCf_CT*(((FCa*FCf1)-FCf2)+FCf3));
6613 #if defined(_DYNAMIC)
6614 #if defined(_DERIVATE)
6615 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)));
6616 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)));
6617 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)));
6618 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)));
6619 #endif
6620 FCdfc_dw=(FCf_CT*((((FCa1*FCdf1_dw)+(FCda1_dw*FCf1))-FCdf2_dw)+FCdf3_dw));
6621 #endif
6622 #if defined(_DYNAMIC)
6623 #if defined(_DERIVATE)
6624 FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
6625 FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
6626 FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
6627 FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
6628 #endif
6629 FCdw_ditf=(FCdw_daick*FCdaick_ditf);
6630 #endif
6631 #if defined(_DYNAMIC)
6632 #if defined(_DERIVATE)
6633 FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
6634 FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
6635 FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
6636 FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
6637 #endif
6638 FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
6639 #endif
6640 #if defined(_DYNAMIC)
6641 #if defined(_DERIVATE)
6642 a_Vci_ei=(latb*FCw_Vci_ei);
6643 a_Vbi_ei=(latb*FCw_Vbi_ei);
6644 a_Vbi_ci=(latb*FCw_Vbi_ci);
6645 a_Vtnode_GND=(latb*FCw_Vtnode_GND);
6646 #endif
6647 a=(latb*FCw);
6648 #endif
6649 #ifdef _DYNAMIC
6650 if
6651 ((a>1.0e-6))
6652 {
6653 #if defined(_DYNAMIC)
6654 #if defined(_DERIVATE)
6655 FCf2_Vci_ei=((a_Vci_ei-FClnb_Vci_ei)/latb);
6656 FCf2_Vbi_ei=((a_Vbi_ei-FClnb_Vbi_ei)/latb);
6657 FCf2_Vbi_ci=((a_Vbi_ci-FClnb_Vbi_ci)/latb);
6658 FCf2_Vtnode_GND=((a_Vtnode_GND-FClnb_Vtnode_GND)/latb);
6659 #endif
6660 FCf2=((a-FClnb)/latb);
6661 #endif
6662 #if defined(_DYNAMIC)
6663 #if defined(_DERIVATE)
6664 FCdf2_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
6665 FCdf2_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
6666 FCdf2_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
6667 FCdf2_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
6668 #endif
6669 FCdf2_dw=(a/(1.0+a));
6670 #endif
6671 }
6672 else
6673 {
6674 #if defined(_DYNAMIC)
6675 #if defined(_DERIVATE)
6676 FCf2_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
6677 FCf2_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
6678 FCf2_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
6679 FCf2_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
6680 #endif
6681 FCf2=((0.5*a)*FCw);
6682 #endif
6683 #if defined(_DYNAMIC)
6684 #if defined(_DERIVATE)
6685 FCdf2_dw_Vci_ei=a_Vci_ei;
6686 FCdf2_dw_Vtnode_GND=a_Vtnode_GND;
6687 FCdf2_dw_Vbi_ei=a_Vbi_ei;
6688 FCdf2_dw_Vbi_ci=a_Vbi_ci;
6689 #endif
6690 FCdf2_dw=a;
6691 #endif
6692 }
6693 #endif /* if (...) */
6694 #if defined(_DYNAMIC)
6695 #if defined(_DERIVATE)
6696 a_Vci_ei=(latl*FCw_Vci_ei);
6697 a_Vbi_ei=(latl*FCw_Vbi_ei);
6698 a_Vbi_ci=(latl*FCw_Vbi_ci);
6699 a_Vtnode_GND=(latl*FCw_Vtnode_GND);
6700 #endif
6701 a=(latl*FCw);
6702 #endif
6703 #ifdef _DYNAMIC
6704 if
6705 ((a>1.0e-6))
6706 {
6707 #if defined(_DYNAMIC)
6708 #if defined(_DERIVATE)
6709 FCf3_Vci_ei=((a_Vci_ei-FClnl_Vci_ei)/latl);
6710 FCf3_Vbi_ei=((a_Vbi_ei-FClnl_Vbi_ei)/latl);
6711 FCf3_Vbi_ci=((a_Vbi_ci-FClnl_Vbi_ci)/latl);
6712 FCf3_Vtnode_GND=((a_Vtnode_GND-FClnl_Vtnode_GND)/latl);
6713 #endif
6714 FCf3=((a-FClnl)/latl);
6715 #endif
6716 #if defined(_DYNAMIC)
6717 #if defined(_DERIVATE)
6718 FCdf3_dw_Vci_ei=((a_Vci_ei*(1.0+a)-a*a_Vci_ei)/(1.0+a)/(1.0+a));
6719 FCdf3_dw_Vtnode_GND=((a_Vtnode_GND*(1.0+a)-a*a_Vtnode_GND)/(1.0+a)/(1.0+a));
6720 FCdf3_dw_Vbi_ei=((a_Vbi_ei*(1.0+a)-a*a_Vbi_ei)/(1.0+a)/(1.0+a));
6721 FCdf3_dw_Vbi_ci=((a_Vbi_ci*(1.0+a)-a*a_Vbi_ci)/(1.0+a)/(1.0+a));
6722 #endif
6723 FCdf3_dw=(a/(1.0+a));
6724 #endif
6725 }
6726 else
6727 {
6728 #if defined(_DYNAMIC)
6729 #if defined(_DERIVATE)
6730 FCf3_Vci_ei=(((0.5*a_Vci_ei)*FCw)+((0.5*a)*FCw_Vci_ei));
6731 FCf3_Vbi_ei=(((0.5*a_Vbi_ei)*FCw)+((0.5*a)*FCw_Vbi_ei));
6732 FCf3_Vbi_ci=(((0.5*a_Vbi_ci)*FCw)+((0.5*a)*FCw_Vbi_ci));
6733 FCf3_Vtnode_GND=(((0.5*a_Vtnode_GND)*FCw)+((0.5*a)*FCw_Vtnode_GND));
6734 #endif
6735 FCf3=((0.5*a)*FCw);
6736 #endif
6737 #if defined(_DYNAMIC)
6738 #if defined(_DERIVATE)
6739 FCdf3_dw_Vci_ei=a_Vci_ei;
6740 FCdf3_dw_Vtnode_GND=a_Vtnode_GND;
6741 FCdf3_dw_Vbi_ei=a_Vbi_ei;
6742 FCdf3_dw_Vbi_ci=a_Vbi_ci;
6743 #endif
6744 FCdf3_dw=a;
6745 #endif
6746 }
6747 #endif /* if (...) */
6748 #if defined(_DYNAMIC)
6749 #if defined(_DERIVATE)
6750 FCf_CT_Vci_ei=((FCf_CT_Vci_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vci_ei-FCf3_Vci_ei)));
6751 FCf_CT_Vbi_ei=((FCf_CT_Vbi_ei*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ei-FCf3_Vbi_ei)));
6752 FCf_CT_Vbi_ci=((FCf_CT_Vbi_ci*(FCf2-FCf3))+(FCf_CT*(FCf2_Vbi_ci-FCf3_Vbi_ci)));
6753 FCf_CT_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCf2-FCf3))+(FCf_CT*(FCf2_Vtnode_GND-FCf3_Vtnode_GND)));
6754 #endif
6755 FCf_CT=(FCf_CT*(FCf2-FCf3));
6756 #endif
6757 #if defined(_DYNAMIC)
6758 #if defined(_DERIVATE)
6759 FCdfCT_dw_Vci_ei=((FCf_CT_Vci_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vci_ei-FCdf3_dw_Vci_ei)));
6760 FCdfCT_dw_Vbi_ei=((FCf_CT_Vbi_ei*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ei-FCdf3_dw_Vbi_ei)));
6761 FCdfCT_dw_Vbi_ci=((FCf_CT_Vbi_ci*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vbi_ci-FCdf3_dw_Vbi_ci)));
6762 FCdfCT_dw_Vtnode_GND=((FCf_CT_Vtnode_GND*(FCdf2_dw-FCdf3_dw))+(FCf_CT*(FCdf2_dw_Vtnode_GND-FCdf3_dw_Vtnode_GND)));
6763 #endif
6764 FCdfCT_dw=(FCf_CT*(FCdf2_dw-FCdf3_dw));
6765 #endif
6766 #if defined(_DYNAMIC)
6767 #if defined(_DERIVATE)
6768 FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
6769 FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
6770 FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
6771 FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
6772 #endif
6773 FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
6774 #endif
6775 }
6776 else
6777 {
6778 if
6779 ((latb>0.01))
6780 {
6781 #if defined(_DERIVATE)
6782 FCd_a_Vci_ei=(-FCa_ck_Vci_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6783 FCd_a_Vtnode_GND=(-FCa_ck_Vtnode_GND*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6784 FCd_a_Vbi_ei=(-FCa_ck_Vbi_ei*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6785 FCd_a_Vbi_ci=(-FCa_ck_Vbi_ci*latb/(1.0+(FCa_ck*latb))/(1.0+(FCa_ck*latb)));
6786 #endif
6787 FCd_a=(1.0/(1.0+(FCa_ck*latb)));
6788 #if defined(_DERIVATE)
6789 FCw_Vci_ei=(((-FCa_ck_Vci_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vci_ei));
6790 FCw_Vtnode_GND=(((-FCa_ck_Vtnode_GND)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vtnode_GND));
6791 FCw_Vbi_ei=(((-FCa_ck_Vbi_ei)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ei));
6792 FCw_Vbi_ci=(((-FCa_ck_Vbi_ci)*FCd_a)+((1.0-FCa_ck)*FCd_a_Vbi_ci));
6793 #endif
6794 FCw=((1.0-FCa_ck)*FCd_a);
6795 #if defined(_DYNAMIC)
6796 #if defined(_DERIVATE)
6797 FCdw_daick_Vci_ei=((((-(1.0+latb))*FCd_a_Vci_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vci_ei));
6798 FCdw_daick_Vtnode_GND=((((-(1.0+latb))*FCd_a_Vtnode_GND)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vtnode_GND));
6799 FCdw_daick_Vbi_ei=((((-(1.0+latb))*FCd_a_Vbi_ei)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ei));
6800 FCdw_daick_Vbi_ci=((((-(1.0+latb))*FCd_a_Vbi_ci)*FCd_a)+(((-(1.0+latb))*FCd_a)*FCd_a_Vbi_ci));
6801 #endif
6802 FCdw_daick=(((-(1.0+latb))*FCd_a)*FCd_a);
6803 #endif
6804 }
6805 else
6806 {
6807 #if defined(_DERIVATE)
6808 FCw_Vci_ei=((-FCa_ck_Vci_ei)-FCa_ck_Vci_ei*latb);
6809 FCw_Vtnode_GND=((-FCa_ck_Vtnode_GND)-FCa_ck_Vtnode_GND*latb);
6810 FCw_Vbi_ei=((-FCa_ck_Vbi_ei)-FCa_ck_Vbi_ei*latb);
6811 FCw_Vbi_ci=((-FCa_ck_Vbi_ci)-FCa_ck_Vbi_ci*latb);
6812 #endif
6813 FCw=((1.0-FCa_ck)-(FCa_ck*latb));
6814 #if defined(_DYNAMIC)
6815 #if defined(_DERIVATE)
6816 FCdw_daick_Vci_ei=0.0;
6817 FCdw_daick_Vtnode_GND=0.0;
6818 FCdw_daick_Vbi_ei=0.0;
6819 FCdw_daick_Vbi_ci=0.0;
6820 #endif
6821 FCdw_daick=(-(1.0+latb));
6822 #endif
6823 }
6824 #if defined(_DERIVATE)
6825 FCw2_Vci_ei=((FCw_Vci_ei*FCw)+(FCw*FCw_Vci_ei));
6826 FCw2_Vtnode_GND=((FCw_Vtnode_GND*FCw)+(FCw*FCw_Vtnode_GND));
6827 FCw2_Vbi_ei=((FCw_Vbi_ei*FCw)+(FCw*FCw_Vbi_ei));
6828 FCw2_Vbi_ci=((FCw_Vbi_ci*FCw)+(FCw*FCw_Vbi_ci));
6829 #endif
6830 FCw2=(FCw*FCw);
6831 #if defined(_DERIVATE)
6832 FCz_Vci_ei=(latb*FCw_Vci_ei);
6833 FCz_Vtnode_GND=(latb*FCw_Vtnode_GND);
6834 FCz_Vbi_ei=(latb*FCw_Vbi_ei);
6835 FCz_Vbi_ci=(latb*FCw_Vbi_ci);
6836 #endif
6837 FCz=(latb*FCw);
6838 #if defined(_DERIVATE)
6839 FCz_1_Vci_ei=FCz_Vci_ei;
6840 FCz_1_Vtnode_GND=FCz_Vtnode_GND;
6841 FCz_1_Vbi_ei=FCz_Vbi_ei;
6842 FCz_1_Vbi_ci=FCz_Vbi_ci;
6843 #endif
6844 FCz_1=(1.0+FCz);
6845 #if defined(_DERIVATE)
6846 FCd_f_Vci_ei=(-FCz_1_Vci_ei/FCz_1/FCz_1);
6847 FCd_f_Vtnode_GND=(-FCz_1_Vtnode_GND/FCz_1/FCz_1);
6848 FCd_f_Vbi_ei=(-FCz_1_Vbi_ei/FCz_1/FCz_1);
6849 FCd_f_Vbi_ci=(-FCz_1_Vbi_ci/FCz_1/FCz_1);
6850 #endif
6851 FCd_f=(1.0/FCz_1);
6852 #if defined(_DERIVATE)
6853 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));
6854 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));
6855 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));
6856 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));
6857 #endif
6858 FCf_ci=((FCw2*(1.0+(FCz/3.0)))*FCd_f);
6859 #if defined(_DYNAMIC)
6860 #if defined(_DERIVATE)
6861 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));
6862 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));
6863 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));
6864 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));
6865 #endif
6866 FCdfc_dw=((((2.0*FCw)*(FCz_1+((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
6867 #endif
6868 #if defined(_DYNAMIC)
6869 #if defined(_DERIVATE)
6870 FCdw_ditf_Vci_ei=((FCdw_daick_Vci_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vci_ei));
6871 FCdw_ditf_Vtnode_GND=((FCdw_daick_Vtnode_GND*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vtnode_GND));
6872 FCdw_ditf_Vbi_ei=((FCdw_daick_Vbi_ei*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ei));
6873 FCdw_ditf_Vbi_ci=((FCdw_daick_Vbi_ci*FCdaick_ditf)+(FCdw_daick*FCdaick_ditf_Vbi_ci));
6874 #endif
6875 FCdw_ditf=(FCdw_daick*FCdaick_ditf);
6876 #endif
6877 #if defined(_DYNAMIC)
6878 #if defined(_DERIVATE)
6879 FCdfc_ditf_Vci_ei=((FCdfc_dw_Vci_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vci_ei));
6880 FCdfc_ditf_Vtnode_GND=((FCdfc_dw_Vtnode_GND*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vtnode_GND));
6881 FCdfc_ditf_Vbi_ei=((FCdfc_dw_Vbi_ei*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ei));
6882 FCdfc_ditf_Vbi_ci=((FCdfc_dw_Vbi_ci*FCdw_ditf)+(FCdfc_dw*FCdw_ditf_Vbi_ci));
6883 #endif
6884 FCdfc_ditf=(FCdfc_dw*FCdw_ditf);
6885 #endif
6886 #ifdef _DYNAMIC
6887 if
6888 ((FCz>0.001))
6889 {
6890 #if defined(_DYNAMIC)
6891 {
6892 double m00_logE(d00_logE0,FCz_1)
6893 #if defined(_DERIVATE)
6894 double m10_logE(d10_logE0,d00_logE0,FCz_1)
6895 #endif
6896 #if defined(_DERIVATE)
6897 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));
6898 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));
6899 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));
6900 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));
6901 #endif
6902 FCf_CT=((2.0*((FCz_1*d00_logE0)-FCz))/((latb*latb)*FCz_1));
6903 }
6904 #endif
6905 #if defined(_DYNAMIC)
6906 #if defined(_DERIVATE)
6907 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));
6908 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));
6909 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));
6910 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));
6911 #endif
6912 FCdfCT_dw=(((2.0*FCw)*FCd_f)*FCd_f);
6913 #endif
6914 }
6915 else
6916 {
6917 #if defined(_DYNAMIC)
6918 #if defined(_DERIVATE)
6919 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));
6920 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));
6921 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));
6922 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));
6923 #endif
6924 FCf_CT=((FCw2*(1.0-(FCz/3.0)))*FCd_f);
6925 #endif
6926 #if defined(_DYNAMIC)
6927 #if defined(_DERIVATE)
6928 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));
6929 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));
6930 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));
6931 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));
6932 #endif
6933 FCdfCT_dw=((((2.0*FCw)*(1.0-((FCz*FCz)/3.0)))*FCd_f)*FCd_f);
6934 #endif
6935 }
6936 #endif /* if (...) */
6937 #if defined(_DYNAMIC)
6938 #if defined(_DERIVATE)
6939 FCdfCT_ditf_Vci_ei=((FCdfCT_dw_Vci_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vci_ei));
6940 FCdfCT_ditf_Vbi_ei=((FCdfCT_dw_Vbi_ei*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ei));
6941 FCdfCT_ditf_Vbi_ci=((FCdfCT_dw_Vbi_ci*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vbi_ci));
6942 FCdfCT_ditf_Vtnode_GND=((FCdfCT_dw_Vtnode_GND*FCdw_ditf)+(FCdfCT_dw*FCdw_ditf_Vtnode_GND));
6943 #endif
6944 FCdfCT_ditf=(FCdfCT_dw*FCdw_ditf);
6945 #endif
6946 }
6947 #if defined(_DYNAMIC)
6948 #if defined(_DERIVATE)
6949 FFQ_cT_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_CT)+(FFQ_fC*FCf_CT_Vtnode_GND));
6950 FFQ_cT_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ei));
6951 FFQ_cT_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_CT)+(FFQ_fC*FCf_CT_Vbi_ci));
6952 FFQ_cT_Vci_ei=((FFQ_fC_Vci_ei*FCf_CT)+(FFQ_fC*FCf_CT_Vci_ei));
6953 #endif
6954 FFQ_cT=(FFQ_fC*FCf_CT);
6955 #endif
6956 #if defined(_DERIVATE)
6957 FFQ_fC_Vtnode_GND=((FFQ_fC_Vtnode_GND*FCf_ci)+(FFQ_fC*FCf_ci_Vtnode_GND));
6958 FFQ_fC_Vbi_ei=((FFQ_fC_Vbi_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ei));
6959 FFQ_fC_Vbi_ci=((FFQ_fC_Vbi_ci*FCf_ci)+(FFQ_fC*FCf_ci_Vbi_ci));
6960 FFQ_fC_Vci_ei=((FFQ_fC_Vci_ei*FCf_ci)+(FFQ_fC*FCf_ci_Vci_ei));
6961 #endif
6962 FFQ_fC=(FFQ_fC*FCf_ci);
6963 #if defined(_DYNAMIC)
6964 #if defined(_DERIVATE)
6965 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)))));
6966 FFT_fC_Vci_ei=(FFT_pcS*(FCf_ci_Vci_ei+((itf_Vci_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vci_ei))));
6967 FFT_fC_Vbi_ei=(FFT_pcS*(FCf_ci_Vbi_ei+((itf_Vbi_ei*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ei))));
6968 FFT_fC_Vbi_ci=(FFT_pcS*(FCf_ci_Vbi_ci+((itf_Vbi_ci*FCdfc_ditf)+(itf*FCdfc_ditf_Vbi_ci))));
6969 #endif
6970 FFT_fC=(FFT_pcS*(FCf_ci+(itf*FCdfc_ditf)));
6971 #endif
6972 #if defined(_DYNAMIC)
6973 #if defined(_DERIVATE)
6974 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)))));
6975 FFT_cT_Vci_ei=(FFT_pcS*(FCf_CT_Vci_ei+((itf_Vci_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vci_ei))));
6976 FFT_cT_Vbi_ei=(FFT_pcS*(FCf_CT_Vbi_ei+((itf_Vbi_ei*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ei))));
6977 FFT_cT_Vbi_ci=(FFT_pcS*(FCf_CT_Vbi_ci+((itf_Vbi_ci*FCdfCT_ditf)+(itf*FCdfCT_ditf_Vbi_ci))));
6978 #endif
6979 FFT_cT=(FFT_pcS*(FCf_CT+(itf*FCdfCT_ditf)));
6980 #endif
6981 }
6982 #if defined(_DERIVATE)
6983 Qf_Vci_ei=(Qf_Vci_ei+FFd_QfB_Vci_ei);
6984 Qf_Vtnode_GND=(Qf_Vtnode_GND+FFd_QfB_Vtnode_GND);
6985 Qf_Vbi_ci=(Qf_Vbi_ci+FFd_QfB_Vbi_ci);
6986 Qf_Vbi_ei=(Qf_Vbi_ei+FFd_QfB_Vbi_ei);
6987 #endif
6988 Qf=(Qf+FFd_QfB);
6989 #if defined(_DYNAMIC)
6990 #if defined(_DERIVATE)
6991 Tf_Vci_ei=(Tf_Vci_ei+FFd_TfB_Vci_ei);
6992 Tf_Vtnode_GND=(Tf_Vtnode_GND+FFd_TfB_Vtnode_GND);
6993 Tf_Vbi_ci=(Tf_Vbi_ci+FFd_TfB_Vbi_ci);
6994 Tf_Vbi_ei=(Tf_Vbi_ei+FFd_TfB_Vbi_ei);
6995 #endif
6996 Tf=(Tf+FFd_TfB);
6997 #endif
6998 #if defined(_DYNAMIC)
6999 #if defined(_DERIVATE)
7000 Q_fT_Vci_ei=((Qf_Vci_ei+(hfe*FFd_QfE_Vci_ei))+(hfc*FFQ_cT_Vci_ei));
7001 Q_fT_Vtnode_GND=((Qf_Vtnode_GND+(hfe*FFd_QfE_Vtnode_GND))+(hfc*FFQ_cT_Vtnode_GND));
7002 Q_fT_Vbi_ci=((Qf_Vbi_ci+(hfe*FFd_QfE_Vbi_ci))+(hfc*FFQ_cT_Vbi_ci));
7003 Q_fT_Vbi_ei=((Qf_Vbi_ei+(hfe*FFd_QfE_Vbi_ei))+(hfc*FFQ_cT_Vbi_ei));
7004 #endif
7005 Q_fT=((Qf+(hfe*FFd_QfE))+(hfc*FFQ_cT));
7006 #endif
7007 #if defined(_DYNAMIC)
7008 #if defined(_DERIVATE)
7009 T_fT_Vci_ei=((Tf_Vci_ei+(hfe*FFd_TfE_Vci_ei))+(hfc*FFT_cT_Vci_ei));
7010 T_fT_Vtnode_GND=((Tf_Vtnode_GND+(hfe*FFd_TfE_Vtnode_GND))+(hfc*FFT_cT_Vtnode_GND));
7011 T_fT_Vbi_ci=((Tf_Vbi_ci+(hfe*FFd_TfE_Vbi_ci))+(hfc*FFT_cT_Vbi_ci));
7012 T_fT_Vbi_ei=((Tf_Vbi_ei+(hfe*FFd_TfE_Vbi_ei))+(hfc*FFT_cT_Vbi_ei));
7013 #endif
7014 T_fT=((Tf+(hfe*FFd_TfE))+(hfc*FFT_cT));
7015 #endif
7016 #if defined(_DERIVATE)
7017 Qf_Vci_ei=((Qf_Vci_ei+FFd_QfE_Vci_ei)+FFQ_fC_Vci_ei);
7018 Qf_Vtnode_GND=((Qf_Vtnode_GND+FFd_QfE_Vtnode_GND)+FFQ_fC_Vtnode_GND);
7019 Qf_Vbi_ci=((Qf_Vbi_ci+FFd_QfE_Vbi_ci)+FFQ_fC_Vbi_ci);
7020 Qf_Vbi_ei=((Qf_Vbi_ei+FFd_QfE_Vbi_ei)+FFQ_fC_Vbi_ei);
7021 #endif
7022 Qf=((Qf+FFd_QfE)+FFQ_fC);
7023 #if defined(_DYNAMIC)
7024 #if defined(_DERIVATE)
7025 Tf_Vci_ei=((Tf_Vci_ei+FFd_TfE_Vci_ei)+FFT_fC_Vci_ei);
7026 Tf_Vtnode_GND=((Tf_Vtnode_GND+FFd_TfE_Vtnode_GND)+FFT_fC_Vtnode_GND);
7027 Tf_Vbi_ci=((Tf_Vbi_ci+FFd_TfE_Vbi_ci)+FFT_fC_Vbi_ci);
7028 Tf_Vbi_ei=((Tf_Vbi_ei+FFd_TfE_Vbi_ei)+FFT_fC_Vbi_ei);
7029 #endif
7030 Tf=((Tf+FFd_TfE)+FFT_fC);
7031 #endif
7032 }
7033 #if defined(_DYNAMIC)
7034 #if defined(_DERIVATE)
7035 Qr_Vci_ei=(Tr*itr_Vci_ei);
7036 Qr_Vtnode_GND=(Tr*itr_Vtnode_GND);
7037 Qr_Vbi_ci=(Tr*itr_Vbi_ci);
7038 Qr_Vbi_ei=(Tr*itr_Vbi_ei);
7039 #endif
7040 Qr=(Tr*itr);
7041 #endif
7042 }
7043 #if defined(_DERIVATE)
7044 it_Vci_ei=(itf_Vci_ei-itr_Vci_ei);
7045 it_Vtnode_GND=(itf_Vtnode_GND-itr_Vtnode_GND);
7046 it_Vbi_ei=(itf_Vbi_ei-itr_Vbi_ei);
7047 it_Vbi_ci=(itf_Vbi_ci-itr_Vbi_ci);
7048 #endif
7049 it=(itf-itr);
7050 #if defined(_DYNAMIC)
7051 #if defined(_DERIVATE)
7052 Qdei_Vci_ei=Qf_Vci_ei;
7053 Qdei_Vtnode_GND=Qf_Vtnode_GND;
7054 Qdei_Vbi_ci=Qf_Vbi_ci;
7055 Qdei_Vbi_ei=Qf_Vbi_ei;
7056 #endif
7057 Qdei=Qf;
7058 #endif
7059 #if defined(_DYNAMIC)
7060 #if defined(_DERIVATE)
7061 Qdci_Vci_ei=Qr_Vci_ei;
7062 Qdci_Vtnode_GND=Qr_Vtnode_GND;
7063 Qdci_Vbi_ci=Qr_Vbi_ci;
7064 Qdci_Vbi_ei=Qr_Vbi_ei;
7065 #endif
7066 Qdci=Qr;
7067 #endif
7068 #if defined(_DYNAMIC)
7069 #if defined(_DERIVATE)
7070 qrbi_Vtnode_GND=(fcrbi*(((Qjei_Vtnode_GND+Qdei_Vtnode_GND)+Qjci_Vtnode_GND)+Qdci_Vtnode_GND));
7071 qrbi_Vbi_ei=(fcrbi*(((Qjei_Vbi_ei+Qdei_Vbi_ei)+Qjci_Vbi_ei)+Qdci_Vbi_ei));
7072 qrbi_Vci_ei=(fcrbi*(Qdei_Vci_ei+Qdci_Vci_ei));
7073 qrbi_Vbi_ci=(fcrbi*((Qdei_Vbi_ci+Qjci_Vbi_ci)+Qdci_Vbi_ci));
7074 #endif
7075 qrbi=(fcrbi*(((Qjei+Qdei)+Qjci)+Qdci));
7076 #endif
7077 #if defined(_DERIVATE)
7078 DIOY_Vsi_ci=0.0;
7079 DIOY_Vbp_ci=0.0;
7080 DIOY_Vbp_ei=0.0;
7081 DIOY_Vbi_ci=(1/(mbci*VT));
7082 DIOY_Vbi_ei=0.0;
7083 DIOY_Vtnode_GND=(-BP(bi,ci)*(mbci*VT_Vtnode_GND)/(mbci*VT)/(mbci*VT));
7084 #endif
7085 DIOY=(BP(bi,ci)/(mbci*VT));
7086 if
7087 ((ibcis>0.0))
7088 {
7089 if
7090 ((DIOY>80.0))
7091 {
7092 #if defined(_DERIVATE)
7093 le_Vsi_ci=0.0;
7094 le_Vbp_ci=0.0;
7095 le_Vbp_ei=0.0;
7096 le_Vbi_ci=DIOY_Vbi_ci;
7097 le_Vbi_ei=DIOY_Vbi_ei;
7098 le_Vtnode_GND=DIOY_Vtnode_GND;
7099 #endif
7100 le=(1+(DIOY-80.0));
7101 #if defined(_DERIVATE)
7102 DIOY_Vsi_ci=0.0;
7103 DIOY_Vbp_ci=0.0;
7104 DIOY_Vbp_ei=0.0;
7105 DIOY_Vbi_ci=0.0;
7106 DIOY_Vbi_ei=0.0;
7107 DIOY_Vtnode_GND=0.0;
7108 #endif
7109 DIOY=80.0;
7110 }
7111 else
7112 {
7113 #if defined(_DERIVATE)
7114 le_Vsi_ci=0.0;
7115 le_Vbp_ci=0.0;
7116 le_Vbp_ei=0.0;
7117 le_Vbi_ci=0.0;
7118 le_Vbi_ei=0.0;
7119 le_Vtnode_GND=0.0;
7120 #endif
7121 le=1;
7122 }
7123 {
7124 double m00_limexp(d00_limexp0,DIOY)
7125 #if defined(_DERIVATE)
7126 double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
7127 #endif
7128 #if defined(_DERIVATE)
7129 le_Vsi_ci=0.0;
7130 le_Vbp_ci=0.0;
7131 le_Vbp_ei=0.0;
7132 le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
7133 le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
7134 le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
7135 #endif
7136 le=(le*d00_limexp0);
7137 }
7138 #if defined(_DERIVATE)
7139 ibci_Vtnode_GND=((ibcis_t_Vtnode_GND*(le-1.0))+(ibcis_t*le_Vtnode_GND));
7140 ibci_Vbi_ci=(ibcis_t*le_Vbi_ci);
7141 ibci_Vbi_ei=(ibcis_t*le_Vbi_ei);
7142 #endif
7143 ibci=(ibcis_t*(le-1.0));
7144 if
7145 ((DIOY<=(-14.0)))
7146 {
7147 #if defined(_DERIVATE)
7148 ibci_Vtnode_GND=(-ibcis_t_Vtnode_GND);
7149 ibci_Vbi_ci=0.0;
7150 ibci_Vbi_ei=0.0;
7151 #endif
7152 ibci=(-ibcis_t);
7153 }
7154 }
7155 else
7156 {
7157 #if defined(_DERIVATE)
7158 ibci_Vtnode_GND=0.0;
7159 ibci_Vbi_ci=0.0;
7160 ibci_Vbi_ei=0.0;
7161 #endif
7162 ibci=0.0;
7163 }
7164 if
7165 ((((BP(bi,ci)<0.0)&&(favl_t>0.0))&&(cjci0_t>0.0)))
7166 {
7167 #if defined(_DERIVATE)
7168 AVLv_bord_Vtnode_GND=vdci_t_Vtnode_GND;
7169 AVLv_bord_Vbi_ci=(-1.0);
7170 #endif
7171 AVLv_bord=(vdci_t-BP(bi,ci));
7172 #if defined(_DERIVATE)
7173 AVLv_q_Vtnode_GND=((qavl_t_Vtnode_GND*Cjci-qavl_t*Cjci_Vtnode_GND)/Cjci/Cjci);
7174 AVLv_q_Vbi_ei=(-qavl_t*Cjci_Vbi_ei/Cjci/Cjci);
7175 AVLv_q_Vbi_ci=(-qavl_t*Cjci_Vbi_ci/Cjci/Cjci);
7176 #endif
7177 AVLv_q=(qavl_t/Cjci);
7178 #if defined(_DERIVATE)
7179 AVLU0_Vtnode_GND=((qavl_t_Vtnode_GND*cjci0_t-qavl_t*cjci0_t_Vtnode_GND)/cjci0_t/cjci0_t);
7180 #endif
7181 AVLU0=(qavl_t/cjci0_t);
7182 if
7183 ((AVLv_bord>AVLU0))
7184 {
7185 {
7186 double m00_exp(d00_exp0,((-AVLv_q)/AVLU0))
7187 #if defined(_DERIVATE)
7188 #define d10_exp0 d00_exp0
7189 #endif
7190 #if defined(_DERIVATE)
7191 AVLa_Vtnode_GND=((favl_t_Vtnode_GND*d00_exp0)+(favl_t*(((-AVLv_q_Vtnode_GND)*AVLU0-(-AVLv_q)*AVLU0_Vtnode_GND)/AVLU0/AVLU0)*d10_exp0));
7192 AVLa_Vbi_ei=(favl_t*((-AVLv_q_Vbi_ei)/AVLU0)*d10_exp0);
7193 AVLa_Vbi_ci=(favl_t*((-AVLv_q_Vbi_ci)/AVLU0)*d10_exp0);
7194 #endif
7195 AVLa=(favl_t*d00_exp0);
7196 }
7197 #if defined(_DERIVATE)
7198 AVLS_avl_Vtnode_GND=((AVLa_Vtnode_GND*(AVLU0+((1.0+(AVLv_q/AVLU0))*(AVLv_bord-AVLU0))))+(AVLa*(AVLU0_Vtnode_GND+((((AVLv_q_Vtnode_GND*AVLU0-AVLv_q*AVLU0_Vtnode_GND)/AVLU0/AVLU0)*(AVLv_bord-AVLU0))+((1.0+(AVLv_q/AVLU0))*(AVLv_bord_Vtnode_GND-AVLU0_Vtnode_GND))))));
7199 AVLS_avl_Vbi_ei=((AVLa_Vbi_ei*(AVLU0+((1.0+(AVLv_q/AVLU0))*(AVLv_bord-AVLU0))))+(AVLa*(AVLv_q_Vbi_ei/AVLU0)*(AVLv_bord-AVLU0)));
7200 AVLS_avl_Vbi_ci=((AVLa_Vbi_ci*(AVLU0+((1.0+(AVLv_q/AVLU0))*(AVLv_bord-AVLU0))))+(AVLa*(((AVLv_q_Vbi_ci/AVLU0)*(AVLv_bord-AVLU0))+((1.0+(AVLv_q/AVLU0))*AVLv_bord_Vbi_ci))));
7201 #endif
7202 AVLS_avl=(AVLa*(AVLU0+((1.0+(AVLv_q/AVLU0))*(AVLv_bord-AVLU0))));
7203 }
7204 else
7205 {
7206 {
7207 double m00_exp(d00_exp0,((-AVLv_q)/AVLv_bord))
7208 #if defined(_DERIVATE)
7209 #define d10_exp0 d00_exp0
7210 #endif
7211 #if defined(_DERIVATE)
7212 AVLS_avl_Vtnode_GND=((((favl_t_Vtnode_GND*AVLv_bord)+(favl_t*AVLv_bord_Vtnode_GND))*d00_exp0)+((favl_t*AVLv_bord)*(((-AVLv_q_Vtnode_GND)*AVLv_bord-(-AVLv_q)*AVLv_bord_Vtnode_GND)/AVLv_bord/AVLv_bord)*d10_exp0));
7213 AVLS_avl_Vbi_ei=((favl_t*AVLv_bord)*((-AVLv_q_Vbi_ei)/AVLv_bord)*d10_exp0);
7214 AVLS_avl_Vbi_ci=(((favl_t*AVLv_bord_Vbi_ci)*d00_exp0)+((favl_t*AVLv_bord)*(((-AVLv_q_Vbi_ci)*AVLv_bord-(-AVLv_q)*AVLv_bord_Vbi_ci)/AVLv_bord/AVLv_bord)*d10_exp0));
7215 #endif
7216 AVLS_avl=((favl_t*AVLv_bord)*d00_exp0);
7217 }
7218 }
7219 #if defined(_DERIVATE)
7220 iavl_Vci_ei=itf_Vci_ei*AVLS_avl;
7221 iavl_Vtnode_GND=((itf_Vtnode_GND*AVLS_avl)+(itf*AVLS_avl_Vtnode_GND));
7222 iavl_Vbi_ei=((itf_Vbi_ei*AVLS_avl)+(itf*AVLS_avl_Vbi_ei));
7223 iavl_Vbi_ci=((itf_Vbi_ci*AVLS_avl)+(itf*AVLS_avl_Vbi_ci));
7224 #endif
7225 iavl=(itf*AVLS_avl);
7226 }
7227 else
7228 {
7229 #if defined(_DERIVATE)
7230 iavl_Vci_ei=0.0;
7231 iavl_Vtnode_GND=0.0;
7232 iavl_Vbi_ei=0.0;
7233 iavl_Vbi_ci=0.0;
7234 #endif
7235 iavl=0.0;
7236 }
7237 if
7238 ((rbi0_t>0.0))
7239 {
7240 #if defined(_DERIVATE)
7241 f_QR_Vtnode_GND=((1+fdqr0)*qp0_t_Vtnode_GND);
7242 #endif
7243 f_QR=((1+fdqr0)*qp0_t);
7244 #if defined(_DERIVATE)
7245 Qz_Vtnode_GND=(Qjei_Vtnode_GND+Qf_Vtnode_GND);
7246 Qz_Vbi_ei=(Qjei_Vbi_ei+Qf_Vbi_ei);
7247 Qz_Vci_ei=Qf_Vci_ei;
7248 Qz_Vbi_ci=Qf_Vbi_ci;
7249 #endif
7250 Qz=(Qjei+Qf);
7251 if
7252 ((Qf>0.0))
7253 {
7254 #if defined(_DERIVATE)
7255 Q_fi_Vci_ei=Qf_Vci_ei*fqi;
7256 Q_fi_Vtnode_GND=Qf_Vtnode_GND*fqi;
7257 Q_fi_Vbi_ci=Qf_Vbi_ci*fqi;
7258 Q_fi_Vbi_ei=Qf_Vbi_ei*fqi;
7259 #endif
7260 Q_fi=(Qf*fqi);
7261 #if defined(_DERIVATE)
7262 f_p_Vtnode_GND=(((Qjei_Vtnode_GND+Q_fi_Vtnode_GND)*Qz-(Qjei+Q_fi)*Qz_Vtnode_GND)/Qz/Qz);
7263 f_p_Vbi_ei=(((Qjei_Vbi_ei+Q_fi_Vbi_ei)*Qz-(Qjei+Q_fi)*Qz_Vbi_ei)/Qz/Qz);
7264 f_p_Vci_ei=((Q_fi_Vci_ei*Qz-(Qjei+Q_fi)*Qz_Vci_ei)/Qz/Qz);
7265 f_p_Vbi_ci=((Q_fi_Vbi_ci*Qz-(Qjei+Q_fi)*Qz_Vbi_ci)/Qz/Qz);
7266 #endif
7267 f_p=((Qjei+Q_fi)/Qz);
7268 }
7269 else
7270 {
7271 #if defined(_DERIVATE)
7272 f_p_Vtnode_GND=0.0;
7273 f_p_Vbi_ei=0.0;
7274 f_p_Vci_ei=0.0;
7275 f_p_Vbi_ci=0.0;
7276 #endif
7277 f_p=1.0;
7278 }
7279 #if defined(_DERIVATE)
7280 rbi_Vtnode_GND=((((rbi0_t_Vtnode_GND*f_QR)+(rbi0_t*f_QR_Vtnode_GND))*(f_QR+Qz)-(rbi0_t*f_QR)*(f_QR_Vtnode_GND+Qz_Vtnode_GND))/(f_QR+Qz)/(f_QR+Qz));
7281 rbi_Vbi_ei=(-(rbi0_t*f_QR)*Qz_Vbi_ei/(f_QR+Qz)/(f_QR+Qz));
7282 rbi_Vci_ei=(-(rbi0_t*f_QR)*Qz_Vci_ei/(f_QR+Qz)/(f_QR+Qz));
7283 rbi_Vbi_ci=(-(rbi0_t*f_QR)*Qz_Vbi_ci/(f_QR+Qz)/(f_QR+Qz));
7284 #endif
7285 rbi=((rbi0_t*f_QR)/(f_QR+Qz));
7286 #if defined(_DERIVATE)
7287 I_BI_Vtnode_GND=ibei_Vtnode_GND;
7288 I_BI_Vbi_ei=ibei_Vbi_ei;
7289 #endif
7290 I_BI=ibei;
7291 if
7292 ((I_BI>=1.0e-20))
7293 {
7294 #if defined(_DERIVATE)
7295 ETA_Vtnode_GND=((((rbi_Vtnode_GND*I_BI)+(rbi*I_BI_Vtnode_GND))*fgeo*VT-((rbi*I_BI)*fgeo)*VT_Vtnode_GND)/VT/VT);
7296 ETA_Vbi_ei=(((rbi_Vbi_ei*I_BI)+(rbi*I_BI_Vbi_ei))*fgeo/VT);
7297 ETA_Vci_ei=(rbi_Vci_ei*I_BI*fgeo/VT);
7298 ETA_Vbi_ci=(rbi_Vbi_ci*I_BI*fgeo/VT);
7299 #endif
7300 ETA=(((rbi*I_BI)*fgeo)/VT);
7301 if
7302 ((ETA>=1.0e-3))
7303 {
7304 if
7305 ((ETA<0.02))
7306 {
7307 #if defined(_DERIVATE)
7308 rbi_Vtnode_GND=((rbi_Vtnode_GND*(1.0-(0.5*ETA)))+(rbi*(-(0.5*ETA_Vtnode_GND))));
7309 rbi_Vbi_ei=((rbi_Vbi_ei*(1.0-(0.5*ETA)))+(rbi*(-(0.5*ETA_Vbi_ei))));
7310 rbi_Vci_ei=((rbi_Vci_ei*(1.0-(0.5*ETA)))+(rbi*(-(0.5*ETA_Vci_ei))));
7311 rbi_Vbi_ci=((rbi_Vbi_ci*(1.0-(0.5*ETA)))+(rbi*(-(0.5*ETA_Vbi_ci))));
7312 #endif
7313 rbi=(rbi*(1.0-(0.5*ETA)));
7314 }
7315 else
7316 {
7317 {
7318 double m00_logE(d00_logE0,(1.0+ETA))
7319 #if defined(_DERIVATE)
7320 double m10_logE(d10_logE0,d00_logE0,(1.0+ETA))
7321 #endif
7322 #if defined(_DERIVATE)
7323 rbi_Vtnode_GND=((((rbi_Vtnode_GND*d00_logE0)+(rbi*ETA_Vtnode_GND*d10_logE0))*ETA-(rbi*d00_logE0)*ETA_Vtnode_GND)/ETA/ETA);
7324 rbi_Vbi_ei=((((rbi_Vbi_ei*d00_logE0)+(rbi*ETA_Vbi_ei*d10_logE0))*ETA-(rbi*d00_logE0)*ETA_Vbi_ei)/ETA/ETA);
7325 rbi_Vci_ei=((((rbi_Vci_ei*d00_logE0)+(rbi*ETA_Vci_ei*d10_logE0))*ETA-(rbi*d00_logE0)*ETA_Vci_ei)/ETA/ETA);
7326 rbi_Vbi_ci=((((rbi_Vbi_ci*d00_logE0)+(rbi*ETA_Vbi_ci*d10_logE0))*ETA-(rbi*d00_logE0)*ETA_Vbi_ci)/ETA/ETA);
7327 #endif
7328 rbi=((rbi*d00_logE0)/ETA);
7329 }
7330 }
7331 }
7332 }
7333 #if defined(_DERIVATE)
7334 rbi_Vtnode_GND=((rbi_Vtnode_GND*f_p)+(rbi*f_p_Vtnode_GND));
7335 rbi_Vbi_ei=((rbi_Vbi_ei*f_p)+(rbi*f_p_Vbi_ei));
7336 rbi_Vci_ei=((rbi_Vci_ei*f_p)+(rbi*f_p_Vci_ei));
7337 rbi_Vbi_ci=((rbi_Vbi_ci*f_p)+(rbi*f_p_Vbi_ci));
7338 #endif
7339 rbi=(rbi*f_p);
7340 }
7341 else
7342 {
7343 #if defined(_DERIVATE)
7344 rbi_Vtnode_GND=0.0;
7345 rbi_Vbi_ei=0.0;
7346 rbi_Vci_ei=0.0;
7347 rbi_Vbi_ci=0.0;
7348 #endif
7349 rbi=0.0;
7350 }
7351 #if defined(_DERIVATE)
7352 DIOY_Vsi_ci=0.0;
7353 DIOY_Vbp_ci=0.0;
7354 DIOY_Vbp_ei=(1/(mbep*VT));
7355 DIOY_Vbi_ci=0.0;
7356 DIOY_Vbi_ei=0.0;
7357 DIOY_Vtnode_GND=(-BP(bp,ei)*(mbep*VT_Vtnode_GND)/(mbep*VT)/(mbep*VT));
7358 #endif
7359 DIOY=(BP(bp,ei)/(mbep*VT));
7360 if
7361 ((ibeps>0.0))
7362 {
7363 if
7364 ((DIOY>80.0))
7365 {
7366 #if defined(_DERIVATE)
7367 le_Vsi_ci=0.0;
7368 le_Vbp_ci=0.0;
7369 le_Vbp_ei=DIOY_Vbp_ei;
7370 le_Vbi_ci=DIOY_Vbi_ci;
7371 le_Vbi_ei=DIOY_Vbi_ei;
7372 le_Vtnode_GND=DIOY_Vtnode_GND;
7373 #endif
7374 le=(1+(DIOY-80.0));
7375 #if defined(_DERIVATE)
7376 DIOY_Vsi_ci=0.0;
7377 DIOY_Vbp_ci=0.0;
7378 DIOY_Vbp_ei=0.0;
7379 DIOY_Vbi_ci=0.0;
7380 DIOY_Vbi_ei=0.0;
7381 DIOY_Vtnode_GND=0.0;
7382 #endif
7383 DIOY=80.0;
7384 }
7385 else
7386 {
7387 #if defined(_DERIVATE)
7388 le_Vsi_ci=0.0;
7389 le_Vbp_ci=0.0;
7390 le_Vbp_ei=0.0;
7391 le_Vbi_ci=0.0;
7392 le_Vbi_ei=0.0;
7393 le_Vtnode_GND=0.0;
7394 #endif
7395 le=1;
7396 }
7397 {
7398 double m00_limexp(d00_limexp0,DIOY)
7399 #if defined(_DERIVATE)
7400 double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
7401 #endif
7402 #if defined(_DERIVATE)
7403 le_Vsi_ci=0.0;
7404 le_Vbp_ci=0.0;
7405 le_Vbp_ei=((le_Vbp_ei*d00_limexp0)+(le*DIOY_Vbp_ei*d10_limexp0));
7406 le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
7407 le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
7408 le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
7409 #endif
7410 le=(le*d00_limexp0);
7411 }
7412 #if defined(_DERIVATE)
7413 ibep_Vtnode_GND=((ibeps_t_Vtnode_GND*(le-1.0))+(ibeps_t*le_Vtnode_GND));
7414 ibep_Vbp_ei=(ibeps_t*le_Vbp_ei);
7415 ibep_Vbi_ci=(ibeps_t*le_Vbi_ci);
7416 ibep_Vbi_ei=(ibeps_t*le_Vbi_ei);
7417 #endif
7418 ibep=(ibeps_t*(le-1.0));
7419 if
7420 ((DIOY<=(-14.0)))
7421 {
7422 #if defined(_DERIVATE)
7423 ibep_Vtnode_GND=(-ibeps_t_Vtnode_GND);
7424 ibep_Vbp_ei=0.0;
7425 ibep_Vbi_ci=0.0;
7426 ibep_Vbi_ei=0.0;
7427 #endif
7428 ibep=(-ibeps_t);
7429 }
7430 }
7431 else
7432 {
7433 #if defined(_DERIVATE)
7434 ibep_Vtnode_GND=0.0;
7435 ibep_Vbp_ei=0.0;
7436 ibep_Vbi_ci=0.0;
7437 ibep_Vbi_ei=0.0;
7438 #endif
7439 ibep=0.0;
7440 }
7441 #if defined(_DERIVATE)
7442 DIOY_Vsi_ci=0.0;
7443 DIOY_Vbp_ci=0.0;
7444 DIOY_Vbp_ei=(1/(mrep*VT));
7445 DIOY_Vbi_ci=0.0;
7446 DIOY_Vbi_ei=0.0;
7447 DIOY_Vtnode_GND=(-BP(bp,ei)*(mrep*VT_Vtnode_GND)/(mrep*VT)/(mrep*VT));
7448 #endif
7449 DIOY=(BP(bp,ei)/(mrep*VT));
7450 if
7451 ((ireps>0.0))
7452 {
7453 if
7454 ((DIOY>80.0))
7455 {
7456 #if defined(_DERIVATE)
7457 le_Vsi_ci=0.0;
7458 le_Vbp_ci=0.0;
7459 le_Vbp_ei=DIOY_Vbp_ei;
7460 le_Vbi_ci=DIOY_Vbi_ci;
7461 le_Vbi_ei=DIOY_Vbi_ei;
7462 le_Vtnode_GND=DIOY_Vtnode_GND;
7463 #endif
7464 le=(1+(DIOY-80.0));
7465 #if defined(_DERIVATE)
7466 DIOY_Vsi_ci=0.0;
7467 DIOY_Vbp_ci=0.0;
7468 DIOY_Vbp_ei=0.0;
7469 DIOY_Vbi_ci=0.0;
7470 DIOY_Vbi_ei=0.0;
7471 DIOY_Vtnode_GND=0.0;
7472 #endif
7473 DIOY=80.0;
7474 }
7475 else
7476 {
7477 #if defined(_DERIVATE)
7478 le_Vsi_ci=0.0;
7479 le_Vbp_ci=0.0;
7480 le_Vbp_ei=0.0;
7481 le_Vbi_ci=0.0;
7482 le_Vbi_ei=0.0;
7483 le_Vtnode_GND=0.0;
7484 #endif
7485 le=1;
7486 }
7487 {
7488 double m00_limexp(d00_limexp0,DIOY)
7489 #if defined(_DERIVATE)
7490 double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
7491 #endif
7492 #if defined(_DERIVATE)
7493 le_Vsi_ci=0.0;
7494 le_Vbp_ci=0.0;
7495 le_Vbp_ei=((le_Vbp_ei*d00_limexp0)+(le*DIOY_Vbp_ei*d10_limexp0));
7496 le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
7497 le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
7498 le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
7499 #endif
7500 le=(le*d00_limexp0);
7501 }
7502 #if defined(_DERIVATE)
7503 irep_Vtnode_GND=((ireps_t_Vtnode_GND*(le-1.0))+(ireps_t*le_Vtnode_GND));
7504 irep_Vbp_ei=(ireps_t*le_Vbp_ei);
7505 irep_Vbi_ci=(ireps_t*le_Vbi_ci);
7506 irep_Vbi_ei=(ireps_t*le_Vbi_ei);
7507 #endif
7508 irep=(ireps_t*(le-1.0));
7509 if
7510 ((DIOY<=(-14.0)))
7511 {
7512 #if defined(_DERIVATE)
7513 irep_Vtnode_GND=(-ireps_t_Vtnode_GND);
7514 irep_Vbp_ei=0.0;
7515 irep_Vbi_ci=0.0;
7516 irep_Vbi_ei=0.0;
7517 #endif
7518 irep=(-ireps_t);
7519 }
7520 }
7521 else
7522 {
7523 #if defined(_DERIVATE)
7524 irep_Vtnode_GND=0.0;
7525 irep_Vbp_ei=0.0;
7526 irep_Vbi_ci=0.0;
7527 irep_Vbi_ei=0.0;
7528 #endif
7529 irep=0.0;
7530 }
7531 if
7532 ((cjep0_t>0.0))
7533 {
7534 {
7535 double m00_logE(d00_logE0,aljep_t)
7536 double m00_exp(d00_exp1,((-d00_logE0)/zep))
7537 #if defined(_DERIVATE)
7538 double m10_logE(d10_logE0,d00_logE0,aljep_t)
7539 #define d10_exp1 d00_exp1
7540 #endif
7541 #if defined(_DERIVATE)
7542 DFV_f_Vtnode_GND=((vdep_t_Vtnode_GND*(1.0-d00_exp1))+(vdep_t*(-((-aljep_t_Vtnode_GND*d10_logE0)/zep)*d10_exp1)));
7543 #endif
7544 DFV_f=(vdep_t*(1.0-d00_exp1));
7545 }
7546 #if defined(_DERIVATE)
7547 DFC_max_Vtnode_GND=((aljep_t_Vtnode_GND*cjep0_t)+(aljep_t*cjep0_t_Vtnode_GND));
7548 #endif
7549 DFC_max=(aljep_t*cjep0_t);
7550 #if defined(_DERIVATE)
7551 DFv_e_Vsi_ci=0.0;
7552 DFv_e_Vb_ci=0.0;
7553 DFv_e_Vbp_ci=0.0;
7554 DFv_e_Vbp_ei=((-1.0)/VT);
7555 DFv_e_Vbi_ci=0.0;
7556 DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(bp,ei))*VT_Vtnode_GND)/VT/VT);
7557 DFv_e_Vbi_ei=0.0;
7558 #endif
7559 DFv_e=((DFV_f-BP(bp,ei))/VT);
7560 if
7561 ((DFv_e<80.0))
7562 {
7563 {
7564 double m00_exp(d00_exp0,DFv_e)
7565 #if defined(_DERIVATE)
7566 #define d10_exp0 d00_exp0
7567 #endif
7568 #if defined(_DERIVATE)
7569 DFe_Vsi_ci=0.0;
7570 DFe_Vb_ci=0.0;
7571 DFe_Vbp_ci=0.0;
7572 DFe_Vbp_ei=DFv_e_Vbp_ei*d10_exp0;
7573 DFe_Vbi_ci=DFv_e_Vbi_ci*d10_exp0;
7574 DFe_Vtnode_GND=DFv_e_Vtnode_GND*d10_exp0;
7575 DFe_Vbi_ei=DFv_e_Vbi_ei*d10_exp0;
7576 #endif
7577 DFe=d00_exp0;
7578 }
7579 {
7580 double m00_logE(d00_logE0,(1.0+DFe))
7581 #if defined(_DERIVATE)
7582 double m10_logE(d10_logE0,d00_logE0,(1.0+DFe))
7583 #endif
7584 #if defined(_DERIVATE)
7585 DFv_j_Vsi_ci=0.0;
7586 DFv_j_Vb_ci=0.0;
7587 DFv_j_Vbp_ci=0.0;
7588 DFv_j_Vbp_ei=(-(VT*DFe_Vbp_ei*d10_logE0));
7589 DFv_j_Vbi_ci=(-(VT*DFe_Vbi_ci*d10_logE0));
7590 DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*DFe_Vtnode_GND*d10_logE0)));
7591 DFv_j_Vbi_ei=(-(VT*DFe_Vbi_ei*d10_logE0));
7592 #endif
7593 DFv_j=(DFV_f-(VT*d00_logE0));
7594 }
7595 #if defined(_DERIVATE)
7596 DFdvj_dv_Vsi_ci=0.0;
7597 DFdvj_dv_Vb_ci=0.0;
7598 DFdvj_dv_Vbp_ci=0.0;
7599 DFdvj_dv_Vbp_ei=((DFe_Vbp_ei*(1.0+DFe)-DFe*DFe_Vbp_ei)/(1.0+DFe)/(1.0+DFe));
7600 DFdvj_dv_Vbi_ci=((DFe_Vbi_ci*(1.0+DFe)-DFe*DFe_Vbi_ci)/(1.0+DFe)/(1.0+DFe));
7601 DFdvj_dv_Vtnode_GND=((DFe_Vtnode_GND*(1.0+DFe)-DFe*DFe_Vtnode_GND)/(1.0+DFe)/(1.0+DFe));
7602 DFdvj_dv_Vbi_ei=((DFe_Vbi_ei*(1.0+DFe)-DFe*DFe_Vbi_ei)/(1.0+DFe)/(1.0+DFe));
7603 #endif
7604 DFdvj_dv=(DFe/(1.0+DFe));
7605 }
7606 else
7607 {
7608 #if defined(_DERIVATE)
7609 DFv_j_Vsi_ci=0.0;
7610 DFv_j_Vb_ci=0.0;
7611 DFv_j_Vbp_ci=0.0;
7612 DFv_j_Vbp_ei=1.0;
7613 DFv_j_Vbi_ci=0.0;
7614 DFv_j_Vtnode_GND=0.0;
7615 DFv_j_Vbi_ei=0.0;
7616 #endif
7617 DFv_j=BP(bp,ei);
7618 #if defined(_DERIVATE)
7619 DFdvj_dv_Vsi_ci=0.0;
7620 DFdvj_dv_Vb_ci=0.0;
7621 DFdvj_dv_Vbp_ci=0.0;
7622 DFdvj_dv_Vbp_ei=0.0;
7623 DFdvj_dv_Vbi_ci=0.0;
7624 DFdvj_dv_Vtnode_GND=0.0;
7625 DFdvj_dv_Vbi_ei=0.0;
7626 #endif
7627 DFdvj_dv=1;
7628 }
7629 {
7630 double m00_logE(d00_logE0,(1.0-(DFv_j/vdep_t)))
7631 #if defined(_DERIVATE)
7632 double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdep_t)))
7633 #endif
7634 #if defined(_DERIVATE)
7635 DFb_Vsi_ci=0.0;
7636 DFb_Vb_ci=0.0;
7637 DFb_Vbp_ci=0.0;
7638 DFb_Vbp_ei=(-(DFv_j_Vbp_ei/vdep_t))*d10_logE0;
7639 DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdep_t))*d10_logE0;
7640 DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdep_t-DFv_j*vdep_t_Vtnode_GND)/vdep_t/vdep_t))*d10_logE0;
7641 DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdep_t))*d10_logE0;
7642 #endif
7643 DFb=d00_logE0;
7644 }
7645 {
7646 double m00_exp(d00_exp0,((-zep)*DFb))
7647 #if defined(_DERIVATE)
7648 #define d10_exp0 d00_exp0
7649 #endif
7650 #if defined(_DERIVATE)
7651 DFC_j1_Vsi_ci=0.0;
7652 DFC_j1_Vb_ci=0.0;
7653 DFC_j1_Vbp_ci=0.0;
7654 DFC_j1_Vbp_ei=(((cjep0_t*((-zep)*DFb_Vbp_ei)*d10_exp0)*DFdvj_dv)+((cjep0_t*d00_exp0)*DFdvj_dv_Vbp_ei));
7655 DFC_j1_Vbi_ci=(((cjep0_t*((-zep)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjep0_t*d00_exp0)*DFdvj_dv_Vbi_ci));
7656 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));
7657 DFC_j1_Vbi_ei=(((cjep0_t*((-zep)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjep0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
7658 #endif
7659 DFC_j1=((cjep0_t*d00_exp0)*DFdvj_dv);
7660 }
7661 #if defined(_DERIVATE)
7662 Cjep_Vbp_ei=(DFC_j1_Vbp_ei+(DFC_max*(-DFdvj_dv_Vbp_ei)));
7663 Cjep_Vbi_ci=(DFC_j1_Vbi_ci+(DFC_max*(-DFdvj_dv_Vbi_ci)));
7664 Cjep_Vtnode_GND=(DFC_j1_Vtnode_GND+((DFC_max_Vtnode_GND*(1.0-DFdvj_dv))+(DFC_max*(-DFdvj_dv_Vtnode_GND))));
7665 Cjep_Vbi_ei=(DFC_j1_Vbi_ei+(DFC_max*(-DFdvj_dv_Vbi_ei)));
7666 #endif
7667 Cjep=(DFC_j1+(DFC_max*(1.0-DFdvj_dv)));
7668 #if defined(_DYNAMIC)
7669 {
7670 double m00_exp(d00_exp0,(DFb*(1.0-zep)))
7671 #if defined(_DERIVATE)
7672 #define d10_exp0 d00_exp0
7673 #endif
7674 #if defined(_DERIVATE)
7675 DFQ_j_Vsi_ci=0.0;
7676 DFQ_j_Vb_ci=0.0;
7677 DFQ_j_Vbp_ci=0.0;
7678 DFQ_j_Vbp_ei=(((cjep0_t*vdep_t)*(-DFb_Vbp_ei*(1.0-zep)*d10_exp0))/(1.0-zep));
7679 DFQ_j_Vbi_ci=(((cjep0_t*vdep_t)*(-DFb_Vbi_ci*(1.0-zep)*d10_exp0))/(1.0-zep));
7680 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));
7681 DFQ_j_Vbi_ei=(((cjep0_t*vdep_t)*(-DFb_Vbi_ei*(1.0-zep)*d10_exp0))/(1.0-zep));
7682 #endif
7683 DFQ_j=(((cjep0_t*vdep_t)*(1.0-d00_exp0))/(1.0-zep));
7684 }
7685 #endif
7686 #if defined(_DYNAMIC)
7687 #if defined(_DERIVATE)
7688 Qjep_Vbp_ei=(DFQ_j_Vbp_ei+(DFC_max*(1.0-DFv_j_Vbp_ei)));
7689 Qjep_Vbi_ci=(DFQ_j_Vbi_ci+(DFC_max*(-DFv_j_Vbi_ci)));
7690 Qjep_Vtnode_GND=(DFQ_j_Vtnode_GND+((DFC_max_Vtnode_GND*(BP(bp,ei)-DFv_j))+(DFC_max*(-DFv_j_Vtnode_GND))));
7691 Qjep_Vbi_ei=(DFQ_j_Vbi_ei+(DFC_max*(-DFv_j_Vbi_ei)));
7692 #endif
7693 Qjep=(DFQ_j+(DFC_max*(BP(bp,ei)-DFv_j)));
7694 #endif
7695 }
7696 else
7697 {
7698 #if defined(_DERIVATE)
7699 Cjep_Vbp_ei=0.0;
7700 Cjep_Vbi_ci=0.0;
7701 Cjep_Vtnode_GND=0.0;
7702 Cjep_Vbi_ei=0.0;
7703 #endif
7704 Cjep=0.0;
7705 #if defined(_DYNAMIC)
7706 #if defined(_DERIVATE)
7707 Qjep_Vbp_ei=0.0;
7708 Qjep_Vbi_ci=0.0;
7709 Qjep_Vtnode_GND=0.0;
7710 Qjep_Vbi_ei=0.0;
7711 #endif
7712 Qjep=0.0;
7713 #endif
7714 }
7715 if
7716 ((BP(bp,ei)<0.0))
7717 {
7718 if
7719 ((cjep0>0.0))
7720 {
7721 #if defined(_DERIVATE)
7722 a_eg_Vtnode_GND=(-(vgb-(2.55e-4*Tnom))*(-(2.55e-4*Tdev_Vtnode_GND))/(vgb-(2.55e-4*Tdev))/(vgb-(2.55e-4*Tdev)));
7723 #endif
7724 a_eg=((vgb-(2.55e-4*Tnom))/(vgb-(2.55e-4*Tdev)));
7725 {
7726 double m00_sqrt(d00_sqrt0,a_eg)
7727 #if defined(_DERIVATE)
7728 double m10_sqrt(d10_sqrt0,d00_sqrt0,a_eg)
7729 #endif
7730 #if defined(_DERIVATE)
7731 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));
7732 #endif
7733 ab=(((((cjep0_t/cjep0)*d00_sqrt0)*vdep_t)*vdep_t)/(vdep*vdep));
7734 }
7735 #if defined(_DERIVATE)
7736 ibets_t_Vtnode_GND=(ibets*ab_Vtnode_GND);
7737 #endif
7738 ibets_t=(ibets*ab);
7739 }
7740 else
7741 {
7742 #if defined(_DERIVATE)
7743 ibets_t_Vtnode_GND=0.0;
7744 #endif
7745 ibets_t=ibets;
7746 }
7747 #if defined(_DERIVATE)
7748 vve_Vbp_ei=((-1.0)/vdep_t);
7749 vve_Vtnode_GND=(-(-BP(bp,ei))*vdep_t_Vtnode_GND/vdep_t/vdep_t);
7750 #endif
7751 vve=((-BP(bp,ei))/vdep_t);
7752 #if defined(_DERIVATE)
7753 cce_Vbp_ei=(Cjep_Vbp_ei/cjep0_t);
7754 cce_Vbi_ci=(Cjep_Vbi_ci/cjep0_t);
7755 cce_Vtnode_GND=((Cjep_Vtnode_GND*cjep0_t-Cjep*cjep0_t_Vtnode_GND)/cjep0_t/cjep0_t);
7756 cce_Vbi_ei=(Cjep_Vbi_ei/cjep0_t);
7757 #endif
7758 cce=(Cjep/cjep0_t);
7759 zex=(1.0/zep);
7760 {
7761 double m00_logE(d00_logE0,cce)
7762 double m00_exp(d00_exp1,((1-zex)*d00_logE0))
7763 #if defined(_DERIVATE)
7764 double m10_logE(d10_logE0,d00_logE0,cce)
7765 #define d10_exp1 d00_exp1
7766 #endif
7767 #if defined(_DERIVATE)
7768 pocce_Vbp_ei=((1-zex)*cce_Vbp_ei*d10_logE0)*d10_exp1;
7769 pocce_Vbi_ci=((1-zex)*cce_Vbi_ci*d10_logE0)*d10_exp1;
7770 pocce_Vtnode_GND=((1-zex)*cce_Vtnode_GND*d10_logE0)*d10_exp1;
7771 pocce_Vbi_ei=((1-zex)*cce_Vbi_ei*d10_logE0)*d10_exp1;
7772 #endif
7773 pocce=d00_exp1;
7774 }
7775 #if defined(_DERIVATE)
7776 czz_Vtnode_GND=((((ibets_t_Vtnode_GND*vve)+(ibets_t*vve_Vtnode_GND))*pocce)+((ibets_t*vve)*pocce_Vtnode_GND));
7777 czz_Vbp_ei=(((ibets_t*vve_Vbp_ei)*pocce)+((ibets_t*vve)*pocce_Vbp_ei));
7778 czz_Vbi_ci=((ibets_t*vve)*pocce_Vbi_ci);
7779 czz_Vbi_ei=((ibets_t*vve)*pocce_Vbi_ei);
7780 #endif
7781 czz=((ibets_t*vve)*pocce);
7782 {
7783 double m00_exp(d00_exp0,((-abet)/pocce))
7784 #if defined(_DERIVATE)
7785 #define d10_exp0 d00_exp0
7786 #endif
7787 #if defined(_DERIVATE)
7788 ibet_Vtnode_GND=((czz_Vtnode_GND*d00_exp0)+(czz*(-(-abet)*pocce_Vtnode_GND/pocce/pocce)*d10_exp0));
7789 ibet_Vbp_ei=((czz_Vbp_ei*d00_exp0)+(czz*(-(-abet)*pocce_Vbp_ei/pocce/pocce)*d10_exp0));
7790 ibet_Vbi_ci=((czz_Vbi_ci*d00_exp0)+(czz*(-(-abet)*pocce_Vbi_ci/pocce/pocce)*d10_exp0));
7791 ibet_Vbi_ei=((czz_Vbi_ei*d00_exp0)+(czz*(-(-abet)*pocce_Vbi_ei/pocce/pocce)*d10_exp0));
7792 #endif
7793 ibet=(czz*d00_exp0);
7794 }
7795 }
7796 else
7797 {
7798 #if defined(_DERIVATE)
7799 ibet_Vtnode_GND=0.0;
7800 ibet_Vbp_ei=0.0;
7801 ibet_Vbi_ci=0.0;
7802 ibet_Vbi_ei=0.0;
7803 #endif
7804 ibet=0.0;
7805 }
7806 #ifdef _DYNAMIC
7807 if
7808 ((vptcx_t<1.0e2))
7809 {
7810 #ifdef _DYNAMIC
7811 if
7812 ((cjcx02_t>0.0))
7813 {
7814 #if defined(_DYNAMIC)
7815 Dz_r=(zcx/4.0);
7816 #endif
7817 #if defined(_DYNAMIC)
7818 #if defined(_DERIVATE)
7819 Dv_p_Vtnode_GND=(vptcx_t_Vtnode_GND-vdcx_t_Vtnode_GND);
7820 #endif
7821 Dv_p=(vptcx_t-vdcx_t);
7822 #endif
7823 #if defined(_DYNAMIC)
7824 {
7825 double m00_logE(d00_logE0,2.4)
7826 double m00_exp(d00_exp1,((-d00_logE0)/zcx))
7827 #if defined(_DERIVATE)
7828 DV_f_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
7829 #endif
7830 DV_f=(vdcx_t*(1.0-d00_exp1));
7831 }
7832 #endif
7833 #if defined(_DYNAMIC)
7834 #if defined(_DERIVATE)
7835 DC_max_Vtnode_GND=(2.4*cjcx02_t_Vtnode_GND);
7836 #endif
7837 DC_max=(2.4*cjcx02_t);
7838 #endif
7839 #if defined(_DYNAMIC)
7840 {
7841 double m00_logE(d00_logE0,(vptcx_t/vdcx_t))
7842 double m00_exp(d00_exp1,(d00_logE0*(Dz_r-zcx)))
7843 #if defined(_DERIVATE)
7844 double m10_logE(d10_logE0,d00_logE0,(vptcx_t/vdcx_t))
7845 #define d10_exp1 d00_exp1
7846 #endif
7847 #if defined(_DERIVATE)
7848 DC_c_Vtnode_GND=((cjcx02_t_Vtnode_GND*d00_exp1)+(cjcx02_t*((vptcx_t_Vtnode_GND*vdcx_t-vptcx_t*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t)*d10_logE0*(Dz_r-zcx)*d10_exp1));
7849 #endif
7850 DC_c=(cjcx02_t*d00_exp1);
7851 }
7852 #endif
7853 #if defined(_DYNAMIC)
7854 #if defined(_DERIVATE)
7855 Da_Vtnode_GND=VT_Vtnode_GND;
7856 #endif
7857 Da=VT;
7858 #endif
7859 #if defined(_DYNAMIC)
7860 #if defined(_DERIVATE)
7861 Dv_e_Vsi_ci=0.0;
7862 Dv_e_Vb_ci=0.0;
7863 Dv_e_Vbp_ci=((-1.0)/Da);
7864 Dv_e_Vtnode_GND=((DV_f_Vtnode_GND*Da-(DV_f-BP(bp,ci))*Da_Vtnode_GND)/Da/Da);
7865 Dv_e_Vbi_ci=0.0;
7866 #endif
7867 Dv_e=((DV_f-BP(bp,ci))/Da);
7868 #endif
7869 #ifdef _DYNAMIC
7870 if
7871 ((Dv_e<80.0))
7872 {
7873 #if defined(_DYNAMIC)
7874 {
7875 double m00_exp(d00_exp0,Dv_e)
7876 #if defined(_DERIVATE)
7877 #define d10_exp0 d00_exp0
7878 #endif
7879 #if defined(_DERIVATE)
7880 De_Vsi_ci=0.0;
7881 De_Vb_ci=0.0;
7882 De_Vbp_ci=Dv_e_Vbp_ci*d10_exp0;
7883 De_Vtnode_GND=Dv_e_Vtnode_GND*d10_exp0;
7884 De_Vbi_ci=Dv_e_Vbi_ci*d10_exp0;
7885 #endif
7886 De=d00_exp0;
7887 }
7888 #endif
7889 #if defined(_DYNAMIC)
7890 #if defined(_DERIVATE)
7891 De_1_Vsi_ci=0.0;
7892 De_1_Vb_ci=0.0;
7893 De_1_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
7894 De_1_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
7895 De_1_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
7896 #endif
7897 De_1=(De/(1.0+De));
7898 #endif
7899 #if defined(_DYNAMIC)
7900 {
7901 double m00_logE(d00_logE0,(1.0+De))
7902 #if defined(_DERIVATE)
7903 double m10_logE(d10_logE0,d00_logE0,(1.0+De))
7904 #endif
7905 #if defined(_DERIVATE)
7906 Dv_j1_Vsi_ci=0.0;
7907 Dv_j1_Vb_ci=0.0;
7908 Dv_j1_Vbp_ci=(-(Da*De_Vbp_ci*d10_logE0));
7909 Dv_j1_Vtnode_GND=(DV_f_Vtnode_GND-((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
7910 Dv_j1_Vbi_ci=(-(Da*De_Vbi_ci*d10_logE0));
7911 #endif
7912 Dv_j1=(DV_f-(Da*d00_logE0));
7913 }
7914 #endif
7915 }
7916 else
7917 {
7918 #if defined(_DYNAMIC)
7919 #if defined(_DERIVATE)
7920 De_1_Vsi_ci=0.0;
7921 De_1_Vb_ci=0.0;
7922 De_1_Vbp_ci=0.0;
7923 De_1_Vtnode_GND=0.0;
7924 De_1_Vbi_ci=0.0;
7925 #endif
7926 De_1=1.0;
7927 #endif
7928 #if defined(_DYNAMIC)
7929 #if defined(_DERIVATE)
7930 Dv_j1_Vsi_ci=0.0;
7931 Dv_j1_Vb_ci=0.0;
7932 Dv_j1_Vbp_ci=1.0;
7933 Dv_j1_Vtnode_GND=0.0;
7934 Dv_j1_Vbi_ci=0.0;
7935 #endif
7936 Dv_j1=BP(bp,ci);
7937 #endif
7938 }
7939 #endif /* if (...) */
7940 #if defined(_DYNAMIC)
7941 #if defined(_DERIVATE)
7942 Da_Vtnode_GND=((0.1*Dv_p_Vtnode_GND)+(4.0*VT_Vtnode_GND));
7943 #endif
7944 Da=((0.1*Dv_p)+(4.0*VT));
7945 #endif
7946 #if defined(_DYNAMIC)
7947 #if defined(_DERIVATE)
7948 Dv_r_Vsi_ci=0.0;
7949 Dv_r_Vb_ci=0.0;
7950 Dv_r_Vbp_ci=(Dv_j1_Vbp_ci/Da);
7951 Dv_r_Vtnode_GND=(((Dv_p_Vtnode_GND+Dv_j1_Vtnode_GND)*Da-(Dv_p+Dv_j1)*Da_Vtnode_GND)/Da/Da);
7952 Dv_r_Vbi_ci=(Dv_j1_Vbi_ci/Da);
7953 #endif
7954 Dv_r=((Dv_p+Dv_j1)/Da);
7955 #endif
7956 #ifdef _DYNAMIC
7957 if
7958 ((Dv_r<80.0))
7959 {
7960 #if defined(_DYNAMIC)
7961 {
7962 double m00_exp(d00_exp0,Dv_r)
7963 #if defined(_DERIVATE)
7964 #define d10_exp0 d00_exp0
7965 #endif
7966 #if defined(_DERIVATE)
7967 De_Vsi_ci=0.0;
7968 De_Vb_ci=0.0;
7969 De_Vbp_ci=Dv_r_Vbp_ci*d10_exp0;
7970 De_Vtnode_GND=Dv_r_Vtnode_GND*d10_exp0;
7971 De_Vbi_ci=Dv_r_Vbi_ci*d10_exp0;
7972 #endif
7973 De=d00_exp0;
7974 }
7975 #endif
7976 #if defined(_DYNAMIC)
7977 #if defined(_DERIVATE)
7978 De_2_Vsi_ci=0.0;
7979 De_2_Vb_ci=0.0;
7980 De_2_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
7981 De_2_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
7982 De_2_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
7983 #endif
7984 De_2=(De/(1.0+De));
7985 #endif
7986 #if defined(_DYNAMIC)
7987 {
7988 double m00_logE(d00_logE0,(1.0+De))
7989 #if defined(_DERIVATE)
7990 double m10_logE(d10_logE0,d00_logE0,(1.0+De))
7991 #endif
7992 #if defined(_DERIVATE)
7993 Dv_j2_Vsi_ci=0.0;
7994 Dv_j2_Vb_ci=0.0;
7995 Dv_j2_Vbp_ci=(Da*De_Vbp_ci*d10_logE0);
7996 Dv_j2_Vtnode_GND=((-Dv_p_Vtnode_GND)+((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
7997 Dv_j2_Vbi_ci=(Da*De_Vbi_ci*d10_logE0);
7998 #endif
7999 Dv_j2=((-Dv_p)+(Da*d00_logE0));
8000 }
8001 #endif
8002 }
8003 else
8004 {
8005 #if defined(_DYNAMIC)
8006 #if defined(_DERIVATE)
8007 De_2_Vsi_ci=0.0;
8008 De_2_Vb_ci=0.0;
8009 De_2_Vbp_ci=0.0;
8010 De_2_Vtnode_GND=0.0;
8011 De_2_Vbi_ci=0.0;
8012 #endif
8013 De_2=1.0;
8014 #endif
8015 #if defined(_DYNAMIC)
8016 #if defined(_DERIVATE)
8017 Dv_j2_Vsi_ci=0.0;
8018 Dv_j2_Vb_ci=0.0;
8019 Dv_j2_Vbp_ci=Dv_j1_Vbp_ci;
8020 Dv_j2_Vtnode_GND=Dv_j1_Vtnode_GND;
8021 Dv_j2_Vbi_ci=Dv_j1_Vbi_ci;
8022 #endif
8023 Dv_j2=Dv_j1;
8024 #endif
8025 }
8026 #endif /* if (...) */
8027 #if defined(_DYNAMIC)
8028 #if defined(_DERIVATE)
8029 Dv_j4_Vsi_ci=0.0;
8030 Dv_j4_Vb_ci=0.0;
8031 Dv_j4_Vbp_ci=(1.0-Dv_j1_Vbp_ci);
8032 Dv_j4_Vbi_ci=(-Dv_j1_Vbi_ci);
8033 Dv_j4_Vtnode_GND=(-Dv_j1_Vtnode_GND);
8034 #endif
8035 Dv_j4=(BP(bp,ci)-Dv_j1);
8036 #endif
8037 #if defined(_DYNAMIC)
8038 {
8039 double m00_logE(d00_logE0,(1.0-(Dv_j1/vdcx_t)))
8040 #if defined(_DERIVATE)
8041 double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j1/vdcx_t)))
8042 #endif
8043 #if defined(_DERIVATE)
8044 DCln1_Vsi_ci=0.0;
8045 DCln1_Vb_ci=0.0;
8046 DCln1_Vbp_ci=(-(Dv_j1_Vbp_ci/vdcx_t))*d10_logE0;
8047 DCln1_Vtnode_GND=(-((Dv_j1_Vtnode_GND*vdcx_t-Dv_j1*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
8048 DCln1_Vbi_ci=(-(Dv_j1_Vbi_ci/vdcx_t))*d10_logE0;
8049 #endif
8050 DCln1=d00_logE0;
8051 }
8052 #endif
8053 #if defined(_DYNAMIC)
8054 {
8055 double m00_logE(d00_logE0,(1.0-(Dv_j2/vdcx_t)))
8056 #if defined(_DERIVATE)
8057 double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j2/vdcx_t)))
8058 #endif
8059 #if defined(_DERIVATE)
8060 DCln2_Vsi_ci=0.0;
8061 DCln2_Vb_ci=0.0;
8062 DCln2_Vbp_ci=(-(Dv_j2_Vbp_ci/vdcx_t))*d10_logE0;
8063 DCln2_Vtnode_GND=(-((Dv_j2_Vtnode_GND*vdcx_t-Dv_j2*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
8064 DCln2_Vbi_ci=(-(Dv_j2_Vbi_ci/vdcx_t))*d10_logE0;
8065 #endif
8066 DCln2=d00_logE0;
8067 }
8068 #endif
8069 #if defined(_DYNAMIC)
8070 Dz1=(1.0-zcx);
8071 #endif
8072 #if defined(_DYNAMIC)
8073 Dzr1=(1.0-Dz_r);
8074 #endif
8075 #if defined(_DYNAMIC)
8076 {
8077 double m00_exp(d00_exp0,(DCln2*(-zcx)))
8078 #if defined(_DERIVATE)
8079 #define d10_exp0 d00_exp0
8080 #endif
8081 #if defined(_DERIVATE)
8082 DC_j1_Vsi_ci=0.0;
8083 DC_j1_Vb_ci=0.0;
8084 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));
8085 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));
8086 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));
8087 #endif
8088 DC_j1=(((cjcx02_t*d00_exp0)*De_1)*De_2);
8089 }
8090 #endif
8091 #if defined(_DYNAMIC)
8092 {
8093 double m00_exp(d00_exp0,(DCln1*(-Dz_r)))
8094 #if defined(_DERIVATE)
8095 #define d10_exp0 d00_exp0
8096 #endif
8097 #if defined(_DERIVATE)
8098 DC_j2_Vsi_ci=0.0;
8099 DC_j2_Vb_ci=0.0;
8100 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)));
8101 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)));
8102 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)));
8103 #endif
8104 DC_j2=((DC_c*d00_exp0)*(1.0-De_2));
8105 }
8106 #endif
8107 #if defined(_DYNAMIC)
8108 #if defined(_DERIVATE)
8109 DC_j3_Vsi_ci=0.0;
8110 DC_j3_Vb_ci=0.0;
8111 DC_j3_Vbp_ci=(DC_max*(-De_1_Vbp_ci));
8112 DC_j3_Vtnode_GND=((DC_max_Vtnode_GND*(1.0-De_1))+(DC_max*(-De_1_Vtnode_GND)));
8113 DC_j3_Vbi_ci=(DC_max*(-De_1_Vbi_ci));
8114 #endif
8115 DC_j3=(DC_max*(1.0-De_1));
8116 #endif
8117 #if defined(_DYNAMIC)
8118 cjcx0_t_ii=((DC_j1+DC_j2)+DC_j3);
8119 #endif
8120 #if defined(_DYNAMIC)
8121 {
8122 double m00_exp(d00_exp0,(DCln2*Dz1))
8123 #if defined(_DERIVATE)
8124 #define d10_exp0 d00_exp0
8125 #endif
8126 #if defined(_DERIVATE)
8127 DQ_j1_Vsi_ci=0.0;
8128 DQ_j1_Vb_ci=0.0;
8129 DQ_j1_Vbp_ci=((cjcx02_t*(-DCln2_Vbp_ci*Dz1*d10_exp0))/Dz1);
8130 DQ_j1_Vtnode_GND=(((cjcx02_t_Vtnode_GND*(1.0-d00_exp0))+(cjcx02_t*(-DCln2_Vtnode_GND*Dz1*d10_exp0)))/Dz1);
8131 DQ_j1_Vbi_ci=((cjcx02_t*(-DCln2_Vbi_ci*Dz1*d10_exp0))/Dz1);
8132 #endif
8133 DQ_j1=((cjcx02_t*(1.0-d00_exp0))/Dz1);
8134 }
8135 #endif
8136 #if defined(_DYNAMIC)
8137 {
8138 double m00_exp(d00_exp0,(DCln1*Dzr1))
8139 #if defined(_DERIVATE)
8140 #define d10_exp0 d00_exp0
8141 #endif
8142 #if defined(_DERIVATE)
8143 DQ_j2_Vsi_ci=0.0;
8144 DQ_j2_Vb_ci=0.0;
8145 DQ_j2_Vbp_ci=((DC_c*(-DCln1_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
8146 DQ_j2_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln1_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
8147 DQ_j2_Vbi_ci=((DC_c*(-DCln1_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
8148 #endif
8149 DQ_j2=((DC_c*(1.0-d00_exp0))/Dzr1);
8150 }
8151 #endif
8152 #if defined(_DYNAMIC)
8153 {
8154 double m00_exp(d00_exp0,(DCln2*Dzr1))
8155 #if defined(_DERIVATE)
8156 #define d10_exp0 d00_exp0
8157 #endif
8158 #if defined(_DERIVATE)
8159 DQ_j3_Vsi_ci=0.0;
8160 DQ_j3_Vb_ci=0.0;
8161 DQ_j3_Vbp_ci=((DC_c*(-DCln2_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
8162 DQ_j3_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln2_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
8163 DQ_j3_Vbi_ci=((DC_c*(-DCln2_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
8164 #endif
8165 DQ_j3=((DC_c*(1.0-d00_exp0))/Dzr1);
8166 }
8167 #endif
8168 #if defined(_DYNAMIC)
8169 #if defined(_DERIVATE)
8170 qjcx0_t_ii_Vbp_ei=0.0;
8171 qjcx0_t_ii_Vbi_ei=0.0;
8172 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));
8173 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)));
8174 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));
8175 #endif
8176 qjcx0_t_ii=((((DQ_j1+DQ_j2)-DQ_j3)*vdcx_t)+(DC_max*Dv_j4));
8177 #endif
8178 }
8179 else
8180 {
8181 #if defined(_DYNAMIC)
8182 cjcx0_t_ii=0.0;
8183 #endif
8184 #if defined(_DYNAMIC)
8185 #if defined(_DERIVATE)
8186 qjcx0_t_ii_Vbp_ei=0.0;
8187 qjcx0_t_ii_Vbi_ei=0.0;
8188 qjcx0_t_ii_Vbp_ci=0.0;
8189 qjcx0_t_ii_Vtnode_GND=0.0;
8190 qjcx0_t_ii_Vbi_ci=0.0;
8191 #endif
8192 qjcx0_t_ii=0.0;
8193 #endif
8194 }
8195 #endif /* if (...) */
8196 }
8197 else
8198 {
8199 #ifdef _DYNAMIC
8200 if
8201 ((cjcx02_t>0.0))
8202 {
8203 #if defined(_DYNAMIC)
8204 {
8205 double m00_logE(d00_logE0,2.4)
8206 double m00_exp(d00_exp1,((-d00_logE0)/zcx))
8207 #if defined(_DERIVATE)
8208 DFV_f_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
8209 #endif
8210 DFV_f=(vdcx_t*(1.0-d00_exp1));
8211 }
8212 #endif
8213 #if defined(_DYNAMIC)
8214 #if defined(_DERIVATE)
8215 DFC_max_Vtnode_GND=(2.4*cjcx02_t_Vtnode_GND);
8216 #endif
8217 DFC_max=(2.4*cjcx02_t);
8218 #endif
8219 #if defined(_DYNAMIC)
8220 #if defined(_DERIVATE)
8221 DFv_e_Vsi_ci=0.0;
8222 DFv_e_Vb_ci=0.0;
8223 DFv_e_Vbp_ci=((-1.0)/VT);
8224 DFv_e_Vbp_ei=0.0;
8225 DFv_e_Vbi_ci=0.0;
8226 DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(bp,ci))*VT_Vtnode_GND)/VT/VT);
8227 DFv_e_Vbi_ei=0.0;
8228 #endif
8229 DFv_e=((DFV_f-BP(bp,ci))/VT);
8230 #endif
8231 #ifdef _DYNAMIC
8232 if
8233 ((DFv_e<80.0))
8234 {
8235 #if defined(_DYNAMIC)
8236 {
8237 double m00_exp(d00_exp0,DFv_e)
8238 #if defined(_DERIVATE)
8239 #define d10_exp0 d00_exp0
8240 #endif
8241 #if defined(_DERIVATE)
8242 DFe_Vsi_ci=0.0;
8243 DFe_Vb_ci=0.0;
8244 DFe_Vbp_ci=DFv_e_Vbp_ci*d10_exp0;
8245 DFe_Vbp_ei=DFv_e_Vbp_ei*d10_exp0;
8246 DFe_Vbi_ci=DFv_e_Vbi_ci*d10_exp0;
8247 DFe_Vtnode_GND=DFv_e_Vtnode_GND*d10_exp0;
8248 DFe_Vbi_ei=DFv_e_Vbi_ei*d10_exp0;
8249 #endif
8250 DFe=d00_exp0;
8251 }
8252 #endif
8253 #if defined(_DYNAMIC)
8254 {
8255 double m00_logE(d00_logE0,(1.0+DFe))
8256 #if defined(_DERIVATE)
8257 double m10_logE(d10_logE0,d00_logE0,(1.0+DFe))
8258 #endif
8259 #if defined(_DERIVATE)
8260 DFv_j_Vsi_ci=0.0;
8261 DFv_j_Vb_ci=0.0;
8262 DFv_j_Vbp_ci=(-(VT*DFe_Vbp_ci*d10_logE0));
8263 DFv_j_Vbp_ei=(-(VT*DFe_Vbp_ei*d10_logE0));
8264 DFv_j_Vbi_ci=(-(VT*DFe_Vbi_ci*d10_logE0));
8265 DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*DFe_Vtnode_GND*d10_logE0)));
8266 DFv_j_Vbi_ei=(-(VT*DFe_Vbi_ei*d10_logE0));
8267 #endif
8268 DFv_j=(DFV_f-(VT*d00_logE0));
8269 }
8270 #endif
8271 #if defined(_DYNAMIC)
8272 #if defined(_DERIVATE)
8273 DFdvj_dv_Vsi_ci=0.0;
8274 DFdvj_dv_Vb_ci=0.0;
8275 DFdvj_dv_Vbp_ci=((DFe_Vbp_ci*(1.0+DFe)-DFe*DFe_Vbp_ci)/(1.0+DFe)/(1.0+DFe));
8276 DFdvj_dv_Vbp_ei=((DFe_Vbp_ei*(1.0+DFe)-DFe*DFe_Vbp_ei)/(1.0+DFe)/(1.0+DFe));
8277 DFdvj_dv_Vbi_ci=((DFe_Vbi_ci*(1.0+DFe)-DFe*DFe_Vbi_ci)/(1.0+DFe)/(1.0+DFe));
8278 DFdvj_dv_Vtnode_GND=((DFe_Vtnode_GND*(1.0+DFe)-DFe*DFe_Vtnode_GND)/(1.0+DFe)/(1.0+DFe));
8279 DFdvj_dv_Vbi_ei=((DFe_Vbi_ei*(1.0+DFe)-DFe*DFe_Vbi_ei)/(1.0+DFe)/(1.0+DFe));
8280 #endif
8281 DFdvj_dv=(DFe/(1.0+DFe));
8282 #endif
8283 }
8284 else
8285 {
8286 #if defined(_DYNAMIC)
8287 #if defined(_DERIVATE)
8288 DFv_j_Vsi_ci=0.0;
8289 DFv_j_Vb_ci=0.0;
8290 DFv_j_Vbp_ci=1.0;
8291 DFv_j_Vbp_ei=0.0;
8292 DFv_j_Vbi_ci=0.0;
8293 DFv_j_Vtnode_GND=0.0;
8294 DFv_j_Vbi_ei=0.0;
8295 #endif
8296 DFv_j=BP(bp,ci);
8297 #endif
8298 #if defined(_DYNAMIC)
8299 #if defined(_DERIVATE)
8300 DFdvj_dv_Vsi_ci=0.0;
8301 DFdvj_dv_Vb_ci=0.0;
8302 DFdvj_dv_Vbp_ci=0.0;
8303 DFdvj_dv_Vbp_ei=0.0;
8304 DFdvj_dv_Vbi_ci=0.0;
8305 DFdvj_dv_Vtnode_GND=0.0;
8306 DFdvj_dv_Vbi_ei=0.0;
8307 #endif
8308 DFdvj_dv=1;
8309 #endif
8310 }
8311 #endif /* if (...) */
8312 #if defined(_DYNAMIC)
8313 {
8314 double m00_logE(d00_logE0,(1.0-(DFv_j/vdcx_t)))
8315 #if defined(_DERIVATE)
8316 double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdcx_t)))
8317 #endif
8318 #if defined(_DERIVATE)
8319 DFb_Vsi_ci=0.0;
8320 DFb_Vb_ci=0.0;
8321 DFb_Vbp_ci=(-(DFv_j_Vbp_ci/vdcx_t))*d10_logE0;
8322 DFb_Vbp_ei=(-(DFv_j_Vbp_ei/vdcx_t))*d10_logE0;
8323 DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdcx_t))*d10_logE0;
8324 DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdcx_t-DFv_j*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
8325 DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdcx_t))*d10_logE0;
8326 #endif
8327 DFb=d00_logE0;
8328 }
8329 #endif
8330 #if defined(_DYNAMIC)
8331 {
8332 double m00_exp(d00_exp0,((-zcx)*DFb))
8333 #if defined(_DERIVATE)
8334 #define d10_exp0 d00_exp0
8335 #endif
8336 #if defined(_DERIVATE)
8337 DFC_j1_Vsi_ci=0.0;
8338 DFC_j1_Vb_ci=0.0;
8339 DFC_j1_Vbp_ci=(((cjcx02_t*((-zcx)*DFb_Vbp_ci)*d10_exp0)*DFdvj_dv)+((cjcx02_t*d00_exp0)*DFdvj_dv_Vbp_ci));
8340 DFC_j1_Vbp_ei=(((cjcx02_t*((-zcx)*DFb_Vbp_ei)*d10_exp0)*DFdvj_dv)+((cjcx02_t*d00_exp0)*DFdvj_dv_Vbp_ei));
8341 DFC_j1_Vbi_ci=(((cjcx02_t*((-zcx)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjcx02_t*d00_exp0)*DFdvj_dv_Vbi_ci));
8342 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));
8343 DFC_j1_Vbi_ei=(((cjcx02_t*((-zcx)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjcx02_t*d00_exp0)*DFdvj_dv_Vbi_ei));
8344 #endif
8345 DFC_j1=((cjcx02_t*d00_exp0)*DFdvj_dv);
8346 }
8347 #endif
8348 #if defined(_DYNAMIC)
8349 cjcx0_t_ii=(DFC_j1+(DFC_max*(1.0-DFdvj_dv)));
8350 #endif
8351 #if defined(_DYNAMIC)
8352 {
8353 double m00_exp(d00_exp0,(DFb*(1.0-zcx)))
8354 #if defined(_DERIVATE)
8355 #define d10_exp0 d00_exp0
8356 #endif
8357 #if defined(_DERIVATE)
8358 DFQ_j_Vsi_ci=0.0;
8359 DFQ_j_Vb_ci=0.0;
8360 DFQ_j_Vbp_ci=(((cjcx02_t*vdcx_t)*(-DFb_Vbp_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
8361 DFQ_j_Vbp_ei=(((cjcx02_t*vdcx_t)*(-DFb_Vbp_ei*(1.0-zcx)*d10_exp0))/(1.0-zcx));
8362 DFQ_j_Vbi_ci=(((cjcx02_t*vdcx_t)*(-DFb_Vbi_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
8363 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));
8364 DFQ_j_Vbi_ei=(((cjcx02_t*vdcx_t)*(-DFb_Vbi_ei*(1.0-zcx)*d10_exp0))/(1.0-zcx));
8365 #endif
8366 DFQ_j=(((cjcx02_t*vdcx_t)*(1.0-d00_exp0))/(1.0-zcx));
8367 }
8368 #endif
8369 #if defined(_DYNAMIC)
8370 #if defined(_DERIVATE)
8371 qjcx0_t_ii_Vbp_ei=(DFQ_j_Vbp_ei+(DFC_max*(-DFv_j_Vbp_ei)));
8372 qjcx0_t_ii_Vbi_ei=(DFQ_j_Vbi_ei+(DFC_max*(-DFv_j_Vbi_ei)));
8373 qjcx0_t_ii_Vbp_ci=(DFQ_j_Vbp_ci+(DFC_max*(1.0-DFv_j_Vbp_ci)));
8374 qjcx0_t_ii_Vtnode_GND=(DFQ_j_Vtnode_GND+((DFC_max_Vtnode_GND*(BP(bp,ci)-DFv_j))+(DFC_max*(-DFv_j_Vtnode_GND))));
8375 qjcx0_t_ii_Vbi_ci=(DFQ_j_Vbi_ci+(DFC_max*(-DFv_j_Vbi_ci)));
8376 #endif
8377 qjcx0_t_ii=(DFQ_j+(DFC_max*(BP(bp,ci)-DFv_j)));
8378 #endif
8379 }
8380 else
8381 {
8382 #if defined(_DYNAMIC)
8383 cjcx0_t_ii=0.0;
8384 #endif
8385 #if defined(_DYNAMIC)
8386 #if defined(_DERIVATE)
8387 qjcx0_t_ii_Vbp_ei=0.0;
8388 qjcx0_t_ii_Vbi_ei=0.0;
8389 qjcx0_t_ii_Vbp_ci=0.0;
8390 qjcx0_t_ii_Vtnode_GND=0.0;
8391 qjcx0_t_ii_Vbi_ci=0.0;
8392 #endif
8393 qjcx0_t_ii=0.0;
8394 #endif
8395 }
8396 #endif /* if (...) */
8397 }
8398 #endif /* if (...) */
8399 #if defined(_DERIVATE)
8400 DIOY_Vsi_ci=0.0;
8401 DIOY_Vbp_ci=(1/(mbcx*VT));
8402 DIOY_Vbp_ei=0.0;
8403 DIOY_Vbi_ci=0.0;
8404 DIOY_Vbi_ei=0.0;
8405 DIOY_Vtnode_GND=(-BP(bp,ci)*(mbcx*VT_Vtnode_GND)/(mbcx*VT)/(mbcx*VT));
8406 #endif
8407 DIOY=(BP(bp,ci)/(mbcx*VT));
8408 if
8409 ((ibcxs>0.0))
8410 {
8411 if
8412 ((DIOY>80.0))
8413 {
8414 #if defined(_DERIVATE)
8415 le_Vsi_ci=0.0;
8416 le_Vbp_ci=DIOY_Vbp_ci;
8417 le_Vbp_ei=DIOY_Vbp_ei;
8418 le_Vbi_ci=DIOY_Vbi_ci;
8419 le_Vbi_ei=DIOY_Vbi_ei;
8420 le_Vtnode_GND=DIOY_Vtnode_GND;
8421 #endif
8422 le=(1+(DIOY-80.0));
8423 #if defined(_DERIVATE)
8424 DIOY_Vsi_ci=0.0;
8425 DIOY_Vbp_ci=0.0;
8426 DIOY_Vbp_ei=0.0;
8427 DIOY_Vbi_ci=0.0;
8428 DIOY_Vbi_ei=0.0;
8429 DIOY_Vtnode_GND=0.0;
8430 #endif
8431 DIOY=80.0;
8432 }
8433 else
8434 {
8435 #if defined(_DERIVATE)
8436 le_Vsi_ci=0.0;
8437 le_Vbp_ci=0.0;
8438 le_Vbp_ei=0.0;
8439 le_Vbi_ci=0.0;
8440 le_Vbi_ei=0.0;
8441 le_Vtnode_GND=0.0;
8442 #endif
8443 le=1;
8444 }
8445 {
8446 double m00_limexp(d00_limexp0,DIOY)
8447 #if defined(_DERIVATE)
8448 double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
8449 #endif
8450 #if defined(_DERIVATE)
8451 le_Vsi_ci=0.0;
8452 le_Vbp_ci=((le_Vbp_ci*d00_limexp0)+(le*DIOY_Vbp_ci*d10_limexp0));
8453 le_Vbp_ei=((le_Vbp_ei*d00_limexp0)+(le*DIOY_Vbp_ei*d10_limexp0));
8454 le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
8455 le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
8456 le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
8457 #endif
8458 le=(le*d00_limexp0);
8459 }
8460 #if defined(_DERIVATE)
8461 ijbcx_Vtnode_GND=((ibcxs_t_Vtnode_GND*(le-1.0))+(ibcxs_t*le_Vtnode_GND));
8462 ijbcx_Vbp_ci=(ibcxs_t*le_Vbp_ci);
8463 ijbcx_Vbp_ei=(ibcxs_t*le_Vbp_ei);
8464 ijbcx_Vbi_ci=(ibcxs_t*le_Vbi_ci);
8465 ijbcx_Vbi_ei=(ibcxs_t*le_Vbi_ei);
8466 #endif
8467 ijbcx=(ibcxs_t*(le-1.0));
8468 if
8469 ((DIOY<=(-14.0)))
8470 {
8471 #if defined(_DERIVATE)
8472 ijbcx_Vtnode_GND=(-ibcxs_t_Vtnode_GND);
8473 ijbcx_Vbp_ci=0.0;
8474 ijbcx_Vbp_ei=0.0;
8475 ijbcx_Vbi_ci=0.0;
8476 ijbcx_Vbi_ei=0.0;
8477 #endif
8478 ijbcx=(-ibcxs_t);
8479 }
8480 }
8481 else
8482 {
8483 #if defined(_DERIVATE)
8484 ijbcx_Vtnode_GND=0.0;
8485 ijbcx_Vbp_ci=0.0;
8486 ijbcx_Vbp_ei=0.0;
8487 ijbcx_Vbi_ci=0.0;
8488 ijbcx_Vbi_ei=0.0;
8489 #endif
8490 ijbcx=0.0;
8491 }
8492 #ifdef _DYNAMIC
8493 if
8494 ((vptcx_t<1.0e2))
8495 {
8496 #ifdef _DYNAMIC
8497 if
8498 ((cjcx01_t>0.0))
8499 {
8500 #if defined(_DYNAMIC)
8501 Dz_r=(zcx/4.0);
8502 #endif
8503 #if defined(_DYNAMIC)
8504 #if defined(_DERIVATE)
8505 Dv_p_Vtnode_GND=(vptcx_t_Vtnode_GND-vdcx_t_Vtnode_GND);
8506 #endif
8507 Dv_p=(vptcx_t-vdcx_t);
8508 #endif
8509 #if defined(_DYNAMIC)
8510 {
8511 double m00_logE(d00_logE0,2.4)
8512 double m00_exp(d00_exp1,((-d00_logE0)/zcx))
8513 #if defined(_DERIVATE)
8514 DV_f_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
8515 #endif
8516 DV_f=(vdcx_t*(1.0-d00_exp1));
8517 }
8518 #endif
8519 #if defined(_DYNAMIC)
8520 #if defined(_DERIVATE)
8521 DC_max_Vtnode_GND=(2.4*cjcx01_t_Vtnode_GND);
8522 #endif
8523 DC_max=(2.4*cjcx01_t);
8524 #endif
8525 #if defined(_DYNAMIC)
8526 {
8527 double m00_logE(d00_logE0,(vptcx_t/vdcx_t))
8528 double m00_exp(d00_exp1,(d00_logE0*(Dz_r-zcx)))
8529 #if defined(_DERIVATE)
8530 double m10_logE(d10_logE0,d00_logE0,(vptcx_t/vdcx_t))
8531 #define d10_exp1 d00_exp1
8532 #endif
8533 #if defined(_DERIVATE)
8534 DC_c_Vtnode_GND=((cjcx01_t_Vtnode_GND*d00_exp1)+(cjcx01_t*((vptcx_t_Vtnode_GND*vdcx_t-vptcx_t*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t)*d10_logE0*(Dz_r-zcx)*d10_exp1));
8535 #endif
8536 DC_c=(cjcx01_t*d00_exp1);
8537 }
8538 #endif
8539 #if defined(_DYNAMIC)
8540 #if defined(_DERIVATE)
8541 Da_Vtnode_GND=VT_Vtnode_GND;
8542 #endif
8543 Da=VT;
8544 #endif
8545 #if defined(_DYNAMIC)
8546 #if defined(_DERIVATE)
8547 Dv_e_Vsi_ci=0.0;
8548 Dv_e_Vb_ci=((-1.0)/Da);
8549 Dv_e_Vbp_ci=0.0;
8550 Dv_e_Vtnode_GND=((DV_f_Vtnode_GND*Da-(DV_f-BP(b,ci))*Da_Vtnode_GND)/Da/Da);
8551 Dv_e_Vbi_ci=0.0;
8552 #endif
8553 Dv_e=((DV_f-BP(b,ci))/Da);
8554 #endif
8555 #ifdef _DYNAMIC
8556 if
8557 ((Dv_e<80.0))
8558 {
8559 #if defined(_DYNAMIC)
8560 {
8561 double m00_exp(d00_exp0,Dv_e)
8562 #if defined(_DERIVATE)
8563 #define d10_exp0 d00_exp0
8564 #endif
8565 #if defined(_DERIVATE)
8566 De_Vsi_ci=0.0;
8567 De_Vb_ci=Dv_e_Vb_ci*d10_exp0;
8568 De_Vbp_ci=Dv_e_Vbp_ci*d10_exp0;
8569 De_Vtnode_GND=Dv_e_Vtnode_GND*d10_exp0;
8570 De_Vbi_ci=Dv_e_Vbi_ci*d10_exp0;
8571 #endif
8572 De=d00_exp0;
8573 }
8574 #endif
8575 #if defined(_DYNAMIC)
8576 #if defined(_DERIVATE)
8577 De_1_Vsi_ci=0.0;
8578 De_1_Vb_ci=((De_Vb_ci*(1.0+De)-De*De_Vb_ci)/(1.0+De)/(1.0+De));
8579 De_1_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
8580 De_1_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
8581 De_1_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
8582 #endif
8583 De_1=(De/(1.0+De));
8584 #endif
8585 #if defined(_DYNAMIC)
8586 {
8587 double m00_logE(d00_logE0,(1.0+De))
8588 #if defined(_DERIVATE)
8589 double m10_logE(d10_logE0,d00_logE0,(1.0+De))
8590 #endif
8591 #if defined(_DERIVATE)
8592 Dv_j1_Vsi_ci=0.0;
8593 Dv_j1_Vb_ci=(-(Da*De_Vb_ci*d10_logE0));
8594 Dv_j1_Vbp_ci=(-(Da*De_Vbp_ci*d10_logE0));
8595 Dv_j1_Vtnode_GND=(DV_f_Vtnode_GND-((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
8596 Dv_j1_Vbi_ci=(-(Da*De_Vbi_ci*d10_logE0));
8597 #endif
8598 Dv_j1=(DV_f-(Da*d00_logE0));
8599 }
8600 #endif
8601 }
8602 else
8603 {
8604 #if defined(_DYNAMIC)
8605 #if defined(_DERIVATE)
8606 De_1_Vsi_ci=0.0;
8607 De_1_Vb_ci=0.0;
8608 De_1_Vbp_ci=0.0;
8609 De_1_Vtnode_GND=0.0;
8610 De_1_Vbi_ci=0.0;
8611 #endif
8612 De_1=1.0;
8613 #endif
8614 #if defined(_DYNAMIC)
8615 #if defined(_DERIVATE)
8616 Dv_j1_Vsi_ci=0.0;
8617 Dv_j1_Vb_ci=1.0;
8618 Dv_j1_Vbp_ci=0.0;
8619 Dv_j1_Vtnode_GND=0.0;
8620 Dv_j1_Vbi_ci=0.0;
8621 #endif
8622 Dv_j1=BP(b,ci);
8623 #endif
8624 }
8625 #endif /* if (...) */
8626 #if defined(_DYNAMIC)
8627 #if defined(_DERIVATE)
8628 Da_Vtnode_GND=((0.1*Dv_p_Vtnode_GND)+(4.0*VT_Vtnode_GND));
8629 #endif
8630 Da=((0.1*Dv_p)+(4.0*VT));
8631 #endif
8632 #if defined(_DYNAMIC)
8633 #if defined(_DERIVATE)
8634 Dv_r_Vsi_ci=0.0;
8635 Dv_r_Vb_ci=(Dv_j1_Vb_ci/Da);
8636 Dv_r_Vbp_ci=(Dv_j1_Vbp_ci/Da);
8637 Dv_r_Vtnode_GND=(((Dv_p_Vtnode_GND+Dv_j1_Vtnode_GND)*Da-(Dv_p+Dv_j1)*Da_Vtnode_GND)/Da/Da);
8638 Dv_r_Vbi_ci=(Dv_j1_Vbi_ci/Da);
8639 #endif
8640 Dv_r=((Dv_p+Dv_j1)/Da);
8641 #endif
8642 #ifdef _DYNAMIC
8643 if
8644 ((Dv_r<80.0))
8645 {
8646 #if defined(_DYNAMIC)
8647 {
8648 double m00_exp(d00_exp0,Dv_r)
8649 #if defined(_DERIVATE)
8650 #define d10_exp0 d00_exp0
8651 #endif
8652 #if defined(_DERIVATE)
8653 De_Vsi_ci=0.0;
8654 De_Vb_ci=Dv_r_Vb_ci*d10_exp0;
8655 De_Vbp_ci=Dv_r_Vbp_ci*d10_exp0;
8656 De_Vtnode_GND=Dv_r_Vtnode_GND*d10_exp0;
8657 De_Vbi_ci=Dv_r_Vbi_ci*d10_exp0;
8658 #endif
8659 De=d00_exp0;
8660 }
8661 #endif
8662 #if defined(_DYNAMIC)
8663 #if defined(_DERIVATE)
8664 De_2_Vsi_ci=0.0;
8665 De_2_Vb_ci=((De_Vb_ci*(1.0+De)-De*De_Vb_ci)/(1.0+De)/(1.0+De));
8666 De_2_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
8667 De_2_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
8668 De_2_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
8669 #endif
8670 De_2=(De/(1.0+De));
8671 #endif
8672 #if defined(_DYNAMIC)
8673 {
8674 double m00_logE(d00_logE0,(1.0+De))
8675 #if defined(_DERIVATE)
8676 double m10_logE(d10_logE0,d00_logE0,(1.0+De))
8677 #endif
8678 #if defined(_DERIVATE)
8679 Dv_j2_Vsi_ci=0.0;
8680 Dv_j2_Vb_ci=(Da*De_Vb_ci*d10_logE0);
8681 Dv_j2_Vbp_ci=(Da*De_Vbp_ci*d10_logE0);
8682 Dv_j2_Vtnode_GND=((-Dv_p_Vtnode_GND)+((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
8683 Dv_j2_Vbi_ci=(Da*De_Vbi_ci*d10_logE0);
8684 #endif
8685 Dv_j2=((-Dv_p)+(Da*d00_logE0));
8686 }
8687 #endif
8688 }
8689 else
8690 {
8691 #if defined(_DYNAMIC)
8692 #if defined(_DERIVATE)
8693 De_2_Vsi_ci=0.0;
8694 De_2_Vb_ci=0.0;
8695 De_2_Vbp_ci=0.0;
8696 De_2_Vtnode_GND=0.0;
8697 De_2_Vbi_ci=0.0;
8698 #endif
8699 De_2=1.0;
8700 #endif
8701 #if defined(_DYNAMIC)
8702 #if defined(_DERIVATE)
8703 Dv_j2_Vsi_ci=0.0;
8704 Dv_j2_Vb_ci=Dv_j1_Vb_ci;
8705 Dv_j2_Vbp_ci=Dv_j1_Vbp_ci;
8706 Dv_j2_Vtnode_GND=Dv_j1_Vtnode_GND;
8707 Dv_j2_Vbi_ci=Dv_j1_Vbi_ci;
8708 #endif
8709 Dv_j2=Dv_j1;
8710 #endif
8711 }
8712 #endif /* if (...) */
8713 #if defined(_DYNAMIC)
8714 #if defined(_DERIVATE)
8715 Dv_j4_Vsi_ci=0.0;
8716 Dv_j4_Vb_ci=(1.0-Dv_j1_Vb_ci);
8717 Dv_j4_Vbp_ci=(-Dv_j1_Vbp_ci);
8718 Dv_j4_Vbi_ci=(-Dv_j1_Vbi_ci);
8719 Dv_j4_Vtnode_GND=(-Dv_j1_Vtnode_GND);
8720 #endif
8721 Dv_j4=(BP(b,ci)-Dv_j1);
8722 #endif
8723 #if defined(_DYNAMIC)
8724 {
8725 double m00_logE(d00_logE0,(1.0-(Dv_j1/vdcx_t)))
8726 #if defined(_DERIVATE)
8727 double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j1/vdcx_t)))
8728 #endif
8729 #if defined(_DERIVATE)
8730 DCln1_Vsi_ci=0.0;
8731 DCln1_Vb_ci=(-(Dv_j1_Vb_ci/vdcx_t))*d10_logE0;
8732 DCln1_Vbp_ci=(-(Dv_j1_Vbp_ci/vdcx_t))*d10_logE0;
8733 DCln1_Vtnode_GND=(-((Dv_j1_Vtnode_GND*vdcx_t-Dv_j1*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
8734 DCln1_Vbi_ci=(-(Dv_j1_Vbi_ci/vdcx_t))*d10_logE0;
8735 #endif
8736 DCln1=d00_logE0;
8737 }
8738 #endif
8739 #if defined(_DYNAMIC)
8740 {
8741 double m00_logE(d00_logE0,(1.0-(Dv_j2/vdcx_t)))
8742 #if defined(_DERIVATE)
8743 double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j2/vdcx_t)))
8744 #endif
8745 #if defined(_DERIVATE)
8746 DCln2_Vsi_ci=0.0;
8747 DCln2_Vb_ci=(-(Dv_j2_Vb_ci/vdcx_t))*d10_logE0;
8748 DCln2_Vbp_ci=(-(Dv_j2_Vbp_ci/vdcx_t))*d10_logE0;
8749 DCln2_Vtnode_GND=(-((Dv_j2_Vtnode_GND*vdcx_t-Dv_j2*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
8750 DCln2_Vbi_ci=(-(Dv_j2_Vbi_ci/vdcx_t))*d10_logE0;
8751 #endif
8752 DCln2=d00_logE0;
8753 }
8754 #endif
8755 #if defined(_DYNAMIC)
8756 Dz1=(1.0-zcx);
8757 #endif
8758 #if defined(_DYNAMIC)
8759 Dzr1=(1.0-Dz_r);
8760 #endif
8761 #if defined(_DYNAMIC)
8762 {
8763 double m00_exp(d00_exp0,(DCln2*(-zcx)))
8764 #if defined(_DERIVATE)
8765 #define d10_exp0 d00_exp0
8766 #endif
8767 #if defined(_DERIVATE)
8768 DC_j1_Vsi_ci=0.0;
8769 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));
8770 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));
8771 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));
8772 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));
8773 #endif
8774 DC_j1=(((cjcx01_t*d00_exp0)*De_1)*De_2);
8775 }
8776 #endif
8777 #if defined(_DYNAMIC)
8778 {
8779 double m00_exp(d00_exp0,(DCln1*(-Dz_r)))
8780 #if defined(_DERIVATE)
8781 #define d10_exp0 d00_exp0
8782 #endif
8783 #if defined(_DERIVATE)
8784 DC_j2_Vsi_ci=0.0;
8785 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)));
8786 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)));
8787 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)));
8788 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)));
8789 #endif
8790 DC_j2=((DC_c*d00_exp0)*(1.0-De_2));
8791 }
8792 #endif
8793 #if defined(_DYNAMIC)
8794 #if defined(_DERIVATE)
8795 DC_j3_Vsi_ci=0.0;
8796 DC_j3_Vb_ci=(DC_max*(-De_1_Vb_ci));
8797 DC_j3_Vbp_ci=(DC_max*(-De_1_Vbp_ci));
8798 DC_j3_Vtnode_GND=((DC_max_Vtnode_GND*(1.0-De_1))+(DC_max*(-De_1_Vtnode_GND)));
8799 DC_j3_Vbi_ci=(DC_max*(-De_1_Vbi_ci));
8800 #endif
8801 DC_j3=(DC_max*(1.0-De_1));
8802 #endif
8803 #if defined(_DYNAMIC)
8804 cjcx0_t_i=((DC_j1+DC_j2)+DC_j3);
8805 #endif
8806 #if defined(_DYNAMIC)
8807 {
8808 double m00_exp(d00_exp0,(DCln2*Dz1))
8809 #if defined(_DERIVATE)
8810 #define d10_exp0 d00_exp0
8811 #endif
8812 #if defined(_DERIVATE)
8813 DQ_j1_Vsi_ci=0.0;
8814 DQ_j1_Vb_ci=((cjcx01_t*(-DCln2_Vb_ci*Dz1*d10_exp0))/Dz1);
8815 DQ_j1_Vbp_ci=((cjcx01_t*(-DCln2_Vbp_ci*Dz1*d10_exp0))/Dz1);
8816 DQ_j1_Vtnode_GND=(((cjcx01_t_Vtnode_GND*(1.0-d00_exp0))+(cjcx01_t*(-DCln2_Vtnode_GND*Dz1*d10_exp0)))/Dz1);
8817 DQ_j1_Vbi_ci=((cjcx01_t*(-DCln2_Vbi_ci*Dz1*d10_exp0))/Dz1);
8818 #endif
8819 DQ_j1=((cjcx01_t*(1.0-d00_exp0))/Dz1);
8820 }
8821 #endif
8822 #if defined(_DYNAMIC)
8823 {
8824 double m00_exp(d00_exp0,(DCln1*Dzr1))
8825 #if defined(_DERIVATE)
8826 #define d10_exp0 d00_exp0
8827 #endif
8828 #if defined(_DERIVATE)
8829 DQ_j2_Vsi_ci=0.0;
8830 DQ_j2_Vb_ci=((DC_c*(-DCln1_Vb_ci*Dzr1*d10_exp0))/Dzr1);
8831 DQ_j2_Vbp_ci=((DC_c*(-DCln1_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
8832 DQ_j2_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln1_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
8833 DQ_j2_Vbi_ci=((DC_c*(-DCln1_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
8834 #endif
8835 DQ_j2=((DC_c*(1.0-d00_exp0))/Dzr1);
8836 }
8837 #endif
8838 #if defined(_DYNAMIC)
8839 {
8840 double m00_exp(d00_exp0,(DCln2*Dzr1))
8841 #if defined(_DERIVATE)
8842 #define d10_exp0 d00_exp0
8843 #endif
8844 #if defined(_DERIVATE)
8845 DQ_j3_Vsi_ci=0.0;
8846 DQ_j3_Vb_ci=((DC_c*(-DCln2_Vb_ci*Dzr1*d10_exp0))/Dzr1);
8847 DQ_j3_Vbp_ci=((DC_c*(-DCln2_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
8848 DQ_j3_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln2_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
8849 DQ_j3_Vbi_ci=((DC_c*(-DCln2_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
8850 #endif
8851 DQ_j3=((DC_c*(1.0-d00_exp0))/Dzr1);
8852 }
8853 #endif
8854 #if defined(_DYNAMIC)
8855 #if defined(_DERIVATE)
8856 qjcx0_t_i_Vbp_ei=0.0;
8857 qjcx0_t_i_Vbi_ei=0.0;
8858 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));
8859 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));
8860 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)));
8861 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));
8862 #endif
8863 qjcx0_t_i=((((DQ_j1+DQ_j2)-DQ_j3)*vdcx_t)+(DC_max*Dv_j4));
8864 #endif
8865 }
8866 else
8867 {
8868 #if defined(_DYNAMIC)
8869 cjcx0_t_i=0.0;
8870 #endif
8871 #if defined(_DYNAMIC)
8872 #if defined(_DERIVATE)
8873 qjcx0_t_i_Vbp_ei=0.0;
8874 qjcx0_t_i_Vbi_ei=0.0;
8875 qjcx0_t_i_Vb_ci=0.0;
8876 qjcx0_t_i_Vbp_ci=0.0;
8877 qjcx0_t_i_Vtnode_GND=0.0;
8878 qjcx0_t_i_Vbi_ci=0.0;
8879 #endif
8880 qjcx0_t_i=0.0;
8881 #endif
8882 }
8883 #endif /* if (...) */
8884 }
8885 else
8886 {
8887 #ifdef _DYNAMIC
8888 if
8889 ((cjcx01_t>0.0))
8890 {
8891 #if defined(_DYNAMIC)
8892 {
8893 double m00_logE(d00_logE0,2.4)
8894 double m00_exp(d00_exp1,((-d00_logE0)/zcx))
8895 #if defined(_DERIVATE)
8896 DFV_f_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
8897 #endif
8898 DFV_f=(vdcx_t*(1.0-d00_exp1));
8899 }
8900 #endif
8901 #if defined(_DYNAMIC)
8902 #if defined(_DERIVATE)
8903 DFC_max_Vtnode_GND=(2.4*cjcx01_t_Vtnode_GND);
8904 #endif
8905 DFC_max=(2.4*cjcx01_t);
8906 #endif
8907 #if defined(_DYNAMIC)
8908 #if defined(_DERIVATE)
8909 DFv_e_Vsi_ci=0.0;
8910 DFv_e_Vb_ci=((-1.0)/VT);
8911 DFv_e_Vbp_ci=0.0;
8912 DFv_e_Vbp_ei=0.0;
8913 DFv_e_Vbi_ci=0.0;
8914 DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(b,ci))*VT_Vtnode_GND)/VT/VT);
8915 DFv_e_Vbi_ei=0.0;
8916 #endif
8917 DFv_e=((DFV_f-BP(b,ci))/VT);
8918 #endif
8919 #ifdef _DYNAMIC
8920 if
8921 ((DFv_e<80.0))
8922 {
8923 #if defined(_DYNAMIC)
8924 {
8925 double m00_exp(d00_exp0,DFv_e)
8926 #if defined(_DERIVATE)
8927 #define d10_exp0 d00_exp0
8928 #endif
8929 #if defined(_DERIVATE)
8930 DFe_Vsi_ci=0.0;
8931 DFe_Vb_ci=DFv_e_Vb_ci*d10_exp0;
8932 DFe_Vbp_ci=DFv_e_Vbp_ci*d10_exp0;
8933 DFe_Vbp_ei=DFv_e_Vbp_ei*d10_exp0;
8934 DFe_Vbi_ci=DFv_e_Vbi_ci*d10_exp0;
8935 DFe_Vtnode_GND=DFv_e_Vtnode_GND*d10_exp0;
8936 DFe_Vbi_ei=DFv_e_Vbi_ei*d10_exp0;
8937 #endif
8938 DFe=d00_exp0;
8939 }
8940 #endif
8941 #if defined(_DYNAMIC)
8942 {
8943 double m00_logE(d00_logE0,(1.0+DFe))
8944 #if defined(_DERIVATE)
8945 double m10_logE(d10_logE0,d00_logE0,(1.0+DFe))
8946 #endif
8947 #if defined(_DERIVATE)
8948 DFv_j_Vsi_ci=0.0;
8949 DFv_j_Vb_ci=(-(VT*DFe_Vb_ci*d10_logE0));
8950 DFv_j_Vbp_ci=(-(VT*DFe_Vbp_ci*d10_logE0));
8951 DFv_j_Vbp_ei=(-(VT*DFe_Vbp_ei*d10_logE0));
8952 DFv_j_Vbi_ci=(-(VT*DFe_Vbi_ci*d10_logE0));
8953 DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*DFe_Vtnode_GND*d10_logE0)));
8954 DFv_j_Vbi_ei=(-(VT*DFe_Vbi_ei*d10_logE0));
8955 #endif
8956 DFv_j=(DFV_f-(VT*d00_logE0));
8957 }
8958 #endif
8959 #if defined(_DYNAMIC)
8960 #if defined(_DERIVATE)
8961 DFdvj_dv_Vsi_ci=0.0;
8962 DFdvj_dv_Vb_ci=((DFe_Vb_ci*(1.0+DFe)-DFe*DFe_Vb_ci)/(1.0+DFe)/(1.0+DFe));
8963 DFdvj_dv_Vbp_ci=((DFe_Vbp_ci*(1.0+DFe)-DFe*DFe_Vbp_ci)/(1.0+DFe)/(1.0+DFe));
8964 DFdvj_dv_Vbp_ei=((DFe_Vbp_ei*(1.0+DFe)-DFe*DFe_Vbp_ei)/(1.0+DFe)/(1.0+DFe));
8965 DFdvj_dv_Vbi_ci=((DFe_Vbi_ci*(1.0+DFe)-DFe*DFe_Vbi_ci)/(1.0+DFe)/(1.0+DFe));
8966 DFdvj_dv_Vtnode_GND=((DFe_Vtnode_GND*(1.0+DFe)-DFe*DFe_Vtnode_GND)/(1.0+DFe)/(1.0+DFe));
8967 DFdvj_dv_Vbi_ei=((DFe_Vbi_ei*(1.0+DFe)-DFe*DFe_Vbi_ei)/(1.0+DFe)/(1.0+DFe));
8968 #endif
8969 DFdvj_dv=(DFe/(1.0+DFe));
8970 #endif
8971 }
8972 else
8973 {
8974 #if defined(_DYNAMIC)
8975 #if defined(_DERIVATE)
8976 DFv_j_Vsi_ci=0.0;
8977 DFv_j_Vb_ci=1.0;
8978 DFv_j_Vbp_ci=0.0;
8979 DFv_j_Vbp_ei=0.0;
8980 DFv_j_Vbi_ci=0.0;
8981 DFv_j_Vtnode_GND=0.0;
8982 DFv_j_Vbi_ei=0.0;
8983 #endif
8984 DFv_j=BP(b,ci);
8985 #endif
8986 #if defined(_DYNAMIC)
8987 #if defined(_DERIVATE)
8988 DFdvj_dv_Vsi_ci=0.0;
8989 DFdvj_dv_Vb_ci=0.0;
8990 DFdvj_dv_Vbp_ci=0.0;
8991 DFdvj_dv_Vbp_ei=0.0;
8992 DFdvj_dv_Vbi_ci=0.0;
8993 DFdvj_dv_Vtnode_GND=0.0;
8994 DFdvj_dv_Vbi_ei=0.0;
8995 #endif
8996 DFdvj_dv=1;
8997 #endif
8998 }
8999 #endif /* if (...) */
9000 #if defined(_DYNAMIC)
9001 {
9002 double m00_logE(d00_logE0,(1.0-(DFv_j/vdcx_t)))
9003 #if defined(_DERIVATE)
9004 double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vdcx_t)))
9005 #endif
9006 #if defined(_DERIVATE)
9007 DFb_Vsi_ci=0.0;
9008 DFb_Vb_ci=(-(DFv_j_Vb_ci/vdcx_t))*d10_logE0;
9009 DFb_Vbp_ci=(-(DFv_j_Vbp_ci/vdcx_t))*d10_logE0;
9010 DFb_Vbp_ei=(-(DFv_j_Vbp_ei/vdcx_t))*d10_logE0;
9011 DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vdcx_t))*d10_logE0;
9012 DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vdcx_t-DFv_j*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
9013 DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vdcx_t))*d10_logE0;
9014 #endif
9015 DFb=d00_logE0;
9016 }
9017 #endif
9018 #if defined(_DYNAMIC)
9019 {
9020 double m00_exp(d00_exp0,((-zcx)*DFb))
9021 #if defined(_DERIVATE)
9022 #define d10_exp0 d00_exp0
9023 #endif
9024 #if defined(_DERIVATE)
9025 DFC_j1_Vsi_ci=0.0;
9026 DFC_j1_Vb_ci=(((cjcx01_t*((-zcx)*DFb_Vb_ci)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vb_ci));
9027 DFC_j1_Vbp_ci=(((cjcx01_t*((-zcx)*DFb_Vbp_ci)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vbp_ci));
9028 DFC_j1_Vbp_ei=(((cjcx01_t*((-zcx)*DFb_Vbp_ei)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vbp_ei));
9029 DFC_j1_Vbi_ci=(((cjcx01_t*((-zcx)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vbi_ci));
9030 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));
9031 DFC_j1_Vbi_ei=(((cjcx01_t*((-zcx)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjcx01_t*d00_exp0)*DFdvj_dv_Vbi_ei));
9032 #endif
9033 DFC_j1=((cjcx01_t*d00_exp0)*DFdvj_dv);
9034 }
9035 #endif
9036 #if defined(_DYNAMIC)
9037 cjcx0_t_i=(DFC_j1+(DFC_max*(1.0-DFdvj_dv)));
9038 #endif
9039 #if defined(_DYNAMIC)
9040 {
9041 double m00_exp(d00_exp0,(DFb*(1.0-zcx)))
9042 #if defined(_DERIVATE)
9043 #define d10_exp0 d00_exp0
9044 #endif
9045 #if defined(_DERIVATE)
9046 DFQ_j_Vsi_ci=0.0;
9047 DFQ_j_Vb_ci=(((cjcx01_t*vdcx_t)*(-DFb_Vb_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
9048 DFQ_j_Vbp_ci=(((cjcx01_t*vdcx_t)*(-DFb_Vbp_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
9049 DFQ_j_Vbp_ei=(((cjcx01_t*vdcx_t)*(-DFb_Vbp_ei*(1.0-zcx)*d10_exp0))/(1.0-zcx));
9050 DFQ_j_Vbi_ci=(((cjcx01_t*vdcx_t)*(-DFb_Vbi_ci*(1.0-zcx)*d10_exp0))/(1.0-zcx));
9051 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));
9052 DFQ_j_Vbi_ei=(((cjcx01_t*vdcx_t)*(-DFb_Vbi_ei*(1.0-zcx)*d10_exp0))/(1.0-zcx));
9053 #endif
9054 DFQ_j=(((cjcx01_t*vdcx_t)*(1.0-d00_exp0))/(1.0-zcx));
9055 }
9056 #endif
9057 #if defined(_DYNAMIC)
9058 #if defined(_DERIVATE)
9059 qjcx0_t_i_Vbp_ei=(DFQ_j_Vbp_ei+(DFC_max*(-DFv_j_Vbp_ei)));
9060 qjcx0_t_i_Vbi_ei=(DFQ_j_Vbi_ei+(DFC_max*(-DFv_j_Vbi_ei)));
9061 qjcx0_t_i_Vb_ci=(DFQ_j_Vb_ci+(DFC_max*(1.0-DFv_j_Vb_ci)));
9062 qjcx0_t_i_Vbp_ci=(DFQ_j_Vbp_ci+(DFC_max*(-DFv_j_Vbp_ci)));
9063 qjcx0_t_i_Vtnode_GND=(DFQ_j_Vtnode_GND+((DFC_max_Vtnode_GND*(BP(b,ci)-DFv_j))+(DFC_max*(-DFv_j_Vtnode_GND))));
9064 qjcx0_t_i_Vbi_ci=(DFQ_j_Vbi_ci+(DFC_max*(-DFv_j_Vbi_ci)));
9065 #endif
9066 qjcx0_t_i=(DFQ_j+(DFC_max*(BP(b,ci)-DFv_j)));
9067 #endif
9068 }
9069 else
9070 {
9071 #if defined(_DYNAMIC)
9072 cjcx0_t_i=0.0;
9073 #endif
9074 #if defined(_DYNAMIC)
9075 #if defined(_DERIVATE)
9076 qjcx0_t_i_Vbp_ei=0.0;
9077 qjcx0_t_i_Vbi_ei=0.0;
9078 qjcx0_t_i_Vb_ci=0.0;
9079 qjcx0_t_i_Vbp_ci=0.0;
9080 qjcx0_t_i_Vtnode_GND=0.0;
9081 qjcx0_t_i_Vbi_ci=0.0;
9082 #endif
9083 qjcx0_t_i=0.0;
9084 #endif
9085 }
9086 #endif /* if (...) */
9087 }
9088 #endif /* if (...) */
9089 #ifdef _DYNAMIC
9090 if
9091 ((vpts_t<1.0e2))
9092 {
9093 #ifdef _DYNAMIC
9094 if
9095 ((cjs0_t>0.0))
9096 {
9097 #if defined(_DYNAMIC)
9098 Dz_r=(zs/4.0);
9099 #endif
9100 #if defined(_DYNAMIC)
9101 #if defined(_DERIVATE)
9102 Dv_p_Vtnode_GND=(vpts_t_Vtnode_GND-vds_t_Vtnode_GND);
9103 #endif
9104 Dv_p=(vpts_t-vds_t);
9105 #endif
9106 #if defined(_DYNAMIC)
9107 {
9108 double m00_logE(d00_logE0,2.4)
9109 double m00_exp(d00_exp1,((-d00_logE0)/zs))
9110 #if defined(_DERIVATE)
9111 DV_f_Vtnode_GND=vds_t_Vtnode_GND*(1.0-d00_exp1);
9112 #endif
9113 DV_f=(vds_t*(1.0-d00_exp1));
9114 }
9115 #endif
9116 #if defined(_DYNAMIC)
9117 #if defined(_DERIVATE)
9118 DC_max_Vtnode_GND=(2.4*cjs0_t_Vtnode_GND);
9119 #endif
9120 DC_max=(2.4*cjs0_t);
9121 #endif
9122 #if defined(_DYNAMIC)
9123 {
9124 double m00_logE(d00_logE0,(vpts_t/vds_t))
9125 double m00_exp(d00_exp1,(d00_logE0*(Dz_r-zs)))
9126 #if defined(_DERIVATE)
9127 double m10_logE(d10_logE0,d00_logE0,(vpts_t/vds_t))
9128 #define d10_exp1 d00_exp1
9129 #endif
9130 #if defined(_DERIVATE)
9131 DC_c_Vtnode_GND=((cjs0_t_Vtnode_GND*d00_exp1)+(cjs0_t*((vpts_t_Vtnode_GND*vds_t-vpts_t*vds_t_Vtnode_GND)/vds_t/vds_t)*d10_logE0*(Dz_r-zs)*d10_exp1));
9132 #endif
9133 DC_c=(cjs0_t*d00_exp1);
9134 }
9135 #endif
9136 #if defined(_DYNAMIC)
9137 #if defined(_DERIVATE)
9138 Da_Vtnode_GND=VT_Vtnode_GND;
9139 #endif
9140 Da=VT;
9141 #endif
9142 #if defined(_DYNAMIC)
9143 #if defined(_DERIVATE)
9144 Dv_e_Vsi_ci=((-1.0)/Da);
9145 Dv_e_Vb_ci=0.0;
9146 Dv_e_Vbp_ci=0.0;
9147 Dv_e_Vtnode_GND=((DV_f_Vtnode_GND*Da-(DV_f-BP(si,ci))*Da_Vtnode_GND)/Da/Da);
9148 Dv_e_Vbi_ci=0.0;
9149 #endif
9150 Dv_e=((DV_f-BP(si,ci))/Da);
9151 #endif
9152 #ifdef _DYNAMIC
9153 if
9154 ((Dv_e<80.0))
9155 {
9156 #if defined(_DYNAMIC)
9157 {
9158 double m00_exp(d00_exp0,Dv_e)
9159 #if defined(_DERIVATE)
9160 #define d10_exp0 d00_exp0
9161 #endif
9162 #if defined(_DERIVATE)
9163 De_Vsi_ci=Dv_e_Vsi_ci*d10_exp0;
9164 De_Vb_ci=Dv_e_Vb_ci*d10_exp0;
9165 De_Vbp_ci=Dv_e_Vbp_ci*d10_exp0;
9166 De_Vtnode_GND=Dv_e_Vtnode_GND*d10_exp0;
9167 De_Vbi_ci=Dv_e_Vbi_ci*d10_exp0;
9168 #endif
9169 De=d00_exp0;
9170 }
9171 #endif
9172 #if defined(_DYNAMIC)
9173 #if defined(_DERIVATE)
9174 De_1_Vsi_ci=((De_Vsi_ci*(1.0+De)-De*De_Vsi_ci)/(1.0+De)/(1.0+De));
9175 De_1_Vb_ci=((De_Vb_ci*(1.0+De)-De*De_Vb_ci)/(1.0+De)/(1.0+De));
9176 De_1_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
9177 De_1_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
9178 De_1_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
9179 #endif
9180 De_1=(De/(1.0+De));
9181 #endif
9182 #if defined(_DYNAMIC)
9183 {
9184 double m00_logE(d00_logE0,(1.0+De))
9185 #if defined(_DERIVATE)
9186 double m10_logE(d10_logE0,d00_logE0,(1.0+De))
9187 #endif
9188 #if defined(_DERIVATE)
9189 Dv_j1_Vsi_ci=(-(Da*De_Vsi_ci*d10_logE0));
9190 Dv_j1_Vb_ci=(-(Da*De_Vb_ci*d10_logE0));
9191 Dv_j1_Vbp_ci=(-(Da*De_Vbp_ci*d10_logE0));
9192 Dv_j1_Vtnode_GND=(DV_f_Vtnode_GND-((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
9193 Dv_j1_Vbi_ci=(-(Da*De_Vbi_ci*d10_logE0));
9194 #endif
9195 Dv_j1=(DV_f-(Da*d00_logE0));
9196 }
9197 #endif
9198 }
9199 else
9200 {
9201 #if defined(_DYNAMIC)
9202 #if defined(_DERIVATE)
9203 De_1_Vsi_ci=0.0;
9204 De_1_Vb_ci=0.0;
9205 De_1_Vbp_ci=0.0;
9206 De_1_Vtnode_GND=0.0;
9207 De_1_Vbi_ci=0.0;
9208 #endif
9209 De_1=1.0;
9210 #endif
9211 #if defined(_DYNAMIC)
9212 #if defined(_DERIVATE)
9213 Dv_j1_Vsi_ci=1.0;
9214 Dv_j1_Vb_ci=0.0;
9215 Dv_j1_Vbp_ci=0.0;
9216 Dv_j1_Vtnode_GND=0.0;
9217 Dv_j1_Vbi_ci=0.0;
9218 #endif
9219 Dv_j1=BP(si,ci);
9220 #endif
9221 }
9222 #endif /* if (...) */
9223 #if defined(_DYNAMIC)
9224 #if defined(_DERIVATE)
9225 Da_Vtnode_GND=((0.1*Dv_p_Vtnode_GND)+(4.0*VT_Vtnode_GND));
9226 #endif
9227 Da=((0.1*Dv_p)+(4.0*VT));
9228 #endif
9229 #if defined(_DYNAMIC)
9230 #if defined(_DERIVATE)
9231 Dv_r_Vsi_ci=(Dv_j1_Vsi_ci/Da);
9232 Dv_r_Vb_ci=(Dv_j1_Vb_ci/Da);
9233 Dv_r_Vbp_ci=(Dv_j1_Vbp_ci/Da);
9234 Dv_r_Vtnode_GND=(((Dv_p_Vtnode_GND+Dv_j1_Vtnode_GND)*Da-(Dv_p+Dv_j1)*Da_Vtnode_GND)/Da/Da);
9235 Dv_r_Vbi_ci=(Dv_j1_Vbi_ci/Da);
9236 #endif
9237 Dv_r=((Dv_p+Dv_j1)/Da);
9238 #endif
9239 #ifdef _DYNAMIC
9240 if
9241 ((Dv_r<80.0))
9242 {
9243 #if defined(_DYNAMIC)
9244 {
9245 double m00_exp(d00_exp0,Dv_r)
9246 #if defined(_DERIVATE)
9247 #define d10_exp0 d00_exp0
9248 #endif
9249 #if defined(_DERIVATE)
9250 De_Vsi_ci=Dv_r_Vsi_ci*d10_exp0;
9251 De_Vb_ci=Dv_r_Vb_ci*d10_exp0;
9252 De_Vbp_ci=Dv_r_Vbp_ci*d10_exp0;
9253 De_Vtnode_GND=Dv_r_Vtnode_GND*d10_exp0;
9254 De_Vbi_ci=Dv_r_Vbi_ci*d10_exp0;
9255 #endif
9256 De=d00_exp0;
9257 }
9258 #endif
9259 #if defined(_DYNAMIC)
9260 #if defined(_DERIVATE)
9261 De_2_Vsi_ci=((De_Vsi_ci*(1.0+De)-De*De_Vsi_ci)/(1.0+De)/(1.0+De));
9262 De_2_Vb_ci=((De_Vb_ci*(1.0+De)-De*De_Vb_ci)/(1.0+De)/(1.0+De));
9263 De_2_Vbp_ci=((De_Vbp_ci*(1.0+De)-De*De_Vbp_ci)/(1.0+De)/(1.0+De));
9264 De_2_Vtnode_GND=((De_Vtnode_GND*(1.0+De)-De*De_Vtnode_GND)/(1.0+De)/(1.0+De));
9265 De_2_Vbi_ci=((De_Vbi_ci*(1.0+De)-De*De_Vbi_ci)/(1.0+De)/(1.0+De));
9266 #endif
9267 De_2=(De/(1.0+De));
9268 #endif
9269 #if defined(_DYNAMIC)
9270 {
9271 double m00_logE(d00_logE0,(1.0+De))
9272 #if defined(_DERIVATE)
9273 double m10_logE(d10_logE0,d00_logE0,(1.0+De))
9274 #endif
9275 #if defined(_DERIVATE)
9276 Dv_j2_Vsi_ci=(Da*De_Vsi_ci*d10_logE0);
9277 Dv_j2_Vb_ci=(Da*De_Vb_ci*d10_logE0);
9278 Dv_j2_Vbp_ci=(Da*De_Vbp_ci*d10_logE0);
9279 Dv_j2_Vtnode_GND=((-Dv_p_Vtnode_GND)+((Da_Vtnode_GND*d00_logE0)+(Da*De_Vtnode_GND*d10_logE0)));
9280 Dv_j2_Vbi_ci=(Da*De_Vbi_ci*d10_logE0);
9281 #endif
9282 Dv_j2=((-Dv_p)+(Da*d00_logE0));
9283 }
9284 #endif
9285 }
9286 else
9287 {
9288 #if defined(_DYNAMIC)
9289 #if defined(_DERIVATE)
9290 De_2_Vsi_ci=0.0;
9291 De_2_Vb_ci=0.0;
9292 De_2_Vbp_ci=0.0;
9293 De_2_Vtnode_GND=0.0;
9294 De_2_Vbi_ci=0.0;
9295 #endif
9296 De_2=1.0;
9297 #endif
9298 #if defined(_DYNAMIC)
9299 #if defined(_DERIVATE)
9300 Dv_j2_Vsi_ci=Dv_j1_Vsi_ci;
9301 Dv_j2_Vb_ci=Dv_j1_Vb_ci;
9302 Dv_j2_Vbp_ci=Dv_j1_Vbp_ci;
9303 Dv_j2_Vtnode_GND=Dv_j1_Vtnode_GND;
9304 Dv_j2_Vbi_ci=Dv_j1_Vbi_ci;
9305 #endif
9306 Dv_j2=Dv_j1;
9307 #endif
9308 }
9309 #endif /* if (...) */
9310 #if defined(_DYNAMIC)
9311 #if defined(_DERIVATE)
9312 Dv_j4_Vsi_ci=(1.0-Dv_j1_Vsi_ci);
9313 Dv_j4_Vb_ci=(-Dv_j1_Vb_ci);
9314 Dv_j4_Vbp_ci=(-Dv_j1_Vbp_ci);
9315 Dv_j4_Vbi_ci=(-Dv_j1_Vbi_ci);
9316 Dv_j4_Vtnode_GND=(-Dv_j1_Vtnode_GND);
9317 #endif
9318 Dv_j4=(BP(si,ci)-Dv_j1);
9319 #endif
9320 #if defined(_DYNAMIC)
9321 {
9322 double m00_logE(d00_logE0,(1.0-(Dv_j1/vds_t)))
9323 #if defined(_DERIVATE)
9324 double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j1/vds_t)))
9325 #endif
9326 #if defined(_DERIVATE)
9327 DCln1_Vsi_ci=(-(Dv_j1_Vsi_ci/vds_t))*d10_logE0;
9328 DCln1_Vb_ci=(-(Dv_j1_Vb_ci/vds_t))*d10_logE0;
9329 DCln1_Vbp_ci=(-(Dv_j1_Vbp_ci/vds_t))*d10_logE0;
9330 DCln1_Vtnode_GND=(-((Dv_j1_Vtnode_GND*vds_t-Dv_j1*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0;
9331 DCln1_Vbi_ci=(-(Dv_j1_Vbi_ci/vds_t))*d10_logE0;
9332 #endif
9333 DCln1=d00_logE0;
9334 }
9335 #endif
9336 #if defined(_DYNAMIC)
9337 {
9338 double m00_logE(d00_logE0,(1.0-(Dv_j2/vds_t)))
9339 #if defined(_DERIVATE)
9340 double m10_logE(d10_logE0,d00_logE0,(1.0-(Dv_j2/vds_t)))
9341 #endif
9342 #if defined(_DERIVATE)
9343 DCln2_Vsi_ci=(-(Dv_j2_Vsi_ci/vds_t))*d10_logE0;
9344 DCln2_Vb_ci=(-(Dv_j2_Vb_ci/vds_t))*d10_logE0;
9345 DCln2_Vbp_ci=(-(Dv_j2_Vbp_ci/vds_t))*d10_logE0;
9346 DCln2_Vtnode_GND=(-((Dv_j2_Vtnode_GND*vds_t-Dv_j2*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0;
9347 DCln2_Vbi_ci=(-(Dv_j2_Vbi_ci/vds_t))*d10_logE0;
9348 #endif
9349 DCln2=d00_logE0;
9350 }
9351 #endif
9352 #if defined(_DYNAMIC)
9353 Dz1=(1.0-zs);
9354 #endif
9355 #if defined(_DYNAMIC)
9356 Dzr1=(1.0-Dz_r);
9357 #endif
9358 #if defined(_DYNAMIC)
9359 {
9360 double m00_exp(d00_exp0,(DCln2*(-zs)))
9361 #if defined(_DERIVATE)
9362 #define d10_exp0 d00_exp0
9363 #endif
9364 #if defined(_DERIVATE)
9365 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));
9366 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));
9367 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));
9368 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));
9369 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));
9370 #endif
9371 DC_j1=(((cjs0_t*d00_exp0)*De_1)*De_2);
9372 }
9373 #endif
9374 #if defined(_DYNAMIC)
9375 {
9376 double m00_exp(d00_exp0,(DCln1*(-Dz_r)))
9377 #if defined(_DERIVATE)
9378 #define d10_exp0 d00_exp0
9379 #endif
9380 #if defined(_DERIVATE)
9381 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)));
9382 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)));
9383 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)));
9384 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)));
9385 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)));
9386 #endif
9387 DC_j2=((DC_c*d00_exp0)*(1.0-De_2));
9388 }
9389 #endif
9390 #if defined(_DYNAMIC)
9391 #if defined(_DERIVATE)
9392 DC_j3_Vsi_ci=(DC_max*(-De_1_Vsi_ci));
9393 DC_j3_Vb_ci=(DC_max*(-De_1_Vb_ci));
9394 DC_j3_Vbp_ci=(DC_max*(-De_1_Vbp_ci));
9395 DC_j3_Vtnode_GND=((DC_max_Vtnode_GND*(1.0-De_1))+(DC_max*(-De_1_Vtnode_GND)));
9396 DC_j3_Vbi_ci=(DC_max*(-De_1_Vbi_ci));
9397 #endif
9398 DC_j3=(DC_max*(1.0-De_1));
9399 #endif
9400 #if defined(_DYNAMIC)
9401 Cjs=((DC_j1+DC_j2)+DC_j3);
9402 #endif
9403 #if defined(_DYNAMIC)
9404 {
9405 double m00_exp(d00_exp0,(DCln2*Dz1))
9406 #if defined(_DERIVATE)
9407 #define d10_exp0 d00_exp0
9408 #endif
9409 #if defined(_DERIVATE)
9410 DQ_j1_Vsi_ci=((cjs0_t*(-DCln2_Vsi_ci*Dz1*d10_exp0))/Dz1);
9411 DQ_j1_Vb_ci=((cjs0_t*(-DCln2_Vb_ci*Dz1*d10_exp0))/Dz1);
9412 DQ_j1_Vbp_ci=((cjs0_t*(-DCln2_Vbp_ci*Dz1*d10_exp0))/Dz1);
9413 DQ_j1_Vtnode_GND=(((cjs0_t_Vtnode_GND*(1.0-d00_exp0))+(cjs0_t*(-DCln2_Vtnode_GND*Dz1*d10_exp0)))/Dz1);
9414 DQ_j1_Vbi_ci=((cjs0_t*(-DCln2_Vbi_ci*Dz1*d10_exp0))/Dz1);
9415 #endif
9416 DQ_j1=((cjs0_t*(1.0-d00_exp0))/Dz1);
9417 }
9418 #endif
9419 #if defined(_DYNAMIC)
9420 {
9421 double m00_exp(d00_exp0,(DCln1*Dzr1))
9422 #if defined(_DERIVATE)
9423 #define d10_exp0 d00_exp0
9424 #endif
9425 #if defined(_DERIVATE)
9426 DQ_j2_Vsi_ci=((DC_c*(-DCln1_Vsi_ci*Dzr1*d10_exp0))/Dzr1);
9427 DQ_j2_Vb_ci=((DC_c*(-DCln1_Vb_ci*Dzr1*d10_exp0))/Dzr1);
9428 DQ_j2_Vbp_ci=((DC_c*(-DCln1_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
9429 DQ_j2_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln1_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
9430 DQ_j2_Vbi_ci=((DC_c*(-DCln1_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
9431 #endif
9432 DQ_j2=((DC_c*(1.0-d00_exp0))/Dzr1);
9433 }
9434 #endif
9435 #if defined(_DYNAMIC)
9436 {
9437 double m00_exp(d00_exp0,(DCln2*Dzr1))
9438 #if defined(_DERIVATE)
9439 #define d10_exp0 d00_exp0
9440 #endif
9441 #if defined(_DERIVATE)
9442 DQ_j3_Vsi_ci=((DC_c*(-DCln2_Vsi_ci*Dzr1*d10_exp0))/Dzr1);
9443 DQ_j3_Vb_ci=((DC_c*(-DCln2_Vb_ci*Dzr1*d10_exp0))/Dzr1);
9444 DQ_j3_Vbp_ci=((DC_c*(-DCln2_Vbp_ci*Dzr1*d10_exp0))/Dzr1);
9445 DQ_j3_Vtnode_GND=(((DC_c_Vtnode_GND*(1.0-d00_exp0))+(DC_c*(-DCln2_Vtnode_GND*Dzr1*d10_exp0)))/Dzr1);
9446 DQ_j3_Vbi_ci=((DC_c*(-DCln2_Vbi_ci*Dzr1*d10_exp0))/Dzr1);
9447 #endif
9448 DQ_j3=((DC_c*(1.0-d00_exp0))/Dzr1);
9449 }
9450 #endif
9451 #if defined(_DYNAMIC)
9452 #if defined(_DERIVATE)
9453 Qjs_Vbp_ei=0.0;
9454 Qjs_Vbi_ei=0.0;
9455 Qjs_Vsi_ci=(((DQ_j1_Vsi_ci+DQ_j2_Vsi_ci)-DQ_j3_Vsi_ci)*vds_t+(DC_max*Dv_j4_Vsi_ci));
9456 Qjs_Vb_ci=(((DQ_j1_Vb_ci+DQ_j2_Vb_ci)-DQ_j3_Vb_ci)*vds_t+(DC_max*Dv_j4_Vb_ci));
9457 Qjs_Vbp_ci=(((DQ_j1_Vbp_ci+DQ_j2_Vbp_ci)-DQ_j3_Vbp_ci)*vds_t+(DC_max*Dv_j4_Vbp_ci));
9458 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)));
9459 Qjs_Vbi_ci=(((DQ_j1_Vbi_ci+DQ_j2_Vbi_ci)-DQ_j3_Vbi_ci)*vds_t+(DC_max*Dv_j4_Vbi_ci));
9460 #endif
9461 Qjs=((((DQ_j1+DQ_j2)-DQ_j3)*vds_t)+(DC_max*Dv_j4));
9462 #endif
9463 }
9464 else
9465 {
9466 #if defined(_DYNAMIC)
9467 Cjs=0.0;
9468 #endif
9469 #if defined(_DYNAMIC)
9470 #if defined(_DERIVATE)
9471 Qjs_Vbp_ei=0.0;
9472 Qjs_Vbi_ei=0.0;
9473 Qjs_Vsi_ci=0.0;
9474 Qjs_Vb_ci=0.0;
9475 Qjs_Vbp_ci=0.0;
9476 Qjs_Vtnode_GND=0.0;
9477 Qjs_Vbi_ci=0.0;
9478 #endif
9479 Qjs=0.0;
9480 #endif
9481 }
9482 #endif /* if (...) */
9483 }
9484 else
9485 {
9486 #ifdef _DYNAMIC
9487 if
9488 ((cjs0_t>0.0))
9489 {
9490 #if defined(_DYNAMIC)
9491 {
9492 double m00_logE(d00_logE0,2.4)
9493 double m00_exp(d00_exp1,((-d00_logE0)/zs))
9494 #if defined(_DERIVATE)
9495 DFV_f_Vtnode_GND=vds_t_Vtnode_GND*(1.0-d00_exp1);
9496 #endif
9497 DFV_f=(vds_t*(1.0-d00_exp1));
9498 }
9499 #endif
9500 #if defined(_DYNAMIC)
9501 #if defined(_DERIVATE)
9502 DFC_max_Vtnode_GND=(2.4*cjs0_t_Vtnode_GND);
9503 #endif
9504 DFC_max=(2.4*cjs0_t);
9505 #endif
9506 #if defined(_DYNAMIC)
9507 #if defined(_DERIVATE)
9508 DFv_e_Vsi_ci=((-1.0)/VT);
9509 DFv_e_Vb_ci=0.0;
9510 DFv_e_Vbp_ci=0.0;
9511 DFv_e_Vbp_ei=0.0;
9512 DFv_e_Vbi_ci=0.0;
9513 DFv_e_Vtnode_GND=((DFV_f_Vtnode_GND*VT-(DFV_f-BP(si,ci))*VT_Vtnode_GND)/VT/VT);
9514 DFv_e_Vbi_ei=0.0;
9515 #endif
9516 DFv_e=((DFV_f-BP(si,ci))/VT);
9517 #endif
9518 #ifdef _DYNAMIC
9519 if
9520 ((DFv_e<80.0))
9521 {
9522 #if defined(_DYNAMIC)
9523 {
9524 double m00_exp(d00_exp0,DFv_e)
9525 #if defined(_DERIVATE)
9526 #define d10_exp0 d00_exp0
9527 #endif
9528 #if defined(_DERIVATE)
9529 DFe_Vsi_ci=DFv_e_Vsi_ci*d10_exp0;
9530 DFe_Vb_ci=DFv_e_Vb_ci*d10_exp0;
9531 DFe_Vbp_ci=DFv_e_Vbp_ci*d10_exp0;
9532 DFe_Vbp_ei=DFv_e_Vbp_ei*d10_exp0;
9533 DFe_Vbi_ci=DFv_e_Vbi_ci*d10_exp0;
9534 DFe_Vtnode_GND=DFv_e_Vtnode_GND*d10_exp0;
9535 DFe_Vbi_ei=DFv_e_Vbi_ei*d10_exp0;
9536 #endif
9537 DFe=d00_exp0;
9538 }
9539 #endif
9540 #if defined(_DYNAMIC)
9541 {
9542 double m00_logE(d00_logE0,(1.0+DFe))
9543 #if defined(_DERIVATE)
9544 double m10_logE(d10_logE0,d00_logE0,(1.0+DFe))
9545 #endif
9546 #if defined(_DERIVATE)
9547 DFv_j_Vsi_ci=(-(VT*DFe_Vsi_ci*d10_logE0));
9548 DFv_j_Vb_ci=(-(VT*DFe_Vb_ci*d10_logE0));
9549 DFv_j_Vbp_ci=(-(VT*DFe_Vbp_ci*d10_logE0));
9550 DFv_j_Vbp_ei=(-(VT*DFe_Vbp_ei*d10_logE0));
9551 DFv_j_Vbi_ci=(-(VT*DFe_Vbi_ci*d10_logE0));
9552 DFv_j_Vtnode_GND=(DFV_f_Vtnode_GND-((VT_Vtnode_GND*d00_logE0)+(VT*DFe_Vtnode_GND*d10_logE0)));
9553 DFv_j_Vbi_ei=(-(VT*DFe_Vbi_ei*d10_logE0));
9554 #endif
9555 DFv_j=(DFV_f-(VT*d00_logE0));
9556 }
9557 #endif
9558 #if defined(_DYNAMIC)
9559 #if defined(_DERIVATE)
9560 DFdvj_dv_Vsi_ci=((DFe_Vsi_ci*(1.0+DFe)-DFe*DFe_Vsi_ci)/(1.0+DFe)/(1.0+DFe));
9561 DFdvj_dv_Vb_ci=((DFe_Vb_ci*(1.0+DFe)-DFe*DFe_Vb_ci)/(1.0+DFe)/(1.0+DFe));
9562 DFdvj_dv_Vbp_ci=((DFe_Vbp_ci*(1.0+DFe)-DFe*DFe_Vbp_ci)/(1.0+DFe)/(1.0+DFe));
9563 DFdvj_dv_Vbp_ei=((DFe_Vbp_ei*(1.0+DFe)-DFe*DFe_Vbp_ei)/(1.0+DFe)/(1.0+DFe));
9564 DFdvj_dv_Vbi_ci=((DFe_Vbi_ci*(1.0+DFe)-DFe*DFe_Vbi_ci)/(1.0+DFe)/(1.0+DFe));
9565 DFdvj_dv_Vtnode_GND=((DFe_Vtnode_GND*(1.0+DFe)-DFe*DFe_Vtnode_GND)/(1.0+DFe)/(1.0+DFe));
9566 DFdvj_dv_Vbi_ei=((DFe_Vbi_ei*(1.0+DFe)-DFe*DFe_Vbi_ei)/(1.0+DFe)/(1.0+DFe));
9567 #endif
9568 DFdvj_dv=(DFe/(1.0+DFe));
9569 #endif
9570 }
9571 else
9572 {
9573 #if defined(_DYNAMIC)
9574 #if defined(_DERIVATE)
9575 DFv_j_Vsi_ci=1.0;
9576 DFv_j_Vb_ci=0.0;
9577 DFv_j_Vbp_ci=0.0;
9578 DFv_j_Vbp_ei=0.0;
9579 DFv_j_Vbi_ci=0.0;
9580 DFv_j_Vtnode_GND=0.0;
9581 DFv_j_Vbi_ei=0.0;
9582 #endif
9583 DFv_j=BP(si,ci);
9584 #endif
9585 #if defined(_DYNAMIC)
9586 #if defined(_DERIVATE)
9587 DFdvj_dv_Vsi_ci=0.0;
9588 DFdvj_dv_Vb_ci=0.0;
9589 DFdvj_dv_Vbp_ci=0.0;
9590 DFdvj_dv_Vbp_ei=0.0;
9591 DFdvj_dv_Vbi_ci=0.0;
9592 DFdvj_dv_Vtnode_GND=0.0;
9593 DFdvj_dv_Vbi_ei=0.0;
9594 #endif
9595 DFdvj_dv=1;
9596 #endif
9597 }
9598 #endif /* if (...) */
9599 #if defined(_DYNAMIC)
9600 {
9601 double m00_logE(d00_logE0,(1.0-(DFv_j/vds_t)))
9602 #if defined(_DERIVATE)
9603 double m10_logE(d10_logE0,d00_logE0,(1.0-(DFv_j/vds_t)))
9604 #endif
9605 #if defined(_DERIVATE)
9606 DFb_Vsi_ci=(-(DFv_j_Vsi_ci/vds_t))*d10_logE0;
9607 DFb_Vb_ci=(-(DFv_j_Vb_ci/vds_t))*d10_logE0;
9608 DFb_Vbp_ci=(-(DFv_j_Vbp_ci/vds_t))*d10_logE0;
9609 DFb_Vbp_ei=(-(DFv_j_Vbp_ei/vds_t))*d10_logE0;
9610 DFb_Vbi_ci=(-(DFv_j_Vbi_ci/vds_t))*d10_logE0;
9611 DFb_Vtnode_GND=(-((DFv_j_Vtnode_GND*vds_t-DFv_j*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0;
9612 DFb_Vbi_ei=(-(DFv_j_Vbi_ei/vds_t))*d10_logE0;
9613 #endif
9614 DFb=d00_logE0;
9615 }
9616 #endif
9617 #if defined(_DYNAMIC)
9618 {
9619 double m00_exp(d00_exp0,((-zs)*DFb))
9620 #if defined(_DERIVATE)
9621 #define d10_exp0 d00_exp0
9622 #endif
9623 #if defined(_DERIVATE)
9624 DFC_j1_Vsi_ci=(((cjs0_t*((-zs)*DFb_Vsi_ci)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vsi_ci));
9625 DFC_j1_Vb_ci=(((cjs0_t*((-zs)*DFb_Vb_ci)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vb_ci));
9626 DFC_j1_Vbp_ci=(((cjs0_t*((-zs)*DFb_Vbp_ci)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vbp_ci));
9627 DFC_j1_Vbp_ei=(((cjs0_t*((-zs)*DFb_Vbp_ei)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vbp_ei));
9628 DFC_j1_Vbi_ci=(((cjs0_t*((-zs)*DFb_Vbi_ci)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vbi_ci));
9629 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));
9630 DFC_j1_Vbi_ei=(((cjs0_t*((-zs)*DFb_Vbi_ei)*d10_exp0)*DFdvj_dv)+((cjs0_t*d00_exp0)*DFdvj_dv_Vbi_ei));
9631 #endif
9632 DFC_j1=((cjs0_t*d00_exp0)*DFdvj_dv);
9633 }
9634 #endif
9635 #if defined(_DYNAMIC)
9636 Cjs=(DFC_j1+(DFC_max*(1.0-DFdvj_dv)));
9637 #endif
9638 #if defined(_DYNAMIC)
9639 {
9640 double m00_exp(d00_exp0,(DFb*(1.0-zs)))
9641 #if defined(_DERIVATE)
9642 #define d10_exp0 d00_exp0
9643 #endif
9644 #if defined(_DERIVATE)
9645 DFQ_j_Vsi_ci=(((cjs0_t*vds_t)*(-DFb_Vsi_ci*(1.0-zs)*d10_exp0))/(1.0-zs));
9646 DFQ_j_Vb_ci=(((cjs0_t*vds_t)*(-DFb_Vb_ci*(1.0-zs)*d10_exp0))/(1.0-zs));
9647 DFQ_j_Vbp_ci=(((cjs0_t*vds_t)*(-DFb_Vbp_ci*(1.0-zs)*d10_exp0))/(1.0-zs));
9648 DFQ_j_Vbp_ei=(((cjs0_t*vds_t)*(-DFb_Vbp_ei*(1.0-zs)*d10_exp0))/(1.0-zs));
9649 DFQ_j_Vbi_ci=(((cjs0_t*vds_t)*(-DFb_Vbi_ci*(1.0-zs)*d10_exp0))/(1.0-zs));
9650 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));
9651 DFQ_j_Vbi_ei=(((cjs0_t*vds_t)*(-DFb_Vbi_ei*(1.0-zs)*d10_exp0))/(1.0-zs));
9652 #endif
9653 DFQ_j=(((cjs0_t*vds_t)*(1.0-d00_exp0))/(1.0-zs));
9654 }
9655 #endif
9656 #if defined(_DYNAMIC)
9657 #if defined(_DERIVATE)
9658 Qjs_Vbp_ei=(DFQ_j_Vbp_ei+(DFC_max*(-DFv_j_Vbp_ei)));
9659 Qjs_Vbi_ei=(DFQ_j_Vbi_ei+(DFC_max*(-DFv_j_Vbi_ei)));
9660 Qjs_Vsi_ci=(DFQ_j_Vsi_ci+(DFC_max*(1.0-DFv_j_Vsi_ci)));
9661 Qjs_Vb_ci=(DFQ_j_Vb_ci+(DFC_max*(-DFv_j_Vb_ci)));
9662 Qjs_Vbp_ci=(DFQ_j_Vbp_ci+(DFC_max*(-DFv_j_Vbp_ci)));
9663 Qjs_Vtnode_GND=(DFQ_j_Vtnode_GND+((DFC_max_Vtnode_GND*(BP(si,ci)-DFv_j))+(DFC_max*(-DFv_j_Vtnode_GND))));
9664 Qjs_Vbi_ci=(DFQ_j_Vbi_ci+(DFC_max*(-DFv_j_Vbi_ci)));
9665 #endif
9666 Qjs=(DFQ_j+(DFC_max*(BP(si,ci)-DFv_j)));
9667 #endif
9668 }
9669 else
9670 {
9671 #if defined(_DYNAMIC)
9672 Cjs=0.0;
9673 #endif
9674 #if defined(_DYNAMIC)
9675 #if defined(_DERIVATE)
9676 Qjs_Vbp_ei=0.0;
9677 Qjs_Vbi_ei=0.0;
9678 Qjs_Vsi_ci=0.0;
9679 Qjs_Vb_ci=0.0;
9680 Qjs_Vbp_ci=0.0;
9681 Qjs_Vtnode_GND=0.0;
9682 Qjs_Vbi_ci=0.0;
9683 #endif
9684 Qjs=0.0;
9685 #endif
9686 }
9687 #endif /* if (...) */
9688 }
9689 #endif /* if (...) */
9690 if
9691 ((itss>0.0))
9692 {
9693 #if defined(_DERIVATE)
9694 HSUM_Vtnode_GND=(msf*VT_Vtnode_GND);
9695 #endif
9696 HSUM=(msf*VT);
9697 {
9698 double m00_limexp(d00_limexp0,(BP(bp,ci)/HSUM))
9699 #if defined(_DERIVATE)
9700 double m10_limexp(d10_limexp0,d00_limexp0,(BP(bp,ci)/HSUM))
9701 #endif
9702 #if defined(_DERIVATE)
9703 HSa_Vbp_ci=(1/HSUM)*d10_limexp0;
9704 HSa_Vtnode_GND=(-BP(bp,ci)*HSUM_Vtnode_GND/HSUM/HSUM)*d10_limexp0;
9705 #endif
9706 HSa=d00_limexp0;
9707 }
9708 {
9709 double m00_limexp(d00_limexp0,(BP(si,ci)/HSUM))
9710 #if defined(_DERIVATE)
9711 double m10_limexp(d10_limexp0,d00_limexp0,(BP(si,ci)/HSUM))
9712 #endif
9713 #if defined(_DERIVATE)
9714 HSb_Vsi_ci=(1/HSUM)*d10_limexp0;
9715 HSb_Vtnode_GND=(-BP(si,ci)*HSUM_Vtnode_GND/HSUM/HSUM)*d10_limexp0;
9716 #endif
9717 HSb=d00_limexp0;
9718 }
9719 #if defined(_DERIVATE)
9720 HSI_Tsu_Vtnode_GND=((itss_t_Vtnode_GND*(HSa-HSb))+(itss_t*(HSa_Vtnode_GND-HSb_Vtnode_GND)));
9721 HSI_Tsu_Vbp_ci=(itss_t*HSa_Vbp_ci);
9722 HSI_Tsu_Vsi_ci=(itss_t*(-HSb_Vsi_ci));
9723 #endif
9724 HSI_Tsu=(itss_t*(HSa-HSb));
9725 #ifdef _DYNAMIC
9726 if
9727 ((tsf>0.0))
9728 {
9729 #if defined(_DYNAMIC)
9730 #if defined(_DERIVATE)
9731 Qdsu_Vtnode_GND=((((tsf_t_Vtnode_GND*itss_t)+(tsf_t*itss_t_Vtnode_GND))*HSa)+((tsf_t*itss_t)*HSa_Vtnode_GND));
9732 Qdsu_Vbp_ci=((tsf_t*itss_t)*HSa_Vbp_ci);
9733 #endif
9734 Qdsu=((tsf_t*itss_t)*HSa);
9735 #endif
9736 }
9737 else
9738 {
9739 #if defined(_DYNAMIC)
9740 #if defined(_DERIVATE)
9741 Qdsu_Vtnode_GND=0.0;
9742 Qdsu_Vbp_ci=0.0;
9743 #endif
9744 Qdsu=0.0;
9745 #endif
9746 }
9747 #endif /* if (...) */
9748 }
9749 else
9750 {
9751 #if defined(_DERIVATE)
9752 HSI_Tsu_Vtnode_GND=0.0;
9753 HSI_Tsu_Vbp_ci=0.0;
9754 HSI_Tsu_Vsi_ci=0.0;
9755 #endif
9756 HSI_Tsu=0.0;
9757 #if defined(_DYNAMIC)
9758 #if defined(_DERIVATE)
9759 Qdsu_Vtnode_GND=0.0;
9760 Qdsu_Vbp_ci=0.0;
9761 #endif
9762 Qdsu=0.0;
9763 #endif
9764 }
9765 #if defined(_DERIVATE)
9766 DIOY_Vsi_ci=(1/(msc*VT));
9767 DIOY_Vbp_ci=0.0;
9768 DIOY_Vbp_ei=0.0;
9769 DIOY_Vbi_ci=0.0;
9770 DIOY_Vbi_ei=0.0;
9771 DIOY_Vtnode_GND=(-BP(si,ci)*(msc*VT_Vtnode_GND)/(msc*VT)/(msc*VT));
9772 #endif
9773 DIOY=(BP(si,ci)/(msc*VT));
9774 if
9775 ((iscs>0.0))
9776 {
9777 if
9778 ((DIOY>80.0))
9779 {
9780 #if defined(_DERIVATE)
9781 le_Vsi_ci=DIOY_Vsi_ci;
9782 le_Vbp_ci=DIOY_Vbp_ci;
9783 le_Vbp_ei=DIOY_Vbp_ei;
9784 le_Vbi_ci=DIOY_Vbi_ci;
9785 le_Vbi_ei=DIOY_Vbi_ei;
9786 le_Vtnode_GND=DIOY_Vtnode_GND;
9787 #endif
9788 le=(1+(DIOY-80.0));
9789 #if defined(_DERIVATE)
9790 DIOY_Vsi_ci=0.0;
9791 DIOY_Vbp_ci=0.0;
9792 DIOY_Vbp_ei=0.0;
9793 DIOY_Vbi_ci=0.0;
9794 DIOY_Vbi_ei=0.0;
9795 DIOY_Vtnode_GND=0.0;
9796 #endif
9797 DIOY=80.0;
9798 }
9799 else
9800 {
9801 #if defined(_DERIVATE)
9802 le_Vsi_ci=0.0;
9803 le_Vbp_ci=0.0;
9804 le_Vbp_ei=0.0;
9805 le_Vbi_ci=0.0;
9806 le_Vbi_ei=0.0;
9807 le_Vtnode_GND=0.0;
9808 #endif
9809 le=1;
9810 }
9811 {
9812 double m00_limexp(d00_limexp0,DIOY)
9813 #if defined(_DERIVATE)
9814 double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
9815 #endif
9816 #if defined(_DERIVATE)
9817 le_Vsi_ci=((le_Vsi_ci*d00_limexp0)+(le*DIOY_Vsi_ci*d10_limexp0));
9818 le_Vbp_ci=((le_Vbp_ci*d00_limexp0)+(le*DIOY_Vbp_ci*d10_limexp0));
9819 le_Vbp_ei=((le_Vbp_ei*d00_limexp0)+(le*DIOY_Vbp_ei*d10_limexp0));
9820 le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
9821 le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
9822 le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
9823 #endif
9824 le=(le*d00_limexp0);
9825 }
9826 #if defined(_DERIVATE)
9827 ijsc_Vtnode_GND=((iscs_t_Vtnode_GND*(le-1.0))+(iscs_t*le_Vtnode_GND));
9828 ijsc_Vsi_ci=(iscs_t*le_Vsi_ci);
9829 ijsc_Vbp_ci=(iscs_t*le_Vbp_ci);
9830 ijsc_Vbp_ei=(iscs_t*le_Vbp_ei);
9831 ijsc_Vbi_ci=(iscs_t*le_Vbi_ci);
9832 ijsc_Vbi_ei=(iscs_t*le_Vbi_ei);
9833 #endif
9834 ijsc=(iscs_t*(le-1.0));
9835 if
9836 ((DIOY<=(-14.0)))
9837 {
9838 #if defined(_DERIVATE)
9839 ijsc_Vtnode_GND=(-iscs_t_Vtnode_GND);
9840 ijsc_Vsi_ci=0.0;
9841 ijsc_Vbp_ci=0.0;
9842 ijsc_Vbp_ei=0.0;
9843 ijsc_Vbi_ci=0.0;
9844 ijsc_Vbi_ei=0.0;
9845 #endif
9846 ijsc=(-iscs_t);
9847 }
9848 }
9849 else
9850 {
9851 #if defined(_DERIVATE)
9852 ijsc_Vtnode_GND=0.0;
9853 ijsc_Vsi_ci=0.0;
9854 ijsc_Vbp_ci=0.0;
9855 ijsc_Vbp_ei=0.0;
9856 ijsc_Vbi_ci=0.0;
9857 ijsc_Vbi_ei=0.0;
9858 #endif
9859 ijsc=0.0;
9860 }
9861 if
9862 ((rth>0.0))
9863 {
9864 #if defined(_DERIVATE)
9865 pterm_Vci_ei=((it+(it_Vci_ei*BP(ci,ei)))+((vdci_t-BP(bi,ci))*iavl_Vci_ei));
9866 pterm_Vtnode_GND=((BP(ci,ei)*it_Vtnode_GND)+((vdci_t_Vtnode_GND*iavl)+((vdci_t-BP(bi,ci))*iavl_Vtnode_GND)));
9867 pterm_Vbi_ei=((BP(ci,ei)*it_Vbi_ei)+((vdci_t-BP(bi,ci))*iavl_Vbi_ei));
9868 pterm_Vbi_ci=((BP(ci,ei)*it_Vbi_ci)+(((-1.0)*iavl)+((vdci_t-BP(bi,ci))*iavl_Vbi_ci)));
9869 #endif
9870 pterm=((BP(ci,ei)*it)+((vdci_t-BP(bi,ci))*iavl));
9871 }
9872 _load_static_residual2(bp,ei,(((-ibet)+ibep)+irep));
9873 #if defined(_DERIVATE)
9874 _load_static_jacobian4(bp,ei,bi,ei,(((-ibet_Vbi_ei)+ibep_Vbi_ei)+irep_Vbi_ei));
9875 _load_static_jacobian4(bp,ei,bi,ci,(((-ibet_Vbi_ci)+ibep_Vbi_ci)+irep_Vbi_ci));
9876 _load_static_jacobian4(bp,ei,bp,ei,(((-ibet_Vbp_ei)+ibep_Vbp_ei)+irep_Vbp_ei));
9877 _load_static_jacobian2s(bp,ei,tnode,(((-ibet_Vtnode_GND)+ibep_Vtnode_GND)+irep_Vtnode_GND));
9878 #endif
9879 _load_static_residual2(bi,ei,(ibei+irei));
9880 #if defined(_DERIVATE)
9881 _load_static_jacobian4(bi,ei,bi,ei,(ibei_Vbi_ei+irei_Vbi_ei));
9882 _load_static_jacobian2s(bi,ei,tnode,(ibei_Vtnode_GND+irei_Vtnode_GND));
9883 #endif
9884 _load_static_residual2(bp,si,HSI_Tsu);
9885 #if defined(_DERIVATE)
9886 _load_static_jacobian4(bp,si,si,ci,HSI_Tsu_Vsi_ci);
9887 _load_static_jacobian4(bp,si,bp,ci,HSI_Tsu_Vbp_ci);
9888 _load_static_jacobian2s(bp,si,tnode,HSI_Tsu_Vtnode_GND);
9889 #endif
9890 _load_static_residual2(bp,ci,ijbcx);
9891 #if defined(_DERIVATE)
9892 _load_static_jacobian4(bp,ci,bi,ei,ijbcx_Vbi_ei);
9893 _load_static_jacobian4(bp,ci,bi,ci,ijbcx_Vbi_ci);
9894 _load_static_jacobian4(bp,ci,bp,ei,ijbcx_Vbp_ei);
9895 _load_static_jacobian4(bp,ci,bp,ci,ijbcx_Vbp_ci);
9896 _load_static_jacobian2s(bp,ci,tnode,ijbcx_Vtnode_GND);
9897 #endif
9898 _load_static_residual2(bi,ci,(ibci-iavl));
9899 #if defined(_DERIVATE)
9900 _load_static_jacobian4(bi,ci,ci,ei,(-iavl_Vci_ei));
9901 _load_static_jacobian4(bi,ci,bi,ei,(ibci_Vbi_ei-iavl_Vbi_ei));
9902 _load_static_jacobian4(bi,ci,bi,ci,(ibci_Vbi_ci-iavl_Vbi_ci));
9903 _load_static_jacobian2s(bi,ci,tnode,(ibci_Vtnode_GND-iavl_Vtnode_GND));
9904 #endif
9905 _load_static_residual2(si,ci,ijsc);
9906 #if defined(_DERIVATE)
9907 _load_static_jacobian4(si,ci,bi,ei,ijsc_Vbi_ei);
9908 _load_static_jacobian4(si,ci,bi,ci,ijsc_Vbi_ci);
9909 _load_static_jacobian4(si,ci,bp,ei,ijsc_Vbp_ei);
9910 _load_static_jacobian4(si,ci,bp,ci,ijsc_Vbp_ci);
9911 _load_static_jacobian4(si,ci,si,ci,ijsc_Vsi_ci);
9912 _load_static_jacobian2s(si,ci,tnode,ijsc_Vtnode_GND);
9913 #endif
9914 _load_static_residual2(ci,ei,it);
9915 #if defined(_DERIVATE)
9916 _load_static_jacobian4(ci,ei,bi,ci,it_Vbi_ci);
9917 _load_static_jacobian4(ci,ei,bi,ei,it_Vbi_ei);
9918 _load_static_jacobian2s(ci,ei,tnode,it_Vtnode_GND);
9919 _load_static_jacobian4(ci,ei,ci,ei,it_Vci_ei);
9920 #endif
9921 #if defined(_DYNAMIC)
9922 _load_dynamic_residual2(b,ci,_DDT((ccox1*BP(b,ci))));
9923 #if defined(_DERIVATE)
9924 _load_dynamic_jacobian4(b,ci,b,ci,(ccox1));
9925 #endif
9926 #endif
9927 #if defined(_DYNAMIC)
9928 _load_dynamic_residual2(bp,ci,_DDT((ccox2*BP(bp,ci))));
9929 #if defined(_DERIVATE)
9930 _load_dynamic_jacobian4(bp,ci,bp,ci,(ccox2));
9931 #endif
9932 #endif
9933 #if defined(_DYNAMIC)
9934 _load_dynamic_residual2(bp,e,_DDT((ceox*BP(bp,e))));
9935 #if defined(_DERIVATE)
9936 _load_dynamic_jacobian4(bp,e,bp,e,(ceox));
9937 #endif
9938 #endif
9939 #if defined(_DYNAMIC)
9940 _load_dynamic_residual2(si,ci,_DDT(Qjs));
9941 #if defined(_DERIVATE)
9942 _load_dynamic_jacobian4(si,ci,bi,ci,Qjs_Vbi_ci);
9943 _load_dynamic_jacobian2s(si,ci,tnode,Qjs_Vtnode_GND);
9944 _load_dynamic_jacobian4(si,ci,bp,ci,Qjs_Vbp_ci);
9945 _load_dynamic_jacobian4(si,ci,b,ci,Qjs_Vb_ci);
9946 _load_dynamic_jacobian4(si,ci,si,ci,Qjs_Vsi_ci);
9947 _load_dynamic_jacobian4(si,ci,bi,ei,Qjs_Vbi_ei);
9948 _load_dynamic_jacobian4(si,ci,bp,ei,Qjs_Vbp_ei);
9949 #endif
9950 #endif
9951 #if defined(_DYNAMIC)
9952 _load_dynamic_residual2(bp,ei,_DDT(Qjep));
9953 #if defined(_DERIVATE)
9954 _load_dynamic_jacobian4(bp,ei,bi,ei,Qjep_Vbi_ei);
9955 _load_dynamic_jacobian2s(bp,ei,tnode,Qjep_Vtnode_GND);
9956 _load_dynamic_jacobian4(bp,ei,bi,ci,Qjep_Vbi_ci);
9957 _load_dynamic_jacobian4(bp,ei,bp,ei,Qjep_Vbp_ei);
9958 #endif
9959 #endif
9960 #if defined(_DYNAMIC)
9961 _load_dynamic_residual2(bi,ei,_DDT((Qdei+Qjei)));
9962 #if defined(_DERIVATE)
9963 _load_dynamic_jacobian4(bi,ei,bi,ei,(Qdei_Vbi_ei+Qjei_Vbi_ei));
9964 _load_dynamic_jacobian4(bi,ei,bi,ci,Qdei_Vbi_ci);
9965 _load_dynamic_jacobian2s(bi,ei,tnode,(Qdei_Vtnode_GND+Qjei_Vtnode_GND));
9966 _load_dynamic_jacobian4(bi,ei,ci,ei,Qdei_Vci_ei);
9967 #endif
9968 #endif
9969 #if defined(_DYNAMIC)
9970 _load_dynamic_residual2(bp,ci,_DDT((qjcx0_t_ii+Qdsu)));
9971 #if defined(_DERIVATE)
9972 _load_dynamic_jacobian4(bp,ci,bi,ci,qjcx0_t_ii_Vbi_ci);
9973 _load_dynamic_jacobian2s(bp,ci,tnode,(qjcx0_t_ii_Vtnode_GND+Qdsu_Vtnode_GND));
9974 _load_dynamic_jacobian4(bp,ci,bp,ci,(qjcx0_t_ii_Vbp_ci+Qdsu_Vbp_ci));
9975 _load_dynamic_jacobian4(bp,ci,bi,ei,qjcx0_t_ii_Vbi_ei);
9976 _load_dynamic_jacobian4(bp,ci,bp,ei,qjcx0_t_ii_Vbp_ei);
9977 #endif
9978 #endif
9979 #if defined(_DYNAMIC)
9980 _load_dynamic_residual2(bi,ci,_DDT((Qdci+Qjci)));
9981 #if defined(_DERIVATE)
9982 _load_dynamic_jacobian4(bi,ci,bi,ei,(Qdci_Vbi_ei+Qjci_Vbi_ei));
9983 _load_dynamic_jacobian4(bi,ci,bi,ci,(Qdci_Vbi_ci+Qjci_Vbi_ci));
9984 _load_dynamic_jacobian2s(bi,ci,tnode,(Qdci_Vtnode_GND+Qjci_Vtnode_GND));
9985 _load_dynamic_jacobian4(bi,ci,ci,ei,Qdci_Vci_ei);
9986 #endif
9987 #endif
9988 #if defined(_DYNAMIC)
9989 _load_dynamic_residual2(b,ci,_DDT(qjcx0_t_i));
9990 #if defined(_DERIVATE)
9991 _load_dynamic_jacobian4(b,ci,bi,ci,qjcx0_t_i_Vbi_ci);
9992 _load_dynamic_jacobian2s(b,ci,tnode,qjcx0_t_i_Vtnode_GND);
9993 _load_dynamic_jacobian4(b,ci,bp,ci,qjcx0_t_i_Vbp_ci);
9994 _load_dynamic_jacobian4(b,ci,b,ci,qjcx0_t_i_Vb_ci);
9995 _load_dynamic_jacobian4(b,ci,bi,ei,qjcx0_t_i_Vbi_ei);
9996 _load_dynamic_jacobian4(b,ci,bp,ei,qjcx0_t_i_Vbp_ei);
9997 #endif
9998 #endif
9999 if
10000 ((rbx>0.0))
10001 {
10002 _load_static_residual2(b,bp,(BP(b,bp)/rbx_t));
10003 #if defined(_DERIVATE)
10004 _load_static_jacobian2s(b,bp,tnode,(-BP(b,bp)*rbx_t_Vtnode_GND/rbx_t/rbx_t));
10005 _load_static_jacobian4(b,bp,b,bp,(1/rbx_t));
10006 #endif
10007 }
10008 else
10009 {
10010 _load_static_residual2(b,bp,(BP(b,bp)/1e-6));
10011 #if defined(_DERIVATE)
10012 _load_static_jacobian4(b,bp,b,bp,(1/1e-6));
10013 #endif
10014 }
10015 if
10016 ((rbi0>0.0))
10017 {
10018 _load_static_residual2(bp,bi,(BP(bp,bi)/rbi));
10019 #if defined(_DERIVATE)
10020 _load_static_jacobian4(bp,bi,bi,ci,(-BP(bp,bi)*rbi_Vbi_ci/rbi/rbi));
10021 _load_static_jacobian4(bp,bi,ci,ei,(-BP(bp,bi)*rbi_Vci_ei/rbi/rbi));
10022 _load_static_jacobian4(bp,bi,bi,ei,(-BP(bp,bi)*rbi_Vbi_ei/rbi/rbi));
10023 _load_static_jacobian2s(bp,bi,tnode,(-BP(bp,bi)*rbi_Vtnode_GND/rbi/rbi));
10024 _load_static_jacobian4(bp,bi,bp,bi,(1/rbi));
10025 #endif
10026 #if defined(_DYNAMIC)
10027 _load_dynamic_residual2(bp,bi,_DDT(qrbi));
10028 #if defined(_DERIVATE)
10029 _load_dynamic_jacobian4(bp,bi,bi,ci,qrbi_Vbi_ci);
10030 _load_dynamic_jacobian4(bp,bi,ci,ei,qrbi_Vci_ei);
10031 _load_dynamic_jacobian4(bp,bi,bi,ei,qrbi_Vbi_ei);
10032 _load_dynamic_jacobian2s(bp,bi,tnode,qrbi_Vtnode_GND);
10033 #endif
10034 #endif
10035 }
10036 else
10037 {
10038 _load_static_residual2(bp,bi,(BP(bp,bi)/1e-6));
10039 #if defined(_DERIVATE)
10040 _load_static_jacobian4(bp,bi,bp,bi,(1/1e-6));
10041 #endif
10042 }
10043 if
10044 ((rcx>0.0))
10045 {
10046 _load_static_residual2(ci,c,(BP(ci,c)/rcx_t));
10047 #if defined(_DERIVATE)
10048 _load_static_jacobian2s(ci,c,tnode,(-BP(ci,c)*rcx_t_Vtnode_GND/rcx_t/rcx_t));
10049 _load_static_jacobian4(ci,c,ci,c,(1/rcx_t));
10050 #endif
10051 }
10052 else
10053 {
10054 _load_static_residual2(ci,c,(BP(ci,c)/1e-6));
10055 #if defined(_DERIVATE)
10056 _load_static_jacobian4(ci,c,ci,c,(1/1e-6));
10057 #endif
10058 }
10059 if
10060 ((re>0.0))
10061 {
10062 _load_static_residual2(ei,e,(BP(ei,e)/re_t));
10063 #if defined(_DERIVATE)
10064 _load_static_jacobian2s(ei,e,tnode,(-BP(ei,e)*re_t_Vtnode_GND/re_t/re_t));
10065 _load_static_jacobian4(ei,e,ei,e,(1/re_t));
10066 #endif
10067 }
10068 else
10069 {
10070 _load_static_residual2(ei,e,(BP(ei,e)/1e-6));
10071 #if defined(_DERIVATE)
10072 _load_static_jacobian4(ei,e,ei,e,(1/1e-6));
10073 #endif
10074 }
10075 if
10076 ((rsu>0.0))
10077 {
10078 _load_static_residual2(si,s,(BP(si,s)/rsu));
10079 #if defined(_DERIVATE)
10080 _load_static_jacobian4(si,s,si,s,(1/rsu));
10081 #endif
10082 #if defined(_DYNAMIC)
10083 _load_dynamic_residual2(si,s,_DDT((csu*BP(si,s))));
10084 #if defined(_DERIVATE)
10085 _load_dynamic_jacobian4(si,s,si,s,(csu));
10086 #endif
10087 #endif
10088 }
10089 else
10090 {
10091 _load_static_residual2(si,s,(BP(si,s)/1e-6));
10092 #if defined(_DERIVATE)
10093 _load_static_jacobian4(si,s,si,s,(1/1e-6));
10094 #endif
10095 }
10096 if
10097 ((rth>0.0))
10098 {
10099 _load_static_residual1(tnode,(NP(tnode)/rth));
10100 #if defined(_DERIVATE)
10101 _load_static_jacobian1(tnode,tnode,(1/rth));
10102 #endif
10103 _load_static_residual1(tnode,(-pterm));
10104 #if defined(_DERIVATE)
10105 _load_static_jacobian2p(tnode,bi,ci,(-pterm_Vbi_ci));
10106 _load_static_jacobian2p(tnode,bi,ei,(-pterm_Vbi_ei));
10107 _load_static_jacobian1(tnode,tnode,(-pterm_Vtnode_GND));
10108 _load_static_jacobian2p(tnode,ci,ei,(-pterm_Vci_ei));
10109 #endif
10110 #if defined(_DYNAMIC)
10111 _load_dynamic_residual1(tnode,_DDT((cth*NP(tnode))));
10112 #if defined(_DERIVATE)
10113 _load_dynamic_jacobian1(tnode,tnode,(cth));
10114 #endif
10115 #endif
10116 }
10117 else
10118 {
10119 _load_static_residual1(tnode,(NP(tnode)/1e-6));
10120 #if defined(_DERIVATE)
10121 _load_static_jacobian1(tnode,tnode,(1/1e-6));
10122 #endif
10123 }
10124 #if defined(_DERIVATE)
10125 fourkt_Vtnode_GND=((4.0*1.3806503e-23)*Tdev_Vtnode_GND);
10126 #endif
10127 fourkt=((4.0*1.3806503e-23)*Tdev);
10128 if
10129 ((rbx>0.0))
10130 {
10131 _save_whitenoise2(b,bp,(fourkt/rbx_t),"thermal");
10132 }
10133 if
10134 ((rbi0>0.0))
10135 {
10136 #if defined(_DERIVATE)
10137 rbin_Vtnode_GND=(krbi*rbi_Vtnode_GND);
10138 rbin_Vbi_ei=(krbi*rbi_Vbi_ei);
10139 rbin_Vci_ei=(krbi*rbi_Vci_ei);
10140 rbin_Vbi_ci=(krbi*rbi_Vbi_ci);
10141 #endif
10142 rbin=(krbi*rbi);
10143 _save_whitenoise2(bp,bi,(fourkt/rbin),"thermal");
10144 }
10145 if
10146 ((rcx>0.0))
10147 {
10148 _save_whitenoise2(ci,c,(fourkt/rcx_t),"thermal");
10149 }
10150 if
10151 ((re>0.0))
10152 {
10153 _save_whitenoise2(ei,e,(fourkt/re_t),"thermal");
10154 }
10155 if
10156 ((rsu>0.0))
10157 {
10158 _save_whitenoise2(si,s,(fourkt/rsu),"thermal");
10159 }
10160 {
10161 double m00_pow(d00_pow0,(ibei+ibep),af)
10162 #if defined(_DERIVATE)
10163 double m10_pow(d10_pow0,d00_pow0,(ibei+ibep),af)
10164 #endif
10165 #if defined(_DERIVATE)
10166 flicker_Pwr_Vtnode_GND=(kf*(d10_pow0*(ibei_Vtnode_GND+ibep_Vtnode_GND)));
10167 flicker_Pwr_Vbi_ei=(kf*(d10_pow0*(ibei_Vbi_ei+ibep_Vbi_ei)));
10168 flicker_Pwr_Vbp_ei=(kf*(d10_pow0*ibep_Vbp_ei));
10169 flicker_Pwr_Vbi_ci=(kf*(d10_pow0*ibep_Vbi_ci));
10170 #endif
10171 flicker_Pwr=(kf*d00_pow0);
10172 }
10173 _save_flickernoise2(bi,ei,flicker_Pwr,1.0,NULL);
10174 twoq=(2.0*1.602176462e-19);
10175 _save_whitenoise2(ci,ei,(twoq*it),"shot");
10176 _save_whitenoise2(ci,bi,(twoq*iavl),"shot");
10177 _save_whitenoise2(bi,ei,(twoq*ibei),"shot");
10178 _save_whitenoise2(bi,ci,(twoq*ibci),"shot");
10179 _save_whitenoise2(bp,ei,(twoq*ibep),"shot");
10180 _save_whitenoise2(bp,ci,(twoq*ijbcx),"shot");
10181 _save_whitenoise2(si,ci,(twoq*ijsc),"shot");
10182 
10183 /* ------------------ end of verilog analog equations --------------------- */
10184 
10185 /* ------------------ evaluate verilog noise equations -------------------- */
10186 
10187 /* ------------------- end of verilog noise equations --------------------- */
10188 }
10189 
10190 /* Perform DC iteration. */
10191 void hicumL2V2p1::calcDC (void)
10192 {
10193  // evaluate Verilog code
10194  initVerilog ();
10195  calcVerilog ();
10196 
10197  // fill right hand side and static jacobian
10198  for (int i1 = 0; i1 < 10; i1++) {
10199  setI (i1, _rhs[i1]);
10200  for (int i2 = 0; i2 < 10; i2++) {
10201  setY (i1, i2, _jstat[i1][i2]);
10202  }
10203  }
10204 }
10205 
10206 /* Save operating points. */
10207 void hicumL2V2p1::saveOperatingPoints (void)
10208 {
10209  // save global instance operating points
10210 }
10211 
10212 /* Load operating points. */
10213 void hicumL2V2p1::loadOperatingPoints (void)
10214 {
10215 }
10216 
10217 /* Calculate operating points. */
10218 void hicumL2V2p1::calcOperatingPoints (void)
10219 {
10220 }
10221 
10222 /* Initialization of AC analysis. */
10223 void hicumL2V2p1::initAC (void)
10224 {
10225  allocMatrixMNA ();
10226 }
10227 
10228 /* Perform AC calculations. */
10229 void hicumL2V2p1::calcAC (nr_double_t frequency)
10230 {
10231  setMatrixY (calcMatrixY (frequency));
10232 }
10233 
10234 /* Compute Y-matrix for AC analysis. */
10235 matrix hicumL2V2p1::calcMatrixY (nr_double_t frequency)
10236 {
10237  _freq = frequency;
10238  saveOperatingPoints ();
10239  matrix y (10);
10240 
10241  for (int i1 = 0; i1 < 10; i1++) {
10242  for (int i2 = 0; i2 < 10; i2++) {
10243  y (i1,i2) = rect (_jstat[i1][i2], _jdyna[i1][i2] * 2 * M_PI * _freq);
10244  }
10245  }
10246 
10247  return y;
10248 }
10249 
10250 /* Initialization of S-parameter analysis. */
10251 void hicumL2V2p1::initSP (void)
10252 {
10253  allocMatrixS ();
10254 }
10255 
10256 /* Perform S-parameter calculations. */
10257 void hicumL2V2p1::calcSP (nr_double_t frequency)
10258 {
10259  setMatrixS (ytos (calcMatrixY (frequency)));
10260 }
10261 
10262 /* Initialization of transient analysis. */
10263 void hicumL2V2p1::initTR (void)
10264 {
10265  setStates (2 * 10 * 10);
10266  initDC ();
10267 }
10268 
10269 /* Perform transient analysis iteration step. */
10270 void hicumL2V2p1::calcTR (nr_double_t)
10271 {
10272  doHB = 0;
10273  doAC = 1;
10274  doTR = 1;
10275  calcDC ();
10276 
10277  int i1, i2, i3, i4, state;
10278 
10279  // 2-node charge integrations
10280  for (i1 = 0; i1 < 10; i1++) {
10281  for (i2 = 0; i2 < 10; i2++) {
10282  state = 2 * (i2 + 10 * i1);
10283  if (i1 != i2)
10284  if (_charges[i1][i2] != 0.0)
10285  transientCapacitanceQ (state, i1, i2, _charges[i1][i2]);
10286  } }
10287 
10288  // 1-node charge integrations
10289  for (i1 = 0; i1 < 10; i1++) {
10290  state = 2 * (i1 + 10 * i1);
10291  if (_charges[i1][i1] != 0.0)
10292  transientCapacitanceQ (state, i1, _charges[i1][i1]);
10293  }
10294 
10295  // charge: 2-node, voltage: 2-node
10296  for (i1 = 0; i1 < 10; i1++) {
10297  for (i2 = 0; i2 < 10; i2++) {
10298  if (i1 != i2)
10299  for (i3 = 0; i3 < 10; i3++) {
10300  for (i4 = 0; i4 < 10; i4++) {
10301  if (i3 != i4)
10302  if (_caps[i1][i2][i3][i4] != 0.0)
10303  transientCapacitanceC (i1, i2, i3, i4, _caps[i1][i2][i3][i4], BP(i3,i4));
10304  } } } }
10305 
10306  // charge: 2-node, voltage: 1-node
10307  for (i1 = 0; i1 < 10; i1++) {
10308  for (i2 = 0; i2 < 10; i2++) {
10309  if (i1 != i2)
10310  for (i3 = 0; i3 < 10; i3++) {
10311  if (_caps[i1][i2][i3][i3] != 0.0)
10312  transientCapacitanceC2Q (i1, i2, i3, _caps[i1][i2][i3][i3], NP(i3));
10313  } } }
10314 
10315  // charge: 1-node, voltage: 2-node
10316  for (i1 = 0; i1 < 10; i1++) {
10317  for (i3 = 0; i3 < 10; i3++) {
10318  for (i4 = 0; i4 < 10; i4++) {
10319  if (i3 != i4)
10320  if (_caps[i1][i1][i3][i4] != 0.0)
10321  transientCapacitanceC2V (i1, i3, i4, _caps[i1][i1][i3][i4], BP(i3,i4));
10322  } } }
10323 
10324  // charge: 1-node, voltage: 1-node
10325  for (i1 = 0; i1 < 10; i1++) {
10326  for (i3 = 0; i3 < 10; i3++) {
10327  if (_caps[i1][i1][i3][i3] != 0.0)
10328  transientCapacitanceC (i1, i3, _caps[i1][i1][i3][i3], NP(i3));
10329  } }
10330 }
10331 
10332 /* Compute Cy-matrix for AC noise analysis. */
10333 matrix hicumL2V2p1::calcMatrixCy (nr_double_t frequency)
10334 {
10335  _freq = frequency;
10336  matrix cy (10);
10337 
10338  _load_flickernoise2 (bi,ei,_flicker_pwr[bi][ei],_flicker_exp[bi][ei]);
10339  _load_whitenoise2 (ci,bi,_white_pwr[ci][bi]);
10340  _load_whitenoise2 (si,s,_white_pwr[si][s]);
10341  _load_whitenoise2 (ei,e,_white_pwr[ei][e]);
10342  _load_whitenoise2 (ci,c,_white_pwr[ci][c]);
10343  _load_whitenoise2 (bp,bi,_white_pwr[bp][bi]);
10344  _load_whitenoise2 (b,bp,_white_pwr[b][bp]);
10345  _load_whitenoise2 (ci,ei,_white_pwr[ci][ei]);
10346  _load_whitenoise2 (si,ci,_white_pwr[si][ci]);
10347  _load_whitenoise2 (bi,ci,_white_pwr[bi][ci]);
10348  _load_whitenoise2 (bp,ci,_white_pwr[bp][ci]);
10349  _load_whitenoise2 (bi,ei,_white_pwr[bi][ei]);
10350  _load_whitenoise2 (bp,ei,_white_pwr[bp][ei]);
10351 
10352  return cy;
10353 }
10354 
10355 /* Perform AC noise computations. */
10356 void hicumL2V2p1::calcNoiseAC (nr_double_t frequency)
10357 {
10358  setMatrixN (calcMatrixCy (frequency));
10359 }
10360 
10361 /* Perform S-parameter noise computations. */
10362 void hicumL2V2p1::calcNoiseSP (nr_double_t frequency)
10363 {
10364  setMatrixN (cytocs (calcMatrixCy (frequency) * z0, getMatrixS ()));
10365 }
10366 
10367 /* Initialization of HB analysis. */
10368 void hicumL2V2p1::initHB (int)
10369 {
10370  initDC ();
10371  allocMatrixHB ();
10372 }
10373 
10374 /* Perform HB analysis. */
10375 void hicumL2V2p1::calcHB (int)
10376 {
10377  doHB = 1;
10378  doAC = 1;
10379  doTR = 0;
10380 
10381  // jacobian dI/dV and currents get filled
10382  calcDC ();
10383  saveOperatingPoints ();
10384 
10385  // fill in HB matrices
10386  for (int i1 = 0; i1 < 10; i1++) {
10387  setQ (i1, _qhs[i1]); // charges
10388  setCV (i1, _chs[i1]); // jacobian dQ/dV * V
10389  setGV (i1, _ghs[i1]); // jacobian dI/dV * V
10390  for (int i2 = 0; i2 < 10; i2++) {
10391  setQV (i1, i2, _jdyna[i1][i2]); // jacobian dQ/dV
10392  }
10393  }
10394 }
10395 
10396 #include "hicumL2V2p1.defs.h"
Generated on Tue Dec 25 2012 14:28:54 for My Project by   doxygen 1.8.2