85{
86 G4double aLept1E = aGammaE - aLept0E;
87
89
90
92 G4double Lept0E = aLept0E/m0_c2+1., Lept0E2 = Lept0E * Lept0E ;
94 G4double Lept1E = aLept1E/m0_c2-1., Lept1E2 = Lept1E * Lept1E ;
95
96
97
98
99
100
101 G4double TMom = std::sqrt(Lept0E2 -1.)* sintheta, u = TMom , u2 =u * u ;
102 G4double Xsi = 1./(1.+u2) , Xsi2 = Xsi * Xsi ;
103
104
105
106
107 G4double delta = 12. * std::pow(
theZ, 1./3.) * Lept0E * Lept1E * Xsi / (121. * GammaE);
109
110 if(delta < 0.5) {
111 GG = std::log(2.* Lept0E * Lept1E / GammaE) - 2. -
fCoul;
112 }
113 else if ( delta < 120.) {
114 for (
G4int j=2; j<=19; j++) {
115 if(SCRN[1][j] >= delta) {
116 GG =std::log(2. * Lept0E * Lept1E / GammaE) - 2. -
fCoul
117 -(SCRN[2][j-1]+(delta-SCRN[1][j-1])*(SCRN[2][j]-SCRN[2][j-1])/(SCRN[1][j]-SCRN[1][j-1]));
118 break;
119 }
120 }
121 }
122 else {
123 G4double alpha_sc = (111. * std::pow(
theZ, -1./3.)) / Xsi;
124 GG = std::log(alpha_sc)- 2. -
fCoul;
125 }
126
127 if(GG<-1.) GG=-1.;
128
129
130 G4double I_Lepton = (Lept0E2 + Lept1E2)*(3+2*GG) + 2. * Lept0E * Lept1E * (1. + 4. * u2 * Xsi2 * GG);
131
132
133
134 G4double L_Lepton1 = GammaE * ((Lept0E - Lept1E) * (3. + 2. * GG)+2 * Lept1E * (1. + 4. * u2 * Xsi2 * GG))/I_Lepton;
135
136 G4double T_Lepton1 = 4. * GammaE * Lept1E * Xsi * u * (1. - 2. * Xsi) * GG / I_Lepton ;
137
138
139 G4double Stokes_S1 = (Stokes_P3 * T_Lepton1) ;
141 G4double Stokes_S3 = (Stokes_P3 * L_Lepton1) ;
142
143
144 theFinalElectronPolarization.
setX(Stokes_S1);
145 theFinalElectronPolarization.
setY(Stokes_S2);
146 theFinalElectronPolarization.
setZ(Stokes_S3);
147
148 if(theFinalElectronPolarization.
mag2()>1.) {
149 G4cout<<
" WARNING in pol-conv theFinalElectronPolarization \n";
151 <<"\t"<<theFinalElectronPolarization
152 <<"\t GG\t"<<GG
153 <<"\t delta\t"<<delta
155 theFinalElectronPolarization.
setX(0.);
156 theFinalElectronPolarization.
setY(0.);
157 theFinalElectronPolarization.
setZ(Stokes_S3);
158 if(Stokes_S3>1.) theFinalElectronPolarization.
setZ(1.);
159 }
160
161
162 G4double L_Lepton2 = GammaE * ((Lept1E - Lept0E) * (3. + 2. * GG)+2 * Lept0E * (1. + 4. * u2 * Xsi2 * GG))/I_Lepton;
163
164 G4double T_Lepton2 = 4. * GammaE * Lept0E * Xsi * u * (1. - 2. * Xsi) * GG / I_Lepton ;
165
166 G4double Stokes_SS1 = (Stokes_P3 * T_Lepton2) ;
168 G4double Stokes_SS3 = (Stokes_P3 * L_Lepton2) ;
169
170 theFinalPositronPolarization.
SetPhoton();
171
172 theFinalPositronPolarization.
setX(Stokes_SS1);
173 theFinalPositronPolarization.
setY(Stokes_SS2);
174 theFinalPositronPolarization.
setZ(Stokes_SS3);
175
176 if(theFinalPositronPolarization.
mag2()>1.) {
177 G4cout<<
" WARNING in pol-conv theFinalPositronPolarization \n";
179 <<"\t"<<theFinalPositronPolarization
180 <<"\t GG\t"<<GG
181 <<"\t delta\t"<<delta
183 }
184}
G4GLOB_DLL std::ostream G4cout