sound-V:run.sh

Go to the documentation of this file.

#!/bin/zsh
script=${0##*/}

if [ -z $JPP_DIR ]; then
    echo "Variable JPP_DIR undefined."
    exit
fi

source $JPP_DIR/setenv.sh $JPP_DIR >& /dev/null

set_variable:  DEBUG    ACOUSTICS_DEBUG    2
set_variable:  WORKDIR  ACOUSTICS_WORKDIR  ./
set_variable:  FIT      ACOUSTICS_FIT      2

if do_usage $*; then
    usage "$script <detector file> (input file)+"
fi

if (( $# < 2 )); then
    fatal "Wrong number of arguments."
fi

set_variable  DETECTOR            $argv[1]
set_array     INPUT_FILES         $argv[2,-1]

eval `JPrintDetector -a $DETECTOR -O IDENTIFIER`

source JAcoustics.sh   $DETECTOR_ID

CHECK_EXIT_CODE

awk '$1 !~ /^#/ { print $0 }' $WORKDIR/sound_velocity.txt | read A B Z0

set_variable  VELOCITY_TXT        $WORKDIR/soundv.txt

for (( VELOCITY = $A - 10.0; $VELOCITY <= $A + 10.0; VELOCITY += 0.2 )); do

    rm -f $WORKDIR/katoomba.root
    
    JKatoomba \
        -a $DETECTOR                              \
        -f "$INPUT_FILES[*]"                      \
        -o $WORKDIR/katoomba.root                 \
        -T $WORKDIR/tripod.txt                    \
        -V "$VELOCITY $B $Z0"                     \
        -M $WORKDIR/mechanics.txt                 \
        -@ $WORKDIR/acoustics_fit_parameters.txt  \
        -@ "stdev      = 50"                      \
        -@ "mestimator = 1"                       \
        -F $FIT                                   \
        -u                                        \
        -d $DEBUG --!

    if (( `JPrintResult -f $WORKDIR/katoomba.root:chi2 -F "GetSumOfWeights"` > 1.0 )); then

        set_array RESULT `JPrintResult -f $WORKDIR/katoomba.root:chi2 -F "GetMean" -F "GetRMS / sqrt(GetSumOfWeights)"`

        printf "%12.5f %7.3f %7.3f\n" $VELOCITY $RESULT[*] >> $VELOCITY_TXT
    else
        error "No result."
    fi
done