45 const double Me = 0.000510999;
47 double bsq = psq / (psq +
mass *
mass);
51 double w = (4 * Me * esq
52 / (1 + 2 *
s * sqrt(1 + esq)
57 cc = 1+2*log(sqrt(isq_)/(28.8E-09*sqrt(rza_)));
62 double x1(3), xa(cc/4.606), aa;
63 aa = 4.606*(xa-x0)/((x1-x0)*(x1-x0)*(x1-x0));
65 double x(log10(sqrt(esq)));
68 if (
x < x1) delta=delta+aa*(x1-
x)*(x1-
x)*(x1-
x);
72 float f1, f2, f3, f4, f5, ce;
76 f4 = (
f1*0.42237+f2*0.0304-f3*0.00038)*1E12;
77 f5 = (
f1*3.858-f2*0.1668+f3*0.00158)*1E18;
78 ce = f4*isq_+f5*isq_*sqrt(isq_);
80 return (0.0001535 * rza_ / bsq
81 * (log(Me * esq * w / isq_)
82 - 2 * bsq-delta-2.0*ce/z_)) * path;