!   TITLE:  oga_recirc_pump_motor.mac (ISS)
!
!---------------------------------------------------------------------------
!       Rev -       08/22/2000      J. Rinaldi
!---------------------------------------------------------------------------
!
!   This macro creates the OGA recirculation pump motor assembly used
!    on the ISS project:
!
!                       P/N CU09616051
!
!   Parts for assembly:
!
!       str_tube_slev_375a068-2     / 375A068
!       housing_sleeve              / 375A069, 553A134
!       oga_pump_stator             / 550A095
!       rear_cover                  / 315A073
!       endbell_assembly            / 333A038
!
!
!
!****************************** Model Assembly ****************************
!
!
!--------------------------- 1.  Create Assembly --------------------------
!
str_tube_slev_375a068-2         ! model #1
!
housing_sleeve                  ! model #2
!
oga_pump_stator                 ! model #3
!
rear_cover                      ! model #4
!
endbell_assembly                ! model #5
!
weld_fillet1                    ! model #6
!
weld_fillet2                    ! model #7
!
weld_fillet3                    ! model #8
!
!--------------------- 2.  Create Assembly Interfaces ---------------------
!
init_entity_num
!
allsel,all
!
parsav,all,oga_recirc_pump_motor2,parm  ! write all parameters to a file
!
!
!------- 2.1  Glue Stator Tube, Stator, Housing Sleeve and Weld 1 --------
!
csys,CSstr1
parm_val,'stat068','H5','h5'
parm_val,'stat068','H8','h8'
parm_val,'stat068','H9','h9'
vsel,s,loc,z,0,h5+h8+h9
!
csys,cylstat
parm_val,'oga_stat','L1','l1'
parm_val,'oga_stat','L2','l2'
vsel,a,loc,z,0,l1+l2
!
!
csys,CShs1
parm_val,'hous_slv','R3','r3'
vsel,r,loc,x,0,r3
!
vsel,u,volu,,vm-117,vm-116,1
vsel,u,volu,,vm-114,vm-113,1
vsel,u,volu,,vm-177,vm-175,1
vsel,u,volu,,vm-179,vm-178,1
!
vglue,all
!
init_entity_num
!
allsel,all
!
lplot
!
!----------------- 2.2  Glue Housing Sleeve and Endbell ------------------
!
csys,CSeb1
parm_val,'hous_slv','R1','r1'
vsel,s,loc,x,0,r1
!
parm_val,'hous_slv','L4','l4'
parm_val,'hous_slv','L6','l6'
parm_val,'endbell','L2','l2'
vsel,r,loc,z,-(l6-l4-l2),l2
!
vsel,u,volu,,oga_stat
!
vglue,all
!
init_entity_num
!
allsel,all
!
lplot
!
!------------ 2.3  Glue Housing Sleeve, Rear Cover and Weld 2 ------------
!
csys,cylrearc
!
vsel,s,volu,,vm-166,vm-157,1
vsel,a,volu,,vm-88,vm-85,1
vsel,a,volu,,vm-33,vm-30,1
!
vglue,all
!
init_entity_num
!
allsel,all
!
lplot
!
!----------- 2.4  Glue Housing Sleeve, Housing Tube and Weld 3 -----------
!
vsel,s,volu,,vm-152
vsel,a,volu,,vm-149,vm-148,1
vsel,a,volu,,vm-146
!
vadd,all
!
init_entity_num
!
asel,s,area,,am-659
asel,a,area,,am-648
asel,a,area,,am-642
asel,a,area,,am-635
!
aadd,all
!
init_entity_num
!
allsel,all
!
csys,tube1cs
parm_val,'hous_slv','L19','l19'
parm_val,'hous_slv','L8','l8'
vsel,s,loc,z,0,(l19-l8)
!
csys,tube2cs
parm_val,'hous_slv','L15','l15'
parm_val,'hous_slv','L16','l16'
parm_val,'hous_slv','R4','r4'
vsel,a,loc,z,0,(l15-l16)
vsel,r,loc,x,0,r4
vsel,a,volu,,vm
!
vglue,all
!
init_entity_num
!
allsel,all
!
/title,OGA Recirculation Pump Motor / CU09616051
!
lplot
!
!--------------------------- 3.  Mesh Volumes ----------------------------
!
!
UIMP,1,EX, , ,29.4E6,                       ! Material:  INCONEL 718
UIMP,1,DENS, , ,0.286/g_bin,
UIMP,1,NUXY, , ,0.29,
!
UIMP,2,EX, , ,29.0E6,                       ! Material:  304L / 316L CRES
UIMP,2,DENS, , ,0.286/g_bin,
UIMP,2,NUXY, , ,0.27,
!
UIMP,3,EX, , ,29.0E6,                       ! Material:  ENDBELL ASSEMBLY
parm_val,'endbell','RHO_EB','rho_eb'
UIMP,3,DENS, , ,rho_eb/g_bin,
UIMP,3,NUXY, , ,0.27,
!
UIMP,4,EX, , ,29.0E6,                       ! Material:  STATOR ASSEMBLY
parm_val,'oga_stat','RHO_STAT','rho_stat'
UIMP,4,DENS, , ,rho_stat/g_bin,
UIMP,4,NUXY, , ,0.27,
!
ET,1,shell93
ET,2,solid95
!
ET,3,shell63
ET,4,solid45
!
!
!----------------------- 3.1  Mesh Weld 1 Volumes ------------------------
!
csys,CSwf11
!
parm_val,'stat068','R5','r1'
parm_val,'stat068','H5','l1'
    l1=2*l1
