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