;$Id: ppkft.pro,v 1.6 2019/01/17 16:17:46 brandenb Exp $
if !d.name eq 'PS' then begin
  device,xsize=18,ysize=11.0,yoffset=3
  !p.charthick=3 & !p.thick=3 & !x.thick=3 & !y.thick=3
end
;
;  mv idl.ps ~/tex/sean/crosshel/fig/ppkft.ps
;
!p.charsize=1.9
!x.margin=[4.5,.4]
!y.margin=[3.2,.4]
!p.multi=0
;
;  plot the result of pkf.sav file, which was produced with pkft.pro
;
siz=1.8
restore,'pkf.sav'
u0=0.265
k0=15.
s=u0*k0
;
!x.title='!8u!6!d0!n!8k!6!d0!n !8t!6'
plot_oo,dt*s,kI,xr=[40,2200],yr=[2,300]
oplot,dt*s,kM,col=122,li=2
xyouts,30*s,130,'!8k!6!dd!n/!8k!6!d1!n',siz=siz,col=122
xyouts,30*s,9,'!8k!6!dI!n/!8k!6!d1!n',siz=siz
;
xx=[130,500] & oplot,xx*s,2e4/xx,col=122
xx=[200,360] & oplot,xx*s,2e4/xx^1.5
xyouts,200*s,110,'!9A!8t!6!u-1!n',siz=siz,col=122
xyouts,500,3.8,'!9A!8t!6!u-3/2!n',siz=siz
;
END