;$Id: plate_growth.pro,v 1.6 2019/07/03 19:30:32 roper Exp $
if !d.name eq 'PS' then begin
  device,xsize=18,ysize=8,yoffset=3
  !p.charthick=2.5 & !p.thick=2.5 & !x.thick=2.5 & !y.thick=2.5
end
;
;  mv idl.ps ~/tex/roper/PencilGW/fig/plate_growth.ps
;
!p.charsize=1.3
!x.margin=[7.2,.5]
!y.margin=[3.2,.5]
!x.title='!8t!6'
;!x.title='!8t!6/!8t!6!d*!n'
;!y.title='!7X!6!dGW!n(!8k,t!6)/!8k!6'
!y.title='!7X!6!dGW!n(!8k,t!6)/k!7X!6!dGW!n(t!6=1)'
siz=1.3
;
s=t^2
plot_io,t,s*grav1[71,*],xr=[1,8.6],yr=[1e-9,1e1]
oplot,t,s*grav1[36,*],li=1
oplot,t,s*grav1[18,*],li=2
oplot,t,s*grav1[4,*],li=3
print,k[4]
;
;xyouts,4,3e-8,'!8k!6/!8k!6!d1!n=7.2',siz=siz
xyouts,4,3e-8,'!8k!6/!8k!6!d*!n=7.2',siz=siz
;xyouts,3,6e-5,'!8k!6/!8k!6!d1!n=3.6',siz=siz
xyouts,3,6e-5,'!8k!6/!8k!6!d*!n=3.6',siz=siz
xyouts,4.3,8e-2,'!61.8',siz=siz
xyouts,7.8,6e-3,'!60.4',siz=siz
END