!   TITLE:  rotor_cover_315a139_2d.mac (HAM_SUND/TRW)
!
!---------------------------------------------------------------------------
!   Rev -   RELEASED        01/10/2003          J. Rinaldi
!---------------------------------------------------------------------------
!
!   This macro creates the rotor cover sleeve, 315A139, used in the TRW
!   satelite refueling system, CU09616055.
!
!   CSrc00:     Cartesian Rotor Cover Coordinate System
!   CSrc01:     Cylindrical Rotor Cover Coordinate System
!   CSrc02:     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_cover_315a139_2d.parm
pload_=arg5
!
!<<<<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!------------------------ 3.1  Cross-Sectional Area ------------------------
!
csys,CSrc00
!
k,,(D04+tol4)/2,0,0
k,,D05/2,0,0
k,,D05/2,0,Dz05+tol5
k,,(D01-tol1)/2,0,Dz05+tol5
k,,(D01-tol1)/2,0,Dz01
!
k,,(D02+tol2)/2,0,Dz01
k,,(D02+tol2)/2,0,Dz01-Dz03
k,,(D03+tol3)/2,0,Dz01-Dz03
k,,(D03+tol3)/2,0,Dz01-Dz02
k,,(D04+tol4)/2,0,Dz01-Dz02
!
create_lines
!
ln_fillet,km-3,mtr
ln_fillet,km-9,mtr
!
create_area-lines
!
lplot
!
!-------------------------- 3.1.1  Slotted End Cut -------------------------
!
csys,CSrc00
!
k,,D06/2,0,0
k,,D06/2,0,Dz05
k,,(D04+tol4)/2,0,Dz05
k,,(D04+tol4)/2,0,0
!
create_area
!
asba,am-1,am,,delete,delete
!
init_entity_num
!
lplot
!
finalize_model