86{
87
88
89
90
91
92
93 G4double aLept1E = aLept0E - aGammaE;
94
98
99
101 G4double Lept0E = aLept0E/m0_c2+1., Lept0E2 = Lept0E * Lept0E ;
102 G4double GammaE = aGammaE/m0_c2, GammaE2 = GammaE * GammaE ;
103 G4double Lept1E = aLept1E/m0_c2+1., Lept1E2 = Lept1E * Lept1E ;
104
105
106
107
108
109
110 G4double TMom = std::sqrt(Lept0E2 -1.)* sintheta;
112 G4double Xsi = 1./(1.+u2) , Xsi2 = Xsi * Xsi ;
113
114
115
116
118 Lept0E * Lept1E * Xsi / (121. * GammaE);
120
121 if(delta < 0.5) {
122 GG = std::log(2.* Lept0E * Lept1E / GammaE) - 2. -
fCoul;
123 }
124 else if ( delta < 120) {
125 for (
G4int j=2; j<=19; j++) {
126 if(SCRN[1][j] >= delta) {
127 GG =std::log(2 * Lept0E * Lept1E / GammaE) - 2 -
fCoul
128 -(SCRN[2][j-1]+(delta-SCRN[1][j-1])*(SCRN[2][j]-SCRN[2][j-1])
129 /(SCRN[1][j]-SCRN[1][j-1]));
130 break;
131 }
132 }
133 }
134 else {
135 G4double alpha_sc = (111 * std::pow(
theZ, -1./3.)) / Xsi;
136 GG = std::log(alpha_sc)- 2 -
fCoul;
137 }
138
139 if(GG<-1) GG=-1;
140
141 G4double I_Lept = (Lept0E2 + Lept1E2) * (3.+2.*GG) - 2 * Lept0E * Lept1E * (1. + 4. * u2 * Xsi2 * GG);
142 G4double F_Lept = Lept1E * 4. * GammaE * u * Xsi * (1. - 2 * Xsi) * GG / I_Lept;
143 G4double E_Lept = Lept0E * 4. * GammaE * u * Xsi * (2. * Xsi - 1.) * GG / I_Lept;
144 G4double M_Lept = 4. * Lept0E * Lept1E * (1. + GG - 2. * Xsi2 * u2 * GG) / I_Lept ;
145 G4double P_Lept = GammaE2 * (1. + 8. * GG * (Xsi - 0.5)*(Xsi - 0.5)) / I_Lept ;
146
147 G4double Stokes_SS1 = M_Lept * Stokes_S1 + E_Lept * Stokes_S3;
148 G4double Stokes_SS2 = M_Lept * Stokes_S2 ;
149 G4double Stokes_SS3 = (M_Lept + P_Lept) * Stokes_S3 + F_Lept * Stokes_S1;
150
151 theFinalLeptonPolarization.
setX(Stokes_SS1);
152 theFinalLeptonPolarization.
setY(Stokes_SS2);
153 theFinalLeptonPolarization.
setZ(Stokes_SS3);
154
155 if(theFinalLeptonPolarization.
mag2()>1) {
156 G4cout<<
" WARNING in pol-brem theFinalLeptonPolarization \n";
158 <<"\t"<<theFinalLeptonPolarization
159 <<"\t GG\t"<<GG
160 <<"\t delta\t"<<delta
162 theFinalLeptonPolarization.
setX(0);
163 theFinalLeptonPolarization.
setY(0);
164 theFinalLeptonPolarization.
setZ(Stokes_SS3);
165 if(Stokes_SS3>1) theFinalLeptonPolarization.
setZ(1);
166 }
167
168
169 G4double I_Gamma = (Lept0E2 + Lept1E2)*(3+2*GG) - 2 * Lept0E * Lept1E * (1 + 4 * u2 * Xsi2 * GG);
170 G4double D_Gamma = 8 * Lept0E * Lept1E * u2 * Xsi2 * GG / I_Gamma;
171 G4double L_Gamma = GammaE * ((Lept0E + Lept1E) * (3 + 2 * GG)
172 - 2 * Lept1E * (1 + 4 * u2 * Xsi2 * GG))/I_Gamma;
173 G4double T_Gamma = 4 * GammaE * Lept1E * Xsi * u * (2 * Xsi - 1) * GG / I_Gamma ;
174
177 G4double Stokes_P3 = (Stokes_S3*L_Gamma + Stokes_S1*T_Gamma) ;
178
180
181 theFinalGammaPolarization.
setX(Stokes_P1);
182 theFinalGammaPolarization.
setY(Stokes_P2);
183 theFinalGammaPolarization.
setZ(Stokes_P3);
184
185 if(theFinalGammaPolarization.
mag2()>1) {
186 G4cout<<
" WARNING in pol-brem theFinalGammaPolarization \n";
188 <<"\t"<<theFinalGammaPolarization
189 <<"\t GG\t"<<GG
190 <<"\t delta\t"<<delta
192 }
193}
G4DLLIMPORT std::ostream G4cout