57     JParser<> zap(
"Program to determine the energy loss due to visible delta-rays.");
 
   60     zap[
'T'] = 
make_field(T_GeV,          
"kinetic energy range of electron [GeV]")  = JRange_t();
 
   69   catch(
const exception &error) {
 
   70     FATAL(error.what() << endl);
 
   79   else if (lepton == tau)
 
   81   else if (lepton == positron)
 
   86     FATAL(
"Invalid lepton " << lepton << endl);
 
  100   NOTICE(
"Tmin [GeV] " << 
FIXED(8,6) << Tmin << 
' ' << 
FIXED(8,6) << T_GeV.getLowerLimit() << endl);
 
  102   if (T_GeV.is_valid()) {
 
  103     if (Tmin < T_GeV.getLowerLimit()) {
 
  104       Tmin = T_GeV.getLowerLimit();
 
  111   TH1D h0(
"h0", NULL, 80, log10(MASS_LEPTON), +9.25);
 
  113   for (
int i = 1; i <= h0.GetNbinsX(); ++i) {
 
  115     const double x     = h0.GetBinCenter(i);
 
  116     const double E     = 
pow(10.0,x);         
 
  118     const double gamma = E / MASS_LEPTON;
 
  119     const double beta  = sqrt(1.0 - 1.0/(gamma*gamma));
 
  126                     (2.0*
MASS_ELECTRON*beta*beta*gamma*gamma)  /  (1.0 + 2.0*gamma*RATIO + RATIO*RATIO));
 
  128     if (T_GeV.is_valid()) {
 
  129       if (Tmax > T_GeV.getUpperLimit()) {
 
  130         Tmax = T_GeV.getUpperLimit();
 
  139       const double a =  1.0;                  
 
  140       const double b = -beta*beta/Tmax;       
 
  141       const double c =  0.5/(E*
E);            
 
  143       const double xmin = log(Tmin);          
 
  144       const double xmax = log(Tmax);
 
  147       const double W =  dx * 0.5 * 
K * (
Z/
A) * (1.0/(beta*beta));
 
  149       for (
double x = xmin; x <= xmax; x += dx) {
 
  151         const double T = 
exp(x);
 
  153         const double F = a + T*(b + T*(c));   
 
  154         const double y = W * 
F;
 
  163     DEBUG(
"dE/dx [MeV g^-1 cm^2]  " << 
FIXED(5,4)      << value << endl);      
 
  165     h0.SetBinContent(i, value);
 
  169   TF1 f1(
"f1", 
"[0] + [1]*x + [2]*x*x + [3]*x*x*x");
 
  171   if (option.find(
'W') == string::npos) {
 
  175   f1.SetParameter(0,  h0.GetMinimum());
 
  176   f1.SetParameter(1, (h0.GetMaximum() - h0.GetMinimum()) / (h0.GetXaxis()->GetXmax() - h0.GetXaxis()->GetXmin()));
 
  177   f1.SetParameter(2,  0.0);
 
  178   f1.SetParameter(3,  0.0);
 
  180   f1.SetLineColor(kRed);
 
  184   h0.Fit(&f1, option.c_str(), 
"same");
 
  187   cout << 
"\t// " << lepton << endl;
 
  188   cout << 
"\t// dE/dX = a + bx + cx^2 + dx^3; // [MeV g^-1 cm^2]; x = log10(E/GeV);" << endl;
 
  190   for (
int i = 0; i != 4; ++i) {
 
  191     cout << 
"\tstatic const double " << (char) (
'a' + i) << 
" = " << 
SCIENTIFIC(10,3) << f1.GetParameter(i) << 
";" << endl;
 
  197     double Emin  = 1 * MASS_LEPTON;
 
  198     double Emax  = 5 * MASS_LEPTON;
 
  200     for (
double E = 0.5 * (Emin + Emax); ; E = 0.5 * (Emin + Emax)) {
 
  202       const double gamma = E / MASS_LEPTON;
 
  203       const double beta  = sqrt(1.0 - 1.0/(gamma*gamma));
 
  205       const double Tmax  = (lepton == 
electron ?
 
  207                             (2.0*
MASS_ELECTRON*beta*beta*gamma*gamma)  /  (1.0 + 2.0*gamma*RATIO + RATIO*RATIO));
 
  209       if (fabs(Tmax - Tmin) < precision) {
 
  210         cout << 
"\tstatic const double Emin = " << 
FIXED(7,5) << E << 
"; // [GeV]" <<  endl;
 
Utility class to parse command line options. 
 
static const uint32_t K[64]
 
static const double MASS_MUON
muon mass [GeV] 
 
static const double INDEX_OF_REFRACTION_WATER
Average index of refraction of water corresponding to the group velocity. 
 
Auxiliary data structure for floating point format specification. 
 
then fatal Wrong number of arguments fi set_variable DETECTOR $argv[1] set_variable STRING $argv[2] set_array QUANTILES set_variable FORMULA *[0] exp(-0.5 *(x-[1])*(x-[1])/([2]*[2]))" set_variable MODULE `getModule -a $DETECTOR -L "$STRING 0"` typeset -Z 4 STRING JOpera1D -f hydrophone.root
 
#define make_field(A,...)
macro to convert parameter to JParserTemplateElement object 
 
static const double MASS_TAU
tau mass [GeV] 
 
do set_variable OUTPUT_DIRECTORY $WORKDIR T
 
T pow(const T &x, const double y)
Power . 
 
static const double MASS_ELECTRON
electron mass [GeV] 
 
then usage $script< input_file >< detector_file > fi set_variable OUTPUT_DIR set_variable SELECTOR JDAQTimesliceL1 set_variable DEBUG case set_variable DEBUG
 
do set_variable MODULE getModule a $WORKDIR detector_a datx L $STRING JEditDetector a $WORKDIR detector_a datx M $MODULE setz o $WORKDIR detector_a datx JEditDetector a $WORKDIR detector_b datx M $MODULE setz o $WORKDIR detector_b datx done echo Output stored at $WORKDIR detector_a datx and $WORKDIR tripod_a txt JDrawDetector2D a $WORKDIR detector_a datx a $WORKDIR detector_b datx L BL o detector $FORMAT $BATCH JDrawDetector2D T $WORKDIR tripod_a txt T $WORKDIR tripod_b txt L BL o tripod $FORMAT $BATCH JCompareDetector a $WORKDIR detector_a datx b $WORKDIR detector_b datx o $WORKDIR abc root &dev null for KEY in X Y Z
 
Auxiliary data structure for floating point format specification. 
 
then for LEPTON in muon tau positron electron
 
source $JPP_DIR setenv csh $JPP_DIR eval JShellParser o a A