Commit 4752b661 authored by Reza  ANSARI's avatar Reza ANSARI
Browse files

petites corrections ds placx.pic , Reza 19/05/2015

parent a277f2c3
......@@ -12,7 +12,7 @@ setaxesatt 'font=helvetica,bold,16 fixedfontsize minorticks'
# Ouvrir le fichier
openppf $flnm.ppf
set DT $flnm
print $DT
print $DT 1
## Facteur de normalisation entre les voies x 1.e-4
## 1 1/3.48 1.06 0.92 1 0.98 0.377 1.32
......@@ -27,7 +27,7 @@ plot2d $DT time/3600 p1*$FNORM[0] 1 " nsta cpts notit $COLS[0] "
### trace de p2 ... p8
for i 1:8
j = i+1
plot2d $NT time/3600 p$j*$FNORM[i] 1 "nsta cpts same notit $COLS[i] "
plot2d $DT time/3600 p$j*$FNORM[i] 1 "nsta cpts same notit $COLS[i] "
end
### Axes et titres
setaxelabels 'Time (hours)' 'P1...P8 (arb.units)' 'font=helvetica,bolditalic,16 black'
......@@ -40,21 +40,22 @@ plot2d $DT time/3600 p1HI*$FNORM[0] 1 " nsta cpts notit $COLS[0] "
### trace de p2 ... p8
for i 1:8
j = i+1
plot2d $NT time/3600 p$jHI*$FNORM[i] 1 "nsta cpts same notit $COLS[i] "
plot2d $DT time/3600 p${j}HI*$FNORM[i] 1 "nsta cpts same notit $COLS[i] "
end
### Axes et titres
setaxelabels 'Time (hours)' 'P1...P8 (arb.units)' 'font=helvetica,bolditalic,16 black'
settitle "$titre @1420 MHz" ' ' 'font=helvetica,bold,18 black'
###### Trace des 6 cross-correlations
set XCORNORM ( 1.e-3 1.e-3 1.e-3 1.e-3 1.e-3 1.e-3 )
set XCOR ( xh1h2 xh1h3 xh1h4 xh2h3 xh2h4 xh3h4 )
set XCORTIT ( 1H-2H 1H-3H 1H-4H 2H-3H 2H-4H 3H-4H )
## On trace p1 en fct du temps
newwin 3 2 900 600
for i 0:6
plot2d $DT time/3600 sqrt(pow($XCOR[i].real,2)+pow($XCOR[i].imag,2)) 1 " nsta cpts notit black "
plot2d $DT time/3600 $XCOR[i].real 1 " nsta cpts notit same blue "
plot2d $DT time/3600 $XCOR[i].imag 1 " nsta cpts notit same red "
plot2d $DT time/3600 $XCOR[i].real*$XCORNORM[i] 1 " nsta cpts notit same blue "
plot2d $DT time/3600 sqrt(pow($XCOR[i].real,2)+pow($XCOR[i].imag,2))*$XCORNORM[i] 1 " nsta cpts notit same black "
plot2d $DT time/3600 $XCOR[i].imag*$XCORNORM[i] 1 " nsta cpts notit same red "
setaxelabels 'Time (hours)' 'Cross-Corr (arb.units)' 'font=helvetica,bolditalic,16 black'
settitle "$titre $XCORTIT[i]" ' ' 'font=helvetica,bold,18 black'
end
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment