7 # ------------------------------------------------------------------------------------------ 
    9 #                         Example script to test JFitK40 results. 
   11 # ------------------------------------------------------------------------------------------ 
   13 if [ -z $JPP_DIR ]; 
then 
   14     echo "Variable JPP_DIR undefined." 
   18 source $JPP_DIR/setenv.sh $JPP_DIR
 
   22 set_variable:  CHI2_MAX  FITK40_CHI2_MAX  2.0
 
   25 set_variable:  T0_MIN    FITK40_T0_MIN    -10.0
 
   26 set_variable:  T0_MAX    FITK40_T0_MAX    +10.0
 
   29     usage "$script (input file)+" 
   34     0)  fatal 
"Invalid number of arguments" 
   43         -
H "GetEntries 0.5 1.0e10"  \
 
   44         -
x "$CHI2_MIN $CHI2_MAX" -
X \
 
   52         -y 
"$QE_MIN $QE_MAX"         \
 
   59         -y 
"$T0_MIN $T0_MAX"         \
 
then echo Variable JPP_DIR undefined exit fi source $JPP_DIR setenv sh $JPP_DIR set_variable DEBUG set_variable WORKDIR if do_usage *then usage for INPUT_FILE in $INPUT_FILES[*]
 
o $QUALITY_ROOT d $DEBUG!JPlot1D f
 
static const double H
Planck constant [eV s]. 
 
static const double FITK40_QE_MAX
Maximal quantum efficiency [unit]. 
 
then echo Variable JPP_DIR undefined exit fi source $JPP_DIR setenv sh $JPP_DIR &dev null set_variable
 
then break fi done getCenter read X Y Z let X
 
set_variable NUMBER_OF_ITERATIONS set_variable EPSILON cat acoustics_fit_parameters txt<< EOF $CONFIGURATION[*]Nmin=3;sigma_s=100.0e-6;stdev=10.0;mestimator=0;fixStrings=0;EOF for STRING in $STRINGS[*];do#fit stretching and(z) position of given string set_variable DETECTOR_TMP ${TMPDIR:-/tmp}/detector_A.datx JEditDetector-a $DETECTOR-o $DETECTOR_TMP-r $STRING JEditDetector-a $DETECTOR-o $DETECTOR-k $STRING for MUL in 0.005 0.001;do DX_M=0.2 for((N=0;$N< $NUMBER_OF_ITERATIONS;++N));do CHI2[3]=$CHI2[1] fitPositionOfString $STRING Z $DX_M fitStretchingOfString $STRING $MUL if(($CHI2[3]-$CHI2[1]< $EPSILON));then break fi done if(($N >=$NUMBER_OF_ITERATIONS));then printf"warning: reached maximum number of iterations %d - converenge %7.3f\n"$N $(($CHI2[3]-$CHI2[1])) fi done JMergeDetector-a $DETECTOR-a $DETECTOR_TMP-o $DETECTOR rm-f $DETECTOR_TMP JConvertDetectorFormat-a $DETECTOR-o $DETECTOR-r-d 0 > &dev null done
 
then JFileTuna f $INPUT_FILE
 
static const double FITK40_QE_MIN
Minimal quantum efficiency [unit]. 
 
do sput $STRING $FLOOR sget MODULE INPUT_FILES
 
then JMuonMCEvt f $INPUT_FILE o $INTERMEDIATE_FILE d
 
then usage $script< input_file >< detector_file > fi set_variable OUTPUT_DIR set_variable SELECTOR JDAQTimesliceL1 set_variable DEBUG case set_variable DEBUG
 
then fatal Wrong number of arguments fi set_variable DETECTOR $argv[1] set_variable INPUT_FILE $argv[2] eval JPrintDetector a $DETECTOR O IDENTIFIER eval JPrintDetector a $DETECTOR O SUMMARY source JAcoustics sh $DETECTOR_ID CHECK_EXIT_CODE typeset A TRIPODS get_tripods $WORKDIR tripod txt TRIPODS for EMITTER in