51 SCRN [1][1]= 0.5 ;
SCRN [2][1] = 0.0145;
52 SCRN [1][2]= 1.0 ;
SCRN [2][2] = 0.0490;
53 SCRN [1][3]= 2.0 ;
SCRN [2][3] = 0.1400;
54 SCRN [1][4]= 4.0 ;
SCRN [2][4] = 0.3312;
55 SCRN [1][5]= 8.0 ;
SCRN [2][5] = 0.6758;
56 SCRN [1][6]= 15.0 ;
SCRN [2][6] = 1.126;
57 SCRN [1][7]= 20.0 ;
SCRN [2][7] = 1.367;
58 SCRN [1][8]= 25.0 ;
SCRN [2][8] = 1.564;
59 SCRN [1][9]= 30.0 ;
SCRN [2][9] = 1.731;
60 SCRN [1][10]= 35.0 ;
SCRN [2][10]= 1.875;
61 SCRN [1][11]= 40.0 ;
SCRN [2][11]= 2.001;
62 SCRN [1][12]= 45.0 ;
SCRN [2][12]= 2.114;
63 SCRN [1][13]= 50.0 ;
SCRN [2][13]= 2.216;
64 SCRN [1][14]= 60.0 ;
SCRN [2][14]= 2.393;
65 SCRN [1][15]= 70.0 ;
SCRN [2][15]= 2.545;
66 SCRN [1][16]= 80.0 ;
SCRN [2][16]= 2.676;
67 SCRN [1][17]= 90.0 ;
SCRN [2][17]= 2.793;
68 SCRN [1][18]= 100.0 ;
SCRN [2][18]= 2.897;
69 SCRN [1][19]= 120.0 ;
SCRN [2][19]= 3.078;
93 G4double aLept1E = aLept0E - aGammaE;
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 ;
110 G4double TMom = std::sqrt(Lept0E2 -1.)* sintheta;
112 G4double Xsi = 1./(1.+u2) , Xsi2 = Xsi * Xsi ;
118 Lept0E * Lept1E * Xsi / (121. * GammaE);
122 GG = std::log(2.* Lept0E * Lept1E / GammaE) - 2. -
fCoul;
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
135 G4double alpha_sc = (111. * std::pow(
theZ, -1./3.)) / Xsi;
136 GG = std::log(alpha_sc)- 2. -
fCoul;
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 ;
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;
156 G4cout<<
" WARNING in pol-brem theFinalLeptonPolarization \n";
160 <<
"\t delta\t"<<delta
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 ;
177 G4double Stokes_P3 = (Stokes_S3*L_Gamma + Stokes_S1*T_Gamma) ;
186 G4cout<<
" WARNING in pol-brem theFinalGammaPolarization \n";
190 <<
"\t delta\t"<<delta
198 G4cout<<
"ERROR dummy routine G4PolarizedBremsstrahlungCrossSection::XSection called \n";
G4PolarizedBremsstrahlungCrossSection()
static G4bool scrnInitialized
static constexpr double electron_mass_c2
G4StokesVector GetPol2() override
G4StokesVector theFinalGammaPolarization
static G4double SCRN[3][20]
virtual void Initialize(G4double eps, G4double X, G4double phi, const G4StokesVector &p0, const G4StokesVector &p1, G4int flag=0) override
G4StokesVector GetPol3() override
virtual G4double XSection(const G4StokesVector &pol2, const G4StokesVector &pol3) override
G4StokesVector theFinalLeptonPolarization
G4GLOB_DLL std::ostream G4cout