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      ./
 
   13#set_variable   FORMULA     "[0] + [1] *("\
 
   14#              "(sqrt(1.0 + 0.5*(x-[2])*(x-[2])/([5]*[5])) - 1.0) + "\
 
   15#              "(sqrt(1.0 + 0.5*(y-[3])*(y-[3])/([6]*[6])) - 1.0) + "\
 
   16#              "[4]*(x-[2])*(y-[3])/([5]*[6]) "\
 
   18set_variable   FORMULA     "[0] + [1] * ((x-[2])*(x-[2])/([5]*[5]) + (y-[3])*(y-[3])/([6]*[6]) + [4]*(x-[2])*(y-[3])/([5]*[6]))"
 
   19set_variable:  FORMAT      GRAPHICS_FORMAT        gif
 
   20set_variable+  BATCH       GRAPHICS_BATCH         -B
 
   23    usage "$script <string identifier> [<detector file>]"
 
   26if (( $# == 0 || $# > 2 )); then
 
   27    fatal "Wrong number of arguments."
 
   30set_variable  STRING              $argv[1]
 
   32set_variable  DETECTOR_TXT        $WORKDIR/detectorzmul_${STRING}.txt
 
   33set_variable  DETECTOR_ROOT       $WORKDIR/detectorzmul_${STRING}.root
 
   34set_variable  G1_TXT              $WORKDIR/g1.txt
 
   35set_variable  G1_ROOT             $WORKDIR/g1.root
 
   37if [[ ! -f $DETECTOR_TXT ]] then
 
   38    fatal "No detector data file $DETECTOR_TXT."
 
   45sort -gr -k 3,3 $DETECTOR_TXT | tail -1 | read X Y Z RMS
 
   60    END { print XMIN, XMAX, YMIN, YMAX }
 
   62    if ( $1 < XMIN ) { XMIN = $1 }
 
   63    if ( $1 > XMAX ) { XMAX = $1 }
 
   64    if ( $2 < YMIN ) { YMIN = $2 }
 
   65    if ( $2 > YMAX ) { YMAX = $2 }
 
   67    ' $DETECTOR_TXT | read XMIN XMAX YMIN YMAX
 
   69if (( $X > $XMIN && $X < $XMAX && $Y > $YMIN && $Y < $YMAX )); then
 
   73    let "YMIN = $Y - 0.005"
 
   74    let "YMAX = $Y + 0.005"
 
   77        -f ${DETECTOR_ROOT}:\.\*                  \
 
   78        -o $WORKDIR/fit.root                      \
 
   89        -R "p2 =  $XMIN $XMAX"                    \
 
   90        -R "p3 =  $YMIN $YMAX"                    \
 
   94    set_array P2 `JPrintFit -f $WORKDIR/fit.root:user -@p2`
 
   95    set_array P3 `JPrintFit -f $WORKDIR/fit.root:user -@p3`
 
  100    printf "nominal %4d %7.3f %7.3f %7.3f\n" $STRING 0.0 0.0 `JPrintFit -f $WORKDIR/fit.root:user -x "0.0 0.0 "`
 
  101    printf "optimal %4d %7.3f %7.3f %7.3f\n" $STRING $X  $Y  `JPrintFit -f $WORKDIR/fit.root:user -x "$X  $Y"`
 
  103    mv $WORKDIR/fit.root $DETECTOR_ROOT
 
  107    echo   "Optimum value at limit; -> no fit."
 
  108    printf "nominal %4d %7.3f %7.3f %7.3f\n" $STRING 0.0 0.0 `awk -v X=0.0 -v Y=0.0 '{ if ($1 == X && $2 == Y) { print $3 }}' $DETECTOR_TXT`
 
  109    printf "optimal %4d %7.3f %7.3f %7.3f\n" $STRING $X  $Y  $Z
 
  113if (( $# == 2 )); then
 
  115    set_variable  DETECTOR        $argv[2]
 
  116    set_variable  MODULE          `getModule -a $DETECTOR -L "$STRING 0"`
 
  120        -s "$STRING add 0.0 0.0 $X"      \
 
  121        -s "$STRING mul $Y"              \
 
  128    -f ${DETECTOR_ROOT}:\.\*                      \
 
  137    -o $WORKDIR/detectorzmul_${STRING}.$FORMAT    $BATCH
 
  139rm -f  $DETECTOR_ROOT $G1_TXT $G1_ROOT