Commit d34f91e8 authored by Jean-Eric Campagne's avatar Jean-Eric Campagne
Browse files

gT option pour les cas de ficheirs corriges ou non

parent d77d5a5a
# combine H & V polar plots
#set rootdir "./CasA/"
set rootdir "./AZFIXED/"
#set rootdir "./AZFIXED/"
set rootdir "./"
# gT On or Off
set gT "On"
set source $1
......@@ -24,30 +28,65 @@ graphicatt "font=times,bold,20 fixedfontsize grid"
set color ( blue red green black )
##########
newwin 2 2
if ( $gT == "Off" ) then
ymin = -0.01
ymax = 1.0e5
else
ymin = -0.01
ymax = 0.20
endif
newwin 2 2 1000 800
for i 1:5
j = i-1
n/pl dtH.NormCross${i}%freq rc==0 ! " cpts blue notit nsta xylimits=${fMin},${fMax},0,1.0e5"
n/pl dtV.NormCross${i}%freq rc==0 ! " same cpts red notit nsta xylimits=${fMin},${fMax},0,1.0e5"
n/pl dtH.NormAuto${i}%freq 1 ! " cpts blue notit nsta xylimits=${fMin},${fMax},${ymin},${ymax}"
n/pl dtV.NormAuto${i}%freq 1 ! " same cpts red notit nsta"
settitle "Dish $i (${source})"
setaxelabels "Freq (Hz)" "NormCross: H:b,V:r" "font=times,bold,20 fixedfontsize"
setaxelabels "Freq (Hz)" "NormAuto: H:b,V:r" "font=times,bold,20 fixedfontsize"
end
w2eps ${rootdir}${source}-HV-NormCross.eps
w2eps ${rootdir}${source}-HV-NormAuto.eps
##########
newwin 2 2
############
if ( $gT == "Off" ) then
ymin = -1e5
ymax = 10e5
else
ymin = 0.9
ymax = 1.1
endif
newwin 2 2 1000 800
for i 1:5
j = i-1
n/pl dtH.NormAuto${i}%freq 1 ! " cpts blue notit nsta xylimits=${fMin},${fMax},0,1.0e5"
n/pl dtV.NormAuto${i}%freq 1 ! " same cpts red notit nsta xylimits=${fMin},${fMax},0,1.0e5"
settitle "Dish $i (${source})"
setaxelabels "Freq (Hz)" "NormAuto: H:b,V:r" "font=times,bold,20 fixedfontsize"
j = i-1
n/pl dtH.CTAuto${i}%freq 1 ! " cpts blue notit nsta xylimits=${fMin},${fMax},${ymin},${ymax}"
n/pl dtV.CTAuto${i}%freq 1 ! " same cpts red notit nsta"
settitle "Dish $i (${source})"
setaxelabels "Freq (Hz)" "CTAuto${i}: H:b,V:r" "font=times,bold,20 fixedfontsize"
end
w2eps ${rootdir}${source}-HV-NormAuto.eps
w2eps ${rootdir}${source}-HV-CTAuto.eps
#############
newwin 2 2 1000 800
if ( $gT == "Off" ) then
ymin = -0.1
ymax = 0.1
else
ymin = -0.1
ymax = 0.1
endif
for i 1:5
j = i-1
n/pl dtH.SLAuto${i}%freq 1 ! " cpts blue notit nsta xylimits=${fMin},${fMax},${ymin},${ymax}"
n/pl dtV.SLAuto${i}%freq 1 ! " same cpts red notit nsta"
settitle "Dish $i (${source})"
setaxelabels "Freq (Hz)" "SLAuto${i}: H:b,V:r" "font=times,bold,20 fixedfontsize"
end
w2eps ${rootdir}${source}-HV-SLopeAuto.eps
###########
newwin 2 2
newwin 2 2 800 800
for i 1:5
j = i-1
n/pl dtH.Deff${i}%freq 1 ! " cpts blue notit nsta xylimits=${fMin},${fMax},3,6"
......@@ -58,7 +97,7 @@ end
w2eps ${rootdir}${source}-HV-Deff.eps
###########
newwin 2 2
newwin 2 2 800 800
for i 1:5
j = i-1
n/pl dtH.Az${i}%freq 1 ! " cpts blue notit nsta xylimits=${fMin},${fMax},-5,5"
......@@ -71,40 +110,46 @@ w2eps ${rootdir}${source}-HV-Azimuth.eps
#########
if ( $gT == "Off" ) then
ymin = -0.01
ymax = 1.0e5
else
ymin = -0.01
ymax = 0.20
endif
newwin 2 2 1000 800
for i 1:5
j = i-1
n/pl dtH.NormCross${i}%freq rc==0 ! " cpts blue notit nsta xylimits=${fMin},${fMax},${ymin},${ymax}"
n/pl dtV.NormCross${i}%freq rc==0 ! " same cpts red notit nsta"
settitle "Dish $i (${source})"
setaxelabels "Freq (Hz)" "NormCross: H:b,V:r" "font=times,bold,20 fixedfontsize"
end
w2eps ${rootdir}${source}-HV-NormCross.eps
##########
set CTxECH12h ( 1H2H 1H3H 1H4H 2H3H 2H4H 3H4H )
set CTxECH12v ( 1V2V 1V3V 1V4V 2V3V 2V4V 3V4V )
if ( $gT == "Off" ) then
ymin = -1e4
ymax = 1e4
else
ymin = -0.01
ymax = 0.01
endif
newwin 3 2 1000 800
for c 0:6
n/pl dtH.CTCross$CTxECH12h[c]%freq 1 ! "cpts nsta notit blue xylimits=${fMin},${fMax},-1e4,1e4"
n/pl dtV.CTCross$CTxECH12v[c]%freq 1 ! "same cpts nsta notit red xylimits=${fMin},${fMax},-1e4,1e4"
n/pl dtH.CTCross$CTxECH12h[c]%freq 1 ! "cpts nsta notit blue xylimits=${fMin},${fMax},${ymin},${ymax}"
n/pl dtV.CTCross$CTxECH12v[c]%freq 1 ! "same cpts nsta notit red"
settitle "${source}"
setaxelabels "Freq (Hz)" "CTCross: $CTxECH12h[c] (b) $CTxECH12v[c] (r)" "font=times,bold,20 fixedfontsize"
end
w2eps ${rootdir}${source}-HV-CTCross.eps
############
newwin 2 2
for i 1:5
j = i-1
n/pl dtH.CTAuto${i}%freq 1 ! " cpts blue notit nsta xylimits=${fMin},${fMax},-1e5,10e5"
n/pl dtV.CTAuto${i}%freq 1 ! " same cpts red notit nsta"
settitle "Dish $i (${source})"
setaxelabels "Freq (Hz)" "CTAuto${i}: H:b,V:r" "font=times,bold,20 fixedfontsize"
end
w2eps ${rootdir}${source}-HV-CTAuto.eps
#############
newwin 2 2
for i 1:5
j = i-1
n/pl dtH.SLAuto${i}%freq 1 ! " cpts blue notit nsta"
n/pl dtV.SLAuto${i}%freq 1 ! " same cpts red notit nsta"
settitle "Dish $i (${source})"
setaxelabels "Freq (Hz)" "SLAuto${i}: H:b,V:r" "font=times,bold,20 fixedfontsize"
end
w2eps ${rootdir}${source}-HV-SLopeAuto.eps
#fillgd1 gdPhi3H dt freq Phi3H 1
......@@ -115,7 +160,7 @@ w2eps ${rootdir}${source}-HV-SLopeAuto.eps
#call doIt
###############
newwin 2 2
newwin 2 2 800 800
for i 2:5
j = i-1
n/pl dtH.Phi${i}H%freq 1 ! "marker=fcircle,5 blue notit nsta xylimits=${fMin},${fMax},-6,6"
......
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