parm_val,'hous_slv','W1','w1'
parm_val,'weld_1','L2','l2'
!
vsel,s,loc,z,l1+w1
vsel,r,loc,x,0,r1
    cm,vset1,volu
aslv,s
    cm,aset1,area
    !
*do,i,0,270,90              ! mesh rear wire volumes
    vsel,s,volu,,vset1
    vsel,r,loc,y,i,i+90
        get_max_entity
        v1=vm
        !
    asel,s,area,,aset1
        asel,r,loc,y,i
        cm,a1,area
        !
    asel,s,area,,aset1
        asel,r,loc,y,i+90
        get_max_entity
        a2=am
        !
    asel,s,area,,aset1
    asel,r,area,,a1
    !
    *if,i,eq,0,then
        msh_algorithm,1,3,0,0,30,a2,3,4,0.010,0.015,2,,,v1,,,
        aclear,a1
    *else
        msh_algorithm,0,2,0,0,30,a2,3,4,0.010,0.015,2,,,v1,,,
    *endif
    !
*enddo
!
init_entity_num
!
allsel,all
!
hold_1=elszohof
!
lplot
!
!----------------------- 3.2  Mesh Weld 2 Volumes ------------------------
!
csys,CSwf21
!
parm_val,'hous_slv','R3','r1'
parm_val,'hous_slv','W1','w1'
parm_val,'rear_cvr','L100','l100'
parm_val,'weld_2','L2','l2'
!
vsel,s,loc,z,0,w1
vsel,r,loc,x,0,r1
    cm,vset1,volu
aslv,s
    cm,aset1,area
    !
*do,i,0,270,90              ! mesh rear wire volumes
    vsel,s,volu,,vset1
    vsel,r,loc,y,i,i+90
        get_max_entity
        v1=vm
        !
    asel,s,area,,aset1
        asel,r,loc,y,i
        cm,a1,area
        !
    asel,s,area,,aset1
        asel,r,loc,y,i+90
        get_max_entity
        a2=am
        !
    asel,s,area,,aset1
    asel,r,area,,a1
    !
    *if,i,eq,0,then
        msh_algorithm,1,3,0,0,hold_1,a2,3,4,0.010,0.015,2,,,v1,,,
        aclear,a1
    *else
        msh_algorithm,0,2,0,0,hold_1,a2,3,4,0.010,0.015,2,,,v1,,,
    *endif
    !
*enddo
!
init_entity_num
!
allsel,all
!
lplot
!
!----------------------- 3.3  Mesh Weld 3 Volumes ------------------------
!
csys,CSwf31
!
parm_val,'hous_slv','R4','r1'
parm_val,'hous_slv','W1','w1'
parm_val,'weld_3','L2','l2'
!
vsel,s,loc,z,0,w1
vsel,r,loc,x,0,r1
    cm,vset1,volu
