4 if [ -z $JPP_DIR ];
then
5 echo "Variable JPP_DIR undefined."
9 source $JPP_DIR/setenv.sh $JPP_DIR >& /dev/
null
15 if ( do_usage $* );
then
16 usage "$script <detector file> (input file)+"
20 fatal
"Wrong number of arguments."
26 eval `JPrintDetector -
a $DETECTOR -O IDENTIFIER`
28 source JAcoustics.sh $DETECTOR_ID
34 if (( ${#${(@
k)TRIPODS}} != 3 ));
then
35 fatal
"Number of tripods ${#${(@k)TRIPODS}} != 3."
46 echo "# $A $B $C" > $TRIPOD_TXT #
write header
50 for (( Z[$A] = -2.0; $Z[$A] <= 2.0; Z[$A] += 0.2 ));
do
51 for (( Z[$B] = -2.0; $Z[$B] <= 2.0; Z[$B] += 0.2 ));
do
52 for (( Z[$C] = -2.0; $Z[$C] <= 2.0; Z[$C] += 0.2 ));
do
56 for key
in "${(@k)TRIPODS}";
do
57 JEditTripod -
f $TMPDIR/tripod.txt -
T "$key add 0.0 0.0 ${Z[$key]}"
60 rm -
f $TMPDIR/katoomba.root
64 -
f \
"$INPUT_FILES[*]\" \
65 -o $TMPDIR/katoomba.root \
66 -T $TMPDIR/tripod.txt \
68 -@ `make_equation PARAMETERS` \
70 -@ \"mestimator = 1\" \
75 set_variable CHI2 `JPrintResult -f $TMPDIR/katoomba.root:chi2 -F "GetMean
"`
76 set_variable RMS `JPrintResult -f $TMPDIR/katoomba.root:chi2 -F "GetRMS / sqrt(GetEntries)
"`
78 printf "%7.3f %7.3f %7.3f %7.3f %7.3f\n
" $Z[$A] $Z[$B] $Z[$C] $CHI2 $RMS >> $TRIPOD_TXT
void set_variable(const std::string &name, const std::string &value)
Set environment variable.
then fatal No sound hydrophone file $HYDROPHONE_TXT fi JGraph f $HYDROPHONE_TXT o $HYDROPHONE_ROOT sort gr k
do set_array DAQHEADER JPrintDAQHeader f
static const double C
Physics constants.
do set_variable OUTPUT_DIRECTORY $WORKDIR T
then fatal Not enough arguments fi set_variable DETECTOR $argv[1] INPUT_FILES
then echo Variable JPP_DIR undefined exit fi source $JPP_DIR setenv sh $JPP_DIR &dev null set_variable ACOUSTICS_DEBUG
*set_variable DETECTOR $argv[1] set_variable INPUT_FILE $argv[2,-2] set_variable OUTPUT_FILE $argv[-1]
then $JPP_DIR software JCalibrate JCalibrateToT a
bool write(const Vec &v, std::ostream &os)
Write a Vec(tor) to a stream.
then fatal Wrong number of arguments fi set_variable DETECTOR $argv[1] set_variable INPUT_FILE $argv[2] eval JPrintDetector a $DETECTOR O IDENTIFIER eval JPrintDetector a $DETECTOR O SUMMARY source JAcoustics sh $DETECTOR_ID typeset A TRIPODS get_tripods $WORKDIR tripod txt TRIPODS for EMITTER in
do for((RUN=${RANGE%%-*};$RUN<=${RANGE##*-};RUN+=1))
then usage $script< detector file >< inputfile > fi case set_variable WORKDIR
source $JPP_DIR setenv csh $JPP_DIR eval JShellParser o a A
esac $JPP_BIN JLogger sh $LOGGER until pgrep JGetMessage</dev/null > dev null
#define DEBUG(A)
Message macros.