1 | // |
---|
2 | // ******************************************************************** |
---|
3 | // * License and Disclaimer * |
---|
4 | // * * |
---|
5 | // * The Geant4 software is copyright of the Copyright Holders of * |
---|
6 | // * the Geant4 Collaboration. It is provided under the terms and * |
---|
7 | // * conditions of the Geant4 Software License, included in the file * |
---|
8 | // * LICENSE and available at http://cern.ch/geant4/license . These * |
---|
9 | // * include a list of copyright holders. * |
---|
10 | // * * |
---|
11 | // * Neither the authors of this software system, nor their employing * |
---|
12 | // * institutes,nor the agencies providing financial support for this * |
---|
13 | // * work make any representation or warranty, express or implied, * |
---|
14 | // * regarding this software system or assume any liability for its * |
---|
15 | // * use. Please see the license in the file LICENSE and URL above * |
---|
16 | // * for the full disclaimer and the limitation of liability. * |
---|
17 | // * * |
---|
18 | // * This code implementation is the result of the scientific and * |
---|
19 | // * technical work of the GEANT4 collaboration. * |
---|
20 | // * By using, copying, modifying or distributing the software (or * |
---|
21 | // * any work based on the software) you agree to acknowledge its * |
---|
22 | // * use in resulting scientific publications, and indicate your * |
---|
23 | // * acceptance of all terms of the Geant4 Software license. * |
---|
24 | // ******************************************************************** |
---|
25 | // |
---|
26 | // |
---|
27 | // $Id: G4EnergyLossMessenger.cc,v 1.29 2007/06/11 14:56:51 vnivanch Exp $ |
---|
28 | // GEANT4 tag $Name: geant4-09-01-patch-02 $ |
---|
29 | // |
---|
30 | // ------------------------------------------------------------------- |
---|
31 | // |
---|
32 | // GEANT4 Class file |
---|
33 | // |
---|
34 | // File name: G4EnergyLossMessenger |
---|
35 | // |
---|
36 | // Author: Michel Maire |
---|
37 | // |
---|
38 | // Creation date: 22-06-2000 |
---|
39 | // |
---|
40 | // Modifications: |
---|
41 | // 10-01-06 SetStepLimits -> SetStepFunction (V.Ivanchenko) |
---|
42 | // 10-01-06 PreciseRange -> CSDARange (V.Ivanchenko) |
---|
43 | // 10-05-06 Add command MscStepLimit (V.Ivanchenko) |
---|
44 | // 10-10-06 Add DEDXBinning command (V.Ivanchenko) |
---|
45 | // 07-02-07 Add MscLateralDisplacement command (V.Ivanchenko) |
---|
46 | // 12-02-07 Add SetSkin, SetLinearLossLimit (V.Ivanchenko) |
---|
47 | // 15-03-07 Send a message "/run/physicsModified" if reinitialisation |
---|
48 | // is needed after the command (V.Ivanchenko) |
---|
49 | // 16-03-07 modify /process/eLoss/minsubsec command (V.Ivanchenko) |
---|
50 | // 18-05-07 add /process/msc directory and commands (V.Ivanchenko) |
---|
51 | // |
---|
52 | // ------------------------------------------------------------------- |
---|
53 | // |
---|
54 | |
---|
55 | //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... |
---|
56 | //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... |
---|
57 | |
---|
58 | #include "G4EnergyLossMessenger.hh" |
---|
59 | |
---|
60 | #include "G4VEnergyLoss.hh" |
---|
61 | |
---|
62 | #include "G4UIdirectory.hh" |
---|
63 | #include "G4UIcommand.hh" |
---|
64 | #include "G4UIparameter.hh" |
---|
65 | #include "G4UIcmdWithABool.hh" |
---|
66 | #include "G4UIcmdWithAnInteger.hh" |
---|
67 | #include "G4UIcmdWithADouble.hh" |
---|
68 | #include "G4UIcmdWithADoubleAndUnit.hh" |
---|
69 | #include "G4UIcmdWithAString.hh" |
---|
70 | #include "G4EmProcessOptions.hh" |
---|
71 | #include "G4UImanager.hh" |
---|
72 | #include "G4MscStepLimitType.hh" |
---|
73 | #include "G4EmProcessOptions.hh" |
---|
74 | |
---|
75 | #include <sstream> |
---|
76 | |
---|
77 | //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... |
---|
78 | |
---|
79 | G4EnergyLossMessenger::G4EnergyLossMessenger() |
---|
80 | { |
---|
81 | opt = 0; |
---|
82 | eLossDirectory = new G4UIdirectory("/process/eLoss/"); |
---|
83 | eLossDirectory->SetGuidance("Commands for EM processes."); |
---|
84 | mscDirectory = new G4UIdirectory("/process/msc/"); |
---|
85 | mscDirectory->SetGuidance("Commands for EM scattering processes."); |
---|
86 | |
---|
87 | RndmStepCmd = new G4UIcmdWithABool("/process/eLoss/rndmStep",this); |
---|
88 | RndmStepCmd->SetGuidance("Randomize the proposed step by eLoss."); |
---|
89 | RndmStepCmd->SetParameterName("choice",true); |
---|
90 | RndmStepCmd->SetDefaultValue(false); |
---|
91 | RndmStepCmd->AvailableForStates(G4State_PreInit,G4State_Idle); |
---|
92 | |
---|
93 | EnlossFlucCmd = new G4UIcmdWithABool("/process/eLoss/fluct",this); |
---|
94 | EnlossFlucCmd->SetGuidance("Switch true/false the energy loss fluctuations."); |
---|
95 | EnlossFlucCmd->SetParameterName("choice",true); |
---|
96 | EnlossFlucCmd->SetDefaultValue(true); |
---|
97 | EnlossFlucCmd->AvailableForStates(G4State_PreInit,G4State_Idle); |
---|
98 | |
---|
99 | SubSecCmd = new G4UIcmdWithABool("/process/eLoss/subsec",this); |
---|
100 | SubSecCmd->SetGuidance("Switch true/false the subcutoff generation."); |
---|
101 | SubSecCmd->SetParameterName("choice",true); |
---|
102 | SubSecCmd->SetDefaultValue(true); |
---|
103 | SubSecCmd->AvailableForStates(G4State_PreInit,G4State_Idle); |
---|
104 | |
---|
105 | MinSubSecCmd = new G4UIcmdWithADouble("/process/eLoss/minsubsec",this); |
---|
106 | MinSubSecCmd->SetGuidance("Set the ratio subcut/cut "); |
---|
107 | MinSubSecCmd->SetParameterName("rcmin",true); |
---|
108 | MinSubSecCmd->AvailableForStates(G4State_PreInit,G4State_Idle); |
---|
109 | |
---|
110 | StepFuncCmd = new G4UIcommand("/process/eLoss/StepFunction",this); |
---|
111 | StepFuncCmd->SetGuidance("Set the energy loss step limitation parameters."); |
---|
112 | StepFuncCmd->SetGuidance(" dRoverR : max Range variation per step"); |
---|
113 | StepFuncCmd->SetGuidance(" finalRange: range for final step"); |
---|
114 | |
---|
115 | G4UIparameter* dRoverRPrm = new G4UIparameter("dRoverR",'d',false); |
---|
116 | dRoverRPrm->SetGuidance("max Range variation per step (fractional number)"); |
---|
117 | dRoverRPrm->SetParameterRange("dRoverR>0. && dRoverR<=1."); |
---|
118 | StepFuncCmd->SetParameter(dRoverRPrm); |
---|
119 | |
---|
120 | G4UIparameter* finalRangePrm = new G4UIparameter("finalRange",'d',false); |
---|
121 | finalRangePrm->SetGuidance("range for final step"); |
---|
122 | finalRangePrm->SetParameterRange("finalRange>0."); |
---|
123 | StepFuncCmd->SetParameter(finalRangePrm); |
---|
124 | |
---|
125 | G4UIparameter* unitPrm = new G4UIparameter("unit",'s',true); |
---|
126 | unitPrm->SetGuidance("unit of finalRange"); |
---|
127 | unitPrm->SetDefaultValue("mm"); |
---|
128 | G4String unitCandidates = |
---|
129 | G4UIcommand::UnitsList(G4UIcommand::CategoryOf("mm")); |
---|
130 | unitPrm->SetParameterCandidates(unitCandidates); |
---|
131 | |
---|
132 | StepFuncCmd->SetParameter(unitPrm); |
---|
133 | StepFuncCmd->AvailableForStates(G4State_PreInit,G4State_Idle); |
---|
134 | |
---|
135 | MinEnCmd = new G4UIcmdWithADoubleAndUnit("/process/eLoss/minKinEnergy",this); |
---|
136 | MinEnCmd->SetGuidance("Set the min kinetic energy"); |
---|
137 | MinEnCmd->SetParameterName("emin",true); |
---|
138 | MinEnCmd->SetUnitCategory("Energy"); |
---|
139 | MinEnCmd->AvailableForStates(G4State_PreInit,G4State_Idle); |
---|
140 | |
---|
141 | MaxEnCmd = new G4UIcmdWithADoubleAndUnit("/process/eLoss/maxKinEnergy",this); |
---|
142 | MaxEnCmd->SetGuidance("Set the max kinetic energy"); |
---|
143 | MaxEnCmd->SetParameterName("emax",true); |
---|
144 | MaxEnCmd->SetUnitCategory("Energy"); |
---|
145 | MaxEnCmd->AvailableForStates(G4State_PreInit,G4State_Idle); |
---|
146 | |
---|
147 | IntegCmd = new G4UIcmdWithABool("/process/eLoss/integral",this); |
---|
148 | IntegCmd->SetGuidance("Switch true/false the integration of cross section over step."); |
---|
149 | IntegCmd->SetParameterName("integ",true); |
---|
150 | IntegCmd->SetDefaultValue(true); |
---|
151 | IntegCmd->AvailableForStates(G4State_PreInit,G4State_Idle); |
---|
152 | |
---|
153 | rangeCmd = new G4UIcmdWithABool("/process/eLoss/CSDARange",this); |
---|
154 | rangeCmd->SetGuidance("Switch true/false the precise range calculation."); |
---|
155 | rangeCmd->SetParameterName("range",true); |
---|
156 | rangeCmd->SetDefaultValue(true); |
---|
157 | rangeCmd->AvailableForStates(G4State_PreInit,G4State_Idle); |
---|
158 | |
---|
159 | lpmCmd = new G4UIcmdWithABool("/process/eLoss/LPM",this); |
---|
160 | lpmCmd->SetGuidance("Switch true/false the LPM effect calculation."); |
---|
161 | lpmCmd->SetParameterName("lpm",true); |
---|
162 | lpmCmd->SetDefaultValue(true); |
---|
163 | lpmCmd->AvailableForStates(G4State_PreInit,G4State_Idle); |
---|
164 | |
---|
165 | dedxCmd = new G4UIcmdWithAnInteger("/process/eLoss/binsDEDX",this); |
---|
166 | dedxCmd->SetGuidance("Set number of bins for DEDX tables."); |
---|
167 | dedxCmd->SetParameterName("binsDEDX",true); |
---|
168 | dedxCmd->SetDefaultValue(120); |
---|
169 | dedxCmd->AvailableForStates(G4State_PreInit,G4State_Idle); |
---|
170 | |
---|
171 | lamCmd = new G4UIcmdWithAnInteger("/process/eLoss/binsLambda",this); |
---|
172 | lamCmd->SetGuidance("Set number of bins for Lambda tables."); |
---|
173 | lamCmd->SetParameterName("binsL",true); |
---|
174 | lamCmd->SetDefaultValue(120); |
---|
175 | lamCmd->AvailableForStates(G4State_PreInit,G4State_Idle); |
---|
176 | |
---|
177 | verCmd = new G4UIcmdWithAnInteger("/process/eLoss/verbose",this); |
---|
178 | verCmd->SetGuidance("Set verbose level for EM physics."); |
---|
179 | verCmd->SetParameterName("verb",true); |
---|
180 | verCmd->SetDefaultValue(1); |
---|
181 | verCmd->AvailableForStates(G4State_PreInit,G4State_Idle); |
---|
182 | |
---|
183 | lllCmd = new G4UIcmdWithADouble("/process/eLoss/linLossLimit",this); |
---|
184 | lllCmd->SetGuidance("Set linearLossLimit parameter."); |
---|
185 | lllCmd->SetParameterName("linlim",true); |
---|
186 | lllCmd->AvailableForStates(G4State_PreInit,G4State_Idle); |
---|
187 | |
---|
188 | labCmd = new G4UIcmdWithADouble("/process/eLoss/lambdaFactor",this); |
---|
189 | labCmd->SetGuidance("Set lambdaFactor parameter."); |
---|
190 | labCmd->SetParameterName("Fl",true); |
---|
191 | labCmd->AvailableForStates(G4State_PreInit,G4State_Idle); |
---|
192 | |
---|
193 | mscCmd = new G4UIcmdWithAString("/process/msc/StepLimit",this); |
---|
194 | mscCmd->SetGuidance("Set msc step limitation type."); |
---|
195 | mscCmd->SetParameterName("StepLim",true); |
---|
196 | mscCmd->AvailableForStates(G4State_PreInit,G4State_Idle); |
---|
197 | |
---|
198 | latCmd = new G4UIcmdWithABool("/process/msc/LateralDisplacement",this); |
---|
199 | latCmd->SetGuidance("Switch true/false sampling of latra dislacent."); |
---|
200 | latCmd->SetParameterName("lat",true); |
---|
201 | latCmd->SetDefaultValue(true); |
---|
202 | latCmd->AvailableForStates(G4State_PreInit,G4State_Idle); |
---|
203 | |
---|
204 | frCmd = new G4UIcmdWithADouble("/process/msc/RangeFactor",this); |
---|
205 | frCmd->SetGuidance("Set RangeFactor parameter for msc process."); |
---|
206 | frCmd->SetParameterName("Fr",true); |
---|
207 | frCmd->SetRange("Fr>0"); |
---|
208 | frCmd->SetDefaultValue(0.02); |
---|
209 | frCmd->AvailableForStates(G4State_PreInit,G4State_Idle); |
---|
210 | |
---|
211 | fgCmd = new G4UIcmdWithADouble("/process/msc/GeomFactor",this); |
---|
212 | fgCmd->SetGuidance("Set GeomFactor parameter for msc process."); |
---|
213 | fgCmd->SetParameterName("Fg",true); |
---|
214 | fgCmd->SetRange("Fg>0"); |
---|
215 | fgCmd->SetDefaultValue(3.5); |
---|
216 | fgCmd->AvailableForStates(G4State_PreInit,G4State_Idle); |
---|
217 | |
---|
218 | skinCmd = new G4UIcmdWithADouble("/process/msc/Skin",this); |
---|
219 | skinCmd->SetGuidance("Set skin parameter for multiple scattering."); |
---|
220 | skinCmd->SetParameterName("skin",true); |
---|
221 | skinCmd->AvailableForStates(G4State_PreInit,G4State_Idle); |
---|
222 | |
---|
223 | } |
---|
224 | |
---|
225 | //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... |
---|
226 | |
---|
227 | G4EnergyLossMessenger::~G4EnergyLossMessenger() |
---|
228 | { |
---|
229 | delete opt; |
---|
230 | delete RndmStepCmd; |
---|
231 | delete EnlossFlucCmd; |
---|
232 | delete SubSecCmd; |
---|
233 | delete MinSubSecCmd; |
---|
234 | delete StepFuncCmd; |
---|
235 | delete eLossDirectory; |
---|
236 | delete mscDirectory; |
---|
237 | delete MinEnCmd; |
---|
238 | delete MaxEnCmd; |
---|
239 | delete IntegCmd; |
---|
240 | delete rangeCmd; |
---|
241 | delete lpmCmd; |
---|
242 | delete latCmd; |
---|
243 | delete verCmd; |
---|
244 | delete mscCmd; |
---|
245 | delete dedxCmd; |
---|
246 | delete frCmd; |
---|
247 | delete fgCmd; |
---|
248 | delete lllCmd; |
---|
249 | delete lamCmd; |
---|
250 | delete labCmd; |
---|
251 | delete skinCmd; |
---|
252 | } |
---|
253 | |
---|
254 | //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... |
---|
255 | |
---|
256 | void G4EnergyLossMessenger::SetNewValue(G4UIcommand* command,G4String newValue) |
---|
257 | { |
---|
258 | if(!opt) opt = new G4EmProcessOptions(); |
---|
259 | |
---|
260 | if (command == RndmStepCmd) { |
---|
261 | G4VEnergyLoss::SetRndmStep(RndmStepCmd->GetNewBoolValue(newValue)); |
---|
262 | opt->SetRandomStep(RndmStepCmd->GetNewBoolValue(newValue)); |
---|
263 | } |
---|
264 | |
---|
265 | if (command == EnlossFlucCmd) { |
---|
266 | G4VEnergyLoss::SetEnlossFluc(EnlossFlucCmd->GetNewBoolValue(newValue)); |
---|
267 | opt->SetLossFluctuations(EnlossFlucCmd->GetNewBoolValue(newValue)); |
---|
268 | } |
---|
269 | |
---|
270 | if (command == SubSecCmd) { |
---|
271 | G4VEnergyLoss::SetSubSec(SubSecCmd->GetNewBoolValue(newValue)); |
---|
272 | opt->SetSubCutoff(SubSecCmd->GetNewBoolValue(newValue)); |
---|
273 | G4UImanager::GetUIpointer()->ApplyCommand("/run/physicsModified"); |
---|
274 | } |
---|
275 | |
---|
276 | if (command == MinSubSecCmd) { |
---|
277 | opt->SetMinSubRange(MinSubSecCmd->GetNewDoubleValue(newValue)); |
---|
278 | G4UImanager::GetUIpointer()->ApplyCommand("/run/physicsModified"); |
---|
279 | } |
---|
280 | |
---|
281 | if (command == StepFuncCmd) { |
---|
282 | G4double v1,v2; |
---|
283 | G4String unt; |
---|
284 | std::istringstream is(newValue); |
---|
285 | is >> v1 >> v2 >> unt; |
---|
286 | v2 *= G4UIcommand::ValueOf(unt); |
---|
287 | G4VEnergyLoss::SetStepFunction(v1,v2); |
---|
288 | opt->SetStepFunction(v1,v2); |
---|
289 | } |
---|
290 | |
---|
291 | if (command == mscCmd) { |
---|
292 | if(newValue == "Minimal") |
---|
293 | opt->SetMscStepLimitation(fMinimal); |
---|
294 | |
---|
295 | else if(newValue == "UseDistanceToBoundary") |
---|
296 | opt->SetMscStepLimitation(fUseDistanceToBoundary); |
---|
297 | |
---|
298 | else if(newValue == "UseSafety") |
---|
299 | opt->SetMscStepLimitation(fUseSafety); |
---|
300 | |
---|
301 | else { |
---|
302 | G4cout << "### G4EnergyLossMessenger WARNING: StepLimit type <" |
---|
303 | << newValue << "> unknown!" << G4endl; |
---|
304 | return; |
---|
305 | } |
---|
306 | G4UImanager::GetUIpointer()->ApplyCommand("/run/physicsModified"); |
---|
307 | } |
---|
308 | |
---|
309 | if (command == MinEnCmd) { |
---|
310 | opt->SetMinEnergy(MinEnCmd->GetNewDoubleValue(newValue)); |
---|
311 | G4UImanager::GetUIpointer()->ApplyCommand("/run/physicsModified"); |
---|
312 | } |
---|
313 | |
---|
314 | if (command == MaxEnCmd) { |
---|
315 | opt->SetMaxEnergy(MaxEnCmd->GetNewDoubleValue(newValue)); |
---|
316 | G4UImanager::GetUIpointer()->ApplyCommand("/run/physicsModified"); |
---|
317 | } |
---|
318 | |
---|
319 | if (command == IntegCmd) |
---|
320 | opt->SetIntegral(IntegCmd->GetNewBoolValue(newValue)); |
---|
321 | |
---|
322 | if (command == rangeCmd) { |
---|
323 | opt->SetBuildCSDARange(rangeCmd->GetNewBoolValue(newValue)); |
---|
324 | G4UImanager::GetUIpointer()->ApplyCommand("/run/physicsModified"); |
---|
325 | } |
---|
326 | |
---|
327 | if (command == lpmCmd) { |
---|
328 | opt->SetLPMFlag(lpmCmd->GetNewBoolValue(newValue)); |
---|
329 | G4UImanager::GetUIpointer()->ApplyCommand("/run/physicsModified"); |
---|
330 | } |
---|
331 | |
---|
332 | if (command == latCmd) { |
---|
333 | opt->SetMscLateralDisplacement(latCmd->GetNewBoolValue(newValue)); |
---|
334 | G4UImanager::GetUIpointer()->ApplyCommand("/run/physicsModified"); |
---|
335 | } |
---|
336 | |
---|
337 | if (command == verCmd) |
---|
338 | opt->SetVerbose(verCmd->GetNewIntValue(newValue)); |
---|
339 | |
---|
340 | if (command == lllCmd) |
---|
341 | opt->SetLinearLossLimit(lllCmd->GetNewDoubleValue(newValue)); |
---|
342 | |
---|
343 | if (command == labCmd) |
---|
344 | opt->SetLambdaFactor(labCmd->GetNewDoubleValue(newValue)); |
---|
345 | |
---|
346 | if (command == skinCmd) { |
---|
347 | opt->SetSkin(skinCmd->GetNewDoubleValue(newValue)); |
---|
348 | G4UImanager::GetUIpointer()->ApplyCommand("/run/physicsModified"); |
---|
349 | } |
---|
350 | if (command == dedxCmd) { |
---|
351 | opt->SetDEDXBinning(dedxCmd->GetNewIntValue(newValue)); |
---|
352 | G4UImanager::GetUIpointer()->ApplyCommand("/run/physicsModified"); |
---|
353 | } |
---|
354 | if (command == lamCmd) { |
---|
355 | opt->SetLambdaBinning(lamCmd->GetNewIntValue(newValue)); |
---|
356 | G4UImanager::GetUIpointer()->ApplyCommand("/run/physicsModified"); |
---|
357 | } |
---|
358 | if (command == frCmd) { |
---|
359 | opt->SetMscRangeFactor(frCmd->GetNewDoubleValue(newValue)); |
---|
360 | G4UImanager::GetUIpointer()->ApplyCommand("/run/physicsModified"); |
---|
361 | } |
---|
362 | if (command == fgCmd) { |
---|
363 | opt->SetMscGeomFactor(fgCmd->GetNewDoubleValue(newValue)); |
---|
364 | G4UImanager::GetUIpointer()->ApplyCommand("/run/physicsModified"); |
---|
365 | } |
---|
366 | } |
---|
367 | |
---|
368 | //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... |
---|