52 C = 0.1 + -((
theFragZ-50.)/20.)*0.02;
56 C = 0.08 + -((
theFragZ-70.)/20.)*0.02;
62 return 1.0 + C*(4.0/3.0);
91 result = 3.0/(P*(P-1.0)*(P-2.0)) *
92 (H*(H-1.0)*(H-2.0)*r*r*(r-1.0) +
93 H*(H-1.0)*(2.0*Na*r*(1.0-
r)+Pa*r*r) +
94 H*(Pa*(Pa-1.0)*(r-1.0)+2.0*Na*Pa*
r) +
97 result /= 3.0*r*r*(1.0 -
r);