pro plot_mean
;------------------plottet die tagesmittel über die
;zeit
mean_pfad='/data/etnas1/ulysses/ket/rate/shifttab/daily_mean.dat'
mean=read_ascii(mean_pfad)
days=mean.field01[0,*]
a4000d1=mean.field01[1,*]
a4000d2=mean.field01[3,*]
a4000c2=mean.field01[5,*]
a4000s2=mean.field01[7,*]
p4000d1=mean.field01[9,*]
p4000d2=mean.field01[11,*]
p4000c2=mean.field01[13,*]
p4000s2=mean.field01[15,*]

liniendicke = 1
schriftgroesse = 1
schriftdicke = 1

Set_Plot, 'PS'
Device, filename='plots/mean_a4000_inv.eps', $
          set_font=schriftart, $
          /encapsulated, $
          /color, $
          bits_per_pixel=24, $ 
          /portrait, $
          xsize=21.0, $
          ysize=29.7

plot, days, a4000d1*1.0316, $
        xstyle=1, ystyle=1, $
        yrange=[90,100], $
        xtickformat='(a1)', $
        ytitle='D1 channel', $
        charsize=schriftgroesse, charthick=schriftdicke, $
        font=schrifttyp, $
        position=[0.15, 0.80, 0.95, 0.95], $
        psym=10, $
        /noerase       

plot, days, a4000d2*1.0315, $
        xstyle=1, ystyle=1, $
        yrange=[90,100], $
        xtickformat='(a1)', $
        ytitle='D2 channel', $
        charsize=schriftgroesse, charthick=schriftdicke, $
        font=schrifttyp, $
        position=[0.15, 0.65, 0.95, 0.80], $
        psym=10, $
        /noerase 
      
plot, days, a4000c2*1.023, $
        xstyle=1, ystyle=1, $
        yrange=[165,185], $
        xtickformat='(a1)', $
        ytitle='C2 channel', $
        charsize=schriftgroesse, charthick=schriftdicke, $
        font=schrifttyp, $
        position=[0.15, 0.50, 0.95, 0.65], $
        psym=10, $
        /noerase       

plot, days, a4000s2*1.0224, $
        xstyle=1, ystyle=1, $
        yrange=[175,195], $
        xtitle='Days since 1.1.1990', $
        ytitle='S2 channel', $
        charsize=schriftgroesse, charthick=schriftdicke, $
        font=schrifttyp, $
        position=[0.15, 0.35, 0.95, 0.50], $
        psym=10, $
        /noerase       


device, /close_file

Device, filename='plots/mean_p4000.eps', $
          set_font=schriftart, $
          /encapsulated, $
          /color, $
          bits_per_pixel=24, $ 
          /portrait, $
          xsize=21.0, $
          ysize=29.7

plot, days, p4000d1*1.0316, $
        xstyle=1, ystyle=1, $
        yrange=[50,55], $
        xtickformat='(a1)', $
        ytitle='D1 channel', $
        charsize=schriftgroesse, charthick=schriftdicke, $
        font=schrifttyp, $
        position=[0.15, 0.80, 0.95, 0.95], $
        psym=10, $
        /noerase       

plot, days, p4000d2*1.0315, $
        xstyle=1, ystyle=1, $
        xtickformat='(a1)', $
        ytitle='D2 channel', $
        charsize=schriftgroesse, charthick=schriftdicke, $
        font=schrifttyp, $
        position=[0.15, 0.65, 0.95, 0.80], $
        psym=10, $
        /noerase 
      
plot, days, p4000c2*1.023, $
        xstyle=1, ystyle=1, $
        yrange=[105,125], $
        xtickformat='(a1)', $
        ytitle='C2 channel', $
        charsize=schriftgroesse, charthick=schriftdicke, $
        font=schrifttyp, $
        position=[0.15, 0.50, 0.95, 0.65], $
        psym=10, $
        /noerase       

plot, days, p4000s2*1.0224, $
        xstyle=1, ystyle=1, $
        yrange=[115,135], $
        xtitle='Days since 1.1.1990', $
        ytitle='S2 channel', $
        charsize=schriftgroesse, charthick=schriftdicke, $
        font=schrifttyp, $
        position=[0.15, 0.35, 0.95, 0.50], $
        psym=10, $
        /noerase       
device, /close_file


set_plot, 'X'










end