!   TITLE:  rotor_sleeve_375a108.mac (TRW)
!
!---------------------------------------------------------------------------
!   Rev -   RELEASED        01/13/2003          J. Rinaldi
!---------------------------------------------------------------------------
!
!   This macro creates the rotor cover sleeve, 375A108, used in the TRW
!   satelite refueling system, CU09616055.
!
!   CSrs00:     Cartesian Rotor Cover Coordinate System
!   CSrs01:     Cylindrical Rotor Cover Coordinate System
!   CSrs02:     Spherical Rotor Cover Coordinate System
!
!
!***************************** TABLE OF CONTENTS ***************************
!
!           Model Assembly Preparation
!
!       1.  Parameter List
!       2.  Model Coordinate System
!       3.  Solid Model
!           3.1  Cross-Sectional Area
!               3.1.1  Partition Area
!       4.  FE Model
!       5.  Make Specified Symmetry Model
!       6.  Loading, Constraints
!       7.  Solve or Finalize Model
!
!
!************************ Model Assembly Preparation ***********************
!
mod_assemb_prep,arg1,arg2,arg3
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>>
!
rotor_sleeve_375a108.parm
!
!<<<<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!------------------------ 3.1  Cross-Sectional Area ------------------------
!
csys,CSrs00
!
k,,D03/2,0,Dz02-Dz01
k,,(D07+tol2)/2,0,Dz02-Dz01
k,,(D07+tol2)/2,0,sep
k,,D04/2,0,sep
k,,D04/2,0,Dz02-Dz04
!
k,,D05/2,0,Dz02-Dz04
k,,D05/2,0,Dz02
k,,((D06+tol1)/2)-sep,0,Dz02
k,,((D06+tol1)/2)-sep,0,Dz07
k,,(D01-tol3)/2,0,Dz07
!
k,,(D01-tol3)/2,0,Dz02+Dz05
k,,D02/2,0,Dz02+Dz05
k,,D02/2,0,Dz02+Dz05-Dz06
k,,D03/2,0,Dz02+Dz05-Dz06
!
create_lines
!
ln_fillet,km-1,mtr
ln_fillet,km-9,mtr
!
chamfer_area,1,lm-6,lm-5,Dc01
chamfer_area,1,lm-16,lm-15,Dc02
!
create_area-lines
!
lplot
!
!-------------------------- 3.1.1  Slotted End Cut -------------------------
!
*if,enable,eq,'3d',then
    csys,CSrs00
    !
    create_cs,0,,0,0,0,0,0,90,0
    ara_create_part,csn+1,90,1.1*Dx01/2
    !
    asel,s,area,,am-1
    ara_create_part,csn+1,0,Dz05
    !
    asel,s,area,,am
    ara_create_part,csn+1,0,Dz01-Dz02
    !
    frac_dist,D05/2,D01/2,1/3,2/3
    ara_create_part,csn+1,90,d_1
    ara_create_part,csn+1,90,d_2
    !
    revolve_aset,CSrs00,90,1
    cm,CV01,volu
    !
    csys,CSrs00
    !
    create_circle,D06/2
    create_area-lines
    !
    k,,(Dx01/2)-R01,R01,0
    k,,-((Dx01/2)-R01),R01,0
    k,,-((Dx01/2)-R01),-R01,0
    k,,(Dx01/2)-R01,-R01,0
    !
    create_area
    !
    create_cs,0,,0,(Dx01/2)-R01,0,0,0,0,0
    create_circle,R01
    create_area-lines
    !
    csys,CSrs00
    !
    create_cs,0,,0,-((Dx01/2)-R01),0,0,0,0,0
    create_circle,R01
    create_area-lines
    !
    aadd,am-3,am-2,am-1,am
    init_entity_num
    !
    isolate_areas
    extrude_aset,Dz05
    !
    vsbv,CV01,vm,,delete,delete
    init_entity_num
    !
    ar_profile_cut,am-1,1
    ar_profile_cut,am-3
    !
    nummrg,kp
    init_entity_num
    !
    lplot
*endif

init_entity_num,1
aglue,all
init_entity_num,1
!


*go,:skip


asel,s,area,,am-1
msh_area,0,3,1,0.003,0.003
init_entity_num,1
!
asel,s,area,,am
msh_area,0,3,1,0.010,0.010
init_entity_num,1
!
eplot
!
!
lsel,s,line,,lm-11
nsll,s
d,all,uy
init_entity_num,1
!
lsel,u,line,,lm-32
lsel,u,line,,lm-45
ln_group,km-2,km-3,km-10
!
ln_group,37,36,29
sfl,all,pres,pload
!
init_entity_num,1
!
        finish
        /config,fsplit,250
        /solu
        eqslv,iter,5,3
        solve
        !
        finish
        !
        /post1
        /eface,1
        avprin,0,0,
        !
        plnsol,s,eqv,0,1
        /eface,1
        avprin,0,0,
        !

:skip