00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038 #include "G4EqEMFieldWithEDM.hh"
00039 #include "G4ElectroMagneticField.hh"
00040 #include "G4ThreeVector.hh"
00041 #include "globals.hh"
00042 #include "G4PhysicalConstants.hh"
00043 #include "G4SystemOfUnits.hh"
00044
00045 G4EqEMFieldWithEDM::G4EqEMFieldWithEDM(G4ElectroMagneticField *emField )
00046 : G4EquationOfMotion( emField ), fElectroMagCof(0.), fMassCof(0.),
00047 omegac(0.), anomaly(0.0011659208), eta(0.), pcharge(0.), E(0.),
00048 gamma(0.), beta(0.)
00049 {
00050 }
00051
00052 G4EqEMFieldWithEDM::~G4EqEMFieldWithEDM()
00053 {
00054 }
00055
00056 void
00057 G4EqEMFieldWithEDM::SetChargeMomentumMass(G4double particleCharge,
00058 G4double MomentumXc,
00059 G4double particleMass)
00060 {
00061 fElectroMagCof = eplus*particleCharge*c_light ;
00062 fMassCof = particleMass*particleMass ;
00063
00064 omegac = (eplus/particleMass)*c_light;
00065
00066 pcharge = particleCharge;
00067
00068 E = std::sqrt(sqr(MomentumXc)+sqr(particleMass));
00069 beta = MomentumXc/E;
00070 gamma = E/particleMass;
00071
00072 }
00073
00074 void
00075 G4EqEMFieldWithEDM::EvaluateRhsGivenB(const G4double y[],
00076 const G4double Field[],
00077 G4double dydx[] ) const
00078 {
00079
00080
00081
00082
00083
00084
00085
00086
00087
00088
00089
00090
00091
00092
00093
00094
00095
00096
00097
00098
00099
00100
00101
00102
00103
00104
00105
00106 G4double pSquared = y[3]*y[3] + y[4]*y[4] + y[5]*y[5] ;
00107
00108 G4double Energy = std::sqrt( pSquared + fMassCof );
00109 G4double cof2 = Energy/c_light ;
00110
00111 G4double pModuleInverse = 1.0/std::sqrt(pSquared) ;
00112
00113 G4double inverse_velocity = Energy * pModuleInverse / c_light;
00114
00115 G4double cof1 = fElectroMagCof*pModuleInverse ;
00116
00117 dydx[0] = y[3]*pModuleInverse ;
00118 dydx[1] = y[4]*pModuleInverse ;
00119 dydx[2] = y[5]*pModuleInverse ;
00120
00121 dydx[3] = cof1*(cof2*Field[3] + (y[4]*Field[2] - y[5]*Field[1])) ;
00122
00123 dydx[4] = cof1*(cof2*Field[4] + (y[5]*Field[0] - y[3]*Field[2])) ;
00124
00125 dydx[5] = cof1*(cof2*Field[5] + (y[3]*Field[1] - y[4]*Field[0])) ;
00126
00127 dydx[6] = dydx[8] = 0.;
00128
00129
00130 dydx[7] = inverse_velocity;
00131
00132 G4ThreeVector BField(Field[0],Field[1],Field[2]);
00133 G4ThreeVector EField(Field[3],Field[4],Field[5]);
00134
00135 EField /= c_light;
00136
00137 G4ThreeVector u(y[3], y[4], y[5]);
00138 u *= pModuleInverse;
00139
00140 G4double udb = anomaly*beta*gamma/(1.+gamma) * (BField * u);
00141 G4double ucb = (anomaly+1./gamma)/beta;
00142 G4double uce = anomaly + 1./(gamma+1.);
00143 G4double ude = beta*gamma/(1.+gamma)*(EField*u);
00144
00145 G4ThreeVector Spin(y[9],y[10],y[11]);
00146
00147 G4ThreeVector dSpin
00148 = pcharge*omegac*( ucb*(Spin.cross(BField))-udb*(Spin.cross(u))
00149
00150
00151
00152 - uce*(u*(Spin*EField) - EField*(Spin*u))
00153 + eta/2.*(Spin.cross(EField) - ude*(Spin.cross(u))
00154
00155 + (u*(Spin*BField) - BField*(Spin*u)) ) );
00156
00157 dydx[ 9] = dSpin.x();
00158 dydx[10] = dSpin.y();
00159 dydx[11] = dSpin.z();
00160
00161 return ;
00162 }