!   TITLE:  rotor_sleeve_375a108_2d.mac (HAM_SUND/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_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,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
!
finalize_model