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

placx.pic

@@ -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