Commit 0c3b8726 authored by Reza  ANSARI's avatar Reza ANSARI
Browse files

Ajout script de comparaison de gains g(nu) calcules a partir de differentes...

Ajout script de comparaison de gains g(nu) calcules a partir de differentes observations, Reza 29/11/2018
parent b291f940
######################################################################
#### Analyse PAON4 , R. Ansari, Novembre 2018
#### Lit les fichiers de gain PAON4 et permet de comparer les gains
#### (Utilise le script plgnu8.pic)
#### Definition des scripts suivants:
#### - rdgain Nom : lecture de fichier gain gain_Nom.ppf
#### - cmpgain NomA NomB : Affichage des 8 gains (H,V) pour NomA NomB sur une seule figure
#### - cmpgain2 NomA NomB : Affichage des 2 x 8 gains sous forme de deux fenetres 2x2 (H,V)
#### - cmpgain4 NomA NomB NomC NomD : Affichage des 2 x 8 gains sous forme de deux fenetres 2x2 (H,V)
######################################################################
setaxesatt 'font=helvetica,bold,18 minorticks'
delobjs *
defscript rdgain
set nom $1
set flnm gain_$nom
del gains
del gn
newwin
echo "---- rdgain : $nom -> File= $flnm"
exec plgnu8.pic $flnm
for i 0:8
rename g$i ${nom}_g$i
end
endscript
defscript cmpgain
set noma $1
set nomb $2
newwin
## couleurs pour les traces
set COLS ( black red orange brown blue green skylbue forestgreen )
disp ${noma}_g0 "$COLS[0] line=solid,2 "
disp ${nomb}_g0 "$COLS[0] line=dashed,2 same "
for i 1:8
disp ${noma}_g$i "$COLS[i] line=solid,2 same"
disp ${nomb}_g$i "$COLS[i] line=dashed,2 same"
end
endscript
defscript cmpgain2
set noma $1
set nomb $2
## couleurs pour les traces
set COLS ( black red orange brown blue green skylbue forestgreen )
for i 0:2
newwin 2 2
j1 = i*4
j2 = j1+4
for j ${j1}:${j2}
disp ${noma}_g$j "red line=solid,2 "
disp ${nomb}_g$j "siennared line=solid,2 same"
end
end
endscript
defscript cmpgain4
set noma $1
set nomb $2
set nomc $3
set nomd $4
## couleurs pour les traces
set COLS ( black red orange brown blue green skylbue forestgreen )
for i 0:2
newwin 2 2
j1 = i*4
j2 = j1+4
for j ${j1}:${j2}
disp ${noma}_g$j "red line=solid,2 "
disp ${nomb}_g$j "orange line=solid,2 same "
disp ${nomc}_g$j "siennared line=solid,2 same"
disp ${nomd}_g$j "violetred line=solid,2 same"
end
end
endscript
rdgain CygA20jan18
rdgain Test9avr18
rdgain Test25mar18
rdgain CygA10jan18
rdgain CygA16jan18
rdgain A21_19aou18
rdgain A17_10oct18
rdgain A19_12oct18
rdgain A21_14oct18
rdgain B01_20oct18
cmpgain CygA20jan18 Test9avr18
cmpgain CygA20jan18 A21_14oct18
cmpgain4 CygA10jan18 CygA16jan18 CygA20jan18 Test9avr18
# cmpgain4 A17_10oct18 A19_12oct18 A21_14oct18 B01_20oct18
cmpgain4 A21_19aou18 A19_12oct18 A21_14oct18 B01_20oct18
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