Commit 702ed3a8 authored by Reza  ANSARI's avatar Reza ANSARI
Browse files

Added the script plgnu.pic to draw the gain curves g(nu), Reza 17/04/2015

parent 014c4ce2
################## Script plgnu8.pic #################
## Script pour tracer les 8 gain g(nu) de PAON4
if ( $# < 1 ) then
echo 'plgnu8.pic/missing argument '
echo 'Usage: plgnu8 input_base_name (without .ppf)'
return
endif
set flnm $1
set titre 'PAON4 - gains'
# Pour les axes
setaxesatt 'font=helvetica,bold,16 fixedfontsize minorticks'
# Ouvrir le fichier
openppf $flnm.ppf
set NT $flnm
print gains
for i 0:8
objaoper gains row $i g$i
end
## couleurs pour les traces
set COLS ( black red orange brown blue green skylbue forestgreen )
zone 1
disp g0 "$COLS[0] "
for i 1:8
disp g$i "same $COLS[i] "
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