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