aslv,s
    cm,aset1,area
    !
*do,i,0,270,90
    vsel,s,volu,,vset1
    vsel,r,loc,y,i,i+90
        get_max_entity
        v1=vm
        !
    asel,s,area,,aset1
        asel,r,loc,y,i
        cm,a1,area
        !
    asel,s,area,,aset1
        asel,r,loc,y,i+90
        get_max_entity
        a2=am
        !
    asel,s,area,,aset1
    asel,r,area,,a1
    !
    *if,i,eq,0,then
        msh_algorithm,1,3,0,0,15,a2,3,4,0.010,0.015,2,,,v1,,,
        aclear,a1
    *else
        msh_algorithm,0,2,0,0,15,a2,3,4,0.010,0.015,2,,,v1,,,
    *endif
    !
*enddo
!
init_entity_num
!
allsel,all
!
hold_2=elszohof
!
lplot
!
!-------------------- 3.4  Mesh Stator Wire Volumes ----------------------
!
csys,cylstat
!
vsel,s,volu,,vm-159,vm-156,1
    cm,vset1,volu
aslv,s
    cm,aset1,area
    !
*do,i,0,270,90              ! mesh rear wire volumes
    vsel,s,volu,,vset1
    vsel,r,loc,y,i,i+90
        get_max_entity
        v1=vm
        !
    asel,s,area,,aset1
        asel,r,loc,y,i
        cm,a1,area
        !
    asel,s,area,,aset1
        asel,r,loc,y,i+90
        get_max_entity
        a2=am
        !
    asel,s,area,,aset1
    asel,r,area,,a1
    !
    *if,i,eq,0,then     !****************** hold_1 or 10
        msh_algorithm,1,3,0,1,10,a2,3,4,0.10,0.1,4,,,vm-v_diff,,,
        aclear,a1
    *else               !****************** hold_1 or 10
        msh_algorithm,0,2,0,1,10,a2,3,4,0.10,0.1,4,,,vm-v_diff,,,
    *endif
    !
*enddo
!
init_entity_num
!
allsel,all
!
lplot
!
!
!
csys,cylstat
!
vsel,s,volu,,vm-155,vm-152,1
    cm,vset1,volu
aslv,s
    cm,aset1,area
    !
*do,i,0,270,90              ! mesh rear wire volumes
    vsel,s,volu,,vset1
    vsel,r,loc,y,i,i+90
        get_max_entity
        v1=vm
        !
    asel,s,area,,aset1
        asel,r,loc,y,i
        cm,a1,area
        !
    asel,s,area,,aset1
        asel,r,loc,y,i+90
        get_max_entity
        a2=am
        !
    asel,s,area,,aset1
    asel,r,area,,a1
    !
    *if,i,eq,0,then         !****************** hold_1 or 10
        msh_algorithm,1,3,0,1,10,a2,3,4,0.10,0.1,4,,,vm-v_diff,,,
        aclear,a1
    *else                   !****************** hold_1 or 10
        msh_algorithm,0,2,0,1,10,a2,3,4,0.10,0.1,4,,,vm-v_diff,,,
    *endif
    !
