/PREP7
ET,1,PLANE183
!MATERIAL PROPERTIES
!CYLINDER 1
MP,EX,1,29.6E6 !YOUNG MOD
MP,NUXY,1,0.3 !
!FRICTION
MP,MU,100,0 !0 EQUALS NO FRICTION
BOPTN,KEEP,NO
HGR_R = (6.250+0.002)/2 !BORE 1 RADIUS
ESP_R = (2.889+0.002)/2 !BORE 2 RADIUS
OS_HGR = 1.920-0.005 !BORE 1 OFFSET FROM CL
OS_ESP = 2.979-0.005 !BORE 2 OFFSET FROM CL
BNT_R = 12/2 !OUTER R OF CYLINDER
!HANGER OD
K,1,-BNT_R,0.00
K,2,0.00,BNT_R
K,3,BNT_R,0.00
K,4,0.00,-BNT_R
K,5,-OS_HGR-HGR_R,0.00
K,6,-OS_HGR,HGR_R
K,7,-OS_HGR+HGR_R,0.00
K,8,-OS_HGR,-HGR_R
K,9,OS_ESP-ESP_R,0.00
K,10,OS_ESP,ESP_R
K,11,OS_ESP+ESP_R,0.00
K,12,OS_ESP,-ESP_R
!CREATE LINES
!CYLINDER 1
LARC,1,2,3,BNT_R
LARC,2,3,1,BNT_R
LARC,3,4,1,BNT_R
LARC,4,1,3,BNT_R
LARC,5,6,7,HGR_R
LARC,6,7,5,HGR_R
LARC,7,8,5,HGR_R
LARC,8,5,7,HGR_R
LARC,9,10,11,ESP_R
LARC,10,11,9,ESP_R
LARC,11,12,9,ESP_R
LARC,12,9,11,ESP_R
!AREAS
LSEL,S,LINE,,1,4 !AREA 1
AL,ALL
LSEL,S,LINE,,5,8 !AREA 2
AL,ALL
LSEL,S,LINE,,9,12 !AREA 3
AL,ALL
ALLSEL
ASBA,1,2
ASBA,4,3
ALLSEL
ESIZE,0.20 !GENERIC MESH SIZE
LSEL,S,LINE,,5,8,1,1 !MESH SIZE BY LINE FOR CYLINDER 2
LESIZE,ALL,0.05
ALLSEL
LSEL,S,LINE,,9,12,1,1 !MESH SIZE BY LINE FOR CYLINDER 2
LESIZE,ALL,0.05
ALLSEL
TYPE,1 !CYLINDER 1 USING ET1, MAT1, AREA 1
MAT,1 !START MESHING
AMESH,1
!RESTRAIN
KSEL,S,KP,,2,3,1
!D,80,ALL,0
DK,ALL, ,0, ,0,ALL, , , , , ,
ALLSEL
WSORT
SAVE
FINISH
/SOLUTION
SOLCONTROL,ON
NLGEOM,ON
NSUBST,2
/TITLE,4000 PSI INTERNAL
LSEL,S,LINE,,5,8,1,1
SFL,ALL,PRES,4000
ALLSEL
SOLVE
SAVE
FINISH