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] * (sqrt(1.0 + 0.5*(x-[2])*(x-[2])/([5]*[5]) + 0.5*(y-[3])*(y-[3])/([6]*[6]) + [4]*(x-[2])*(y-[3])/([5]*[6])) - 1.0)"  
 
   14set_variable   FORMULA     "[0] + [1] * ((x-[2])*(x-[2])/([5]*[5]) + (y-[3])*(y-[3])/([6]*[6]) + [4]*(x-[2])*(y-[3])/([5]*[6]))"
 
   15set_variable:  FORMAT      GRAPHICS_FORMAT        gif
 
   16set_variable+  BATCH       GRAPHICS_BATCH         -B
 
   19    usage "$script <tripod identifier> [<tripod file>]"
 
   22if (( $# == 0 || $# > 2 )); then
 
   23    fatal "Wrong number of arguments."
 
   26set_variable  TRIPOD              $argv[1]
 
   28source JAcousticsToolkit.sh
 
   32set_variable  TRIPOD_TXT          $WORKDIR/tripodxy_${TRIPOD}.txt
 
   33set_variable  TRIPOD_ROOT         $WORKDIR/tripodxy_${TRIPOD}.root
 
   34set_variable  G1_TXT              $WORKDIR/g1.txt
 
   35set_variable  G1_ROOT             $WORKDIR/g1.root
 
   37if [[ ! -f $TRIPOD_TXT ]] then
 
   38    fatal "No tripod data file $TRIPOD_TXT."
 
   45sort -gr -k 3,3 $TRIPOD_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    ' $TRIPOD_TXT | read XMIN XMAX YMIN YMAX
 
   69if (( $X > $XMIN && $X < $XMAX && $Y > $YMIN && $Y < $YMAX )); then
 
   77        -f ${TRIPOD_ROOT}:\.\*                    \
 
   78        -o $WORKDIR/fit.root                      \
 
   89        -R "p2 = $XMIN $XMAX"                     \
 
   90        -R "p3 = $YMIN $YMAX"                     \
 
   93    set_array P2 `JPrintFit -f $WORKDIR/fit.root:user -@p2`
 
   94    set_array P3 `JPrintFit -f $WORKDIR/fit.root:user -@p3`
 
   99    printf "nominal %2d %7.3f %7.3f %7.3f\n" $TRIPOD 0.0 0.0 `JPrintFit -f $WORKDIR/fit.root:user -x "0.0 0.0"`
 
  100    printf "optimal %2d %7.3f %7.3f %7.3f\n" $TRIPOD $X  $Y  `JPrintFit -f $WORKDIR/fit.root:user -x "$X  $Y"`
 
  102    mv $WORKDIR/fit.root $TRIPOD_ROOT
 
  106    echo   "Optimum value at limit; -> no fit."
 
  107    printf "nominal %2d %7.3f %7.3f %7.3f\n" $TRIPOD 0.0 0.0 `awk -v X=0.0 -v Y=0.0 '{ if ($1 == X && $2 == Y) { print $3 }}' $TRIPOD_TXT`
 
  108    printf "optimal %2d %7.3f %7.3f %7.3f\n" $TRIPOD $X  $Y  $Z
 
  112if (( $# == 2 )); then
 
  113    JEditTripod -f $argv[2] -T "$TRIPOD add $X $Y 0.0" -o $argv[2]
 
  117    -f $TRIPOD_ROOT:\.\*                      \
 
  124    -o $WORKDIR/tripodxy_${TRIPOD}.$FORMAT    $BATCH
 
  126rm -f  $TRIPOD_ROOT $G1_TXT $G1_ROOT