*enddo
!
init_entity_num
!
allsel,all
!
lplot
!
!-------------------- 3.5  Mesh Stator Tube Volumes ----------------------
!
csys,CSstr1
!
vsel,s,volu,,vm-39,vm-36,1
aslv,s
asel,r,loc,y,0
msh_algorithm,1,3,0,1,hold_1,am-109,3,4,0.040,0.1,1,,,vm-36,,,
!
vsel,s,volu,,vm-39,vm-36,1
aslv,s
asel,r,loc,y,90
msh_algorithm,0,2,0,1,hold_1,am-113,3,4,0.040,0.1,1,,,vm-37,,,
!
vsel,s,volu,,vm-39,vm-36,1
aslv,s
asel,r,loc,y,180
msh_algorithm,0,2,0,1,hold_1,am-117,3,4,0.040,0.1,1,,,vm-38,,,
!
vsel,s,volu,,vm-39,vm-36,1
aslv,s
asel,r,loc,y,270
msh_algorithm,0,2,0,1,hold_1,am-118,3,4,0.040,0.1,1,,,vm-39,,,
!
elml=ellhndof
ln=lm-1944
*get,lleng,line,ln,leng
hold_3=nint(lleng/elml)
!
init_entity_num
!
allsel,all
!
lplot
!
!----------------------- 3.6  Mesh Flange Volumes ------------------------
!
csys,CSstr1
!
parm_val,'stat068','H5','h5'
parm_val,'stat068','R5','r5'
asel,s,loc,z,h5
asel,r,loc,x,r5,1.5*r5
asel,u,area,,am-1162,am-1159,1
cm,aset1,area
!
msh_algorithm,1,3,0,1,hold_3,,3,4,0.050,0.1,1,,,,,,
!
init_entity_num
!
allsel,all
!
asel,s,loc,z,h5
asel,r,loc,x,r5,1.5*r5
asel,u,area,,aset1
cm,aset2,area
!
asel,r,area,,am-1162
asel,a,area,,am-1161
asel,a,area,,am-1160
asel,a,area,,am-1159
    !
    msh_algorithm,1,3,0,1,hold_3,,3,4,0.085,0.1,1,,,,,,
    !
init_entity_num
!
allsel,all
!
lplot
!
!------------------ 3.4  Mesh Housing Sleeve Volumes ---------------------
!
csys,CShs1
parm_val,'hous_slv','L2','l2'
parm_val,'hous_slv','L1','l1'
parm_val,'hous_slv','R2','R2'
parm_val,'hous_slv','R1','R1'
vsel,s,loc,z,l2,l1-l2
vsel,r,loc,x,0.85*r2,r1
cm,vset1,volu
!
vsel,s,loc,z,l2,l1-l2
vsel,r,loc,y,180,360
vsel,r,loc,x,0.75*r2,r1
!
vsel,a,volu,,vset1
vsel,a,volu,,vm-234,vm-232,1
vsel,a,volu,,vm-167
vsel,u,volu,,vm
vsel,a,volu,,vm-169
vsel,a,volu,,vm-227,vm-225,1
cm,vset1,volu                       ! housing sleeve volumes
!
csys,CS5th1
!
parm_val,'hous_slv','L1','l1'
parm_val,'hous_slv','L2','l2'
parm_val,'hous_slv','L6','l6'
vsel,r,loc,z,0,(l1-l2)-l6
cm,vset2,volu                       ! 5th extrude housing sleeve volumes
!
aslv,s
asel,r,loc,z,(l1-l2)-l6
cm,aset1,area                       ! mesh areas
!
asel,r,area,,am-895
    msh_algorithm,1,3,,1,2,,3,4,0.15,0.20,2,,,vm-207,,,
asel,s,area,,aset1
asel,r,area,,am-900
    msh_algorithm,1,3,,1,2,,3,4,0.15,0.20,2,,,vm-208,,,
asel,s,area,,aset1
asel,r,area,,am-889
    msh_algorithm,1,3,,1,2,,3,4,0.15,0.20,2,,,vm-206,,,
asel,s,area,,aset1
asel,r,area,,am-885
    msh_algorithm,1,3,,1,2,,3,4,0.15,0.20,2,,,vm-205,,,
asel,s,area,,aset1
asel,r,area,,am-876
    msh_algorithm,1,3,,1,2,,3,4,0.15,0.20,2,,,vm-203,,,
asel,s,area,,aset1
asel,r,area,,am-881
    msh_algorithm,1,3,,1,2,,3,4,0.15,0.20,2,,,vm-204,,,
    !
init_entity_num
!
allsel,all
!
lplot
!
!
!
csys,CS4th1
!
vsel,s,volu,,vset1
parm_val,'hous_slv','L4','l4'
parm_val,'hous_slv','L6','l6'
vsel,r,loc,z,0,(l6-l4)
cm,v4th,volu
!
aslv,s
asel,r,loc,z,(l6-l4)
cm,a4th,area
!
asel,r,area,,am-917
    msh_algorithm,0,2,,1,5,,3,4,0.15,0.20,2,,,vm-27,,,
