window,0
tvim,knu1,aspect=1.,range=[0,.5],xrange=[0,1546],yrange=[0,8.333],title='data 1'

l=findgen(3000)
f=.09986*sqrt(l)
oplot,l,f

window,1
tvim,knu2,aspect=1.,range=[0,.5],xrange=[0,1546],yrange=[0,8.333],title='data 2'
oplot,l,f

