Gabriele Cosmo
317 lines
12 KiB
C++
317 lines
12 KiB
C++
//
|
|
// ********************************************************************
|
|
// * License and Disclaimer *
|
|
// * *
|
|
// * The Geant4 software is copyright of the Copyright Holders of *
|
|
// * the Geant4 Collaboration. It is provided under the terms and *
|
|
// * conditions of the Geant4 Software License, included in the file *
|
|
// * LICENSE and available at http://cern.ch/geant4/license . These *
|
|
// * include a list of copyright holders. *
|
|
// * *
|
|
// * Neither the authors of this software system, nor their employing *
|
|
// * institutes,nor the agencies providing financial support for this *
|
|
// * work make any representation or warranty, express or implied, *
|
|
// * regarding this software system or assume any liability for its *
|
|
// * use. Please see the license in the file LICENSE and URL above *
|
|
// * for the full disclaimer and the limitation of liability. *
|
|
// * *
|
|
// * This code implementation is the result of the scientific and *
|
|
// * technical work of the GEANT4 collaboration. *
|
|
// * By using, copying, modifying or distributing the software (or *
|
|
// * any work based on the software) you agree to acknowledge its *
|
|
// * use in resulting scientific publications, and indicate your *
|
|
// * acceptance of all terms of the Geant4 Software license. *
|
|
// ********************************************************************
|
|
//
|
|
|
|
//
|
|
#include "G4RadioactiveDecaymessenger.hh"
|
|
#include "G4NuclearLevelStore.hh"
|
|
|
|
#include <sstream>
|
|
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
//
|
|
G4RadioactiveDecaymessenger::G4RadioactiveDecaymessenger
|
|
(G4RadioactiveDecay* theRadioactiveDecayContainer1)
|
|
:theRadioactiveDecayContainer(theRadioactiveDecayContainer1)
|
|
{
|
|
//
|
|
//
|
|
// main directory for control of the RDM
|
|
//
|
|
//
|
|
grdmDirectory = new G4UIdirectory("/grdm/");
|
|
grdmDirectory->SetGuidance("Controls for the Radioactive Decay Module.");
|
|
//
|
|
//
|
|
// Command to define the limits on nucleus the RDM will treat.
|
|
//
|
|
nucleuslimitsCmd = new
|
|
G4UIcmdWithNucleusLimits("/grdm/nucleusLimits",this);
|
|
nucleuslimitsCmd->SetGuidance
|
|
("Set the atomic weight and number limits for the RDM.");
|
|
nucleuslimitsCmd->SetParameterName("aMin","aMax","zMin","zMax",true);
|
|
//
|
|
|
|
//
|
|
// The next command contols whether the decay will be treated analoguely or
|
|
// with variance reduction
|
|
//
|
|
analoguemcCmd = new G4UIcmdWithABool ("/grdm/analogueMC",this);
|
|
analoguemcCmd->SetGuidance("false: variance reduction method; true: analogue method");
|
|
analoguemcCmd->SetParameterName("AnalogueMC",true);
|
|
analoguemcCmd->SetDefaultValue(true);
|
|
//
|
|
// The next command contols whether beta decay will be treated faithfully or
|
|
// in fast mode
|
|
//
|
|
fbetaCmd = new G4UIcmdWithABool ("/grdm/fBeta",this);
|
|
fbetaCmd->SetGuidance("false: use 3-body decay, true: use histogram method");
|
|
fbetaCmd->SetParameterName("fBeta",true);
|
|
fbetaCmd->SetDefaultValue(false);
|
|
|
|
//
|
|
//
|
|
// Command to selete a logical volume for RDM.
|
|
//
|
|
avolumeCmd = new
|
|
G4UIcmdWithAString("/grdm/selectVolume",this);
|
|
avolumeCmd->SetGuidance
|
|
("Suppply a logical volumes name to add it to the RDM apply list");
|
|
avolumeCmd->SetParameterName("aVolume",false);
|
|
//
|
|
//
|
|
//
|
|
// Command to de-selete a logical volume for RDM.
|
|
//
|
|
deavolumeCmd = new
|
|
G4UIcmdWithAString("/grdm/deselectVolume",this);
|
|
deavolumeCmd->SetGuidance
|
|
("Suppply a logical volumes name to remove it from the RDM apply list");
|
|
deavolumeCmd->SetParameterName("aVolume",false);
|
|
//
|
|
//
|
|
// Command to selete all logical volumes for RDM.
|
|
//
|
|
allvolumesCmd = new
|
|
G4UIcmdWithoutParameter("/grdm/allVolumes",this);
|
|
allvolumesCmd->SetGuidance
|
|
(" apply RDM to all logical volumes. No parameter required.");
|
|
// allvolumeCmd->SetParameterName("AddAVolume",true);
|
|
|
|
//
|
|
// Command to de-selete a logical volume for RDM.
|
|
//
|
|
deallvolumesCmd = new
|
|
G4UIcmdWithoutParameter("/grdm/noVolumes",this);
|
|
deallvolumesCmd->SetGuidance
|
|
(" RDM is not applied to any logical volumes");
|
|
|
|
// deallvolumesCmd->SetParameterName("RemoveAVolume",true);
|
|
//
|
|
// The next command contols whether the branching ratio biasing will be applied or not
|
|
//
|
|
brbiasCmd = new G4UIcmdWithABool ("/grdm/BRbias",this);
|
|
brbiasCmd->SetGuidance("false: no biasing; true: all branches are treated as equal");
|
|
brbiasCmd->SetParameterName("BRBias",true);
|
|
brbiasCmd->SetDefaultValue(true);
|
|
//
|
|
// Command contols whether ICM will be applied or not
|
|
//
|
|
icmCmd = new G4UIcmdWithABool ("/grdm/applyICM",this);
|
|
icmCmd->SetGuidance("True: ICM is applied; false: no");
|
|
icmCmd->SetParameterName("applyICM",true);
|
|
icmCmd->SetDefaultValue(true);
|
|
//icmCmd->AvailableForStates(G4State_PreInit);
|
|
//
|
|
// Command contols whether ARM will be applied or not
|
|
//
|
|
armCmd = new G4UIcmdWithABool ("/grdm/applyARM",this);
|
|
armCmd->SetGuidance("True: ARM is applied; false: no");
|
|
armCmd->SetParameterName("applyARM",true);
|
|
armCmd->SetDefaultValue(true);
|
|
//armCmd->AvailableForStates(G4State_PreInit);
|
|
//
|
|
// Command to set the h-l thresold for isomer production
|
|
//
|
|
hlthCmd = new G4UIcmdWithADoubleAndUnit("/grdm/hlThreshold",this);
|
|
hlthCmd->SetGuidance("Set the h-l threshold for isomer production");
|
|
hlthCmd->SetParameterName("hlThreshold",false);
|
|
// hlthCmd->SetRange("hlThreshold>0.");
|
|
hlthCmd->SetUnitCategory("Time");
|
|
// hlthCmd->AvailableForStates(G4State_PreInit);
|
|
//
|
|
// Command to define the incident particle source time profile.
|
|
//
|
|
sourcetimeprofileCmd = new
|
|
G4UIcmdWithAString("/grdm/sourceTimeProfile",this);
|
|
sourcetimeprofileCmd->SetGuidance
|
|
("Supply the name of the ascii file containing the source particle time profile");
|
|
sourcetimeprofileCmd->SetParameterName("STimeProfile",true);
|
|
sourcetimeprofileCmd->SetDefaultValue("source.data");
|
|
//
|
|
//
|
|
// Command to define the incident particle source time profile.
|
|
//
|
|
decaybiasprofileCmd = new
|
|
G4UIcmdWithAString("/grdm/decayBiasProfile",this);
|
|
decaybiasprofileCmd->SetGuidance
|
|
("Supply the name of the ascii file containing the decay bias time profile");
|
|
decaybiasprofileCmd->SetParameterName("DBiasProfile",true);
|
|
decaybiasprofileCmd->SetDefaultValue("bias.data");
|
|
|
|
//
|
|
// Command to set the directional bias (collimation) vector
|
|
//
|
|
colldirCmd = new G4UIcmdWith3Vector("/grdm/decayDirection",this);
|
|
colldirCmd->SetGuidance("Supply the direction vector for decay products");
|
|
colldirCmd->SetParameterName("X","Y","Z",false);
|
|
|
|
//
|
|
// Command to set the directional bias (collimation) half angle ("cone")
|
|
//
|
|
collangleCmd = new G4UIcmdWithADoubleAndUnit("/grdm/decayHalfAngle",this);
|
|
collangleCmd->SetGuidance
|
|
("Supply maximum angle from direction vector for decay products");
|
|
collangleCmd->SetParameterName("halfAngle",false);
|
|
collangleCmd->SetUnitCategory("Angle");
|
|
|
|
//
|
|
// This command setup the nuclei spliting parameter
|
|
//
|
|
splitnucleiCmd = new G4UIcmdWithAnInteger("/grdm/splitNuclei",this);
|
|
splitnucleiCmd->SetGuidance("Set number of spliting for the isotopes.");
|
|
splitnucleiCmd->SetParameterName("NSplit",true);
|
|
splitnucleiCmd->SetDefaultValue(1);
|
|
splitnucleiCmd->SetRange("NSplit>=1");
|
|
|
|
//
|
|
// This command setup the verbose level of radioactive decay
|
|
//
|
|
verboseCmd = new G4UIcmdWithAnInteger("/grdm/verbose",this);
|
|
verboseCmd->SetGuidance("Set verbose level: 0, 1, 2 or 3");
|
|
verboseCmd->SetParameterName("VerboseLevel",true);
|
|
verboseCmd->SetDefaultValue(1);
|
|
verboseCmd->SetRange("VerboseLevel>=0");
|
|
|
|
//
|
|
//This commansd allows the user to define its own decay datafile for
|
|
// a given isotope
|
|
//
|
|
userDecayDataCmd = new G4UIcommand("/grdm/setRadioactiveDecayFile",this);
|
|
G4UIparameter* Z_para= new G4UIparameter("Z_isotope",'i',true);
|
|
Z_para->SetParameterRange("Z_isotope > 0");
|
|
Z_para->SetGuidance("Z: Charge number of isotope");
|
|
|
|
|
|
G4UIparameter* A_para= new G4UIparameter("A_isotope",'i',true);
|
|
A_para->SetParameterRange("A_isotope > 1");
|
|
A_para->SetGuidance("A: mass number of isotope");
|
|
|
|
G4UIparameter* FileName_para= new G4UIparameter("file_name",'s',true);
|
|
FileName_para->SetGuidance("Name of the user data file");
|
|
userDecayDataCmd->SetParameter(Z_para);
|
|
userDecayDataCmd->SetParameter(A_para);
|
|
userDecayDataCmd->SetParameter(FileName_para);
|
|
|
|
//
|
|
//This commands allows the user to define its own evaporation data file for
|
|
// a given isotope
|
|
//
|
|
userEvaporationDataCmd = new G4UIcommand("/grdm/setPhotoEvaporationFile",this);
|
|
userEvaporationDataCmd->SetParameter(Z_para);
|
|
userEvaporationDataCmd->SetParameter(A_para);
|
|
userEvaporationDataCmd->SetParameter(FileName_para);
|
|
|
|
|
|
}
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
//
|
|
G4RadioactiveDecaymessenger::~G4RadioactiveDecaymessenger ()
|
|
{
|
|
delete grdmDirectory;
|
|
delete nucleuslimitsCmd;
|
|
delete sourcetimeprofileCmd;
|
|
delete decaybiasprofileCmd;
|
|
delete analoguemcCmd;
|
|
delete fbetaCmd;
|
|
delete brbiasCmd;
|
|
delete splitnucleiCmd;
|
|
delete verboseCmd;
|
|
delete avolumeCmd;
|
|
delete deavolumeCmd;
|
|
delete allvolumesCmd;
|
|
delete deallvolumesCmd;
|
|
delete icmCmd;
|
|
delete armCmd;
|
|
delete hlthCmd;
|
|
delete userDecayDataCmd;
|
|
delete userEvaporationDataCmd;
|
|
delete colldirCmd;
|
|
delete collangleCmd;
|
|
|
|
}
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
//
|
|
void G4RadioactiveDecaymessenger::SetNewValue (G4UIcommand *command, G4String newValues)
|
|
{
|
|
if (command==nucleuslimitsCmd) {theRadioactiveDecayContainer->
|
|
SetNucleusLimits(nucleuslimitsCmd->GetNewNucleusLimitsValue(newValues));}
|
|
else if (command==analoguemcCmd) {theRadioactiveDecayContainer->
|
|
SetAnalogueMonteCarlo(analoguemcCmd->GetNewBoolValue(newValues));}
|
|
else if (command==fbetaCmd) {theRadioactiveDecayContainer->
|
|
SetFBeta(fbetaCmd->GetNewBoolValue(newValues));}
|
|
else if (command==avolumeCmd) {theRadioactiveDecayContainer->
|
|
SelectAVolume(newValues);}
|
|
else if (command==deavolumeCmd) {theRadioactiveDecayContainer->
|
|
DeselectAVolume(newValues);}
|
|
else if (command==allvolumesCmd) {theRadioactiveDecayContainer->
|
|
SelectAllVolumes();}
|
|
else if (command==deallvolumesCmd) {theRadioactiveDecayContainer->
|
|
DeselectAllVolumes();}
|
|
else if (command==brbiasCmd) {theRadioactiveDecayContainer->
|
|
SetBRBias(brbiasCmd->GetNewBoolValue(newValues));}
|
|
else if (command==sourcetimeprofileCmd) {theRadioactiveDecayContainer->
|
|
SetSourceTimeProfile(newValues);}
|
|
else if (command==decaybiasprofileCmd) {theRadioactiveDecayContainer->
|
|
SetDecayBias(newValues);}
|
|
else if (command==splitnucleiCmd) {theRadioactiveDecayContainer->
|
|
SetSplitNuclei(splitnucleiCmd->GetNewIntValue(newValues));}
|
|
else if (command==verboseCmd) {theRadioactiveDecayContainer->
|
|
SetVerboseLevel(verboseCmd->GetNewIntValue(newValues));}
|
|
else if (command==icmCmd ) {theRadioactiveDecayContainer->
|
|
SetICM(icmCmd->GetNewBoolValue(newValues));}
|
|
else if (command==armCmd ) {theRadioactiveDecayContainer->
|
|
SetARM(armCmd->GetNewBoolValue(newValues));}
|
|
else if (command==hlthCmd ) {theRadioactiveDecayContainer->
|
|
SetHLThreshold(hlthCmd->GetNewDoubleValue(newValues));}
|
|
|
|
else if (command ==userDecayDataCmd){
|
|
G4int Z,A;
|
|
G4String file_name;
|
|
const char* nv = (const char*)newValues;
|
|
std::istringstream is(nv);
|
|
is >> Z>>A>>file_name;
|
|
theRadioactiveDecayContainer->AddUserDecayDataFile(Z,A,file_name);
|
|
}
|
|
else if (command ==userEvaporationDataCmd){
|
|
G4int Z,A;
|
|
G4String file_name;
|
|
const char* nv = (const char*)newValues;
|
|
std::istringstream is(nv);
|
|
is >> Z>>A>>file_name;
|
|
G4NuclearLevelStore::GetInstance()->AddUserEvaporationDataFile(Z,A,file_name);
|
|
}
|
|
else if (command==colldirCmd) {theRadioactiveDecayContainer->
|
|
SetDecayDirection(colldirCmd->GetNew3VectorValue(newValues));}
|
|
else if (command==collangleCmd) {theRadioactiveDecayContainer->
|
|
SetDecayHalfAngle(collangleCmd->GetNewDoubleValue(newValues));}
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|