80 if(cosT > 1.+1.e-8) cosT = 1.;
81 if(cosT < -1.-1.e-8) cosT = -1.;
85 if(sinT2 > 1. + 1.e-8) sinT2 = 1.;
86 if(sinT2 < 0.) sinT2 = 0.;
91 DefineCoefficients(pol0,pol1);
92 diffXSFactor = re2/(4.*X);
95 unpXS = (eps2 + 1. -
eps*sinT2)/(2.*
eps);
97 polXS = -sinT2*pol0.x() + (1. -
eps)*sinT*polzx + ((eps2 - 1.)/
eps)*cosT*polzz;
100 phi0 = unpXS + polXS;
104 G4double PHI21 = -sinT2 + 0.5*(cos2T + 3.)*pol0.x() - ((1. -
eps)/
eps)*sinT*polzx;
106 G4double PHI22 = cosT*pol0.y() + ((1. -
eps)/(2.*
eps))*sinT*polzy;
108 PHI23 += 0.5*(1. -
eps)*sin2T*pol1.x();
109 PHI23 += (
eps - 1.)*(-sinT2*polxz + sinT*polyy - 0.5*sin2T*polxx);
114 G4double PHI32 = -sinT2*polxy + ((1. -
eps)/
eps)*sinT*polyz + 0.5*(cos2T + 3.)*pol1.y();
117 G4double PHI31 = 0., PHI31add = 0., PHI33 = 0., PHI33add = 0.;
119 if ((1. -
eps) > 1.e-12){
120 G4double helpVar = std::sqrt(eps2 - 2.*cosT*
eps + 1.);
122 PHI31 = (1. -
eps)*(1. + cosT)*sinT*pol0.z();
123 PHI31 += (-
eps*cosT3 +
eps*cosT2 + (
eps - 2.)*cosT +
eps)*pol1.x();
124 PHI31 += -(
eps*cosT2 -
eps*cosT + cosT + 1.)*sinT*pol1.z();
127 PHI31add = -
eps*
sqr(1. - cosT)*(1. + cosT)*polxx;
128 PHI31add += (1. -
eps)*sinT2*polyy;
129 PHI31add += -(-eps2 + cosT*(cosT*
eps -
eps + 1.)*
eps +
eps - 1.)*sinT*polxz/
eps;
130 PHI31add /= 2.*helpVar;
132 PHI33 = ((1. -
eps)/
eps)*(-
eps*cosT2 +
eps*(
eps + 1.)*cosT - 1.)*pol0.z();
133 PHI33 += -(
eps*cosT2 + (1. -
eps)*
eps*cosT + 1.)*sinT*pol1.x();
134 PHI33 += -(-eps2*cosT3 +
eps*(eps2 -
eps + 1.)*cosT2 - cosT + eps2)*pol1.z()/
eps;
135 PHI33 /= -2.*helpVar;
137 PHI33add = (
eps*(
eps - cosT - 1.)*cosT + 1.)*sinT*polxx;
138 PHI33add += -(-eps2 + cosT*
eps +
eps - 1.)*sinT2*polxz;
139 PHI33add += (
eps - 1.)*(cosT -
eps)*sinT*polyy;
140 PHI33add /= -2.*helpVar;
142 PHI31 = -pol1.z() - (X - 1.)*std::sqrt(1. -
eps)*pol1.x()/std::sqrt(2.*X);
143 PHI31add = -(-X*X*pol1.z() - 2.*X*(2.*pol0.z() - pol1.z()) - (4.*pol0.x() + 5.)*pol1.z())*(1. -
eps)/(4.*X);
145 PHI33 = pol1.x() - (X - 1.)*std::sqrt(1. -
eps)*pol1.z()/std::sqrt(2.*X);
146 PHI33add = -(X*X - 2.*X + 4.*pol0.x() + 5.)*(1. -
eps)*pol1.x()/(4.*X);
148 phi3 =
G4ThreeVector(PHI31 + PHI31add, PHI32, PHI33 + PHI33add);
151 unpXS *= diffXSFactor;
152 polXS *= diffXSFactor;
153 phi0 *= diffXSFactor;
154 phi2 *= diffXSFactor;
155 phi3 *= diffXSFactor;
CLHEP::Hep3Vector G4ThreeVector
static const G4double eps