4 if [ -z $JPP_DIR ];
then
5 echo "Variable JPP_DIR undefined."
9 source $JPP_DIR/setenv.sh $JPP_DIR >& /dev/
null
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)"
14 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 usage "$script <tripod identifier> [<tripod file>]"
22 if (( $# == 0 || $# > 2 ));
then
23 fatal
"Wrong number of arguments."
28 source JAcousticsToolkit.sh
37 if [[ ! -
f $TRIPOD_TXT ]]
then
38 fatal
"No tripod data file $TRIPOD_TXT."
45 sort -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 }
69 if (( $X > $XMIN && $X < $XMAX && $Y > $YMIN && $Y < $YMAX ));
then
77 -
f ${TRIPOD_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"`
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
112 if (( $# == 2 ));
then
113 JEditTripod -
f $argv[2] -
T "$TRIPOD add $X $Y 0.0" -
o $argv[2]
117 -
f $TRIPOD_ROOT:\.\* \
then usage $script< detector identifier >< startdate\"YYYY-MM-DDHH:MM:SS\"><finaldate\"YYYY-MM-DDHH:MM:SS\"><QA/QCfile> fi case set_variable QAQC_TXT $argv[4]
then fatal No hydrophone data file $HYDROPHONE_TXT fi sort gr k
std::istream & read(std::istream &in, JTestSummary &summary, const char delimiter= ' ')
Read test summary.
o $QUALITY_ROOT d $DEBUG!JPlot1D f
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
then fatal Wrong number of arguments fi JConvertDetectorFormat a o
fatal Invalid number of arguments esac let YMIN
then echo Variable JPP_DIR undefined exit fi source $JPP_DIR setenv sh $JPP_DIR &dev null set_variable
do set_variable STRING_TXT awk
do set_variable OUTPUT_DIRECTORY $WORKDIR T
then echo Variable JPP_DIR undefined exit fi source $JPP_DIR setenv sh $JPP_DIR &dev null set_variable DEBUG set_variable WORKDIR
then usage $script[distance] fi case set_variable R
then JMuonMCEvt f $INPUT_FILE o $INTERMEDIATE_FILE d
no fit printf nominal n $STRING awk v X
do set_variable MODULE getModule a $WORKDIR detector_a datx L $STRING JEditDetector a $WORKDIR detector_a datx M $MODULE setz o $WORKDIR detector_a datx JEditDetector a $WORKDIR detector_b datx M $MODULE setz o $WORKDIR detector_b datx done echo Output stored at $WORKDIR detector_a datx and $WORKDIR tripod_a txt JDrawDetector2D a $WORKDIR detector_a datx a $WORKDIR detector_b datx L BL o detector $FORMAT $BATCH JDrawDetector2D T $WORKDIR tripod_a txt T $WORKDIR tripod_b txt L BL o tripod $FORMAT $BATCH JCompareDetector a $WORKDIR detector_a datx b $WORKDIR detector_b datx o $WORKDIR abc root &dev null for KEY in X Y Z
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
esac $JPP_BIN JLogger sh $LOGGER until pgrep JGetMessage</dev/null > dev null
then fatal Wrong number of arguments fi set_variable TRIPOD $argv[1] source JAcousticsToolkit sh CHECK_EXIT_CODE set_variable TRIPOD_TXT $WORKDIR tripodxy_
#define DEBUG(A)
Message macros.
Double_t g1(const Double_t x)
Function.