; IDL Version 3.1.2 (windows 3.1)
; Journal File for user@DOS Host
; Working directory: C:\IDL\DATA
; Date: Tue Feb 14 22:54:44 1995
 
h=20e3
zm=220e3
z=findgen(201)+200
f=exp(1.-(z-zm)/h-exp(-(z-zm)/h))
z=(findgen(201)+200)*1e3
f=exp(1.-(z-zm)/h-exp(-(z-zm)/h))
plot,f,z
z=(findgen(201)+190)*1e3
f=exp(1.-(z-zm)/h-exp(-(z-zm)/h))
plot,f,z
plot_oi,f,z
z=(findgen(301)+170)*1e3
f=exp(1.-(z-zm)/h-exp(-(z-zm)/h))
plot_oi,f,z
plot,f,z