asel,s,area,,a4th
asel,r,area,,am-928
    msh_algorithm,0,2,,1,5,,3,4,0.15,0.20,2,,,vm-31,,,
asel,s,area,,a4th
asel,r,area,,am-911
    msh_algorithm,0,2,,1,5,,3,4,0.15,0.20,2,,,vm-30,,,
asel,s,area,,a4th
asel,r,area,,am-906
    msh_algorithm,0,2,,1,5,,3,4,0.15,0.20,2,,,vm-29,,,
    !
init_entity_num
!
allsel,all
!
lplot
!
!
!
csys,CS3rd1
!
vsel,s,volu,,vset1
parm_val,'hous_slv','L4','l4'
parm_val,'hous_slv','L5','l5'
vsel,r,loc,z,0,(l4-l5)
vsel,u,volu,,vm-169
vsel,u,volu,,vm-234
vsel,u,volu,,vm-168
vsel,u,volu,,vm-165
cm,v3rd,volu
!
aslv,s
asel,r,loc,z,(l4-l5)
cm,a3rd,area
!
asel,r,area,,am-1046
    msh_algorithm,1,3,,1,1,,3,4,0.15,0.20,2,,,vm-233,,,
asel,s,area,,a3rd
asel,r,area,,am-1020
    msh_algorithm,0,2,,1,1,,3,4,0.15,0.20,2,,,vm-230,,,
asel,s,area,,a3rd
asel,r,area,,am-1028
    msh_algorithm,0,2,,1,1,,3,4,0.15,0.20,2,,,vm-231,,,
asel,s,area,,a3rd
asel,r,area,,am-1015
    msh_algorithm,0,2,,1,1,,3,4,0.15,0.20,2,,,vm-229,,,
asel,s,area,,a3rd
asel,r,area,,am-1036
    msh_algorithm,1,3,,1,1,,3,4,0.15,0.20,2,,,vm-232,,,
asel,s,area,,a3rd
asel,r,area,,am-1011
    msh_algorithm,0,2,,1,1,,3,4,0.15,0.20,2,,,vm-228,,,
    !
init_entity_num
!
allsel,all
!
lplot
!
!
!
csys,CS2nd1
!
vsel,s,volu,,vset1
parm_val,'hous_slv','L3','l3'
parm_val,'hous_slv','L5','l5'
vsel,r,loc,z,0,(l5-l3)
vsel,u,volu,,vm-227
cm,v2nd,volu
!
aslv,s
asel,r,loc,z,(l5-l3)
cm,a2nd,area
!
asel,r,area,,am-1062
    msh_algorithm,0,2,,1,1,,3,4,0.15,0.20,2,,,vm-226,,,
asel,s,area,,a2nd
asel,r,area,,am-1057
    msh_algorithm,0,2,,1,1,,3,4,0.15,0.20,2,,,vm-223,,,
asel,s,area,,a2nd
asel,r,area,,am-1060
    msh_algorithm,0,2,,1,1,,3,4,0.15,0.20,2,,,vm-224,,,
asel,s,area,,a2nd
asel,r,area,,am-1056
    msh_algorithm,0,2,,1,1,,3,4,0.15,0.20,2,,,vm-222,,,
asel,s,area,,a2nd
asel,r,area,,am-1055
    msh_algorithm,1,3,,1,1,,3,4,0.15,0.20,2,,,vm-221,,,
asel,s,area,,a2nd
asel,r,area,,am-1053
    msh_algorithm,1,3,,1,1,,3,4,0.15,0.20,2,,,vm-219,,,
asel,s,area,,a2nd
asel,r,area,,am-1061
    msh_algorithm,0,2,,1,1,,3,4,0.15,0.20,2,,,vm-225,,,
asel,s,area,,a2nd
asel,r,area,,am-1054
    msh_algorithm,0,2,,1,1,,3,4,0.15,0.20,2,,,vm-220,,,
    !
