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 #include "G4HarmonicPolMagField.hh"
00032 #include "globals.hh"
00033
00034 G4HarmonicPolMagField::G4HarmonicPolMagField()
00035 {
00036 }
00037
00039
00040 G4HarmonicPolMagField::~G4HarmonicPolMagField()
00041 {
00042 }
00043
00045
00046
00047 void G4HarmonicPolMagField::GetFieldValue(const G4double yTrack[7],
00048 G4double B[3] ) const
00049 {
00050 G4int i ;
00051 G4double a = 1.00 ;
00052 G4double x = a*yTrack[0], y = a*yTrack[1], z = a*yTrack[2] ;
00053 G4double x2 = x*x, y2 = y*y, z2 = z*z ;
00054 G4double x3 = x2*x, y3 = y2*y, z3 = z2*z ;
00055 G4double xy = x*y, xz = x*z, yz = y*z, xyz = x*y*z ;
00056 static G4double
00057 c[24] = {
00058 .010, .010, .010,
00059 .0001, .0001, .0001, .0001, .0001,
00060 .00001, .00001, .00001, .00001, .00001, .00001, .00001,
00061 .000001, .000001, .000001, .000001, .000001, .000001,
00062 .0000001, .0000001, .0000001
00063 } ;
00064
00065
00066
00067
00068
00069 B[0] = c[1]
00070 -2*c[3]*x + c[4]*z +c[6]*y -2*c[7]*x
00071 -6*c[8]*xz + c[9]*(z2-x2) -2*c[10]*xy + c[11]*yz - 2*c[12]*xz
00072 +c[13]*(y2-x2) - 6*c[14]*xy
00073 -4*c[15]*(3*x*z2-x3) +c[16]*(z3-3*x2*z) - 6*c[17]*xyz +c[18]*y*(z2-x2)
00074 -2*c[19]*(x*z2+x*y2-2*x3/3) + c[20]*z*(y2-x2) - 6*c[21]*xyz
00075 +c[22]*(y3-3*x2*y) - 4*c[23]*(3*x*y2-x3) ;
00076
00077 B[1] = c[2]
00078 +c[5]*z + c[6]*x + 2*c[7]*y
00079 +c[10]*(z2-x2) + c[11]*xz +2*c[12]*yz +2*c[13]*xy + 3*c[14]*(y2-x2)
00080 +c[17]*(z3-3*x2*z) + c[18]*(x*z2-x3/3) +2*c[19]*y*(z2-x2)
00081 +2*c[20]*xyz
00082 +3*c[21]*z*(y2-x2) + c[22]*(3*x*y2-x3) + 4*c[23]*(y3-3*x2*y) ;
00083
00084 B[2] = c[0]
00085 +c[3]*z + c[4]*x + c[5]*y
00086 +3*c[8]*(z2-x2) + 2*c[9]*xz + 2*c[10]*yz + c[11]*xy + c[12]*(y2-x2)
00087 +4*c[15]*(z3-3*x2*z) + c[16]*(3*x*z2-x3) + 3*c[17]*(y*z2-x2*y)
00088 +2*c[18]*xyz
00089 +2*c[19]*z*(y2-x2) + c[20]*(x*y2-x3/3) + c[21]*(y3-3*x2*y) ;
00090 for(i=0;i<3;i++)
00091 {
00092 B[i] = 0.1*B[i] ;
00093 }
00094 }
00095
00096