| Geant4 Cross Reference |
1 // 1 //
2 // ******************************************* 2 // ********************************************************************
3 // * License and Disclaimer 3 // * License and Disclaimer *
4 // * 4 // * *
5 // * The Geant4 software is copyright of th 5 // * The Geant4 software is copyright of the Copyright Holders of *
6 // * the Geant4 Collaboration. It is provided 6 // * the Geant4 Collaboration. It is provided under the terms and *
7 // * conditions of the Geant4 Software License 7 // * conditions of the Geant4 Software License, included in the file *
8 // * LICENSE and available at http://cern.ch/ 8 // * LICENSE and available at http://cern.ch/geant4/license . These *
9 // * include a list of copyright holders. 9 // * include a list of copyright holders. *
10 // * 10 // * *
11 // * Neither the authors of this software syst 11 // * Neither the authors of this software system, nor their employing *
12 // * institutes,nor the agencies providing fin 12 // * institutes,nor the agencies providing financial support for this *
13 // * work make any representation or warran 13 // * work make any representation or warranty, express or implied, *
14 // * regarding this software system or assum 14 // * regarding this software system or assume any liability for its *
15 // * use. Please see the license in the file 15 // * use. Please see the license in the file LICENSE and URL above *
16 // * for the full disclaimer and the limitatio 16 // * for the full disclaimer and the limitation of liability. *
17 // * 17 // * *
18 // * This code implementation is the result 18 // * This code implementation is the result of the scientific and *
19 // * technical work of the GEANT4 collaboratio 19 // * technical work of the GEANT4 collaboration. *
20 // * By using, copying, modifying or distri 20 // * By using, copying, modifying or distributing the software (or *
21 // * any work based on the software) you ag 21 // * any work based on the software) you agree to acknowledge its *
22 // * use in resulting scientific publicati 22 // * use in resulting scientific publications, and indicate your *
23 // * acceptance of all terms of the Geant4 Sof 23 // * acceptance of all terms of the Geant4 Software license. *
24 // ******************************************* 24 // ********************************************************************
25 // 25 //
26 // G4DELPHIMagField implementation <<
27 // 26 //
28 // Created: V.Grichine - 03.02.1997 << 27 // $Id: G4DELPHIMagField.cc 97486 2016-06-03 10:45:04Z gcosmo $
29 // ------------------------------------------- 28 // -------------------------------------------------------------------
30 29
31 #include "G4DELPHIMagField.hh" 30 #include "G4DELPHIMagField.hh"
32 #include "globals.hh" 31 #include "globals.hh"
33 #include "G4SystemOfUnits.hh" 32 #include "G4SystemOfUnits.hh"
34 33
35 G4DELPHIMagField::G4DELPHIMagField() = default << 34 G4DELPHIMagField::G4DELPHIMagField()
36 << 35 {
37 ////////////////////////////////////////////// << 36 }
38 <<
39 G4DELPHIMagField::~G4DELPHIMagField() = defaul <<
40 <<
41 ////////////////////////////////////////////// <<
42 37
43 G4Field* G4DELPHIMagField::Clone() const 38 G4Field* G4DELPHIMagField::Clone() const
44 { 39 {
45 return new G4DELPHIMagField; 40 return new G4DELPHIMagField;
46 } 41 }
>> 42 ////////////////////////////////////////////////////////////////////////
>> 43
>> 44 G4DELPHIMagField::~G4DELPHIMagField()
>> 45 {
>> 46 }
47 47
48 ////////////////////////////////////////////// 48 ///////////////////////////////////////////////////////////////////////
49 49
50 void G4DELPHIMagField::GetFieldValue( const G4 << 50
51 G4 << 51 void G4DELPHIMagField::GetFieldValue( const G4double yTrack[7],
>> 52 G4double B[3] ) const
52 { 53 {
53 G4int i, n = 8 ; 54 G4int i, n = 8 ;
54 G4double a = 0.001 ; // mm -> m 55 G4double a = 0.001 ; // mm -> m
55 G4double x = a*yTrack[0], y = a*yTrack[1], 56 G4double x = a*yTrack[0], y = a*yTrack[1], z = a*yTrack[2] ;
56 G4double x2 = x*x, y2 = y*y, z2 = z*z, r2 = 57 G4double x2 = x*x, y2 = y*y, z2 = z*z, r2 = x2 + y2 ;
57 G4double r4 = r2*r2, z4 = z2*z2, r6 = r4*r2 58 G4double r4 = r2*r2, z4 = z2*z2, r6 = r4*r2, z6 = z4*z2 ;
58 G4double r8 = r4*r4, z8 = z4*z4, r10 = r8*r 59 G4double r8 = r4*r4, z8 = z4*z4, r10 = r8*r2, z10 = z8*z2 ;
59 G4double rz = z*std::sqrt(r2), r = std::sqr 60 G4double rz = z*std::sqrt(r2), r = std::sqrt(r2+a*a) ;
60 G4double Br ; 61 G4double Br ;
61 G4double P[8], Q[8] ; 62 G4double P[8], Q[8] ;
62 static G4ThreadLocal G4double c[8] = << 63 static G4ThreadLocal G4double c[8] = {
63 { <<
64 -9.26e-5, -3.51e-5 64 -9.26e-5, -3.51e-5, 2.94e-6, -1.10e-6,
65 6.25e-8, -1.77e-8 65 6.25e-8, -1.77e-8, -6.88e-10, -7.52e-11
66 } ; 66 } ;
67 P[0] = 2*rz ; 67 P[0] = 2*rz ;
68 P[1] = 4*rz*(r2 - 4.0*z2/3.0) ; 68 P[1] = 4*rz*(r2 - 4.0*z2/3.0) ;
69 P[2] = 6*rz*(r4 - 4*r2*z2 + 1.6*z4) ; 69 P[2] = 6*rz*(r4 - 4*r2*z2 + 1.6*z4) ;
70 P[3] = 8*rz*(r6 - 8*r4*z2 + 9.6*r2*z4 - 64. 70 P[3] = 8*rz*(r6 - 8*r4*z2 + 9.6*r2*z4 - 64.0*z6/35.0) ;
71 P[4] = 10*rz*(r8 - 40.0*r6*z2/3.0 + 32*r4*z 71 P[4] = 10*rz*(r8 - 40.0*r6*z2/3.0 + 32*r4*z4
72 - 128.0*r2*z6/7.0 + 128.0* 72 - 128.0*r2*z6/7.0 + 128.0*z8/63.0);
73 P[5] = 0 ; 73 P[5] = 0 ;
74 P[6] = 0 ; 74 P[6] = 0 ;
75 P[7] = 0 ; 75 P[7] = 0 ;
76 76
77 Q[0] = r2 - 2*z2 ; 77 Q[0] = r2 - 2*z2 ;
78 Q[1] = r4 - 8*r2*z2 + 8.0*z4/3.0 ; 78 Q[1] = r4 - 8*r2*z2 + 8.0*z4/3.0 ;
79 Q[2] = r6 - 18*r4*z2 + 24*r2*z4 - 3.2*z6 ; 79 Q[2] = r6 - 18*r4*z2 + 24*r2*z4 - 3.2*z6 ;
80 Q[3] = r8 - 32*r6*z2 + 96*r4*z4 - 51.2*r2*z 80 Q[3] = r8 - 32*r6*z2 + 96*r4*z4 - 51.2*r2*z6 +128.0*z8/35.0 ;
81 Q[4] = r10 - 50*r8*z2 + 800.0*r6*z4/3.0 - 3 81 Q[4] = r10 - 50*r8*z2 + 800.0*r6*z4/3.0 - 320*r4*z6
82 + 640.0*r2*z8/7.0 - 256.0*z10/63.0 ; 82 + 640.0*r2*z8/7.0 - 256.0*z10/63.0 ;
83 Q[5] = 0 ; 83 Q[5] = 0 ;
84 Q[6] = 0 ; 84 Q[6] = 0 ;
85 Q[7] = 0 ; 85 Q[7] = 0 ;
86 86
87 Br = 0 ; 87 Br = 0 ;
88 B[2] = 1.2*tesla ; // the principal Bz 88 B[2] = 1.2*tesla ; // the principal Bz value of DELPHI detector
89 for(i=0; i<n; ++i) << 89 for(i=0;i<n;i++)
90 { 90 {
91 Br += c[i]*P[i] ; 91 Br += c[i]*P[i] ;
92 B[2] += c[i]*Q[i] ; 92 B[2] += c[i]*Q[i] ;
93 } 93 }
94 B[0] = Br*x/r ; 94 B[0] = Br*x/r ;
95 B[1] = Br*y/r ; 95 B[1] = Br*y/r ;
96 return ; 96 return ;
97 } 97 }
98 98
99 // ------------------------------------------- 99 // -----------------------------------------------------------------
100 100