4if [ -z $JPP_DIR ]; then
 
    5    echo "Variable JPP_DIR undefined."
 
    9source $JPP_DIR/setenv.sh $JPP_DIR >& /dev/null
 
   11set_variable:  DEBUG       ACOUSTICS_DEBUG        2
 
   12set_variable:  WORKDIR     ACOUSTICS_WORKDIR      `pwd`
 
   13set_array      MULS        -2.0e-2 -1.7e-2 -1.6e-2 -1.5e-2 -1.4e-2 -1.3e-2 -1.2e-2 -1.1e-2 -1.0e-2 -0.9e-2 -0.9e-2 -0.8e-2 -0.5e-2 +0.0e-2 +0.5e-2
 
   14set_variable   FORMULA     "[0] + [1] * ((x-[2])*(x-[2])/([3]*[3]))"
 
   15set_variable:  FORMAT      GRAPHICS_FORMAT        gif
 
   16set_variable+  BATCH       GRAPHICS_BATCH         -B
 
   19    usage "$script <detector specific pre-calibration script> <option>"\
 
   20          "\nAuxiliary script to make scan of pre-stretching of detector strings (see JEditDetector)."\
 
   21          "\nPossible options: run, plot or fit."
 
   24if (( $# < 1 || $# > 2)); then
 
   25    fatal "Wrong number of arguments."
 
   30set_variable  SCRIPT              $argv[1]
 
   31set_variable  OPTION              $argv[-1]
 
   33if [[ $OPTION != "run" && $OPTION != "plot" && $OPTION != "fit" ]]; then
 
   34    fatal "Invalid option $OPTION."
 
   37if [[ $OPTION == "run" ]]; then
 
   39    for MUL in $MULS[*]; do
 
   41        set_variable  DIR                $WORKDIR/mul=$MUL
 
   46        # set varibales in script
 
   48        set_variable  ACOUSTICS_MUL      $MUL
 
   50        nohup $SCRIPT >& all.log &
 
   54if [[ $OPTION == "plot" || $OPTION == "fit" ]]; then
 
   56    set_variable  ACOUSTICS_ZMUL_TXT    ${TMPDIR:-/tmp}/acoustics-zmul.txt
 
   57    set_variable  ACOUSTICS_ZMUL_ROOT   ${TMPDIR:-/tmp}/acoustics-zmul.root
 
   59    rm -f $ACOUSTICS_ZMUL_TXT >& /dev/null
 
   61    for MUL in $MULS[*]; do
 
   63        set_variable  DIR                $WORKDIR/mul=$MUL
 
   64        set_variable  FILE               `ls $DIR/stage-(1|A).log`
 
   66        tail -1 $FILE | grep "Elapsed time" >& /dev/null
 
   68        if (( $? == 0 )); then
 
   70            set_array  RESULT  `grep -v "warning" $FILE | tail -2 | head -1`
 
   72            printf "%4.1e %6.3f\n" $MUL $RESULT[-1]  >>  $ACOUSTICS_ZMUL_TXT
 
   77        -f $ACOUSTICS_ZMUL_TXT                    \
 
   78        -o $ACOUSTICS_ZMUL_ROOT
 
   80    XMIN=`sort -k1g $ACOUSTICS_ZMUL_TXT | head -1 | awk '{ print $1 }'`
 
   81    XMAX=`sort -k1g $ACOUSTICS_ZMUL_TXT | tail -1 | awk '{ print $1 }'`
 
   83    let "XMIN = $XMIN - 1.0e-3"
 
   84    let "XMAX = $XMAX + 1.0e-3"
 
   86    if [[ $OPTION == "fit" ]]; then
 
   88        sort -gr -k2gr $ACOUSTICS_ZMUL_TXT | tail -1 | read X Y
 
   91            -f ${ACOUSTICS_ZMUL_ROOT}:\.\*            \
 
   92            -o ${TMPDIR:-/tmp}/fit.root                          \
 
  100        set_array P2 `JPrintFit -f ${TMPDIR:-/tmp}/fit.root:\.\* -@p2`
 
  102        printf "Optimal stretching factor %8.2e\n" $P2[1]
 
  104        mv ${TMPDIR:-/tmp}/fit.root $ACOUSTICS_ZMUL_ROOT
 
  109        -f $ACOUSTICS_ZMUL_ROOT:\.\*        \
 
  114        -o acoustics-zmul.$FORMAT           $BATCH