Changeset 3919 in Sophya for trunk/AddOn

Timestamp:

Dec 2, 2010, 7:48:38 PM (15 years ago)

Author:

cmv

Message:

modif pour gestion satur et expo FFT shrink, reza+cmv 2/12/2010

File:

• trunk/AddOn/TAcq/dspms.pic (modified) (6 diffs)

trunk/AddOn/TAcq/dspms.pic

@@ -7 +7 @@
 set numf $2
 
-set bdir /Raid/PittsNov09
+set bdir /Raid/PittsDec10
 if ( $# > 2 ) then 
   set bdir $3
@@ -13 +13 @@
 
 delobjs *
-# openppf /Raid/PittsNov09/$dir/meanspec$numf.ppf
+# openppf /Raid/PittsDec10/$dir/meanspec$numf.ppf
 set flnm $bdir/$dir/meanspec$numf.ppf
 echo '------ Opening file ' $flnm 
@@ -19 +19 @@
 del myspec
 mv spectre  myspec
-# mv /home/meanspec$numf  myspec
 set nchan ${myspec.nrows}
 for i 0:$nchan
@@ -29 +28 @@
 zone 1
 
-set exfreq (n+2212)*250/4096+1250 
+# set exfreq (n+2212)*250/4096+1250 
 # set exfreq (n*250/4096+1250) 
+##  Expression de la frequence pour FFT shrinke 
+set exfreq ((n+2049)*250/4096+1250) 
 plot2d smV0 $exfreq 10*log10(val) val>1.e-6 'black nsta cpts notit'
 setaxelabels  ' Freq (MHz)' 'Spectra - dB' 'font=helvetica,bolditalic,16'
  
-set cols ( black darkviolet blue navyblue red orange yellow green )
+# set cols ( black darkviolet blue navyblue red orange yellow green )
+set cols ( blue red green magenta black darkviolet navyblue orange yellow )
 
 for i 1:${myspec.nrows}
@@ -81 +83 @@
 endscript 
 
+defscript dexpo
+  zone $znx $zny 
+  for i 0:$nchan
+   disp hexpV$i "$cols[i]"
+   n/plot hexpV$i.val%x val>0 ! "nsta same marker=fcircle,9 $cols[i]"
+  end
+endscript 
+
+defscript dsatur
+  zone $znx $zny 
+  for i 0:$nchan
+    imag saturV$i "zoomx40"
+  end
+endscript 
+
+defscript dsatur2
+  zone $znx $zny 
+  for i 0:$nchan
+    n/plot saturV$i.val%r+c r!=1||c!=1 ! "marker=fcircle,1 nsta $cols[i]"
+    n/plot saturV$i.val%r+c (r!=1||c!=1)&&val>0.1 ! "marker=fcircle,9 nsta same $cols[i]"
+  end
+endscript
 
 set lines ( B1.V1 B1.V2 B1.V3 B1.V4 B2.V1 B2.V2 B2.V3 B2.V4 )
@@ -95 +119 @@
 newwin 
 dh2
+newwin 
+dexpo
+newwin 
+dsatur
+newwin 
+dsatur2
 
-echo '----> use dspec dhval and  dh2 scripts to check value histograms'
+echo '----> use dspec dhval and  dh2 dexpo dsatur scripts to check value histograms'