Calculates the value of the derivative, given the value of the field.
82{
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109 G4double momentum_mag_square = y[3]*y[3] + y[4]*y[4] + y[5]*y[5];
110 G4double inv_momentum_magnitude = 1.0 / std::sqrt( momentum_mag_square );
111
112 G4double Energy = std::sqrt(momentum_mag_square + mass*mass);
113 G4double inverse_velocity = Energy*inv_momentum_magnitude/c_light;
114
115 G4double cof1 = ElectroMagCof*inv_momentum_magnitude;
117 G4double cof3 = inv_momentum_magnitude*mass;
118
119 dydx[0] = y[3]*inv_momentum_magnitude;
120 dydx[1] = y[4]*inv_momentum_magnitude;
121 dydx[2] = y[5]*inv_momentum_magnitude;
122
123 dydx[3] = 0.;
124 dydx[4] = 0.;
125 dydx[5] = 0.;
126
127 G4double field[18] = {0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.};
128
129 field[0] = Field[0];
130 field[1] = Field[1];
131 field[2] = Field[2];
132
133
134
135 if (fBfield)
136 {
137 if (charge != 0.)
138 {
139 dydx[3] += cof1*(y[4]*field[2] - y[5]*field[1]);
140 dydx[4] += cof1*(y[5]*field[0] - y[3]*field[2]);
141 dydx[5] += cof1*(y[3]*field[1] - y[4]*field[0]);
142 }
143 }
144
145
146
147 if (!fBfield)
148 {
149 field[3] = Field[0];
150 field[4] = Field[1];
151 field[5] = Field[2];
152 }
153 else
154 {
155 field[3] = Field[3];
156 field[4] = Field[4];
157 field[5] = Field[5];
158 }
159
160 if (fEfield)
161 {
162 if (charge != 0.)
163 {
164 dydx[3] += cof1*cof2*field[3];
165 dydx[4] += cof1*cof2*field[4];
166 dydx[5] += cof1*cof2*field[5];
167 }
168 }
169
170
171
172 if (!fBfield && !fEfield)
173 {
174 field[6] = Field[0];
175 field[7] = Field[1];
176 field[8] = Field[2];
177 }
178 else
179 {
180 field[6] = Field[6];
181 field[7] = Field[7];
182 field[8] = Field[8];
183 }
184
185 if (fGfield)
186 {
187 if (mass > 0.)
188 {
189 dydx[3] += field[6]*cof2*cof3/c_light;
190 dydx[4] += field[7]*cof2*cof3/c_light;
191 dydx[5] += field[8]*cof2*cof3/c_light;
192 }
193 }
194
195
196
197 if (!fBfield && !fEfield && !fGfield)
198 {
199 field[9] = Field[0];
200 field[10] = Field[1];
201 field[11] = Field[2];
202 field[12] = Field[3];
203 field[13] = Field[4];
204 field[14] = Field[5];
205 field[15] = Field[6];
206 field[16] = Field[7];
207 field[17] = Field[8];
208 }
209 else
210 {
211 field[9] = Field[9];
212 field[10] = Field[10];
213 field[11] = Field[11];
214 field[12] = Field[12];
215 field[13] = Field[13];
216 field[14] = Field[14];
217 field[15] = Field[15];
218 field[16] = Field[16];
219 field[17] = Field[17];
220 }
221
222 if (fgradB)
223 {
224 if (magMoment != 0.)
225 {
226 dydx[3] += magMoment*(y[9]*field[ 9]+y[10]*field[10]+y[11]*field[11])
227 *inv_momentum_magnitude*Energy;
228 dydx[4] += magMoment*(y[9]*field[12]+y[10]*field[13]+y[11]*field[14])
229 *inv_momentum_magnitude*Energy;
230 dydx[5] += magMoment*(y[9]*field[15]+y[10]*field[16]+y[11]*field[17])
231 *inv_momentum_magnitude*Energy;
232 }
233 }
234
235 dydx[6] = 0.;
236
237
238
239 dydx[7] = inverse_velocity;
240
241 if (fNvar == 12)
242 {
243 dydx[ 8] = 0.;
244
245 dydx[ 9] = 0.;
246 dydx[10] = 0.;
247 dydx[11] = 0.;
248 }
249
250 if (fSpin)
251 {
253 if (fBfield)
254 {
256 BField = F;
257 }
258
260 if (fEfield)
261 {
263 EField = F;
264 }
265
266 EField /= c_light;
267
269 u *= inv_momentum_magnitude;
270
271 G4double udb = anomaly*beta*gamma/(1.+gamma) * (BField * u);
272 G4double ucb = (anomaly+1./gamma)/beta;
273 G4double uce = anomaly + 1./(gamma+1.);
274
276
278 if (charge == 0.)
279 {
280 pcharge = 1.;
281 }
282 else
283 {
284 pcharge = charge;
285 }
286
288 if (
Spin.mag2() != 0.)
289 {
290 if (fBfield)
291 {
292 dSpin =
293 pcharge*omegac*( ucb*(
Spin.cross(BField))-udb*(
Spin.cross(u)) );
294 }
295 if (fEfield)
296 {
297 dSpin -= pcharge*omegac*( uce*(u*(
Spin*EField) - EField*(
Spin*u)) );
298
299
300
301 }
302 }
303
304 dydx[ 9] = dSpin.x();
305 dydx[10] = dSpin.y();
306 dydx[11] = dSpin.z();
307 }
308
309 return;
310}
CLHEP::Hep3Vector G4ThreeVector