Jpp  pmt_effective_area_update
the software that should make you happy
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
plot-canberra.sh
Go to the documentation of this file.
1 #!/bin/zsh
2 script=${0##*/}
3 
4 zmodload zsh/mathfunc
5 
6 if [ -z $JPP_DIR ]; then
7  echo "Variable JPP_DIR undefined."
8  exit
9 fi
10 
11 source $JPP_DIR/setenv.sh $JPP_DIR >& /dev/null
12 
13 set_variable: DEBUG ACOUSTICS_DEBUG 2
14 set_variable: WORKDIR ACOUSTICS_WORKDIR ./
15 set_variable FORMULA "[0] * exp(-0.5 * (x-[1])*(x-[1]) / ([2]*[2]))"
16 set_variable NUMBER_OF_ENTRIES 100
17 set_variable TMIN_MS -1.0
18 set_variable TMAX_MS +1.0
19 set_variable: FORMAT GRAPHICS_FORMAT gif
20 set_variable+ BATCH GRAPHICS_BATCH -B
21 
22 if do_usage $*; then
23  usage "$script <detector file> <input file>"
24 fi
25 
26 if (( $# != 2 )); then
27  fatal "Wrong number of arguments."
28 fi
29 
32 
33 eval `JPrintDetector -a $DETECTOR -O IDENTIFIER`
34 eval `JPrintDetector -a $DETECTOR -O SUMMARY`
35 
36 source JAcoustics.sh $DETECTOR_ID
37 
38 CHECK_EXIT_CODE
39 
40 
41 typeset -A TRIPODS
42 
43 get_tripods $WORKDIR/tripod.txt TRIPODS
44 
45 for EMITTER in ${(@k)TRIPODS}; do
46 
47  JCanberra \
48  -a $DETECTOR \
49  -f $INPUT_FILE \
50  -o "$WORKDIR/canberra[${EMITTER}].root" \
51  -T $WORKDIR/tripod.txt \
52  -V $WORKDIR/sound_velocity.txt \
53  -M $WORKDIR/mechanics.txt \
54  -E $EMITTER \
55  -d $DEBUG --!
56 done
57 
58 
59 HISTOGRAMS=(`ls $WORKDIR/canberra\[*\].root`)
60 
61 JOpera1D \
62  -f "${HISTOGRAMS//\.root/.root:.*toa}" \
63  -u Add \
64  -o $WORKDIR/sum.root >& /dev/null
65 
66 set_variable X `JPrintResult -f $WORKDIR/sum.root:\.\* -F GetMean`
67 set_variable RMS `JPrintResult -f $WORKDIR/sum.root:\.\* -F GetRMS`
68 
69 let XMIN="$X - 3.0*$RMS"
70 let XMAX="$X + 3.0*$RMS"
71 
72 JFit \
73  -f $WORKDIR/sum.root:\.\* \
74  -F "$FORMULA" \
75  -@ "p0 = GetMaximum" \
76  -@ "p1 = $X" \
77  -@ "p2 = 0.5*$RMS" \
78  -x "$XMIN $XMAX" \
79  -o $WORKDIR/fit.root \
80  -d $DEBUG
81 
82 let XMIN="$TMIN_MS * 1.0e-3"
83 let XMAX="$TMAX_MS * 1.0e-3"
84 
85 JPlot1D \
86  -f $WORKDIR/fit.root:\.\* \
87  -\> "#Deltat [s]" \
88  -x "$XMIN $XMAX" \
89  -N "X 505" \
90  -T "" \
91  -s 0 \
92  -o $WORKDIR/canberra.$FORMAT $BATCH
93 
94 rm -f $WORKDIR/sum.root
95 rm -f $WORKDIR/fit.root
96 
97 kill_child_processes_at_exit
98 
99 attach getModule -a $DETECTOR
100 
101 typeset -Z 4 STRING
102 typeset -Z 2 FLOOR
103 
104 set_variable FIRST_FLOOR 1
105 
106 for STRING in $STRINGS[*]; do
107 
108  echo -n "Creating graphics for string $STRING.."
109 
110  HISTOGRAMS=()
111 
112  for EMITTER in ${(@k)TRIPODS}; do
113 
114  set_variable STRING_TXT $WORKDIR/string_${STRING}\[${EMITTER}\].txt
115  set_variable STRING_ROOT $WORKDIR/string_${STRING}\[${EMITTER}\].root
116 
117  rm -f $STRING_TXT
118 
119  for (( FLOOR = $FIRST_FLOOR; $FLOOR <= $LAST_FLOOR; FLOOR += 1 )); do
120 
121  sput $STRING $FLOOR
122  sget MODULE
123 
124  set_variable N `JPrintResult -f $WORKDIR/canberra\[$EMITTER\].root:${MODULE} -F GetEntries`
125 
126  if [[ -n "$N" ]] && (( $N >= $NUMBER_OF_ENTRIES )); then
127 
128  set_variable X `JPrintResult -f $WORKDIR/canberra\[$EMITTER\].root:${MODULE} -F GetMean`
129  set_variable RMS `JPrintResult -f $WORKDIR/canberra\[$EMITTER\].root:${MODULE} -F GetRMS`
130 
131  let XMIN="$X - 3.0*$RMS"
132  let XMAX="$X + 3.0*$RMS"
133 
134  JFit \
135  -f $WORKDIR/canberra\[$EMITTER\].root:${MODULE} \
136  -F "$FORMULA" \
137  -@ "p0 = GetMaximum" \
138  -@ "p1 = $X" \
139  -@ "p2 = $RMS" \
140  -x "$XMIN $XMAX" \
141  -O L \
142  -o $WORKDIR/fit.root \
143  -d $DEBUG
144 
145  if ( `JPrintFit -f $WORKDIR/fit.root:\.\* -@p0 >& /dev/null` ); then
146 
147  set_array P1 `JPrintFit -f $WORKDIR/fit.root:\.\* -@p1`
148  set_array P2 `JPrintFit -f $WORKDIR/fit.root:\.\* -@p2`
149 
150  ((P1[1] = $P1[1] * 1.0e3)) # [ms]
151  ((P2[1] = abs($P2[1]) * 1.0e3)) # [ms]
152 
153  printf "%2d %9.6f %9.6f\n" $FLOOR $P1[1] $P2[1] >> $STRING_TXT
154  fi
155 
156  rm -f $WORKDIR/fit.root
157  fi
158  done
159 
160  JGraph \
161  -f $STRING_TXT \
162  -o $STRING_ROOT
163 
164  HISTOGRAMS+="${STRING_ROOT}:.*"
165 
166  done
167 
168  JPlot1D \
169  -f "$HISTOGRAMS[*]" \
170  -w 800x400 \
171  -x "0.5 18.5" \
172  -y "$TMIN_MS $TMAX_MS" \
173  -\> "floor" \
174  -\^ "#Deltat [ms]" \
175  -N "X 505" \
176  -T "[$STRING]" \
177  -L TR \
178  -o $WORKDIR/string_${STRING}.$FORMAT $BATCH
179 
180  echo " -> $WORKDIR/string_${STRING}.$FORMAT"
181 
182 done
183 
184 detach
data_type w[N+1][M+1]
Definition: JPolint.hh:741
then fatal No hydrophone data file $HYDROPHONE_TXT fi sort gr k
TPaveText * p1
do $JPP JMEstimator M
Definition: JMEstimator.sh:37
do JCanberra a $DETECTOR f $INPUT_FILE o $WORKDIR canberra[${EMITTER}] root T $WORKDIR tripod txt V $WORKDIR sound_velocity txt M $WORKDIR mechanics txt E $EMITTER d $DEBUG!done HISTOGRAMS
clean eval JPrintDetector a $DETECTOR O IDENTIFIER eval JPrintDetector a $DETECTOR O SUMMARY set_variable STRING
then usage $script< detector file >< inputfile > nUtility script to create PDF and CDF of transition time distribution fi case set_variable WORKDIR
Definition: JLegolas.sh:31
set_variable INPUT_FILE
do set_variable STRING_TXT $WORKDIR string_
do JCanberra a $DETECTOR f $INPUT_FILE o $WORKDIR canberra[${EMITTER}\] root T $WORKDIR tripod txt V $WORKDIR sound_velocity txt M $WORKDIR mechanics txt E $EMITTER d $DEBUG!done kill_child_processes_at_exit attach getModule a $DETECTOR typeset Z STRING typeset Z FLOOR set_variable FIRST_FLOOR for STRING in $STRINGS[*]
Definition: JCanberra.sh:62
exit
Definition: JPizza.sh:36
then JPizza f
Definition: JPizza.sh:46
then echo
then fatal Invalid string $STRING
then echo Variable JPP_DIR undefined exit fi source $JPP_DIR setenv sh $JPP_DIR &dev null set_variable
Definition: JAcoustics.sh:20
do set_variable OUTPUT_DIRECTORY $WORKDIR T
then break fi done getCenter read X Y Z let X
do $DIR JTransitTime o
Definition: JTransitTime.sh:44
then awk F
* usage
then JFileTuna f $INPUT_FILE
Definition: file-Tuna.sh:66
p2
Definition: module-Z:fit.sh:73
*set_variable DETECTOR $argv[1] set_variable INPUT_FILE $argv[2,-2] set_variable OUTPUT_FILE $argv[-1]
Definition: JDomino.sh:39
then JMuonMCEvt f $INPUT_FILE o $INTERMEDIATE_FILE d
Definition: JMuonPath.sh:47
then JCalibrateToT a
Definition: JTuneHV.sh:116
then set_variable MODULE getModule a $DETECTOR L $STRING $FLOOR JEditDetector a $DETECTOR M $MODULE add $X o $DETECTOR else echo No update of detector $DETECTOR
alias put_queue eval echo n
Definition: qlib.csh:19
then usage $script< input_file >< detector_file > fi set_variable OUTPUT_DIR set_variable SELECTOR JDAQTimesliceL1 set_variable DEBUG case set_variable DEBUG
then display $WORKDIR
Definition: plot-Domino.sh:128
then let XMIN
set_variable DETECTOR
double u[N+1]
Definition: JPolint.hh:739
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 CHECK_EXIT_CODE typeset A TRIPODS get_tripods $WORKDIR tripod txt TRIPODS for EMITTER in
Definition: JCanberra.sh:40
then usage $script[input file[working directory[option]]] nWhere option can be N
Definition: JMuonPostfit.sh:36
script
Definition: JAcoustics.sh:2
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
const JModule & getModule(const JDetector &detector, const JModuleLocation &location)
find module with a given string and floor number
then usage $script[input file[working directory[option]]] nWhere option can be E
Definition: JMuonPostfit.sh:36
esac done
Definition: JAddHDE.sh:21