My Project  0.0.16
QUCS Mapping
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
hic0_full.core.cpp
Go to the documentation of this file.
1 /*
2  * hic0_full.core.cpp - device implementations for hic0_full 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 "hic0_full.analogfunction.h"
16 #include "component.h"
17 #include "device.h"
18 #include "hic0_full.core.h"
19 
20 #ifndef CIR_hic0_full
21 #define CIR_hic0_full -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 bi 6
33 #define ei 7
34 
35 // useful macro definitions
36 #define NP(node) real (getV (node))
37 #define BP(pnode,nnode) (NP(pnode) - NP(nnode))
38 #define _load_static_residual2(pnode,nnode,current)\
39  _rhs[pnode] -= current;\
40  _rhs[nnode] += current;
41 #define _load_static_augmented_residual2(pnode,nnode,current)\
42  _rhs[pnode] -= current;\
43  _rhs[nnode] += current;
44 #define _load_static_residual1(node,current)\
45  _rhs[node] -= current;
46 #define _load_static_augmented_residual1(node,current)\
47  _rhs[node] -= current;
48 #define _load_static_jacobian4(pnode,nnode,vpnode,vnnode,conductance)\
49  _jstat[pnode][vpnode] += conductance;\
50  _jstat[nnode][vnnode] += conductance;\
51  _jstat[pnode][vnnode] -= conductance;\
52  _jstat[nnode][vpnode] -= conductance;\
53  if (doHB) {\
54  _ghs[pnode] += conductance * BP(vpnode,vnnode);\
55  _ghs[nnode] -= conductance * BP(vpnode,vnnode);\
56  } else {\
57  _rhs[pnode] += conductance * BP(vpnode,vnnode);\
58  _rhs[nnode] -= conductance * BP(vpnode,vnnode);\
59  }
60 #define _load_static_jacobian2p(node,vpnode,vnnode,conductance)\
61  _jstat[node][vpnode] += conductance;\
62  _jstat[node][vnnode] -= conductance;\
63  if (doHB) {\
64  _ghs[node] += conductance * BP(vpnode,vnnode);\
65  } else {\
66  _rhs[node] += conductance * BP(vpnode,vnnode);\
67  }
68 #define _load_static_jacobian2s(pnode,nnode,node,conductance)\
69  _jstat[pnode][node] += conductance;\
70  _jstat[nnode][node] -= conductance;\
71  if (doHB) {\
72  _ghs[pnode] += conductance * NP(node);\
73  _ghs[nnode] -= conductance * NP(node);\
74  } else {\
75  _rhs[pnode] += conductance * NP(node);\
76  _rhs[nnode] -= conductance * NP(node);\
77  }
78 #define _load_static_jacobian1(node,vnode,conductance)\
79  _jstat[node][vnode] += conductance;\
80  if (doHB) {\
81  _ghs[node] += conductance * NP(vnode);\
82  } else {\
83  _rhs[node] += conductance * NP(vnode);\
84  }
85 #define _load_dynamic_residual2(pnode,nnode,charge)\
86  if (doTR) _charges[pnode][nnode] += charge;\
87  if (doHB) {\
88  _qhs[pnode] -= charge;\
89  _qhs[nnode] += charge;\
90  }
91 #define _load_dynamic_residual1(node,charge)\
92  if (doTR) _charges[node][node] += charge;\
93  if (doHB) {\
94  _qhs[node] -= charge;\
95  }
96 #define _load_dynamic_jacobian4(pnode,nnode,vpnode,vnnode,capacitance)\
97  if (doAC) {\
98  _jdyna[pnode][vpnode] += capacitance;\
99  _jdyna[nnode][vnnode] += capacitance;\
100  _jdyna[pnode][vnnode] -= capacitance;\
101  _jdyna[nnode][vpnode] -= capacitance;\
102  }\
103  if (doTR) {\
104  _caps[pnode][nnode][vpnode][vnnode] += capacitance;\
105  }\
106  if (doHB) {\
107  _chs[pnode] += capacitance * BP(vpnode,vnnode);\
108  _chs[nnode] -= capacitance * BP(vpnode,vnnode);\
109  }
110 #define _load_dynamic_jacobian2s(pnode,nnode,vnode,capacitance)\
111  if (doAC) {\
112  _jdyna[pnode][vnode] += capacitance;\
113  _jdyna[nnode][vnode] -= capacitance;\
114  }\
115  if (doTR) {\
116  _caps[pnode][nnode][vnode][vnode] += capacitance;\
117  }\
118  if (doHB) {\
119  _chs[pnode] += capacitance * NP(vnode);\
120  _chs[nnode] -= capacitance * NP(vnode);\
121  }
122 #define _load_dynamic_jacobian2p(node,vpnode,vnnode,capacitance)\
123  if (doAC) {\
124  _jdyna[node][vpnode] += capacitance;\
125  _jdyna[node][vnnode] -= capacitance;\
126  }\
127  if (doTR) {\
128  _caps[node][node][vpnode][vnnode] += capacitance;\
129  }\
130  if (doHB) {\
131  _chs[node] += capacitance * BP(vpnode,vnnode);\
132  }
133 #define _load_dynamic_jacobian1(node,vnode,capacitance)\
134  if (doAC) {\
135  _jdyna[node][vnode] += capacitance;\
136  }\
137  if (doTR) {\
138  _caps[node][node][vnode][vnode] += capacitance;\
139  }\
140  if (doHB) {\
141  _chs[node] += capacitance * NP(vnode);\
142  }
143 
144 #define _save_whitenoise1(n1,pwr,type)\
145  _white_pwr[n1][n1] += pwr;
146 #define _save_whitenoise2(n1,n2,pwr,type)\
147  _white_pwr[n1][n2] += pwr;
148 #define _save_flickernoise1(n1,pwr,exp,type)\
149  _flicker_pwr[n1][n1] += pwr;\
150  _flicker_exp[n1][n1] += exp;
151 #define _save_flickernoise2(n1,n2,pwr,exp,type)\
152  _flicker_pwr[n1][n2] += pwr;\
153  _flicker_exp[n1][n2] += exp;
154 #define _load_whitenoise2(n1,n2,pwr)\
155  cy (n1,n2) -= pwr/kB/T0; cy (n2,n1) -= pwr/kB/T0;\
156  cy (n1,n1) += pwr/kB/T0; cy (n2,n2) += pwr/kB/T0;
157 #define _load_whitenoise1(n1,pwr)\
158  cy (n1,n1) += pwr/kB/T0;
159 #define _load_flickernoise2(n1,n2,pwr,exp)\
160  cy (n1,n2) -= pwr*pow(_freq,-exp)/kB/T0;\
161  cy (n2,n1) -= pwr*pow(_freq,-exp)/kB/T0;\
162  cy (n1,n1) += pwr*pow(_freq,-exp)/kB/T0;\
163  cy (n2,n2) += pwr*pow(_freq,-exp)/kB/T0;
164 #define _load_flickernoise1(n1,pwr,exp)\
165  cy (n1,n1) += pwr*pow(_freq,-exp)/kB/T0;
166 
167 // derivative helper macros
168 #define m00_hypot(v00,x,y) v00 = xhypot(x,y);
169 #define m10_hypot(v10,v00,x,y) v10 = (x)/(v00);
170 #define m11_hypot(v11,v00,x,y) v11 = (y)/(v00);
171 #define m00_max(v00,x,y) v00 = ((x)>(y))?(x):(y);
172 #define m10_max(v10,v00,x,y) v10 = ((x)>(y))?1.0:0.0;
173 #define m11_max(v11,v00,x,y) v11 = ((x)>(y))?0.0:1.0;
174 #define m00_min(v00,x,y) v00 = ((x)<(y))?(x):(y);
175 #define m10_min(v10,v00,x,y) v10 = ((x)<(y))?1.0:0.0;
176 #define m11_min(v11,v00,x,y) v11 = ((x)<(y))?0.0:1.0;
177 #define m00_pow(v00,x,y) v00 = pow(x,y);
178 #define m10_pow(v10,v00,x,y) v10 = (x==0.0)?0.0:(v00)*(y)/(x);
179 #define m11_pow(v11,v00,x,y) v11 = (x==0.0)?0.0:(log(x)*(v00));
180 
181 #define m00_div(v00,v10,x,y) double v10=1/(y); double v00=(x)*v10;
182 #define m10_div(v10,v00,vv,x,y)
183 #define m11_div(v11,v00,vv,x,y) double v11 = -v00*vv;
184 
185 #define m00_mult(v00,v10,v11,x,y) double v10=(x); double v11=(y); double v00=v10*v11;
186 #define m00_add(v00,x,y) double v00=(x)+(y);
187 
188 #define m00_cos(v00,x) v00 = cos(x);
189 #define m10_cos(v10,v00,x) v10 = (-sin(x));
190 #define m00_sin(v00,x) v00 = sin(x);
191 #define m10_sin(v10,v00,x) v10 = (cos(x));
192 #define m00_tan(v00,x) v00 = tan(x);
193 #define m10_tan(v10,v00,x) v10 = (1.0/cos(x)/cos(x));
194 #define m00_cosh(v00,x) v00 = cosh(x);
195 #define m10_cosh(v10,v00,x) v10 = (sinh(x));
196 #define m00_sinh(v00,x) v00 = sinh(x);
197 #define m10_sinh(v10,v00,x) v10 = (cosh(x));
198 #define m00_tanh(v00,x) v00 = tanh(x);
199 #define m10_tanh(v10,v00,x) v10 = (1.0/cosh(x)/cosh(x));
200 #define m00_acos(v00,x) v00 = acos(x);
201 #define m10_acos(v10,v00,x) v10 = (-1.0/sqrt(1-x*x));
202 #define m00_asin(v00,x) v00 = asin(x);
203 #define m10_asin(v10,v00,x) v10 = (+1.0/sqrt(1-x*x));
204 #define m00_atan(v00,x) v00 = atan(x);
205 #define m10_atan(v10,v00,x) v10 = (+1.0/(1+x*x));
206 #define m00_atanh(v00,x) v00 = atanh(x);
207 #define m10_atanh(v10,v00,x) v10 = (+1.0/(1-x*x));
208 #define m00_logE(v00,x) v00 = log(x);
209 #define m10_logE(v10,v00,x) v10 = (1.0/x);
210 #define m00_log10(v00,x) v00 = log10(x);
211 #define m10_log10(v10,v00,x) v10 = (1.0/x/M_LN10);
212 #define m00_sqrt(v00,x) v00 = sqrt(x);
213 #define m10_sqrt(v10,v00,x) v10 = (0.5/v00);
214 #define m00_fabs(v00,x) v00 = fabs(x);
215 #define m10_fabs(v10,v00,x) v10 = (((x)>=0)?(+1.0):(-1.0));
216 
217 #define m00_exp(v00,x) v00 = exp(x);
218 #define m10_exp(v10,v00,x) v10 = v00;
219 
220 #define m00_abs(v00) ((v00)<(0)?(-(v00)):(v00))
221 #define m00_floor(v00,x) v00 = floor(x);
222 #define m00_limexp(v00,x) v00 = ((x)<80.0?exp(x):exp(80.0)*(x-79.0));
223 #define m10_limexp(v10,v00,x) v10 = ((x)<80.0?(v00):exp(80.0));
224 
225 #define m20_logE(v00) (-1.0/v00/v00)
226 #define m20_exp(v00) exp(v00)
227 #define m20_limexp(v00) ((v00)<80.0?exp(v00):0.0)
228 #define m20_sqrt(v00) (-0.25/(v00)/sqrt(v00))
229 #define m20_fabs(v00) 0.0
230 #define m20_pow(x,y) ((y)*((y)-1.0)*pow(x,y)/(x)/(x))
231 #define m00_vt(x) (kBoverQ*(x))
232 #define m10_vt(x) (kBoverQ)
233 
234 // simulator specific definitions
235 #define _modelname "hic0_full"
236 #define _instancename getName()
237 #define _circuit_temp (getPropertyDouble("Temp")+273.15)
238 #define _param_given(p) (isPropertyGiven(p)?1:0)
239 
240 
241 // $vt and $vt() functions
242 #define _vt_nom (kBoverQ*_circuit_temp)
243 
244 using namespace device;
245 
246 /* Device constructor. */
247 hic0_full::hic0_full() : circuit (8)
248 {
249  type = CIR_hic0_full;
250 }
251 
252 /* Initialization of model. */
253 void hic0_full::initModel (void)
254 {
255  // create internal nodes
256  setInternalNode (ci, "ci");
257  setInternalNode (bi, "bi");
258  setInternalNode (ei, "ei");
259 
260  // get device model parameters
261  loadVariables ();
262  // evaluate global model equations
263  initializeModel ();
264  // evaluate initial step equations
265  initialStep ();
266  // evaluate global instance equations
267  initializeInstance ();
268 }
269 
270 /* Initialization of DC analysis. */
271 void hic0_full::initDC (void)
272 {
273  allocMatrixMNA ();
274  initModel ();
275  pol = 1;
276  restartDC ();
277  doAC = 1;
278  doTR = 0;
279  doHB = 0;
280 }
281 
282 /* Run when DC is restarted (fallback algorithms). */
283 void hic0_full::restartDC (void)
284 {
285 }
286 
287 /* Initialize Verilog-AMS code. */
288 void hic0_full::initVerilog (void)
289 {
290  // initialization of noise variables
291  _white_pwr[ci][ei] = 0.0;
292  _white_pwr[b][bi] = 0.0;
293  _white_pwr[ci][c] = 0.0;
294  _white_pwr[ei][e] = 0.0;
295  _white_pwr[bi][ei] = 0.0;
296  _flicker_pwr[bi][ei] = 0.0;
297  _flicker_exp[bi][ei] = 0.0;
298 
299  int i1, i2, i3, i4;
300 
301  // zero charges
302  for (i1 = 0; i1 < 8; i1++) {
303  for (i2 = 0; i2 < 8; i2++) {
304  _charges[i1][i2] = 0.0;
305  } }
306 
307  // zero capacitances
308  for (i1 = 0; i1 < 8; i1++) {
309  for (i2 = 0; i2 < 8; i2++) {
310  for (i3 = 0; i3 < 8; i3++) {
311  for (i4 = 0; i4 < 8; i4++) {
312  _caps[i1][i2][i3][i4] = 0.0;
313  } } } }
314 
315  // zero right hand side, static and dynamic jacobian
316  for (i1 = 0; i1 < 8; i1++) {
317  _rhs[i1] = 0.0;
318  _qhs[i1] = 0.0;
319  _chs[i1] = 0.0;
320  _ghs[i1] = 0.0;
321  for (i2 = 0; i2 < 8; i2++) {
322  _jstat[i1][i2] = 0.0;
323  _jdyna[i1][i2] = 0.0;
324  }
325  }
326 }
327 
328 /* Load device model input parameters. */
329 void hic0_full::loadVariables (void)
330 {
331  is = getPropertyDouble ("is");
332  mcf = getPropertyDouble ("mcf");
333  mcr = getPropertyDouble ("mcr");
334  vef = getPropertyDouble ("vef");
335  iqf = getPropertyDouble ("iqf");
336  iqr = getPropertyDouble ("iqr");
337  iqfh = getPropertyDouble ("iqfh");
338  tfh = getPropertyDouble ("tfh");
339  ibes = getPropertyDouble ("ibes");
340  mbe = getPropertyDouble ("mbe");
341  ires = getPropertyDouble ("ires");
342  mre = getPropertyDouble ("mre");
343  ibcs = getPropertyDouble ("ibcs");
344  mbc = getPropertyDouble ("mbc");
345  cje0 = getPropertyDouble ("cje0");
346  vde = getPropertyDouble ("vde");
347  ze = getPropertyDouble ("ze");
348  aje = getPropertyDouble ("aje");
349  t0 = getPropertyDouble ("t0");
350  dt0h = getPropertyDouble ("dt0h");
351  tbvl = getPropertyDouble ("tbvl");
352  tef0 = getPropertyDouble ("tef0");
353  gte = getPropertyDouble ("gte");
354  thcs = getPropertyDouble ("thcs");
355  ahc = getPropertyDouble ("ahc");
356  tr = getPropertyDouble ("tr");
357  rci0 = getPropertyDouble ("rci0");
358  vlim = getPropertyDouble ("vlim");
359  vpt = getPropertyDouble ("vpt");
360  vces = getPropertyDouble ("vces");
361  cjci0 = getPropertyDouble ("cjci0");
362  vdci = getPropertyDouble ("vdci");
363  zci = getPropertyDouble ("zci");
364  vptci = getPropertyDouble ("vptci");
365  cjcx0 = getPropertyDouble ("cjcx0");
366  vdcx = getPropertyDouble ("vdcx");
367  zcx = getPropertyDouble ("zcx");
368  vptcx = getPropertyDouble ("vptcx");
369  fbc = getPropertyDouble ("fbc");
370  rbi0 = getPropertyDouble ("rbi0");
371  vr0e = getPropertyDouble ("vr0e");
372  vr0c = getPropertyDouble ("vr0c");
373  fgeo = getPropertyDouble ("fgeo");
374  rbx = getPropertyDouble ("rbx");
375  rcx = getPropertyDouble ("rcx");
376  re = getPropertyDouble ("re");
377  itss = getPropertyDouble ("itss");
378  msf = getPropertyDouble ("msf");
379  iscs = getPropertyDouble ("iscs");
380  msc = getPropertyDouble ("msc");
381  cjs0 = getPropertyDouble ("cjs0");
382  vds = getPropertyDouble ("vds");
383  zs = getPropertyDouble ("zs");
384  vpts = getPropertyDouble ("vpts");
385  cbcpar = getPropertyDouble ("cbcpar");
386  cbepar = getPropertyDouble ("cbepar");
387  eavl = getPropertyDouble ("eavl");
388  kavl = getPropertyDouble ("kavl");
389  kf = getPropertyDouble ("kf");
390  af = getPropertyDouble ("af");
391  vgb = getPropertyDouble ("vgb");
392  vge = getPropertyDouble ("vge");
393  vgc = getPropertyDouble ("vgc");
394  vgs = getPropertyDouble ("vgs");
395  f1vg = getPropertyDouble ("f1vg");
396  f2vg = getPropertyDouble ("f2vg");
397  alt0 = getPropertyDouble ("alt0");
398  kt0 = getPropertyDouble ("kt0");
399  zetact = getPropertyDouble ("zetact");
400  zetabet = getPropertyDouble ("zetabet");
401  zetaci = getPropertyDouble ("zetaci");
402  alvs = getPropertyDouble ("alvs");
403  alces = getPropertyDouble ("alces");
404  zetarbi = getPropertyDouble ("zetarbi");
405  zetarbx = getPropertyDouble ("zetarbx");
406  zetarcx = getPropertyDouble ("zetarcx");
407  zetare = getPropertyDouble ("zetare");
408  alkav = getPropertyDouble ("alkav");
409  aleav = getPropertyDouble ("aleav");
410  flsh = getPropertyInteger ("flsh");
411  rth = getPropertyDouble ("rth");
412  cth = getPropertyDouble ("cth");
413  npn = getPropertyInteger ("npn");
414  pnp = getPropertyInteger ("pnp");
415  tnom = getPropertyDouble ("tnom");
416  dt = getPropertyDouble ("dt");
417 }
418 
419 /* #define's for translated code */
420 #undef _DDT
421 #define _DDT(q) q
422 #define _DYNAMIC
423 #define _DERIVATE
424 #define _DDX
425 #define _DERIVATEFORDDX
426 
427 /* Evaluate Verilog-AMS equations in model initialization. */
428 void hic0_full::initializeModel (void)
429 {
430 {
431 if
432 (_param_given("npn"))
433 {
434 HICUMtype=(+1);
435 }
436 else
437 {
438 if
439 (_param_given("pnp"))
440 {
441 HICUMtype=(-1);
442 }
443 else
444 {
445 HICUMtype=(+1);
446 }
447 }
448 }
449 }
450 
451 /* Evaluate Verilog-AMS equations in instance initialization. */
452 void hic0_full::initializeInstance (void)
453 {
454 }
455 
456 /* Evaluate Verilog-AMS equations in initial step. */
457 void hic0_full::initialStep (void)
458 {
459 }
460 
461 /* Evaluate Verilog-AMS equations in final step. */
462 void hic0_full::finalStep (void)
463 {
464 }
465 
466 /* Evaluate Verilog-AMS equations in analog block. */
467 void hic0_full::calcVerilog (void)
468 {
469 
470 /* ----------------- evaluate verilog analog equations -------------------- */
471 double flicker_Pwr;
472 #if defined(_DERIVATE)
473 double flicker_Pwr_Vtnode_GND;
474 double flicker_Pwr_Vbi_ei;
475 #endif
476 double twoq;
477 double fourkt;
478 #if defined(_DERIVATE)
479 double fourkt_Vtnode_GND;
480 #endif
481 #if defined(_DYNAMIC)
482 double Qbiei;
483 #if defined(_DERIVATE)
484 double Qbiei_Vtnode_GND;
485 double Qbiei_Vbi_ei;
486 double Qbiei_Vbi_ci;
487 double Qbiei_Vb_ci;
488 double Qbiei_Vci_ei;
489 #endif
490 #endif
491 #if defined(_DYNAMIC)
492 double Qbici;
493 #if defined(_DERIVATE)
494 double Qbici_Vbi_ci;
495 double Qbici_Vtnode_GND;
496 double Qbici_Vb_ci;
497 double Qbici_Vbi_ei;
498 double Qbici_Vci_ei;
499 #endif
500 #endif
501 #if defined(_DYNAMIC)
502 double Qbe;
503 #if defined(_DERIVATE)
504 double Qbe_Vb_e;
505 #endif
506 #endif
507 #if defined(_DYNAMIC)
508 double Qbci;
509 #if defined(_DERIVATE)
510 double Qbci_Vb_ci;
511 #endif
512 #endif
513 #if defined(_DERIVATE)
514 double Ibici_Vtnode_GND;
515 double Ibici_Vbi_ci;
516 double Ibici_Vbi_ei;
517 double Ibici_Vb_ci;
518 double Ibici_Vci_ei;
519 #endif
520 double pterm;
521 #if defined(_DERIVATE)
522 double pterm_Vci_c;
523 double pterm_Vei_e;
524 double pterm_Vb_bi;
525 double pterm_Vs_ci;
526 double pterm_Vtnode_GND;
527 double pterm_Vbi_ei;
528 double pterm_Vbi_ci;
529 double pterm_Vb_ci;
530 double pterm_Vci_ei;
531 #endif
532 #if defined(_DYNAMIC)
533 double qjs;
534 #if defined(_DERIVATE)
535 double qjs_Vci_ei;
536 double qjs_Vbi_ei;
537 double qjs_Vs_ci;
538 double qjs_Vbi_ci;
539 double qjs_Vtnode_GND;
540 double qjs_Vb_ci;
541 #endif
542 #endif
543 #if defined(_DERIVATE)
544 double ijsc_Vtnode_GND;
545 double ijsc_Vs_ci;
546 double ijsc_Vbi_ci;
547 double ijsc_Vbi_ei;
548 #endif
549 double HSI_Tsu;
550 #if defined(_DERIVATE)
551 double HSI_Tsu_Vtnode_GND;
552 double HSI_Tsu_Vb_ci;
553 double HSI_Tsu_Vs_ci;
554 #endif
555 double HSb;
556 #if defined(_DERIVATE)
557 double HSb_Vs_ci;
558 double HSb_Vtnode_GND;
559 #endif
560 double HSa;
561 #if defined(_DERIVATE)
562 double HSa_Vb_ci;
563 double HSa_Vtnode_GND;
564 #endif
565 double HSUM;
566 #if defined(_DERIVATE)
567 double HSUM_Vtnode_GND;
568 #endif
569 double rb;
570 #if defined(_DERIVATE)
571 double rb_Vtnode_GND;
572 double rb_Vbi_ei;
573 double rb_Vbi_ci;
574 double rb_Vb_ci;
575 double rb_Vci_ei;
576 #endif
577 double eta;
578 #if defined(_DERIVATE)
579 double eta_Vtnode_GND;
580 double eta_Vbi_ei;
581 double eta_Vbi_ci;
582 double eta_Vb_ci;
583 double eta_Vci_ei;
584 #endif
585 double rbi;
586 #if defined(_DERIVATE)
587 double rbi_Vtnode_GND;
588 double rbi_Vbi_ei;
589 double rbi_Vbi_ci;
590 double rbi_Vb_ci;
591 double rbi_Vci_ei;
592 #endif
593 double fQz;
594 #if defined(_DERIVATE)
595 double fQz_Vtnode_GND;
596 double fQz_Vbi_ei;
597 double fQz_Vbi_ci;
598 double fQz_Vb_ci;
599 double fQz_Vci_ei;
600 #endif
601 double Qz_nom;
602 #if defined(_DERIVATE)
603 double Qz_nom_Vtnode_GND;
604 double Qz_nom_Vbi_ei;
605 double Qz_nom_Vbi_ci;
606 double Qz_nom_Vb_ci;
607 double Qz_nom_Vci_ei;
608 #endif
609 double qje;
610 #if defined(_DERIVATE)
611 double qje_Vtnode_GND;
612 double qje_Vbi_ei;
613 double qje_Vbi_ci;
614 double qje_Vb_ci;
615 #endif
616 double lncc;
617 #if defined(_DERIVATE)
618 double lncc_Vtnode_GND;
619 double lncc_Vbi_ci;
620 double lncc_Vb_ci;
621 #endif
622 #if defined(_DERIVATE)
623 double iavl_Vtnode_GND;
624 double iavl_Vbi_ei;
625 double iavl_Vbi_ci;
626 double iavl_Vb_ci;
627 double iavl_Vci_ei;
628 #endif
629 double a_iavl;
630 #if defined(_DERIVATE)
631 double a_iavl_Vtnode_GND;
632 double a_iavl_Vbi_ci;
633 double a_iavl_Vb_ci;
634 #endif
635 double v_bord;
636 #if defined(_DERIVATE)
637 double v_bord_Vtnode_GND;
638 #endif
639 double ibi;
640 #if defined(_DERIVATE)
641 double ibi_Vtnode_GND;
642 double ibi_Vbi_ei;
643 double ibi_Vbi_ci;
644 #endif
645 #if defined(_DERIVATE)
646 double ijbc_Vtnode_GND;
647 double ijbc_Vbi_ci;
648 double ijbc_Vbi_ei;
649 #endif
650 #if defined(_DERIVATE)
651 double ijbe_Vtnode_GND;
652 double ijbe_Vbi_ei;
653 #endif
654 double ire;
655 #if defined(_DERIVATE)
656 double ire_Vtnode_GND;
657 double ire_Vbi_ei;
658 #endif
659 double ibe;
660 #if defined(_DERIVATE)
661 double ibe_Vtnode_GND;
662 double ibe_Vbi_ei;
663 #endif
664 double le;
665 #if defined(_DERIVATE)
666 double le_Vs_ci;
667 double le_Vbi_ci;
668 double le_Vbi_ei;
669 double le_Vtnode_GND;
670 #endif
671 double DIOY;
672 #if defined(_DERIVATE)
673 double DIOY_Vs_ci;
674 double DIOY_Vbi_ci;
675 double DIOY_Vbi_ei;
676 double DIOY_Vtnode_GND;
677 #endif
678 #if defined(_DYNAMIC)
679 double qr;
680 #if defined(_DERIVATE)
681 double qr_Vtnode_GND;
682 double qr_Vbi_ci;
683 double qr_Vb_ci;
684 double qr_Vbi_ei;
685 double qr_Vci_ei;
686 #endif
687 #endif
688 double tf;
689 #if defined(_DYNAMIC)
690 double qf;
691 #if defined(_DERIVATE)
692 double qf_Vtnode_GND;
693 double qf_Vbi_ci;
694 double qf_Vb_ci;
695 double qf_Vbi_ei;
696 double qf_Vci_ei;
697 #endif
698 #endif
699 #if defined(_DYNAMIC)
700 double dqef;
701 #if defined(_DERIVATE)
702 double dqef_Vtnode_GND;
703 double dqef_Vbi_ei;
704 double dqef_Vbi_ci;
705 double dqef_Vb_ci;
706 double dqef_Vci_ei;
707 #endif
708 #endif
709 #if defined(_DYNAMIC)
710 double dtef;
711 #if defined(_DERIVATE)
712 double dtef_Vtnode_GND;
713 double dtef_Vbi_ei;
714 double dtef_Vbi_ci;
715 double dtef_Vb_ci;
716 double dtef_Vci_ei;
717 #endif
718 #endif
719 double dtfh;
720 #if defined(_DYNAMIC)
721 double dqfh;
722 #if defined(_DERIVATE)
723 double dqfh_Vtnode_GND;
724 double dqfh_Vci_ei;
725 double dqfh_Vbi_ei;
726 double dqfh_Vbi_ci;
727 double dqfh_Vb_ci;
728 #endif
729 #endif
730 #if defined(_DYNAMIC)
731 double tww;
732 #if defined(_DERIVATE)
733 double tww_Vtnode_GND;
734 double tww_Vci_ei;
735 double tww_Vbi_ei;
736 double tww_Vbi_ci;
737 double tww_Vb_ci;
738 #endif
739 #endif
740 #if defined(_DYNAMIC)
741 double w;
742 #if defined(_DERIVATE)
743 double w_Vci_ei;
744 double w_Vbi_ei;
745 double w_Vbi_ci;
746 double w_Vb_ci;
747 double w_Vtnode_GND;
748 #endif
749 #endif
750 #if defined(_DYNAMIC)
751 double s3;
752 #if defined(_DERIVATE)
753 double s3_Vci_ei;
754 double s3_Vbi_ei;
755 double s3_Vbi_ci;
756 double s3_Vb_ci;
757 double s3_Vtnode_GND;
758 #endif
759 #endif
760 #if defined(_DYNAMIC)
761 double qf0;
762 #if defined(_DERIVATE)
763 double qf0_Vtnode_GND;
764 double qf0_Vbi_ci;
765 double qf0_Vb_ci;
766 double qf0_Vbi_ei;
767 double qf0_Vci_ei;
768 #endif
769 #endif
770 #if defined(_DERIVATE)
771 double it_Vtnode_GND;
772 double it_Vbi_ei;
773 double it_Vbi_ci;
774 double it_Vb_ci;
775 double it_Vci_ei;
776 #endif
777 double itr;
778 #if defined(_DERIVATE)
779 double itr_Vtnode_GND;
780 double itr_Vbi_ci;
781 double itr_Vb_ci;
782 double itr_Vbi_ei;
783 double itr_Vci_ei;
784 #endif
785 double itf;
786 #if defined(_DERIVATE)
787 double itf_Vtnode_GND;
788 double itf_Vbi_ei;
789 double itf_Vbi_ci;
790 double itf_Vb_ci;
791 double itf_Vci_ei;
792 #endif
793 double facl;
794 #if defined(_DERIVATE)
795 double facl_Vtnode_GND;
796 double facl_Vci_ei;
797 double facl_Vbi_ei;
798 double facl_Vbi_ci;
799 double facl_Vb_ci;
800 #endif
801 double d_qfh;
802 #if defined(_DERIVATE)
803 double d_qfh_Vtnode_GND;
804 double d_qfh_Vci_ei;
805 double d_qfh_Vbi_ei;
806 double d_qfh_Vbi_ci;
807 double d_qfh_Vb_ci;
808 #endif
809 double wl;
810 #if defined(_DERIVATE)
811 double wl_Vtnode_GND;
812 double wl_Vci_ei;
813 double wl_Vbi_ei;
814 double wl_Vbi_ci;
815 double wl_Vb_ci;
816 #endif
817 double s3l;
818 #if defined(_DERIVATE)
819 double s3l_Vtnode_GND;
820 double s3l_Vci_ei;
821 double s3l_Vbi_ei;
822 double s3l_Vbi_ci;
823 double s3l_Vb_ci;
824 #endif
825 double al;
826 #if defined(_DERIVATE)
827 double al_Vtnode_GND;
828 double al_Vci_ei;
829 double al_Vbi_ei;
830 double al_Vbi_ci;
831 double al_Vb_ci;
832 #endif
833 double itrl;
834 #if defined(_DERIVATE)
835 double itrl_Vtnode_GND;
836 double itrl_Vbi_ci;
837 double itrl_Vb_ci;
838 double itrl_Vbi_ei;
839 #endif
840 double itfl;
841 #if defined(_DERIVATE)
842 double itfl_Vtnode_GND;
843 double itfl_Vbi_ei;
844 double itfl_Vbi_ci;
845 double itfl_Vb_ci;
846 #endif
847 double qpt;
848 #if defined(_DERIVATE)
849 double qpt_Vbi_ci;
850 double qpt_Vtnode_GND;
851 double qpt_Vb_ci;
852 double qpt_Vbi_ei;
853 #endif
854 double qm;
855 #if defined(_DERIVATE)
856 double qm_Vtnode_GND;
857 double qm_Vbi_ei;
858 double qm_Vbi_ci;
859 #endif
860 double itri;
861 #if defined(_DERIVATE)
862 double itri_Vtnode_GND;
863 double itri_Vbi_ci;
864 #endif
865 double le2;
866 #if defined(_DERIVATE)
867 double le2_Vbi_ci;
868 double le2_Vtnode_GND;
869 #endif
870 double arg2;
871 #if defined(_DERIVATE)
872 double arg2_Vbi_ci;
873 double arg2_Vtnode_GND;
874 #endif
875 double itfi;
876 #if defined(_DERIVATE)
877 double itfi_Vtnode_GND;
878 double itfi_Vbi_ei;
879 #endif
880 double le1;
881 #if defined(_DERIVATE)
882 double le1_Vbi_ei;
883 double le1_Vtnode_GND;
884 #endif
885 double arg1;
886 #if defined(_DERIVATE)
887 double arg1_Vbi_ei;
888 double arg1_Vtnode_GND;
889 #endif
890 double ickr;
891 double ickf;
892 #if defined(_DYNAMIC)
893 double tf0;
894 #if defined(_DERIVATE)
895 double tf0_Vtnode_GND;
896 double tf0_Vbi_ci;
897 double tf0_Vb_ci;
898 #endif
899 #endif
900 double qj_2;
901 #if defined(_DERIVATE)
902 double qj_2_Vbi_ci;
903 double qj_2_Vtnode_GND;
904 double qj_2_Vb_ci;
905 #endif
906 double cc;
907 #if defined(_DERIVATE)
908 double cc_Vtnode_GND;
909 double cc_Vbi_ci;
910 double cc_Vb_ci;
911 #endif
912 double ick;
913 #if defined(_DERIVATE)
914 double ick_Vtnode_GND;
915 double ick_Vci_ei;
916 #endif
917 double vceff;
918 #if defined(_DERIVATE)
919 double vceff_Vtnode_GND;
920 double vceff_Vci_ei;
921 #endif
922 double uvc;
923 #if defined(_DERIVATE)
924 double uvc_Vci_ei;
925 double uvc_Vtnode_GND;
926 #endif
927 double vc;
928 #if defined(_DERIVATE)
929 double vc_Vci_ei;
930 double vc_Vtnode_GND;
931 #endif
932 #if defined(_DERIVATEFORDDX)
933 double qjei_Vtnode_GND;
934 double qjei_Vbi_ei;
935 double qjei_Vbi_ci;
936 double qjei_Vb_ci;
937 #if defined(_DERIVATE)
938  double qjei_Vbi_ci_Vtnode_GND;
939  double qjei_Vbi_ci_Vbi_ei;
940  double qjei_Vbi_ci_Vbi_ci;
941  double qjei_Vbi_ci_Vb_ci;
942  double qjei_Vbi_ei_Vtnode_GND;
943  double qjei_Vbi_ei_Vbi_ei;
944  double qjei_Vbi_ei_Vbi_ci;
945  double qjei_Vbi_ei_Vb_ci;
946 #endif
947 #endif
948 double cjcii;
949 #if defined(_DERIVATE)
950 double cjcii_Vtnode_GND;
951 double cjcii_Vbi_ci;
952 double cjcii_Vb_ci;
953 #endif
954 double dvj;
955 #if defined(_DERIVATE)
956 double dvj_Vbi_ci;
957 double dvj_Vtnode_GND;
958 double dvj_Vb_ci;
959 #endif
960 #if defined(_DYNAMIC)
961 double qjcii;
962 #if defined(_DERIVATE)
963 double qjcii_Vbi_ci;
964 double qjcii_Vtnode_GND;
965 double qjcii_Vb_ci;
966 #endif
967 #endif
968 #if defined(_DERIVATE)
969 double qjci_Vbi_ci;
970 double qjci_Vtnode_GND;
971 double qjci_Vb_ci;
972 #endif
973 double cjcx0_t_ii;
974 #if defined(_DERIVATE)
975 double cjcx0_t_ii_Vtnode_GND;
976 #endif
977 double y;
978 #if defined(_DERIVATEFORDDX)
979 double y_Vci_ei;
980 double y_Vs_ci;
981 double y_Vbi_ei;
982 double y_Vbi_ci;
983 double y_Vtnode_GND;
984 double y_Vb_ci;
985 #if defined(_DERIVATE)
986  double y_Vbi_ci_Vci_ei;
987  double y_Vbi_ci_Vs_ci;
988  double y_Vbi_ci_Vbi_ei;
989  double y_Vbi_ci_Vbi_ci;
990  double y_Vbi_ci_Vtnode_GND;
991  double y_Vbi_ci_Vb_ci;
992  double y_Vbi_ei_Vci_ei;
993  double y_Vbi_ei_Vs_ci;
994  double y_Vbi_ei_Vbi_ei;
995  double y_Vbi_ei_Vbi_ci;
996  double y_Vbi_ei_Vtnode_GND;
997  double y_Vbi_ei_Vb_ci;
998 #endif
999 #endif
1000 double x;
1001 #if defined(_DERIVATE)
1002 double x_Vtnode_GND;
1003 double x_Vci_ei;
1004 #endif
1005 double v_j;
1006 #if defined(_DERIVATEFORDDX)
1007 double v_j_Vs_ci;
1008 double v_j_Vbi_ei;
1009 double v_j_Vbi_ci;
1010 double v_j_Vtnode_GND;
1011 double v_j_Vb_ci;
1012 #if defined(_DERIVATE)
1013  double v_j_Vbi_ci_Vs_ci;
1014  double v_j_Vbi_ci_Vbi_ei;
1015  double v_j_Vbi_ci_Vbi_ci;
1016  double v_j_Vbi_ci_Vtnode_GND;
1017  double v_j_Vbi_ci_Vb_ci;
1018  double v_j_Vbi_ei_Vs_ci;
1019  double v_j_Vbi_ei_Vbi_ei;
1020  double v_j_Vbi_ei_Vbi_ci;
1021  double v_j_Vbi_ei_Vtnode_GND;
1022  double v_j_Vbi_ei_Vb_ci;
1023 #endif
1024 #endif
1025 double xvf2;
1026 #if defined(_DERIVATEFORDDX)
1027 double xvf2_Vs_ci;
1028 double xvf2_Vbi_ei;
1029 double xvf2_Vbi_ci;
1030 double xvf2_Vtnode_GND;
1031 double xvf2_Vb_ci;
1032 #if defined(_DERIVATE)
1033  double xvf2_Vbi_ci_Vs_ci;
1034  double xvf2_Vbi_ci_Vbi_ei;
1035  double xvf2_Vbi_ci_Vbi_ci;
1036  double xvf2_Vbi_ci_Vtnode_GND;
1037  double xvf2_Vbi_ci_Vb_ci;
1038  double xvf2_Vbi_ei_Vs_ci;
1039  double xvf2_Vbi_ei_Vbi_ei;
1040  double xvf2_Vbi_ei_Vbi_ci;
1041  double xvf2_Vbi_ei_Vtnode_GND;
1042  double xvf2_Vbi_ei_Vb_ci;
1043 #endif
1044 #endif
1045 double xvf;
1046 #if defined(_DERIVATEFORDDX)
1047 double xvf_Vs_ci;
1048 double xvf_Vbi_ei;
1049 double xvf_Vbi_ci;
1050 double xvf_Vtnode_GND;
1051 double xvf_Vb_ci;
1052 #if defined(_DERIVATE)
1053  double xvf_Vbi_ci_Vs_ci;
1054  double xvf_Vbi_ci_Vbi_ei;
1055  double xvf_Vbi_ci_Vbi_ci;
1056  double xvf_Vbi_ci_Vtnode_GND;
1057  double xvf_Vbi_ci_Vb_ci;
1058  double xvf_Vbi_ei_Vs_ci;
1059  double xvf_Vbi_ei_Vbi_ei;
1060  double xvf_Vbi_ei_Vbi_ci;
1061  double xvf_Vbi_ei_Vtnode_GND;
1062  double xvf_Vbi_ei_Vb_ci;
1063 #endif
1064 #endif
1065 #if defined(_DYNAMIC)
1066 double qjcx;
1067 #if defined(_DERIVATE)
1068 double qjcx_Vbi_ci;
1069 double qjcx_Vtnode_GND;
1070 double qjcx_Vb_ci;
1071 #endif
1072 #endif
1073 double qj3;
1074 #if defined(_DERIVATE)
1075 double qj3_Vci_ei;
1076 double qj3_Vbi_ei;
1077 double qj3_Vs_ci;
1078 double qj3_Vbi_ci;
1079 double qj3_Vtnode_GND;
1080 double qj3_Vb_ci;
1081 #endif
1082 double qj2;
1083 #if defined(_DERIVATE)
1084 double qj2_Vci_ei;
1085 double qj2_Vbi_ei;
1086 double qj2_Vs_ci;
1087 double qj2_Vbi_ci;
1088 double qj2_Vtnode_GND;
1089 double qj2_Vb_ci;
1090 #endif
1091 double qj1;
1092 #if defined(_DERIVATE)
1093 double qj1_Vci_ei;
1094 double qj1_Vbi_ei;
1095 double qj1_Vs_ci;
1096 double qj1_Vbi_ci;
1097 double qj1_Vtnode_GND;
1098 double qj1_Vb_ci;
1099 #endif
1100 double vdj2;
1101 #if defined(_DERIVATE)
1102 double vdj2_Vci_ei;
1103 double vdj2_Vbi_ei;
1104 double vdj2_Vs_ci;
1105 double vdj2_Vbi_ci;
1106 double vdj2_Vtnode_GND;
1107 double vdj2_Vb_ci;
1108 #endif
1109 double vdj1;
1110 #if defined(_DERIVATE)
1111 double vdj1_Vci_ei;
1112 double vdj1_Vbi_ei;
1113 double vdj1_Vs_ci;
1114 double vdj1_Vbi_ci;
1115 double vdj1_Vtnode_GND;
1116 double vdj1_Vb_ci;
1117 #endif
1118 double ezr;
1119 double ez;
1120 double vj4;
1121 #if defined(_DERIVATE)
1122 double vj4_Vs_ci;
1123 double vj4_Vci_ei;
1124 double vj4_Vbi_ei;
1125 double vj4_Vbi_ci;
1126 double vj4_Vb_ci;
1127 double vj4_Vtnode_GND;
1128 #endif
1129 double vj2;
1130 #if defined(_DERIVATE)
1131 double vj2_Vci_ei;
1132 double vj2_Vbi_ei;
1133 double vj2_Vs_ci;
1134 double vj2_Vbi_ci;
1135 double vj2_Vtnode_GND;
1136 double vj2_Vb_ci;
1137 #endif
1138 double vr;
1139 #if defined(_DERIVATE)
1140 double vr_Vci_ei;
1141 double vr_Vbi_ei;
1142 double vr_Vs_ci;
1143 double vr_Vbi_ci;
1144 double vr_Vtnode_GND;
1145 double vr_Vb_ci;
1146 #endif
1147 double vj1;
1148 #if defined(_DERIVATE)
1149 double vj1_Vci_ei;
1150 double vj1_Vbi_ei;
1151 double vj1_Vs_ci;
1152 double vj1_Vbi_ci;
1153 double vj1_Vtnode_GND;
1154 double vj1_Vb_ci;
1155 #endif
1156 double ee1;
1157 #if defined(_DERIVATE)
1158 double ee1_Vs_ci;
1159 double ee1_Vci_ei;
1160 double ee1_Vbi_ei;
1161 double ee1_Vbi_ci;
1162 double ee1_Vtnode_GND;
1163 double ee1_Vb_ci;
1164 #endif
1165 double ex1;
1166 #if defined(_DERIVATE)
1167 double ex1_Vs_ci;
1168 double ex1_Vci_ei;
1169 double ex1_Vbi_ei;
1170 double ex1_Vbi_ci;
1171 double ex1_Vtnode_GND;
1172 double ex1_Vb_ci;
1173 #endif
1174 double ve;
1175 #if defined(_DERIVATE)
1176 double ve_Vs_ci;
1177 double ve_Vci_ei;
1178 double ve_Vbi_ei;
1179 double ve_Vbi_ci;
1180 double ve_Vtnode_GND;
1181 double ve_Vb_ci;
1182 #endif
1183 double a;
1184 #if defined(_DERIVATE)
1185 double a_Vci_ei;
1186 double a_Vbi_ei;
1187 double a_Vbi_ci;
1188 double a_Vb_ci;
1189 double a_Vtnode_GND;
1190 #endif
1191 double cr;
1192 #if defined(_DERIVATE)
1193 double cr_Vtnode_GND;
1194 #endif
1195 double cmax;
1196 #if defined(_DERIVATE)
1197 double cmax_Vtnode_GND;
1198 #endif
1199 double vf;
1200 #if defined(_DERIVATE)
1201 double vf_Vtnode_GND;
1202 #endif
1203 double vp;
1204 #if defined(_DERIVATE)
1205 double vp_Vtnode_GND;
1206 #endif
1207 double zr;
1208 double cjcx0_t_i;
1209 #if defined(_DERIVATE)
1210 double cjcx0_t_i_Vtnode_GND;
1211 #endif
1212 #if defined(_DYNAMIC)
1213 double qjcxi;
1214 #if defined(_DERIVATE)
1215 double qjcxi_Vbi_ci;
1216 double qjcxi_Vtnode_GND;
1217 double qjcxi_Vb_ci;
1218 #endif
1219 #endif
1220 double cjci0_t_ii;
1221 #if defined(_DERIVATE)
1222 double cjci0_t_ii_Vtnode_GND;
1223 #endif
1224 double kavl_t;
1225 #if defined(_DERIVATE)
1226 double kavl_t_Vtnode_GND;
1227 #endif
1228 double eavl_t;
1229 #if defined(_DERIVATE)
1230 double eavl_t_Vtnode_GND;
1231 #endif
1232 double re_t;
1233 #if defined(_DERIVATE)
1234 double re_t_Vtnode_GND;
1235 #endif
1236 double rbi0_t;
1237 #if defined(_DERIVATE)
1238 double rbi0_t_Vtnode_GND;
1239 #endif
1240 double rcx_t;
1241 #if defined(_DERIVATE)
1242 double rcx_t_Vtnode_GND;
1243 #endif
1244 double rbx_t;
1245 #if defined(_DERIVATE)
1246 double rbx_t_Vtnode_GND;
1247 #endif
1248 #if defined(_DYNAMIC)
1249 double tef0_t;
1250 #if defined(_DERIVATE)
1251 double tef0_t_Vtnode_GND;
1252 #endif
1253 #endif
1254 #if defined(_DYNAMIC)
1255 double dvg;
1256 #endif
1257 #if defined(_DYNAMIC)
1258 double zetatef;
1259 #endif
1260 #if defined(_DYNAMIC)
1261 double thcs_t;
1262 #if defined(_DERIVATE)
1263 double thcs_t_Vtnode_GND;
1264 #endif
1265 #endif
1266 #if defined(_DYNAMIC)
1267 double t0_t;
1268 #if defined(_DERIVATE)
1269 double t0_t_Vtnode_GND;
1270 #endif
1271 #endif
1272 double vces_t;
1273 #if defined(_DERIVATE)
1274 double vces_t_Vtnode_GND;
1275 #endif
1276 double vlim_t;
1277 #if defined(_DERIVATE)
1278 double vlim_t_Vtnode_GND;
1279 #endif
1280 double rci0_t;
1281 #if defined(_DERIVATE)
1282 double rci0_t_Vtnode_GND;
1283 #endif
1284 #if defined(_DYNAMIC)
1285 double cjs0_t;
1286 #if defined(_DERIVATE)
1287 double cjs0_t_Vtnode_GND;
1288 #endif
1289 #endif
1290 #if defined(_DYNAMIC)
1291 double vds_t;
1292 #if defined(_DERIVATE)
1293 double vds_t_Vtnode_GND;
1294 #endif
1295 #endif
1296 double cjcx0_t;
1297 #if defined(_DERIVATE)
1298 double cjcx0_t_Vtnode_GND;
1299 #endif
1300 double vdcx_t;
1301 #if defined(_DERIVATE)
1302 double vdcx_t_Vtnode_GND;
1303 #endif
1304 double cjci0_t;
1305 #if defined(_DERIVATE)
1306 double cjci0_t_Vtnode_GND;
1307 #endif
1308 double vdci_t;
1309 #if defined(_DERIVATE)
1310 double vdci_t_Vtnode_GND;
1311 #endif
1312 double aje_t;
1313 #if defined(_DERIVATE)
1314 double aje_t_Vtnode_GND;
1315 #endif
1316 double cje0_t;
1317 #if defined(_DERIVATE)
1318 double cje0_t_Vtnode_GND;
1319 #endif
1320 double vde_t;
1321 #if defined(_DERIVATE)
1322 double vde_t_Vtnode_GND;
1323 #endif
1324 double vdjt;
1325 #if defined(_DERIVATE)
1326 double vdjt_Vtnode_GND;
1327 #endif
1328 double vdj0;
1329 double arg;
1330 double iscs_t;
1331 #if defined(_DERIVATE)
1332 double iscs_t_Vtnode_GND;
1333 #endif
1334 double itss_t;
1335 #if defined(_DERIVATE)
1336 double itss_t_Vtnode_GND;
1337 #endif
1338 double ibcs_t;
1339 #if defined(_DERIVATE)
1340 double ibcs_t_Vtnode_GND;
1341 #endif
1342 double ires_t;
1343 #if defined(_DERIVATE)
1344 double ires_t_Vtnode_GND;
1345 #endif
1346 double ibes_t;
1347 #if defined(_DERIVATE)
1348 double ibes_t_Vtnode_GND;
1349 #endif
1350 double is_t;
1351 #if defined(_DERIVATE)
1352 double is_t_Vtnode_GND;
1353 #endif
1354 double zetasct;
1355 double zetabci;
1356 double mg;
1357 #if defined(_DYNAMIC)
1358 double vgsc;
1359 #endif
1360 double vgbc;
1361 double vgbe;
1362 double avs;
1363 double k2;
1364 double k1;
1365 double ln_qtt0;
1366 #if defined(_DERIVATE)
1367 double ln_qtt0_Vtnode_GND;
1368 #endif
1369 double qtt0;
1370 #if defined(_DERIVATE)
1371 double qtt0_Vtnode_GND;
1372 #endif
1373 double dT;
1374 #if defined(_DERIVATE)
1375 double dT_Vtnode_GND;
1376 #endif
1377 double VT;
1378 #if defined(_DERIVATE)
1379 double VT_Vtnode_GND;
1380 #endif
1381 double VT0;
1382 double Tdev;
1383 #if defined(_DERIVATE)
1384 double Tdev_Vtnode_GND;
1385 #endif
1386 double Tamb;
1387 double Tnom;
1388 double Vrth;
1389 #if defined(_DERIVATE)
1390 double Vrth_Vtnode_GND;
1391 #endif
1392 #if defined(_DYNAMIC)
1393 double Vbe;
1394 #if defined(_DERIVATE)
1395 double Vbe_Vb_e;
1396 #endif
1397 #endif
1398 double Vbbi;
1399 #if defined(_DERIVATE)
1400 double Vbbi_Vb_bi;
1401 #endif
1402 double Vcic;
1403 #if defined(_DERIVATE)
1404 double Vcic_Vci_c;
1405 #endif
1406 double Veie;
1407 #if defined(_DERIVATE)
1408 double Veie_Vei_e;
1409 #endif
1410 double Vsci;
1411 #if defined(_DERIVATE)
1412 double Vsci_Vs_ci;
1413 #endif
1414 double Vciei;
1415 #if defined(_DERIVATE)
1416 double Vciei_Vci_ei;
1417 #endif
1418 double Vbiei;
1419 #if defined(_DERIVATEFORDDX)
1420 double Vbiei_Vbi_ei;
1421 #if defined(_DERIVATE)
1422  double Vbiei_Vbi_ei_Vbi_ei;
1423 #endif
1424 #endif
1425 double Vbici;
1426 #if defined(_DERIVATEFORDDX)
1427 double Vbici_Vbi_ci;
1428 #if defined(_DERIVATE)
1429  double Vbici_Vbi_ci_Vbi_ci;
1430 #endif
1431 #endif
1432 double Vbci;
1433 #if defined(_DERIVATE)
1434 double Vbci_Vb_ci;
1435 #endif
1436 #if defined(_DERIVATE)
1437 Vbci_Vb_ci=(HICUMtype);
1438 #endif
1439 Vbci=(HICUMtype*BP(b,ci));
1440 #if defined(_DERIVATEFORDDX)
1441 Vbici_Vbi_ci=(HICUMtype);
1442 #if defined(_DERIVATE)
1443  Vbici_Vbi_ci_Vbi_ci=(+0.0*BP(bi,ci)+0.0*1.0+0.0*1.0+HICUMtype*0.0);
1444 #endif
1445 #endif
1446 Vbici=(HICUMtype*BP(bi,ci));
1447 #if defined(_DERIVATEFORDDX)
1448 Vbiei_Vbi_ei=(HICUMtype);
1449 #if defined(_DERIVATE)
1450  Vbiei_Vbi_ei_Vbi_ei=(+0.0*BP(bi,ei)+0.0*1.0+0.0*1.0+HICUMtype*0.0);
1451 #endif
1452 #endif
1453 Vbiei=(HICUMtype*BP(bi,ei));
1454 #if defined(_DERIVATE)
1455 Vciei_Vci_ei=(HICUMtype);
1456 #endif
1457 Vciei=(HICUMtype*BP(ci,ei));
1458 #if defined(_DERIVATE)
1459 Vsci_Vs_ci=(HICUMtype);
1460 #endif
1461 Vsci=(HICUMtype*BP(s,ci));
1462 #if defined(_DERIVATE)
1463 Veie_Vei_e=1.0;
1464 #endif
1465 Veie=BP(ei,e);
1466 #if defined(_DERIVATE)
1467 Vcic_Vci_c=1.0;
1468 #endif
1469 Vcic=BP(ci,c);
1470 #if defined(_DERIVATE)
1471 Vbbi_Vb_bi=1.0;
1472 #endif
1473 Vbbi=BP(b,bi);
1474 #if defined(_DYNAMIC)
1475 #if defined(_DERIVATE)
1476 Vbe_Vb_e=(HICUMtype);
1477 #endif
1478 Vbe=(HICUMtype*BP(b,e));
1479 #endif
1480 #if defined(_DERIVATE)
1481 Vrth_Vtnode_GND=1.0;
1482 #endif
1483 Vrth=NP(tnode);
1484 Tnom=(tnom+273.15);
1485 Tamb=_circuit_temp;
1486 #if defined(_DERIVATE)
1487 Tdev_Vtnode_GND=Vrth_Vtnode_GND;
1488 #endif
1489 Tdev=((Tamb+dt)+Vrth);
1490 if
1491 ((Tdev<((-100.0)+273.15)))
1492 {
1493 #if defined(_DERIVATE)
1494 Tdev_Vtnode_GND=0.0;
1495 #endif
1496 Tdev=((-100.0)+273.15);
1497 }
1498 else
1499 {
1500 if
1501 ((Tdev>(326.85+273.15)))
1502 {
1503 #if defined(_DERIVATE)
1504 Tdev_Vtnode_GND=0.0;
1505 #endif
1506 Tdev=(326.85+273.15);
1507 }
1508 }
1509 VT0=((1.3806503e-23*Tnom)/1.602176462e-19);
1510 #if defined(_DERIVATE)
1511 VT_Vtnode_GND=((1.3806503e-23*Tdev_Vtnode_GND)/1.602176462e-19);
1512 #endif
1513 VT=((1.3806503e-23*Tdev)/1.602176462e-19);
1514 #if defined(_DERIVATE)
1515 dT_Vtnode_GND=Tdev_Vtnode_GND;
1516 #endif
1517 dT=(Tdev-Tnom);
1518 #if defined(_DERIVATE)
1519 qtt0_Vtnode_GND=(Tdev_Vtnode_GND/Tnom);
1520 #endif
1521 qtt0=(Tdev/Tnom);
1522 {
1523 double m00_logE(d00_logE0,qtt0)
1524 #if defined(_DERIVATE)
1525 double m10_logE(d10_logE0,d00_logE0,qtt0)
1526 #endif
1527 #if defined(_DERIVATE)
1528 ln_qtt0_Vtnode_GND=qtt0_Vtnode_GND*d10_logE0;
1529 #endif
1530 ln_qtt0=d00_logE0;
1531 }
1532 #if defined(_DYNAMIC)
1533 k1=(f1vg*Tnom);
1534 #endif
1535 #if defined(_DYNAMIC)
1536 {
1537 double m00_logE(d00_logE0,Tnom)
1538 k2=((f2vg*Tnom)+(k1*d00_logE0));
1539 }
1540 #endif
1541 avs=(alvs*Tnom);
1542 vgbe=((vgb+vge)/2);
1543 vgbc=((vgb+vgc)/2);
1544 #if defined(_DYNAMIC)
1545 vgsc=((vgs+vgc)/2);
1546 #endif
1547 mg=(3-((1.602176462e-19*f1vg)/1.3806503e-23));
1548 zetabci=((mg+1)-zetaci);
1549 zetasct=(mg-1.5);
1550 {
1551 double m00_exp(d00_exp0,((zetact*ln_qtt0)+((vgb/VT)*(qtt0-1))))
1552 #if defined(_DERIVATE)
1553 #define d10_exp0 d00_exp0
1554 #endif
1555 #if defined(_DERIVATE)
1556 is_t_Vtnode_GND=(is*((zetact*ln_qtt0_Vtnode_GND)+(((-vgb*VT_Vtnode_GND/VT/VT)*(qtt0-1))+((vgb/VT)*qtt0_Vtnode_GND)))*d10_exp0);
1557 #endif
1558 is_t=(is*d00_exp0);
1559 }
1560 {
1561 double m00_exp(d00_exp0,((zetabet*ln_qtt0)+((vge/VT)*(qtt0-1))))
1562 #if defined(_DERIVATE)
1563 #define d10_exp0 d00_exp0
1564 #endif
1565 #if defined(_DERIVATE)
1566 ibes_t_Vtnode_GND=(ibes*((zetabet*ln_qtt0_Vtnode_GND)+(((-vge*VT_Vtnode_GND/VT/VT)*(qtt0-1))+((vge/VT)*qtt0_Vtnode_GND)))*d10_exp0);
1567 #endif
1568 ibes_t=(ibes*d00_exp0);
1569 }
1570 {
1571 double m00_exp(d00_exp0,(((0.5*mg)*ln_qtt0)+(((0.5*vgbe)/VT)*(qtt0-1))))
1572 #if defined(_DERIVATE)
1573 #define d10_exp0 d00_exp0
1574 #endif
1575 #if defined(_DERIVATE)
1576 ires_t_Vtnode_GND=(ires*(((0.5*mg)*ln_qtt0_Vtnode_GND)+(((-(0.5*vgbe)*VT_Vtnode_GND/VT/VT)*(qtt0-1))+(((0.5*vgbe)/VT)*qtt0_Vtnode_GND)))*d10_exp0);
1577 #endif
1578 ires_t=(ires*d00_exp0);
1579 }
1580 {
1581 double m00_exp(d00_exp0,((zetabci*ln_qtt0)+((vgc/VT)*(qtt0-1))))
1582 #if defined(_DERIVATE)
1583 #define d10_exp0 d00_exp0
1584 #endif
1585 #if defined(_DERIVATE)
1586 ibcs_t_Vtnode_GND=(ibcs*((zetabci*ln_qtt0_Vtnode_GND)+(((-vgc*VT_Vtnode_GND/VT/VT)*(qtt0-1))+((vgc/VT)*qtt0_Vtnode_GND)))*d10_exp0);
1587 #endif
1588 ibcs_t=(ibcs*d00_exp0);
1589 }
1590 {
1591 double m00_exp(d00_exp0,((zetasct*ln_qtt0)+((vgc/VT)*(qtt0-1))))
1592 #if defined(_DERIVATE)
1593 #define d10_exp0 d00_exp0
1594 #endif
1595 #if defined(_DERIVATE)
1596 itss_t_Vtnode_GND=(itss*((zetasct*ln_qtt0_Vtnode_GND)+(((-vgc*VT_Vtnode_GND/VT/VT)*(qtt0-1))+((vgc/VT)*qtt0_Vtnode_GND)))*d10_exp0);
1597 #endif
1598 itss_t=(itss*d00_exp0);
1599 }
1600 {
1601 double m00_exp(d00_exp0,((zetasct*ln_qtt0)+((vgs/VT)*(qtt0-1))))
1602 #if defined(_DERIVATE)
1603 #define d10_exp0 d00_exp0
1604 #endif
1605 #if defined(_DERIVATE)
1606 iscs_t_Vtnode_GND=(iscs*((zetasct*ln_qtt0_Vtnode_GND)+(((-vgs*VT_Vtnode_GND/VT/VT)*(qtt0-1))+((vgs/VT)*qtt0_Vtnode_GND)))*d10_exp0);
1607 #endif
1608 iscs_t=(iscs*d00_exp0);
1609 }
1610 arg=((0.5*vde)/VT0);
1611 {
1612 double m00_exp(d00_exp0,arg)
1613 double m00_exp(d00_exp1,(-arg))
1614 double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
1615 vdj0=((2*VT0)*d00_logE2);
1616 }
1617 #if defined(_DERIVATE)
1618 vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgbe*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
1619 #endif
1620 vdjt=(((vdj0*qtt0)+(vgbe*(1-qtt0)))-((mg*VT)*ln_qtt0));
1621 {
1622 double m00_exp(d00_exp0,((-vdjt)/VT))
1623 double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
1624 double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
1625 #if defined(_DERIVATE)
1626 #define d10_exp0 d00_exp0
1627 double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
1628 double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
1629 #endif
1630 #if defined(_DERIVATE)
1631 vde_t_Vtnode_GND=(vdjt_Vtnode_GND+(((2*VT_Vtnode_GND)*d00_logE2)+((2*VT)*(0.5*(4*(((-vdjt_Vtnode_GND)*VT-(-vdjt)*VT_Vtnode_GND)/VT/VT)*d10_exp0)*d10_sqrt1)*d10_logE2)));
1632 #endif
1633 vde_t=(vdjt+((2*VT)*d00_logE2));
1634 }
1635 {
1636 double m00_logE(d00_logE0,(vde/vde_t))
1637 double m00_exp(d00_exp1,(ze*d00_logE0))
1638 #if defined(_DERIVATE)
1639 double m10_logE(d10_logE0,d00_logE0,(vde/vde_t))
1640 #define d10_exp1 d00_exp1
1641 #endif
1642 #if defined(_DERIVATE)
1643 cje0_t_Vtnode_GND=(cje0*(ze*(-vde*vde_t_Vtnode_GND/vde_t/vde_t)*d10_logE0)*d10_exp1);
1644 #endif
1645 cje0_t=(cje0*d00_exp1);
1646 }
1647 #if defined(_DERIVATE)
1648 aje_t_Vtnode_GND=((aje*vde_t_Vtnode_GND)/vde);
1649 #endif
1650 aje_t=((aje*vde_t)/vde);
1651 arg=((0.5*vdci)/VT0);
1652 {
1653 double m00_exp(d00_exp0,arg)
1654 double m00_exp(d00_exp1,(-arg))
1655 double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
1656 vdj0=((2*VT0)*d00_logE2);
1657 }
1658 #if defined(_DERIVATE)
1659 vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgbc*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
1660 #endif
1661 vdjt=(((vdj0*qtt0)+(vgbc*(1-qtt0)))-((mg*VT)*ln_qtt0));
1662 {
1663 double m00_exp(d00_exp0,((-vdjt)/VT))
1664 double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
1665 double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
1666 #if defined(_DERIVATE)
1667 #define d10_exp0 d00_exp0
1668 double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
1669 double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
1670 #endif
1671 #if defined(_DERIVATE)
1672 vdci_t_Vtnode_GND=(vdjt_Vtnode_GND+(((2*VT_Vtnode_GND)*d00_logE2)+((2*VT)*(0.5*(4*(((-vdjt_Vtnode_GND)*VT-(-vdjt)*VT_Vtnode_GND)/VT/VT)*d10_exp0)*d10_sqrt1)*d10_logE2)));
1673 #endif
1674 vdci_t=(vdjt+((2*VT)*d00_logE2));
1675 }
1676 {
1677 double m00_logE(d00_logE0,(vdci/vdci_t))
1678 double m00_exp(d00_exp1,(zci*d00_logE0))
1679 #if defined(_DERIVATE)
1680 double m10_logE(d10_logE0,d00_logE0,(vdci/vdci_t))
1681 #define d10_exp1 d00_exp1
1682 #endif
1683 #if defined(_DERIVATE)
1684 cjci0_t_Vtnode_GND=(cjci0*(zci*(-vdci*vdci_t_Vtnode_GND/vdci_t/vdci_t)*d10_logE0)*d10_exp1);
1685 #endif
1686 cjci0_t=(cjci0*d00_exp1);
1687 }
1688 arg=((0.5*vdcx)/VT0);
1689 {
1690 double m00_exp(d00_exp0,arg)
1691 double m00_exp(d00_exp1,(-arg))
1692 double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
1693 vdj0=((2*VT0)*d00_logE2);
1694 }
1695 #if defined(_DERIVATE)
1696 vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgbc*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
1697 #endif
1698 vdjt=(((vdj0*qtt0)+(vgbc*(1-qtt0)))-((mg*VT)*ln_qtt0));
1699 {
1700 double m00_exp(d00_exp0,((-vdjt)/VT))
1701 double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
1702 double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
1703 #if defined(_DERIVATE)
1704 #define d10_exp0 d00_exp0
1705 double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
1706 double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
1707 #endif
1708 #if defined(_DERIVATE)
1709 vdcx_t_Vtnode_GND=(vdjt_Vtnode_GND+(((2*VT_Vtnode_GND)*d00_logE2)+((2*VT)*(0.5*(4*(((-vdjt_Vtnode_GND)*VT-(-vdjt)*VT_Vtnode_GND)/VT/VT)*d10_exp0)*d10_sqrt1)*d10_logE2)));
1710 #endif
1711 vdcx_t=(vdjt+((2*VT)*d00_logE2));
1712 }
1713 {
1714 double m00_logE(d00_logE0,(vdcx/vdcx_t))
1715 double m00_exp(d00_exp1,(zcx*d00_logE0))
1716 #if defined(_DERIVATE)
1717 double m10_logE(d10_logE0,d00_logE0,(vdcx/vdcx_t))
1718 #define d10_exp1 d00_exp1
1719 #endif
1720 #if defined(_DERIVATE)
1721 cjcx0_t_Vtnode_GND=(cjcx0*(zcx*(-vdcx*vdcx_t_Vtnode_GND/vdcx_t/vdcx_t)*d10_logE0)*d10_exp1);
1722 #endif
1723 cjcx0_t=(cjcx0*d00_exp1);
1724 }
1725 #if defined(_DYNAMIC)
1726 arg=((0.5*vds)/VT0);
1727 #endif
1728 #if defined(_DYNAMIC)
1729 {
1730 double m00_exp(d00_exp0,arg)
1731 double m00_exp(d00_exp1,(-arg))
1732 double m00_logE(d00_logE2,(d00_exp0-d00_exp1))
1733 vdj0=((2*VT0)*d00_logE2);
1734 }
1735 #endif
1736 #if defined(_DYNAMIC)
1737 #if defined(_DERIVATE)
1738 vdjt_Vtnode_GND=(((vdj0*qtt0_Vtnode_GND)+(vgsc*(-qtt0_Vtnode_GND)))-(((mg*VT_Vtnode_GND)*ln_qtt0)+((mg*VT)*ln_qtt0_Vtnode_GND)));
1739 #endif
1740 vdjt=(((vdj0*qtt0)+(vgsc*(1-qtt0)))-((mg*VT)*ln_qtt0));
1741 #endif
1742 #if defined(_DYNAMIC)
1743 {
1744 double m00_exp(d00_exp0,((-vdjt)/VT))
1745 double m00_sqrt(d00_sqrt1,(1+(4*d00_exp0)))
1746 double m00_logE(d00_logE2,(0.5*(1+d00_sqrt1)))
1747 #if defined(_DERIVATE)
1748 #define d10_exp0 d00_exp0
1749 double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(4*d00_exp0)))
1750 double m10_logE(d10_logE2,d00_logE2,(0.5*(1+d00_sqrt1)))
1751 #endif
1752 #if defined(_DERIVATE)
1753 vds_t_Vtnode_GND=(vdjt_Vtnode_GND+(((2*VT_Vtnode_GND)*d00_logE2)+((2*VT)*(0.5*(4*(((-vdjt_Vtnode_GND)*VT-(-vdjt)*VT_Vtnode_GND)/VT/VT)*d10_exp0)*d10_sqrt1)*d10_logE2)));
1754 #endif
1755 vds_t=(vdjt+((2*VT)*d00_logE2));
1756 }
1757 #endif
1758 #if defined(_DYNAMIC)
1759 {
1760 double m00_logE(d00_logE0,(vds/vds_t))
1761 double m00_exp(d00_exp1,(zs*d00_logE0))
1762 #if defined(_DERIVATE)
1763 double m10_logE(d10_logE0,d00_logE0,(vds/vds_t))
1764 #define d10_exp1 d00_exp1
1765 #endif
1766 #if defined(_DERIVATE)
1767 cjs0_t_Vtnode_GND=(cjs0*(zs*(-vds*vds_t_Vtnode_GND/vds_t/vds_t)*d10_logE0)*d10_exp1);
1768 #endif
1769 cjs0_t=(cjs0*d00_exp1);
1770 }
1771 #endif
1772 {
1773 double m00_exp(d00_exp0,(zetaci*ln_qtt0))
1774 #if defined(_DERIVATE)
1775 #define d10_exp0 d00_exp0
1776 #endif
1777 #if defined(_DERIVATE)
1778 rci0_t_Vtnode_GND=(rci0*(zetaci*ln_qtt0_Vtnode_GND)*d10_exp0);
1779 #endif
1780 rci0_t=(rci0*d00_exp0);
1781 }
1782 {
1783 double m00_exp(d00_exp0,((zetaci-avs)*ln_qtt0))
1784 #if defined(_DERIVATE)
1785 #define d10_exp0 d00_exp0
1786 #endif
1787 #if defined(_DERIVATE)
1788 vlim_t_Vtnode_GND=(vlim*((zetaci-avs)*ln_qtt0_Vtnode_GND)*d10_exp0);
1789 #endif
1790 vlim_t=(vlim*d00_exp0);
1791 }
1792 #if defined(_DERIVATE)
1793 vces_t_Vtnode_GND=(vces*(alces*dT_Vtnode_GND));
1794 #endif
1795 vces_t=(vces*(1+(alces*dT)));
1796 #if defined(_DYNAMIC)
1797 #if defined(_DERIVATE)
1798 t0_t_Vtnode_GND=(t0*((alt0*dT_Vtnode_GND)+(((kt0*dT_Vtnode_GND)*dT)+((kt0*dT)*dT_Vtnode_GND))));
1799 #endif
1800 t0_t=(t0*((1+(alt0*dT))+((kt0*dT)*dT)));
1801 #endif
1802 #if defined(_DYNAMIC)
1803 {
1804 double m00_exp(d00_exp0,((zetaci-1)*ln_qtt0))
1805 #if defined(_DERIVATE)
1806 #define d10_exp0 d00_exp0
1807 #endif
1808 #if defined(_DERIVATE)
1809 thcs_t_Vtnode_GND=(thcs*((zetaci-1)*ln_qtt0_Vtnode_GND)*d10_exp0);
1810 #endif
1811 thcs_t=(thcs*d00_exp0);
1812 }
1813 #endif
1814 #if defined(_DYNAMIC)
1815 zetatef=((zetabet-zetact)-0.5);
1816 #endif
1817 #if defined(_DYNAMIC)
1818 dvg=(vgb-vge);
1819 #endif
1820 #if defined(_DYNAMIC)
1821 {
1822 double m00_exp(d00_exp0,((zetatef*ln_qtt0)-((dvg/VT)*(qtt0-1))))
1823 #if defined(_DERIVATE)
1824 #define d10_exp0 d00_exp0
1825 #endif
1826 #if defined(_DERIVATE)
1827 tef0_t_Vtnode_GND=(tef0*((zetatef*ln_qtt0_Vtnode_GND)-(((-dvg*VT_Vtnode_GND/VT/VT)*(qtt0-1))+((dvg/VT)*qtt0_Vtnode_GND)))*d10_exp0);
1828 #endif
1829 tef0_t=(tef0*d00_exp0);
1830 }
1831 #endif
1832 {
1833 double m00_exp(d00_exp0,(zetarbx*ln_qtt0))
1834 #if defined(_DERIVATE)
1835 #define d10_exp0 d00_exp0
1836 #endif
1837 #if defined(_DERIVATE)
1838 rbx_t_Vtnode_GND=(rbx*(zetarbx*ln_qtt0_Vtnode_GND)*d10_exp0);
1839 #endif
1840 rbx_t=(rbx*d00_exp0);
1841 }
1842 {
1843 double m00_exp(d00_exp0,(zetarcx*ln_qtt0))
1844 #if defined(_DERIVATE)
1845 #define d10_exp0 d00_exp0
1846 #endif
1847 #if defined(_DERIVATE)
1848 rcx_t_Vtnode_GND=(rcx*(zetarcx*ln_qtt0_Vtnode_GND)*d10_exp0);
1849 #endif
1850 rcx_t=(rcx*d00_exp0);
1851 }
1852 {
1853 double m00_exp(d00_exp0,(zetarbi*ln_qtt0))
1854 #if defined(_DERIVATE)
1855 #define d10_exp0 d00_exp0
1856 #endif
1857 #if defined(_DERIVATE)
1858 rbi0_t_Vtnode_GND=(rbi0*(zetarbi*ln_qtt0_Vtnode_GND)*d10_exp0);
1859 #endif
1860 rbi0_t=(rbi0*d00_exp0);
1861 }
1862 {
1863 double m00_exp(d00_exp0,(zetare*ln_qtt0))
1864 #if defined(_DERIVATE)
1865 #define d10_exp0 d00_exp0
1866 #endif
1867 #if defined(_DERIVATE)
1868 re_t_Vtnode_GND=(re*(zetare*ln_qtt0_Vtnode_GND)*d10_exp0);
1869 #endif
1870 re_t=(re*d00_exp0);
1871 }
1872 {
1873 double m00_exp(d00_exp0,(aleav*dT))
1874 #if defined(_DERIVATE)
1875 #define d10_exp0 d00_exp0
1876 #endif
1877 #if defined(_DERIVATE)
1878 eavl_t_Vtnode_GND=(eavl*(aleav*dT_Vtnode_GND)*d10_exp0);
1879 #endif
1880 eavl_t=(eavl*d00_exp0);
1881 }
1882 {
1883 double m00_exp(d00_exp0,(alkav*dT))
1884 #if defined(_DERIVATE)
1885 #define d10_exp0 d00_exp0
1886 #endif
1887 #if defined(_DERIVATE)
1888 kavl_t_Vtnode_GND=(kavl*(alkav*dT_Vtnode_GND)*d10_exp0);
1889 #endif
1890 kavl_t=(kavl*d00_exp0);
1891 }
1892 if
1893 ((cjcx0_t==0))
1894 {
1895 #if defined(_DERIVATE)
1896 cjci0_t_ii_Vtnode_GND=cjci0_t_Vtnode_GND*fbc;
1897 #endif
1898 cjci0_t_ii=(cjci0_t*fbc);
1899 #if defined(_DYNAMIC)
1900 #if defined(_DERIVATE)
1901 qjcxi_Vbi_ci=0.0;
1902 qjcxi_Vtnode_GND=0.0;
1903 qjcxi_Vb_ci=0.0;
1904 #endif
1905 qjcxi=0;
1906 #endif
1907 #if defined(_DERIVATE)
1908 cjcx0_t_i_Vtnode_GND=cjci0_t_Vtnode_GND*(1-fbc);
1909 #endif
1910 cjcx0_t_i=(cjci0_t*(1-fbc));
1911 if
1912 ((vptci<1.0e2))
1913 {
1914 if
1915 ((cjcx0_t_i>0.0))
1916 {
1917 zr=(zci/4.0);
1918 #if defined(_DERIVATE)
1919 vp_Vtnode_GND=(-vdci_t_Vtnode_GND);
1920 #endif
1921 vp=(vptci-vdci_t);
1922 {
1923 double m00_logE(d00_logE0,2.4)
1924 double m00_exp(d00_exp1,((-d00_logE0)/zci))
1925 #if defined(_DERIVATE)
1926 vf_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
1927 #endif
1928 vf=(vdci_t*(1.0-d00_exp1));
1929 }
1930 #if defined(_DERIVATE)
1931 cmax_Vtnode_GND=(2.4*cjcx0_t_i_Vtnode_GND);
1932 #endif
1933 cmax=(2.4*cjcx0_t_i);
1934 {
1935 double m00_logE(d00_logE0,(vdci_t/vptci))
1936 double m00_exp(d00_exp1,((zci-zr)*d00_logE0))
1937 #if defined(_DERIVATE)
1938 double m10_logE(d10_logE0,d00_logE0,(vdci_t/vptci))
1939 #define d10_exp1 d00_exp1
1940 #endif
1941 #if defined(_DERIVATE)
1942 cr_Vtnode_GND=((cjcx0_t_i_Vtnode_GND*d00_exp1)+(cjcx0_t_i*((zci-zr)*(vdci_t_Vtnode_GND/vptci)*d10_logE0)*d10_exp1));
1943 #endif
1944 cr=(cjcx0_t_i*d00_exp1);
1945 }
1946 #if defined(_DERIVATE)
1947 a_Vci_ei=0.0;
1948 a_Vbi_ei=0.0;
1949 a_Vbi_ci=0.0;
1950 a_Vb_ci=0.0;
1951 a_Vtnode_GND=VT_Vtnode_GND;
1952 #endif
1953 a=VT;
1954 #if defined(_DERIVATE)
1955 ve_Vs_ci=0.0;
1956 ve_Vci_ei=0.0;
1957 ve_Vbi_ei=0.0;
1958 ve_Vbi_ci=0.0;
1959 ve_Vtnode_GND=((vf_Vtnode_GND*a-(vf-Vbci)*a_Vtnode_GND)/a/a);
1960 ve_Vb_ci=(((-Vbci_Vb_ci)*a-(vf-Vbci)*a_Vb_ci)/a/a);
1961 #endif
1962 ve=((vf-Vbci)/a);
1963 if
1964 ((ve<=80.0))
1965 {
1966 {
1967 double m00_exp(d00_exp0,ve)
1968 #if defined(_DERIVATE)
1969 #define d10_exp0 d00_exp0
1970 #endif
1971 #if defined(_DERIVATE)
1972 ex1_Vs_ci=0.0;
1973 ex1_Vci_ei=0.0;
1974 ex1_Vbi_ei=0.0;
1975 ex1_Vbi_ci=0.0;
1976 ex1_Vtnode_GND=ve_Vtnode_GND*d10_exp0;
1977 ex1_Vb_ci=ve_Vb_ci*d10_exp0;
1978 #endif
1979 ex1=d00_exp0;
1980 }
1981 #if defined(_DERIVATE)
1982 ee1_Vs_ci=0.0;
1983 ee1_Vci_ei=0.0;
1984 ee1_Vbi_ei=0.0;
1985 ee1_Vbi_ci=0.0;
1986 ee1_Vtnode_GND=ex1_Vtnode_GND;
1987 ee1_Vb_ci=ex1_Vb_ci;
1988 #endif
1989 ee1=(1.0+ex1);
1990 {
1991 double m00_logE(d00_logE0,ee1)
1992 #if defined(_DERIVATE)
1993 double m10_logE(d10_logE0,d00_logE0,ee1)
1994 #endif
1995 #if defined(_DERIVATE)
1996 vj1_Vci_ei=0.0;
1997 vj1_Vbi_ei=0.0;
1998 vj1_Vs_ci=0.0;
1999 vj1_Vbi_ci=0.0;
2000 vj1_Vtnode_GND=(vf_Vtnode_GND-((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
2001 vj1_Vb_ci=(-((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0)));
2002 #endif
2003 vj1=(vf-(a*d00_logE0));
2004 }
2005 }
2006 else
2007 {
2008 #if defined(_DERIVATE)
2009 vj1_Vci_ei=0.0;
2010 vj1_Vbi_ei=0.0;
2011 vj1_Vs_ci=0.0;
2012 vj1_Vbi_ci=0.0;
2013 vj1_Vtnode_GND=0.0;
2014 vj1_Vb_ci=Vbci_Vb_ci;
2015 #endif
2016 vj1=Vbci;
2017 }
2018 #if defined(_DERIVATE)
2019 a_Vci_ei=0.0;
2020 a_Vbi_ei=0.0;
2021 a_Vbi_ci=0.0;
2022 a_Vb_ci=0.0;
2023 a_Vtnode_GND=((0.1*vp_Vtnode_GND)+(4.0*VT_Vtnode_GND));
2024 #endif
2025 a=((0.1*vp)+(4.0*VT));
2026 #if defined(_DERIVATE)
2027 vr_Vci_ei=0.0;
2028 vr_Vbi_ei=0.0;
2029 vr_Vs_ci=0.0;
2030 vr_Vbi_ci=0.0;
2031 vr_Vtnode_GND=(((vp_Vtnode_GND+vj1_Vtnode_GND)*a-(vp+vj1)*a_Vtnode_GND)/a/a);
2032 vr_Vb_ci=((vj1_Vb_ci*a-(vp+vj1)*a_Vb_ci)/a/a);
2033 #endif
2034 vr=((vp+vj1)/a);
2035 if
2036 ((vr<=80.0))
2037 {
2038 {
2039 double m00_exp(d00_exp0,vr)
2040 #if defined(_DERIVATE)
2041 #define d10_exp0 d00_exp0
2042 #endif
2043 #if defined(_DERIVATE)
2044 ex1_Vs_ci=0.0;
2045 ex1_Vci_ei=0.0;
2046 ex1_Vbi_ei=0.0;
2047 ex1_Vbi_ci=0.0;
2048 ex1_Vtnode_GND=vr_Vtnode_GND*d10_exp0;
2049 ex1_Vb_ci=vr_Vb_ci*d10_exp0;
2050 #endif
2051 ex1=d00_exp0;
2052 }
2053 #if defined(_DERIVATE)
2054 ee1_Vs_ci=0.0;
2055 ee1_Vci_ei=0.0;
2056 ee1_Vbi_ei=0.0;
2057 ee1_Vbi_ci=0.0;
2058 ee1_Vtnode_GND=ex1_Vtnode_GND;
2059 ee1_Vb_ci=ex1_Vb_ci;
2060 #endif
2061 ee1=(1.0+ex1);
2062 {
2063 double m00_logE(d00_logE0,ee1)
2064 #if defined(_DERIVATE)
2065 double m10_logE(d10_logE0,d00_logE0,ee1)
2066 #endif
2067 #if defined(_DERIVATE)
2068 vj2_Vci_ei=0.0;
2069 vj2_Vbi_ei=0.0;
2070 vj2_Vs_ci=0.0;
2071 vj2_Vbi_ci=0.0;
2072 vj2_Vtnode_GND=((-vp_Vtnode_GND)+((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
2073 vj2_Vb_ci=((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0));
2074 #endif
2075 vj2=((-vp)+(a*d00_logE0));
2076 }
2077 }
2078 else
2079 {
2080 #if defined(_DERIVATE)
2081 vj2_Vci_ei=0.0;
2082 vj2_Vbi_ei=0.0;
2083 vj2_Vs_ci=0.0;
2084 vj2_Vbi_ci=0.0;
2085 vj2_Vtnode_GND=vj1_Vtnode_GND;
2086 vj2_Vb_ci=vj1_Vb_ci;
2087 #endif
2088 vj2=vj1;
2089 }
2090 #if defined(_DERIVATE)
2091 vj4_Vs_ci=0.0;
2092 vj4_Vci_ei=0.0;
2093 vj4_Vbi_ei=0.0;
2094 vj4_Vbi_ci=0.0;
2095 vj4_Vb_ci=(Vbci_Vb_ci-vj1_Vb_ci);
2096 vj4_Vtnode_GND=(-vj1_Vtnode_GND);
2097 #endif
2098 vj4=(Vbci-vj1);
2099 ez=(1.0-zci);
2100 ezr=(1.0-zr);
2101 {
2102 double m00_logE(d00_logE0,(1.0-(vj1/vdci_t)))
2103 #if defined(_DERIVATE)
2104 double m10_logE(d10_logE0,d00_logE0,(1.0-(vj1/vdci_t)))
2105 #endif
2106 #if defined(_DERIVATE)
2107 vdj1_Vci_ei=0.0;
2108 vdj1_Vbi_ei=0.0;
2109 vdj1_Vs_ci=0.0;
2110 vdj1_Vbi_ci=0.0;
2111 vdj1_Vtnode_GND=(-((vj1_Vtnode_GND*vdci_t-vj1*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
2112 vdj1_Vb_ci=(-(vj1_Vb_ci/vdci_t))*d10_logE0;
2113 #endif
2114 vdj1=d00_logE0;
2115 }
2116 {
2117 double m00_logE(d00_logE0,(1.0-(vj2/vdci_t)))
2118 #if defined(_DERIVATE)
2119 double m10_logE(d10_logE0,d00_logE0,(1.0-(vj2/vdci_t)))
2120 #endif
2121 #if defined(_DERIVATE)
2122 vdj2_Vci_ei=0.0;
2123 vdj2_Vbi_ei=0.0;
2124 vdj2_Vs_ci=0.0;
2125 vdj2_Vbi_ci=0.0;
2126 vdj2_Vtnode_GND=(-((vj2_Vtnode_GND*vdci_t-vj2*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
2127 vdj2_Vb_ci=(-(vj2_Vb_ci/vdci_t))*d10_logE0;
2128 #endif
2129 vdj2=d00_logE0;
2130 }
2131 {
2132 double m00_exp(d00_exp0,(vdj2*ez))
2133 #if defined(_DERIVATE)
2134 #define d10_exp0 d00_exp0
2135 #endif
2136 #if defined(_DERIVATE)
2137 qj1_Vci_ei=0.0;
2138 qj1_Vbi_ei=0.0;
2139 qj1_Vs_ci=0.0;
2140 qj1_Vbi_ci=0.0;
2141 qj1_Vtnode_GND=(((cjcx0_t_i_Vtnode_GND*(1.0-d00_exp0))+(cjcx0_t_i*(-vdj2_Vtnode_GND*ez*d10_exp0)))/ez);
2142 qj1_Vb_ci=((cjcx0_t_i*(-vdj2_Vb_ci*ez*d10_exp0))/ez);
2143 #endif
2144 qj1=((cjcx0_t_i*(1.0-d00_exp0))/ez);
2145 }
2146 {
2147 double m00_exp(d00_exp0,(vdj1*ezr))
2148 #if defined(_DERIVATE)
2149 #define d10_exp0 d00_exp0
2150 #endif
2151 #if defined(_DERIVATE)
2152 qj2_Vci_ei=0.0;
2153 qj2_Vbi_ei=0.0;
2154 qj2_Vs_ci=0.0;
2155 qj2_Vbi_ci=0.0;
2156 qj2_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj1_Vtnode_GND*ezr*d10_exp0)))/ezr);
2157 qj2_Vb_ci=((cr*(-vdj1_Vb_ci*ezr*d10_exp0))/ezr);
2158 #endif
2159 qj2=((cr*(1.0-d00_exp0))/ezr);
2160 }
2161 {
2162 double m00_exp(d00_exp0,(vdj2*ezr))
2163 #if defined(_DERIVATE)
2164 #define d10_exp0 d00_exp0
2165 #endif
2166 #if defined(_DERIVATE)
2167 qj3_Vci_ei=0.0;
2168 qj3_Vbi_ei=0.0;
2169 qj3_Vs_ci=0.0;
2170 qj3_Vbi_ci=0.0;
2171 qj3_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj2_Vtnode_GND*ezr*d10_exp0)))/ezr);
2172 qj3_Vb_ci=((cr*(-vdj2_Vb_ci*ezr*d10_exp0))/ezr);
2173 #endif
2174 qj3=((cr*(1.0-d00_exp0))/ezr);
2175 }
2176 #if defined(_DYNAMIC)
2177 #if defined(_DERIVATE)
2178 qjcx_Vbi_ci=0.0;
2179 qjcx_Vtnode_GND=(((((qj1_Vtnode_GND+qj2_Vtnode_GND)-qj3_Vtnode_GND)*vdci_t)+(((qj1+qj2)-qj3)*vdci_t_Vtnode_GND))+((cmax_Vtnode_GND*vj4)+(cmax*vj4_Vtnode_GND)));
2180 qjcx_Vb_ci=(((qj1_Vb_ci+qj2_Vb_ci)-qj3_Vb_ci)*vdci_t+(cmax*vj4_Vb_ci));
2181 #endif
2182 qjcx=((((qj1+qj2)-qj3)*vdci_t)+(cmax*vj4));
2183 #endif
2184 }
2185 else
2186 {
2187 #if defined(_DYNAMIC)
2188 #if defined(_DERIVATE)
2189 qjcx_Vbi_ci=0.0;
2190 qjcx_Vtnode_GND=0.0;
2191 qjcx_Vb_ci=0.0;
2192 #endif
2193 qjcx=0.0;
2194 #endif
2195 }
2196 }
2197 else
2198 {
2199 if
2200 ((cjcx0_t_i>0.0))
2201 {
2202 {
2203 double m00_logE(d00_logE0,2.4)
2204 double m00_exp(d00_exp1,((-d00_logE0)/zci))
2205 #if defined(_DERIVATE)
2206 vf_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
2207 #endif
2208 vf=(vdci_t*(1.0-d00_exp1));
2209 }
2210 #if defined(_DERIVATEFORDDX)
2211 #if defined(_DERIVATE)
2212 xvf_Vs_ci=0.0;
2213 #endif
2214 xvf_Vbi_ei=0.0;
2215 #if defined(_DERIVATE)
2216  xvf_Vbi_ei_Vs_ci=0.0;
2217  xvf_Vbi_ei_Vbi_ei=0.0;
2218  xvf_Vbi_ei_Vbi_ci=0.0;
2219  xvf_Vbi_ei_Vtnode_GND=0.0;
2220  xvf_Vbi_ei_Vb_ci=0.0;
2221 #endif
2222 xvf_Vbi_ci=0.0;
2223 #if defined(_DERIVATE)
2224  xvf_Vbi_ci_Vs_ci=0.0;
2225  xvf_Vbi_ci_Vbi_ei=0.0;
2226  xvf_Vbi_ci_Vbi_ci=0.0;
2227  xvf_Vbi_ci_Vtnode_GND=0.0;
2228  xvf_Vbi_ci_Vb_ci=0.0;
2229 #endif
2230 #if defined(_DERIVATE)
2231 xvf_Vtnode_GND=((vf_Vtnode_GND*VT-(vf-Vbci)*VT_Vtnode_GND)/VT/VT);
2232 #endif
2233 #if defined(_DERIVATE)
2234 xvf_Vb_ci=((-Vbci_Vb_ci)/VT);
2235 #endif
2236 #endif
2237 xvf=((vf-Vbci)/VT);
2238 {
2239 double m00_sqrt(d00_sqrt0,((xvf*xvf)+1.921812))
2240 #if defined(_DERIVATEFORDDX)
2241 double m10_sqrt(d10_sqrt0,d00_sqrt0,((xvf*xvf)+1.921812))
2242 #endif
2243 #if defined(_DERIVATEFORDDX)
2244 #if defined(_DERIVATE)
2245 xvf2_Vs_ci=0.0;
2246 #endif
2247 xvf2_Vbi_ei=0.0;
2248 #if defined(_DERIVATE)
2249  xvf2_Vbi_ei_Vs_ci=0.0;
2250  xvf2_Vbi_ei_Vbi_ei=0.0;
2251  xvf2_Vbi_ei_Vbi_ci=0.0;
2252  xvf2_Vbi_ei_Vtnode_GND=0.0;
2253  xvf2_Vbi_ei_Vb_ci=0.0;
2254 #endif
2255 xvf2_Vbi_ci=0.0;
2256 #if defined(_DERIVATE)
2257  xvf2_Vbi_ci_Vs_ci=0.0;
2258  xvf2_Vbi_ci_Vbi_ei=0.0;
2259  xvf2_Vbi_ci_Vbi_ci=0.0;
2260  xvf2_Vbi_ci_Vtnode_GND=0.0;
2261  xvf2_Vbi_ci_Vb_ci=0.0;
2262 #endif
2263 #if defined(_DERIVATE)
2264 xvf2_Vtnode_GND=((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND))*d10_sqrt0;
2265 #endif
2266 #if defined(_DERIVATE)
2267 xvf2_Vb_ci=((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci))*d10_sqrt0;
2268 #endif
2269 #endif
2270 xvf2=d00_sqrt0;
2271 }
2272 #if defined(_DERIVATEFORDDX)
2273 #if defined(_DERIVATE)
2274 v_j_Vs_ci=0.0;
2275 #endif
2276 v_j_Vbi_ei=0.0;
2277 #if defined(_DERIVATE)
2278  v_j_Vbi_ei_Vs_ci=0.0;
2279  v_j_Vbi_ei_Vbi_ei=0.0;
2280  v_j_Vbi_ei_Vbi_ci=0.0;
2281  v_j_Vbi_ei_Vtnode_GND=0.0;
2282  v_j_Vbi_ei_Vb_ci=0.0;
2283 #endif
2284 v_j_Vbi_ci=0.0;
2285 #if defined(_DERIVATE)
2286  v_j_Vbi_ci_Vs_ci=0.0;
2287  v_j_Vbi_ci_Vbi_ei=0.0;
2288  v_j_Vbi_ci_Vbi_ci=0.0;
2289  v_j_Vbi_ci_Vtnode_GND=0.0;
2290  v_j_Vbi_ci_Vb_ci=0.0;
2291 #endif
2292 #if defined(_DERIVATE)
2293 v_j_Vtnode_GND=(vf_Vtnode_GND-((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND)))*0.5);
2294 #endif
2295 #if defined(_DERIVATE)
2296 v_j_Vb_ci=(-(VT*(xvf_Vb_ci+xvf2_Vb_ci))*0.5);
2297 #endif
2298 #endif
2299 v_j=(vf-((VT*(xvf+xvf2))*0.5));
2300 #if defined(_DERIVATE)
2301 x_Vtnode_GND=0.0;
2302 x_Vci_ei=0.0;
2303 #endif
2304 x=(1.0-zci);
2305 {
2306 double m00_logE(d00_logE0,(1.0-(v_j/vdci_t)))
2307 double m00_exp(d00_exp1,(x*d00_logE0))
2308 #if defined(_DERIVATEFORDDX)
2309 double m10_logE(d10_logE0,d00_logE0,(1.0-(v_j/vdci_t)))
2310 #define d10_exp1 d00_exp1
2311 #endif
2312 #if defined(_DERIVATEFORDDX)
2313 #if defined(_DERIVATE)
2314 y_Vci_ei=0.0;
2315 #endif
2316 #if defined(_DERIVATE)
2317 y_Vs_ci=0.0;
2318 #endif
2319 y_Vbi_ei=0.0;
2320 #if defined(_DERIVATE)
2321  y_Vbi_ei_Vci_ei=0.0;
2322  y_Vbi_ei_Vs_ci=0.0;
2323  y_Vbi_ei_Vbi_ei=0.0;
2324  y_Vbi_ei_Vbi_ci=0.0;
2325  y_Vbi_ei_Vtnode_GND=0.0;
2326  y_Vbi_ei_Vb_ci=0.0;
2327 #endif
2328 y_Vbi_ci=0.0;
2329 #if defined(_DERIVATE)
2330  y_Vbi_ci_Vci_ei=0.0;
2331  y_Vbi_ci_Vs_ci=0.0;
2332  y_Vbi_ci_Vbi_ei=0.0;
2333  y_Vbi_ci_Vbi_ci=0.0;
2334  y_Vbi_ci_Vtnode_GND=0.0;
2335  y_Vbi_ci_Vb_ci=0.0;
2336 #endif
2337 #if defined(_DERIVATE)
2338 y_Vtnode_GND=(-((x_Vtnode_GND*d00_logE0)+(x*(-((v_j_Vtnode_GND*vdci_t-v_j*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0))*d10_exp1);
2339 #endif
2340 #if defined(_DERIVATE)
2341 y_Vb_ci=(-(x*(-(v_j_Vb_ci/vdci_t))*d10_logE0)*d10_exp1);
2342 #endif
2343 #endif
2344 y=(1.0-d00_exp1);
2345 }
2346 #if defined(_DYNAMIC)
2347 #if defined(_DERIVATE)
2348 qjcx_Vbi_ci=0.0;
2349 qjcx_Vtnode_GND=(((((((cjcx0_t_i_Vtnode_GND*vdci_t)+(cjcx0_t_i*vdci_t_Vtnode_GND))*y)+((cjcx0_t_i*vdci_t)*y_Vtnode_GND))*x-((cjcx0_t_i*vdci_t)*y)*x_Vtnode_GND)/x/x)+(((2.4*cjcx0_t_i_Vtnode_GND)*(Vbci-v_j))+((2.4*cjcx0_t_i)*(-v_j_Vtnode_GND))));
2350 qjcx_Vb_ci=((((cjcx0_t_i*vdci_t)*y_Vb_ci)/x)+((2.4*cjcx0_t_i)*(Vbci_Vb_ci-v_j_Vb_ci)));
2351 #endif
2352 qjcx=((((cjcx0_t_i*vdci_t)*y)/x)+((2.4*cjcx0_t_i)*(Vbci-v_j)));
2353 #endif
2354 }
2355 else
2356 {
2357 #if defined(_DYNAMIC)
2358 #if defined(_DERIVATE)
2359 qjcx_Vbi_ci=0.0;
2360 qjcx_Vtnode_GND=0.0;
2361 qjcx_Vb_ci=0.0;
2362 #endif
2363 qjcx=0.0;
2364 #endif
2365 }
2366 }
2367 }
2368 else
2369 {
2370 #if defined(_DERIVATE)
2371 cjci0_t_ii_Vtnode_GND=cjci0_t_Vtnode_GND;
2372 #endif
2373 cjci0_t_ii=cjci0_t;
2374 #if defined(_DERIVATE)
2375 cjcx0_t_ii_Vtnode_GND=cjcx0_t_Vtnode_GND*fbc;
2376 #endif
2377 cjcx0_t_ii=(cjcx0_t*fbc);
2378 if
2379 ((vptcx<1.0e2))
2380 {
2381 if
2382 ((cjcx0_t_ii>0.0))
2383 {
2384 zr=(zcx/4.0);
2385 #if defined(_DERIVATE)
2386 vp_Vtnode_GND=(-vdcx_t_Vtnode_GND);
2387 #endif
2388 vp=(vptcx-vdcx_t);
2389 {
2390 double m00_logE(d00_logE0,2.4)
2391 double m00_exp(d00_exp1,((-d00_logE0)/zcx))
2392 #if defined(_DERIVATE)
2393 vf_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
2394 #endif
2395 vf=(vdcx_t*(1.0-d00_exp1));
2396 }
2397 #if defined(_DERIVATE)
2398 cmax_Vtnode_GND=(2.4*cjcx0_t_ii_Vtnode_GND);
2399 #endif
2400 cmax=(2.4*cjcx0_t_ii);
2401 {
2402 double m00_logE(d00_logE0,(vdcx_t/vptcx))
2403 double m00_exp(d00_exp1,((zcx-zr)*d00_logE0))
2404 #if defined(_DERIVATE)
2405 double m10_logE(d10_logE0,d00_logE0,(vdcx_t/vptcx))
2406 #define d10_exp1 d00_exp1
2407 #endif
2408 #if defined(_DERIVATE)
2409 cr_Vtnode_GND=((cjcx0_t_ii_Vtnode_GND*d00_exp1)+(cjcx0_t_ii*((zcx-zr)*(vdcx_t_Vtnode_GND/vptcx)*d10_logE0)*d10_exp1));
2410 #endif
2411 cr=(cjcx0_t_ii*d00_exp1);
2412 }
2413 #if defined(_DERIVATE)
2414 a_Vci_ei=0.0;
2415 a_Vbi_ei=0.0;
2416 a_Vbi_ci=0.0;
2417 a_Vb_ci=0.0;
2418 a_Vtnode_GND=VT_Vtnode_GND;
2419 #endif
2420 a=VT;
2421 #if defined(_DERIVATE)
2422 ve_Vs_ci=0.0;
2423 ve_Vci_ei=0.0;
2424 ve_Vbi_ei=0.0;
2425 ve_Vbi_ci=(((-Vbici_Vbi_ci)*a-(vf-Vbici)*a_Vbi_ci)/a/a);
2426 ve_Vtnode_GND=((vf_Vtnode_GND*a-(vf-Vbici)*a_Vtnode_GND)/a/a);
2427 ve_Vb_ci=0.0;
2428 #endif
2429 ve=((vf-Vbici)/a);
2430 if
2431 ((ve<=80.0))
2432 {
2433 {
2434 double m00_exp(d00_exp0,ve)
2435 #if defined(_DERIVATE)
2436 #define d10_exp0 d00_exp0
2437 #endif
2438 #if defined(_DERIVATE)
2439 ex1_Vs_ci=0.0;
2440 ex1_Vci_ei=0.0;
2441 ex1_Vbi_ei=0.0;
2442 ex1_Vbi_ci=ve_Vbi_ci*d10_exp0;
2443 ex1_Vtnode_GND=ve_Vtnode_GND*d10_exp0;
2444 ex1_Vb_ci=ve_Vb_ci*d10_exp0;
2445 #endif
2446 ex1=d00_exp0;
2447 }
2448 #if defined(_DERIVATE)
2449 ee1_Vs_ci=0.0;
2450 ee1_Vci_ei=0.0;
2451 ee1_Vbi_ei=0.0;
2452 ee1_Vbi_ci=ex1_Vbi_ci;
2453 ee1_Vtnode_GND=ex1_Vtnode_GND;
2454 ee1_Vb_ci=ex1_Vb_ci;
2455 #endif
2456 ee1=(1.0+ex1);
2457 {
2458 double m00_logE(d00_logE0,ee1)
2459 #if defined(_DERIVATE)
2460 double m10_logE(d10_logE0,d00_logE0,ee1)
2461 #endif
2462 #if defined(_DERIVATE)
2463 vj1_Vci_ei=0.0;
2464 vj1_Vbi_ei=0.0;
2465 vj1_Vs_ci=0.0;
2466 vj1_Vbi_ci=(-((a_Vbi_ci*d00_logE0)+(a*ee1_Vbi_ci*d10_logE0)));
2467 vj1_Vtnode_GND=(vf_Vtnode_GND-((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
2468 vj1_Vb_ci=(-((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0)));
2469 #endif
2470 vj1=(vf-(a*d00_logE0));
2471 }
2472 }
2473 else
2474 {
2475 #if defined(_DERIVATE)
2476 vj1_Vci_ei=0.0;
2477 vj1_Vbi_ei=0.0;
2478 vj1_Vs_ci=0.0;
2479 vj1_Vbi_ci=Vbici_Vbi_ci;
2480 vj1_Vtnode_GND=0.0;
2481 vj1_Vb_ci=0.0;
2482 #endif
2483 vj1=Vbici;
2484 }
2485 #if defined(_DERIVATE)
2486 a_Vci_ei=0.0;
2487 a_Vbi_ei=0.0;
2488 a_Vbi_ci=0.0;
2489 a_Vb_ci=0.0;
2490 a_Vtnode_GND=((0.1*vp_Vtnode_GND)+(4.0*VT_Vtnode_GND));
2491 #endif
2492 a=((0.1*vp)+(4.0*VT));
2493 #if defined(_DERIVATE)
2494 vr_Vci_ei=0.0;
2495 vr_Vbi_ei=0.0;
2496 vr_Vs_ci=0.0;
2497 vr_Vbi_ci=((vj1_Vbi_ci*a-(vp+vj1)*a_Vbi_ci)/a/a);
2498 vr_Vtnode_GND=(((vp_Vtnode_GND+vj1_Vtnode_GND)*a-(vp+vj1)*a_Vtnode_GND)/a/a);
2499 vr_Vb_ci=((vj1_Vb_ci*a-(vp+vj1)*a_Vb_ci)/a/a);
2500 #endif
2501 vr=((vp+vj1)/a);
2502 if
2503 ((vr<=80.0))
2504 {
2505 {
2506 double m00_exp(d00_exp0,vr)
2507 #if defined(_DERIVATE)
2508 #define d10_exp0 d00_exp0
2509 #endif
2510 #if defined(_DERIVATE)
2511 ex1_Vs_ci=0.0;
2512 ex1_Vci_ei=0.0;
2513 ex1_Vbi_ei=0.0;
2514 ex1_Vbi_ci=vr_Vbi_ci*d10_exp0;
2515 ex1_Vtnode_GND=vr_Vtnode_GND*d10_exp0;
2516 ex1_Vb_ci=vr_Vb_ci*d10_exp0;
2517 #endif
2518 ex1=d00_exp0;
2519 }
2520 #if defined(_DERIVATE)
2521 ee1_Vs_ci=0.0;
2522 ee1_Vci_ei=0.0;
2523 ee1_Vbi_ei=0.0;
2524 ee1_Vbi_ci=ex1_Vbi_ci;
2525 ee1_Vtnode_GND=ex1_Vtnode_GND;
2526 ee1_Vb_ci=ex1_Vb_ci;
2527 #endif
2528 ee1=(1.0+ex1);
2529 {
2530 double m00_logE(d00_logE0,ee1)
2531 #if defined(_DERIVATE)
2532 double m10_logE(d10_logE0,d00_logE0,ee1)
2533 #endif
2534 #if defined(_DERIVATE)
2535 vj2_Vci_ei=0.0;
2536 vj2_Vbi_ei=0.0;
2537 vj2_Vs_ci=0.0;
2538 vj2_Vbi_ci=((a_Vbi_ci*d00_logE0)+(a*ee1_Vbi_ci*d10_logE0));
2539 vj2_Vtnode_GND=((-vp_Vtnode_GND)+((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
2540 vj2_Vb_ci=((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0));
2541 #endif
2542 vj2=((-vp)+(a*d00_logE0));
2543 }
2544 }
2545 else
2546 {
2547 #if defined(_DERIVATE)
2548 vj2_Vci_ei=0.0;
2549 vj2_Vbi_ei=0.0;
2550 vj2_Vs_ci=0.0;
2551 vj2_Vbi_ci=vj1_Vbi_ci;
2552 vj2_Vtnode_GND=vj1_Vtnode_GND;
2553 vj2_Vb_ci=vj1_Vb_ci;
2554 #endif
2555 vj2=vj1;
2556 }
2557 #if defined(_DERIVATE)
2558 vj4_Vs_ci=0.0;
2559 vj4_Vci_ei=0.0;
2560 vj4_Vbi_ei=0.0;
2561 vj4_Vbi_ci=(Vbici_Vbi_ci-vj1_Vbi_ci);
2562 vj4_Vb_ci=(-vj1_Vb_ci);
2563 vj4_Vtnode_GND=(-vj1_Vtnode_GND);
2564 #endif
2565 vj4=(Vbici-vj1);
2566 ez=(1.0-zcx);
2567 ezr=(1.0-zr);
2568 {
2569 double m00_logE(d00_logE0,(1.0-(vj1/vdcx_t)))
2570 #if defined(_DERIVATE)
2571 double m10_logE(d10_logE0,d00_logE0,(1.0-(vj1/vdcx_t)))
2572 #endif
2573 #if defined(_DERIVATE)
2574 vdj1_Vci_ei=0.0;
2575 vdj1_Vbi_ei=0.0;
2576 vdj1_Vs_ci=0.0;
2577 vdj1_Vbi_ci=(-(vj1_Vbi_ci/vdcx_t))*d10_logE0;
2578 vdj1_Vtnode_GND=(-((vj1_Vtnode_GND*vdcx_t-vj1*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
2579 vdj1_Vb_ci=(-(vj1_Vb_ci/vdcx_t))*d10_logE0;
2580 #endif
2581 vdj1=d00_logE0;
2582 }
2583 {
2584 double m00_logE(d00_logE0,(1.0-(vj2/vdcx_t)))
2585 #if defined(_DERIVATE)
2586 double m10_logE(d10_logE0,d00_logE0,(1.0-(vj2/vdcx_t)))
2587 #endif
2588 #if defined(_DERIVATE)
2589 vdj2_Vci_ei=0.0;
2590 vdj2_Vbi_ei=0.0;
2591 vdj2_Vs_ci=0.0;
2592 vdj2_Vbi_ci=(-(vj2_Vbi_ci/vdcx_t))*d10_logE0;
2593 vdj2_Vtnode_GND=(-((vj2_Vtnode_GND*vdcx_t-vj2*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
2594 vdj2_Vb_ci=(-(vj2_Vb_ci/vdcx_t))*d10_logE0;
2595 #endif
2596 vdj2=d00_logE0;
2597 }
2598 {
2599 double m00_exp(d00_exp0,(vdj2*ez))
2600 #if defined(_DERIVATE)
2601 #define d10_exp0 d00_exp0
2602 #endif
2603 #if defined(_DERIVATE)
2604 qj1_Vci_ei=0.0;
2605 qj1_Vbi_ei=0.0;
2606 qj1_Vs_ci=0.0;
2607 qj1_Vbi_ci=((cjcx0_t_ii*(-vdj2_Vbi_ci*ez*d10_exp0))/ez);
2608 qj1_Vtnode_GND=(((cjcx0_t_ii_Vtnode_GND*(1.0-d00_exp0))+(cjcx0_t_ii*(-vdj2_Vtnode_GND*ez*d10_exp0)))/ez);
2609 qj1_Vb_ci=((cjcx0_t_ii*(-vdj2_Vb_ci*ez*d10_exp0))/ez);
2610 #endif
2611 qj1=((cjcx0_t_ii*(1.0-d00_exp0))/ez);
2612 }
2613 {
2614 double m00_exp(d00_exp0,(vdj1*ezr))
2615 #if defined(_DERIVATE)
2616 #define d10_exp0 d00_exp0
2617 #endif
2618 #if defined(_DERIVATE)
2619 qj2_Vci_ei=0.0;
2620 qj2_Vbi_ei=0.0;
2621 qj2_Vs_ci=0.0;
2622 qj2_Vbi_ci=((cr*(-vdj1_Vbi_ci*ezr*d10_exp0))/ezr);
2623 qj2_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj1_Vtnode_GND*ezr*d10_exp0)))/ezr);
2624 qj2_Vb_ci=((cr*(-vdj1_Vb_ci*ezr*d10_exp0))/ezr);
2625 #endif
2626 qj2=((cr*(1.0-d00_exp0))/ezr);
2627 }
2628 {
2629 double m00_exp(d00_exp0,(vdj2*ezr))
2630 #if defined(_DERIVATE)
2631 #define d10_exp0 d00_exp0
2632 #endif
2633 #if defined(_DERIVATE)
2634 qj3_Vci_ei=0.0;
2635 qj3_Vbi_ei=0.0;
2636 qj3_Vs_ci=0.0;
2637 qj3_Vbi_ci=((cr*(-vdj2_Vbi_ci*ezr*d10_exp0))/ezr);
2638 qj3_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj2_Vtnode_GND*ezr*d10_exp0)))/ezr);
2639 qj3_Vb_ci=((cr*(-vdj2_Vb_ci*ezr*d10_exp0))/ezr);
2640 #endif
2641 qj3=((cr*(1.0-d00_exp0))/ezr);
2642 }
2643 #if defined(_DYNAMIC)
2644 #if defined(_DERIVATE)
2645 qjcxi_Vbi_ci=(((qj1_Vbi_ci+qj2_Vbi_ci)-qj3_Vbi_ci)*vdcx_t+(cmax*vj4_Vbi_ci));
2646 qjcxi_Vtnode_GND=(((((qj1_Vtnode_GND+qj2_Vtnode_GND)-qj3_Vtnode_GND)*vdcx_t)+(((qj1+qj2)-qj3)*vdcx_t_Vtnode_GND))+((cmax_Vtnode_GND*vj4)+(cmax*vj4_Vtnode_GND)));
2647 qjcxi_Vb_ci=(((qj1_Vb_ci+qj2_Vb_ci)-qj3_Vb_ci)*vdcx_t+(cmax*vj4_Vb_ci));
2648 #endif
2649 qjcxi=((((qj1+qj2)-qj3)*vdcx_t)+(cmax*vj4));
2650 #endif
2651 }
2652 else
2653 {
2654 #if defined(_DYNAMIC)
2655 #if defined(_DERIVATE)
2656 qjcxi_Vbi_ci=0.0;
2657 qjcxi_Vtnode_GND=0.0;
2658 qjcxi_Vb_ci=0.0;
2659 #endif
2660 qjcxi=0.0;
2661 #endif
2662 }
2663 }
2664 else
2665 {
2666 if
2667 ((cjcx0_t_ii>0.0))
2668 {
2669 {
2670 double m00_logE(d00_logE0,2.4)
2671 double m00_exp(d00_exp1,((-d00_logE0)/zcx))
2672 #if defined(_DERIVATE)
2673 vf_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
2674 #endif
2675 vf=(vdcx_t*(1.0-d00_exp1));
2676 }
2677 #if defined(_DERIVATEFORDDX)
2678 #if defined(_DERIVATE)
2679 xvf_Vs_ci=0.0;
2680 #endif
2681 xvf_Vbi_ei=0.0;
2682 #if defined(_DERIVATE)
2683  xvf_Vbi_ei_Vs_ci=0.0;
2684  xvf_Vbi_ei_Vbi_ei=0.0;
2685  xvf_Vbi_ei_Vbi_ci=0.0;
2686  xvf_Vbi_ei_Vtnode_GND=0.0;
2687  xvf_Vbi_ei_Vb_ci=0.0;
2688 #endif
2689 xvf_Vbi_ci=((-Vbici_Vbi_ci)/VT);
2690 #if defined(_DERIVATE)
2691  xvf_Vbi_ci_Vs_ci=((+0.0-0.0)/VT-((-Vbici_Vbi_ci)*0.0+0.0*0.0+(vf-Vbici)*0.0)/VT/VT+2*(vf-Vbici)*0.0*0.0/VT/VT/VT);
2692  xvf_Vbi_ci_Vbi_ei=((+0.0-0.0)/VT-((-Vbici_Vbi_ci)*0.0+0.0*0.0+(vf-Vbici)*0.0)/VT/VT+2*(vf-Vbici)*0.0*0.0/VT/VT/VT);
2693  xvf_Vbi_ci_Vbi_ci=((+0.0-Vbici_Vbi_ci_Vbi_ci)/VT-((-Vbici_Vbi_ci)*0.0+(-Vbici_Vbi_ci)*0.0+(vf-Vbici)*0.0)/VT/VT+2*(vf-Vbici)*0.0*0.0/VT/VT/VT);
2694  xvf_Vbi_ci_Vtnode_GND=((+0.0-0.0)/VT-((-Vbici_Vbi_ci)*VT_Vtnode_GND+vf_Vtnode_GND*0.0+(vf-Vbici)*0.0)/VT/VT+2*(vf-Vbici)*0.0*VT_Vtnode_GND/VT/VT/VT);
2695  xvf_Vbi_ci_Vb_ci=((+0.0-0.0)/VT-((-Vbici_Vbi_ci)*0.0+0.0*0.0+(vf-Vbici)*0.0)/VT/VT+2*(vf-Vbici)*0.0*0.0/VT/VT/VT);
2696 #endif
2697 #if defined(_DERIVATE)
2698 xvf_Vtnode_GND=((vf_Vtnode_GND*VT-(vf-Vbici)*VT_Vtnode_GND)/VT/VT);
2699 #endif
2700 #if defined(_DERIVATE)
2701 xvf_Vb_ci=0.0;
2702 #endif
2703 #endif
2704 xvf=((vf-Vbici)/VT);
2705 {
2706 double m00_sqrt(d00_sqrt0,((xvf*xvf)+1.921812))
2707 #if defined(_DERIVATEFORDDX)
2708 double m10_sqrt(d10_sqrt0,d00_sqrt0,((xvf*xvf)+1.921812))
2709 #endif
2710 #if defined(_DERIVATEFORDDX)
2711 #if defined(_DERIVATE)
2712 xvf2_Vs_ci=0.0;
2713 #endif
2714 xvf2_Vbi_ei=0.0;
2715 #if defined(_DERIVATE)
2716  xvf2_Vbi_ei_Vs_ci=0.0;
2717  xvf2_Vbi_ei_Vbi_ei=0.0;
2718  xvf2_Vbi_ei_Vbi_ci=0.0;
2719  xvf2_Vbi_ei_Vtnode_GND=0.0;
2720  xvf2_Vbi_ei_Vb_ci=0.0;
2721 #endif
2722 xvf2_Vbi_ci=((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))*d10_sqrt0;
2723 #if defined(_DERIVATE)
2724  xvf2_Vbi_ci_Vs_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vs_ci*xvf)+(xvf*xvf_Vs_ci)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vs_ci*xvf+xvf_Vbi_ci*xvf_Vs_ci+xvf_Vs_ci*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vs_ci)+0.0));
2725  xvf2_Vbi_ci_Vbi_ei=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vbi_ei*xvf+xvf_Vbi_ci*xvf_Vbi_ei+xvf_Vbi_ei*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vbi_ei)+0.0));
2726  xvf2_Vbi_ci_Vbi_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vbi_ci*xvf+xvf_Vbi_ci*xvf_Vbi_ci+xvf_Vbi_ci*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vbi_ci)+0.0));
2727  xvf2_Vbi_ci_Vtnode_GND=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vtnode_GND*xvf+xvf_Vbi_ci*xvf_Vtnode_GND+xvf_Vtnode_GND*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vtnode_GND)+0.0));
2728  xvf2_Vbi_ci_Vb_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vb_ci*xvf+xvf_Vbi_ci*xvf_Vb_ci+xvf_Vb_ci*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vb_ci)+0.0));
2729 #endif
2730 #if defined(_DERIVATE)
2731 xvf2_Vtnode_GND=((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND))*d10_sqrt0;
2732 #endif
2733 #if defined(_DERIVATE)
2734 xvf2_Vb_ci=((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci))*d10_sqrt0;
2735 #endif
2736 #endif
2737 xvf2=d00_sqrt0;
2738 }
2739 #if defined(_DERIVATEFORDDX)
2740 #if defined(_DERIVATE)
2741 v_j_Vs_ci=0.0;
2742 #endif
2743 v_j_Vbi_ei=0.0;
2744 #if defined(_DERIVATE)
2745  v_j_Vbi_ei_Vs_ci=0.0;
2746  v_j_Vbi_ei_Vbi_ei=0.0;
2747  v_j_Vbi_ei_Vbi_ci=0.0;
2748  v_j_Vbi_ei_Vtnode_GND=0.0;
2749  v_j_Vbi_ei_Vb_ci=0.0;
2750 #endif
2751 v_j_Vbi_ci=(-(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.5);
2752 #if defined(_DERIVATE)
2753  v_j_Vbi_ci_Vs_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vs_ci+xvf2_Vs_ci)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vs_ci+xvf2_Vbi_ci_Vs_ci))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vs_ci+xvf2_Vs_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
2754  v_j_Vbi_ci_Vbi_ei=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vbi_ei+xvf2_Vbi_ei)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vbi_ei+xvf2_Vbi_ci_Vbi_ei))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vbi_ei+xvf2_Vbi_ei)))*0.0+(VT*(xvf+xvf2))*0.0));
2755  v_j_Vbi_ci_Vbi_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vbi_ci+xvf2_Vbi_ci_Vbi_ci))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vbi_ci+xvf2_Vbi_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
2756  v_j_Vbi_ci_Vtnode_GND=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vtnode_GND+xvf2_Vtnode_GND)+VT_Vtnode_GND*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vtnode_GND+xvf2_Vbi_ci_Vtnode_GND))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+(((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND))))*0.0+(VT*(xvf+xvf2))*0.0));
2757  v_j_Vbi_ci_Vb_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vb_ci+xvf2_Vb_ci)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vb_ci+xvf2_Vbi_ci_Vb_ci))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vb_ci+xvf2_Vb_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
2758 #endif
2759 #if defined(_DERIVATE)
2760 v_j_Vtnode_GND=(vf_Vtnode_GND-((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND)))*0.5);
2761 #endif
2762 #if defined(_DERIVATE)
2763 v_j_Vb_ci=(-(VT*(xvf_Vb_ci+xvf2_Vb_ci))*0.5);
2764 #endif
2765 #endif
2766 v_j=(vf-((VT*(xvf+xvf2))*0.5));
2767 #if defined(_DERIVATE)
2768 x_Vtnode_GND=0.0;
2769 x_Vci_ei=0.0;
2770 #endif
2771 x=(1.0-zcx);
2772 {
2773 double m00_logE(d00_logE0,(1.0-(v_j/vdcx_t)))
2774 double m00_exp(d00_exp1,(x*d00_logE0))
2775 #if defined(_DERIVATEFORDDX)
2776 double m10_logE(d10_logE0,d00_logE0,(1.0-(v_j/vdcx_t)))
2777 #define d10_exp1 d00_exp1
2778 #endif
2779 #if defined(_DERIVATEFORDDX)
2780 #if defined(_DERIVATE)
2781 y_Vci_ei=0.0;
2782 #endif
2783 #if defined(_DERIVATE)
2784 y_Vs_ci=0.0;
2785 #endif
2786 y_Vbi_ei=0.0;
2787 #if defined(_DERIVATE)
2788  y_Vbi_ei_Vci_ei=0.0;
2789  y_Vbi_ei_Vs_ci=0.0;
2790  y_Vbi_ei_Vbi_ei=0.0;
2791  y_Vbi_ei_Vbi_ci=0.0;
2792  y_Vbi_ei_Vtnode_GND=0.0;
2793  y_Vbi_ei_Vb_ci=0.0;
2794 #endif
2795 y_Vbi_ci=(-(x*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0)*d10_exp1);
2796 #if defined(_DERIVATE)
2797  y_Vbi_ci_Vci_ei=(+0.0-(m20_exp((x*d00_logE0))*(x_Vci_ei*d00_logE0)*(x*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*0.0+x_Vci_ei*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0+x*0.0)));
2798  y_Vbi_ci_Vs_ci=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vs_ci/vdcx_t))*d10_logE0))*(x*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vs_ci/vdcx_t))*d10_logE0+0.0*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vdcx_t)))*(-(v_j_Vs_ci/vdcx_t))*(-(v_j_Vbi_ci/vdcx_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vs_ci/vdcx_t-(v_j_Vbi_ci*0.0+v_j_Vs_ci*0.0+v_j*0.0)/vdcx_t/vdcx_t+2*v_j*0.0*0.0/vdcx_t/vdcx_t/vdcx_t))))));
2799  y_Vbi_ci_Vbi_ei=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vbi_ei/vdcx_t))*d10_logE0))*(x*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vbi_ei/vdcx_t))*d10_logE0+0.0*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vdcx_t)))*(-(v_j_Vbi_ei/vdcx_t))*(-(v_j_Vbi_ci/vdcx_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vbi_ei/vdcx_t-(v_j_Vbi_ci*0.0+v_j_Vbi_ei*0.0+v_j*0.0)/vdcx_t/vdcx_t+2*v_j*0.0*0.0/vdcx_t/vdcx_t/vdcx_t))))));
2800  y_Vbi_ci_Vbi_ci=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0))*(x*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0+0.0*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vdcx_t)))*(-(v_j_Vbi_ci/vdcx_t))*(-(v_j_Vbi_ci/vdcx_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vbi_ci/vdcx_t-(v_j_Vbi_ci*0.0+v_j_Vbi_ci*0.0+v_j*0.0)/vdcx_t/vdcx_t+2*v_j*0.0*0.0/vdcx_t/vdcx_t/vdcx_t))))));
2801  y_Vbi_ci_Vtnode_GND=(+0.0-(m20_exp((x*d00_logE0))*(((x_Vtnode_GND*d00_logE0)+(x*(-((v_j_Vtnode_GND*vdcx_t-v_j*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0)))*(x*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-((v_j_Vtnode_GND*vdcx_t-v_j*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0+x_Vtnode_GND*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vdcx_t)))*(-((v_j_Vtnode_GND*vdcx_t-v_j*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*(-(v_j_Vbi_ci/vdcx_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vtnode_GND/vdcx_t-(v_j_Vbi_ci*vdcx_t_Vtnode_GND+v_j_Vtnode_GND*0.0+v_j*0.0)/vdcx_t/vdcx_t+2*v_j*0.0*vdcx_t_Vtnode_GND/vdcx_t/vdcx_t/vdcx_t))))));
2802  y_Vbi_ci_Vb_ci=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vb_ci/vdcx_t))*d10_logE0))*(x*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vb_ci/vdcx_t))*d10_logE0+0.0*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vdcx_t)))*(-(v_j_Vb_ci/vdcx_t))*(-(v_j_Vbi_ci/vdcx_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vb_ci/vdcx_t-(v_j_Vbi_ci*0.0+v_j_Vb_ci*0.0+v_j*0.0)/vdcx_t/vdcx_t+2*v_j*0.0*0.0/vdcx_t/vdcx_t/vdcx_t))))));
2803 #endif
2804 #if defined(_DERIVATE)
2805 y_Vtnode_GND=(-((x_Vtnode_GND*d00_logE0)+(x*(-((v_j_Vtnode_GND*vdcx_t-v_j*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0))*d10_exp1);
2806 #endif
2807 #if defined(_DERIVATE)
2808 y_Vb_ci=(-(x*(-(v_j_Vb_ci/vdcx_t))*d10_logE0)*d10_exp1);
2809 #endif
2810 #endif
2811 y=(1.0-d00_exp1);
2812 }
2813 #if defined(_DYNAMIC)
2814 #if defined(_DERIVATE)
2815 qjcxi_Vbi_ci=((((cjcx0_t_ii*vdcx_t)*y_Vbi_ci)/x)+((2.4*cjcx0_t_ii)*(Vbici_Vbi_ci-v_j_Vbi_ci)));
2816 qjcxi_Vtnode_GND=(((((((cjcx0_t_ii_Vtnode_GND*vdcx_t)+(cjcx0_t_ii*vdcx_t_Vtnode_GND))*y)+((cjcx0_t_ii*vdcx_t)*y_Vtnode_GND))*x-((cjcx0_t_ii*vdcx_t)*y)*x_Vtnode_GND)/x/x)+(((2.4*cjcx0_t_ii_Vtnode_GND)*(Vbici-v_j))+((2.4*cjcx0_t_ii)*(-v_j_Vtnode_GND))));
2817 qjcxi_Vb_ci=((((cjcx0_t_ii*vdcx_t)*y_Vb_ci)/x)+((2.4*cjcx0_t_ii)*(-v_j_Vb_ci)));
2818 #endif
2819 qjcxi=((((cjcx0_t_ii*vdcx_t)*y)/x)+((2.4*cjcx0_t_ii)*(Vbici-v_j)));
2820 #endif
2821 }
2822 else
2823 {
2824 #if defined(_DYNAMIC)
2825 #if defined(_DERIVATE)
2826 qjcxi_Vbi_ci=0.0;
2827 qjcxi_Vtnode_GND=0.0;
2828 qjcxi_Vb_ci=0.0;
2829 #endif
2830 qjcxi=0.0;
2831 #endif
2832 }
2833 }
2834 #if defined(_DERIVATE)
2835 cjcx0_t_i_Vtnode_GND=cjcx0_t_Vtnode_GND*(1-fbc);
2836 #endif
2837 cjcx0_t_i=(cjcx0_t*(1-fbc));
2838 if
2839 ((vptcx<1.0e2))
2840 {
2841 if
2842 ((cjcx0_t_i>0.0))
2843 {
2844 zr=(zcx/4.0);
2845 #if defined(_DERIVATE)
2846 vp_Vtnode_GND=(-vdcx_t_Vtnode_GND);
2847 #endif
2848 vp=(vptcx-vdcx_t);
2849 {
2850 double m00_logE(d00_logE0,2.4)
2851 double m00_exp(d00_exp1,((-d00_logE0)/zcx))
2852 #if defined(_DERIVATE)
2853 vf_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
2854 #endif
2855 vf=(vdcx_t*(1.0-d00_exp1));
2856 }
2857 #if defined(_DERIVATE)
2858 cmax_Vtnode_GND=(2.4*cjcx0_t_i_Vtnode_GND);
2859 #endif
2860 cmax=(2.4*cjcx0_t_i);
2861 {
2862 double m00_logE(d00_logE0,(vdcx_t/vptcx))
2863 double m00_exp(d00_exp1,((zcx-zr)*d00_logE0))
2864 #if defined(_DERIVATE)
2865 double m10_logE(d10_logE0,d00_logE0,(vdcx_t/vptcx))
2866 #define d10_exp1 d00_exp1
2867 #endif
2868 #if defined(_DERIVATE)
2869 cr_Vtnode_GND=((cjcx0_t_i_Vtnode_GND*d00_exp1)+(cjcx0_t_i*((zcx-zr)*(vdcx_t_Vtnode_GND/vptcx)*d10_logE0)*d10_exp1));
2870 #endif
2871 cr=(cjcx0_t_i*d00_exp1);
2872 }
2873 #if defined(_DERIVATE)
2874 a_Vci_ei=0.0;
2875 a_Vbi_ei=0.0;
2876 a_Vbi_ci=0.0;
2877 a_Vb_ci=0.0;
2878 a_Vtnode_GND=VT_Vtnode_GND;
2879 #endif
2880 a=VT;
2881 #if defined(_DERIVATE)
2882 ve_Vs_ci=0.0;
2883 ve_Vci_ei=0.0;
2884 ve_Vbi_ei=0.0;
2885 ve_Vbi_ci=0.0;
2886 ve_Vtnode_GND=((vf_Vtnode_GND*a-(vf-Vbci)*a_Vtnode_GND)/a/a);
2887 ve_Vb_ci=(((-Vbci_Vb_ci)*a-(vf-Vbci)*a_Vb_ci)/a/a);
2888 #endif
2889 ve=((vf-Vbci)/a);
2890 if
2891 ((ve<=80.0))
2892 {
2893 {
2894 double m00_exp(d00_exp0,ve)
2895 #if defined(_DERIVATE)
2896 #define d10_exp0 d00_exp0
2897 #endif
2898 #if defined(_DERIVATE)
2899 ex1_Vs_ci=0.0;
2900 ex1_Vci_ei=0.0;
2901 ex1_Vbi_ei=0.0;
2902 ex1_Vbi_ci=ve_Vbi_ci*d10_exp0;
2903 ex1_Vtnode_GND=ve_Vtnode_GND*d10_exp0;
2904 ex1_Vb_ci=ve_Vb_ci*d10_exp0;
2905 #endif
2906 ex1=d00_exp0;
2907 }
2908 #if defined(_DERIVATE)
2909 ee1_Vs_ci=0.0;
2910 ee1_Vci_ei=0.0;
2911 ee1_Vbi_ei=0.0;
2912 ee1_Vbi_ci=ex1_Vbi_ci;
2913 ee1_Vtnode_GND=ex1_Vtnode_GND;
2914 ee1_Vb_ci=ex1_Vb_ci;
2915 #endif
2916 ee1=(1.0+ex1);
2917 {
2918 double m00_logE(d00_logE0,ee1)
2919 #if defined(_DERIVATE)
2920 double m10_logE(d10_logE0,d00_logE0,ee1)
2921 #endif
2922 #if defined(_DERIVATE)
2923 vj1_Vci_ei=0.0;
2924 vj1_Vbi_ei=0.0;
2925 vj1_Vs_ci=0.0;
2926 vj1_Vbi_ci=(-((a_Vbi_ci*d00_logE0)+(a*ee1_Vbi_ci*d10_logE0)));
2927 vj1_Vtnode_GND=(vf_Vtnode_GND-((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
2928 vj1_Vb_ci=(-((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0)));
2929 #endif
2930 vj1=(vf-(a*d00_logE0));
2931 }
2932 }
2933 else
2934 {
2935 #if defined(_DERIVATE)
2936 vj1_Vci_ei=0.0;
2937 vj1_Vbi_ei=0.0;
2938 vj1_Vs_ci=0.0;
2939 vj1_Vbi_ci=0.0;
2940 vj1_Vtnode_GND=0.0;
2941 vj1_Vb_ci=Vbci_Vb_ci;
2942 #endif
2943 vj1=Vbci;
2944 }
2945 #if defined(_DERIVATE)
2946 a_Vci_ei=0.0;
2947 a_Vbi_ei=0.0;
2948 a_Vbi_ci=0.0;
2949 a_Vb_ci=0.0;
2950 a_Vtnode_GND=((0.1*vp_Vtnode_GND)+(4.0*VT_Vtnode_GND));
2951 #endif
2952 a=((0.1*vp)+(4.0*VT));
2953 #if defined(_DERIVATE)
2954 vr_Vci_ei=0.0;
2955 vr_Vbi_ei=0.0;
2956 vr_Vs_ci=0.0;
2957 vr_Vbi_ci=((vj1_Vbi_ci*a-(vp+vj1)*a_Vbi_ci)/a/a);
2958 vr_Vtnode_GND=(((vp_Vtnode_GND+vj1_Vtnode_GND)*a-(vp+vj1)*a_Vtnode_GND)/a/a);
2959 vr_Vb_ci=((vj1_Vb_ci*a-(vp+vj1)*a_Vb_ci)/a/a);
2960 #endif
2961 vr=((vp+vj1)/a);
2962 if
2963 ((vr<=80.0))
2964 {
2965 {
2966 double m00_exp(d00_exp0,vr)
2967 #if defined(_DERIVATE)
2968 #define d10_exp0 d00_exp0
2969 #endif
2970 #if defined(_DERIVATE)
2971 ex1_Vs_ci=0.0;
2972 ex1_Vci_ei=0.0;
2973 ex1_Vbi_ei=0.0;
2974 ex1_Vbi_ci=vr_Vbi_ci*d10_exp0;
2975 ex1_Vtnode_GND=vr_Vtnode_GND*d10_exp0;
2976 ex1_Vb_ci=vr_Vb_ci*d10_exp0;
2977 #endif
2978 ex1=d00_exp0;
2979 }
2980 #if defined(_DERIVATE)
2981 ee1_Vs_ci=0.0;
2982 ee1_Vci_ei=0.0;
2983 ee1_Vbi_ei=0.0;
2984 ee1_Vbi_ci=ex1_Vbi_ci;
2985 ee1_Vtnode_GND=ex1_Vtnode_GND;
2986 ee1_Vb_ci=ex1_Vb_ci;
2987 #endif
2988 ee1=(1.0+ex1);
2989 {
2990 double m00_logE(d00_logE0,ee1)
2991 #if defined(_DERIVATE)
2992 double m10_logE(d10_logE0,d00_logE0,ee1)
2993 #endif
2994 #if defined(_DERIVATE)
2995 vj2_Vci_ei=0.0;
2996 vj2_Vbi_ei=0.0;
2997 vj2_Vs_ci=0.0;
2998 vj2_Vbi_ci=((a_Vbi_ci*d00_logE0)+(a*ee1_Vbi_ci*d10_logE0));
2999 vj2_Vtnode_GND=((-vp_Vtnode_GND)+((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
3000 vj2_Vb_ci=((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0));
3001 #endif
3002 vj2=((-vp)+(a*d00_logE0));
3003 }
3004 }
3005 else
3006 {
3007 #if defined(_DERIVATE)
3008 vj2_Vci_ei=0.0;
3009 vj2_Vbi_ei=0.0;
3010 vj2_Vs_ci=0.0;
3011 vj2_Vbi_ci=vj1_Vbi_ci;
3012 vj2_Vtnode_GND=vj1_Vtnode_GND;
3013 vj2_Vb_ci=vj1_Vb_ci;
3014 #endif
3015 vj2=vj1;
3016 }
3017 #if defined(_DERIVATE)
3018 vj4_Vs_ci=0.0;
3019 vj4_Vci_ei=0.0;
3020 vj4_Vbi_ei=0.0;
3021 vj4_Vbi_ci=(-vj1_Vbi_ci);
3022 vj4_Vb_ci=(Vbci_Vb_ci-vj1_Vb_ci);
3023 vj4_Vtnode_GND=(-vj1_Vtnode_GND);
3024 #endif
3025 vj4=(Vbci-vj1);
3026 ez=(1.0-zcx);
3027 ezr=(1.0-zr);
3028 {
3029 double m00_logE(d00_logE0,(1.0-(vj1/vdcx_t)))
3030 #if defined(_DERIVATE)
3031 double m10_logE(d10_logE0,d00_logE0,(1.0-(vj1/vdcx_t)))
3032 #endif
3033 #if defined(_DERIVATE)
3034 vdj1_Vci_ei=0.0;
3035 vdj1_Vbi_ei=0.0;
3036 vdj1_Vs_ci=0.0;
3037 vdj1_Vbi_ci=(-(vj1_Vbi_ci/vdcx_t))*d10_logE0;
3038 vdj1_Vtnode_GND=(-((vj1_Vtnode_GND*vdcx_t-vj1*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
3039 vdj1_Vb_ci=(-(vj1_Vb_ci/vdcx_t))*d10_logE0;
3040 #endif
3041 vdj1=d00_logE0;
3042 }
3043 {
3044 double m00_logE(d00_logE0,(1.0-(vj2/vdcx_t)))
3045 #if defined(_DERIVATE)
3046 double m10_logE(d10_logE0,d00_logE0,(1.0-(vj2/vdcx_t)))
3047 #endif
3048 #if defined(_DERIVATE)
3049 vdj2_Vci_ei=0.0;
3050 vdj2_Vbi_ei=0.0;
3051 vdj2_Vs_ci=0.0;
3052 vdj2_Vbi_ci=(-(vj2_Vbi_ci/vdcx_t))*d10_logE0;
3053 vdj2_Vtnode_GND=(-((vj2_Vtnode_GND*vdcx_t-vj2*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0;
3054 vdj2_Vb_ci=(-(vj2_Vb_ci/vdcx_t))*d10_logE0;
3055 #endif
3056 vdj2=d00_logE0;
3057 }
3058 {
3059 double m00_exp(d00_exp0,(vdj2*ez))
3060 #if defined(_DERIVATE)
3061 #define d10_exp0 d00_exp0
3062 #endif
3063 #if defined(_DERIVATE)
3064 qj1_Vci_ei=0.0;
3065 qj1_Vbi_ei=0.0;
3066 qj1_Vs_ci=0.0;
3067 qj1_Vbi_ci=((cjcx0_t_i*(-vdj2_Vbi_ci*ez*d10_exp0))/ez);
3068 qj1_Vtnode_GND=(((cjcx0_t_i_Vtnode_GND*(1.0-d00_exp0))+(cjcx0_t_i*(-vdj2_Vtnode_GND*ez*d10_exp0)))/ez);
3069 qj1_Vb_ci=((cjcx0_t_i*(-vdj2_Vb_ci*ez*d10_exp0))/ez);
3070 #endif
3071 qj1=((cjcx0_t_i*(1.0-d00_exp0))/ez);
3072 }
3073 {
3074 double m00_exp(d00_exp0,(vdj1*ezr))
3075 #if defined(_DERIVATE)
3076 #define d10_exp0 d00_exp0
3077 #endif
3078 #if defined(_DERIVATE)
3079 qj2_Vci_ei=0.0;
3080 qj2_Vbi_ei=0.0;
3081 qj2_Vs_ci=0.0;
3082 qj2_Vbi_ci=((cr*(-vdj1_Vbi_ci*ezr*d10_exp0))/ezr);
3083 qj2_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj1_Vtnode_GND*ezr*d10_exp0)))/ezr);
3084 qj2_Vb_ci=((cr*(-vdj1_Vb_ci*ezr*d10_exp0))/ezr);
3085 #endif
3086 qj2=((cr*(1.0-d00_exp0))/ezr);
3087 }
3088 {
3089 double m00_exp(d00_exp0,(vdj2*ezr))
3090 #if defined(_DERIVATE)
3091 #define d10_exp0 d00_exp0
3092 #endif
3093 #if defined(_DERIVATE)
3094 qj3_Vci_ei=0.0;
3095 qj3_Vbi_ei=0.0;
3096 qj3_Vs_ci=0.0;
3097 qj3_Vbi_ci=((cr*(-vdj2_Vbi_ci*ezr*d10_exp0))/ezr);
3098 qj3_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj2_Vtnode_GND*ezr*d10_exp0)))/ezr);
3099 qj3_Vb_ci=((cr*(-vdj2_Vb_ci*ezr*d10_exp0))/ezr);
3100 #endif
3101 qj3=((cr*(1.0-d00_exp0))/ezr);
3102 }
3103 #if defined(_DYNAMIC)
3104 #if defined(_DERIVATE)
3105 qjcx_Vbi_ci=(((qj1_Vbi_ci+qj2_Vbi_ci)-qj3_Vbi_ci)*vdcx_t+(cmax*vj4_Vbi_ci));
3106 qjcx_Vtnode_GND=(((((qj1_Vtnode_GND+qj2_Vtnode_GND)-qj3_Vtnode_GND)*vdcx_t)+(((qj1+qj2)-qj3)*vdcx_t_Vtnode_GND))+((cmax_Vtnode_GND*vj4)+(cmax*vj4_Vtnode_GND)));
3107 qjcx_Vb_ci=(((qj1_Vb_ci+qj2_Vb_ci)-qj3_Vb_ci)*vdcx_t+(cmax*vj4_Vb_ci));
3108 #endif
3109 qjcx=((((qj1+qj2)-qj3)*vdcx_t)+(cmax*vj4));
3110 #endif
3111 }
3112 else
3113 {
3114 #if defined(_DYNAMIC)
3115 #if defined(_DERIVATE)
3116 qjcx_Vbi_ci=0.0;
3117 qjcx_Vtnode_GND=0.0;
3118 qjcx_Vb_ci=0.0;
3119 #endif
3120 qjcx=0.0;
3121 #endif
3122 }
3123 }
3124 else
3125 {
3126 if
3127 ((cjcx0_t_i>0.0))
3128 {
3129 {
3130 double m00_logE(d00_logE0,2.4)
3131 double m00_exp(d00_exp1,((-d00_logE0)/zcx))
3132 #if defined(_DERIVATE)
3133 vf_Vtnode_GND=vdcx_t_Vtnode_GND*(1.0-d00_exp1);
3134 #endif
3135 vf=(vdcx_t*(1.0-d00_exp1));
3136 }
3137 #if defined(_DERIVATEFORDDX)
3138 #if defined(_DERIVATE)
3139 xvf_Vs_ci=0.0;
3140 #endif
3141 xvf_Vbi_ei=0.0;
3142 #if defined(_DERIVATE)
3143  xvf_Vbi_ei_Vs_ci=0.0;
3144  xvf_Vbi_ei_Vbi_ei=0.0;
3145  xvf_Vbi_ei_Vbi_ci=0.0;
3146  xvf_Vbi_ei_Vtnode_GND=0.0;
3147  xvf_Vbi_ei_Vb_ci=0.0;
3148 #endif
3149 xvf_Vbi_ci=0.0;
3150 #if defined(_DERIVATE)
3151  xvf_Vbi_ci_Vs_ci=0.0;
3152  xvf_Vbi_ci_Vbi_ei=0.0;
3153  xvf_Vbi_ci_Vbi_ci=0.0;
3154  xvf_Vbi_ci_Vtnode_GND=0.0;
3155  xvf_Vbi_ci_Vb_ci=0.0;
3156 #endif
3157 #if defined(_DERIVATE)
3158 xvf_Vtnode_GND=((vf_Vtnode_GND*VT-(vf-Vbci)*VT_Vtnode_GND)/VT/VT);
3159 #endif
3160 #if defined(_DERIVATE)
3161 xvf_Vb_ci=((-Vbci_Vb_ci)/VT);
3162 #endif
3163 #endif
3164 xvf=((vf-Vbci)/VT);
3165 {
3166 double m00_sqrt(d00_sqrt0,((xvf*xvf)+1.921812))
3167 #if defined(_DERIVATEFORDDX)
3168 double m10_sqrt(d10_sqrt0,d00_sqrt0,((xvf*xvf)+1.921812))
3169 #endif
3170 #if defined(_DERIVATEFORDDX)
3171 #if defined(_DERIVATE)
3172 xvf2_Vs_ci=0.0;
3173 #endif
3174 xvf2_Vbi_ei=0.0;
3175 #if defined(_DERIVATE)
3176  xvf2_Vbi_ei_Vs_ci=0.0;
3177  xvf2_Vbi_ei_Vbi_ei=0.0;
3178  xvf2_Vbi_ei_Vbi_ci=0.0;
3179  xvf2_Vbi_ei_Vtnode_GND=0.0;
3180  xvf2_Vbi_ei_Vb_ci=0.0;
3181 #endif
3182 xvf2_Vbi_ci=((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))*d10_sqrt0;
3183 #if defined(_DERIVATE)
3184  xvf2_Vbi_ci_Vs_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vs_ci*xvf)+(xvf*xvf_Vs_ci)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vs_ci*xvf+xvf_Vbi_ci*xvf_Vs_ci+xvf_Vs_ci*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vs_ci)+0.0));
3185  xvf2_Vbi_ci_Vbi_ei=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vbi_ei*xvf+xvf_Vbi_ci*xvf_Vbi_ei+xvf_Vbi_ei*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vbi_ei)+0.0));
3186  xvf2_Vbi_ci_Vbi_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vbi_ci*xvf+xvf_Vbi_ci*xvf_Vbi_ci+xvf_Vbi_ci*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vbi_ci)+0.0));
3187  xvf2_Vbi_ci_Vtnode_GND=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vtnode_GND*xvf+xvf_Vbi_ci*xvf_Vtnode_GND+xvf_Vtnode_GND*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vtnode_GND)+0.0));
3188  xvf2_Vbi_ci_Vb_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vb_ci*xvf+xvf_Vbi_ci*xvf_Vb_ci+xvf_Vb_ci*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vb_ci)+0.0));
3189 #endif
3190 #if defined(_DERIVATE)
3191 xvf2_Vtnode_GND=((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND))*d10_sqrt0;
3192 #endif
3193 #if defined(_DERIVATE)
3194 xvf2_Vb_ci=((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci))*d10_sqrt0;
3195 #endif
3196 #endif
3197 xvf2=d00_sqrt0;
3198 }
3199 #if defined(_DERIVATEFORDDX)
3200 #if defined(_DERIVATE)
3201 v_j_Vs_ci=0.0;
3202 #endif
3203 v_j_Vbi_ei=0.0;
3204 #if defined(_DERIVATE)
3205  v_j_Vbi_ei_Vs_ci=0.0;
3206  v_j_Vbi_ei_Vbi_ei=0.0;
3207  v_j_Vbi_ei_Vbi_ci=0.0;
3208  v_j_Vbi_ei_Vtnode_GND=0.0;
3209  v_j_Vbi_ei_Vb_ci=0.0;
3210 #endif
3211 v_j_Vbi_ci=(-(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.5);
3212 #if defined(_DERIVATE)
3213  v_j_Vbi_ci_Vs_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vs_ci+xvf2_Vs_ci)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vs_ci+xvf2_Vbi_ci_Vs_ci))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vs_ci+xvf2_Vs_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
3214  v_j_Vbi_ci_Vbi_ei=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vbi_ei+xvf2_Vbi_ei)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vbi_ei+xvf2_Vbi_ci_Vbi_ei))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vbi_ei+xvf2_Vbi_ei)))*0.0+(VT*(xvf+xvf2))*0.0));
3215  v_j_Vbi_ci_Vbi_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vbi_ci+xvf2_Vbi_ci_Vbi_ci))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vbi_ci+xvf2_Vbi_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
3216  v_j_Vbi_ci_Vtnode_GND=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vtnode_GND+xvf2_Vtnode_GND)+VT_Vtnode_GND*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vtnode_GND+xvf2_Vbi_ci_Vtnode_GND))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+(((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND))))*0.0+(VT*(xvf+xvf2))*0.0));
3217  v_j_Vbi_ci_Vb_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vb_ci+xvf2_Vb_ci)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vb_ci+xvf2_Vbi_ci_Vb_ci))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vb_ci+xvf2_Vb_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
3218 #endif
3219 #if defined(_DERIVATE)
3220 v_j_Vtnode_GND=(vf_Vtnode_GND-((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND)))*0.5);
3221 #endif
3222 #if defined(_DERIVATE)
3223 v_j_Vb_ci=(-(VT*(xvf_Vb_ci+xvf2_Vb_ci))*0.5);
3224 #endif
3225 #endif
3226 v_j=(vf-((VT*(xvf+xvf2))*0.5));
3227 #if defined(_DERIVATE)
3228 x_Vtnode_GND=0.0;
3229 x_Vci_ei=0.0;
3230 #endif
3231 x=(1.0-zcx);
3232 {
3233 double m00_logE(d00_logE0,(1.0-(v_j/vdcx_t)))
3234 double m00_exp(d00_exp1,(x*d00_logE0))
3235 #if defined(_DERIVATEFORDDX)
3236 double m10_logE(d10_logE0,d00_logE0,(1.0-(v_j/vdcx_t)))
3237 #define d10_exp1 d00_exp1
3238 #endif
3239 #if defined(_DERIVATEFORDDX)
3240 #if defined(_DERIVATE)
3241 y_Vci_ei=0.0;
3242 #endif
3243 #if defined(_DERIVATE)
3244 y_Vs_ci=0.0;
3245 #endif
3246 y_Vbi_ei=0.0;
3247 #if defined(_DERIVATE)
3248  y_Vbi_ei_Vci_ei=0.0;
3249  y_Vbi_ei_Vs_ci=0.0;
3250  y_Vbi_ei_Vbi_ei=0.0;
3251  y_Vbi_ei_Vbi_ci=0.0;
3252  y_Vbi_ei_Vtnode_GND=0.0;
3253  y_Vbi_ei_Vb_ci=0.0;
3254 #endif
3255 y_Vbi_ci=(-(x*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0)*d10_exp1);
3256 #if defined(_DERIVATE)
3257  y_Vbi_ci_Vci_ei=(+0.0-(m20_exp((x*d00_logE0))*(x_Vci_ei*d00_logE0)*(x*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*0.0+x_Vci_ei*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0+x*0.0)));
3258  y_Vbi_ci_Vs_ci=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vs_ci/vdcx_t))*d10_logE0))*(x*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vs_ci/vdcx_t))*d10_logE0+0.0*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vdcx_t)))*(-(v_j_Vs_ci/vdcx_t))*(-(v_j_Vbi_ci/vdcx_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vs_ci/vdcx_t-(v_j_Vbi_ci*0.0+v_j_Vs_ci*0.0+v_j*0.0)/vdcx_t/vdcx_t+2*v_j*0.0*0.0/vdcx_t/vdcx_t/vdcx_t))))));
3259  y_Vbi_ci_Vbi_ei=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vbi_ei/vdcx_t))*d10_logE0))*(x*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vbi_ei/vdcx_t))*d10_logE0+0.0*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vdcx_t)))*(-(v_j_Vbi_ei/vdcx_t))*(-(v_j_Vbi_ci/vdcx_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vbi_ei/vdcx_t-(v_j_Vbi_ci*0.0+v_j_Vbi_ei*0.0+v_j*0.0)/vdcx_t/vdcx_t+2*v_j*0.0*0.0/vdcx_t/vdcx_t/vdcx_t))))));
3260  y_Vbi_ci_Vbi_ci=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0))*(x*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0+0.0*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vdcx_t)))*(-(v_j_Vbi_ci/vdcx_t))*(-(v_j_Vbi_ci/vdcx_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vbi_ci/vdcx_t-(v_j_Vbi_ci*0.0+v_j_Vbi_ci*0.0+v_j*0.0)/vdcx_t/vdcx_t+2*v_j*0.0*0.0/vdcx_t/vdcx_t/vdcx_t))))));
3261  y_Vbi_ci_Vtnode_GND=(+0.0-(m20_exp((x*d00_logE0))*(((x_Vtnode_GND*d00_logE0)+(x*(-((v_j_Vtnode_GND*vdcx_t-v_j*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0)))*(x*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-((v_j_Vtnode_GND*vdcx_t-v_j*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0+x_Vtnode_GND*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vdcx_t)))*(-((v_j_Vtnode_GND*vdcx_t-v_j*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*(-(v_j_Vbi_ci/vdcx_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vtnode_GND/vdcx_t-(v_j_Vbi_ci*vdcx_t_Vtnode_GND+v_j_Vtnode_GND*0.0+v_j*0.0)/vdcx_t/vdcx_t+2*v_j*0.0*vdcx_t_Vtnode_GND/vdcx_t/vdcx_t/vdcx_t))))));
3262  y_Vbi_ci_Vb_ci=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vb_ci/vdcx_t))*d10_logE0))*(x*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vb_ci/vdcx_t))*d10_logE0+0.0*(-(v_j_Vbi_ci/vdcx_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vdcx_t)))*(-(v_j_Vb_ci/vdcx_t))*(-(v_j_Vbi_ci/vdcx_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vb_ci/vdcx_t-(v_j_Vbi_ci*0.0+v_j_Vb_ci*0.0+v_j*0.0)/vdcx_t/vdcx_t+2*v_j*0.0*0.0/vdcx_t/vdcx_t/vdcx_t))))));
3263 #endif
3264 #if defined(_DERIVATE)
3265 y_Vtnode_GND=(-((x_Vtnode_GND*d00_logE0)+(x*(-((v_j_Vtnode_GND*vdcx_t-v_j*vdcx_t_Vtnode_GND)/vdcx_t/vdcx_t))*d10_logE0))*d10_exp1);
3266 #endif
3267 #if defined(_DERIVATE)
3268 y_Vb_ci=(-(x*(-(v_j_Vb_ci/vdcx_t))*d10_logE0)*d10_exp1);
3269 #endif
3270 #endif
3271 y=(1.0-d00_exp1);
3272 }
3273 #if defined(_DYNAMIC)
3274 #if defined(_DERIVATE)
3275 qjcx_Vbi_ci=((((cjcx0_t_i*vdcx_t)*y_Vbi_ci)/x)+((2.4*cjcx0_t_i)*(-v_j_Vbi_ci)));
3276 qjcx_Vtnode_GND=(((((((cjcx0_t_i_Vtnode_GND*vdcx_t)+(cjcx0_t_i*vdcx_t_Vtnode_GND))*y)+((cjcx0_t_i*vdcx_t)*y_Vtnode_GND))*x-((cjcx0_t_i*vdcx_t)*y)*x_Vtnode_GND)/x/x)+(((2.4*cjcx0_t_i_Vtnode_GND)*(Vbci-v_j))+((2.4*cjcx0_t_i)*(-v_j_Vtnode_GND))));
3277 qjcx_Vb_ci=((((cjcx0_t_i*vdcx_t)*y_Vb_ci)/x)+((2.4*cjcx0_t_i)*(Vbci_Vb_ci-v_j_Vb_ci)));
3278 #endif
3279 qjcx=((((cjcx0_t_i*vdcx_t)*y)/x)+((2.4*cjcx0_t_i)*(Vbci-v_j)));
3280 #endif
3281 }
3282 else
3283 {
3284 #if defined(_DYNAMIC)
3285 #if defined(_DERIVATE)
3286 qjcx_Vbi_ci=0.0;
3287 qjcx_Vtnode_GND=0.0;
3288 qjcx_Vb_ci=0.0;
3289 #endif
3290 qjcx=0.0;
3291 #endif
3292 }
3293 }
3294 }
3295 if
3296 ((vptci<1.0e2))
3297 {
3298 if
3299 ((cjci0_t_ii>0.0))
3300 {
3301 zr=(zci/4.0);
3302 #if defined(_DERIVATE)
3303 vp_Vtnode_GND=(-vdci_t_Vtnode_GND);
3304 #endif
3305 vp=(vptci-vdci_t);
3306 {
3307 double m00_logE(d00_logE0,2.4)
3308 double m00_exp(d00_exp1,((-d00_logE0)/zci))
3309 #if defined(_DERIVATE)
3310 vf_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
3311 #endif
3312 vf=(vdci_t*(1.0-d00_exp1));
3313 }
3314 #if defined(_DERIVATE)
3315 cmax_Vtnode_GND=(2.4*cjci0_t_ii_Vtnode_GND);
3316 #endif
3317 cmax=(2.4*cjci0_t_ii);
3318 {
3319 double m00_logE(d00_logE0,(vdci_t/vptci))
3320 double m00_exp(d00_exp1,((zci-zr)*d00_logE0))
3321 #if defined(_DERIVATE)
3322 double m10_logE(d10_logE0,d00_logE0,(vdci_t/vptci))
3323 #define d10_exp1 d00_exp1
3324 #endif
3325 #if defined(_DERIVATE)
3326 cr_Vtnode_GND=((cjci0_t_ii_Vtnode_GND*d00_exp1)+(cjci0_t_ii*((zci-zr)*(vdci_t_Vtnode_GND/vptci)*d10_logE0)*d10_exp1));
3327 #endif
3328 cr=(cjci0_t_ii*d00_exp1);
3329 }
3330 #if defined(_DERIVATE)
3331 a_Vci_ei=0.0;
3332 a_Vbi_ei=0.0;
3333 a_Vbi_ci=0.0;
3334 a_Vb_ci=0.0;
3335 a_Vtnode_GND=VT_Vtnode_GND;
3336 #endif
3337 a=VT;
3338 #if defined(_DERIVATE)
3339 ve_Vs_ci=0.0;
3340 ve_Vci_ei=0.0;
3341 ve_Vbi_ei=0.0;
3342 ve_Vbi_ci=(((-Vbici_Vbi_ci)*a-(vf-Vbici)*a_Vbi_ci)/a/a);
3343 ve_Vtnode_GND=((vf_Vtnode_GND*a-(vf-Vbici)*a_Vtnode_GND)/a/a);
3344 ve_Vb_ci=0.0;
3345 #endif
3346 ve=((vf-Vbici)/a);
3347 if
3348 ((ve<=80.0))
3349 {
3350 {
3351 double m00_exp(d00_exp0,ve)
3352 #if defined(_DERIVATE)
3353 #define d10_exp0 d00_exp0
3354 #endif
3355 #if defined(_DERIVATE)
3356 ex1_Vs_ci=0.0;
3357 ex1_Vci_ei=0.0;
3358 ex1_Vbi_ei=0.0;
3359 ex1_Vbi_ci=ve_Vbi_ci*d10_exp0;
3360 ex1_Vtnode_GND=ve_Vtnode_GND*d10_exp0;
3361 ex1_Vb_ci=ve_Vb_ci*d10_exp0;
3362 #endif
3363 ex1=d00_exp0;
3364 }
3365 #if defined(_DERIVATE)
3366 ee1_Vs_ci=0.0;
3367 ee1_Vci_ei=0.0;
3368 ee1_Vbi_ei=0.0;
3369 ee1_Vbi_ci=ex1_Vbi_ci;
3370 ee1_Vtnode_GND=ex1_Vtnode_GND;
3371 ee1_Vb_ci=ex1_Vb_ci;
3372 #endif
3373 ee1=(1.0+ex1);
3374 {
3375 double m00_logE(d00_logE0,ee1)
3376 #if defined(_DERIVATE)
3377 double m10_logE(d10_logE0,d00_logE0,ee1)
3378 #endif
3379 #if defined(_DERIVATE)
3380 vj1_Vci_ei=0.0;
3381 vj1_Vbi_ei=0.0;
3382 vj1_Vs_ci=0.0;
3383 vj1_Vbi_ci=(-((a_Vbi_ci*d00_logE0)+(a*ee1_Vbi_ci*d10_logE0)));
3384 vj1_Vtnode_GND=(vf_Vtnode_GND-((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
3385 vj1_Vb_ci=(-((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0)));
3386 #endif
3387 vj1=(vf-(a*d00_logE0));
3388 }
3389 }
3390 else
3391 {
3392 #if defined(_DERIVATE)
3393 vj1_Vci_ei=0.0;
3394 vj1_Vbi_ei=0.0;
3395 vj1_Vs_ci=0.0;
3396 vj1_Vbi_ci=Vbici_Vbi_ci;
3397 vj1_Vtnode_GND=0.0;
3398 vj1_Vb_ci=0.0;
3399 #endif
3400 vj1=Vbici;
3401 }
3402 #if defined(_DERIVATE)
3403 a_Vci_ei=0.0;
3404 a_Vbi_ei=0.0;
3405 a_Vbi_ci=0.0;
3406 a_Vb_ci=0.0;
3407 a_Vtnode_GND=((0.1*vp_Vtnode_GND)+(4.0*VT_Vtnode_GND));
3408 #endif
3409 a=((0.1*vp)+(4.0*VT));
3410 #if defined(_DERIVATE)
3411 vr_Vci_ei=0.0;
3412 vr_Vbi_ei=0.0;
3413 vr_Vs_ci=0.0;
3414 vr_Vbi_ci=((vj1_Vbi_ci*a-(vp+vj1)*a_Vbi_ci)/a/a);
3415 vr_Vtnode_GND=(((vp_Vtnode_GND+vj1_Vtnode_GND)*a-(vp+vj1)*a_Vtnode_GND)/a/a);
3416 vr_Vb_ci=((vj1_Vb_ci*a-(vp+vj1)*a_Vb_ci)/a/a);
3417 #endif
3418 vr=((vp+vj1)/a);
3419 if
3420 ((vr<=80.0))
3421 {
3422 {
3423 double m00_exp(d00_exp0,vr)
3424 #if defined(_DERIVATE)
3425 #define d10_exp0 d00_exp0
3426 #endif
3427 #if defined(_DERIVATE)
3428 ex1_Vs_ci=0.0;
3429 ex1_Vci_ei=0.0;
3430 ex1_Vbi_ei=0.0;
3431 ex1_Vbi_ci=vr_Vbi_ci*d10_exp0;
3432 ex1_Vtnode_GND=vr_Vtnode_GND*d10_exp0;
3433 ex1_Vb_ci=vr_Vb_ci*d10_exp0;
3434 #endif
3435 ex1=d00_exp0;
3436 }
3437 #if defined(_DERIVATE)
3438 ee1_Vs_ci=0.0;
3439 ee1_Vci_ei=0.0;
3440 ee1_Vbi_ei=0.0;
3441 ee1_Vbi_ci=ex1_Vbi_ci;
3442 ee1_Vtnode_GND=ex1_Vtnode_GND;
3443 ee1_Vb_ci=ex1_Vb_ci;
3444 #endif
3445 ee1=(1.0+ex1);
3446 {
3447 double m00_logE(d00_logE0,ee1)
3448 #if defined(_DERIVATE)
3449 double m10_logE(d10_logE0,d00_logE0,ee1)
3450 #endif
3451 #if defined(_DERIVATE)
3452 vj2_Vci_ei=0.0;
3453 vj2_Vbi_ei=0.0;
3454 vj2_Vs_ci=0.0;
3455 vj2_Vbi_ci=((a_Vbi_ci*d00_logE0)+(a*ee1_Vbi_ci*d10_logE0));
3456 vj2_Vtnode_GND=((-vp_Vtnode_GND)+((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
3457 vj2_Vb_ci=((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0));
3458 #endif
3459 vj2=((-vp)+(a*d00_logE0));
3460 }
3461 }
3462 else
3463 {
3464 #if defined(_DERIVATE)
3465 vj2_Vci_ei=0.0;
3466 vj2_Vbi_ei=0.0;
3467 vj2_Vs_ci=0.0;
3468 vj2_Vbi_ci=vj1_Vbi_ci;
3469 vj2_Vtnode_GND=vj1_Vtnode_GND;
3470 vj2_Vb_ci=vj1_Vb_ci;
3471 #endif
3472 vj2=vj1;
3473 }
3474 #if defined(_DERIVATE)
3475 vj4_Vs_ci=0.0;
3476 vj4_Vci_ei=0.0;
3477 vj4_Vbi_ei=0.0;
3478 vj4_Vbi_ci=(Vbici_Vbi_ci-vj1_Vbi_ci);
3479 vj4_Vb_ci=(-vj1_Vb_ci);
3480 vj4_Vtnode_GND=(-vj1_Vtnode_GND);
3481 #endif
3482 vj4=(Vbici-vj1);
3483 ez=(1.0-zci);
3484 ezr=(1.0-zr);
3485 {
3486 double m00_logE(d00_logE0,(1.0-(vj1/vdci_t)))
3487 #if defined(_DERIVATE)
3488 double m10_logE(d10_logE0,d00_logE0,(1.0-(vj1/vdci_t)))
3489 #endif
3490 #if defined(_DERIVATE)
3491 vdj1_Vci_ei=0.0;
3492 vdj1_Vbi_ei=0.0;
3493 vdj1_Vs_ci=0.0;
3494 vdj1_Vbi_ci=(-(vj1_Vbi_ci/vdci_t))*d10_logE0;
3495 vdj1_Vtnode_GND=(-((vj1_Vtnode_GND*vdci_t-vj1*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
3496 vdj1_Vb_ci=(-(vj1_Vb_ci/vdci_t))*d10_logE0;
3497 #endif
3498 vdj1=d00_logE0;
3499 }
3500 {
3501 double m00_logE(d00_logE0,(1.0-(vj2/vdci_t)))
3502 #if defined(_DERIVATE)
3503 double m10_logE(d10_logE0,d00_logE0,(1.0-(vj2/vdci_t)))
3504 #endif
3505 #if defined(_DERIVATE)
3506 vdj2_Vci_ei=0.0;
3507 vdj2_Vbi_ei=0.0;
3508 vdj2_Vs_ci=0.0;
3509 vdj2_Vbi_ci=(-(vj2_Vbi_ci/vdci_t))*d10_logE0;
3510 vdj2_Vtnode_GND=(-((vj2_Vtnode_GND*vdci_t-vj2*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0;
3511 vdj2_Vb_ci=(-(vj2_Vb_ci/vdci_t))*d10_logE0;
3512 #endif
3513 vdj2=d00_logE0;
3514 }
3515 {
3516 double m00_exp(d00_exp0,(vdj2*ez))
3517 #if defined(_DERIVATE)
3518 #define d10_exp0 d00_exp0
3519 #endif
3520 #if defined(_DERIVATE)
3521 qj1_Vci_ei=0.0;
3522 qj1_Vbi_ei=0.0;
3523 qj1_Vs_ci=0.0;
3524 qj1_Vbi_ci=((cjci0_t_ii*(-vdj2_Vbi_ci*ez*d10_exp0))/ez);
3525 qj1_Vtnode_GND=(((cjci0_t_ii_Vtnode_GND*(1.0-d00_exp0))+(cjci0_t_ii*(-vdj2_Vtnode_GND*ez*d10_exp0)))/ez);
3526 qj1_Vb_ci=((cjci0_t_ii*(-vdj2_Vb_ci*ez*d10_exp0))/ez);
3527 #endif
3528 qj1=((cjci0_t_ii*(1.0-d00_exp0))/ez);
3529 }
3530 {
3531 double m00_exp(d00_exp0,(vdj1*ezr))
3532 #if defined(_DERIVATE)
3533 #define d10_exp0 d00_exp0
3534 #endif
3535 #if defined(_DERIVATE)
3536 qj2_Vci_ei=0.0;
3537 qj2_Vbi_ei=0.0;
3538 qj2_Vs_ci=0.0;
3539 qj2_Vbi_ci=((cr*(-vdj1_Vbi_ci*ezr*d10_exp0))/ezr);
3540 qj2_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj1_Vtnode_GND*ezr*d10_exp0)))/ezr);
3541 qj2_Vb_ci=((cr*(-vdj1_Vb_ci*ezr*d10_exp0))/ezr);
3542 #endif
3543 qj2=((cr*(1.0-d00_exp0))/ezr);
3544 }
3545 {
3546 double m00_exp(d00_exp0,(vdj2*ezr))
3547 #if defined(_DERIVATE)
3548 #define d10_exp0 d00_exp0
3549 #endif
3550 #if defined(_DERIVATE)
3551 qj3_Vci_ei=0.0;
3552 qj3_Vbi_ei=0.0;
3553 qj3_Vs_ci=0.0;
3554 qj3_Vbi_ci=((cr*(-vdj2_Vbi_ci*ezr*d10_exp0))/ezr);
3555 qj3_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj2_Vtnode_GND*ezr*d10_exp0)))/ezr);
3556 qj3_Vb_ci=((cr*(-vdj2_Vb_ci*ezr*d10_exp0))/ezr);
3557 #endif
3558 qj3=((cr*(1.0-d00_exp0))/ezr);
3559 }
3560 #if defined(_DERIVATE)
3561 qjci_Vbi_ci=(((qj1_Vbi_ci+qj2_Vbi_ci)-qj3_Vbi_ci)*vdci_t+(cmax*vj4_Vbi_ci));
3562 qjci_Vtnode_GND=(((((qj1_Vtnode_GND+qj2_Vtnode_GND)-qj3_Vtnode_GND)*vdci_t)+(((qj1+qj2)-qj3)*vdci_t_Vtnode_GND))+((cmax_Vtnode_GND*vj4)+(cmax*vj4_Vtnode_GND)));
3563 qjci_Vb_ci=(((qj1_Vb_ci+qj2_Vb_ci)-qj3_Vb_ci)*vdci_t+(cmax*vj4_Vb_ci));
3564 #endif
3565 qjci=((((qj1+qj2)-qj3)*vdci_t)+(cmax*vj4));
3566 }
3567 else
3568 {
3569 #if defined(_DERIVATE)
3570 qjci_Vbi_ci=0.0;
3571 qjci_Vtnode_GND=0.0;
3572 qjci_Vb_ci=0.0;
3573 #endif
3574 qjci=0.0;
3575 }
3576 }
3577 else
3578 {
3579 if
3580 ((cjci0_t_ii>0.0))
3581 {
3582 {
3583 double m00_logE(d00_logE0,2.4)
3584 double m00_exp(d00_exp1,((-d00_logE0)/zci))
3585 #if defined(_DERIVATE)
3586 vf_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
3587 #endif
3588 vf=(vdci_t*(1.0-d00_exp1));
3589 }
3590 #if defined(_DERIVATEFORDDX)
3591 #if defined(_DERIVATE)
3592 xvf_Vs_ci=0.0;
3593 #endif
3594 xvf_Vbi_ei=0.0;
3595 #if defined(_DERIVATE)
3596  xvf_Vbi_ei_Vs_ci=0.0;
3597  xvf_Vbi_ei_Vbi_ei=0.0;
3598  xvf_Vbi_ei_Vbi_ci=0.0;
3599  xvf_Vbi_ei_Vtnode_GND=0.0;
3600  xvf_Vbi_ei_Vb_ci=0.0;
3601 #endif
3602 xvf_Vbi_ci=((-Vbici_Vbi_ci)/VT);
3603 #if defined(_DERIVATE)
3604  xvf_Vbi_ci_Vs_ci=((+0.0-0.0)/VT-((-Vbici_Vbi_ci)*0.0+0.0*0.0+(vf-Vbici)*0.0)/VT/VT+2*(vf-Vbici)*0.0*0.0/VT/VT/VT);
3605  xvf_Vbi_ci_Vbi_ei=((+0.0-0.0)/VT-((-Vbici_Vbi_ci)*0.0+0.0*0.0+(vf-Vbici)*0.0)/VT/VT+2*(vf-Vbici)*0.0*0.0/VT/VT/VT);
3606  xvf_Vbi_ci_Vbi_ci=((+0.0-Vbici_Vbi_ci_Vbi_ci)/VT-((-Vbici_Vbi_ci)*0.0+(-Vbici_Vbi_ci)*0.0+(vf-Vbici)*0.0)/VT/VT+2*(vf-Vbici)*0.0*0.0/VT/VT/VT);
3607  xvf_Vbi_ci_Vtnode_GND=((+0.0-0.0)/VT-((-Vbici_Vbi_ci)*VT_Vtnode_GND+vf_Vtnode_GND*0.0+(vf-Vbici)*0.0)/VT/VT+2*(vf-Vbici)*0.0*VT_Vtnode_GND/VT/VT/VT);
3608  xvf_Vbi_ci_Vb_ci=((+0.0-0.0)/VT-((-Vbici_Vbi_ci)*0.0+0.0*0.0+(vf-Vbici)*0.0)/VT/VT+2*(vf-Vbici)*0.0*0.0/VT/VT/VT);
3609 #endif
3610 #if defined(_DERIVATE)
3611 xvf_Vtnode_GND=((vf_Vtnode_GND*VT-(vf-Vbici)*VT_Vtnode_GND)/VT/VT);
3612 #endif
3613 #if defined(_DERIVATE)
3614 xvf_Vb_ci=0.0;
3615 #endif
3616 #endif
3617 xvf=((vf-Vbici)/VT);
3618 {
3619 double m00_sqrt(d00_sqrt0,((xvf*xvf)+1.921812))
3620 #if defined(_DERIVATEFORDDX)
3621 double m10_sqrt(d10_sqrt0,d00_sqrt0,((xvf*xvf)+1.921812))
3622 #endif
3623 #if defined(_DERIVATEFORDDX)
3624 #if defined(_DERIVATE)
3625 xvf2_Vs_ci=0.0;
3626 #endif
3627 xvf2_Vbi_ei=0.0;
3628 #if defined(_DERIVATE)
3629  xvf2_Vbi_ei_Vs_ci=0.0;
3630  xvf2_Vbi_ei_Vbi_ei=0.0;
3631  xvf2_Vbi_ei_Vbi_ci=0.0;
3632  xvf2_Vbi_ei_Vtnode_GND=0.0;
3633  xvf2_Vbi_ei_Vb_ci=0.0;
3634 #endif
3635 xvf2_Vbi_ci=((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))*d10_sqrt0;
3636 #if defined(_DERIVATE)
3637  xvf2_Vbi_ci_Vs_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vs_ci*xvf)+(xvf*xvf_Vs_ci)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vs_ci*xvf+xvf_Vbi_ci*xvf_Vs_ci+xvf_Vs_ci*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vs_ci)+0.0));
3638  xvf2_Vbi_ci_Vbi_ei=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vbi_ei*xvf+xvf_Vbi_ci*xvf_Vbi_ei+xvf_Vbi_ei*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vbi_ei)+0.0));
3639  xvf2_Vbi_ci_Vbi_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vbi_ci*xvf+xvf_Vbi_ci*xvf_Vbi_ci+xvf_Vbi_ci*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vbi_ci)+0.0));
3640  xvf2_Vbi_ci_Vtnode_GND=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vtnode_GND*xvf+xvf_Vbi_ci*xvf_Vtnode_GND+xvf_Vtnode_GND*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vtnode_GND)+0.0));
3641  xvf2_Vbi_ci_Vb_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vb_ci*xvf+xvf_Vbi_ci*xvf_Vb_ci+xvf_Vb_ci*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vb_ci)+0.0));
3642 #endif
3643 #if defined(_DERIVATE)
3644 xvf2_Vtnode_GND=((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND))*d10_sqrt0;
3645 #endif
3646 #if defined(_DERIVATE)
3647 xvf2_Vb_ci=((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci))*d10_sqrt0;
3648 #endif
3649 #endif
3650 xvf2=d00_sqrt0;
3651 }
3652 #if defined(_DERIVATEFORDDX)
3653 #if defined(_DERIVATE)
3654 v_j_Vs_ci=0.0;
3655 #endif
3656 v_j_Vbi_ei=0.0;
3657 #if defined(_DERIVATE)
3658  v_j_Vbi_ei_Vs_ci=0.0;
3659  v_j_Vbi_ei_Vbi_ei=0.0;
3660  v_j_Vbi_ei_Vbi_ci=0.0;
3661  v_j_Vbi_ei_Vtnode_GND=0.0;
3662  v_j_Vbi_ei_Vb_ci=0.0;
3663 #endif
3664 v_j_Vbi_ci=(-(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.5);
3665 #if defined(_DERIVATE)
3666  v_j_Vbi_ci_Vs_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vs_ci+xvf2_Vs_ci)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vs_ci+xvf2_Vbi_ci_Vs_ci))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vs_ci+xvf2_Vs_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
3667  v_j_Vbi_ci_Vbi_ei=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vbi_ei+xvf2_Vbi_ei)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vbi_ei+xvf2_Vbi_ci_Vbi_ei))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vbi_ei+xvf2_Vbi_ei)))*0.0+(VT*(xvf+xvf2))*0.0));
3668  v_j_Vbi_ci_Vbi_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vbi_ci+xvf2_Vbi_ci_Vbi_ci))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vbi_ci+xvf2_Vbi_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
3669  v_j_Vbi_ci_Vtnode_GND=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vtnode_GND+xvf2_Vtnode_GND)+VT_Vtnode_GND*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vtnode_GND+xvf2_Vbi_ci_Vtnode_GND))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+(((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND))))*0.0+(VT*(xvf+xvf2))*0.0));
3670  v_j_Vbi_ci_Vb_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vb_ci+xvf2_Vb_ci)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vb_ci+xvf2_Vbi_ci_Vb_ci))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vb_ci+xvf2_Vb_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
3671 #endif
3672 #if defined(_DERIVATE)
3673 v_j_Vtnode_GND=(vf_Vtnode_GND-((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND)))*0.5);
3674 #endif
3675 #if defined(_DERIVATE)
3676 v_j_Vb_ci=(-(VT*(xvf_Vb_ci+xvf2_Vb_ci))*0.5);
3677 #endif
3678 #endif
3679 v_j=(vf-((VT*(xvf+xvf2))*0.5));
3680 #if defined(_DERIVATE)
3681 x_Vtnode_GND=0.0;
3682 x_Vci_ei=0.0;
3683 #endif
3684 x=(1.0-zci);
3685 {
3686 double m00_logE(d00_logE0,(1.0-(v_j/vdci_t)))
3687 double m00_exp(d00_exp1,(x*d00_logE0))
3688 #if defined(_DERIVATEFORDDX)
3689 double m10_logE(d10_logE0,d00_logE0,(1.0-(v_j/vdci_t)))
3690 #define d10_exp1 d00_exp1
3691 #endif
3692 #if defined(_DERIVATEFORDDX)
3693 #if defined(_DERIVATE)
3694 y_Vci_ei=0.0;
3695 #endif
3696 #if defined(_DERIVATE)
3697 y_Vs_ci=0.0;
3698 #endif
3699 y_Vbi_ei=0.0;
3700 #if defined(_DERIVATE)
3701  y_Vbi_ei_Vci_ei=0.0;
3702  y_Vbi_ei_Vs_ci=0.0;
3703  y_Vbi_ei_Vbi_ei=0.0;
3704  y_Vbi_ei_Vbi_ci=0.0;
3705  y_Vbi_ei_Vtnode_GND=0.0;
3706  y_Vbi_ei_Vb_ci=0.0;
3707 #endif
3708 y_Vbi_ci=(-(x*(-(v_j_Vbi_ci/vdci_t))*d10_logE0)*d10_exp1);
3709 #if defined(_DERIVATE)
3710  y_Vbi_ci_Vci_ei=(+0.0-(m20_exp((x*d00_logE0))*(x_Vci_ei*d00_logE0)*(x*(-(v_j_Vbi_ci/vdci_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*0.0+x_Vci_ei*(-(v_j_Vbi_ci/vdci_t))*d10_logE0+x*0.0)));
3711  y_Vbi_ci_Vs_ci=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vs_ci/vdci_t))*d10_logE0))*(x*(-(v_j_Vbi_ci/vdci_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vs_ci/vdci_t))*d10_logE0+0.0*(-(v_j_Vbi_ci/vdci_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vdci_t)))*(-(v_j_Vs_ci/vdci_t))*(-(v_j_Vbi_ci/vdci_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vs_ci/vdci_t-(v_j_Vbi_ci*0.0+v_j_Vs_ci*0.0+v_j*0.0)/vdci_t/vdci_t+2*v_j*0.0*0.0/vdci_t/vdci_t/vdci_t))))));
3712  y_Vbi_ci_Vbi_ei=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vbi_ei/vdci_t))*d10_logE0))*(x*(-(v_j_Vbi_ci/vdci_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vbi_ei/vdci_t))*d10_logE0+0.0*(-(v_j_Vbi_ci/vdci_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vdci_t)))*(-(v_j_Vbi_ei/vdci_t))*(-(v_j_Vbi_ci/vdci_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vbi_ei/vdci_t-(v_j_Vbi_ci*0.0+v_j_Vbi_ei*0.0+v_j*0.0)/vdci_t/vdci_t+2*v_j*0.0*0.0/vdci_t/vdci_t/vdci_t))))));
3713  y_Vbi_ci_Vbi_ci=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vbi_ci/vdci_t))*d10_logE0))*(x*(-(v_j_Vbi_ci/vdci_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vbi_ci/vdci_t))*d10_logE0+0.0*(-(v_j_Vbi_ci/vdci_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vdci_t)))*(-(v_j_Vbi_ci/vdci_t))*(-(v_j_Vbi_ci/vdci_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vbi_ci/vdci_t-(v_j_Vbi_ci*0.0+v_j_Vbi_ci*0.0+v_j*0.0)/vdci_t/vdci_t+2*v_j*0.0*0.0/vdci_t/vdci_t/vdci_t))))));
3714  y_Vbi_ci_Vtnode_GND=(+0.0-(m20_exp((x*d00_logE0))*(((x_Vtnode_GND*d00_logE0)+(x*(-((v_j_Vtnode_GND*vdci_t-v_j*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0)))*(x*(-(v_j_Vbi_ci/vdci_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-((v_j_Vtnode_GND*vdci_t-v_j*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0+x_Vtnode_GND*(-(v_j_Vbi_ci/vdci_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vdci_t)))*(-((v_j_Vtnode_GND*vdci_t-v_j*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*(-(v_j_Vbi_ci/vdci_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vtnode_GND/vdci_t-(v_j_Vbi_ci*vdci_t_Vtnode_GND+v_j_Vtnode_GND*0.0+v_j*0.0)/vdci_t/vdci_t+2*v_j*0.0*vdci_t_Vtnode_GND/vdci_t/vdci_t/vdci_t))))));
3715  y_Vbi_ci_Vb_ci=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vb_ci/vdci_t))*d10_logE0))*(x*(-(v_j_Vbi_ci/vdci_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vb_ci/vdci_t))*d10_logE0+0.0*(-(v_j_Vbi_ci/vdci_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vdci_t)))*(-(v_j_Vb_ci/vdci_t))*(-(v_j_Vbi_ci/vdci_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vb_ci/vdci_t-(v_j_Vbi_ci*0.0+v_j_Vb_ci*0.0+v_j*0.0)/vdci_t/vdci_t+2*v_j*0.0*0.0/vdci_t/vdci_t/vdci_t))))));
3716 #endif
3717 #if defined(_DERIVATE)
3718 y_Vtnode_GND=(-((x_Vtnode_GND*d00_logE0)+(x*(-((v_j_Vtnode_GND*vdci_t-v_j*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0))*d10_exp1);
3719 #endif
3720 #if defined(_DERIVATE)
3721 y_Vb_ci=(-(x*(-(v_j_Vb_ci/vdci_t))*d10_logE0)*d10_exp1);
3722 #endif
3723 #endif
3724 y=(1.0-d00_exp1);
3725 }
3726 #if defined(_DERIVATE)
3727 qjci_Vbi_ci=((((cjci0_t_ii*vdci_t)*y_Vbi_ci)/x)+((2.4*cjci0_t_ii)*(Vbici_Vbi_ci-v_j_Vbi_ci)));
3728 qjci_Vtnode_GND=(((((((cjci0_t_ii_Vtnode_GND*vdci_t)+(cjci0_t_ii*vdci_t_Vtnode_GND))*y)+((cjci0_t_ii*vdci_t)*y_Vtnode_GND))*x-((cjci0_t_ii*vdci_t)*y)*x_Vtnode_GND)/x/x)+(((2.4*cjci0_t_ii_Vtnode_GND)*(Vbici-v_j))+((2.4*cjci0_t_ii)*(-v_j_Vtnode_GND))));
3729 qjci_Vb_ci=((((cjci0_t_ii*vdci_t)*y_Vb_ci)/x)+((2.4*cjci0_t_ii)*(-v_j_Vb_ci)));
3730 #endif
3731 qjci=((((cjci0_t_ii*vdci_t)*y)/x)+((2.4*cjci0_t_ii)*(Vbici-v_j)));
3732 }
3733 else
3734 {
3735 #if defined(_DERIVATE)
3736 qjci_Vbi_ci=0.0;
3737 qjci_Vtnode_GND=0.0;
3738 qjci_Vb_ci=0.0;
3739 #endif
3740 qjci=0.0;
3741 }
3742 }
3743 #if defined(_DYNAMIC)
3744 #if defined(_DERIVATE)
3745 qjcii_Vbi_ci=(qjci_Vbi_ci+qjcxi_Vbi_ci);
3746 qjcii_Vtnode_GND=(qjci_Vtnode_GND+qjcxi_Vtnode_GND);
3747 qjcii_Vb_ci=(qjci_Vb_ci+qjcxi_Vb_ci);
3748 #endif
3749 qjcii=(qjci+qjcxi);
3750 #endif
3751 if
3752 ((cjci0_t_ii>0.0))
3753 {
3754 {
3755 double m00_logE(d00_logE0,2.4)
3756 double m00_exp(d00_exp1,((-d00_logE0)/zci))
3757 #if defined(_DERIVATE)
3758 vf_Vtnode_GND=vdci_t_Vtnode_GND*(1.0-d00_exp1);
3759 #endif
3760 vf=(vdci_t*(1.0-d00_exp1));
3761 }
3762 #if defined(_DERIVATEFORDDX)
3763 #if defined(_DERIVATE)
3764 xvf_Vs_ci=0.0;
3765 #endif
3766 xvf_Vbi_ei=0.0;
3767 #if defined(_DERIVATE)
3768  xvf_Vbi_ei_Vs_ci=0.0;
3769  xvf_Vbi_ei_Vbi_ei=0.0;
3770  xvf_Vbi_ei_Vbi_ci=0.0;
3771  xvf_Vbi_ei_Vtnode_GND=0.0;
3772  xvf_Vbi_ei_Vb_ci=0.0;
3773 #endif
3774 xvf_Vbi_ci=((-Vbici_Vbi_ci)/VT);
3775 #if defined(_DERIVATE)
3776  xvf_Vbi_ci_Vs_ci=((+0.0-0.0)/VT-((-Vbici_Vbi_ci)*0.0+0.0*0.0+(vf-Vbici)*0.0)/VT/VT+2*(vf-Vbici)*0.0*0.0/VT/VT/VT);
3777  xvf_Vbi_ci_Vbi_ei=((+0.0-0.0)/VT-((-Vbici_Vbi_ci)*0.0+0.0*0.0+(vf-Vbici)*0.0)/VT/VT+2*(vf-Vbici)*0.0*0.0/VT/VT/VT);
3778  xvf_Vbi_ci_Vbi_ci=((+0.0-Vbici_Vbi_ci_Vbi_ci)/VT-((-Vbici_Vbi_ci)*0.0+(-Vbici_Vbi_ci)*0.0+(vf-Vbici)*0.0)/VT/VT+2*(vf-Vbici)*0.0*0.0/VT/VT/VT);
3779  xvf_Vbi_ci_Vtnode_GND=((+0.0-0.0)/VT-((-Vbici_Vbi_ci)*VT_Vtnode_GND+vf_Vtnode_GND*0.0+(vf-Vbici)*0.0)/VT/VT+2*(vf-Vbici)*0.0*VT_Vtnode_GND/VT/VT/VT);
3780  xvf_Vbi_ci_Vb_ci=((+0.0-0.0)/VT-((-Vbici_Vbi_ci)*0.0+0.0*0.0+(vf-Vbici)*0.0)/VT/VT+2*(vf-Vbici)*0.0*0.0/VT/VT/VT);
3781 #endif
3782 #if defined(_DERIVATE)
3783 xvf_Vtnode_GND=((vf_Vtnode_GND*VT-(vf-Vbici)*VT_Vtnode_GND)/VT/VT);
3784 #endif
3785 #if defined(_DERIVATE)
3786 xvf_Vb_ci=0.0;
3787 #endif
3788 #endif
3789 xvf=((vf-Vbici)/VT);
3790 {
3791 double m00_sqrt(d00_sqrt0,((xvf*xvf)+1.921812))
3792 #if defined(_DERIVATEFORDDX)
3793 double m10_sqrt(d10_sqrt0,d00_sqrt0,((xvf*xvf)+1.921812))
3794 #endif
3795 #if defined(_DERIVATEFORDDX)
3796 #if defined(_DERIVATE)
3797 xvf2_Vs_ci=0.0;
3798 #endif
3799 xvf2_Vbi_ei=0.0;
3800 #if defined(_DERIVATE)
3801  xvf2_Vbi_ei_Vs_ci=0.0;
3802  xvf2_Vbi_ei_Vbi_ei=0.0;
3803  xvf2_Vbi_ei_Vbi_ci=0.0;
3804  xvf2_Vbi_ei_Vtnode_GND=0.0;
3805  xvf2_Vbi_ei_Vb_ci=0.0;
3806 #endif
3807 xvf2_Vbi_ci=((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))*d10_sqrt0;
3808 #if defined(_DERIVATE)
3809  xvf2_Vbi_ci_Vs_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vs_ci*xvf)+(xvf*xvf_Vs_ci)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vs_ci*xvf+xvf_Vbi_ci*xvf_Vs_ci+xvf_Vs_ci*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vs_ci)+0.0));
3810  xvf2_Vbi_ci_Vbi_ei=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vbi_ei*xvf+xvf_Vbi_ci*xvf_Vbi_ei+xvf_Vbi_ei*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vbi_ei)+0.0));
3811  xvf2_Vbi_ci_Vbi_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vbi_ci*xvf+xvf_Vbi_ci*xvf_Vbi_ci+xvf_Vbi_ci*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vbi_ci)+0.0));
3812  xvf2_Vbi_ci_Vtnode_GND=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vtnode_GND*xvf+xvf_Vbi_ci*xvf_Vtnode_GND+xvf_Vtnode_GND*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vtnode_GND)+0.0));
3813  xvf2_Vbi_ci_Vb_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vb_ci*xvf+xvf_Vbi_ci*xvf_Vb_ci+xvf_Vb_ci*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vb_ci)+0.0));
3814 #endif
3815 #if defined(_DERIVATE)
3816 xvf2_Vtnode_GND=((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND))*d10_sqrt0;
3817 #endif
3818 #if defined(_DERIVATE)
3819 xvf2_Vb_ci=((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci))*d10_sqrt0;
3820 #endif
3821 #endif
3822 xvf2=d00_sqrt0;
3823 }
3824 #if defined(_DERIVATEFORDDX)
3825 #if defined(_DERIVATE)
3826 v_j_Vs_ci=0.0;
3827 #endif
3828 v_j_Vbi_ei=0.0;
3829 #if defined(_DERIVATE)
3830  v_j_Vbi_ei_Vs_ci=0.0;
3831  v_j_Vbi_ei_Vbi_ei=0.0;
3832  v_j_Vbi_ei_Vbi_ci=0.0;
3833  v_j_Vbi_ei_Vtnode_GND=0.0;
3834  v_j_Vbi_ei_Vb_ci=0.0;
3835 #endif
3836 v_j_Vbi_ci=(-(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.5);
3837 #if defined(_DERIVATE)
3838  v_j_Vbi_ci_Vs_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vs_ci+xvf2_Vs_ci)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vs_ci+xvf2_Vbi_ci_Vs_ci))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vs_ci+xvf2_Vs_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
3839  v_j_Vbi_ci_Vbi_ei=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vbi_ei+xvf2_Vbi_ei)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vbi_ei+xvf2_Vbi_ci_Vbi_ei))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vbi_ei+xvf2_Vbi_ei)))*0.0+(VT*(xvf+xvf2))*0.0));
3840  v_j_Vbi_ci_Vbi_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vbi_ci+xvf2_Vbi_ci_Vbi_ci))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vbi_ci+xvf2_Vbi_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
3841  v_j_Vbi_ci_Vtnode_GND=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vtnode_GND+xvf2_Vtnode_GND)+VT_Vtnode_GND*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vtnode_GND+xvf2_Vbi_ci_Vtnode_GND))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+(((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND))))*0.0+(VT*(xvf+xvf2))*0.0));
3842  v_j_Vbi_ci_Vb_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vb_ci+xvf2_Vb_ci)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vb_ci+xvf2_Vbi_ci_Vb_ci))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vb_ci+xvf2_Vb_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
3843 #endif
3844 #if defined(_DERIVATE)
3845 v_j_Vtnode_GND=(vf_Vtnode_GND-((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND)))*0.5);
3846 #endif
3847 #if defined(_DERIVATE)
3848 v_j_Vb_ci=(-(VT*(xvf_Vb_ci+xvf2_Vb_ci))*0.5);
3849 #endif
3850 #endif
3851 v_j=(vf-((VT*(xvf+xvf2))*0.5));
3852 #if defined(_DERIVATE)
3853 dvj_Vbi_ci=(((0.5*(xvf_Vbi_ci+xvf2_Vbi_ci))*xvf2-(0.5*(xvf+xvf2))*xvf2_Vbi_ci)/xvf2/xvf2);
3854 dvj_Vtnode_GND=(((0.5*(xvf_Vtnode_GND+xvf2_Vtnode_GND))*xvf2-(0.5*(xvf+xvf2))*xvf2_Vtnode_GND)/xvf2/xvf2);
3855 dvj_Vb_ci=(((0.5*(xvf_Vb_ci+xvf2_Vb_ci))*xvf2-(0.5*(xvf+xvf2))*xvf2_Vb_ci)/xvf2/xvf2);
3856 #endif
3857 dvj=((0.5*(xvf+xvf2))/xvf2);
3858 {
3859 double m00_logE(d00_logE0,(1-(v_j/vdci_t)))
3860 double m00_exp(d00_exp1,((-zci)*d00_logE0))
3861 #if defined(_DERIVATE)
3862 double m10_logE(d10_logE0,d00_logE0,(1-(v_j/vdci_t)))
3863 #define d10_exp1 d00_exp1
3864 #endif
3865 #if defined(_DERIVATE)
3866 cjcii_Vtnode_GND=(((((cjci0_t_ii_Vtnode_GND*d00_exp1)+(cjci0_t_ii*((-zci)*(-((v_j_Vtnode_GND*vdci_t-v_j*vdci_t_Vtnode_GND)/vdci_t/vdci_t))*d10_logE0)*d10_exp1))*dvj)+((cjci0_t_ii*d00_exp1)*dvj_Vtnode_GND))+(((2.4*cjci0_t_ii_Vtnode_GND)*(1-dvj))+((2.4*cjci0_t_ii)*(-dvj_Vtnode_GND))));
3867 cjcii_Vbi_ci=((((cjci0_t_ii*((-zci)*(-(v_j_Vbi_ci/vdci_t))*d10_logE0)*d10_exp1)*dvj)+((cjci0_t_ii*d00_exp1)*dvj_Vbi_ci))+((2.4*cjci0_t_ii)*(-dvj_Vbi_ci)));
3868 cjcii_Vb_ci=((((cjci0_t_ii*((-zci)*(-(v_j_Vb_ci/vdci_t))*d10_logE0)*d10_exp1)*dvj)+((cjci0_t_ii*d00_exp1)*dvj_Vb_ci))+((2.4*cjci0_t_ii)*(-dvj_Vb_ci)));
3869 #endif
3870 cjcii=(((cjci0_t_ii*d00_exp1)*dvj)+((2.4*cjci0_t_ii)*(1-dvj)));
3871 }
3872 }
3873 else
3874 {
3875 #if defined(_DERIVATE)
3876 cjcii_Vtnode_GND=0.0;
3877 cjcii_Vbi_ci=0.0;
3878 cjcii_Vb_ci=0.0;
3879 #endif
3880 cjcii=0.0;
3881 }
3882 if
3883 ((cje0_t>0.0))
3884 {
3885 {
3886 double m00_logE(d00_logE0,aje_t)
3887 double m00_exp(d00_exp1,((-d00_logE0)/ze))
3888 #if defined(_DERIVATE)
3889 double m10_logE(d10_logE0,d00_logE0,aje_t)
3890 #define d10_exp1 d00_exp1
3891 #endif
3892 #if defined(_DERIVATE)
3893 vf_Vtnode_GND=((vde_t_Vtnode_GND*(1.0-d00_exp1))+(vde_t*(-((-aje_t_Vtnode_GND*d10_logE0)/ze)*d10_exp1)));
3894 #endif
3895 vf=(vde_t*(1.0-d00_exp1));
3896 }
3897 #if defined(_DERIVATEFORDDX)
3898 #if defined(_DERIVATE)
3899 xvf_Vs_ci=0.0;
3900 #endif
3901 xvf_Vbi_ei=((-Vbiei_Vbi_ei)/VT);
3902 #if defined(_DERIVATE)
3903  xvf_Vbi_ei_Vs_ci=((+0.0-0.0)/VT-((-Vbiei_Vbi_ei)*0.0+0.0*0.0+(vf-Vbiei)*0.0)/VT/VT+2*(vf-Vbiei)*0.0*0.0/VT/VT/VT);
3904  xvf_Vbi_ei_Vbi_ei=((+0.0-Vbiei_Vbi_ei_Vbi_ei)/VT-((-Vbiei_Vbi_ei)*0.0+(-Vbiei_Vbi_ei)*0.0+(vf-Vbiei)*0.0)/VT/VT+2*(vf-Vbiei)*0.0*0.0/VT/VT/VT);
3905  xvf_Vbi_ei_Vbi_ci=((+0.0-0.0)/VT-((-Vbiei_Vbi_ei)*0.0+0.0*0.0+(vf-Vbiei)*0.0)/VT/VT+2*(vf-Vbiei)*0.0*0.0/VT/VT/VT);
3906  xvf_Vbi_ei_Vtnode_GND=((+0.0-0.0)/VT-((-Vbiei_Vbi_ei)*VT_Vtnode_GND+vf_Vtnode_GND*0.0+(vf-Vbiei)*0.0)/VT/VT+2*(vf-Vbiei)*0.0*VT_Vtnode_GND/VT/VT/VT);
3907  xvf_Vbi_ei_Vb_ci=((+0.0-0.0)/VT-((-Vbiei_Vbi_ei)*0.0+0.0*0.0+(vf-Vbiei)*0.0)/VT/VT+2*(vf-Vbiei)*0.0*0.0/VT/VT/VT);
3908 #endif
3909 xvf_Vbi_ci=0.0;
3910 #if defined(_DERIVATE)
3911  xvf_Vbi_ci_Vs_ci=0.0;
3912  xvf_Vbi_ci_Vbi_ei=0.0;
3913  xvf_Vbi_ci_Vbi_ci=0.0;
3914  xvf_Vbi_ci_Vtnode_GND=0.0;
3915  xvf_Vbi_ci_Vb_ci=0.0;
3916 #endif
3917 #if defined(_DERIVATE)
3918 xvf_Vtnode_GND=((vf_Vtnode_GND*VT-(vf-Vbiei)*VT_Vtnode_GND)/VT/VT);
3919 #endif
3920 #if defined(_DERIVATE)
3921 xvf_Vb_ci=0.0;
3922 #endif
3923 #endif
3924 xvf=((vf-Vbiei)/VT);
3925 {
3926 double m00_sqrt(d00_sqrt0,((xvf*xvf)+1.921812))
3927 #if defined(_DERIVATEFORDDX)
3928 double m10_sqrt(d10_sqrt0,d00_sqrt0,((xvf*xvf)+1.921812))
3929 #endif
3930 #if defined(_DERIVATEFORDDX)
3931 #if defined(_DERIVATE)
3932 xvf2_Vs_ci=0.0;
3933 #endif
3934 xvf2_Vbi_ei=((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei))*d10_sqrt0;
3935 #if defined(_DERIVATE)
3936  xvf2_Vbi_ei_Vs_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vs_ci*xvf)+(xvf*xvf_Vs_ci)))*((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei))+d10_sqrt0*(+(+xvf_Vbi_ei_Vs_ci*xvf+xvf_Vbi_ei*xvf_Vs_ci+xvf_Vs_ci*xvf_Vbi_ei+xvf*xvf_Vbi_ei_Vs_ci)+0.0));
3937  xvf2_Vbi_ei_Vbi_ei=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei)))*((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei))+d10_sqrt0*(+(+xvf_Vbi_ei_Vbi_ei*xvf+xvf_Vbi_ei*xvf_Vbi_ei+xvf_Vbi_ei*xvf_Vbi_ei+xvf*xvf_Vbi_ei_Vbi_ei)+0.0));
3938  xvf2_Vbi_ei_Vbi_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci)))*((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei))+d10_sqrt0*(+(+xvf_Vbi_ei_Vbi_ci*xvf+xvf_Vbi_ei*xvf_Vbi_ci+xvf_Vbi_ci*xvf_Vbi_ei+xvf*xvf_Vbi_ei_Vbi_ci)+0.0));
3939  xvf2_Vbi_ei_Vtnode_GND=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND)))*((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei))+d10_sqrt0*(+(+xvf_Vbi_ei_Vtnode_GND*xvf+xvf_Vbi_ei*xvf_Vtnode_GND+xvf_Vtnode_GND*xvf_Vbi_ei+xvf*xvf_Vbi_ei_Vtnode_GND)+0.0));
3940  xvf2_Vbi_ei_Vb_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci)))*((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei))+d10_sqrt0*(+(+xvf_Vbi_ei_Vb_ci*xvf+xvf_Vbi_ei*xvf_Vb_ci+xvf_Vb_ci*xvf_Vbi_ei+xvf*xvf_Vbi_ei_Vb_ci)+0.0));
3941 #endif
3942 xvf2_Vbi_ci=((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))*d10_sqrt0;
3943 #if defined(_DERIVATE)
3944  xvf2_Vbi_ci_Vs_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vs_ci*xvf)+(xvf*xvf_Vs_ci)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vs_ci*xvf+xvf_Vbi_ci*xvf_Vs_ci+xvf_Vs_ci*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vs_ci)+0.0));
3945  xvf2_Vbi_ci_Vbi_ei=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vbi_ei*xvf+xvf_Vbi_ci*xvf_Vbi_ei+xvf_Vbi_ei*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vbi_ei)+0.0));
3946  xvf2_Vbi_ci_Vbi_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vbi_ci*xvf+xvf_Vbi_ci*xvf_Vbi_ci+xvf_Vbi_ci*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vbi_ci)+0.0));
3947  xvf2_Vbi_ci_Vtnode_GND=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vtnode_GND*xvf+xvf_Vbi_ci*xvf_Vtnode_GND+xvf_Vtnode_GND*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vtnode_GND)+0.0));
3948  xvf2_Vbi_ci_Vb_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vb_ci*xvf+xvf_Vbi_ci*xvf_Vb_ci+xvf_Vb_ci*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vb_ci)+0.0));
3949 #endif
3950 #if defined(_DERIVATE)
3951 xvf2_Vtnode_GND=((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND))*d10_sqrt0;
3952 #endif
3953 #if defined(_DERIVATE)
3954 xvf2_Vb_ci=((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci))*d10_sqrt0;
3955 #endif
3956 #endif
3957 xvf2=d00_sqrt0;
3958 }
3959 #if defined(_DERIVATEFORDDX)
3960 #if defined(_DERIVATE)
3961 v_j_Vs_ci=0.0;
3962 #endif
3963 v_j_Vbi_ei=(-(VT*(xvf_Vbi_ei+xvf2_Vbi_ei))*0.5);
3964 #if defined(_DERIVATE)
3965  v_j_Vbi_ei_Vs_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vs_ci+xvf2_Vs_ci)+0.0*(xvf_Vbi_ei+xvf2_Vbi_ei)+VT*(+xvf_Vbi_ei_Vs_ci+xvf2_Vbi_ei_Vs_ci))*0.5+(VT*(xvf_Vbi_ei+xvf2_Vbi_ei))*0.0+((VT*(xvf_Vs_ci+xvf2_Vs_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
3966  v_j_Vbi_ei_Vbi_ei=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vbi_ei+xvf2_Vbi_ei)+0.0*(xvf_Vbi_ei+xvf2_Vbi_ei)+VT*(+xvf_Vbi_ei_Vbi_ei+xvf2_Vbi_ei_Vbi_ei))*0.5+(VT*(xvf_Vbi_ei+xvf2_Vbi_ei))*0.0+((VT*(xvf_Vbi_ei+xvf2_Vbi_ei)))*0.0+(VT*(xvf+xvf2))*0.0));
3967  v_j_Vbi_ei_Vbi_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+0.0*(xvf_Vbi_ei+xvf2_Vbi_ei)+VT*(+xvf_Vbi_ei_Vbi_ci+xvf2_Vbi_ei_Vbi_ci))*0.5+(VT*(xvf_Vbi_ei+xvf2_Vbi_ei))*0.0+((VT*(xvf_Vbi_ci+xvf2_Vbi_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
3968  v_j_Vbi_ei_Vtnode_GND=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vtnode_GND+xvf2_Vtnode_GND)+VT_Vtnode_GND*(xvf_Vbi_ei+xvf2_Vbi_ei)+VT*(+xvf_Vbi_ei_Vtnode_GND+xvf2_Vbi_ei_Vtnode_GND))*0.5+(VT*(xvf_Vbi_ei+xvf2_Vbi_ei))*0.0+(((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND))))*0.0+(VT*(xvf+xvf2))*0.0));
3969  v_j_Vbi_ei_Vb_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vb_ci+xvf2_Vb_ci)+0.0*(xvf_Vbi_ei+xvf2_Vbi_ei)+VT*(+xvf_Vbi_ei_Vb_ci+xvf2_Vbi_ei_Vb_ci))*0.5+(VT*(xvf_Vbi_ei+xvf2_Vbi_ei))*0.0+((VT*(xvf_Vb_ci+xvf2_Vb_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
3970 #endif
3971 v_j_Vbi_ci=(-(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.5);
3972 #if defined(_DERIVATE)
3973  v_j_Vbi_ci_Vs_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vs_ci+xvf2_Vs_ci)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vs_ci+xvf2_Vbi_ci_Vs_ci))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vs_ci+xvf2_Vs_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
3974  v_j_Vbi_ci_Vbi_ei=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vbi_ei+xvf2_Vbi_ei)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vbi_ei+xvf2_Vbi_ci_Vbi_ei))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vbi_ei+xvf2_Vbi_ei)))*0.0+(VT*(xvf+xvf2))*0.0));
3975  v_j_Vbi_ci_Vbi_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vbi_ci+xvf2_Vbi_ci_Vbi_ci))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vbi_ci+xvf2_Vbi_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
3976  v_j_Vbi_ci_Vtnode_GND=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vtnode_GND+xvf2_Vtnode_GND)+VT_Vtnode_GND*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vtnode_GND+xvf2_Vbi_ci_Vtnode_GND))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+(((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND))))*0.0+(VT*(xvf+xvf2))*0.0));
3977  v_j_Vbi_ci_Vb_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vb_ci+xvf2_Vb_ci)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vb_ci+xvf2_Vbi_ci_Vb_ci))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vb_ci+xvf2_Vb_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
3978 #endif
3979 #if defined(_DERIVATE)
3980 v_j_Vtnode_GND=(vf_Vtnode_GND-((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND)))*0.5);
3981 #endif
3982 #if defined(_DERIVATE)
3983 v_j_Vb_ci=(-(VT*(xvf_Vb_ci+xvf2_Vb_ci))*0.5);
3984 #endif
3985 #endif
3986 v_j=(vf-((VT*(xvf+xvf2))*0.5));
3987 #if defined(_DERIVATE)
3988 x_Vtnode_GND=0.0;
3989 x_Vci_ei=0.0;
3990 #endif
3991 x=(1.0-ze);
3992 {
3993 double m00_logE(d00_logE0,(1.0-(v_j/vde_t)))
3994 double m00_exp(d00_exp1,(x*d00_logE0))
3995 #if defined(_DERIVATEFORDDX)
3996 double m10_logE(d10_logE0,d00_logE0,(1.0-(v_j/vde_t)))
3997 #define d10_exp1 d00_exp1
3998 #endif
3999 #if defined(_DERIVATEFORDDX)
4000 #if defined(_DERIVATE)
4001 y_Vci_ei=0.0;
4002 #endif
4003 #if defined(_DERIVATE)
4004 y_Vs_ci=0.0;
4005 #endif
4006 y_Vbi_ei=(-(x*(-(v_j_Vbi_ei/vde_t))*d10_logE0)*d10_exp1);
4007 #if defined(_DERIVATE)
4008  y_Vbi_ei_Vci_ei=(+0.0-(m20_exp((x*d00_logE0))*(x_Vci_ei*d00_logE0)*(x*(-(v_j_Vbi_ei/vde_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*0.0+x_Vci_ei*(-(v_j_Vbi_ei/vde_t))*d10_logE0+x*0.0)));
4009  y_Vbi_ei_Vs_ci=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vs_ci/vde_t))*d10_logE0))*(x*(-(v_j_Vbi_ei/vde_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vs_ci/vde_t))*d10_logE0+0.0*(-(v_j_Vbi_ei/vde_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vde_t)))*(-(v_j_Vs_ci/vde_t))*(-(v_j_Vbi_ei/vde_t))+d10_logE0*(+0.0-(v_j_Vbi_ei_Vs_ci/vde_t-(v_j_Vbi_ei*0.0+v_j_Vs_ci*0.0+v_j*0.0)/vde_t/vde_t+2*v_j*0.0*0.0/vde_t/vde_t/vde_t))))));
4010  y_Vbi_ei_Vbi_ei=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vbi_ei/vde_t))*d10_logE0))*(x*(-(v_j_Vbi_ei/vde_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vbi_ei/vde_t))*d10_logE0+0.0*(-(v_j_Vbi_ei/vde_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vde_t)))*(-(v_j_Vbi_ei/vde_t))*(-(v_j_Vbi_ei/vde_t))+d10_logE0*(+0.0-(v_j_Vbi_ei_Vbi_ei/vde_t-(v_j_Vbi_ei*0.0+v_j_Vbi_ei*0.0+v_j*0.0)/vde_t/vde_t+2*v_j*0.0*0.0/vde_t/vde_t/vde_t))))));
4011  y_Vbi_ei_Vbi_ci=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vbi_ci/vde_t))*d10_logE0))*(x*(-(v_j_Vbi_ei/vde_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vbi_ci/vde_t))*d10_logE0+0.0*(-(v_j_Vbi_ei/vde_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vde_t)))*(-(v_j_Vbi_ci/vde_t))*(-(v_j_Vbi_ei/vde_t))+d10_logE0*(+0.0-(v_j_Vbi_ei_Vbi_ci/vde_t-(v_j_Vbi_ei*0.0+v_j_Vbi_ci*0.0+v_j*0.0)/vde_t/vde_t+2*v_j*0.0*0.0/vde_t/vde_t/vde_t))))));
4012  y_Vbi_ei_Vtnode_GND=(+0.0-(m20_exp((x*d00_logE0))*(((x_Vtnode_GND*d00_logE0)+(x*(-((v_j_Vtnode_GND*vde_t-v_j*vde_t_Vtnode_GND)/vde_t/vde_t))*d10_logE0)))*(x*(-(v_j_Vbi_ei/vde_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-((v_j_Vtnode_GND*vde_t-v_j*vde_t_Vtnode_GND)/vde_t/vde_t))*d10_logE0+x_Vtnode_GND*(-(v_j_Vbi_ei/vde_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vde_t)))*(-((v_j_Vtnode_GND*vde_t-v_j*vde_t_Vtnode_GND)/vde_t/vde_t))*(-(v_j_Vbi_ei/vde_t))+d10_logE0*(+0.0-(v_j_Vbi_ei_Vtnode_GND/vde_t-(v_j_Vbi_ei*vde_t_Vtnode_GND+v_j_Vtnode_GND*0.0+v_j*0.0)/vde_t/vde_t+2*v_j*0.0*vde_t_Vtnode_GND/vde_t/vde_t/vde_t))))));
4013  y_Vbi_ei_Vb_ci=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vb_ci/vde_t))*d10_logE0))*(x*(-(v_j_Vbi_ei/vde_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vb_ci/vde_t))*d10_logE0+0.0*(-(v_j_Vbi_ei/vde_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vde_t)))*(-(v_j_Vb_ci/vde_t))*(-(v_j_Vbi_ei/vde_t))+d10_logE0*(+0.0-(v_j_Vbi_ei_Vb_ci/vde_t-(v_j_Vbi_ei*0.0+v_j_Vb_ci*0.0+v_j*0.0)/vde_t/vde_t+2*v_j*0.0*0.0/vde_t/vde_t/vde_t))))));
4014 #endif
4015 y_Vbi_ci=(-(x*(-(v_j_Vbi_ci/vde_t))*d10_logE0)*d10_exp1);
4016 #if defined(_DERIVATE)
4017  y_Vbi_ci_Vci_ei=(+0.0-(m20_exp((x*d00_logE0))*(x_Vci_ei*d00_logE0)*(x*(-(v_j_Vbi_ci/vde_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*0.0+x_Vci_ei*(-(v_j_Vbi_ci/vde_t))*d10_logE0+x*0.0)));
4018  y_Vbi_ci_Vs_ci=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vs_ci/vde_t))*d10_logE0))*(x*(-(v_j_Vbi_ci/vde_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vs_ci/vde_t))*d10_logE0+0.0*(-(v_j_Vbi_ci/vde_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vde_t)))*(-(v_j_Vs_ci/vde_t))*(-(v_j_Vbi_ci/vde_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vs_ci/vde_t-(v_j_Vbi_ci*0.0+v_j_Vs_ci*0.0+v_j*0.0)/vde_t/vde_t+2*v_j*0.0*0.0/vde_t/vde_t/vde_t))))));
4019  y_Vbi_ci_Vbi_ei=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vbi_ei/vde_t))*d10_logE0))*(x*(-(v_j_Vbi_ci/vde_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vbi_ei/vde_t))*d10_logE0+0.0*(-(v_j_Vbi_ci/vde_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vde_t)))*(-(v_j_Vbi_ei/vde_t))*(-(v_j_Vbi_ci/vde_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vbi_ei/vde_t-(v_j_Vbi_ci*0.0+v_j_Vbi_ei*0.0+v_j*0.0)/vde_t/vde_t+2*v_j*0.0*0.0/vde_t/vde_t/vde_t))))));
4020  y_Vbi_ci_Vbi_ci=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vbi_ci/vde_t))*d10_logE0))*(x*(-(v_j_Vbi_ci/vde_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vbi_ci/vde_t))*d10_logE0+0.0*(-(v_j_Vbi_ci/vde_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vde_t)))*(-(v_j_Vbi_ci/vde_t))*(-(v_j_Vbi_ci/vde_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vbi_ci/vde_t-(v_j_Vbi_ci*0.0+v_j_Vbi_ci*0.0+v_j*0.0)/vde_t/vde_t+2*v_j*0.0*0.0/vde_t/vde_t/vde_t))))));
4021  y_Vbi_ci_Vtnode_GND=(+0.0-(m20_exp((x*d00_logE0))*(((x_Vtnode_GND*d00_logE0)+(x*(-((v_j_Vtnode_GND*vde_t-v_j*vde_t_Vtnode_GND)/vde_t/vde_t))*d10_logE0)))*(x*(-(v_j_Vbi_ci/vde_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-((v_j_Vtnode_GND*vde_t-v_j*vde_t_Vtnode_GND)/vde_t/vde_t))*d10_logE0+x_Vtnode_GND*(-(v_j_Vbi_ci/vde_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vde_t)))*(-((v_j_Vtnode_GND*vde_t-v_j*vde_t_Vtnode_GND)/vde_t/vde_t))*(-(v_j_Vbi_ci/vde_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vtnode_GND/vde_t-(v_j_Vbi_ci*vde_t_Vtnode_GND+v_j_Vtnode_GND*0.0+v_j*0.0)/vde_t/vde_t+2*v_j*0.0*vde_t_Vtnode_GND/vde_t/vde_t/vde_t))))));
4022  y_Vbi_ci_Vb_ci=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vb_ci/vde_t))*d10_logE0))*(x*(-(v_j_Vbi_ci/vde_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vb_ci/vde_t))*d10_logE0+0.0*(-(v_j_Vbi_ci/vde_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vde_t)))*(-(v_j_Vb_ci/vde_t))*(-(v_j_Vbi_ci/vde_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vb_ci/vde_t-(v_j_Vbi_ci*0.0+v_j_Vb_ci*0.0+v_j*0.0)/vde_t/vde_t+2*v_j*0.0*0.0/vde_t/vde_t/vde_t))))));
4023 #endif
4024 #if defined(_DERIVATE)
4025 y_Vtnode_GND=(-((x_Vtnode_GND*d00_logE0)+(x*(-((v_j_Vtnode_GND*vde_t-v_j*vde_t_Vtnode_GND)/vde_t/vde_t))*d10_logE0))*d10_exp1);
4026 #endif
4027 #if defined(_DERIVATE)
4028 y_Vb_ci=(-(x*(-(v_j_Vb_ci/vde_t))*d10_logE0)*d10_exp1);
4029 #endif
4030 #endif
4031 y=(1.0-d00_exp1);
4032 }
4033 #if defined(_DERIVATEFORDDX)
4034 #if defined(_DERIVATE)
4035 qjei_Vtnode_GND=(((((((cje0_t_Vtnode_GND*vde_t)+(cje0_t*vde_t_Vtnode_GND))*y)+((cje0_t*vde_t)*y_Vtnode_GND))*x-((cje0_t*vde_t)*y)*x_Vtnode_GND)/x/x)+((((aje_t_Vtnode_GND*cje0_t)+(aje_t*cje0_t_Vtnode_GND))*(Vbiei-v_j))+((aje_t*cje0_t)*(-v_j_Vtnode_GND))));
4036 #endif
4037 qjei_Vbi_ei=((((cje0_t*vde_t)*y_Vbi_ei)/x)+((aje_t*cje0_t)*(Vbiei_Vbi_ei-v_j_Vbi_ei)));
4038 #if defined(_DERIVATE)
4039  qjei_Vbi_ei_Vtnode_GND=(+((+(+0.0*vde_t+0.0*vde_t_Vtnode_GND+cje0_t_Vtnode_GND*0.0+cje0_t*0.0)*y+0.0*y_Vtnode_GND+(((cje0_t_Vtnode_GND*vde_t)+(cje0_t*vde_t_Vtnode_GND)))*y_Vbi_ei+(cje0_t*vde_t)*y_Vbi_ei_Vtnode_GND)/x-(((cje0_t*vde_t)*y_Vbi_ei)*x_Vtnode_GND+((((((cje0_t_Vtnode_GND*vde_t)+(cje0_t*vde_t_Vtnode_GND)))*y)+((cje0_t*vde_t)*y_Vtnode_GND)))*0.0+((cje0_t*vde_t)*y)*0.0)/x/x+2*((cje0_t*vde_t)*y)*0.0*x_Vtnode_GND/x/x/x)+(+(+0.0*cje0_t+0.0*cje0_t_Vtnode_GND+aje_t_Vtnode_GND*0.0+aje_t*0.0)*(Vbiei-v_j)+0.0*(-v_j_Vtnode_GND)+(((aje_t_Vtnode_GND*cje0_t)+(aje_t*cje0_t_Vtnode_GND)))*(Vbiei_Vbi_ei-v_j_Vbi_ei)+(aje_t*cje0_t)*(+0.0-v_j_Vbi_ei_Vtnode_GND)));
4040  qjei_Vbi_ei_Vbi_ei=(+((+(+0.0*vde_t+0.0*0.0+0.0*0.0+cje0_t*0.0)*y+0.0*y_Vbi_ei+0.0*y_Vbi_ei+(cje0_t*vde_t)*y_Vbi_ei_Vbi_ei)/x-(((cje0_t*vde_t)*y_Vbi_ei)*0.0+(((cje0_t*vde_t)*y_Vbi_ei))*0.0+((cje0_t*vde_t)*y)*0.0)/x/x+2*((cje0_t*vde_t)*y)*0.0*0.0/x/x/x)+(+(+0.0*cje0_t+0.0*0.0+0.0*0.0+aje_t*0.0)*(Vbiei-v_j)+0.0*(Vbiei_Vbi_ei-v_j_Vbi_ei)+0.0*(Vbiei_Vbi_ei-v_j_Vbi_ei)+(aje_t*cje0_t)*(+Vbiei_Vbi_ei_Vbi_ei-v_j_Vbi_ei_Vbi_ei)));
4041  qjei_Vbi_ei_Vbi_ci=(+((+(+0.0*vde_t+0.0*0.0+0.0*0.0+cje0_t*0.0)*y+0.0*y_Vbi_ci+0.0*y_Vbi_ei+(cje0_t*vde_t)*y_Vbi_ei_Vbi_ci)/x-(((cje0_t*vde_t)*y_Vbi_ei)*0.0+(((cje0_t*vde_t)*y_Vbi_ci))*0.0+((cje0_t*vde_t)*y)*0.0)/x/x+2*((cje0_t*vde_t)*y)*0.0*0.0/x/x/x)+(+(+0.0*cje0_t+0.0*0.0+0.0*0.0+aje_t*0.0)*(Vbiei-v_j)+0.0*(-v_j_Vbi_ci)+0.0*(Vbiei_Vbi_ei-v_j_Vbi_ei)+(aje_t*cje0_t)*(+0.0-v_j_Vbi_ei_Vbi_ci)));
4042  qjei_Vbi_ei_Vb_ci=(+((+(+0.0*vde_t+0.0*0.0+0.0*0.0+cje0_t*0.0)*y+0.0*y_Vb_ci+0.0*y_Vbi_ei+(cje0_t*vde_t)*y_Vbi_ei_Vb_ci)/x-(((cje0_t*vde_t)*y_Vbi_ei)*0.0+(((cje0_t*vde_t)*y_Vb_ci))*0.0+((cje0_t*vde_t)*y)*0.0)/x/x+2*((cje0_t*vde_t)*y)*0.0*0.0/x/x/x)+(+(+0.0*cje0_t+0.0*0.0+0.0*0.0+aje_t*0.0)*(Vbiei-v_j)+0.0*(-v_j_Vb_ci)+0.0*(Vbiei_Vbi_ei-v_j_Vbi_ei)+(aje_t*cje0_t)*(+0.0-v_j_Vbi_ei_Vb_ci)));
4043 #endif
4044 qjei_Vbi_ci=((((cje0_t*vde_t)*y_Vbi_ci)/x)+((aje_t*cje0_t)*(-v_j_Vbi_ci)));
4045 #if defined(_DERIVATE)
4046  qjei_Vbi_ci_Vtnode_GND=(+((+(+0.0*vde_t+0.0*vde_t_Vtnode_GND+cje0_t_Vtnode_GND*0.0+cje0_t*0.0)*y+0.0*y_Vtnode_GND+(((cje0_t_Vtnode_GND*vde_t)+(cje0_t*vde_t_Vtnode_GND)))*y_Vbi_ci+(cje0_t*vde_t)*y_Vbi_ci_Vtnode_GND)/x-(((cje0_t*vde_t)*y_Vbi_ci)*x_Vtnode_GND+((((((cje0_t_Vtnode_GND*vde_t)+(cje0_t*vde_t_Vtnode_GND)))*y)+((cje0_t*vde_t)*y_Vtnode_GND)))*0.0+((cje0_t*vde_t)*y)*0.0)/x/x+2*((cje0_t*vde_t)*y)*0.0*x_Vtnode_GND/x/x/x)+(+(+0.0*cje0_t+0.0*cje0_t_Vtnode_GND+aje_t_Vtnode_GND*0.0+aje_t*0.0)*(Vbiei-v_j)+0.0*(-v_j_Vtnode_GND)+(((aje_t_Vtnode_GND*cje0_t)+(aje_t*cje0_t_Vtnode_GND)))*(-v_j_Vbi_ci)+(aje_t*cje0_t)*(+0.0-v_j_Vbi_ci_Vtnode_GND)));
4047  qjei_Vbi_ci_Vbi_ei=(+((+(+0.0*vde_t+0.0*0.0+0.0*0.0+cje0_t*0.0)*y+0.0*y_Vbi_ei+0.0*y_Vbi_ci+(cje0_t*vde_t)*y_Vbi_ci_Vbi_ei)/x-(((cje0_t*vde_t)*y_Vbi_ci)*0.0+(((cje0_t*vde_t)*y_Vbi_ei))*0.0+((cje0_t*vde_t)*y)*0.0)/x/x+2*((cje0_t*vde_t)*y)*0.0*0.0/x/x/x)+(+(+0.0*cje0_t+0.0*0.0+0.0*0.0+aje_t*0.0)*(Vbiei-v_j)+0.0*(Vbiei_Vbi_ei-v_j_Vbi_ei)+0.0*(-v_j_Vbi_ci)+(aje_t*cje0_t)*(+0.0-v_j_Vbi_ci_Vbi_ei)));
4048  qjei_Vbi_ci_Vbi_ci=(+((+(+0.0*vde_t+0.0*0.0+0.0*0.0+cje0_t*0.0)*y+0.0*y_Vbi_ci+0.0*y_Vbi_ci+(cje0_t*vde_t)*y_Vbi_ci_Vbi_ci)/x-(((cje0_t*vde_t)*y_Vbi_ci)*0.0+(((cje0_t*vde_t)*y_Vbi_ci))*0.0+((cje0_t*vde_t)*y)*0.0)/x/x+2*((cje0_t*vde_t)*y)*0.0*0.0/x/x/x)+(+(+0.0*cje0_t+0.0*0.0+0.0*0.0+aje_t*0.0)*(Vbiei-v_j)+0.0*(-v_j_Vbi_ci)+0.0*(-v_j_Vbi_ci)+(aje_t*cje0_t)*(+0.0-v_j_Vbi_ci_Vbi_ci)));
4049  qjei_Vbi_ci_Vb_ci=(+((+(+0.0*vde_t+0.0*0.0+0.0*0.0+cje0_t*0.0)*y+0.0*y_Vb_ci+0.0*y_Vbi_ci+(cje0_t*vde_t)*y_Vbi_ci_Vb_ci)/x-(((cje0_t*vde_t)*y_Vbi_ci)*0.0+(((cje0_t*vde_t)*y_Vb_ci))*0.0+((cje0_t*vde_t)*y)*0.0)/x/x+2*((cje0_t*vde_t)*y)*0.0*0.0/x/x/x)+(+(+0.0*cje0_t+0.0*0.0+0.0*0.0+aje_t*0.0)*(Vbiei-v_j)+0.0*(-v_j_Vb_ci)+0.0*(-v_j_Vbi_ci)+(aje_t*cje0_t)*(+0.0-v_j_Vbi_ci_Vb_ci)));
4050 #endif
4051 #if defined(_DERIVATE)
4052 qjei_Vb_ci=((((cje0_t*vde_t)*y_Vb_ci)/x)+((aje_t*cje0_t)*(-v_j_Vb_ci)));
4053 #endif
4054 #endif
4055 qjei=((((cje0_t*vde_t)*y)/x)+((aje_t*cje0_t)*(Vbiei-v_j)));
4056 }
4057 else
4058 {
4059 #if defined(_DERIVATEFORDDX)
4060 #if defined(_DERIVATE)
4061 qjei_Vtnode_GND=0.0;
4062 #endif
4063 qjei_Vbi_ei=0.0;
4064 #if defined(_DERIVATE)
4065  qjei_Vbi_ei_Vtnode_GND=0.0;
4066  qjei_Vbi_ei_Vbi_ei=0.0;
4067  qjei_Vbi_ei_Vbi_ci=0.0;
4068  qjei_Vbi_ei_Vb_ci=0.0;
4069 #endif
4070 qjei_Vbi_ci=0.0;
4071 #if defined(_DERIVATE)
4072  qjei_Vbi_ci_Vtnode_GND=0.0;
4073  qjei_Vbi_ci_Vbi_ei=0.0;
4074  qjei_Vbi_ci_Vbi_ci=0.0;
4075  qjei_Vbi_ci_Vb_ci=0.0;
4076 #endif
4077 #if defined(_DERIVATE)
4078 qjei_Vb_ci=0.0;
4079 #endif
4080 #endif
4081 qjei=0.0;
4082 }
4083 #if defined(_DYNAMIC)
4084 #if defined(_DDX)
4085 cjei=+(qjei_Vbi_ei)+(qjei_Vbi_ci);
4086 #endif
4087 #endif
4088 #if defined(_DERIVATE)
4089 vc_Vci_ei=Vciei_Vci_ei;
4090 vc_Vtnode_GND=(-vces_t_Vtnode_GND);
4091 #endif
4092 vc=(Vciei-vces_t);
4093 #if defined(_DERIVATE)
4094 uvc_Vci_ei=(vc_Vci_ei/VT);
4095 uvc_Vtnode_GND=((vc_Vtnode_GND*VT-vc*VT_Vtnode_GND)/VT/VT);
4096 #endif
4097 uvc=((vc/VT)-1);
4098 {
4099 double m00_sqrt(d00_sqrt0,((uvc*uvc)+1.921812))
4100 #if defined(_DERIVATE)
4101 double m10_sqrt(d10_sqrt0,d00_sqrt0,((uvc*uvc)+1.921812))
4102 #endif
4103 #if defined(_DERIVATE)
4104 vceff_Vtnode_GND=((VT_Vtnode_GND*(1+(0.5*(uvc+d00_sqrt0))))+(VT*(0.5*(uvc_Vtnode_GND+((uvc_Vtnode_GND*uvc)+(uvc*uvc_Vtnode_GND))*d10_sqrt0))));
4105 vceff_Vci_ei=(VT*(0.5*(uvc_Vci_ei+((uvc_Vci_ei*uvc)+(uvc*uvc_Vci_ei))*d10_sqrt0)));
4106 #endif
4107 vceff=(VT*(1+(0.5*(uvc+d00_sqrt0))));
4108 }
4109 #if defined(_DERIVATE)
4110 x_Vtnode_GND=((vceff_Vtnode_GND-vlim_t_Vtnode_GND)/vpt);
4111 x_Vci_ei=(vceff_Vci_ei/vpt);
4112 #endif
4113 x=((vceff-vlim_t)/vpt);
4114 {
4115 double m00_sqrt(d00_sqrt0,((x*x)+1e-3))
4116 double m00_sqrt(d00_sqrt1,(1+(((vceff*vceff)/vlim_t)/vlim_t)))
4117 #if defined(_DERIVATE)
4118 double m10_sqrt(d10_sqrt0,d00_sqrt0,((x*x)+1e-3))
4119 double m10_sqrt(d10_sqrt1,d00_sqrt1,(1+(((vceff*vceff)/vlim_t)/vlim_t)))
4120 #endif
4121 #if defined(_DERIVATE)
4122 ick_Vtnode_GND=((((((vceff_Vtnode_GND*(1+(0.5*(x+d00_sqrt0))))+(vceff*(0.5*(x_Vtnode_GND+((x_Vtnode_GND*x)+(x*x_Vtnode_GND))*d10_sqrt0))))*rci0_t-(vceff*(1+(0.5*(x+d00_sqrt0))))*rci0_t_Vtnode_GND)/rci0_t/rci0_t)*d00_sqrt1-((vceff*(1+(0.5*(x+d00_sqrt0))))/rci0_t)*((((((vceff_Vtnode_GND*vceff)+(vceff*vceff_Vtnode_GND))*vlim_t-(vceff*vceff)*vlim_t_Vtnode_GND)/vlim_t/vlim_t)*vlim_t-((vceff*vceff)/vlim_t)*vlim_t_Vtnode_GND)/vlim_t/vlim_t)*d10_sqrt1)/d00_sqrt1/d00_sqrt1);
4123 ick_Vci_ei=(((((vceff_Vci_ei*(1+(0.5*(x+d00_sqrt0))))+(vceff*(0.5*(x_Vci_ei+((x_Vci_ei*x)+(x*x_Vci_ei))*d10_sqrt0))))/rci0_t)*d00_sqrt1-((vceff*(1+(0.5*(x+d00_sqrt0))))/rci0_t)*((((vceff_Vci_ei*vceff)+(vceff*vceff_Vci_ei))/vlim_t)/vlim_t)*d10_sqrt1)/d00_sqrt1/d00_sqrt1);
4124 #endif
4125 ick=(((vceff*(1+(0.5*(x+d00_sqrt0))))/rci0_t)/d00_sqrt1);
4126 }
4127 #if defined(_DERIVATE)
4128 cc_Vtnode_GND=((cjci0_t_ii_Vtnode_GND*cjcii-cjci0_t_ii*cjcii_Vtnode_GND)/cjcii/cjcii);
4129 cc_Vbi_ci=(-cjci0_t_ii*cjcii_Vbi_ci/cjcii/cjcii);
4130 cc_Vb_ci=(-cjci0_t_ii*cjcii_Vb_ci/cjcii/cjcii);
4131 #endif
4132 cc=(cjci0_t_ii/cjcii);
4133 #if defined(_DERIVATE)
4134 qjci_Vbi_ci=(qjci_Vbi_ci/cjci0_t_ii);
4135 qjci_Vtnode_GND=((qjci_Vtnode_GND*cjci0_t_ii-qjci*cjci0_t_ii_Vtnode_GND)/cjci0_t_ii/cjci0_t_ii);
4136 qjci_Vb_ci=(qjci_Vb_ci/cjci0_t_ii);
4137 #endif
4138 qjci=(qjci/cjci0_t_ii);
4139 #if defined(_DERIVATE)
4140 qj_2_Vbi_ci=((qjci_Vbi_ci/vef)/2);
4141 qj_2_Vtnode_GND=((qjci_Vtnode_GND/vef)/2);
4142 qj_2_Vb_ci=((qjci_Vb_ci/vef)/2);
4143 #endif
4144 qj_2=((1+(qjci/vef))/2);
4145 #if defined(_DYNAMIC)
4146 #if defined(_DERIVATE)
4147 tf0_Vtnode_GND=((t0_t_Vtnode_GND+(dt0h*cc_Vtnode_GND))+(tbvl*(-1*cc_Vtnode_GND/cc/cc)));
4148 tf0_Vbi_ci=((dt0h*cc_Vbi_ci)+(tbvl*(-1*cc_Vbi_ci/cc/cc)));
4149 tf0_Vb_ci=((dt0h*cc_Vb_ci)+(tbvl*(-1*cc_Vb_ci/cc/cc)));
4150 #endif
4151 tf0=((t0_t+(dt0h*(cc-1)))+(tbvl*((1/cc)-1)));
4152 #endif
4153 ickf=iqf;
4154 ickr=iqr;
4155 #if defined(_DERIVATE)
4156 arg1_Vbi_ei=(Vbiei_Vbi_ei/(mcf*VT));
4157 arg1_Vtnode_GND=(-Vbiei*(mcf*VT_Vtnode_GND)/(mcf*VT)/(mcf*VT));
4158 #endif
4159 arg1=(Vbiei/(mcf*VT));
4160 if
4161 ((arg1>80))
4162 {
4163 #if defined(_DERIVATE)
4164 le1_Vbi_ei=arg1_Vbi_ei;
4165 le1_Vtnode_GND=arg1_Vtnode_GND;
4166 #endif
4167 le1=(1+(arg1-80));
4168 #if defined(_DERIVATE)
4169 arg1_Vbi_ei=0.0;
4170 arg1_Vtnode_GND=0.0;
4171 #endif
4172 arg1=80;
4173 }
4174 else
4175 {
4176 #if defined(_DERIVATE)
4177 le1_Vbi_ei=0.0;
4178 le1_Vtnode_GND=0.0;
4179 #endif
4180 le1=1;
4181 }
4182 {
4183 double m00_limexp(d00_limexp0,arg1)
4184 #if defined(_DERIVATE)
4185 double m10_limexp(d10_limexp0,d00_limexp0,arg1)
4186 #endif
4187 #if defined(_DERIVATE)
4188 le1_Vbi_ei=((le1_Vbi_ei*d00_limexp0)+(le1*arg1_Vbi_ei*d10_limexp0));
4189 le1_Vtnode_GND=((le1_Vtnode_GND*d00_limexp0)+(le1*arg1_Vtnode_GND*d10_limexp0));
4190 #endif
4191 le1=(le1*d00_limexp0);
4192 }
4193 #if defined(_DERIVATE)
4194 itfi_Vtnode_GND=((is_t_Vtnode_GND*le1)+(is_t*le1_Vtnode_GND));
4195 itfi_Vbi_ei=(is_t*le1_Vbi_ei);
4196 #endif
4197 itfi=(is_t*le1);
4198 #if defined(_DERIVATE)
4199 arg2_Vbi_ci=(Vbici_Vbi_ci/(mcr*VT));
4200 arg2_Vtnode_GND=(-Vbici*(mcr*VT_Vtnode_GND)/(mcr*VT)/(mcr*VT));
4201 #endif
4202 arg2=(Vbici/(mcr*VT));
4203 if
4204 ((arg2>80))
4205 {
4206 #if defined(_DERIVATE)
4207 le2_Vbi_ci=arg2_Vbi_ci;
4208 le2_Vtnode_GND=arg2_Vtnode_GND;
4209 #endif
4210 le2=(1+(arg2-80));
4211 #if defined(_DERIVATE)
4212 arg2_Vbi_ci=0.0;
4213 arg2_Vtnode_GND=0.0;
4214 #endif
4215 arg2=80;
4216 }
4217 else
4218 {
4219 #if defined(_DERIVATE)
4220 le2_Vbi_ci=0.0;
4221 le2_Vtnode_GND=0.0;
4222 #endif
4223 le2=1;
4224 }
4225 {
4226 double m00_limexp(d00_limexp0,arg2)
4227 #if defined(_DERIVATE)
4228 double m10_limexp(d10_limexp0,d00_limexp0,arg2)
4229 #endif
4230 #if defined(_DERIVATE)
4231 le2_Vbi_ci=((le2_Vbi_ci*d00_limexp0)+(le2*arg2_Vbi_ci*d10_limexp0));
4232 le2_Vtnode_GND=((le2_Vtnode_GND*d00_limexp0)+(le2*arg2_Vtnode_GND*d10_limexp0));
4233 #endif
4234 le2=(le2*d00_limexp0);
4235 }
4236 #if defined(_DERIVATE)
4237 itri_Vtnode_GND=((is_t_Vtnode_GND*le2)+(is_t*le2_Vtnode_GND));
4238 itri_Vbi_ci=(is_t*le2_Vbi_ci);
4239 #endif
4240 itri=(is_t*le2);
4241 #if defined(_DERIVATE)
4242 qm_Vtnode_GND=((itfi_Vtnode_GND/ickf)+(itri_Vtnode_GND/ickr));
4243 qm_Vbi_ei=(itfi_Vbi_ei/ickf);
4244 qm_Vbi_ci=(itri_Vbi_ci/ickr);
4245 #endif
4246 qm=((itfi/ickf)+(itri/ickr));
4247 {
4248 double m00_sqrt(d00_sqrt0,((qj_2*qj_2)+qm))
4249 #if defined(_DERIVATE)
4250 double m10_sqrt(d10_sqrt0,d00_sqrt0,((qj_2*qj_2)+qm))
4251 #endif
4252 #if defined(_DERIVATE)
4253 qpt_Vbi_ci=(qj_2_Vbi_ci+(((qj_2_Vbi_ci*qj_2)+(qj_2*qj_2_Vbi_ci))+qm_Vbi_ci)*d10_sqrt0);
4254 qpt_Vtnode_GND=(qj_2_Vtnode_GND+(((qj_2_Vtnode_GND*qj_2)+(qj_2*qj_2_Vtnode_GND))+qm_Vtnode_GND)*d10_sqrt0);
4255 qpt_Vb_ci=(qj_2_Vb_ci+((qj_2_Vb_ci*qj_2)+(qj_2*qj_2_Vb_ci))*d10_sqrt0);
4256 qpt_Vbi_ei=qm_Vbi_ei*d10_sqrt0;
4257 #endif
4258 qpt=(qj_2+d00_sqrt0);
4259 }
4260 if
4261 ((qpt<=1e-20))
4262 {
4263 #if defined(_DERIVATE)
4264 qpt_Vbi_ci=0.0;
4265 qpt_Vtnode_GND=0.0;
4266 qpt_Vb_ci=0.0;
4267 qpt_Vbi_ei=0.0;
4268 #endif
4269 qpt=1e-20;
4270 }
4271 #if defined(_DERIVATE)
4272 itfl_Vtnode_GND=((itfi_Vtnode_GND*qpt-itfi*qpt_Vtnode_GND)/qpt/qpt);
4273 itfl_Vbi_ei=((itfi_Vbi_ei*qpt-itfi*qpt_Vbi_ei)/qpt/qpt);
4274 itfl_Vbi_ci=(-itfi*qpt_Vbi_ci/qpt/qpt);
4275 itfl_Vb_ci=(-itfi*qpt_Vb_ci/qpt/qpt);
4276 #endif
4277 itfl=(itfi/qpt);
4278 #if defined(_DERIVATE)
4279 itrl_Vtnode_GND=((itri_Vtnode_GND*qpt-itri*qpt_Vtnode_GND)/qpt/qpt);
4280 itrl_Vbi_ci=((itri_Vbi_ci*qpt-itri*qpt_Vbi_ci)/qpt/qpt);
4281 itrl_Vb_ci=(-itri*qpt_Vb_ci/qpt/qpt);
4282 itrl_Vbi_ei=(-itri*qpt_Vbi_ei/qpt/qpt);
4283 #endif
4284 itrl=(itri/qpt);
4285 if
4286 ((itfl<=1e-20))
4287 {
4288 #if defined(_DERIVATE)
4289 itfl_Vtnode_GND=0.0;
4290 itfl_Vbi_ei=0.0;
4291 itfl_Vbi_ci=0.0;
4292 itfl_Vb_ci=0.0;
4293 #endif
4294 itfl=1e-20;
4295 }
4296 #if defined(_DERIVATE)
4297 al_Vtnode_GND=(-((ick_Vtnode_GND*itfl-ick*itfl_Vtnode_GND)/itfl/itfl));
4298 al_Vci_ei=(-(ick_Vci_ei/itfl));
4299 al_Vbi_ei=(-(-ick*itfl_Vbi_ei/itfl/itfl));
4300 al_Vbi_ci=(-(-ick*itfl_Vbi_ci/itfl/itfl));
4301 al_Vb_ci=(-(-ick*itfl_Vb_ci/itfl/itfl));
4302 #endif
4303 al=(1-(ick/itfl));
4304 {
4305 double m00_sqrt(d00_sqrt0,((al*al)+ahc))
4306 #if defined(_DERIVATE)
4307 double m10_sqrt(d10_sqrt0,d00_sqrt0,((al*al)+ahc))
4308 #endif
4309 #if defined(_DERIVATE)
4310 s3l_Vtnode_GND=((al_Vtnode_GND*al)+(al*al_Vtnode_GND))*d10_sqrt0;
4311 s3l_Vci_ei=((al_Vci_ei*al)+(al*al_Vci_ei))*d10_sqrt0;
4312 s3l_Vbi_ei=((al_Vbi_ei*al)+(al*al_Vbi_ei))*d10_sqrt0;
4313 s3l_Vbi_ci=((al_Vbi_ci*al)+(al*al_Vbi_ci))*d10_sqrt0;
4314 s3l_Vb_ci=((al_Vb_ci*al)+(al*al_Vb_ci))*d10_sqrt0;
4315 #endif
4316 s3l=d00_sqrt0;
4317 }
4318 {
4319 double m00_sqrt(d00_sqrt0,(1+ahc))
4320 #if defined(_DERIVATE)
4321 wl_Vtnode_GND=((al_Vtnode_GND+s3l_Vtnode_GND)/(1+d00_sqrt0));
4322 wl_Vci_ei=((al_Vci_ei+s3l_Vci_ei)/(1+d00_sqrt0));
4323 wl_Vbi_ei=((al_Vbi_ei+s3l_Vbi_ei)/(1+d00_sqrt0));
4324 wl_Vbi_ci=((al_Vbi_ci+s3l_Vbi_ci)/(1+d00_sqrt0));
4325 wl_Vb_ci=((al_Vb_ci+s3l_Vb_ci)/(1+d00_sqrt0));
4326 #endif
4327 wl=((al+s3l)/(1+d00_sqrt0));
4328 }
4329 #if defined(_DERIVATE)
4330 d_qfh_Vtnode_GND=((((((wl_Vtnode_GND*wl)+(wl*wl_Vtnode_GND))+(((tfh*itfl_Vtnode_GND)*ick-(tfh*itfl)*ick_Vtnode_GND)/ick/ick))*itfl)+(((wl*wl)+((tfh*itfl)/ick))*itfl_Vtnode_GND))/iqfh);
4331 d_qfh_Vci_ei=((((wl_Vci_ei*wl)+(wl*wl_Vci_ei))+(-(tfh*itfl)*ick_Vci_ei/ick/ick))*itfl/iqfh);
4332 d_qfh_Vbi_ei=((((((wl_Vbi_ei*wl)+(wl*wl_Vbi_ei))+((tfh*itfl_Vbi_ei)/ick))*itfl)+(((wl*wl)+((tfh*itfl)/ick))*itfl_Vbi_ei))/iqfh);
4333 d_qfh_Vbi_ci=((((((wl_Vbi_ci*wl)+(wl*wl_Vbi_ci))+((tfh*itfl_Vbi_ci)/ick))*itfl)+(((wl*wl)+((tfh*itfl)/ick))*itfl_Vbi_ci))/iqfh);
4334 d_qfh_Vb_ci=((((((wl_Vb_ci*wl)+(wl*wl_Vb_ci))+((tfh*itfl_Vb_ci)/ick))*itfl)+(((wl*wl)+((tfh*itfl)/ick))*itfl_Vb_ci))/iqfh);
4335 #endif
4336 d_qfh=((((wl*wl)+((tfh*itfl)/ick))*itfl)/iqfh);
4337 #if defined(_DERIVATE)
4338 facl_Vtnode_GND=(-1*((d_qfh_Vtnode_GND*qpt-d_qfh*qpt_Vtnode_GND)/qpt/qpt)/(1+(d_qfh/qpt))/(1+(d_qfh/qpt)));
4339 facl_Vci_ei=(-1*(d_qfh_Vci_ei/qpt)/(1+(d_qfh/qpt))/(1+(d_qfh/qpt)));
4340 facl_Vbi_ei=(-1*((d_qfh_Vbi_ei*qpt-d_qfh*qpt_Vbi_ei)/qpt/qpt)/(1+(d_qfh/qpt))/(1+(d_qfh/qpt)));
4341 facl_Vbi_ci=(-1*((d_qfh_Vbi_ci*qpt-d_qfh*qpt_Vbi_ci)/qpt/qpt)/(1+(d_qfh/qpt))/(1+(d_qfh/qpt)));
4342 facl_Vb_ci=(-1*((d_qfh_Vb_ci*qpt-d_qfh*qpt_Vb_ci)/qpt/qpt)/(1+(d_qfh/qpt))/(1+(d_qfh/qpt)));
4343 #endif
4344 facl=(1/(1+(d_qfh/qpt)));
4345 #if defined(_DERIVATE)
4346 itf_Vtnode_GND=((itfl_Vtnode_GND*facl)+(itfl*facl_Vtnode_GND));
4347 itf_Vbi_ei=((itfl_Vbi_ei*facl)+(itfl*facl_Vbi_ei));
4348 itf_Vbi_ci=((itfl_Vbi_ci*facl)+(itfl*facl_Vbi_ci));
4349 itf_Vb_ci=((itfl_Vb_ci*facl)+(itfl*facl_Vb_ci));
4350 itf_Vci_ei=(itfl*facl_Vci_ei);
4351 #endif
4352 itf=(itfl*facl);
4353 #if defined(_DERIVATE)
4354 itr_Vtnode_GND=((itrl_Vtnode_GND*facl)+(itrl*facl_Vtnode_GND));
4355 itr_Vbi_ci=((itrl_Vbi_ci*facl)+(itrl*facl_Vbi_ci));
4356 itr_Vb_ci=((itrl_Vb_ci*facl)+(itrl*facl_Vb_ci));
4357 itr_Vbi_ei=((itrl_Vbi_ei*facl)+(itrl*facl_Vbi_ei));
4358 itr_Vci_ei=(itrl*facl_Vci_ei);
4359 #endif
4360 itr=(itrl*facl);
4361 if
4362 ((itf<=1e-20))
4363 {
4364 #if defined(_DERIVATE)
4365 itf_Vtnode_GND=0.0;
4366 itf_Vbi_ei=0.0;
4367 itf_Vbi_ci=0.0;
4368 itf_Vb_ci=0.0;
4369 itf_Vci_ei=0.0;
4370 #endif
4371 itf=1e-20;
4372 }
4373 #if defined(_DERIVATE)
4374 it_Vtnode_GND=(itf_Vtnode_GND-itr_Vtnode_GND);
4375 it_Vbi_ei=(itf_Vbi_ei-itr_Vbi_ei);
4376 it_Vbi_ci=(itf_Vbi_ci-itr_Vbi_ci);
4377 it_Vb_ci=(itf_Vb_ci-itr_Vb_ci);
4378 it_Vci_ei=(itf_Vci_ei-itr_Vci_ei);
4379 #endif
4380 it=(itf-itr);
4381 #if defined(_DYNAMIC)
4382 #if defined(_DERIVATE)
4383 qf0_Vtnode_GND=((tf0_Vtnode_GND*itf)+(tf0*itf_Vtnode_GND));
4384 qf0_Vbi_ci=((tf0_Vbi_ci*itf)+(tf0*itf_Vbi_ci));
4385 qf0_Vb_ci=((tf0_Vb_ci*itf)+(tf0*itf_Vb_ci));
4386 qf0_Vbi_ei=(tf0*itf_Vbi_ei);
4387 qf0_Vci_ei=(tf0*itf_Vci_ei);
4388 #endif
4389 qf0=(tf0*itf);
4390 #endif
4391 #if defined(_DYNAMIC)
4392 #if defined(_DERIVATE)
4393 a_Vci_ei=(-((ick_Vci_ei*itf-ick*itf_Vci_ei)/itf/itf));
4394 a_Vbi_ei=(-(-ick*itf_Vbi_ei/itf/itf));
4395 a_Vbi_ci=(-(-ick*itf_Vbi_ci/itf/itf));
4396 a_Vb_ci=(-(-ick*itf_Vb_ci/itf/itf));
4397 a_Vtnode_GND=(-((ick_Vtnode_GND*itf-ick*itf_Vtnode_GND)/itf/itf));
4398 #endif
4399 a=(1-(ick/itf));
4400 #endif
4401 #if defined(_DYNAMIC)
4402 {
4403 double m00_sqrt(d00_sqrt0,((a*a)+ahc))
4404 #if defined(_DERIVATE)
4405 double m10_sqrt(d10_sqrt0,d00_sqrt0,((a*a)+ahc))
4406 #endif
4407 #if defined(_DERIVATE)
4408 s3_Vci_ei=((a_Vci_ei*a)+(a*a_Vci_ei))*d10_sqrt0;
4409 s3_Vbi_ei=((a_Vbi_ei*a)+(a*a_Vbi_ei))*d10_sqrt0;
4410 s3_Vbi_ci=((a_Vbi_ci*a)+(a*a_Vbi_ci))*d10_sqrt0;
4411 s3_Vb_ci=((a_Vb_ci*a)+(a*a_Vb_ci))*d10_sqrt0;
4412 s3_Vtnode_GND=((a_Vtnode_GND*a)+(a*a_Vtnode_GND))*d10_sqrt0;
4413 #endif
4414 s3=d00_sqrt0;
4415 }
4416 #endif
4417 #if defined(_DYNAMIC)
4418 {
4419 double m00_sqrt(d00_sqrt0,(1+ahc))
4420 #if defined(_DERIVATE)
4421 w_Vci_ei=((a_Vci_ei+s3_Vci_ei)/(1+d00_sqrt0));
4422 w_Vbi_ei=((a_Vbi_ei+s3_Vbi_ei)/(1+d00_sqrt0));
4423 w_Vbi_ci=((a_Vbi_ci+s3_Vbi_ci)/(1+d00_sqrt0));
4424 w_Vb_ci=((a_Vb_ci+s3_Vb_ci)/(1+d00_sqrt0));
4425 w_Vtnode_GND=((a_Vtnode_GND+s3_Vtnode_GND)/(1+d00_sqrt0));
4426 #endif
4427 w=((a+s3)/(1+d00_sqrt0));
4428 }
4429 #endif
4430 #if defined(_DYNAMIC)
4431 #if defined(_DERIVATE)
4432 tww_Vtnode_GND=((((thcs_t_Vtnode_GND*w)+(thcs_t*w_Vtnode_GND))*w)+((thcs_t*w)*w_Vtnode_GND));
4433 tww_Vci_ei=(((thcs_t*w_Vci_ei)*w)+((thcs_t*w)*w_Vci_ei));
4434 tww_Vbi_ei=(((thcs_t*w_Vbi_ei)*w)+((thcs_t*w)*w_Vbi_ei));
4435 tww_Vbi_ci=(((thcs_t*w_Vbi_ci)*w)+((thcs_t*w)*w_Vbi_ci));
4436 tww_Vb_ci=(((thcs_t*w_Vb_ci)*w)+((thcs_t*w)*w_Vb_ci));
4437 #endif
4438 tww=((thcs_t*w)*w);
4439 #endif
4440 #if defined(_DYNAMIC)
4441 #if defined(_DERIVATE)
4442 dqfh_Vtnode_GND=((tww_Vtnode_GND*itf)+(tww*itf_Vtnode_GND));
4443 dqfh_Vci_ei=((tww_Vci_ei*itf)+(tww*itf_Vci_ei));
4444 dqfh_Vbi_ei=((tww_Vbi_ei*itf)+(tww*itf_Vbi_ei));
4445 dqfh_Vbi_ci=((tww_Vbi_ci*itf)+(tww*itf_Vbi_ci));
4446 dqfh_Vb_ci=((tww_Vb_ci*itf)+(tww*itf_Vb_ci));
4447 #endif
4448 dqfh=(tww*itf);
4449 #endif
4450 #if defined(_DYNAMIC)
4451 dtfh=(tww*(1+(((2*ick)/itf)/s3)));
4452 #endif
4453 #if defined(_DYNAMIC)
4454 {
4455 double m00_logE(d00_logE0,(itf/ick))
4456 double m00_exp(d00_exp1,(gte*d00_logE0))
4457 #if defined(_DERIVATE)
4458 double m10_logE(d10_logE0,d00_logE0,(itf/ick))
4459 #define d10_exp1 d00_exp1
4460 #endif
4461 #if defined(_DERIVATE)
4462 dtef_Vtnode_GND=((tef0_t_Vtnode_GND*d00_exp1)+(tef0_t*(gte*((itf_Vtnode_GND*ick-itf*ick_Vtnode_GND)/ick/ick)*d10_logE0)*d10_exp1));
4463 dtef_Vbi_ei=(tef0_t*(gte*(itf_Vbi_ei/ick)*d10_logE0)*d10_exp1);
4464 dtef_Vbi_ci=(tef0_t*(gte*(itf_Vbi_ci/ick)*d10_logE0)*d10_exp1);
4465 dtef_Vb_ci=(tef0_t*(gte*(itf_Vb_ci/ick)*d10_logE0)*d10_exp1);
4466 dtef_Vci_ei=(tef0_t*(gte*((itf_Vci_ei*ick-itf*ick_Vci_ei)/ick/ick)*d10_logE0)*d10_exp1);
4467 #endif
4468 dtef=(tef0_t*d00_exp1);
4469 }
4470 #endif
4471 #if defined(_DYNAMIC)
4472 #if defined(_DERIVATE)
4473 dqef_Vtnode_GND=(((dtef_Vtnode_GND*itf)+(dtef*itf_Vtnode_GND))/(gte+1.0));
4474 dqef_Vbi_ei=(((dtef_Vbi_ei*itf)+(dtef*itf_Vbi_ei))/(gte+1.0));
4475 dqef_Vbi_ci=(((dtef_Vbi_ci*itf)+(dtef*itf_Vbi_ci))/(gte+1.0));
4476 dqef_Vb_ci=(((dtef_Vb_ci*itf)+(dtef*itf_Vb_ci))/(gte+1.0));
4477 dqef_Vci_ei=(((dtef_Vci_ei*itf)+(dtef*itf_Vci_ei))/(gte+1.0));
4478 #endif
4479 dqef=((dtef*itf)/(gte+1.0));
4480 #endif
4481 #if defined(_DYNAMIC)
4482 #if defined(_DERIVATE)
4483 qf_Vtnode_GND=((qf0_Vtnode_GND+dqef_Vtnode_GND)+dqfh_Vtnode_GND);
4484 qf_Vbi_ci=((qf0_Vbi_ci+dqef_Vbi_ci)+dqfh_Vbi_ci);
4485 qf_Vb_ci=((qf0_Vb_ci+dqef_Vb_ci)+dqfh_Vb_ci);
4486 qf_Vbi_ei=((qf0_Vbi_ei+dqef_Vbi_ei)+dqfh_Vbi_ei);
4487 qf_Vci_ei=((qf0_Vci_ei+dqef_Vci_ei)+dqfh_Vci_ei);
4488 #endif
4489 qf=((qf0+dqef)+dqfh);
4490 #endif
4491 #if defined(_DYNAMIC)
4492 tf=((tf0+dtfh)+dtef);
4493 #endif
4494 #if defined(_DYNAMIC)
4495 #if defined(_DERIVATE)
4496 qr_Vtnode_GND=(tr*itr_Vtnode_GND);
4497 qr_Vbi_ci=(tr*itr_Vbi_ci);
4498 qr_Vb_ci=(tr*itr_Vb_ci);
4499 qr_Vbi_ei=(tr*itr_Vbi_ei);
4500 qr_Vci_ei=(tr*itr_Vci_ei);
4501 #endif
4502 qr=(tr*itr);
4503 #endif
4504 #if defined(_DERIVATE)
4505 DIOY_Vs_ci=0.0;
4506 DIOY_Vbi_ci=0.0;
4507 DIOY_Vbi_ei=(Vbiei_Vbi_ei/(mbe*VT));
4508 DIOY_Vtnode_GND=(-Vbiei*(mbe*VT_Vtnode_GND)/(mbe*VT)/(mbe*VT));
4509 #endif
4510 DIOY=(Vbiei/(mbe*VT));
4511 if
4512 ((ibes>0.0))
4513 {
4514 if
4515 ((DIOY>80))
4516 {
4517 #if defined(_DERIVATE)
4518 le_Vs_ci=0.0;
4519 le_Vbi_ci=0.0;
4520 le_Vbi_ei=DIOY_Vbi_ei;
4521 le_Vtnode_GND=DIOY_Vtnode_GND;
4522 #endif
4523 le=(1+(DIOY-80));
4524 #if defined(_DERIVATE)
4525 DIOY_Vs_ci=0.0;
4526 DIOY_Vbi_ci=0.0;
4527 DIOY_Vbi_ei=0.0;
4528 DIOY_Vtnode_GND=0.0;
4529 #endif
4530 DIOY=80;
4531 }
4532 else
4533 {
4534 #if defined(_DERIVATE)
4535 le_Vs_ci=0.0;
4536 le_Vbi_ci=0.0;
4537 le_Vbi_ei=0.0;
4538 le_Vtnode_GND=0.0;
4539 #endif
4540 le=1;
4541 }
4542 {
4543 double m00_limexp(d00_limexp0,DIOY)
4544 #if defined(_DERIVATE)
4545 double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
4546 #endif
4547 #if defined(_DERIVATE)
4548 le_Vs_ci=0.0;
4549 le_Vbi_ci=0.0;
4550 le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
4551 le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
4552 #endif
4553 le=(le*d00_limexp0);
4554 }
4555 #if defined(_DERIVATE)
4556 ibe_Vtnode_GND=((ibes_t_Vtnode_GND*(le-1.0))+(ibes_t*le_Vtnode_GND));
4557 ibe_Vbi_ei=(ibes_t*le_Vbi_ei);
4558 #endif
4559 ibe=(ibes_t*(le-1.0));
4560 if
4561 ((DIOY<=(-14.0)))
4562 {
4563 #if defined(_DERIVATE)
4564 ibe_Vtnode_GND=(-ibes_t_Vtnode_GND);
4565 ibe_Vbi_ei=0.0;
4566 #endif
4567 ibe=(-ibes_t);
4568 }
4569 }
4570 else
4571 {
4572 #if defined(_DERIVATE)
4573 ibe_Vtnode_GND=0.0;
4574 ibe_Vbi_ei=0.0;
4575 #endif
4576 ibe=0.0;
4577 }
4578 #if defined(_DERIVATE)
4579 DIOY_Vs_ci=0.0;
4580 DIOY_Vbi_ci=0.0;
4581 DIOY_Vbi_ei=(Vbiei_Vbi_ei/(mre*VT));
4582 DIOY_Vtnode_GND=(-Vbiei*(mre*VT_Vtnode_GND)/(mre*VT)/(mre*VT));
4583 #endif
4584 DIOY=(Vbiei/(mre*VT));
4585 if
4586 ((ires>0.0))
4587 {
4588 if
4589 ((DIOY>80))
4590 {
4591 #if defined(_DERIVATE)
4592 le_Vs_ci=0.0;
4593 le_Vbi_ci=0.0;
4594 le_Vbi_ei=DIOY_Vbi_ei;
4595 le_Vtnode_GND=DIOY_Vtnode_GND;
4596 #endif
4597 le=(1+(DIOY-80));
4598 #if defined(_DERIVATE)
4599 DIOY_Vs_ci=0.0;
4600 DIOY_Vbi_ci=0.0;
4601 DIOY_Vbi_ei=0.0;
4602 DIOY_Vtnode_GND=0.0;
4603 #endif
4604 DIOY=80;
4605 }
4606 else
4607 {
4608 #if defined(_DERIVATE)
4609 le_Vs_ci=0.0;
4610 le_Vbi_ci=0.0;
4611 le_Vbi_ei=0.0;
4612 le_Vtnode_GND=0.0;
4613 #endif
4614 le=1;
4615 }
4616 {
4617 double m00_limexp(d00_limexp0,DIOY)
4618 #if defined(_DERIVATE)
4619 double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
4620 #endif
4621 #if defined(_DERIVATE)
4622 le_Vs_ci=0.0;
4623 le_Vbi_ci=0.0;
4624 le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
4625 le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
4626 #endif
4627 le=(le*d00_limexp0);
4628 }
4629 #if defined(_DERIVATE)
4630 ire_Vtnode_GND=((ires_t_Vtnode_GND*(le-1.0))+(ires_t*le_Vtnode_GND));
4631 ire_Vbi_ei=(ires_t*le_Vbi_ei);
4632 #endif
4633 ire=(ires_t*(le-1.0));
4634 if
4635 ((DIOY<=(-14.0)))
4636 {
4637 #if defined(_DERIVATE)
4638 ire_Vtnode_GND=(-ires_t_Vtnode_GND);
4639 ire_Vbi_ei=0.0;
4640 #endif
4641 ire=(-ires_t);
4642 }
4643 }
4644 else
4645 {
4646 #if defined(_DERIVATE)
4647 ire_Vtnode_GND=0.0;
4648 ire_Vbi_ei=0.0;
4649 #endif
4650 ire=0.0;
4651 }
4652 #if defined(_DERIVATE)
4653 ijbe_Vtnode_GND=(ibe_Vtnode_GND+ire_Vtnode_GND);
4654 ijbe_Vbi_ei=(ibe_Vbi_ei+ire_Vbi_ei);
4655 #endif
4656 ijbe=(ibe+ire);
4657 #if defined(_DERIVATE)
4658 DIOY_Vs_ci=0.0;
4659 DIOY_Vbi_ci=(Vbici_Vbi_ci/(mbc*VT));
4660 DIOY_Vbi_ei=0.0;
4661 DIOY_Vtnode_GND=(-Vbici*(mbc*VT_Vtnode_GND)/(mbc*VT)/(mbc*VT));
4662 #endif
4663 DIOY=(Vbici/(mbc*VT));
4664 if
4665 ((ibcs>0.0))
4666 {
4667 if
4668 ((DIOY>80))
4669 {
4670 #if defined(_DERIVATE)
4671 le_Vs_ci=0.0;
4672 le_Vbi_ci=DIOY_Vbi_ci;
4673 le_Vbi_ei=DIOY_Vbi_ei;
4674 le_Vtnode_GND=DIOY_Vtnode_GND;
4675 #endif
4676 le=(1+(DIOY-80));
4677 #if defined(_DERIVATE)
4678 DIOY_Vs_ci=0.0;
4679 DIOY_Vbi_ci=0.0;
4680 DIOY_Vbi_ei=0.0;
4681 DIOY_Vtnode_GND=0.0;
4682 #endif
4683 DIOY=80;
4684 }
4685 else
4686 {
4687 #if defined(_DERIVATE)
4688 le_Vs_ci=0.0;
4689 le_Vbi_ci=0.0;
4690 le_Vbi_ei=0.0;
4691 le_Vtnode_GND=0.0;
4692 #endif
4693 le=1;
4694 }
4695 {
4696 double m00_limexp(d00_limexp0,DIOY)
4697 #if defined(_DERIVATE)
4698 double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
4699 #endif
4700 #if defined(_DERIVATE)
4701 le_Vs_ci=0.0;
4702 le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
4703 le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
4704 le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
4705 #endif
4706 le=(le*d00_limexp0);
4707 }
4708 #if defined(_DERIVATE)
4709 ijbc_Vtnode_GND=((ibcs_t_Vtnode_GND*(le-1.0))+(ibcs_t*le_Vtnode_GND));
4710 ijbc_Vbi_ci=(ibcs_t*le_Vbi_ci);
4711 ijbc_Vbi_ei=(ibcs_t*le_Vbi_ei);
4712 #endif
4713 ijbc=(ibcs_t*(le-1.0));
4714 if
4715 ((DIOY<=(-14.0)))
4716 {
4717 #if defined(_DERIVATE)
4718 ijbc_Vtnode_GND=(-ibcs_t_Vtnode_GND);
4719 ijbc_Vbi_ci=0.0;
4720 ijbc_Vbi_ei=0.0;
4721 #endif
4722 ijbc=(-ibcs_t);
4723 }
4724 }
4725 else
4726 {
4727 #if defined(_DERIVATE)
4728 ijbc_Vtnode_GND=0.0;
4729 ijbc_Vbi_ci=0.0;
4730 ijbc_Vbi_ei=0.0;
4731 #endif
4732 ijbc=0.0;
4733 }
4734 #if defined(_DERIVATE)
4735 ibi_Vtnode_GND=(ijbe_Vtnode_GND+ijbc_Vtnode_GND);
4736 ibi_Vbi_ei=(ijbe_Vbi_ei+ijbc_Vbi_ei);
4737 ibi_Vbi_ci=ijbc_Vbi_ci;
4738 #endif
4739 ibi=(ijbe+ijbc);
4740 if
4741 ((Vbici<0))
4742 {
4743 #if defined(_DERIVATE)
4744 v_bord_Vtnode_GND=((eavl_t_Vtnode_GND*vdci_t)+(eavl_t*vdci_t_Vtnode_GND));
4745 #endif
4746 v_bord=(eavl_t*vdci_t);
4747 if
4748 (((vdci_t-Vbici)>v_bord))
4749 {
4750 {
4751 double m00_exp(d00_exp0,(-cc))
4752 #if defined(_DERIVATE)
4753 #define d10_exp0 d00_exp0
4754 #endif
4755 #if defined(_DERIVATE)
4756 a_iavl_Vtnode_GND=((((kavl_t_Vtnode_GND*vdci_t-kavl_t*vdci_t_Vtnode_GND)/vdci_t/vdci_t)*d00_exp0)+((kavl_t/vdci_t)*(-cc_Vtnode_GND)*d10_exp0));
4757 a_iavl_Vbi_ci=((kavl_t/vdci_t)*(-cc_Vbi_ci)*d10_exp0);
4758 a_iavl_Vb_ci=((kavl_t/vdci_t)*(-cc_Vb_ci)*d10_exp0);
4759 #endif
4760 a_iavl=((kavl_t/vdci_t)*d00_exp0);
4761 }
4762 #if defined(_DERIVATE)
4763 iavl_Vtnode_GND=((((itf_Vtnode_GND*a_iavl)+(itf*a_iavl_Vtnode_GND))*(v_bord+((1+cc)*((vdci_t-Vbici)-v_bord))))+((itf*a_iavl)*(v_bord_Vtnode_GND+((cc_Vtnode_GND*((vdci_t-Vbici)-v_bord))+((1+cc)*(vdci_t_Vtnode_GND-v_bord_Vtnode_GND))))));
4764 iavl_Vbi_ei=itf_Vbi_ei*a_iavl*(v_bord+((1+cc)*((vdci_t-Vbici)-v_bord)));
4765 iavl_Vbi_ci=((((itf_Vbi_ci*a_iavl)+(itf*a_iavl_Vbi_ci))*(v_bord+((1+cc)*((vdci_t-Vbici)-v_bord))))+((itf*a_iavl)*((cc_Vbi_ci*((vdci_t-Vbici)-v_bord))+((1+cc)*(-Vbici_Vbi_ci)))));
4766 iavl_Vb_ci=((((itf_Vb_ci*a_iavl)+(itf*a_iavl_Vb_ci))*(v_bord+((1+cc)*((vdci_t-Vbici)-v_bord))))+((itf*a_iavl)*cc_Vb_ci*((vdci_t-Vbici)-v_bord)));
4767 iavl_Vci_ei=itf_Vci_ei*a_iavl*(v_bord+((1+cc)*((vdci_t-Vbici)-v_bord)));
4768 #endif
4769 iavl=((itf*a_iavl)*(v_bord+((1+cc)*((vdci_t-Vbici)-v_bord))));
4770 }
4771 else
4772 {
4773 {
4774 double m00_logE(d00_logE0,(1/cc))
4775 #if defined(_DERIVATE)
4776 double m10_logE(d10_logE0,d00_logE0,(1/cc))
4777 #endif
4778 #if defined(_DERIVATE)
4779 lncc_Vtnode_GND=(-1*cc_Vtnode_GND/cc/cc)*d10_logE0;
4780 lncc_Vbi_ci=(-1*cc_Vbi_ci/cc/cc)*d10_logE0;
4781 lncc_Vb_ci=(-1*cc_Vb_ci/cc/cc)*d10_logE0;
4782 #endif
4783 lncc=d00_logE0;
4784 }
4785 {
4786 double m00_exp(d00_exp0,(((1/zci)-1)*lncc))
4787 double m00_exp(d00_exp1,((((-1)/zci)*lncc)-(eavl_t*d00_exp0)))
4788 #if defined(_DERIVATE)
4789 #define d10_exp0 d00_exp0
4790 #define d10_exp1 d00_exp1
4791 #endif
4792 #if defined(_DERIVATE)
4793 iavl_Vtnode_GND=((((kavl_t_Vtnode_GND*itf)+(kavl_t*itf_Vtnode_GND))*d00_exp1)+((kavl_t*itf)*((((-1)/zci)*lncc_Vtnode_GND)-((eavl_t_Vtnode_GND*d00_exp0)+(eavl_t*(((1/zci)-1)*lncc_Vtnode_GND)*d10_exp0)))*d10_exp1));
4794 iavl_Vbi_ei=(kavl_t*itf_Vbi_ei)*d00_exp1;
4795 iavl_Vbi_ci=(((kavl_t*itf_Vbi_ci)*d00_exp1)+((kavl_t*itf)*((((-1)/zci)*lncc_Vbi_ci)-(eavl_t*(((1/zci)-1)*lncc_Vbi_ci)*d10_exp0))*d10_exp1));
4796 iavl_Vb_ci=(((kavl_t*itf_Vb_ci)*d00_exp1)+((kavl_t*itf)*((((-1)/zci)*lncc_Vb_ci)-(eavl_t*(((1/zci)-1)*lncc_Vb_ci)*d10_exp0))*d10_exp1));
4797 iavl_Vci_ei=(kavl_t*itf_Vci_ei)*d00_exp1;
4798 #endif
4799 iavl=((kavl_t*itf)*d00_exp1);
4800 }
4801 }
4802 }
4803 else
4804 {
4805 #if defined(_DERIVATE)
4806 iavl_Vtnode_GND=0.0;
4807 iavl_Vbi_ei=0.0;
4808 iavl_Vbi_ci=0.0;
4809 iavl_Vb_ci=0.0;
4810 iavl_Vci_ei=0.0;
4811 #endif
4812 iavl=0;
4813 }
4814 if
4815 ((rbi0_t>0.0))
4816 {
4817 #if defined(_DERIVATE)
4818 qje_Vtnode_GND=((qjei_Vtnode_GND*cje0_t-qjei*cje0_t_Vtnode_GND)/cje0_t/cje0_t);
4819 qje_Vbi_ei=(qjei_Vbi_ei/cje0_t);
4820 qje_Vbi_ci=(qjei_Vbi_ci/cje0_t);
4821 qje_Vb_ci=(qjei_Vb_ci/cje0_t);
4822 #endif
4823 qje=(qjei/cje0_t);
4824 #if defined(_DERIVATE)
4825 Qz_nom_Vtnode_GND=((((qje_Vtnode_GND/vr0e)+(qjci_Vtnode_GND/vr0c))+(itf_Vtnode_GND/ickf))+(itr_Vtnode_GND/ickr));
4826 Qz_nom_Vbi_ei=(((qje_Vbi_ei/vr0e)+(itf_Vbi_ei/ickf))+(itr_Vbi_ei/ickr));
4827 Qz_nom_Vbi_ci=((((qje_Vbi_ci/vr0e)+(qjci_Vbi_ci/vr0c))+(itf_Vbi_ci/ickf))+(itr_Vbi_ci/ickr));
4828 Qz_nom_Vb_ci=((((qje_Vb_ci/vr0e)+(qjci_Vb_ci/vr0c))+(itf_Vb_ci/ickf))+(itr_Vb_ci/ickr));
4829 Qz_nom_Vci_ei=((itf_Vci_ei/ickf)+(itr_Vci_ei/ickr));
4830 #endif
4831 Qz_nom=((((1+(qje/vr0e))+(qjci/vr0c))+(itf/ickf))+(itr/ickr));
4832 {
4833 double m00_sqrt(d00_sqrt0,((Qz_nom*Qz_nom)+0.01))
4834 #if defined(_DERIVATE)
4835 double m10_sqrt(d10_sqrt0,d00_sqrt0,((Qz_nom*Qz_nom)+0.01))
4836 #endif
4837 #if defined(_DERIVATE)
4838 fQz_Vtnode_GND=(0.5*(Qz_nom_Vtnode_GND+((Qz_nom_Vtnode_GND*Qz_nom)+(Qz_nom*Qz_nom_Vtnode_GND))*d10_sqrt0));
4839 fQz_Vbi_ei=(0.5*(Qz_nom_Vbi_ei+((Qz_nom_Vbi_ei*Qz_nom)+(Qz_nom*Qz_nom_Vbi_ei))*d10_sqrt0));
4840 fQz_Vbi_ci=(0.5*(Qz_nom_Vbi_ci+((Qz_nom_Vbi_ci*Qz_nom)+(Qz_nom*Qz_nom_Vbi_ci))*d10_sqrt0));
4841 fQz_Vb_ci=(0.5*(Qz_nom_Vb_ci+((Qz_nom_Vb_ci*Qz_nom)+(Qz_nom*Qz_nom_Vb_ci))*d10_sqrt0));
4842 fQz_Vci_ei=(0.5*(Qz_nom_Vci_ei+((Qz_nom_Vci_ei*Qz_nom)+(Qz_nom*Qz_nom_Vci_ei))*d10_sqrt0));
4843 #endif
4844 fQz=(0.5*(Qz_nom+d00_sqrt0));
4845 }
4846 #if defined(_DERIVATE)
4847 rbi_Vtnode_GND=((rbi0_t_Vtnode_GND*fQz-rbi0_t*fQz_Vtnode_GND)/fQz/fQz);
4848 rbi_Vbi_ei=(-rbi0_t*fQz_Vbi_ei/fQz/fQz);
4849 rbi_Vbi_ci=(-rbi0_t*fQz_Vbi_ci/fQz/fQz);
4850 rbi_Vb_ci=(-rbi0_t*fQz_Vb_ci/fQz/fQz);
4851 rbi_Vci_ei=(-rbi0_t*fQz_Vci_ei/fQz/fQz);
4852 #endif
4853 rbi=(rbi0_t/fQz);
4854 if
4855 ((ibi>0.0))
4856 {
4857 #if defined(_DERIVATE)
4858 eta_Vtnode_GND=(((((fgeo*rbi_Vtnode_GND)*ibi)+((fgeo*rbi)*ibi_Vtnode_GND))*VT-((fgeo*rbi)*ibi)*VT_Vtnode_GND)/VT/VT);
4859 eta_Vbi_ei=((((fgeo*rbi_Vbi_ei)*ibi)+((fgeo*rbi)*ibi_Vbi_ei))/VT);
4860 eta_Vbi_ci=((((fgeo*rbi_Vbi_ci)*ibi)+((fgeo*rbi)*ibi_Vbi_ci))/VT);
4861 eta_Vb_ci=((fgeo*rbi_Vb_ci)*ibi/VT);
4862 eta_Vci_ei=((fgeo*rbi_Vci_ei)*ibi/VT);
4863 #endif
4864 eta=(((fgeo*rbi)*ibi)/VT);
4865 if
4866 ((eta<1e-6))
4867 {
4868 #if defined(_DERIVATE)
4869 rbi_Vtnode_GND=((rbi_Vtnode_GND*(1-(0.5*eta)))+(rbi*(-(0.5*eta_Vtnode_GND))));
4870 rbi_Vbi_ei=((rbi_Vbi_ei*(1-(0.5*eta)))+(rbi*(-(0.5*eta_Vbi_ei))));
4871 rbi_Vbi_ci=((rbi_Vbi_ci*(1-(0.5*eta)))+(rbi*(-(0.5*eta_Vbi_ci))));
4872 rbi_Vb_ci=((rbi_Vb_ci*(1-(0.5*eta)))+(rbi*(-(0.5*eta_Vb_ci))));
4873 rbi_Vci_ei=((rbi_Vci_ei*(1-(0.5*eta)))+(rbi*(-(0.5*eta_Vci_ei))));
4874 #endif
4875 rbi=(rbi*(1-(0.5*eta)));
4876 }
4877 else
4878 {
4879 {
4880 double m00_logE(d00_logE0,(eta+1))
4881 #if defined(_DERIVATE)
4882 double m10_logE(d10_logE0,d00_logE0,(eta+1))
4883 #endif
4884 #if defined(_DERIVATE)
4885 rbi_Vtnode_GND=((((rbi_Vtnode_GND*d00_logE0)+(rbi*eta_Vtnode_GND*d10_logE0))*eta-(rbi*d00_logE0)*eta_Vtnode_GND)/eta/eta);
4886 rbi_Vbi_ei=((((rbi_Vbi_ei*d00_logE0)+(rbi*eta_Vbi_ei*d10_logE0))*eta-(rbi*d00_logE0)*eta_Vbi_ei)/eta/eta);
4887 rbi_Vbi_ci=((((rbi_Vbi_ci*d00_logE0)+(rbi*eta_Vbi_ci*d10_logE0))*eta-(rbi*d00_logE0)*eta_Vbi_ci)/eta/eta);
4888 rbi_Vb_ci=((((rbi_Vb_ci*d00_logE0)+(rbi*eta_Vb_ci*d10_logE0))*eta-(rbi*d00_logE0)*eta_Vb_ci)/eta/eta);
4889 rbi_Vci_ei=((((rbi_Vci_ei*d00_logE0)+(rbi*eta_Vci_ei*d10_logE0))*eta-(rbi*d00_logE0)*eta_Vci_ei)/eta/eta);
4890 #endif
4891 rbi=((rbi*d00_logE0)/eta);
4892 }
4893 }
4894 }
4895 }
4896 else
4897 {
4898 #if defined(_DERIVATE)
4899 rbi_Vtnode_GND=0.0;
4900 rbi_Vbi_ei=0.0;
4901 rbi_Vbi_ci=0.0;
4902 rbi_Vb_ci=0.0;
4903 rbi_Vci_ei=0.0;
4904 #endif
4905 rbi=0.0;
4906 }
4907 #if defined(_DERIVATE)
4908 rb_Vtnode_GND=(rbi_Vtnode_GND+rbx_t_Vtnode_GND);
4909 rb_Vbi_ei=rbi_Vbi_ei;
4910 rb_Vbi_ci=rbi_Vbi_ci;
4911 rb_Vb_ci=rbi_Vb_ci;
4912 rb_Vci_ei=rbi_Vci_ei;
4913 #endif
4914 rb=(rbi+rbx_t);
4915 if
4916 ((itss>0.0))
4917 {
4918 #if defined(_DERIVATE)
4919 HSUM_Vtnode_GND=(msf*VT_Vtnode_GND);
4920 #endif
4921 HSUM=(msf*VT);
4922 {
4923 double m00_limexp(d00_limexp0,(Vbci/HSUM))
4924 #if defined(_DERIVATE)
4925 double m10_limexp(d10_limexp0,d00_limexp0,(Vbci/HSUM))
4926 #endif
4927 #if defined(_DERIVATE)
4928 HSa_Vb_ci=(Vbci_Vb_ci/HSUM)*d10_limexp0;
4929 HSa_Vtnode_GND=(-Vbci*HSUM_Vtnode_GND/HSUM/HSUM)*d10_limexp0;
4930 #endif
4931 HSa=d00_limexp0;
4932 }
4933 {
4934 double m00_limexp(d00_limexp0,(Vsci/HSUM))
4935 #if defined(_DERIVATE)
4936 double m10_limexp(d10_limexp0,d00_limexp0,(Vsci/HSUM))
4937 #endif
4938 #if defined(_DERIVATE)
4939 HSb_Vs_ci=(Vsci_Vs_ci/HSUM)*d10_limexp0;
4940 HSb_Vtnode_GND=(-Vsci*HSUM_Vtnode_GND/HSUM/HSUM)*d10_limexp0;
4941 #endif
4942 HSb=d00_limexp0;
4943 }
4944 #if defined(_DERIVATE)
4945 HSI_Tsu_Vtnode_GND=((itss_t_Vtnode_GND*(HSa-HSb))+(itss_t*(HSa_Vtnode_GND-HSb_Vtnode_GND)));
4946 HSI_Tsu_Vb_ci=(itss_t*HSa_Vb_ci);
4947 HSI_Tsu_Vs_ci=(itss_t*(-HSb_Vs_ci));
4948 #endif
4949 HSI_Tsu=(itss_t*(HSa-HSb));
4950 }
4951 else
4952 {
4953 #if defined(_DERIVATE)
4954 HSI_Tsu_Vtnode_GND=0.0;
4955 HSI_Tsu_Vb_ci=0.0;
4956 HSI_Tsu_Vs_ci=0.0;
4957 #endif
4958 HSI_Tsu=0.0;
4959 }
4960 #if defined(_DERIVATE)
4961 DIOY_Vs_ci=(Vsci_Vs_ci/(msc*VT));
4962 DIOY_Vbi_ci=0.0;
4963 DIOY_Vbi_ei=0.0;
4964 DIOY_Vtnode_GND=(-Vsci*(msc*VT_Vtnode_GND)/(msc*VT)/(msc*VT));
4965 #endif
4966 DIOY=(Vsci/(msc*VT));
4967 if
4968 ((iscs>0.0))
4969 {
4970 if
4971 ((DIOY>80))
4972 {
4973 #if defined(_DERIVATE)
4974 le_Vs_ci=DIOY_Vs_ci;
4975 le_Vbi_ci=DIOY_Vbi_ci;
4976 le_Vbi_ei=DIOY_Vbi_ei;
4977 le_Vtnode_GND=DIOY_Vtnode_GND;
4978 #endif
4979 le=(1+(DIOY-80));
4980 #if defined(_DERIVATE)
4981 DIOY_Vs_ci=0.0;
4982 DIOY_Vbi_ci=0.0;
4983 DIOY_Vbi_ei=0.0;
4984 DIOY_Vtnode_GND=0.0;
4985 #endif
4986 DIOY=80;
4987 }
4988 else
4989 {
4990 #if defined(_DERIVATE)
4991 le_Vs_ci=0.0;
4992 le_Vbi_ci=0.0;
4993 le_Vbi_ei=0.0;
4994 le_Vtnode_GND=0.0;
4995 #endif
4996 le=1;
4997 }
4998 {
4999 double m00_limexp(d00_limexp0,DIOY)
5000 #if defined(_DERIVATE)
5001 double m10_limexp(d10_limexp0,d00_limexp0,DIOY)
5002 #endif
5003 #if defined(_DERIVATE)
5004 le_Vs_ci=((le_Vs_ci*d00_limexp0)+(le*DIOY_Vs_ci*d10_limexp0));
5005 le_Vbi_ci=((le_Vbi_ci*d00_limexp0)+(le*DIOY_Vbi_ci*d10_limexp0));
5006 le_Vbi_ei=((le_Vbi_ei*d00_limexp0)+(le*DIOY_Vbi_ei*d10_limexp0));
5007 le_Vtnode_GND=((le_Vtnode_GND*d00_limexp0)+(le*DIOY_Vtnode_GND*d10_limexp0));
5008 #endif
5009 le=(le*d00_limexp0);
5010 }
5011 #if defined(_DERIVATE)
5012 ijsc_Vtnode_GND=((iscs_t_Vtnode_GND*(le-1.0))+(iscs_t*le_Vtnode_GND));
5013 ijsc_Vs_ci=(iscs_t*le_Vs_ci);
5014 ijsc_Vbi_ci=(iscs_t*le_Vbi_ci);
5015 ijsc_Vbi_ei=(iscs_t*le_Vbi_ei);
5016 #endif
5017 ijsc=(iscs_t*(le-1.0));
5018 if
5019 ((DIOY<=(-14.0)))
5020 {
5021 #if defined(_DERIVATE)
5022 ijsc_Vtnode_GND=(-iscs_t_Vtnode_GND);
5023 ijsc_Vs_ci=0.0;
5024 ijsc_Vbi_ci=0.0;
5025 ijsc_Vbi_ei=0.0;
5026 #endif
5027 ijsc=(-iscs_t);
5028 }
5029 }
5030 else
5031 {
5032 #if defined(_DERIVATE)
5033 ijsc_Vtnode_GND=0.0;
5034 ijsc_Vs_ci=0.0;
5035 ijsc_Vbi_ci=0.0;
5036 ijsc_Vbi_ei=0.0;
5037 #endif
5038 ijsc=0.0;
5039 }
5040 #ifdef _DYNAMIC
5041 if
5042 ((vpts<1.0e2))
5043 {
5044 #ifdef _DYNAMIC
5045 if
5046 ((cjs0_t>0.0))
5047 {
5048 #if defined(_DYNAMIC)
5049 zr=(zs/4.0);
5050 #endif
5051 #if defined(_DYNAMIC)
5052 #if defined(_DERIVATE)
5053 vp_Vtnode_GND=(-vds_t_Vtnode_GND);
5054 #endif
5055 vp=(vpts-vds_t);
5056 #endif
5057 #if defined(_DYNAMIC)
5058 {
5059 double m00_logE(d00_logE0,2.4)
5060 double m00_exp(d00_exp1,((-d00_logE0)/zs))
5061 #if defined(_DERIVATE)
5062 vf_Vtnode_GND=vds_t_Vtnode_GND*(1.0-d00_exp1);
5063 #endif
5064 vf=(vds_t*(1.0-d00_exp1));
5065 }
5066 #endif
5067 #if defined(_DYNAMIC)
5068 #if defined(_DERIVATE)
5069 cmax_Vtnode_GND=(2.4*cjs0_t_Vtnode_GND);
5070 #endif
5071 cmax=(2.4*cjs0_t);
5072 #endif
5073 #if defined(_DYNAMIC)
5074 {
5075 double m00_logE(d00_logE0,(vds_t/vpts))
5076 double m00_exp(d00_exp1,((zs-zr)*d00_logE0))
5077 #if defined(_DERIVATE)
5078 double m10_logE(d10_logE0,d00_logE0,(vds_t/vpts))
5079 #define d10_exp1 d00_exp1
5080 #endif
5081 #if defined(_DERIVATE)
5082 cr_Vtnode_GND=((cjs0_t_Vtnode_GND*d00_exp1)+(cjs0_t*((zs-zr)*(vds_t_Vtnode_GND/vpts)*d10_logE0)*d10_exp1));
5083 #endif
5084 cr=(cjs0_t*d00_exp1);
5085 }
5086 #endif
5087 #if defined(_DYNAMIC)
5088 #if defined(_DERIVATE)
5089 a_Vci_ei=0.0;
5090 a_Vbi_ei=0.0;
5091 a_Vbi_ci=0.0;
5092 a_Vb_ci=0.0;
5093 a_Vtnode_GND=VT_Vtnode_GND;
5094 #endif
5095 a=VT;
5096 #endif
5097 #if defined(_DYNAMIC)
5098 #if defined(_DERIVATE)
5099 ve_Vs_ci=((-Vsci_Vs_ci)/a);
5100 ve_Vci_ei=(-(vf-Vsci)*a_Vci_ei/a/a);
5101 ve_Vbi_ei=(-(vf-Vsci)*a_Vbi_ei/a/a);
5102 ve_Vbi_ci=(-(vf-Vsci)*a_Vbi_ci/a/a);
5103 ve_Vtnode_GND=((vf_Vtnode_GND*a-(vf-Vsci)*a_Vtnode_GND)/a/a);
5104 ve_Vb_ci=(-(vf-Vsci)*a_Vb_ci/a/a);
5105 #endif
5106 ve=((vf-Vsci)/a);
5107 #endif
5108 #ifdef _DYNAMIC
5109 if
5110 ((ve<=80.0))
5111 {
5112 #if defined(_DYNAMIC)
5113 {
5114 double m00_exp(d00_exp0,ve)
5115 #if defined(_DERIVATE)
5116 #define d10_exp0 d00_exp0
5117 #endif
5118 #if defined(_DERIVATE)
5119 ex1_Vs_ci=ve_Vs_ci*d10_exp0;
5120 ex1_Vci_ei=ve_Vci_ei*d10_exp0;
5121 ex1_Vbi_ei=ve_Vbi_ei*d10_exp0;
5122 ex1_Vbi_ci=ve_Vbi_ci*d10_exp0;
5123 ex1_Vtnode_GND=ve_Vtnode_GND*d10_exp0;
5124 ex1_Vb_ci=ve_Vb_ci*d10_exp0;
5125 #endif
5126 ex1=d00_exp0;
5127 }
5128 #endif
5129 #if defined(_DYNAMIC)
5130 #if defined(_DERIVATE)
5131 ee1_Vs_ci=ex1_Vs_ci;
5132 ee1_Vci_ei=ex1_Vci_ei;
5133 ee1_Vbi_ei=ex1_Vbi_ei;
5134 ee1_Vbi_ci=ex1_Vbi_ci;
5135 ee1_Vtnode_GND=ex1_Vtnode_GND;
5136 ee1_Vb_ci=ex1_Vb_ci;
5137 #endif
5138 ee1=(1.0+ex1);
5139 #endif
5140 #if defined(_DYNAMIC)
5141 {
5142 double m00_logE(d00_logE0,ee1)
5143 #if defined(_DERIVATE)
5144 double m10_logE(d10_logE0,d00_logE0,ee1)
5145 #endif
5146 #if defined(_DERIVATE)
5147 vj1_Vci_ei=(-((a_Vci_ei*d00_logE0)+(a*ee1_Vci_ei*d10_logE0)));
5148 vj1_Vbi_ei=(-((a_Vbi_ei*d00_logE0)+(a*ee1_Vbi_ei*d10_logE0)));
5149 vj1_Vs_ci=(-(a*ee1_Vs_ci*d10_logE0));
5150 vj1_Vbi_ci=(-((a_Vbi_ci*d00_logE0)+(a*ee1_Vbi_ci*d10_logE0)));
5151 vj1_Vtnode_GND=(vf_Vtnode_GND-((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
5152 vj1_Vb_ci=(-((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0)));
5153 #endif
5154 vj1=(vf-(a*d00_logE0));
5155 }
5156 #endif
5157 }
5158 else
5159 {
5160 #if defined(_DYNAMIC)
5161 #if defined(_DERIVATE)
5162 vj1_Vci_ei=0.0;
5163 vj1_Vbi_ei=0.0;
5164 vj1_Vs_ci=Vsci_Vs_ci;
5165 vj1_Vbi_ci=0.0;
5166 vj1_Vtnode_GND=0.0;
5167 vj1_Vb_ci=0.0;
5168 #endif
5169 vj1=Vsci;
5170 #endif
5171 }
5172 #endif /* if (...) */
5173 #if defined(_DYNAMIC)
5174 #if defined(_DERIVATE)
5175 a_Vci_ei=0.0;
5176 a_Vbi_ei=0.0;
5177 a_Vbi_ci=0.0;
5178 a_Vb_ci=0.0;
5179 a_Vtnode_GND=((0.1*vp_Vtnode_GND)+(4.0*VT_Vtnode_GND));
5180 #endif
5181 a=((0.1*vp)+(4.0*VT));
5182 #endif
5183 #if defined(_DYNAMIC)
5184 #if defined(_DERIVATE)
5185 vr_Vci_ei=((vj1_Vci_ei*a-(vp+vj1)*a_Vci_ei)/a/a);
5186 vr_Vbi_ei=((vj1_Vbi_ei*a-(vp+vj1)*a_Vbi_ei)/a/a);
5187 vr_Vs_ci=(vj1_Vs_ci/a);
5188 vr_Vbi_ci=((vj1_Vbi_ci*a-(vp+vj1)*a_Vbi_ci)/a/a);
5189 vr_Vtnode_GND=(((vp_Vtnode_GND+vj1_Vtnode_GND)*a-(vp+vj1)*a_Vtnode_GND)/a/a);
5190 vr_Vb_ci=((vj1_Vb_ci*a-(vp+vj1)*a_Vb_ci)/a/a);
5191 #endif
5192 vr=((vp+vj1)/a);
5193 #endif
5194 #ifdef _DYNAMIC
5195 if
5196 ((vr<=80.0))
5197 {
5198 #if defined(_DYNAMIC)
5199 {
5200 double m00_exp(d00_exp0,vr)
5201 #if defined(_DERIVATE)
5202 #define d10_exp0 d00_exp0
5203 #endif
5204 #if defined(_DERIVATE)
5205 ex1_Vs_ci=vr_Vs_ci*d10_exp0;
5206 ex1_Vci_ei=vr_Vci_ei*d10_exp0;
5207 ex1_Vbi_ei=vr_Vbi_ei*d10_exp0;
5208 ex1_Vbi_ci=vr_Vbi_ci*d10_exp0;
5209 ex1_Vtnode_GND=vr_Vtnode_GND*d10_exp0;
5210 ex1_Vb_ci=vr_Vb_ci*d10_exp0;
5211 #endif
5212 ex1=d00_exp0;
5213 }
5214 #endif
5215 #if defined(_DYNAMIC)
5216 #if defined(_DERIVATE)
5217 ee1_Vs_ci=ex1_Vs_ci;
5218 ee1_Vci_ei=ex1_Vci_ei;
5219 ee1_Vbi_ei=ex1_Vbi_ei;
5220 ee1_Vbi_ci=ex1_Vbi_ci;
5221 ee1_Vtnode_GND=ex1_Vtnode_GND;
5222 ee1_Vb_ci=ex1_Vb_ci;
5223 #endif
5224 ee1=(1.0+ex1);
5225 #endif
5226 #if defined(_DYNAMIC)
5227 {
5228 double m00_logE(d00_logE0,ee1)
5229 #if defined(_DERIVATE)
5230 double m10_logE(d10_logE0,d00_logE0,ee1)
5231 #endif
5232 #if defined(_DERIVATE)
5233 vj2_Vci_ei=((a_Vci_ei*d00_logE0)+(a*ee1_Vci_ei*d10_logE0));
5234 vj2_Vbi_ei=((a_Vbi_ei*d00_logE0)+(a*ee1_Vbi_ei*d10_logE0));
5235 vj2_Vs_ci=(a*ee1_Vs_ci*d10_logE0);
5236 vj2_Vbi_ci=((a_Vbi_ci*d00_logE0)+(a*ee1_Vbi_ci*d10_logE0));
5237 vj2_Vtnode_GND=((-vp_Vtnode_GND)+((a_Vtnode_GND*d00_logE0)+(a*ee1_Vtnode_GND*d10_logE0)));
5238 vj2_Vb_ci=((a_Vb_ci*d00_logE0)+(a*ee1_Vb_ci*d10_logE0));
5239 #endif
5240 vj2=((-vp)+(a*d00_logE0));
5241 }
5242 #endif
5243 }
5244 else
5245 {
5246 #if defined(_DYNAMIC)
5247 #if defined(_DERIVATE)
5248 vj2_Vci_ei=vj1_Vci_ei;
5249 vj2_Vbi_ei=vj1_Vbi_ei;
5250 vj2_Vs_ci=vj1_Vs_ci;
5251 vj2_Vbi_ci=vj1_Vbi_ci;
5252 vj2_Vtnode_GND=vj1_Vtnode_GND;
5253 vj2_Vb_ci=vj1_Vb_ci;
5254 #endif
5255 vj2=vj1;
5256 #endif
5257 }
5258 #endif /* if (...) */
5259 #if defined(_DYNAMIC)
5260 #if defined(_DERIVATE)
5261 vj4_Vs_ci=(Vsci_Vs_ci-vj1_Vs_ci);
5262 vj4_Vci_ei=(-vj1_Vci_ei);
5263 vj4_Vbi_ei=(-vj1_Vbi_ei);
5264 vj4_Vbi_ci=(-vj1_Vbi_ci);
5265 vj4_Vb_ci=(-vj1_Vb_ci);
5266 vj4_Vtnode_GND=(-vj1_Vtnode_GND);
5267 #endif
5268 vj4=(Vsci-vj1);
5269 #endif
5270 #if defined(_DYNAMIC)
5271 ez=(1.0-zs);
5272 #endif
5273 #if defined(_DYNAMIC)
5274 ezr=(1.0-zr);
5275 #endif
5276 #if defined(_DYNAMIC)
5277 {
5278 double m00_logE(d00_logE0,(1.0-(vj1/vds_t)))
5279 #if defined(_DERIVATE)
5280 double m10_logE(d10_logE0,d00_logE0,(1.0-(vj1/vds_t)))
5281 #endif
5282 #if defined(_DERIVATE)
5283 vdj1_Vci_ei=(-(vj1_Vci_ei/vds_t))*d10_logE0;
5284 vdj1_Vbi_ei=(-(vj1_Vbi_ei/vds_t))*d10_logE0;
5285 vdj1_Vs_ci=(-(vj1_Vs_ci/vds_t))*d10_logE0;
5286 vdj1_Vbi_ci=(-(vj1_Vbi_ci/vds_t))*d10_logE0;
5287 vdj1_Vtnode_GND=(-((vj1_Vtnode_GND*vds_t-vj1*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0;
5288 vdj1_Vb_ci=(-(vj1_Vb_ci/vds_t))*d10_logE0;
5289 #endif
5290 vdj1=d00_logE0;
5291 }
5292 #endif
5293 #if defined(_DYNAMIC)
5294 {
5295 double m00_logE(d00_logE0,(1.0-(vj2/vds_t)))
5296 #if defined(_DERIVATE)
5297 double m10_logE(d10_logE0,d00_logE0,(1.0-(vj2/vds_t)))
5298 #endif
5299 #if defined(_DERIVATE)
5300 vdj2_Vci_ei=(-(vj2_Vci_ei/vds_t))*d10_logE0;
5301 vdj2_Vbi_ei=(-(vj2_Vbi_ei/vds_t))*d10_logE0;
5302 vdj2_Vs_ci=(-(vj2_Vs_ci/vds_t))*d10_logE0;
5303 vdj2_Vbi_ci=(-(vj2_Vbi_ci/vds_t))*d10_logE0;
5304 vdj2_Vtnode_GND=(-((vj2_Vtnode_GND*vds_t-vj2*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0;
5305 vdj2_Vb_ci=(-(vj2_Vb_ci/vds_t))*d10_logE0;
5306 #endif
5307 vdj2=d00_logE0;
5308 }
5309 #endif
5310 #if defined(_DYNAMIC)
5311 {
5312 double m00_exp(d00_exp0,(vdj2*ez))
5313 #if defined(_DERIVATE)
5314 #define d10_exp0 d00_exp0
5315 #endif
5316 #if defined(_DERIVATE)
5317 qj1_Vci_ei=((cjs0_t*(-vdj2_Vci_ei*ez*d10_exp0))/ez);
5318 qj1_Vbi_ei=((cjs0_t*(-vdj2_Vbi_ei*ez*d10_exp0))/ez);
5319 qj1_Vs_ci=((cjs0_t*(-vdj2_Vs_ci*ez*d10_exp0))/ez);
5320 qj1_Vbi_ci=((cjs0_t*(-vdj2_Vbi_ci*ez*d10_exp0))/ez);
5321 qj1_Vtnode_GND=(((cjs0_t_Vtnode_GND*(1.0-d00_exp0))+(cjs0_t*(-vdj2_Vtnode_GND*ez*d10_exp0)))/ez);
5322 qj1_Vb_ci=((cjs0_t*(-vdj2_Vb_ci*ez*d10_exp0))/ez);
5323 #endif
5324 qj1=((cjs0_t*(1.0-d00_exp0))/ez);
5325 }
5326 #endif
5327 #if defined(_DYNAMIC)
5328 {
5329 double m00_exp(d00_exp0,(vdj1*ezr))
5330 #if defined(_DERIVATE)
5331 #define d10_exp0 d00_exp0
5332 #endif
5333 #if defined(_DERIVATE)
5334 qj2_Vci_ei=((cr*(-vdj1_Vci_ei*ezr*d10_exp0))/ezr);
5335 qj2_Vbi_ei=((cr*(-vdj1_Vbi_ei*ezr*d10_exp0))/ezr);
5336 qj2_Vs_ci=((cr*(-vdj1_Vs_ci*ezr*d10_exp0))/ezr);
5337 qj2_Vbi_ci=((cr*(-vdj1_Vbi_ci*ezr*d10_exp0))/ezr);
5338 qj2_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj1_Vtnode_GND*ezr*d10_exp0)))/ezr);
5339 qj2_Vb_ci=((cr*(-vdj1_Vb_ci*ezr*d10_exp0))/ezr);
5340 #endif
5341 qj2=((cr*(1.0-d00_exp0))/ezr);
5342 }
5343 #endif
5344 #if defined(_DYNAMIC)
5345 {
5346 double m00_exp(d00_exp0,(vdj2*ezr))
5347 #if defined(_DERIVATE)
5348 #define d10_exp0 d00_exp0
5349 #endif
5350 #if defined(_DERIVATE)
5351 qj3_Vci_ei=((cr*(-vdj2_Vci_ei*ezr*d10_exp0))/ezr);
5352 qj3_Vbi_ei=((cr*(-vdj2_Vbi_ei*ezr*d10_exp0))/ezr);
5353 qj3_Vs_ci=((cr*(-vdj2_Vs_ci*ezr*d10_exp0))/ezr);
5354 qj3_Vbi_ci=((cr*(-vdj2_Vbi_ci*ezr*d10_exp0))/ezr);
5355 qj3_Vtnode_GND=(((cr_Vtnode_GND*(1.0-d00_exp0))+(cr*(-vdj2_Vtnode_GND*ezr*d10_exp0)))/ezr);
5356 qj3_Vb_ci=((cr*(-vdj2_Vb_ci*ezr*d10_exp0))/ezr);
5357 #endif
5358 qj3=((cr*(1.0-d00_exp0))/ezr);
5359 }
5360 #endif
5361 #if defined(_DYNAMIC)
5362 #if defined(_DERIVATE)
5363 qjs_Vci_ei=(((qj1_Vci_ei+qj2_Vci_ei)-qj3_Vci_ei)*vds_t+(cmax*vj4_Vci_ei));
5364 qjs_Vbi_ei=(((qj1_Vbi_ei+qj2_Vbi_ei)-qj3_Vbi_ei)*vds_t+(cmax*vj4_Vbi_ei));
5365 qjs_Vs_ci=(((qj1_Vs_ci+qj2_Vs_ci)-qj3_Vs_ci)*vds_t+(cmax*vj4_Vs_ci));
5366 qjs_Vbi_ci=(((qj1_Vbi_ci+qj2_Vbi_ci)-qj3_Vbi_ci)*vds_t+(cmax*vj4_Vbi_ci));
5367 qjs_Vtnode_GND=(((((qj1_Vtnode_GND+qj2_Vtnode_GND)-qj3_Vtnode_GND)*vds_t)+(((qj1+qj2)-qj3)*vds_t_Vtnode_GND))+((cmax_Vtnode_GND*vj4)+(cmax*vj4_Vtnode_GND)));
5368 qjs_Vb_ci=(((qj1_Vb_ci+qj2_Vb_ci)-qj3_Vb_ci)*vds_t+(cmax*vj4_Vb_ci));
5369 #endif
5370 qjs=((((qj1+qj2)-qj3)*vds_t)+(cmax*vj4));
5371 #endif
5372 }
5373 else
5374 {
5375 #if defined(_DYNAMIC)
5376 #if defined(_DERIVATE)
5377 qjs_Vci_ei=0.0;
5378 qjs_Vbi_ei=0.0;
5379 qjs_Vs_ci=0.0;
5380 qjs_Vbi_ci=0.0;
5381 qjs_Vtnode_GND=0.0;
5382 qjs_Vb_ci=0.0;
5383 #endif
5384 qjs=0.0;
5385 #endif
5386 }
5387 #endif /* if (...) */
5388 }
5389 else
5390 {
5391 #ifdef _DYNAMIC
5392 if
5393 ((cjs0_t>0.0))
5394 {
5395 #if defined(_DYNAMIC)
5396 {
5397 double m00_logE(d00_logE0,2.4)
5398 double m00_exp(d00_exp1,((-d00_logE0)/zs))
5399 #if defined(_DERIVATE)
5400 vf_Vtnode_GND=vds_t_Vtnode_GND*(1.0-d00_exp1);
5401 #endif
5402 vf=(vds_t*(1.0-d00_exp1));
5403 }
5404 #endif
5405 #if defined(_DYNAMIC)
5406 #if defined(_DERIVATEFORDDX)
5407 #if defined(_DERIVATE)
5408 xvf_Vs_ci=((-Vsci_Vs_ci)/VT);
5409 #endif
5410 xvf_Vbi_ei=0.0;
5411 #if defined(_DERIVATE)
5412  xvf_Vbi_ei_Vs_ci=0.0;
5413  xvf_Vbi_ei_Vbi_ei=0.0;
5414  xvf_Vbi_ei_Vbi_ci=0.0;
5415  xvf_Vbi_ei_Vtnode_GND=0.0;
5416  xvf_Vbi_ei_Vb_ci=0.0;
5417 #endif
5418 xvf_Vbi_ci=0.0;
5419 #if defined(_DERIVATE)
5420  xvf_Vbi_ci_Vs_ci=0.0;
5421  xvf_Vbi_ci_Vbi_ei=0.0;
5422  xvf_Vbi_ci_Vbi_ci=0.0;
5423  xvf_Vbi_ci_Vtnode_GND=0.0;
5424  xvf_Vbi_ci_Vb_ci=0.0;
5425 #endif
5426 #if defined(_DERIVATE)
5427 xvf_Vtnode_GND=((vf_Vtnode_GND*VT-(vf-Vsci)*VT_Vtnode_GND)/VT/VT);
5428 #endif
5429 #if defined(_DERIVATE)
5430 xvf_Vb_ci=0.0;
5431 #endif
5432 #endif
5433 xvf=((vf-Vsci)/VT);
5434 #endif
5435 #if defined(_DYNAMIC)
5436 {
5437 double m00_sqrt(d00_sqrt0,((xvf*xvf)+1.921812))
5438 #if defined(_DERIVATEFORDDX)
5439 double m10_sqrt(d10_sqrt0,d00_sqrt0,((xvf*xvf)+1.921812))
5440 #endif
5441 #if defined(_DERIVATEFORDDX)
5442 #if defined(_DERIVATE)
5443 xvf2_Vs_ci=((xvf_Vs_ci*xvf)+(xvf*xvf_Vs_ci))*d10_sqrt0;
5444 #endif
5445 xvf2_Vbi_ei=((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei))*d10_sqrt0;
5446 #if defined(_DERIVATE)
5447  xvf2_Vbi_ei_Vs_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vs_ci*xvf)+(xvf*xvf_Vs_ci)))*((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei))+d10_sqrt0*(+(+xvf_Vbi_ei_Vs_ci*xvf+xvf_Vbi_ei*xvf_Vs_ci+xvf_Vs_ci*xvf_Vbi_ei+xvf*xvf_Vbi_ei_Vs_ci)+0.0));
5448  xvf2_Vbi_ei_Vbi_ei=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei)))*((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei))+d10_sqrt0*(+(+xvf_Vbi_ei_Vbi_ei*xvf+xvf_Vbi_ei*xvf_Vbi_ei+xvf_Vbi_ei*xvf_Vbi_ei+xvf*xvf_Vbi_ei_Vbi_ei)+0.0));
5449  xvf2_Vbi_ei_Vbi_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci)))*((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei))+d10_sqrt0*(+(+xvf_Vbi_ei_Vbi_ci*xvf+xvf_Vbi_ei*xvf_Vbi_ci+xvf_Vbi_ci*xvf_Vbi_ei+xvf*xvf_Vbi_ei_Vbi_ci)+0.0));
5450  xvf2_Vbi_ei_Vtnode_GND=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND)))*((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei))+d10_sqrt0*(+(+xvf_Vbi_ei_Vtnode_GND*xvf+xvf_Vbi_ei*xvf_Vtnode_GND+xvf_Vtnode_GND*xvf_Vbi_ei+xvf*xvf_Vbi_ei_Vtnode_GND)+0.0));
5451  xvf2_Vbi_ei_Vb_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci)))*((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei))+d10_sqrt0*(+(+xvf_Vbi_ei_Vb_ci*xvf+xvf_Vbi_ei*xvf_Vb_ci+xvf_Vb_ci*xvf_Vbi_ei+xvf*xvf_Vbi_ei_Vb_ci)+0.0));
5452 #endif
5453 xvf2_Vbi_ci=((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))*d10_sqrt0;
5454 #if defined(_DERIVATE)
5455  xvf2_Vbi_ci_Vs_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vs_ci*xvf)+(xvf*xvf_Vs_ci)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vs_ci*xvf+xvf_Vbi_ci*xvf_Vs_ci+xvf_Vs_ci*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vs_ci)+0.0));
5456  xvf2_Vbi_ci_Vbi_ei=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vbi_ei*xvf)+(xvf*xvf_Vbi_ei)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vbi_ei*xvf+xvf_Vbi_ci*xvf_Vbi_ei+xvf_Vbi_ei*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vbi_ei)+0.0));
5457  xvf2_Vbi_ci_Vbi_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vbi_ci*xvf+xvf_Vbi_ci*xvf_Vbi_ci+xvf_Vbi_ci*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vbi_ci)+0.0));
5458  xvf2_Vbi_ci_Vtnode_GND=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vtnode_GND*xvf+xvf_Vbi_ci*xvf_Vtnode_GND+xvf_Vtnode_GND*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vtnode_GND)+0.0));
5459  xvf2_Vbi_ci_Vb_ci=(m20_sqrt(((xvf*xvf)+1.921812))*(((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci)))*((xvf_Vbi_ci*xvf)+(xvf*xvf_Vbi_ci))+d10_sqrt0*(+(+xvf_Vbi_ci_Vb_ci*xvf+xvf_Vbi_ci*xvf_Vb_ci+xvf_Vb_ci*xvf_Vbi_ci+xvf*xvf_Vbi_ci_Vb_ci)+0.0));
5460 #endif
5461 #if defined(_DERIVATE)
5462 xvf2_Vtnode_GND=((xvf_Vtnode_GND*xvf)+(xvf*xvf_Vtnode_GND))*d10_sqrt0;
5463 #endif
5464 #if defined(_DERIVATE)
5465 xvf2_Vb_ci=((xvf_Vb_ci*xvf)+(xvf*xvf_Vb_ci))*d10_sqrt0;
5466 #endif
5467 #endif
5468 xvf2=d00_sqrt0;
5469 }
5470 #endif
5471 #if defined(_DYNAMIC)
5472 #if defined(_DERIVATEFORDDX)
5473 #if defined(_DERIVATE)
5474 v_j_Vs_ci=(-(VT*(xvf_Vs_ci+xvf2_Vs_ci))*0.5);
5475 #endif
5476 v_j_Vbi_ei=(-(VT*(xvf_Vbi_ei+xvf2_Vbi_ei))*0.5);
5477 #if defined(_DERIVATE)
5478  v_j_Vbi_ei_Vs_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vs_ci+xvf2_Vs_ci)+0.0*(xvf_Vbi_ei+xvf2_Vbi_ei)+VT*(+xvf_Vbi_ei_Vs_ci+xvf2_Vbi_ei_Vs_ci))*0.5+(VT*(xvf_Vbi_ei+xvf2_Vbi_ei))*0.0+((VT*(xvf_Vs_ci+xvf2_Vs_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
5479  v_j_Vbi_ei_Vbi_ei=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vbi_ei+xvf2_Vbi_ei)+0.0*(xvf_Vbi_ei+xvf2_Vbi_ei)+VT*(+xvf_Vbi_ei_Vbi_ei+xvf2_Vbi_ei_Vbi_ei))*0.5+(VT*(xvf_Vbi_ei+xvf2_Vbi_ei))*0.0+((VT*(xvf_Vbi_ei+xvf2_Vbi_ei)))*0.0+(VT*(xvf+xvf2))*0.0));
5480  v_j_Vbi_ei_Vbi_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+0.0*(xvf_Vbi_ei+xvf2_Vbi_ei)+VT*(+xvf_Vbi_ei_Vbi_ci+xvf2_Vbi_ei_Vbi_ci))*0.5+(VT*(xvf_Vbi_ei+xvf2_Vbi_ei))*0.0+((VT*(xvf_Vbi_ci+xvf2_Vbi_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
5481  v_j_Vbi_ei_Vtnode_GND=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vtnode_GND+xvf2_Vtnode_GND)+VT_Vtnode_GND*(xvf_Vbi_ei+xvf2_Vbi_ei)+VT*(+xvf_Vbi_ei_Vtnode_GND+xvf2_Vbi_ei_Vtnode_GND))*0.5+(VT*(xvf_Vbi_ei+xvf2_Vbi_ei))*0.0+(((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND))))*0.0+(VT*(xvf+xvf2))*0.0));
5482  v_j_Vbi_ei_Vb_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vb_ci+xvf2_Vb_ci)+0.0*(xvf_Vbi_ei+xvf2_Vbi_ei)+VT*(+xvf_Vbi_ei_Vb_ci+xvf2_Vbi_ei_Vb_ci))*0.5+(VT*(xvf_Vbi_ei+xvf2_Vbi_ei))*0.0+((VT*(xvf_Vb_ci+xvf2_Vb_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
5483 #endif
5484 v_j_Vbi_ci=(-(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.5);
5485 #if defined(_DERIVATE)
5486  v_j_Vbi_ci_Vs_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vs_ci+xvf2_Vs_ci)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vs_ci+xvf2_Vbi_ci_Vs_ci))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vs_ci+xvf2_Vs_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
5487  v_j_Vbi_ci_Vbi_ei=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vbi_ei+xvf2_Vbi_ei)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vbi_ei+xvf2_Vbi_ci_Vbi_ei))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vbi_ei+xvf2_Vbi_ei)))*0.0+(VT*(xvf+xvf2))*0.0));
5488  v_j_Vbi_ci_Vbi_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vbi_ci+xvf2_Vbi_ci_Vbi_ci))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vbi_ci+xvf2_Vbi_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
5489  v_j_Vbi_ci_Vtnode_GND=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vtnode_GND+xvf2_Vtnode_GND)+VT_Vtnode_GND*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vtnode_GND+xvf2_Vbi_ci_Vtnode_GND))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+(((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND))))*0.0+(VT*(xvf+xvf2))*0.0));
5490  v_j_Vbi_ci_Vb_ci=(+0.0-(+(+0.0*(xvf+xvf2)+0.0*(xvf_Vb_ci+xvf2_Vb_ci)+0.0*(xvf_Vbi_ci+xvf2_Vbi_ci)+VT*(+xvf_Vbi_ci_Vb_ci+xvf2_Vbi_ci_Vb_ci))*0.5+(VT*(xvf_Vbi_ci+xvf2_Vbi_ci))*0.0+((VT*(xvf_Vb_ci+xvf2_Vb_ci)))*0.0+(VT*(xvf+xvf2))*0.0));
5491 #endif
5492 #if defined(_DERIVATE)
5493 v_j_Vtnode_GND=(vf_Vtnode_GND-((VT_Vtnode_GND*(xvf+xvf2))+(VT*(xvf_Vtnode_GND+xvf2_Vtnode_GND)))*0.5);
5494 #endif
5495 #if defined(_DERIVATE)
5496 v_j_Vb_ci=(-(VT*(xvf_Vb_ci+xvf2_Vb_ci))*0.5);
5497 #endif
5498 #endif
5499 v_j=(vf-((VT*(xvf+xvf2))*0.5));
5500 #endif
5501 #if defined(_DYNAMIC)
5502 #if defined(_DERIVATE)
5503 x_Vtnode_GND=0.0;
5504 x_Vci_ei=0.0;
5505 #endif
5506 x=(1.0-zs);
5507 #endif
5508 #if defined(_DYNAMIC)
5509 {
5510 double m00_logE(d00_logE0,(1.0-(v_j/vds_t)))
5511 double m00_exp(d00_exp1,(x*d00_logE0))
5512 #if defined(_DERIVATEFORDDX)
5513 double m10_logE(d10_logE0,d00_logE0,(1.0-(v_j/vds_t)))
5514 #define d10_exp1 d00_exp1
5515 #endif
5516 #if defined(_DERIVATEFORDDX)
5517 #if defined(_DERIVATE)
5518 y_Vci_ei=(-x_Vci_ei*d00_logE0*d10_exp1);
5519 #endif
5520 #if defined(_DERIVATE)
5521 y_Vs_ci=(-(x*(-(v_j_Vs_ci/vds_t))*d10_logE0)*d10_exp1);
5522 #endif
5523 y_Vbi_ei=(-(x*(-(v_j_Vbi_ei/vds_t))*d10_logE0)*d10_exp1);
5524 #if defined(_DERIVATE)
5525  y_Vbi_ei_Vci_ei=(+0.0-(m20_exp((x*d00_logE0))*(x_Vci_ei*d00_logE0)*(x*(-(v_j_Vbi_ei/vds_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*0.0+x_Vci_ei*(-(v_j_Vbi_ei/vds_t))*d10_logE0+x*0.0)));
5526  y_Vbi_ei_Vs_ci=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vs_ci/vds_t))*d10_logE0))*(x*(-(v_j_Vbi_ei/vds_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vs_ci/vds_t))*d10_logE0+0.0*(-(v_j_Vbi_ei/vds_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vds_t)))*(-(v_j_Vs_ci/vds_t))*(-(v_j_Vbi_ei/vds_t))+d10_logE0*(+0.0-(v_j_Vbi_ei_Vs_ci/vds_t-(v_j_Vbi_ei*0.0+v_j_Vs_ci*0.0+v_j*0.0)/vds_t/vds_t+2*v_j*0.0*0.0/vds_t/vds_t/vds_t))))));
5527  y_Vbi_ei_Vbi_ei=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vbi_ei/vds_t))*d10_logE0))*(x*(-(v_j_Vbi_ei/vds_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vbi_ei/vds_t))*d10_logE0+0.0*(-(v_j_Vbi_ei/vds_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vds_t)))*(-(v_j_Vbi_ei/vds_t))*(-(v_j_Vbi_ei/vds_t))+d10_logE0*(+0.0-(v_j_Vbi_ei_Vbi_ei/vds_t-(v_j_Vbi_ei*0.0+v_j_Vbi_ei*0.0+v_j*0.0)/vds_t/vds_t+2*v_j*0.0*0.0/vds_t/vds_t/vds_t))))));
5528  y_Vbi_ei_Vbi_ci=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vbi_ci/vds_t))*d10_logE0))*(x*(-(v_j_Vbi_ei/vds_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vbi_ci/vds_t))*d10_logE0+0.0*(-(v_j_Vbi_ei/vds_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vds_t)))*(-(v_j_Vbi_ci/vds_t))*(-(v_j_Vbi_ei/vds_t))+d10_logE0*(+0.0-(v_j_Vbi_ei_Vbi_ci/vds_t-(v_j_Vbi_ei*0.0+v_j_Vbi_ci*0.0+v_j*0.0)/vds_t/vds_t+2*v_j*0.0*0.0/vds_t/vds_t/vds_t))))));
5529  y_Vbi_ei_Vtnode_GND=(+0.0-(m20_exp((x*d00_logE0))*(((x_Vtnode_GND*d00_logE0)+(x*(-((v_j_Vtnode_GND*vds_t-v_j*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0)))*(x*(-(v_j_Vbi_ei/vds_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-((v_j_Vtnode_GND*vds_t-v_j*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0+x_Vtnode_GND*(-(v_j_Vbi_ei/vds_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vds_t)))*(-((v_j_Vtnode_GND*vds_t-v_j*vds_t_Vtnode_GND)/vds_t/vds_t))*(-(v_j_Vbi_ei/vds_t))+d10_logE0*(+0.0-(v_j_Vbi_ei_Vtnode_GND/vds_t-(v_j_Vbi_ei*vds_t_Vtnode_GND+v_j_Vtnode_GND*0.0+v_j*0.0)/vds_t/vds_t+2*v_j*0.0*vds_t_Vtnode_GND/vds_t/vds_t/vds_t))))));
5530  y_Vbi_ei_Vb_ci=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vb_ci/vds_t))*d10_logE0))*(x*(-(v_j_Vbi_ei/vds_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vb_ci/vds_t))*d10_logE0+0.0*(-(v_j_Vbi_ei/vds_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vds_t)))*(-(v_j_Vb_ci/vds_t))*(-(v_j_Vbi_ei/vds_t))+d10_logE0*(+0.0-(v_j_Vbi_ei_Vb_ci/vds_t-(v_j_Vbi_ei*0.0+v_j_Vb_ci*0.0+v_j*0.0)/vds_t/vds_t+2*v_j*0.0*0.0/vds_t/vds_t/vds_t))))));
5531 #endif
5532 y_Vbi_ci=(-(x*(-(v_j_Vbi_ci/vds_t))*d10_logE0)*d10_exp1);
5533 #if defined(_DERIVATE)
5534  y_Vbi_ci_Vci_ei=(+0.0-(m20_exp((x*d00_logE0))*(x_Vci_ei*d00_logE0)*(x*(-(v_j_Vbi_ci/vds_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*0.0+x_Vci_ei*(-(v_j_Vbi_ci/vds_t))*d10_logE0+x*0.0)));
5535  y_Vbi_ci_Vs_ci=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vs_ci/vds_t))*d10_logE0))*(x*(-(v_j_Vbi_ci/vds_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vs_ci/vds_t))*d10_logE0+0.0*(-(v_j_Vbi_ci/vds_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vds_t)))*(-(v_j_Vs_ci/vds_t))*(-(v_j_Vbi_ci/vds_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vs_ci/vds_t-(v_j_Vbi_ci*0.0+v_j_Vs_ci*0.0+v_j*0.0)/vds_t/vds_t+2*v_j*0.0*0.0/vds_t/vds_t/vds_t))))));
5536  y_Vbi_ci_Vbi_ei=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vbi_ei/vds_t))*d10_logE0))*(x*(-(v_j_Vbi_ci/vds_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vbi_ei/vds_t))*d10_logE0+0.0*(-(v_j_Vbi_ci/vds_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vds_t)))*(-(v_j_Vbi_ei/vds_t))*(-(v_j_Vbi_ci/vds_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vbi_ei/vds_t-(v_j_Vbi_ci*0.0+v_j_Vbi_ei*0.0+v_j*0.0)/vds_t/vds_t+2*v_j*0.0*0.0/vds_t/vds_t/vds_t))))));
5537  y_Vbi_ci_Vbi_ci=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vbi_ci/vds_t))*d10_logE0))*(x*(-(v_j_Vbi_ci/vds_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vbi_ci/vds_t))*d10_logE0+0.0*(-(v_j_Vbi_ci/vds_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vds_t)))*(-(v_j_Vbi_ci/vds_t))*(-(v_j_Vbi_ci/vds_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vbi_ci/vds_t-(v_j_Vbi_ci*0.0+v_j_Vbi_ci*0.0+v_j*0.0)/vds_t/vds_t+2*v_j*0.0*0.0/vds_t/vds_t/vds_t))))));
5538  y_Vbi_ci_Vtnode_GND=(+0.0-(m20_exp((x*d00_logE0))*(((x_Vtnode_GND*d00_logE0)+(x*(-((v_j_Vtnode_GND*vds_t-v_j*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0)))*(x*(-(v_j_Vbi_ci/vds_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-((v_j_Vtnode_GND*vds_t-v_j*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0+x_Vtnode_GND*(-(v_j_Vbi_ci/vds_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vds_t)))*(-((v_j_Vtnode_GND*vds_t-v_j*vds_t_Vtnode_GND)/vds_t/vds_t))*(-(v_j_Vbi_ci/vds_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vtnode_GND/vds_t-(v_j_Vbi_ci*vds_t_Vtnode_GND+v_j_Vtnode_GND*0.0+v_j*0.0)/vds_t/vds_t+2*v_j*0.0*vds_t_Vtnode_GND/vds_t/vds_t/vds_t))))));
5539  y_Vbi_ci_Vb_ci=(+0.0-(m20_exp((x*d00_logE0))*((x*(-(v_j_Vb_ci/vds_t))*d10_logE0))*(x*(-(v_j_Vbi_ci/vds_t))*d10_logE0)+d10_exp1*(+0.0*d00_logE0+0.0*(-(v_j_Vb_ci/vds_t))*d10_logE0+0.0*(-(v_j_Vbi_ci/vds_t))*d10_logE0+x*(m20_logE((1.0-(v_j/vds_t)))*(-(v_j_Vb_ci/vds_t))*(-(v_j_Vbi_ci/vds_t))+d10_logE0*(+0.0-(v_j_Vbi_ci_Vb_ci/vds_t-(v_j_Vbi_ci*0.0+v_j_Vb_ci*0.0+v_j*0.0)/vds_t/vds_t+2*v_j*0.0*0.0/vds_t/vds_t/vds_t))))));
5540 #endif
5541 #if defined(_DERIVATE)
5542 y_Vtnode_GND=(-((x_Vtnode_GND*d00_logE0)+(x*(-((v_j_Vtnode_GND*vds_t-v_j*vds_t_Vtnode_GND)/vds_t/vds_t))*d10_logE0))*d10_exp1);
5543 #endif
5544 #if defined(_DERIVATE)
5545 y_Vb_ci=(-(x*(-(v_j_Vb_ci/vds_t))*d10_logE0)*d10_exp1);
5546 #endif
5547 #endif
5548 y=(1.0-d00_exp1);
5549 }
5550 #endif
5551 #if defined(_DYNAMIC)
5552 #if defined(_DERIVATE)
5553 qjs_Vci_ei=((((cjs0_t*vds_t)*y_Vci_ei)*x-((cjs0_t*vds_t)*y)*x_Vci_ei)/x/x);
5554 qjs_Vbi_ei=((((cjs0_t*vds_t)*y_Vbi_ei)/x)+((2.4*cjs0_t)*(-v_j_Vbi_ei)));
5555 qjs_Vs_ci=((((cjs0_t*vds_t)*y_Vs_ci)/x)+((2.4*cjs0_t)*(Vsci_Vs_ci-v_j_Vs_ci)));
5556 qjs_Vbi_ci=((((cjs0_t*vds_t)*y_Vbi_ci)/x)+((2.4*cjs0_t)*(-v_j_Vbi_ci)));
5557 qjs_Vtnode_GND=(((((((cjs0_t_Vtnode_GND*vds_t)+(cjs0_t*vds_t_Vtnode_GND))*y)+((cjs0_t*vds_t)*y_Vtnode_GND))*x-((cjs0_t*vds_t)*y)*x_Vtnode_GND)/x/x)+(((2.4*cjs0_t_Vtnode_GND)*(Vsci-v_j))+((2.4*cjs0_t)*(-v_j_Vtnode_GND))));
5558 qjs_Vb_ci=((((cjs0_t*vds_t)*y_Vb_ci)/x)+((2.4*cjs0_t)*(-v_j_Vb_ci)));
5559 #endif
5560 qjs=((((cjs0_t*vds_t)*y)/x)+((2.4*cjs0_t)*(Vsci-v_j)));
5561 #endif
5562 }
5563 else
5564 {
5565 #if defined(_DYNAMIC)
5566 #if defined(_DERIVATE)
5567 qjs_Vci_ei=0.0;
5568 qjs_Vbi_ei=0.0;
5569 qjs_Vs_ci=0.0;
5570 qjs_Vbi_ci=0.0;
5571 qjs_Vtnode_GND=0.0;
5572 qjs_Vb_ci=0.0;
5573 #endif
5574 qjs=0.0;
5575 #endif
5576 }
5577 #endif /* if (...) */
5578 }
5579 #endif /* if (...) */
5580 if
5581 (((flsh==1)&&(rth>=0.001)))
5582 {
5583 #if defined(_DERIVATE)
5584 pterm_Vci_c=0.0;
5585 pterm_Vei_e=0.0;
5586 pterm_Vb_bi=0.0;
5587 pterm_Vs_ci=0.0;
5588 pterm_Vtnode_GND=(it_Vtnode_GND*Vciei+((iavl_Vtnode_GND*(vdci_t-Vbici))+(iavl*vdci_t_Vtnode_GND)));
5589 pterm_Vbi_ei=(it_Vbi_ei*Vciei+iavl_Vbi_ei*(vdci_t-Vbici));
5590 pterm_Vbi_ci=(it_Vbi_ci*Vciei+((iavl_Vbi_ci*(vdci_t-Vbici))+(iavl*(-Vbici_Vbi_ci))));
5591 pterm_Vb_ci=(it_Vb_ci*Vciei+iavl_Vb_ci*(vdci_t-Vbici));
5592 pterm_Vci_ei=(((it_Vci_ei*Vciei)+(it*Vciei_Vci_ei))+iavl_Vci_ei*(vdci_t-Vbici));
5593 #endif
5594 pterm=((it*Vciei)+(iavl*(vdci_t-Vbici)));
5595 }
5596 else
5597 {
5598 if
5599 (((flsh==2)&&(rth>=0.001)))
5600 {
5601 #if defined(_DERIVATE)
5602 pterm_Vci_c=0.0;
5603 pterm_Vei_e=0.0;
5604 pterm_Vb_bi=0.0;
5605 pterm_Vs_ci=((ijsc_Vs_ci*Vsci)+(ijsc*Vsci_Vs_ci));
5606 pterm_Vtnode_GND=(((((Vciei*it_Vtnode_GND)+((vdci_t_Vtnode_GND*iavl)+((vdci_t-Vbici)*iavl_Vtnode_GND)))+ijbe_Vtnode_GND*Vbiei)+ijbc_Vtnode_GND*Vbici)+ijsc_Vtnode_GND*Vsci);
5607 pterm_Vbi_ei=(((((Vciei*it_Vbi_ei)+((vdci_t-Vbici)*iavl_Vbi_ei))+((ijbe_Vbi_ei*Vbiei)+(ijbe*Vbiei_Vbi_ei)))+ijbc_Vbi_ei*Vbici)+ijsc_Vbi_ei*Vsci);
5608 pterm_Vbi_ci=((((Vciei*it_Vbi_ci)+(((-Vbici_Vbi_ci)*iavl)+((vdci_t-Vbici)*iavl_Vbi_ci)))+((ijbc_Vbi_ci*Vbici)+(ijbc*Vbici_Vbi_ci)))+ijsc_Vbi_ci*Vsci);
5609 pterm_Vb_ci=((Vciei*it_Vb_ci)+((vdci_t-Vbici)*iavl_Vb_ci));
5610 pterm_Vci_ei=(((Vciei_Vci_ei*it)+(Vciei*it_Vci_ei))+((vdci_t-Vbici)*iavl_Vci_ei));
5611 #endif
5612 pterm=(((((Vciei*it)+((vdci_t-Vbici)*iavl))+(ijbe*Vbiei))+(ijbc*Vbici))+(ijsc*Vsci));
5613 if
5614 ((rb>=0.001))
5615 {
5616 #if defined(_DERIVATE)
5617 pterm_Vci_c=0.0;
5618 pterm_Vei_e=0.0;
5619 pterm_Vb_bi=(pterm_Vb_bi+(((Vbbi_Vb_bi*Vbbi)+(Vbbi*Vbbi_Vb_bi))/rb));
5620 pterm_Vs_ci=pterm_Vs_ci;
5621 pterm_Vtnode_GND=(pterm_Vtnode_GND+(-(Vbbi*Vbbi)*rb_Vtnode_GND/rb/rb));
5622 pterm_Vbi_ei=(pterm_Vbi_ei+(-(Vbbi*Vbbi)*rb_Vbi_ei/rb/rb));
5623 pterm_Vbi_ci=(pterm_Vbi_ci+(-(Vbbi*Vbbi)*rb_Vbi_ci/rb/rb));
5624 pterm_Vb_ci=(pterm_Vb_ci+(-(Vbbi*Vbbi)*rb_Vb_ci/rb/rb));
5625 pterm_Vci_ei=(pterm_Vci_ei+(-(Vbbi*Vbbi)*rb_Vci_ei/rb/rb));
5626 #endif
5627 pterm=(pterm+((Vbbi*Vbbi)/rb));
5628 }
5629 if
5630 ((re_t>=0.001))
5631 {
5632 #if defined(_DERIVATE)
5633 pterm_Vci_c=0.0;
5634 pterm_Vei_e=(pterm_Vei_e+(((Veie_Vei_e*Veie)+(Veie*Veie_Vei_e))/re_t));
5635 pterm_Vb_bi=pterm_Vb_bi;
5636 pterm_Vs_ci=pterm_Vs_ci;
5637 pterm_Vtnode_GND=(pterm_Vtnode_GND+(-(Veie*Veie)*re_t_Vtnode_GND/re_t/re_t));
5638 pterm_Vbi_ei=pterm_Vbi_ei;
5639 pterm_Vbi_ci=pterm_Vbi_ci;
5640 pterm_Vb_ci=pterm_Vb_ci;
5641 pterm_Vci_ei=pterm_Vci_ei;
5642 #endif
5643 pterm=(pterm+((Veie*Veie)/re_t));
5644 }
5645 if
5646 ((rcx_t>=0.001))
5647 {
5648 #if defined(_DERIVATE)
5649 pterm_Vci_c=(pterm_Vci_c+(((Vcic_Vci_c*Vcic)+(Vcic*Vcic_Vci_c))/rcx_t));
5650 pterm_Vei_e=pterm_Vei_e;
5651 pterm_Vb_bi=pterm_Vb_bi;
5652 pterm_Vs_ci=pterm_Vs_ci;
5653 pterm_Vtnode_GND=(pterm_Vtnode_GND+(-(Vcic*Vcic)*rcx_t_Vtnode_GND/rcx_t/rcx_t));
5654 pterm_Vbi_ei=pterm_Vbi_ei;
5655 pterm_Vbi_ci=pterm_Vbi_ci;
5656 pterm_Vb_ci=pterm_Vb_ci;
5657 pterm_Vci_ei=pterm_Vci_ei;
5658 #endif
5659 pterm=(pterm+((Vcic*Vcic)/rcx_t));
5660 }
5661 }
5662 }
5663 #if defined(_DERIVATE)
5664 Ibici_Vtnode_GND=(ijbc_Vtnode_GND-iavl_Vtnode_GND);
5665 Ibici_Vbi_ci=(ijbc_Vbi_ci-iavl_Vbi_ci);
5666 Ibici_Vbi_ei=(ijbc_Vbi_ei-iavl_Vbi_ei);
5667 Ibici_Vb_ci=(-iavl_Vb_ci);
5668 Ibici_Vci_ei=(-iavl_Vci_ei);
5669 #endif
5670 Ibici=(ijbc-iavl);
5671 #if defined(_DYNAMIC)
5672 #if defined(_DERIVATE)
5673 Qbci_Vb_ci=(cbcpar*Vbci_Vb_ci);
5674 #endif
5675 Qbci=(cbcpar*Vbci);
5676 #endif
5677 #if defined(_DYNAMIC)
5678 #if defined(_DERIVATE)
5679 Qbe_Vb_e=(cbepar*Vbe_Vb_e);
5680 #endif
5681 Qbe=(cbepar*Vbe);
5682 #endif
5683 #if defined(_DYNAMIC)
5684 #if defined(_DERIVATE)
5685 Qbici_Vbi_ci=(qjcii_Vbi_ci+qr_Vbi_ci);
5686 Qbici_Vtnode_GND=(qjcii_Vtnode_GND+qr_Vtnode_GND);
5687 Qbici_Vb_ci=(qjcii_Vb_ci+qr_Vb_ci);
5688 Qbici_Vbi_ei=qr_Vbi_ei;
5689 Qbici_Vci_ei=qr_Vci_ei;
5690 #endif
5691 Qbici=(qjcii+qr);
5692 #endif
5693 #if defined(_DYNAMIC)
5694 #if defined(_DERIVATE)
5695 Qbiei_Vtnode_GND=(qjei_Vtnode_GND+qf_Vtnode_GND);
5696 Qbiei_Vbi_ei=(qjei_Vbi_ei+qf_Vbi_ei);
5697 Qbiei_Vbi_ci=(qjei_Vbi_ci+qf_Vbi_ci);
5698 Qbiei_Vb_ci=(qjei_Vb_ci+qf_Vb_ci);
5699 Qbiei_Vci_ei=qf_Vci_ei;
5700 #endif
5701 Qbiei=(qjei+qf);
5702 #endif
5703 #if defined(_DERIVATE)
5704 ijsc_Vtnode_GND=(HICUMtype*ijsc_Vtnode_GND);
5705 ijsc_Vs_ci=(HICUMtype*ijsc_Vs_ci);
5706 ijsc_Vbi_ci=(HICUMtype*ijsc_Vbi_ci);
5707 ijsc_Vbi_ei=(HICUMtype*ijsc_Vbi_ei);
5708 #endif
5709 ijsc=(HICUMtype*ijsc);
5710 #if defined(_DYNAMIC)
5711 #if defined(_DERIVATE)
5712 qjs_Vci_ei=(HICUMtype*qjs_Vci_ei);
5713 qjs_Vbi_ei=(HICUMtype*qjs_Vbi_ei);
5714 qjs_Vs_ci=(HICUMtype*qjs_Vs_ci);
5715 qjs_Vbi_ci=(HICUMtype*qjs_Vbi_ci);
5716 qjs_Vtnode_GND=(HICUMtype*qjs_Vtnode_GND);
5717 qjs_Vb_ci=(HICUMtype*qjs_Vb_ci);
5718 #endif
5719 qjs=(HICUMtype*qjs);
5720 #endif
5721 #if defined(_DYNAMIC)
5722 #if defined(_DERIVATE)
5723 qjcx_Vbi_ci=(HICUMtype*qjcx_Vbi_ci);
5724 qjcx_Vtnode_GND=(HICUMtype*qjcx_Vtnode_GND);
5725 qjcx_Vb_ci=(HICUMtype*qjcx_Vb_ci);
5726 #endif
5727 qjcx=(HICUMtype*qjcx);
5728 #endif
5729 #if defined(_DYNAMIC)
5730 #if defined(_DERIVATE)
5731 Qbci_Vb_ci=(HICUMtype*Qbci_Vb_ci);
5732 #endif
5733 Qbci=(HICUMtype*Qbci);
5734 #endif
5735 #if defined(_DYNAMIC)
5736 #if defined(_DERIVATE)
5737 Qbe_Vb_e=(HICUMtype*Qbe_Vb_e);
5738 #endif
5739 Qbe=(HICUMtype*Qbe);
5740 #endif
5741 #if defined(_DERIVATE)
5742 Ibici_Vtnode_GND=(HICUMtype*Ibici_Vtnode_GND);
5743 Ibici_Vbi_ci=(HICUMtype*Ibici_Vbi_ci);
5744 Ibici_Vbi_ei=(HICUMtype*Ibici_Vbi_ei);
5745 Ibici_Vb_ci=(HICUMtype*Ibici_Vb_ci);
5746 Ibici_Vci_ei=(HICUMtype*Ibici_Vci_ei);
5747 #endif
5748 Ibici=(HICUMtype*Ibici);
5749 #if defined(_DYNAMIC)
5750 #if defined(_DERIVATE)
5751 Qbici_Vbi_ci=(HICUMtype*Qbici_Vbi_ci);
5752 Qbici_Vtnode_GND=(HICUMtype*Qbici_Vtnode_GND);
5753 Qbici_Vb_ci=(HICUMtype*Qbici_Vb_ci);
5754 Qbici_Vbi_ei=(HICUMtype*Qbici_Vbi_ei);
5755 Qbici_Vci_ei=(HICUMtype*Qbici_Vci_ei);
5756 #endif
5757 Qbici=(HICUMtype*Qbici);
5758 #endif
5759 #if defined(_DERIVATE)
5760 ijbe_Vtnode_GND=(HICUMtype*ijbe_Vtnode_GND);
5761 ijbe_Vbi_ei=(HICUMtype*ijbe_Vbi_ei);
5762 #endif
5763 ijbe=(HICUMtype*ijbe);
5764 #if defined(_DYNAMIC)
5765 #if defined(_DERIVATE)
5766 Qbiei_Vtnode_GND=(HICUMtype*Qbiei_Vtnode_GND);
5767 Qbiei_Vbi_ei=(HICUMtype*Qbiei_Vbi_ei);
5768 Qbiei_Vbi_ci=(HICUMtype*Qbiei_Vbi_ci);
5769 Qbiei_Vb_ci=(HICUMtype*Qbiei_Vb_ci);
5770 Qbiei_Vci_ei=(HICUMtype*Qbiei_Vci_ei);
5771 #endif
5772 Qbiei=(HICUMtype*Qbiei);
5773 #endif
5774 #if defined(_DERIVATE)
5775 it_Vtnode_GND=(HICUMtype*it_Vtnode_GND);
5776 it_Vbi_ei=(HICUMtype*it_Vbi_ei);
5777 it_Vbi_ci=(HICUMtype*it_Vbi_ci);
5778 it_Vb_ci=(HICUMtype*it_Vb_ci);
5779 it_Vci_ei=(HICUMtype*it_Vci_ei);
5780 #endif
5781 it=(HICUMtype*it);
5782 _load_static_residual2(bi,ei,(1.0e-12*BP(bi,ei)));
5783 #if defined(_DERIVATE)
5784 _load_static_jacobian4(bi,ei,bi,ei,(1.0e-12));
5785 #endif
5786 _load_static_residual2(bi,ci,(1.0e-12*BP(bi,ci)));
5787 #if defined(_DERIVATE)
5788 _load_static_jacobian4(bi,ci,bi,ci,(1.0e-12));
5789 #endif
5790 _load_static_residual2(b,s,HSI_Tsu);
5791 #if defined(_DERIVATE)
5792 _load_static_jacobian4(b,s,s,ci,HSI_Tsu_Vs_ci);
5793 _load_static_jacobian4(b,s,b,ci,HSI_Tsu_Vb_ci);
5794 _load_static_jacobian2s(b,s,tnode,HSI_Tsu_Vtnode_GND);
5795 #endif
5796 _load_static_residual2(s,ci,ijsc);
5797 #if defined(_DERIVATE)
5798 _load_static_jacobian4(s,ci,bi,ei,ijsc_Vbi_ei);
5799 _load_static_jacobian4(s,ci,bi,ci,ijsc_Vbi_ci);
5800 _load_static_jacobian4(s,ci,s,ci,ijsc_Vs_ci);
5801 _load_static_jacobian2s(s,ci,tnode,ijsc_Vtnode_GND);
5802 #endif
5803 #if defined(_DYNAMIC)
5804 _load_dynamic_residual2(s,ci,_DDT(qjs));
5805 #if defined(_DERIVATE)
5806 _load_dynamic_jacobian4(s,ci,b,ci,qjs_Vb_ci);
5807 _load_dynamic_jacobian2s(s,ci,tnode,qjs_Vtnode_GND);
5808 _load_dynamic_jacobian4(s,ci,bi,ci,qjs_Vbi_ci);
5809 _load_dynamic_jacobian4(s,ci,s,ci,qjs_Vs_ci);
5810 _load_dynamic_jacobian4(s,ci,bi,ei,qjs_Vbi_ei);
5811 _load_dynamic_jacobian4(s,ci,ci,ei,qjs_Vci_ei);
5812 #endif
5813 #endif
5814 #if defined(_DYNAMIC)
5815 _load_dynamic_residual2(b,ci,_DDT(qjcx));
5816 #if defined(_DERIVATE)
5817 _load_dynamic_jacobian4(b,ci,b,ci,qjcx_Vb_ci);
5818 _load_dynamic_jacobian2s(b,ci,tnode,qjcx_Vtnode_GND);
5819 _load_dynamic_jacobian4(b,ci,bi,ci,qjcx_Vbi_ci);
5820 #endif
5821 #endif
5822 #if defined(_DYNAMIC)
5823 _load_dynamic_residual2(b,ci,_DDT(Qbci));
5824 #if defined(_DERIVATE)
5825 _load_dynamic_jacobian4(b,ci,b,ci,Qbci_Vb_ci);
5826 #endif
5827 #endif
5828 #if defined(_DYNAMIC)
5829 _load_dynamic_residual2(b,e,_DDT(Qbe));
5830 #if defined(_DERIVATE)
5831 _load_dynamic_jacobian4(b,e,b,e,Qbe_Vb_e);
5832 #endif
5833 #endif
5834 if
5835 ((re>=0.001))
5836 {
5837 _load_static_residual2(ei,e,(Veie/re_t));
5838 #if defined(_DERIVATE)
5839 _load_static_jacobian2s(ei,e,tnode,(-Veie*re_t_Vtnode_GND/re_t/re_t));
5840 _load_static_jacobian4(ei,e,ei,e,(Veie_Vei_e/re_t));
5841 #endif
5842 }
5843 else
5844 {
5845 _load_static_residual2(ei,e,(BP(ei,e)/1e-6));
5846 #if defined(_DERIVATE)
5847 _load_static_jacobian4(ei,e,ei,e,(1/1e-6));
5848 #endif
5849 }
5850 if
5851 ((rcx>=0.001))
5852 {
5853 _load_static_residual2(ci,c,(Vcic/rcx_t));
5854 #if defined(_DERIVATE)
5855 _load_static_jacobian2s(ci,c,tnode,(-Vcic*rcx_t_Vtnode_GND/rcx_t/rcx_t));
5856 _load_static_jacobian4(ci,c,ci,c,(Vcic_Vci_c/rcx_t));
5857 #endif
5858 }
5859 else
5860 {
5861 _load_static_residual2(ci,c,(BP(ci,c)/1e-6));
5862 #if defined(_DERIVATE)
5863 _load_static_jacobian4(ci,c,ci,c,(1/1e-6));
5864 #endif
5865 }
5866 if
5867 (((rbi0>=0.001)||(rbx>=0.001)))
5868 {
5869 _load_static_residual2(b,bi,(Vbbi/rb));
5870 #if defined(_DERIVATE)
5871 _load_static_jacobian4(b,bi,ci,ei,(-Vbbi*rb_Vci_ei/rb/rb));
5872 _load_static_jacobian4(b,bi,b,ci,(-Vbbi*rb_Vb_ci/rb/rb));
5873 _load_static_jacobian4(b,bi,bi,ci,(-Vbbi*rb_Vbi_ci/rb/rb));
5874 _load_static_jacobian4(b,bi,bi,ei,(-Vbbi*rb_Vbi_ei/rb/rb));
5875 _load_static_jacobian2s(b,bi,tnode,(-Vbbi*rb_Vtnode_GND/rb/rb));
5876 _load_static_jacobian4(b,bi,b,bi,(Vbbi_Vb_bi/rb));
5877 #endif
5878 }
5879 else
5880 {
5881 _load_static_residual2(b,bi,(BP(b,bi)/1e-6));
5882 #if defined(_DERIVATE)
5883 _load_static_jacobian4(b,bi,b,bi,(1/1e-6));
5884 #endif
5885 }
5886 _load_static_residual2(bi,ci,Ibici);
5887 #if defined(_DERIVATE)
5888 _load_static_jacobian4(bi,ci,ci,ei,Ibici_Vci_ei);
5889 _load_static_jacobian4(bi,ci,b,ci,Ibici_Vb_ci);
5890 _load_static_jacobian4(bi,ci,bi,ei,Ibici_Vbi_ei);
5891 _load_static_jacobian4(bi,ci,bi,ci,Ibici_Vbi_ci);
5892 _load_static_jacobian2s(bi,ci,tnode,Ibici_Vtnode_GND);
5893 #endif
5894 #if defined(_DYNAMIC)
5895 _load_dynamic_residual2(bi,ci,_DDT(Qbici));
5896 #if defined(_DERIVATE)
5897 _load_dynamic_jacobian4(bi,ci,ci,ei,Qbici_Vci_ei);
5898 _load_dynamic_jacobian4(bi,ci,bi,ei,Qbici_Vbi_ei);
5899 _load_dynamic_jacobian4(bi,ci,b,ci,Qbici_Vb_ci);
5900 _load_dynamic_jacobian2s(bi,ci,tnode,Qbici_Vtnode_GND);
5901 _load_dynamic_jacobian4(bi,ci,bi,ci,Qbici_Vbi_ci);
5902 #endif
5903 #endif
5904 _load_static_residual2(bi,ei,ijbe);
5905 #if defined(_DERIVATE)
5906 _load_static_jacobian4(bi,ei,bi,ei,ijbe_Vbi_ei);
5907 _load_static_jacobian2s(bi,ei,tnode,ijbe_Vtnode_GND);
5908 #endif
5909 #if defined(_DYNAMIC)
5910 _load_dynamic_residual2(bi,ei,_DDT(Qbiei));
5911 #if defined(_DERIVATE)
5912 _load_dynamic_jacobian4(bi,ei,ci,ei,Qbiei_Vci_ei);
5913 _load_dynamic_jacobian4(bi,ei,b,ci,Qbiei_Vb_ci);
5914 _load_dynamic_jacobian4(bi,ei,bi,ci,Qbiei_Vbi_ci);
5915 _load_dynamic_jacobian4(bi,ei,bi,ei,Qbiei_Vbi_ei);
5916 _load_dynamic_jacobian2s(bi,ei,tnode,Qbiei_Vtnode_GND);
5917 #endif
5918 #endif
5919 _load_static_residual2(ci,ei,it);
5920 #if defined(_DERIVATE)
5921 _load_static_jacobian4(ci,ei,ci,ei,it_Vci_ei);
5922 _load_static_jacobian4(ci,ei,b,ci,it_Vb_ci);
5923 _load_static_jacobian4(ci,ei,bi,ci,it_Vbi_ci);
5924 _load_static_jacobian4(ci,ei,bi,ei,it_Vbi_ei);
5925 _load_static_jacobian2s(ci,ei,tnode,it_Vtnode_GND);
5926 #endif
5927 if
5928 (((flsh==0)||(rth<0.001)))
5929 {
5930 _load_static_residual1(tnode,(Vrth/0.001));
5931 #if defined(_DERIVATE)
5932 _load_static_jacobian1(tnode,tnode,(Vrth_Vtnode_GND/0.001));
5933 #endif
5934 }
5935 else
5936 {
5937 _load_static_residual1(tnode,((Vrth/rth)-pterm));
5938 #if defined(_DERIVATE)
5939 _load_static_jacobian2p(tnode,ci,ei,(-pterm_Vci_ei));
5940 _load_static_jacobian2p(tnode,b,ci,(-pterm_Vb_ci));
5941 _load_static_jacobian2p(tnode,bi,ci,(-pterm_Vbi_ci));
5942 _load_static_jacobian2p(tnode,bi,ei,(-pterm_Vbi_ei));
5943 _load_static_jacobian2p(tnode,s,ci,(-pterm_Vs_ci));
5944 _load_static_jacobian2p(tnode,b,bi,(-pterm_Vb_bi));
5945 _load_static_jacobian2p(tnode,ei,e,(-pterm_Vei_e));
5946 _load_static_jacobian2p(tnode,ci,c,(-pterm_Vci_c));
5947 _load_static_jacobian1(tnode,tnode,((Vrth_Vtnode_GND/rth)-pterm_Vtnode_GND));
5948 #endif
5949 #if defined(_DYNAMIC)
5950 _load_dynamic_residual1(tnode,_DDT((cth*Vrth)));
5951 #if defined(_DERIVATE)
5952 _load_dynamic_jacobian1(tnode,tnode,(cth*Vrth_Vtnode_GND));
5953 #endif
5954 #endif
5955 }
5956 #if defined(_DERIVATE)
5957 fourkt_Vtnode_GND=((4.0*1.3806503e-23)*Tdev_Vtnode_GND);
5958 #endif
5959 fourkt=((4.0*1.3806503e-23)*Tdev);
5960 if
5961 (((rbx>=0.001)||(rbi0>=0.001)))
5962 {
5963 _save_whitenoise2(b,bi,(fourkt/rb),NULL);
5964 }
5965 if
5966 ((rcx>=0.001))
5967 {
5968 _save_whitenoise2(ci,c,(fourkt/rcx_t),NULL);
5969 }
5970 if
5971 ((re>=0.001))
5972 {
5973 _save_whitenoise2(ei,e,(fourkt/re_t),NULL);
5974 }
5975 twoq=(2.0*1.602176462e-19);
5976 _save_whitenoise2(bi,ei,(twoq*ijbe),NULL);
5977 _save_whitenoise2(ci,ei,(twoq*it),NULL);
5978 {
5979 double m00_pow(d00_pow0,ijbe,af)
5980 #if defined(_DERIVATE)
5981 double m10_pow(d10_pow0,d00_pow0,ijbe,af)
5982 #endif
5983 #if defined(_DERIVATE)
5984 flicker_Pwr_Vtnode_GND=(kf*(d10_pow0*ijbe_Vtnode_GND));
5985 flicker_Pwr_Vbi_ei=(kf*(d10_pow0*ijbe_Vbi_ei));
5986 #endif
5987 flicker_Pwr=(kf*d00_pow0);
5988 }
5989 _save_flickernoise2(bi,ei,flicker_Pwr,1.0,NULL);
5990 
5991 /* ------------------ end of verilog analog equations --------------------- */
5992 
5993 /* ------------------ evaluate verilog noise equations -------------------- */
5994 
5995 /* ------------------- end of verilog noise equations --------------------- */
5996 }
5997 
5998 /* Perform DC iteration. */
5999 void hic0_full::calcDC (void)
6000 {
6001  // evaluate Verilog code
6002  initVerilog ();
6003  calcVerilog ();
6004 
6005  // fill right hand side and static jacobian
6006  for (int i1 = 0; i1 < 8; i1++) {
6007  setI (i1, _rhs[i1]);
6008  for (int i2 = 0; i2 < 8; i2++) {
6009  setY (i1, i2, _jstat[i1][i2]);
6010  }
6011  }
6012 }
6013 
6014 /* Save operating points. */
6015 void hic0_full::saveOperatingPoints (void)
6016 {
6017  // save global instance operating points
6018  setOperatingPoint ("qjci", qjci);
6019  setOperatingPoint ("qjei", qjei);
6020  setOperatingPoint ("cjei", cjei);
6021  setOperatingPoint ("it", it);
6022  setOperatingPoint ("ijbc", ijbc);
6023  setOperatingPoint ("iavl", iavl);
6024  setOperatingPoint ("ijsc", ijsc);
6025  setOperatingPoint ("Ieei", Ieei);
6026  setOperatingPoint ("Icci", Icci);
6027  setOperatingPoint ("Ibbi", Ibbi);
6028  setOperatingPoint ("Ibici", Ibici);
6029  setOperatingPoint ("ijbe", ijbe);
6030 }
6031 
6032 /* Load operating points. */
6033 void hic0_full::loadOperatingPoints (void)
6034 {
6035 }
6036 
6037 /* Calculate operating points. */
6038 void hic0_full::calcOperatingPoints (void)
6039 {
6040 }
6041 
6042 /* Initialization of AC analysis. */
6043 void hic0_full::initAC (void)
6044 {
6045  allocMatrixMNA ();
6046 }
6047 
6048 /* Perform AC calculations. */
6049 void hic0_full::calcAC (nr_double_t frequency)
6050 {
6051  setMatrixY (calcMatrixY (frequency));
6052 }
6053 
6054 /* Compute Y-matrix for AC analysis. */
6055 matrix hic0_full::calcMatrixY (nr_double_t frequency)
6056 {
6057  _freq = frequency;
6058  saveOperatingPoints ();
6059  matrix y (8);
6060 
6061  for (int i1 = 0; i1 < 8; i1++) {
6062  for (int i2 = 0; i2 < 8; i2++) {
6063  y (i1,i2) = rect (_jstat[i1][i2], _jdyna[i1][i2] * 2 * M_PI * _freq);
6064  }
6065  }
6066 
6067  return y;
6068 }
6069 
6070 /* Initialization of S-parameter analysis. */
6071 void hic0_full::initSP (void)
6072 {
6073  allocMatrixS ();
6074 }
6075 
6076 /* Perform S-parameter calculations. */
6077 void hic0_full::calcSP (nr_double_t frequency)
6078 {
6079  setMatrixS (ytos (calcMatrixY (frequency)));
6080 }
6081 
6082 /* Initialization of transient analysis. */
6083 void hic0_full::initTR (void)
6084 {
6085  setStates (2 * 8 * 8);
6086  initDC ();
6087 }
6088 
6089 /* Perform transient analysis iteration step. */
6090 void hic0_full::calcTR (nr_double_t)
6091 {
6092  doHB = 0;
6093  doAC = 1;
6094  doTR = 1;
6095  calcDC ();
6096 
6097  int i1, i2, i3, i4, state;
6098 
6099  // 2-node charge integrations
6100  for (i1 = 0; i1 < 8; i1++) {
6101  for (i2 = 0; i2 < 8; i2++) {
6102  state = 2 * (i2 + 8 * i1);
6103  if (i1 != i2)
6104  if (_charges[i1][i2] != 0.0)
6105  transientCapacitanceQ (state, i1, i2, _charges[i1][i2]);
6106  } }
6107 
6108  // 1-node charge integrations
6109  for (i1 = 0; i1 < 8; i1++) {
6110  state = 2 * (i1 + 8 * i1);
6111  if (_charges[i1][i1] != 0.0)
6112  transientCapacitanceQ (state, i1, _charges[i1][i1]);
6113  }
6114 
6115  // charge: 2-node, voltage: 2-node
6116  for (i1 = 0; i1 < 8; i1++) {
6117  for (i2 = 0; i2 < 8; i2++) {
6118  if (i1 != i2)
6119  for (i3 = 0; i3 < 8; i3++) {
6120  for (i4 = 0; i4 < 8; i4++) {
6121  if (i3 != i4)
6122  if (_caps[i1][i2][i3][i4] != 0.0)
6123  transientCapacitanceC (i1, i2, i3, i4, _caps[i1][i2][i3][i4], BP(i3,i4));
6124  } } } }
6125 
6126  // charge: 2-node, voltage: 1-node
6127  for (i1 = 0; i1 < 8; i1++) {
6128  for (i2 = 0; i2 < 8; i2++) {
6129  if (i1 != i2)
6130  for (i3 = 0; i3 < 8; i3++) {
6131  if (_caps[i1][i2][i3][i3] != 0.0)
6132  transientCapacitanceC2Q (i1, i2, i3, _caps[i1][i2][i3][i3], NP(i3));
6133  } } }
6134 
6135  // charge: 1-node, voltage: 2-node
6136  for (i1 = 0; i1 < 8; i1++) {
6137  for (i3 = 0; i3 < 8; i3++) {
6138  for (i4 = 0; i4 < 8; i4++) {
6139  if (i3 != i4)
6140  if (_caps[i1][i1][i3][i4] != 0.0)
6141  transientCapacitanceC2V (i1, i3, i4, _caps[i1][i1][i3][i4], BP(i3,i4));
6142  } } }
6143 
6144  // charge: 1-node, voltage: 1-node
6145  for (i1 = 0; i1 < 8; i1++) {
6146  for (i3 = 0; i3 < 8; i3++) {
6147  if (_caps[i1][i1][i3][i3] != 0.0)
6148  transientCapacitanceC (i1, i3, _caps[i1][i1][i3][i3], NP(i3));
6149  } }
6150 }
6151 
6152 /* Compute Cy-matrix for AC noise analysis. */
6153 matrix hic0_full::calcMatrixCy (nr_double_t frequency)
6154 {
6155  _freq = frequency;
6156  matrix cy (8);
6157 
6158  _load_flickernoise2 (bi,ei,_flicker_pwr[bi][ei],_flicker_exp[bi][ei]);
6159  _load_whitenoise2 (ci,ei,_white_pwr[ci][ei]);
6160  _load_whitenoise2 (b,bi,_white_pwr[b][bi]);
6161  _load_whitenoise2 (ci,c,_white_pwr[ci][c]);
6162  _load_whitenoise2 (ei,e,_white_pwr[ei][e]);
6163  _load_whitenoise2 (bi,ei,_white_pwr[bi][ei]);
6164 
6165  return cy;
6166 }
6167 
6168 /* Perform AC noise computations. */
6169 void hic0_full::calcNoiseAC (nr_double_t frequency)
6170 {
6171  setMatrixN (calcMatrixCy (frequency));
6172 }
6173 
6174 /* Perform S-parameter noise computations. */
6175 void hic0_full::calcNoiseSP (nr_double_t frequency)
6176 {
6177  setMatrixN (cytocs (calcMatrixCy (frequency) * z0, getMatrixS ()));
6178 }
6179 
6180 /* Initialization of HB analysis. */
6181 void hic0_full::initHB (int)
6182 {
6183  initDC ();
6184  allocMatrixHB ();
6185 }
6186 
6187 /* Perform HB analysis. */
6188 void hic0_full::calcHB (int)
6189 {
6190  doHB = 1;
6191  doAC = 1;
6192  doTR = 0;
6193 
6194  // jacobian dI/dV and currents get filled
6195  calcDC ();
6196  saveOperatingPoints ();
6197 
6198  // fill in HB matrices
6199  for (int i1 = 0; i1 < 8; i1++) {
6200  setQ (i1, _qhs[i1]); // charges
6201  setCV (i1, _chs[i1]); // jacobian dQ/dV * V
6202  setGV (i1, _ghs[i1]); // jacobian dI/dV * V
6203  for (int i2 = 0; i2 < 8; i2++) {
6204  setQV (i1, i2, _jdyna[i1][i2]); // jacobian dQ/dV
6205  }
6206  }
6207 }
6208 
6209 #include "hic0_full.defs.h"
Generated on Tue Dec 25 2012 14:28:10 for My Project by   doxygen 1.8.2