Commit 203f037c authored by Réza Ansari's avatar Réza Ansari
Browse files

Ajout d'un exemple de script piapp pour analyse de resultats de sortie de...

Ajout d'un exemple de script piapp pour analyse de resultats de sortie de programmes de AnaPAON4 (rdvisip4 ...), Reza 09/02/2017
parent 5d64a9fd
#####################################################################
############### BAORadio/PAON4 - , Fevrier 2017
##### R. Ansari/J.E Campagne/C. Magneville
## Analyse des fichiers de sortie des programmes AnaPAON4 par piapp
## Setting global
setaxesatt 'font=helvetica,bold,18 minorticks fixedfontsize'
set colors ( red siennared orange magenta blue navyblue skyblue cyan )
########################################################
### Analyse d'un fichier de gains calcules par rdvisip4
set textgains ( g1 g2 g3 g4 g5 g6 g7 g8 )
#### Definition de script de trace des gains
defscript tracegains
set gainfile $1.ppf
delobjs *
echo "---- Opening GAIN file $gainfile"
openppf $gainfile
for i 0:9
# On extrait les 8 lignes (row)
objaoper gains row $i g$i
if ( $i == 0 ) then
disp g$i "xylimits=0.,4200,0.,1. line=solid,2 $colors[i] notit"
settitle 'Gains g1 ... g8' ' ' 'font=helvetica,bold,20 black'
textdrawer textgains colors ' font=helvetica,bold,18 '
else
disp g$i "same line=solid,2 $colors[i] "
endif
end
#### Trace en echelle logY
newwin
for i 0:9
if ( $i == 0 ) then
disp g$i "xylimits=0.,4200,0.05,1.5 logy line=solid,2 $colors[i] notit "
settitle 'Gains g1 ... g8' ' ' 'font=helvetica,bold,20 black'
textdrawer textgains colors ' font=helvetica,bold,18 '
else
disp g$i "same line=solid,2 $colors[i] "
endif
end
endscript
### Appeler le script
# tracegains gain_CygA17nov16
# tracegains gain_Tst08Fev17B
########################################################
### Analyse d'un fichier output de rdvisip4 (moyenne des visi )
defscript tracemoyvis
set moyvisi $1
set rdvisioutfile "$moyvisi.ppf"
delobjs *
openppf $rdvisioutfile
rename $moyvisi mvis
# On met la frequence 0 a zero
c++exec mvis.Column(0) = complex<r_4>(0.,0.); mvis.Column(mvis.NCols()-1)=complex<r_4>(0.,0.);
for i 0:36
objaoper mvis row $i visi$i
end
newwin 2 2
for i 1:8
if ( $i == 5 ) then
newwin 2 2
endif
disp visi$i 'black notit'
disp visi$i 'red cdreal same'
disp visi$i 'blue cdimag same'
settitle " MeanVisiMtx Row=$i , red->real, blue->imag, black=module" ' ' 'font=helvetica,bold,20 black'
end
endscript
# tracemoyvis mvis_CygA17nov16
# tracemoyvis mvis_Tst08Fev17B
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