52 G4cout<<
"Regular transparent X-ray TR radiator EM process is called"<<
G4endl;
76 G4double result,
sum = 0.,
tmp, cof1, cof2, cofMin, cofPHC,aMa, bMb, sigma;
106 kMin =
G4int(cofMin);
107 if (cofMin > kMin) kMin++;
122 for( k = kMin; k <=
kMax; k++ )
125 result = (k - cof1)*(k - cof1)*(k + cof2)*(k + cof2);
127 if( k == kMin && kMin ==
G4int(cofMin) )
129 sum += 0.5*sin(tmp)*sin(tmp)*
std::abs(k-cofMin)/result;
133 sum += sin(tmp)*sin(tmp)*
std::abs(k-cofMin)/result;
137 result = 4.*( cof1 + cof2 )*( cof1 + cof2 )*sum/
energy;
138 result *= ( 1. - exp(-
fPlateNumber*sigma) )/( 1. - exp(-sigma) );
182 G4double result, Qa, Qb,
Q, aZa, bZb, aMa, bMb,
D, sigma;
193 G4complex Ha( Qa*cos(aZa), -Qa*sin(aZa) );
194 G4complex Hb( Qb*cos(bZb), -Qb*sin(bZb) );
197 D = 1.0 /( (1 -
Q)*(1 - Q) +
198 4*Q*sin(0.5*(aZa + bZb))*sin(0.5*(aZa + bZb)) );
201 G4complex F2 = (1.0 - Ha)*(1.0 - Ha)*Hb*(1.0 - Hs)*(1.0 - Hs)
205 result = 2.0*real(R);