[525] | 1 | |
---|
| 2 | set cols ( blue red black green purple orange cyan violet yellow ) |
---|
| 3 | |
---|
| 4 | set toppath "/sps/baoradio/AmasNancay/JEC" |
---|
[532] | 5 | set source "Abell${1}" |
---|
| 6 | set srclower "abell${1}" |
---|
| 7 | set date "${2}" |
---|
[525] | 8 | # implicitement firstcycle =1 |
---|
[532] | 9 | set lastcycle $3 |
---|
| 10 | lastP1cycle = ${lastcycle}+1 |
---|
[525] | 11 | |
---|
[532] | 12 | echo Analyse ${source}/${data} from cycles 1-${lastcycle} (${lastP1cycle}) |
---|
| 13 | |
---|
| 14 | pssetfilename rawonoff-${source}-${date}.ps |
---|
| 15 | |
---|
| 16 | |
---|
| 17 | |
---|
| 18 | |
---|
[525] | 19 | #set showFigs ( 0 0 0 0 0 0 0 ) |
---|
| 20 | |
---|
| 21 | |
---|
| 22 | |
---|
| 23 | ##################################### |
---|
| 24 | #Plots RAW ON-OFF (RAW = WO calibrations) |
---|
| 25 | ##################################### |
---|
| 26 | openppf ${toppath}/${source}/${date}${srclower}/diffOnOffRaw_${date}_${srclower}.ppf |
---|
| 27 | |
---|
| 28 | |
---|
| 29 | #specONOFFRaw<i> Matrix 2 x 8192 : i=0... |
---|
| 30 | #specONOFFRawMean Matrix 2 x 8192 |
---|
| 31 | #specONOFFRaw2ChanMean Vector 8192 x 1 |
---|
| 32 | |
---|
| 33 | |
---|
| 34 | ##################################### |
---|
| 35 | #Plots RAW ON-OFF with mean computed among the cycles AND(or NOT) the Channels |
---|
| 36 | ##################################### |
---|
| 37 | |
---|
| 38 | #if ( $showFigs[0] == 1 ) then |
---|
| 39 | echo "Figure 1.........." |
---|
| 40 | |
---|
| 41 | del sallcyclev0 |
---|
| 42 | objaoper specONOFFRawMean row 0 sallcyclev0 |
---|
| 43 | del sallcyclev1 |
---|
| 44 | objaoper specONOFFRawMean row 1 sallcyclev1 |
---|
| 45 | |
---|
| 46 | newwin 1 1 |
---|
| 47 | graphicatt "xylimits=1250,1500,-0.01,0.01" |
---|
| 48 | plot2d specONOFFRaw2ChanMean (n/8192)*250+1250 val n>0 "black cpts nsta notit" |
---|
| 49 | plot2d sallcyclev0 (n/8192)*250+1250 val n>0 "same blue cpts nsta notit" |
---|
| 50 | plot2d sallcyclev1 (n/8192)*250+1250 val n>0 "same red cpts nsta notit" |
---|
[532] | 51 | settitle "ON-OFF ${source}/${date} Ch 0 (blue) Ch 1 (red) Mean (black) All cycles" |
---|
[525] | 52 | setaxelabels "Freq. (MHz)" "I (a.u)" |
---|
| 53 | |
---|
[532] | 54 | w2ps |
---|
| 55 | |
---|
[525] | 56 | #endif |
---|
| 57 | |
---|
| 58 | ##################################### |
---|
| 59 | #Plots RAW ON-OFF chan 0 & 1 separaed and cycle per cycle |
---|
| 60 | ##################################### |
---|
| 61 | |
---|
| 62 | |
---|
| 63 | #if ( $showFigs[1] == 1 ) then |
---|
| 64 | echo "Figure 2.........." |
---|
| 65 | |
---|
| 66 | newwin 1 1 |
---|
| 67 | graphicatt "xylimits=1250,1500,-0.01,0.01" |
---|
| 68 | del sc1v0 |
---|
| 69 | objaoper specONOFFRaw1 row 0 sc1v0 |
---|
| 70 | plot2d sc1v0 (n/8192)*250+1250 val n>0 "$cols[0] cpts nsta notit" |
---|
| 71 | for ic 2:${lastP1cycle} |
---|
| 72 | k = ${ic}-floor(${ic}/${#cols})*${#cols} |
---|
| 73 | del sc${ic}v0 |
---|
| 74 | objaoper specONOFFRaw${ic} row 0 sc${ic}v0 |
---|
| 75 | plot2d sc${ic}v0 (n/8192)*250+1250 val n>0 "same $cols[k] cpts nsta notit" |
---|
| 76 | end |
---|
[532] | 77 | settitle "ON-OFF ${source}/${date} Ch 0 cycle per cycle" |
---|
[525] | 78 | setaxelabels "Freq. (MHz)" "I (a.u)" |
---|
[532] | 79 | w2ps |
---|
[525] | 80 | |
---|
[532] | 81 | |
---|
| 82 | |
---|
[525] | 83 | newwin 1 1 |
---|
| 84 | graphicatt "xylimits=1250,1500,-0.01,0.01" |
---|
| 85 | del sc1v1 |
---|
| 86 | objaoper specONOFFRaw1 row 1 sc1v1 |
---|
| 87 | plot2d sc1v1 (n/8192)*250+1250 val n>0 "$cols[0] cpts nsta notit" |
---|
| 88 | for ic 2:${lastP1cycle} |
---|
| 89 | k = ${ic}-floor(${ic}/${#cols})*${#cols} |
---|
| 90 | del sc${ic}v1 |
---|
| 91 | objaoper specONOFFRaw${ic} row 1 sc${ic}v1 |
---|
| 92 | plot2d sc${ic}v1 (n/8192)*250+1250 val n>0 "same $cols[k] cpts nsta notit" |
---|
| 93 | end |
---|
[532] | 94 | settitle "ON-OFF ${source}/${date} Ch 1 cycle per cycle" |
---|
[525] | 95 | setaxelabels "Freq. (MHz)" "I (a.u)" |
---|
[532] | 96 | w2ps |
---|
[525] | 97 | |
---|
[532] | 98 | |
---|
| 99 | |
---|
[525] | 100 | #endif |
---|
| 101 | |
---|
| 102 | ##################################### |
---|
| 103 | # Plots RAW no calibration at all and no Diff ON-OFF |
---|
| 104 | ##################################### |
---|
| 105 | openppf ${toppath}/${source}/${date}${srclower}/dataRaw_${date}_${srclower}.ppf |
---|
| 106 | |
---|
| 107 | #if ( $showFigs[2] == 1 ) then |
---|
| 108 | echo "Figure 3........." |
---|
| 109 | |
---|
| 110 | newwin 2 2 |
---|
| 111 | graphicatt "xylimits=1250,1500,0.95,1.05" |
---|
| 112 | |
---|
| 113 | ### # |
---|
| 114 | ### On Ch 0 # On Ch 1 |
---|
| 115 | ###################### |
---|
| 116 | ### Off Ch 0# Off Ch 1 |
---|
| 117 | ### # |
---|
| 118 | |
---|
| 119 | set mode On |
---|
| 120 | set first 1 |
---|
| 121 | for ic 1:${lastP1cycle} |
---|
| 122 | k = ${ic}-floor(${ic}/${#cols})*${#cols} |
---|
| 123 | del sm${mode}c${ic}v0 |
---|
| 124 | objaoper specRaw${mode}${ic} row 0 sm${mode}c${ic}v0 |
---|
| 125 | if ( ${first} == 1 ) then |
---|
| 126 | plot2d sm${mode}c${ic}v0 (n/8192)*250+1250 val n>0 "$cols[k] cpts nsta notit" |
---|
| 127 | else |
---|
| 128 | plot2d sm${mode}c${ic}v0 (n/8192)*250+1250 val n>0 "same $cols[k] cpts nsta notit" |
---|
| 129 | endif |
---|
| 130 | set first 0 |
---|
| 131 | end |
---|
[532] | 132 | settitle "${source}/${date} Raw: On Ch 0" |
---|
[525] | 133 | |
---|
| 134 | set first 1 |
---|
| 135 | for ic 1:${lastP1cycle} |
---|
| 136 | k = ${ic}-floor(${ic}/${#cols})*${#cols} |
---|
| 137 | del sm${mode}c${ic}v1 |
---|
| 138 | objaoper specRaw${mode}${ic} row 1 sm${mode}c${ic}v1 |
---|
| 139 | if ( ${first} == 1 ) then |
---|
| 140 | plot2d sm${mode}c${ic}v1 (n/8192)*250+1250 val n>0 "$cols[k] cpts nsta notit" |
---|
| 141 | else |
---|
| 142 | plot2d sm${mode}c${ic}v1 (n/8192)*250+1250 val n>0 "same $cols[k] cpts nsta notit" |
---|
| 143 | endif |
---|
| 144 | set first 0 |
---|
| 145 | end |
---|
[532] | 146 | settitle "${source}/${date} Raw: On Ch 1" |
---|
[525] | 147 | |
---|
| 148 | set mode Off |
---|
| 149 | set first 1 |
---|
| 150 | for ic 1:${lastP1cycle} |
---|
| 151 | k = ${ic}-floor(${ic}/${#cols})*${#cols} |
---|
| 152 | del sm${mode}c${ic}v0 |
---|
| 153 | objaoper specRaw${mode}${ic} row 0 sm${mode}c${ic}v0 |
---|
| 154 | if ( ${first} == 1 ) then |
---|
| 155 | plot2d sm${mode}c${ic}v0 (n/8192)*250+1250 val n>0 "$cols[k] cpts nsta notit" |
---|
| 156 | else |
---|
| 157 | plot2d sm${mode}c${ic}v0 (n/8192)*250+1250 val n>0 "same $cols[k] cpts nsta notit" |
---|
| 158 | endif |
---|
| 159 | set first 0 |
---|
| 160 | end |
---|
[532] | 161 | settitle "${source}/${date} Raw: Off Ch 0" |
---|
[525] | 162 | |
---|
| 163 | set first 1 |
---|
| 164 | for ic 1:${lastP1cycle} |
---|
| 165 | k = ${ic}-floor(${ic}/${#cols})*${#cols} |
---|
| 166 | del sm${mode}c${ic}v1 |
---|
| 167 | objaoper specRaw${mode}${ic} row 1 sm${mode}c${ic}v1 |
---|
| 168 | if ( ${first} == 1 ) then |
---|
| 169 | plot2d sm${mode}c${ic}v1 (n/8192)*250+1250 val n>0 "$cols[k] cpts nsta notit" |
---|
| 170 | else |
---|
| 171 | plot2d sm${mode}c${ic}v1 (n/8192)*250+1250 val n>0 "same $cols[k] cpts nsta notit" |
---|
| 172 | endif |
---|
| 173 | set first 0 |
---|
| 174 | end |
---|
[532] | 175 | settitle "${source}/${date} Raw: Off Ch 1" |
---|
[525] | 176 | |
---|
[532] | 177 | w2ps |
---|
| 178 | |
---|
[525] | 179 | #endif |
---|
| 180 | |
---|
| 181 | ##################################### |
---|
| 182 | #Plots RAW ON-OFF MEAN REDUCED chan 0 & 1 separaed and cycle per cycle |
---|
| 183 | ##################################### |
---|
| 184 | |
---|
| 185 | #if ( $showFigs[3] == 1 ) then |
---|
| 186 | echo "Figure 4.........." |
---|
| 187 | |
---|
| 188 | newwin 1 1 |
---|
| 189 | graphicatt "xylimits=1250,1500,-0.01,0.01" |
---|
| 190 | del sc1v0 |
---|
| 191 | objaoper redMeanONOFFRaw1 row 0 sc1v0 |
---|
| 192 | plot2d sc1v0 (n/32)*250+1250 val n>0 "$cols[0] marker=fcircle,7 nsta notit" |
---|
| 193 | for ic 2:${lastP1cycle} |
---|
| 194 | k = ${ic}-floor(${ic}/${#cols})*${#cols} |
---|
| 195 | del sc${ic}v0 |
---|
| 196 | objaoper redMeanONOFFRaw${ic} row 0 sc${ic}v0 |
---|
| 197 | plot2d sc${ic}v0 (n/32)*250+1250 val n>0 "same $cols[k] marker=fcircle,7 nsta notit" |
---|
| 198 | end |
---|
[532] | 199 | settitle "ON-OFF Mean 32bins ${source}/${date} Ch 0 cycle per cycle" |
---|
[525] | 200 | setaxelabels "Freq. (MHz)" "I (a.u)" |
---|
[532] | 201 | w2ps |
---|
[525] | 202 | |
---|
| 203 | |
---|
| 204 | newwin 1 1 |
---|
| 205 | graphicatt "xylimits=1250,1500,-0.01,0.01" |
---|
| 206 | del sc1v1 |
---|
| 207 | objaoper redMeanONOFFRaw1 row 1 sc1v1 |
---|
| 208 | plot2d sc1v1 (n/32)*250+1250 val n>0 "$cols[0] marker=fcircle,7 nsta notit" |
---|
| 209 | for ic 2:${lastP1cycle} |
---|
| 210 | k = ${ic}-floor(${ic}/${#cols})*${#cols} |
---|
| 211 | del sc${ic}v1 |
---|
| 212 | objaoper redMeanONOFFRaw${ic} row 1 sc${ic}v1 |
---|
| 213 | plot2d sc${ic}v1 (n/32)*250+1250 val n>0 "same $cols[k] marker=fcircle,7 nsta notit" |
---|
| 214 | end |
---|
[532] | 215 | settitle "ON-OFF Mean 32bins ${source}/${date} Ch 1 cycle per cycle" |
---|
[525] | 216 | setaxelabels "Freq. (MHz)" "I (a.u)" |
---|
[532] | 217 | w2ps |
---|
[525] | 218 | |
---|
| 219 | |
---|
| 220 | #endif |
---|
| 221 | |
---|
| 222 | ##################################### |
---|
| 223 | #Plots RAW ON-OFF SIGMA REDUCED chan 0 & 1 separaed and cycle per cycle |
---|
| 224 | ##################################### |
---|
| 225 | |
---|
| 226 | |
---|
| 227 | #if ( $showFigs[4] == 1 ) then |
---|
| 228 | echo "Figure 5.........." |
---|
| 229 | |
---|
| 230 | newwin 1 1 |
---|
| 231 | graphicatt "xylimits=1250,1500,0,0.01" |
---|
| 232 | del sc1v0 |
---|
| 233 | objaoper redSigmaONOFFRaw1 row 0 sc1v0 |
---|
| 234 | plot2d sc1v0 (n/32)*250+1250 val n>0 "$cols[0] marker=fcircle,7 nsta notit" |
---|
| 235 | for ic 2:${lastP1cycle} |
---|
| 236 | k = ${ic}-floor(${ic}/${#cols})*${#cols} |
---|
| 237 | del sc${ic}v0 |
---|
| 238 | objaoper redSigmaONOFFRaw${ic} row 0 sc${ic}v0 |
---|
| 239 | plot2d sc${ic}v0 (n/32)*250+1250 val n>0 "same $cols[k] marker=fcircle,7 nsta notit" |
---|
| 240 | end |
---|
[532] | 241 | settitle "ON-OFF Sigma over 32bins ${source}/${date} Ch 0 cycle per cycle" |
---|
[525] | 242 | setaxelabels "Freq. (MHz)" "I (a.u)" |
---|
[532] | 243 | w2ps |
---|
[525] | 244 | |
---|
| 245 | newwin 1 1 |
---|
| 246 | graphicatt "xylimits=1250,1500,0,0.01" |
---|
| 247 | del sc1v1 |
---|
| 248 | objaoper redSigmaONOFFRaw1 row 1 sc1v1 |
---|
| 249 | plot2d sc1v1 (n/32)*250+1250 val n>0 "$cols[0] marker=fcircle,7 nsta notit" |
---|
| 250 | for ic 2:${lastP1cycle} |
---|
| 251 | k = ${ic}-floor(${ic}/${#cols})*${#cols} |
---|
| 252 | del sc${ic}v1 |
---|
| 253 | objaoper redSigmaONOFFRaw${ic} row 1 sc${ic}v1 |
---|
| 254 | plot2d sc${ic}v1 (n/32)*250+1250 val n>0 "same $cols[k] marker=fcircle,7 nsta notit" |
---|
| 255 | end |
---|
[532] | 256 | settitle "ON-OFF Sigma over 32bins ${source}/${date} Ch 1 cycle per cycle" |
---|
[525] | 257 | setaxelabels "Freq. (MHz)" "I (a.u)" |
---|
[532] | 258 | w2ps |
---|
[525] | 259 | |
---|
| 260 | #endif |
---|
| 261 | |
---|
| 262 | ##################################### |
---|
| 263 | #Plots RAW ON-OFF MEAN REDUCED chan 0 & 1 separaed ALL cycles |
---|
| 264 | ##################################### |
---|
| 265 | |
---|
| 266 | #if ( $showFigs[5] == 1 ) then |
---|
| 267 | echo "Figure 6.........." |
---|
| 268 | |
---|
| 269 | newwin 1 1 |
---|
| 270 | graphicatt "xylimits=1250,1500,-0.01,0.01" |
---|
| 271 | del scallv0 |
---|
| 272 | del scallv1 |
---|
| 273 | |
---|
| 274 | objaoper redMeanONOFFRawAll row 0 scallv0 |
---|
| 275 | objaoper redMeanONOFFRawAll row 1 scallv1 |
---|
| 276 | plot2d scallv0 (n/32)*250+1250 val n>0 "blue marker=fcircle,7 nsta notit" |
---|
| 277 | plot2d scallv1 (n/32)*250+1250 val n>0 "red same marker=fcircle,7 nsta notit" |
---|
[532] | 278 | settitle "ON-OFF Mean 32bins ${source}/${date} Ch 0 (blue) Ch 1 (red) All cycles" |
---|
[525] | 279 | setaxelabels "Freq. (MHz)" "I (a.u)" |
---|
[532] | 280 | w2ps |
---|
[525] | 281 | |
---|
| 282 | #endif |
---|
| 283 | |
---|
| 284 | ##################################### |
---|
| 285 | #Plots RAW ON-OFF SIGMA REDUCED chan 0 & 1 separaed and cycle per cycle |
---|
| 286 | ##################################### |
---|
| 287 | |
---|
| 288 | |
---|
| 289 | #if ( $showFigs[5] == 1 ) then |
---|
| 290 | echo "Figure 6.........." |
---|
| 291 | |
---|
| 292 | newwin 1 1 |
---|
[532] | 293 | graphicatt "xylimits=1250,1500,0,0.001" |
---|
[525] | 294 | del scallv0 |
---|
| 295 | del scallv1 |
---|
| 296 | objaoper redSigmaONOFFRawAll row 0 scallv0 |
---|
| 297 | objaoper redSigmaONOFFRawAll row 1 scallv1 |
---|
| 298 | plot2d scallv0 (n/32)*250+1250 val n>0 "blue marker=fcircle,7 nsta notit" |
---|
| 299 | plot2d scallv1 (n/32)*250+1250 val n>0 "red same marker=fcircle,7 nsta notit" |
---|
[532] | 300 | settitle "ON-OFF Sigma over 32bins ${source}/${date} Ch 0 (blue) Ch 1 (red) All cycles" |
---|
[525] | 301 | setaxelabels "Freq. (MHz)" "I (a.u)" |
---|
[532] | 302 | w2ps |
---|
[525] | 303 | |
---|
[532] | 304 | #endif |
---|
| 305 | |
---|
| 306 | ###################### |
---|
| 307 | psclosefile |
---|