set user "AST"
set toppath "/sps/baoradio/AmasNancay/${user}"
set source "Abell1205"
set srclower "abell1205"
set date   "20110415"
set gaincycle "8"
set path "${toppath}/${source}/${date}${srclower}/gaincycle${gaincycle}"

####################################################
# Gains in every 5120-window
####################################################
#newwin 1 1
graphicatt "xylimits=1250,1500,0,0.008"
shell ls ${path} 
shell ls ${path} | wc -l

i0 = 0
i1 = 23
echo ${i0} ${i1}
for i ${i0}:${i1}
  echo ${path}/medfiltmtx${i}.fits
  newwin 1 1
  openfits ${path}/medfiltmtx${i}.fits
  del g0 g1
  objaoper /home/medfiltmtx${i} row 0 g0
  objaoper /home/medfiltmtx${i} row 1 g1
  plot2d g1 (n/8192)*250+1250 val n>0 "red cpts nsta notit"
  plot2d g0 (n/8192)*250+1250 val n>0 "same blue cpts nsta notit"
  settitle "Gain $source ${date} medfiltmtx${i} Ch 0 (blue) Ch 1 (red)"
  setaxelabels "Freq. (MHz)" "I (a.u)"
end