68 G4double gmo2 = (gamma - 1.)*(gamma - 1.);
70 G4double pref = gamma2*re2/(gmo2*(gamma + 1.0));
79 if (flag==0) polarized=
false;
83 phi0+= ((1. - 2.*gamma)/gamma2)*(1./e + 1./(1.-
e));
84 phi0+= 1./(e*
e) + 1./((1. - e)*(1. -
e));
89 if (flag<=1) usephi=0.;
93 G4double xx = (gamma - f*e*gmo*(3. + gamma))/(4.*f*e*gamma2);
94 G4double yy = (-1. + f*e*gmo2 + 2.*gamma)/(4.*f*e*gamma2);
95 G4double zz = (-(e*gmo*(3. + gamma)) + e2*gmo*(3. + gamma) +
96 gamma*(-1. + 2.*gamma))/(4.*f*e*gamma2);
98 phi0 += xx*pol0.
x()*pol1.
x() + yy*pol0.
y()*pol1.
y() + zz*pol0.
z()*pol1.
z();
103 G4double xz = -((-1. + 2.*
e)*gmo)/(2.*sqrttwo*gamma2*
104 std::sqrt(-((f*e)/gpo)));
107 G4double zx = -((-1. + 2.*
e)*gmo)/(2.*sqrttwo*gamma2*
108 std::sqrt(-((f*e)/gpo)));
110 phi0+=yx*pol0.
y()*pol1.
x() + xy*pol0.
x()*pol1.
y();
111 phi0+=zx*pol0.
z()*pol1.
x() + xz*pol0.
x()*pol1.
z();
112 phi0+=zy*pol0.
z()*pol1.
y() + yz*pol0.
y()*pol1.
z();
126 G4double xxP1K1 = (std::sqrt(gpo/(1. + e2*gmo + gamma - 2.*e*gamma))*
127 (gamma - e*gpo))/(4.*e2*gamma);
129 G4double xzP1K1 = (-1. + 2.*e*gamma)/(2.*sqrttwo*f*gamma*
130 std::sqrt(e*e2*(1. + e + gamma - e*gamma)));
132 G4double yyP1K1 = (-gamma2 + e*(-1. + gamma*(2. + gamma)))/(4.*f*e2*gamma2);
134 G4double zxP1K1 = (1. + 2.*e2*gmo - 2.*e*gamma)/(2.*sqrttwo*f*e*gamma*
135 std::sqrt(e*(1. + e + gamma - e*gamma)));
137 G4double zzP1K1 = (-gamma + e*(1. - 2.*e*gmo + gamma))/(4.*f*e2*gamma*
138 std::sqrt(1. - (2.*e)/(f*gpo)));
139 phi2[0] += xxP1K1*pol0.
x() + xyP1K1*pol0.
y() + xzP1K1*pol0.
z();
140 phi2[1] += yxP1K1*pol0.
x() + yyP1K1*pol0.
y() + yzP1K1*pol0.
z();
141 phi2[2] += zxP1K1*pol0.
x() + zyP1K1*pol0.
y() + zzP1K1*pol0.
z();
145 G4double xxP1K2 = ((1. + e*(-3. + gamma))*std::sqrt(gpo/(1. + e2*gmo + gamma -
146 2.*e*gamma)))/(4.*f*e*gamma);
148 G4double xzP1K2 = (-2. + 2.*e + gamma)/(2.*sqrttwo*f2*gamma*
149 std::sqrt(e*(1. + e + gamma - e*gamma)));
151 G4double yyP1K2 = (1. - 2.*gamma + e*(-1. + gamma*(2. + gamma)))/(4.*f2*e*gamma2);
153 G4double zxP1K2 = (2.*e*(1. + e*gmo - 2.*gamma) + gamma)/(2.*sqrttwo*f2*gamma*
154 std::sqrt(e*(1. + e + gamma - e*gamma)));
156 G4double zzP1K2 = (1. - 2.*gamma + e*(-1. - 2.*e*gmo + 3.*gamma))/
157 (4.*f2*e*gamma*std::sqrt(1. - (2.*e)/(f*gpo)));
158 phi2[0] += xxP1K2*pol1.
x() + xyP1K2*pol1.
y() + xzP1K2*pol1.
z();
159 phi2[1] += yxP1K2*pol1.
x() + yyP1K2*pol1.
y() + yzP1K2*pol1.
z();
160 phi2[2] += zxP1K2*pol1.
x() + zyP1K2*pol1.
y() + zzP1K2*pol1.
z();
170 G4double xxP2K1 = (-1. + e + e*gamma)/(4.*f2*gamma*
171 std::sqrt((e*(2. + e*gmo))/gpo));
173 G4double xzP2K1 = -((1. + 2.*f*gamma)*std::sqrt(f/(-2. + e - e*gamma)))/
174 (2.*sqrttwo*f2*e*gamma);
176 G4double yyP2K1 = (1. - 2.*gamma + e*(-1. + gamma*(2. + gamma)))/(4.*f2*e*gamma2);
178 G4double zxP2K1 = (1. + 2.*e*(-2. + e + gamma - e*gamma))/(2.*sqrttwo*f*e*
179 std::sqrt(-(f*(2. + e*gmo)))*gamma);
181 G4double zzP2K1 = (std::sqrt((e*gpo)/(2. + e*gmo))*
182 (-3. + e*(5. + 2.*e*gmo - 3.*gamma) + 2.*gamma))/(4.*f2*e*gamma);
184 phi3[0] += xxP2K1*pol0.
x() + xyP2K1*pol0.
y() + xzP2K1*pol0.
z();
185 phi3[1] += yxP2K1*pol0.
x() + yyP2K1*pol0.
y() + yzP2K1*pol0.
z();
186 phi3[2] += zxP2K1*pol0.
x() + zyP2K1*pol0.
y() + zzP2K1*pol0.
z();
191 G4double xxP2K2 = (-2. - e*(-3. + gamma) + gamma)/
192 (4.*f*e*gamma* std::sqrt((e*(2. + e*gmo))/gpo));
194 G4double xzP2K2 = ((-2.*e + gamma)*std::sqrt(f/(-2. + e - e*gamma)))/
195 (2.*sqrttwo*f*e2*gamma);
197 G4double yyP2K2 = (-gamma2 + e*(-1. + gamma*(2. + gamma)))/(4.*f*e2*gamma2);
199 G4double zxP2K2 = (gamma + 2.*e*(-1. + e - e*gamma))/
200 (2.*sqrttwo*e2* std::sqrt(-(f*(2. + e*gmo)))*gamma);
202 G4double zzP2K2 = (std::sqrt((e*gpo)/(2. + e*gmo))*
203 (-2. + e*(3. + 2.*e*gmo - gamma) + gamma))/(4.*f*e2*gamma);
204 phi3[0] += xxP2K2*pol1.
x() + xyP2K2*pol1.
y() + xzP2K2*pol1.
z();
205 phi3[1] += yxP2K2*pol1.
x() + yyP2K2*pol1.
y() + yzP2K2*pol1.
z();
206 phi3[2] += zxP2K2*pol1.
x() + zyP2K2*pol1.
y() + zzP2K2*pol1.
z();
235 if (xmax != 1./2.)
G4cout<<
" warning xmax expected to be 1/2 but is "<<xmax<<
G4endl;
240 G4double gmo2 = (gamma - 1.)*(gamma - 1.);
241 G4double logMEM = std::log(1./x - 1.);
245 sigma0 += (gmo2/gamma2)*(0.5 - x);
246 sigma0 += ((1. - 2.*gamma)/gamma2)*logMEM;
247 sigma0 += 1./x - 1./(1. -
x);
250 sigma2 += ((gamma2 + 2.*gamma - 3.)/gamma2)*(0.5 - x);
251 sigma2 += (1./gamma - 2.)*logMEM;
254 sigma3 += (2.*(1. - gamma)/gamma2)*(0.5 -
x);
255 sigma3 += (1. - 3.*gamma)/(2.*gamma2)*logMEM;
257 xs+=pref*(sigma0 + sigma2*pol0.
z()*pol1.
z() + sigma3*(pol0.
x()*pol1.
x()+pol0.
y()*pol1.
y()));