source: trunk/examples/extended/electromagnetic/TestEm10/src/Em10RunMessenger.cc@ 1036

Last change on this file since 1036 was 807, checked in by garnier, 17 years ago

update
File size: 14.1 KB
Line 
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: Em10RunMessenger.cc,v 1.5 2006/06/29 16:39:01 gunter Exp $
28// GEANT4 tag $Name: $
29//
30//
31
32//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
33//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
34
35#include "Em10RunMessenger.hh"
36
37#include "Em10RunAction.hh"
38#include "G4UIdirectory.hh"
39#include "G4UIcmdWithAnInteger.hh"
40#include "G4UIcmdWithADoubleAndUnit.hh"
41#include "G4UIcmdWithADouble.hh"
42#include "G4UIcmdWithAString.hh"
43#include "G4ios.hh"
44#include "globals.hh"
45#include "Randomize.hh"
46
47//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
48
49Em10RunMessenger::Em10RunMessenger(Em10RunAction* RA)
50:runAction (RA)
51{
52 plotDir = new G4UIdirectory("/plots/");
53 plotDir->SetGuidance("plot control");
54
55 sethistNameCmd = new G4UIcmdWithAString("/plots/sethistName",this);
56 sethistNameCmd->SetGuidance("set name for the histogram file");
57
58 setnbinStepCmd = new G4UIcmdWithAnInteger("/plots/setnbinStep",this);
59 setnbinStepCmd->SetGuidance("set nb of bins in #step plot");
60 setnbinStepCmd->SetParameterName("nbinStep",false);
61
62 setSteplowCmd = new G4UIcmdWithADouble("/plots/setSteplow",this);
63 setSteplowCmd->SetGuidance("set lower limit for #step plot ");
64 setSteplowCmd->SetParameterName("Steplow",false);
65
66 setStephighCmd = new G4UIcmdWithADouble("/plots/setStephigh",this);
67 setStephighCmd->SetGuidance("set upper limit for #step plot ");
68 setStephighCmd->SetParameterName("Stephigh",false);
69
70 setnbinEnCmd = new G4UIcmdWithAnInteger("/plots/setnbinEn",this);
71 setnbinEnCmd->SetGuidance("set nb of bins in Edep plot");
72 setnbinEnCmd->SetParameterName("nbinE",false);
73
74 setEnlowCmd = new G4UIcmdWithADoubleAndUnit("/plots/setEnlow",this);
75 setEnlowCmd->SetGuidance("set lower limit for Edep plot ");
76 setEnlowCmd->SetParameterName("Elow",false);
77 setEnlowCmd->SetUnitCategory("Energy");
78
79 setEnhighCmd = new G4UIcmdWithADoubleAndUnit("/plots/setEnhigh",this);
80 setEnhighCmd->SetGuidance("set upper limit for Edep plot ");
81 setEnhighCmd->SetParameterName("Ehigh",false);
82 setEnhighCmd->SetUnitCategory("Energy");
83
84 setnbinGammaCmd = new G4UIcmdWithAnInteger("/plots/setnbinGamma",this);
85 setnbinGammaCmd->SetGuidance("set nb of bins in gamma spectrum plot");
86 setnbinGammaCmd->SetParameterName("nbinGamma",false);
87
88 setElowGammaCmd = new G4UIcmdWithADoubleAndUnit("/plots/setElowGamma",this);
89 setElowGammaCmd->SetGuidance("set lower limit for gamma spectrum plot ");
90 setElowGammaCmd->SetParameterName("ElowGamma",false);
91 setElowGammaCmd->SetUnitCategory("Energy");
92
93 setEhighGammaCmd = new G4UIcmdWithADoubleAndUnit("/plots/setEhighGamma",this);
94 setEhighGammaCmd->SetGuidance("set upper limit for gamma spectrum plot ");
95 setEhighGammaCmd->SetParameterName("EhighGamma",false);
96 setEhighGammaCmd->SetUnitCategory("Energy");
97
98 setnbinTtCmd = new G4UIcmdWithAnInteger("/plots/setnbinTt",this);
99 setnbinTtCmd->SetGuidance("set nb of bins in Etransmitted plot");
100 setnbinTtCmd->SetParameterName("nbinTt",false);
101
102 setTtlowCmd = new G4UIcmdWithADoubleAndUnit("/plots/setTtlow",this);
103 setTtlowCmd->SetGuidance("set lower limit for Etransmitted plot ");
104 setTtlowCmd->SetParameterName("Ttlow",false);
105
106 setTthighCmd = new G4UIcmdWithADoubleAndUnit("/plots/setTthigh",this);
107 setTthighCmd->SetGuidance("set upper limit for Etransmitted plot ");
108 setTthighCmd->SetParameterName("Tthigh",false);
109
110 setnbinTbCmd = new G4UIcmdWithAnInteger("/plots/setnbinTb",this);
111 setnbinTbCmd->SetGuidance("set nb of bins in Ebackscattering plot");
112 setnbinTbCmd->SetParameterName("nbinTb",false);
113
114 setTblowCmd = new G4UIcmdWithADoubleAndUnit("/plots/setTblow",this);
115 setTblowCmd->SetGuidance("set lower limit for Ebackscattered plot ");
116 setTblowCmd->SetParameterName("Tblow",false);
117
118 setTbhighCmd = new G4UIcmdWithADoubleAndUnit("/plots/setTbhigh",this);
119 setTbhighCmd->SetGuidance("set upper limit for Ebackscattered plot ");
120 setTbhighCmd->SetParameterName("Tbhigh",false);
121
122 setnbinTsecCmd = new G4UIcmdWithAnInteger("/plots/setnbinTsec",this);
123 setnbinTsecCmd->SetGuidance("set nb of bins in charged Tsecondary plot");
124 setnbinTsecCmd->SetParameterName("nbinTsec",false);
125
126 setTseclowCmd = new G4UIcmdWithADoubleAndUnit("/plots/setTseclow",this);
127 setTseclowCmd->SetGuidance("set lower limit for charged Tsecondary plot ");
128 setTseclowCmd->SetParameterName("Tseclow",false);
129
130 setTsechighCmd = new G4UIcmdWithADoubleAndUnit("/plots/setTsechigh",this);
131 setTsechighCmd->SetGuidance("set upper limit for charged Tsecondary plot ");
132 setTsechighCmd->SetParameterName("Tsechigh",false);
133
134 setnbinRCmd = new G4UIcmdWithAnInteger("/plots/setnbinR",this);
135 setnbinRCmd->SetGuidance("set nb of bins in R plot");
136 setnbinRCmd->SetParameterName("nbinR",false);
137
138 setRlowCmd = new G4UIcmdWithADoubleAndUnit("/plots/setRlow",this);
139 setRlowCmd->SetGuidance("set lower limit for R plot ");
140 setRlowCmd->SetParameterName("Rlow",false);
141
142 setRhighCmd = new G4UIcmdWithADoubleAndUnit("/plots/setRhigh",this);
143 setRhighCmd->SetGuidance("set upper limit for R plot ");
144 setRhighCmd->SetParameterName("Rhigh",false);
145
146 setnbinzvertexCmd = new G4UIcmdWithAnInteger("/plots/setnbinzvertex",this);
147 setnbinzvertexCmd->SetGuidance("set nb of bins in Z vertex plot");
148 setnbinzvertexCmd->SetParameterName("nbinZ",false);
149
150 setzlowCmd = new G4UIcmdWithADoubleAndUnit("/plots/setzlow",this);
151 setzlowCmd->SetGuidance("set lower limit for Z vertex plot ");
152 setzlowCmd->SetParameterName("zlow",false);
153
154 setzhighCmd = new G4UIcmdWithADoubleAndUnit("/plots/setzhigh",this);
155 setzhighCmd->SetGuidance("set upper limit for Z vertex plot ");
156 setzhighCmd->SetParameterName("zhigh",false);
157
158 setnbinThCmd = new G4UIcmdWithAnInteger("/plots/setnbinTh",this);
159 setnbinThCmd->SetGuidance("set nb of bins in Theta transmitted plot");
160 setnbinThCmd->SetParameterName("nbinTh",false);
161
162 setThlowCmd = new G4UIcmdWithADoubleAndUnit("/plots/setThlow",this);
163 setThlowCmd->SetGuidance("set lower limit for Theta transmitted plot ");
164 setThlowCmd->SetParameterName("Thlow",false);
165
166 setThhighCmd = new G4UIcmdWithADoubleAndUnit("/plots/setThhigh",this);
167 setThhighCmd->SetGuidance("set upper limit for Theta transmitted plot ");
168 setThhighCmd->SetParameterName("Thhigh",false);
169
170 setnbinThbackCmd = new G4UIcmdWithAnInteger("/plots/setnbinThback",this);
171 setnbinThbackCmd->SetGuidance("set nb of bins in backscattering Theta plot");
172 setnbinThbackCmd->SetParameterName("nbinThback",false);
173
174 setThlowbackCmd = new G4UIcmdWithADoubleAndUnit("/plots/setThlowback",this);
175 setThlowbackCmd->SetGuidance("set lower limit for backscattering Theta plot ");
176 setThlowbackCmd->SetParameterName("Thlowback",false);
177
178 setThhighbackCmd = new G4UIcmdWithADoubleAndUnit("/plots/setThhighback",this);
179 setThhighbackCmd->SetGuidance("set upper limit for backscattering Theta plot ");
180 setThhighbackCmd->SetParameterName("Thhighback",false);
181
182 RndmDir = new G4UIdirectory("/rndm/");
183 RndmDir->SetGuidance("Rndm status control.");
184
185 RndmSaveCmd = new G4UIcmdWithAnInteger("/rndm/save",this);
186 RndmSaveCmd->SetGuidance("set frequency to save rndm status on external files.");
187 RndmSaveCmd->SetGuidance("freq = 0 not saved");
188 RndmSaveCmd->SetGuidance("freq > 0 saved on: beginOfRun.rndm");
189 RndmSaveCmd->SetGuidance("freq = 1 saved on: endOfRun.rndm");
190 RndmSaveCmd->SetGuidance("freq = 2 saved on: endOfEvent.rndm");
191 RndmSaveCmd->SetParameterName("frequency",false);
192 RndmSaveCmd->SetRange("frequency>=0 && frequency<=2");
193 RndmSaveCmd->AvailableForStates(G4State_PreInit,G4State_Idle);
194
195 RndmReadCmd = new G4UIcmdWithAString("/rndm/read",this);
196 RndmReadCmd->SetGuidance("get rndm status from an external file.");
197 RndmReadCmd->SetParameterName("fileName",true);
198 RndmReadCmd->SetDefaultValue ("beginOfRun.rndm");
199 RndmReadCmd->AvailableForStates(G4State_PreInit,G4State_Idle);
200}
201
202//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
203
204Em10RunMessenger::~Em10RunMessenger()
205{
206 delete sethistNameCmd;
207
208 delete setnbinStepCmd;
209 delete setSteplowCmd;
210 delete setStephighCmd;
211
212 delete setnbinEnCmd;
213 delete setEnlowCmd;
214 delete setEnhighCmd;
215
216 delete setnbinGammaCmd;
217 delete setElowGammaCmd;
218 delete setEhighGammaCmd;
219
220 delete setnbinTtCmd;
221 delete setTtlowCmd;
222 delete setTthighCmd;
223
224 delete setnbinTbCmd;
225 delete setTblowCmd;
226 delete setTbhighCmd;
227
228 delete setnbinTsecCmd;
229 delete setTseclowCmd;
230 delete setTsechighCmd;
231
232 delete setnbinRCmd;
233 delete setRlowCmd;
234 delete setRhighCmd;
235
236 delete setnbinzvertexCmd;
237 delete setzlowCmd;
238 delete setzhighCmd;
239
240 delete setnbinThCmd;
241 delete setThlowCmd;
242 delete setThhighCmd;
243
244 delete setnbinThbackCmd;
245 delete setThlowbackCmd;
246 delete setThhighbackCmd;
247
248 delete plotDir;
249
250 delete RndmSaveCmd; delete RndmReadCmd; delete RndmDir;
251}
252
253//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
254
255void Em10RunMessenger::SetNewValue(G4UIcommand* command,G4String newValues)
256{
257 if( command == sethistNameCmd)
258 runAction
259 ->SethistName(newValues) ;
260
261 if( command == setnbinStepCmd)
262 runAction
263 ->SetnbinStep(setnbinStepCmd->GetNewIntValue(newValues));
264
265 if( command == setSteplowCmd)
266 runAction
267 ->SetSteplow( setSteplowCmd->GetNewDoubleValue(newValues));
268
269 if( command == setStephighCmd)
270 runAction
271 ->SetStephigh( setStephighCmd->GetNewDoubleValue(newValues));
272
273 if( command == setnbinEnCmd)
274 runAction
275 ->SetnbinEn(setnbinEnCmd->GetNewIntValue(newValues));
276
277 if( command == setEnlowCmd)
278 runAction
279 ->SetEnlow( setEnlowCmd->GetNewDoubleValue(newValues));
280
281 if( command == setEnhighCmd)
282 runAction
283 ->SetEnhigh( setEnhighCmd->GetNewDoubleValue(newValues));
284
285 if( command == setnbinGammaCmd)
286 runAction
287 ->SetnbinGamma(setnbinGammaCmd->GetNewIntValue(newValues));
288
289 if( command == setElowGammaCmd)
290 runAction
291 ->SetElowGamma( setElowGammaCmd->GetNewDoubleValue(newValues));
292
293 if( command == setEhighGammaCmd)
294 runAction
295 ->SetEhighGamma( setEhighGammaCmd->GetNewDoubleValue(newValues));
296
297 if( command == setnbinTtCmd)
298 runAction
299 ->SetnbinTt(setnbinTtCmd->GetNewIntValue(newValues));
300
301 if( command == setTtlowCmd)
302 runAction
303 ->SetTtlow( setTtlowCmd->GetNewDoubleValue(newValues));
304
305 if( command == setTthighCmd)
306 runAction
307 ->SetTthigh( setTthighCmd->GetNewDoubleValue(newValues));
308
309 if( command == setnbinTbCmd)
310 runAction
311 ->SetnbinTb(setnbinTbCmd->GetNewIntValue(newValues));
312
313 if( command == setTblowCmd)
314 runAction
315 ->SetTblow( setTblowCmd->GetNewDoubleValue(newValues));
316
317 if( command == setTbhighCmd)
318 runAction
319 ->SetTbhigh( setTbhighCmd->GetNewDoubleValue(newValues));
320
321 if( command == setnbinTsecCmd)
322 runAction
323 ->SetnbinTsec(setnbinTsecCmd->GetNewIntValue(newValues));
324
325 if( command == setTseclowCmd)
326 runAction
327 ->SetTseclow( setTseclowCmd->GetNewDoubleValue(newValues));
328
329 if( command == setTsechighCmd)
330 runAction
331 ->SetTsechigh( setTsechighCmd->GetNewDoubleValue(newValues));
332
333 if( command == setnbinRCmd)
334 runAction
335 ->SetnbinR(setnbinRCmd->GetNewIntValue(newValues));
336
337 if( command == setRlowCmd)
338 runAction
339 ->SetRlow( setRlowCmd->GetNewDoubleValue(newValues));
340
341 if( command == setRhighCmd)
342 runAction
343 ->SetRhigh( setRhighCmd->GetNewDoubleValue(newValues));
344
345 if( command == setnbinzvertexCmd)
346 runAction
347 ->Setnbinzvertex(setnbinzvertexCmd->GetNewIntValue(newValues));
348
349 if( command == setzlowCmd)
350 runAction
351 ->Setzlow( setzlowCmd->GetNewDoubleValue(newValues));
352
353 if( command == setzhighCmd)
354 runAction
355 ->Setzhigh( setzhighCmd->GetNewDoubleValue(newValues));
356
357 if( command == setnbinThCmd)
358 runAction
359 ->SetnbinTh(setnbinThCmd->GetNewIntValue(newValues));
360
361 if( command == setThlowCmd)
362 runAction
363 ->SetThlow( setThlowCmd->GetNewDoubleValue(newValues));
364
365 if( command == setThhighCmd)
366 runAction
367 ->SetThhigh( setThhighCmd->GetNewDoubleValue(newValues));
368
369 if( command == setnbinThbackCmd)
370 runAction
371 ->SetnbinThBack(setnbinThbackCmd->GetNewIntValue(newValues));
372
373 if( command == setThlowbackCmd)
374 runAction
375 ->SetThlowBack( setThlowbackCmd->GetNewDoubleValue(newValues));
376
377 if( command == setThhighbackCmd)
378 runAction
379 ->SetThhighBack( setThhighbackCmd->GetNewDoubleValue(newValues));
380
381 if (command == RndmSaveCmd)
382 runAction->SetRndmFreq(RndmSaveCmd->GetNewIntValue(newValues));
383
384 if (command == RndmReadCmd)
385 { G4cout << "\n---> rndm status restored from file: " << newValues << G4endl;
386 CLHEP::HepRandom::restoreEngineStatus(newValues);
387 CLHEP::HepRandom::showEngineStatus();
388 }
389}
390
391//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
392
393
Note: See TracBrowser for help on using the repository browser.