4 if [ -z $JPP_DIR ];
then
5 echo "Variable JPP_DIR undefined."
9 source $JPP_DIR/setenv.sh $JPP_DIR >& /dev/
null
14 set_variable FORMULA
"[0] + [1] * (sqrt(1.0 + 0.5*(x-[2])*(x-[2])/([3]*[3])) - 1.0)"
16 if ( do_usage $* );
then
17 usage "$script <tripod identifier> [<tripod file>]"
20 if (( $# == 0 || $# > 2 ));
then
21 fatal
"Wrong number of arguments."
26 source JAcoustics.sh --
35 if [[ ! -
f $TRIPOD_TXT ]]
then
36 fatal
"No tripod data file $TRIPOD_TXT."
43 sort -gr -
k 2,2 $TRIPOD_TXT | tail -1 |
read X Y RMS
56 END { print XMIN, XMAX }
58 if ( $1 < XMIN ) { XMIN = $1 }
59 if ( $1 > XMAX ) { XMAX = $1 }
63 if (( $X > $XMIN && $X < $XMAX ));
then
66 -
f ${TRIPOD_ROOT}:\.\* \
75 set_array P2 `JPrintFit -
f $WORKDIR/fit.root:\.\* -@
p2`
79 printf
"nominal %2d %7.3f %7.3f\n" $TRIPOD 0.0 `JPrintFit -
f $WORKDIR/fit.root:\.\* -x
"0.0"`
80 printf
"optimal %2d %7.3f %7.3f\n" $TRIPOD $X `JPrintFit -
f $WORKDIR/fit.root:\.\* -x
"$X"`
86 echo "Optimum value at limit; -> no fit."
87 printf
"nominal %2d %7.3f %7.3f\n" $TRIPOD 0.0 `awk -
v X=0.0
'{ if ($1 == X) { print $2 }}' $TRIPOD_TXT`
88 printf
"optimal %2d %7.3f %7.3f\n" $TRIPOD $X $Y
92 if (( $# == 2 ));
then
93 JEditTripod -
f $argv[2] -
T "$TRIPOD add 0.0 0.0 $X"
97 -
f $TRIPOD_ROOT:\.\* \
void set_variable(const std::string &name, const std::string &value)
Set environment variable.
bool read(Vec &v, std::istream &is)
Read a Vec(tor) from a stream.
then fatal No sound hydrophone file $HYDROPHONE_TXT fi JGraph f $HYDROPHONE_TXT o $HYDROPHONE_ROOT sort gr k
then fatal Wrong number of arguments fi set_variable STRING $argv[1] set_variable DETECTORXY_TXT $WORKDIR $DETECTORXY_TXT tail read X Y CHI2 RMS printf optimum n $X $Y $CHI2 $RMS awk v Y
do set_variable OUTPUT_DIRECTORY $WORKDIR T
then break fi done getCenter read X Y Z let X
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 JMuonMCEvt f $INPUT_FILE o $INTERMEDIATE_FILE d
then fatal Wrong number of arguments fi set_variable TRIPOD $argv[1] source JAcoustics sh CHECK_EXIT_CODE set_variable TRIPOD_TXT $WORKDIR tripodz_
do typeset Z STRING typeset Z FLOOR set_variable MODULE_TXT $WORKDIR $MODULE_TXT tail read X ZMAX RMS sort gr $MODULE_TXT tail read X ZMIN RMS echo $X $ZMIN $G1_TXT
then fatal Invalid tripod $TRIPOD
then usage $script< detector file >< inputfile > fi case set_variable WORKDIR
esac $JPP_BIN JLogger sh $LOGGER until pgrep JGetMessage</dev/null > dev null
#define DEBUG(A)
Message macros.
Double_t g1(const Double_t x)
Function.