; IDL Version 4.0.1 (Win32 x86)
; Journal File for user@Microsoft Windows Host
; Working directory: C:\RSI\IDL40
; Date: Fri Mar 08 08:55:12 1996
 
psopen,'\ep324\nozzle2.ps',/land
device,ysize=3.*0.95,/inches
set_isoxy,0,18,-1.5,1.5
plot,x,r,xtit='Length (in.)',ytit='Radius (in.)',title='Nozzle Shape for Problem 2',xticks=3,xtickv=indgen(4)*6,xminor=6
oplot,x,-r
oplot,x,rlin,line=2
oplot,x,-rlin,line=2
plots,[2,3.5],[-1.8,-1.8],line=0
xyouts,4,-1.9,'Linear velocity variation',align=0
plots,[11,12.5],[-1.8,-1.8],line=2
xyouts,13,-1.9,'Linear area variation',align=0
psclose