4 if [ -z $JPP_DIR ]; then
 
    5     echo "Variable JPP_DIR undefined."
 
    9 source $JPP_DIR/setenv.sh $JPP_DIR >& /dev/null
 
   11 set_variable:  DEBUG       ACOUSTICS_DEBUG        2
 
   12 set_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]) "\
 
   18 set_variable   FORMULA     "[0] + [1] * ((x-[2])*(x-[2])/([5]*[5]) + (y-[3])*(y-[3])/([6]*[6]) + [4]*(x-[2])*(y-[3])/([5]*[6]))"
 
   19 set_variable:  FORMAT      GRAPHICS_FORMAT        gif
 
   20 set_variable+  BATCH       GRAPHICS_BATCH         -B
 
   23     usage "$script <string identifier> [<detector file>]"
 
   26 if (( $# == 0 || $# > 2 )); then
 
   27     fatal "Wrong number of arguments."
 
   30 set_variable  STRING              $argv[1]
 
   32 set_variable  DETECTOR_TXT        $WORKDIR/detectorzmul_${STRING}.txt
 
   33 set_variable  DETECTOR_ROOT       $WORKDIR/detectorzmul_${STRING}.root
 
   34 set_variable  G1_TXT              $WORKDIR/g1.txt
 
   35 set_variable  G1_ROOT             $WORKDIR/g1.root
 
   37 if [[ ! -f $DETECTOR_TXT ]] then
 
   38     fatal "No detector data file $DETECTOR_TXT."
 
   45 sort -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
 
   69 if (( $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
 
  113 if (( $# == 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
 
  139 rm -f  $DETECTOR_ROOT $G1_TXT $G1_ROOT