mod_assemb_prep
!
pload=100
!
!rout=8.0
!rin=7.75
!
rout=5.0
rin=4.75
!
csys,1
!
k,,rout,0
k,,rout,90
k,,rin,90
k,,rin,0
!
create_area,1
!
lplot
!
ET,1,PLANE82
!
UIMP,1,EX, , ,30e6,
UIMP,1,NUXY, , ,0.3,
!
msh_algorithm,1,1,1,,,,1,,0.25/7
!
csys,0
!
nsel,s,loc,x,0
    d,all,ux
nsel,s,loc,y,0
    d,all,uy
    !
init_entity_num
!
lsel,s,line,,lm-1
!
sfl,all,pres,pload
!
init_entity_num
!
/title,Pressure Vessel Stresses @ %pload% psi
!
lplot
!
/solu
eqslv,iter,5,3
!
solve
!
/VIEW, 1 ,,,1
/ANG, 1
/REP,FAST
!
FINISH
/POST1
/EFACE,1
AVPRIN,0,0,
!
PLNSOL,S,EQV,0,1