init_entity_num
!
allsel,all
!
lplot
!
!
!
csys,CS1st1
!
vsel,s,volu,,vset1
parm_val,'hous_slv','L3','l3'
parm_val,'hous_slv','L2','l2'
vsel,r,loc,z,0,(l3-l2)
cm,v1st,volu
!
aslv,s
asel,r,loc,z,(l3-l2)
cm,a1st,area
!
asel,r,area,,am-978
    msh_algorithm,0,2,,1,1,,3,4,0.15,0.20,2,,,vm-217,,,
asel,s,area,,a1st
asel,r,area,,am-983
    msh_algorithm,0,2,,1,1,,3,4,0.15,0.20,2,,,vm-218,,,
asel,s,area,,a1st
asel,r,area,,am-973
    msh_algorithm,0,2,,1,1,,3,4,0.15,0.20,2,,,vm-216,,,
asel,s,area,,a1st
asel,r,area,,am-969
    msh_algorithm,0,2,,1,1,,3,4,0.15,0.20,2,,,vm-215,,,
asel,s,area,,a1st
asel,r,area,,am-961
    msh_algorithm,0,2,,1,1,,3,4,0.15,0.20,2,,,vm-213,,,
asel,s,area,,a1st
asel,r,area,,am-965
    msh_algorithm,0,2,,1,1,,3,4,0.15,0.20,2,,,vm-214,,,
    !
init_entity_num
!
allsel,all
!
lplot
!
!
!
!-------------------- 3.5  Mesh Housing Tube Volumes ---------------------
!
csys,tube1cs                ! tube 1
!
parm_val,'hous_slv','R4','r4'
parm_val,'hous_slv','L19','l19'
parm_val,'hous_slv','L8','l8'
vsel,s,loc,x,0,r4
vsel,r,loc,z,0,l19-l8
    cm,vset1,volu
aslv,s
    cm,aset1,area
    !
*do,i,0,270,90              ! mesh rear wire volumes
    vsel,s,volu,,vset1
    vsel,r,loc,y,i,i+90
        get_max_entity
        v1=vm
        !
    asel,s,area,,aset1
        asel,r,loc,y,i
        cm,a1,area
        !
    asel,s,area,,aset1
        asel,r,loc,y,i+90
        get_max_entity
        a2=am
        !
    asel,s,area,,aset1
    asel,r,area,,a1
    !
    *if,i,eq,0,then
        msh_algorithm,1,3,0,1,hold_2,a2,3,4,0.05,0.1,2,,,v1,,,
        aclear,a1
    *else
        msh_algorithm,0,2,0,1,hold_2,a2,3,4,0.05,0.1,2,,,v1,,,
    *endif
    !
*enddo
!
init_entity_num
!
allsel,all
!
!
!
csys,tube2cs                ! tube 2
!
parm_val,'hous_slv','W1','w1'
parm_val,'hous_slv','R4','r4'
parm_val,'hous_slv','L15','l15'
parm_val,'hous_slv','L16','l16'
vsel,s,loc,x,0,r4
vsel,r,loc,z,w1,l15-l16
    cm,vset1,volu
aslv,s
    cm,aset1,area
    !
*do,i,0,270,90              ! mesh rear wire volumes
    vsel,s,volu,,vset1
    vsel,r,loc,y,i,i+90
        get_max_entity
        v1=vm
        !
    asel,s,area,,aset1
        asel,r,loc,y,i
        cm,a1,area
        !
    asel,s,area,,aset1
        asel,r,loc,y,i+90
        get_max_entity
        a2=am
        !
    asel,s,area,,aset1
    asel,r,area,,a1
    !
    *if,i,eq,0,then
        msh_algorithm,1,3,0,1,hold_2,a2,3,4,0.05,0.1,2,,,v1,,,
        aclear,a1
    *else
        msh_algorithm,0,2,0,1,hold_2,a2,3,4,0.05,0.1,2,,,v1,,,
    *endif
    !
*enddo
!
init_entity_num
!
allsel,all
!
!
!
csys,tube3cs                ! tube 3
!
parm_val,'hous_slv','W1','w1'
parm_val,'hous_slv','R4','r4'
parm_val,'hous_slv','L15','l15'
parm_val,'hous_slv','L16','l16'
vsel,s,loc,z,0,l16
    cm,vset1,volu
aslv,s
    cm,aset1,area
    !
