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