| 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 26
27 #include "G4ErrorEnergyLoss.hh" 27 #include "G4ErrorEnergyLoss.hh"
28 #include "G4EnergyLossForExtrapolator.hh" <<
29 #include "G4ErrorPropagatorData.hh" 28 #include "G4ErrorPropagatorData.hh"
>> 29 #include "G4EnergyLossForExtrapolator.hh"
30 30
31 //-------------------------------------------- 31 //-------------------------------------------------------------------
32 G4ErrorEnergyLoss::G4ErrorEnergyLoss(const G4S 32 G4ErrorEnergyLoss::G4ErrorEnergyLoss(const G4String& processName,
33 G4ProcessType type) 33 G4ProcessType type)
34 : G4VContinuousProcess(processName, type) << 34 : G4VContinuousProcess(processName, type)
35 { 35 {
36 if (verboseLevel>2) { 36 if (verboseLevel>2) {
37 G4cout << GetProcessName() << " is created 37 G4cout << GetProcessName() << " is created " << G4endl;
38 } 38 }
39 39
40 theELossForExtrapolator = new G4EnergyLossFo 40 theELossForExtrapolator = new G4EnergyLossForExtrapolator;
41 theStepLimit = 1.*CLHEP::mm; << 41
>> 42 theStepLimit = 1.;
42 } 43 }
43 44
44 //-------------------------------------------- 45 //-------------------------------------------------------------------
45 void G4ErrorEnergyLoss::InstantiateEforExtrapo 46 void G4ErrorEnergyLoss::InstantiateEforExtrapolator()
46 {} 47 {}
47 48
>> 49
48 //-------------------------------------------- 50 //-------------------------------------------------------------------
49 G4ErrorEnergyLoss::~G4ErrorEnergyLoss() 51 G4ErrorEnergyLoss::~G4ErrorEnergyLoss()
50 { 52 {
51 delete theELossForExtrapolator; 53 delete theELossForExtrapolator;
52 } 54 }
53 55
54 //-------------------------------------------- 56 //-------------------------------------------------------------------
55 <<
56 G4bool G4ErrorEnergyLoss::IsApplicable(const G <<
57 { <<
58 return (aParticleType.GetPDGCharge() != 0); <<
59 } <<
60 <<
61 //-------------------------------------------- <<
62 G4VParticleChange* 57 G4VParticleChange*
63 G4ErrorEnergyLoss::AlongStepDoIt(const G4Track 58 G4ErrorEnergyLoss::AlongStepDoIt(const G4Track& aTrack, const G4Step& aStep)
64 { 59 {
65 aParticleChange.Initialize(aTrack); 60 aParticleChange.Initialize(aTrack);
66 61
67 G4ErrorPropagatorData* g4edata = G4ErrorProp << 62 G4ErrorPropagatorData* g4edata = G4ErrorPropagatorData::GetErrorPropagatorData();
68 63
69 G4double kinEnergyStart = aTrack.GetKineticE 64 G4double kinEnergyStart = aTrack.GetKineticEnergy();
70 G4double step_length = aStep.GetStepLength( 65 G4double step_length = aStep.GetStepLength();
71 66
72 const G4Material* aMaterial = aTrack.GetMate 67 const G4Material* aMaterial = aTrack.GetMaterial();
73 const G4ParticleDefinition* aParticleDef = a 68 const G4ParticleDefinition* aParticleDef = aTrack.GetDynamicParticle()->GetDefinition();
74 G4double kinEnergyEnd = kinEnergyStart; 69 G4double kinEnergyEnd = kinEnergyStart;
75 70
76 // backward - energy increased <<
77 if( g4edata->GetMode() == G4ErrorMode(G4Erro 71 if( g4edata->GetMode() == G4ErrorMode(G4ErrorMode_PropBackwards) ) {
78 kinEnergyEnd = theELossForExtrapolator->En 72 kinEnergyEnd = theELossForExtrapolator->EnergyBeforeStep( kinEnergyStart,
79 step_length, 73 step_length,
80 aMaterial, 74 aMaterial,
81 aParticleDef ); 75 aParticleDef );
82 G4double kinEnergyHalfStep = (kinEnergySta << 76 G4double kinEnergyHalfStep = kinEnergyStart - (kinEnergyStart-kinEnergyEnd)/2.;
83 77
84 #ifdef G4VERBOSE 78 #ifdef G4VERBOSE
85 if(G4ErrorPropagatorData::verbose() >= 3 ) 79 if(G4ErrorPropagatorData::verbose() >= 3 )
86 G4cout << " G4ErrorEnergyLoss FWD end " < 80 G4cout << " G4ErrorEnergyLoss FWD end " << kinEnergyEnd
87 << " halfstep " << kinEnergyHalfStep << G 81 << " halfstep " << kinEnergyHalfStep << G4endl;
88 #endif 82 #endif
89 83
90 //--- rescale to energy lost at 1/2 step 84 //--- rescale to energy lost at 1/2 step
91 kinEnergyEnd = theELossForExtrapolator->En 85 kinEnergyEnd = theELossForExtrapolator->EnergyBeforeStep( kinEnergyHalfStep,
92 step_length, 86 step_length,
93 aMaterial, 87 aMaterial,
94 aParticleDef ); 88 aParticleDef );
95 kinEnergyEnd = kinEnergyStart - (kinEnergy 89 kinEnergyEnd = kinEnergyStart - (kinEnergyHalfStep - kinEnergyEnd );
96 << 90 }else if( g4edata->GetMode() == G4ErrorMode(G4ErrorMode_PropForwards) ) {
97 // forward - energy decreased <<
98 } else { <<
99 kinEnergyEnd = theELossForExtrapolator->En 91 kinEnergyEnd = theELossForExtrapolator->EnergyAfterStep( kinEnergyStart,
100 step_length, 92 step_length,
101 aMaterial, 93 aMaterial,
102 aParticleDef ); 94 aParticleDef );
103 G4double kinEnergyHalfStep = (kinEnergySta << 95 G4double kinEnergyHalfStep = kinEnergyStart - (kinEnergyStart-kinEnergyEnd)/2.;
104 #ifdef G4VERBOSE 96 #ifdef G4VERBOSE
105 if(G4ErrorPropagatorData::verbose() >= 3 ) 97 if(G4ErrorPropagatorData::verbose() >= 3 )
106 G4cout << " G4ErrorEnergyLoss BCKD end " 98 G4cout << " G4ErrorEnergyLoss BCKD end " << kinEnergyEnd
107 << " halfstep " << kinEnergyHalfStep << G 99 << " halfstep " << kinEnergyHalfStep << G4endl;
108 #endif 100 #endif
109 101
110 //--- rescale to energy lost at 1/2 step 102 //--- rescale to energy lost at 1/2 step
111 kinEnergyEnd = theELossForExtrapolator->En 103 kinEnergyEnd = theELossForExtrapolator->EnergyAfterStep( kinEnergyHalfStep,
112 step_length, 104 step_length,
113 aMaterial, 105 aMaterial,
114 aParticleDef ); 106 aParticleDef );
115 kinEnergyEnd = kinEnergyStart - (kinEnergy 107 kinEnergyEnd = kinEnergyStart - (kinEnergyHalfStep - kinEnergyEnd );
116 } 108 }
117 109
118 G4double edepo = kinEnergyEnd - kinEnergySta 110 G4double edepo = kinEnergyEnd - kinEnergyStart;
119 111
120 #ifdef G4VERBOSE 112 #ifdef G4VERBOSE
121 if( G4ErrorPropagatorData::verbose() >= 2 ) 113 if( G4ErrorPropagatorData::verbose() >= 2 )
122 G4cout << "AlongStepDoIt Estart= " << kinE 114 G4cout << "AlongStepDoIt Estart= " << kinEnergyStart << " Eend " << kinEnergyEnd
123 << " Ediff " << kinEnergyStart-kinEnergyE 115 << " Ediff " << kinEnergyStart-kinEnergyEnd << " step= " << step_length
124 << " mate= " << aMaterial->GetName() 116 << " mate= " << aMaterial->GetName()
125 << " particle= " << aParticleDef->GetPart 117 << " particle= " << aParticleDef->GetParticleName() << G4endl;
126 #endif 118 #endif
127 119
128 aParticleChange.ClearDebugFlag(); 120 aParticleChange.ClearDebugFlag();
129 aParticleChange.ProposeLocalEnergyDeposit( e 121 aParticleChange.ProposeLocalEnergyDeposit( edepo );
130 aParticleChange.SetNumberOfSecondaries(0); 122 aParticleChange.SetNumberOfSecondaries(0);
131 123
132 aParticleChange.ProposeEnergy( kinEnergyEnd 124 aParticleChange.ProposeEnergy( kinEnergyEnd );
133 125
134 return &aParticleChange; 126 return &aParticleChange;
135 } 127 }
136 128
137 129
138 //-------------------------------------------- 130 //-------------------------------------------------------------------
139 G4double G4ErrorEnergyLoss::GetContinuousStepL 131 G4double G4ErrorEnergyLoss::GetContinuousStepLimit(const G4Track& aTrack,
140 G4double, G4double, G4double& ) << 132 G4double ,
141 { << 133 G4double currentMinimumStep,
142 G4double ekin = aTrack.GetKineticEnergy(); << 134 G4double& )
143 const G4Material* mat = aTrack.GetMaterial() << 135 {
144 const G4ParticleDefinition* part = << 136 G4double Step = DBL_MAX;
145 aTrack.GetDynamicParticle()->GetDefinition << 137 if( theStepLimit != 1. ) {
146 G4double range = theELossForExtrapolator->Co << 138 G4double kinEnergyStart = aTrack.GetKineticEnergy();
147 G4double delta = std::max(range*theFractionL << 139 G4double kinEnergyLoss = kinEnergyStart;
>> 140 const G4Material* aMaterial = aTrack.GetMaterial();
>> 141 const G4ParticleDefinition* aParticleDef = aTrack.GetDynamicParticle()->GetDefinition();
>> 142 G4ErrorPropagatorData* g4edata = G4ErrorPropagatorData::GetErrorPropagatorData();
>> 143 if( g4edata->GetMode() == G4ErrorMode(G4ErrorMode_PropBackwards) ) {
>> 144 kinEnergyLoss = - kinEnergyStart +
>> 145 theELossForExtrapolator->EnergyBeforeStep( kinEnergyStart, currentMinimumStep,
>> 146 aMaterial, aParticleDef );
>> 147 }else if( g4edata->GetMode() == G4ErrorMode(G4ErrorMode_PropForwards) ) {
>> 148 kinEnergyLoss = kinEnergyStart -
>> 149 theELossForExtrapolator->EnergyAfterStep( kinEnergyStart, currentMinimumStep,
>> 150 aMaterial, aParticleDef );
>> 151 }
148 #ifdef G4VERBOSE 152 #ifdef G4VERBOSE
149 if(G4ErrorPropagatorData::verbose() >= 2 ) { << 153 if(G4ErrorPropagatorData::verbose() >= 3 )
150 G4cout << " G4ErrorEnergyLoss: limiting St << 154 G4cout << " G4ErrorEnergyLoss: currentMinimumStep " <<currentMinimumStep
151 << " energy(GeV) " << ekin / CLHEP::GeV << 155 << " kinEnergyLoss " << kinEnergyLoss
152 << " for " << part->GetParticleName() << << 156 << " kinEnergyStart " << kinEnergyStart << G4endl;
153 } <<
154 #endif 157 #endif
155 return delta; << 158 if( kinEnergyLoss / kinEnergyStart > theStepLimit ) {
>> 159 Step = theStepLimit / (kinEnergyLoss / kinEnergyStart) * currentMinimumStep;
>> 160 #ifdef G4VERBOSE
>> 161 if(G4ErrorPropagatorData::verbose() >= 2 )
>> 162 G4cout << " G4ErrorEnergyLoss: limiting Step " << Step
>> 163 << " energy loss fraction " << kinEnergyLoss / kinEnergyStart
>> 164 << " > " << theStepLimit << G4endl;
>> 165 #endif
>> 166 }
>> 167 }
>> 168
>> 169 return Step;
>> 170
156 } 171 }
157 172