!   TITLE:  sqr_sect_press_vessel.mac (PART_LIB)
!
mod_assemb_prep
!
x=1.125/2
y=1.125/2
t=.025
pload=500
!
k,,x,0,0
k,,x,y,0
k,,0,y,0
k,,0,y-t,0
k,,x-t,y-t,0
k,,x-t,0
!
create_area
!
et,1,plane82
!
UIMP,1,EX, , ,29.0E6,             ! Material:  304L / 316L CRES
UIMP,1,DENS, , ,0.286/g_bin,
UIMP,1,NUXY, , ,0.27,
!
msh_area,,,1,.005,.005
!
lsel,s,line,,1,2,1
!
sfl,all,pres,pload
!
nsel,s,loc,x,0
d,all,ux
!
nsel,s,loc,y,0
d,all,uy
!
init_entity_num
!
lplot
!
/solu
eqslv,iter,5,3
solve
!
/POST1
/EFACE,1
AVPRIN,0,0,
!
PLNSOL,S,EQV,0,1