;$Id: pcomp_kf_helnohel.pro,v 1.2 2012/11/16 22:32:18 brandenb Exp $
if !d.name eq 'PS' then begin
  device,xsize=18,ysize=12,yoffset=3
  !p.charthick=3 & !p.thick=3 & !x.thick=3 & !y.thick=3
  thick1=3
  thick2=8
endif else begin
  thick1=1
  thick2=4
endelse
;
;  mv idl.ps ~/tex/tina/ObsSigna/pcomp_kf_helnohel.eps
;
!p.charsize=1.7
!x.margin=[7.8,.5]
!y.margin=[3.2,.5]
;
;  sample to compare time series form different directories
;
dir1='short512pm1a3_noforce'
dir2='short512pm1b3_noforce'
yr=[.8,12]
k0=15.
;
!x.range=[1.,180.]
!x.title='!7g!6'
!y.title='!7n!d!8M!6!n/!7k!d!80!6!n'
siz2=2.0
siz=1.6
;
restore,'../'+dir1+'/pkf.sav'
plot_oo,dt,k0/kI,yr=yr,/nodata
oplot,dt,k0/kI,col=122,thick=thick1
;
restore,'../'+dir2+'/pkf.sav'
oplot,dt,k0/kI,col=55,thick=thick2
;
;  put labels
;
xx=[16.,140.] & oplot,xx,k0*2.3e-2*xx^.667,li=1
xx=[30.,140.] & oplot,xx,k0*2.2e-2*xx^.5,li=1
xyouts,siz=siz,80,k0*3.5e-1,'!7g!6!u2/3!n'
xyouts,siz=siz,80,k0*1.6e-1,'!7g!6!u1/2!n'
xyouts,siz=siz,40,1.6,'!6non-helical',col=55
xyouts,siz=siz,16,4.6,'!6helical',col=122
;
END