44 const double Me = 0.000510999;
46 double bsq = psq / (psq +
mass *
mass);
50 double w = (4 * Me * esq
51 / (1 + 2 *
s * sqrt(1 + esq)
55 cc = 1+2*log(sqrt(isq_)/(28.8E-09*sqrt(rza_)));
60 double x1(3), xa(cc/4.606), aa;
61 aa = 4.606*(xa-x0)/((x1-x0)*(x1-x0)*(x1-x0));
63 double x(log10(sqrt(esq)));
66 if (
x < x1) delta=delta+aa*(x1-
x)*(x1-
x)*(x1-
x);
69 float f1, f2, f3, f4, f5, ce;
73 f4 = (
f1*0.42237+f2*0.0304-f3*0.00038)*1E12;
74 f5 = (
f1*3.858-f2*0.1668+f3*0.00158)*1E18;
75 ce = f4*isq_+f5*isq_*sqrt(isq_);
76 return (0.0001535 * rza_ / bsq
77 * (log(Me * esq * w / isq_)
78 - 2 * bsq-delta-2.0*ce/z_)) * path;