30 #include "component.h"
58 nr_double_t Q1, Q2, Q3, Q4, Q5;
69 SModel, DModel,
"Kirschning");
71 SModel, DModel,
"Kirschning");
78 Q5 = 1.23 / (1.0 + 0.12 *
pow (W2 - 1.0, 0.9));
79 Q1 = 0.04598 * (0.03 +
pow (W1, Q5)) * (0.272 + 0.07 * er);
80 Q2 = 0.107 * (W1 + 9.0) *
pow (s, 3.23) +
81 2.09 *
pow (s, 1.05) * (1.5 + 0.3 * W1) / (1.0 + 0.6 * W1);
82 Q3 =
exp (-0.5978 *
pow (W2, +1.35)) - 0.55;
83 Q4 =
exp (-0.5978 *
pow (W2, -1.35)) - 0.55;
85 nr_double_t Cs = 5
e-10 * h *
exp (-1.86 * s) * Q1 *
86 (1.0 + 4.19 * (1.0 -
exp (-0.785 *
sqrt (1.0 / W1) * W2)));
87 C1 *= (Q2 + Q3) / (Q2 + 1.0);
88 C2 *= (Q2 + Q4) / (Q2 + 1.0);