asel,r,loc,z,0
asel,r,area,,am-744
!
msh_algorithm,1,3,0,1,2,,3,4,0.10,0.1,2,,,,,,
!
vsel,s,volu,,vset1
vsel,u,volu,,vm-170
aslv,s
cm,aset1,area
!
asel,r,loc,z,0
asel,r,loc,x,0,10
asel,r,loc,y,-10,0
    msh_algorithm,0,2,0,1,2,am-734,3,4,0.10,0.1,2,,,vm-172,,,
asel,s,area,,aset1
asel,r,loc,z,0
asel,r,loc,x,0,10
asel,r,loc,y,0,10
    msh_algorithm,0,2,0,1,2,am-743,3,4,0.10,0.1,2,,,vm-174,,,
asel,s,area,,aset1
asel,r,loc,z,0
asel,r,loc,x,-10,0
asel,r,loc,y,0,10
    msh_algorithm,0,2,0,1,2,am-738,3,4,0.10,0.1,2,,,vm-173,,,
asel,s,area,,aset1
asel,r,loc,z,0
asel,r,loc,x,-10,0
asel,r,loc,y,-10,0
    msh_algorithm,0,2,0,1,2,am-730,3,4,0.10,0.1,2,,,vm-171,,,
    !
init_entity_num
!
allsel,all
!
lplot
!
vadd,vm-234,vm-168,vm-167,vm-165,vm-28,vm-26,vm,vm-169
!
init_entity_num
!
vsel,s,volu,,vm
msh_algorithm,0,5,0,1,2,,1,2,0.080,0.1,2,,,vm,,,
!
init_entity_num
!
allsel,all
!
lplot
!
!----------------------- 3.6  Mesh Weld Interfaces -----------------------
!
vsel,s,volu,,vm-193,vm-188,1
vsel,a,volu,,vm-22,vm-15,1
vsel,a,volu,,vm-203,vm-198,1
vsel,a,volu,,vm-50,vm-47,1
!
msh_algorithm,0,5,0,1,2,,1,2,0.070,0.1,2,,,,,,
!
init_entity_num
!
allsel,all
!
lplot
!
!------------------------- 3.7  Mesh Stator Lams -------------------------
!
vsel,s,volu,,vm-46,vm-45,1
vsel,a,volu,,vm-42,vm-41,1
!
msh_algorithm,0,5,0,1,2,,1,2,0.25,0.1,4,,,,,,
!
init_entity_num
!
allsel,all
!
lplot
!
!--------------------------- 3.8  Mesh Endbell ---------------------------
!
vsel,s,volu,,vm-36,vm-35,1
!
msh_algorithm,0,5,0,1,2,,1,2,0.25,0.1,3,,,,,,
!
init_entity_num
!
allsel,all
!
csys,tube3cs        ! create connector point mass
!
parm_val,'hous_slv','L16','l16'
parm_val,'hous_slv','R4','r4'
!
n,nm+1,0,0,l16
!
et,5,mass21,,,2      ! 3-dimensional mass w/o rotary inertia
m_con=0.260          ! 0.260 or 0.050
r,5,m_con/g_bin
!
type,5               ! define active element type as set 5
real,5               ! define active real constant type as set 5
!
e,nm+1               ! define connector mass
!
nsel,s,node,,49815
!nsel,r,loc,y,90
!nsel,r,loc,z,l16
nsel,a,node,,nm+1
!
cp,1,all,all
!
init_entity_num
!
allsel,all
!
lplot
!
!
*ask,hs_part,Analyze ISS assembly,0
!
!
*if,hs_part,eq,1,then
    !
    !--------------- 4.  Hamilton-Sunstrand ISS Assembly -----------------
    !
    asel,s,area,,am-1170,am-1163,1
    !
    type,4
    mat,1
    !
    extrude_aset,-.010
    !
    init_entity_num
    !
    allsel,all
    !
    ham-sun_assembly
    !
    allsel,all
    !
    nummrg,all
    !
    init_entity_num
    !
    allsel,all
    !
    aclear,all
    !
    lplot
    !
*else
    nummrg,all
    !
    init_entity_num
    !
    allsel,all
    !
    aclear,all
    !
    lplot
*endif