87 G4double aLept1E = aGammaE - aLept0E;
93 G4double Lept0E = aLept0E/m0_c2+1., Lept0E2 = Lept0E * Lept0E ;
95 G4double Lept1E = aLept1E/m0_c2-1., Lept1E2 = Lept1E * Lept1E ;
102 G4double TMom = std::sqrt(Lept0E2 -1.)* sintheta, u = TMom , u2 =u * u ;
103 G4double Xsi = 1./(1.+u2) , Xsi2 = Xsi * Xsi ;
108 G4double delta = 12. * std::pow(
theZ, 1./3.) * Lept0E * Lept1E * Xsi / (121. * GammaE);
112 GG = std::log(2.* Lept0E * Lept1E / GammaE) - 2. -
fCoul;
114 else if ( delta < 120) {
115 for (
G4int j=2; j<=19; j++) {
116 if(
SCRN[1][j] >= delta) {
117 GG =std::log(2 * Lept0E * Lept1E / GammaE) - 2 -
fCoul 124 G4double alpha_sc = (111 * std::pow(
theZ, -1./3.)) / Xsi;
125 GG = std::log(alpha_sc)- 2 -
fCoul;
131 G4double I_Lepton = (Lept0E2 + Lept1E2)*(3+2*GG) + 2 * Lept0E * Lept1E * (1 + 4 * u2 * Xsi2 * GG);
135 G4double L_Lepton1 = GammaE * ((Lept0E - Lept1E) * (3. + 2. * GG)+2 * Lept1E * (1 + 4 * u2 * Xsi2 * GG))/I_Lepton;
137 G4double T_Lepton1 = 4 * GammaE * Lept1E * Xsi * u * (1. - 2. * Xsi) * GG / I_Lepton ;
140 G4double Stokes_S1 = (Stokes_P3 * T_Lepton1) ;
142 G4double Stokes_S3 = (Stokes_P3 * L_Lepton1) ;
150 G4cout<<
" WARNING in pol-conv theFinalElectronPolarization \n";
154 <<
"\t delta\t"<<delta
163 G4double L_Lepton2 = GammaE * ((Lept1E - Lept0E) * (3. + 2. * GG)+2 * Lept0E * (1 + 4 * u2 * Xsi2 * GG))/I_Lepton;
165 G4double T_Lepton2 = 4 * GammaE * Lept0E * Xsi * u * (1. - 2. * Xsi) * GG / I_Lepton ;
167 G4double Stokes_SS1 = (Stokes_P3 * T_Lepton2) ;
169 G4double Stokes_SS3 = (Stokes_P3 * L_Lepton2) ;
178 G4cout<<
" WARNING in pol-conv theFinalPositronPolarization \n";
182 <<
"\t delta\t"<<delta
G4GLOB_DLL std::ostream G4cout
static G4double SCRN[3][20]
G4StokesVector theFinalPositronPolarization
G4StokesVector theFinalElectronPolarization