mod_assemb_prep
!
k,,0,0
k,,10,0
k,,10,10
k,,0,10
!
init_entity_num
!
a,km-3,km-2,km-1,km
!
init_entity_num
!
voffst,am,10
!
!vsymm,x,all
!vsymm,y,all
!
/PNUM,KP,1
/PNUM,LINE,1
/PNUM,AREA,1
!
/view,1,1,1,1
/auto,1
!
lplot
!


*go,:skip1

ANG_ARRAY,5,60,-20,-110,150,100
RADIUS,4,3,3,8,5
DEPTH,4,0,2,5,10
!
MAX_VALUE,'rad',4
MIN_VALUE,'rad',4
!
MAX_VALUE,'z',4
MIN_VALUE,'z',4
!
MAX_VALUE,'ang',5
MIN_VALUE,'ang',5
!
PROFILE_CUT,1,0,0,10,0,0,0
!
!MAX_VALUE, aname, nume
!MIN_VALUE, aname, nume

:skip1



!*go,:skip2

ANG_ARRAY,4,60,-110,150,100
RADIUS,4,3,3,4.5,2
DEPTH,4,0,2,3,10
!
MAX_VALUE,'rad',4
MIN_VALUE,'rad',4
!
MAX_VALUE,'z',4
MIN_VALUE,'z',4
!
MAX_VALUE,'ang',4
MIN_VALUE,'ang',4
!
PROFILE_CUT,1,5,5,10,0,0,0
!
!MAX_VALUE, aname, nume
!MIN_VALUE, aname, nume

!:skip2


*go,:skip3

csys,0
asel,s,loc,z,0
asel,a,area,,18
!
UIMP,1,EX, , ,29.4E6,       ! Material:  INCONEL 718
UIMP,1,DENS, , ,.286/386.4,
UIMP,1,NUXY, , ,0.29,
!
!ET,1,shell93
ET,1,shell63
!
!MSH_ALGORITHM, perflsz, perfmsh, etpa, etpv, elmnl, elmxl, mtrl, rl, ecs
!
MSH_ALGORITHM,1,1,1,,0.25,0.5,1,,

:skip3