mod_assemb_prep
!
csys,1
!
k,,5,0
k,,5,90
k,,4,90
k,,4,0
!
init_entity_num
!
a,km-3,km-2,km-1,km
!
init_entity_num
!
/PNUM,KP,1
/PNUM,LINE,1
/PNUM,AREA,1
!
/view,1,1,1,1
/auto,1
!
lplot
!
/units,bin
!
UIMP,1,EX, , ,29.4E6,       ! Material:  INCONEL 718
UIMP,1,DENS, , ,.286/386.4,
UIMP,1,NUXY, , ,0.29,
!
ET,1,plane82
KEYOPT,1,3,3
KEYOPT,1,5,0
KEYOPT,1,6,0
R,1,1,
!
!MSH_ALGORITHM, perflsz, perfmsh, etpa, etpv, elmnl, elmxl, mtrl, rl, ecs
!
MSH_ALGORITHM,1,0,1,,0.2,0.5,1,,
lesize,3,,,39,1,
!MSH_ALGORITHM,0,1,1,,0.2,0.5,1,,
!

*go,:skip1

nsel,s,loc,y,0
d,all,uy
!
nsel,s,loc,y,90
d,all,ux
!
allsel,all
!
sfl,3,pres,10

:skip1



*go,:skip2

nsel,s,loc,y,0
d,all,ux
!
nsel,s,loc,y,90
d,all,uy
!
allsel,all
!
sfl,3,pres,10

:skip2


*go,:skip3

nsel,s,loc,y,0
d,all,all
!
nsel,s,loc,y,90
d,all,all
!
allsel,all
!
sfl,3,pres,10

:skip3


!FINISH
!/solu