!   weld_verify.mac
!
mod_assemb_prep
!
Dr1=1.115
Dr2=1.0515
Dr3=1.0158
Dr4=1.625/2
Dr5=1.312/2
!
Dx1=.0635
Dx2=.0468
Dx3=.020
!
Dy1=0.100
Dy2=.002
Dy3=.080
Dy4=.529
!
l_st=1.0
!
csys,0
!
k,,Dr3,0,0                      ! tube wall area
k,,Dr3+Dx2,0,0
k,,Dr3+Dx2,l_st-Dy1,0
k,,Dr3,l_st-Dy1,0
!
create_area
!
k,,Dr3,l_st-Dy1,0               ! tube wall flange
k,,Dr3+Dx2,l_st-Dy1,0
k,,Dr1,l_st-Dy1,0
k,,Dr1,l_st,0
k,,Dr3,l_st,0
!
create_area
!
k,,0,l_st+Dy2,0                 ! rear cover
k,,Dr4,l_st+Dy2,0
k,,Dr4,l_st+Dy2-Dy1,0
k,,Dr3-.001,l_st+Dy2-Dy1,0
k,,Dr3-.001,l_st+Dy2,0
!
k,,Dr1-Dx1,l_st+Dy2,0
k,,Dr1-Dx1,l_st+Dy2+Dy3+Dy4,0
k,,Dr5,l_st+Dy2+Dy3+Dy4,0
k,,Dr5,l_st+Dy2+Dy3,0
k,,0,l_st+Dy2+Dy3,0
!
create_area
!
k,,Dr1,l_st+Dy2,0               ! rear cover flange
k,,Dr1,l_st+Dy2+Dy3,0
k,,Dr1-Dx1,l_st+Dy2+Dy3,0
k,,Dr1-Dx1,l_st+Dy2,0
!
create_area
!
k,,Dr1,l_st,0                   ! weld area
k,,Dr1,l_st+Dy2,0
k,,Dr1-Dx3,l_st+Dy2,0
k,,Dr1-Dx3,l_st,0
!
create_area
!
isolate_areas
aglue,all
!
init_entity_num
!
asel,s,area,,am
!
!
!                    (1)   (2)       (3)     (4)     (5)
!   ARA_CREATE_PART, acs, ang_ln, dist_pln, x_dist, y_dist
!
!
ara_create_part,0,0,l_st+Dy2+Dy3
!
asel,s,area,,am
!
ara_create_part,0,90,Dr5
!
view,'f'
!
aplot
!
!------------------------------ FE Model ----------------------------
!
!
!            (1)     (2)     (3)   (4)    (5)    (6)    (7)  (8)   (9)
! MSH_AREA, mstyp, mshdens, etpa, elmnl, elmxl, lszmsh, mat, real, ecs
!
!
et,1,plane82
!
asel,s,area,,am-7               ! mesh weld area
!
msh_area,1,,,Dy2/4
!
!
asel,s,area,,am-12              ! mesh tube wall area
!
msh_area,,,,4*(6*(Dy2/4))
!
!
asel,s,area,,am-5               ! mesh tube wall flange area
!
msh_area,,,,5*(Dy2/4)
!
!
asel,s,area,,am                 ! mesh rear cover area
!
msh_area,,,,4*(6*(Dy2/4))
!
!
asel,s,area,,am-6               ! mesh rear cover flange area
!
msh_area,,,,5*(Dy2/4)
!
!
asel,s,area,,am-3,am-1,2        ! mesh remaining areas
!
msh_area,,,,3*(4*(6*(Dy2/4)))
!
!
eplot
!