270{
271
274
276
278
279
280 if(kout > (Eel-electron_mass_c2)){
281 dsdkdt_value = 0;
282 return dsdkdt_value;
283 }
284
288
289 if(E <= 1*MeV ){
290 dsdkdt_value = 0;
291 return dsdkdt_value;
292 }
293
294
297 G4double LL = std::log((E*E0-1+p*p0)/(E*E0-1-p*p0));
298 G4double delta0 = E0 - p0*std::cos(theta);
301 G4double sintheta2 = std::sin(theta)*std::sin(theta);
307 G4double delta04 = delta02* delta02;
308 G4double Q = std::sqrt(p02+k2-2*k*p0*std::cos(theta));
310 G4double epsilonQ = std::log((Q+p)/(Q-p));
311
312
313 dsdkdt_value = Z2 * (r02/(8*
pi*137)) * (1/k) * (p/p0) *
314 ( (8 * (sintheta2*(2*E02+1))/(p02*delta04)) -
315 ((2*(5*E02+2*E*E0+3))/(p02 * delta02)) -
316 ((2*(p02-k2))/((Q2*delta02))) +
317 ((4*E)/(p02*delta0)) +
318 (LL/(p*p0))*(
319 ((4*E0*sintheta2*(3*k-p02*E))/(p02*delta04)) +
320 ((4*E02*(E02+E2))/(p02*delta02)) +
321 ((2-2*(7*E02-3*E*E0+E2))/(p02*delta02)) +
322 (2*k*(E02+E*E0-1))/((p02*delta0))
323 ) -
325 ((epsilonQ)/(p*Q))*
326 (4/delta02-(6*k/delta0)-(2*k*(p02-k2))/(Q2*delta0))
327 );
328
329
330
331 dsdkdt_value = dsdkdt_value*std::sin(theta);
332 return dsdkdt_value;
333}
double epsilon(double density, double temperature)