!   TITLE:  rotor_sleeve_375a108.parm (TRW)
!
!---------------------------------------------------------------------------
!   Rev -   RELEASED        01/13/2003          J. Rinaldi
!---------------------------------------------------------------------------
!
!   This macro creates the paraemter file for the rotor sleeve, P/N 375A108,
!   used in the TRW satelite refueling system, CU09616055.
!
!
!----------------------- Model Construction Parameters ---------------------
!
*if,assemble,eq,1,then
    !enable='3d'
    sep=0.001
    enable='2d'
    sym_=1
    ptang=90
    *ask,pload,Pressure Load,1
*else
    *ask,enable,Analyze 2D or 3D model,'2d'
    *ask,pload,Pressure Load,1
    *ask,slv_,Solve this model now (True=1),0
*endif
!
!---------------------- a.) Title and Units Declaration --------------------
!
*if,enable,eq,'2d',then
    /title,Rotor Cover 315A139 @ %pload% psi External
*elseif,enable,eq,'2d',then
    /title,Rotor Cover 315A139
*endif
!
/units,bin
!
!--------------------- b.) Part Name Selection Variable --------------------
!
name='rot_cov'
arry_nam='rotcv'
!
!--------------------------- c.) Model C.S. Names --------------------------
!
ct_name='CSrs00'                ! cartesian
cyl_name='CSrs01'               ! cylindrical
sph_name='CSrs02'               ! spherical
!
!----------------------- d.) Material and Element Type ---------------------
!
!
mat_select,'inc718'
!mat_select,'c316L'
!
!
*if,enable,eq,'3d',then
    et,1,shell63
    et,2,solid45
*elseif,enable,eq,'2d',then
    et,1,plane82,,,1,
*endif
!
!--------------------------- e.) Model Parameters --------------------------
!
FSyR=1.1        ! Factor of Safety @ yield, required (3.3.6 SVHS15307)
FSuR=1.1        ! Factor of Safety @ ultimate, required (3.3.6 SVHS15307)
!
*if,mat_name(1,1),eq,'c316L',then
    Sy=30000                            ! 316L yield strength
    Su=75000                            ! 316L ultimate strength
*elseif,mat_name(1,1),eq,'inc718',then
    Sy=145000                           ! INCONEL 718 yield strength
    Su=180000                           ! INCONEL 718 ultimate strength
*endif
!
parm_val,'rot_cov','tol2','tol1',0.002      ! tolerance on D02 in 315A139
parm_val,'rot_cov','tol4','tol2',0.0005     ! tolerance on D04 in 315A139
parm_val,'rot_cov','tol1','tol3',0.002      ! tolerance on D01 in 315A139
!
Dc01=0.015                  ! 375A108,  B8
Dc02=0.010                  ! 375A108,  C6
!
Dz01=1.551                  ! 375A108,  D6
Dz02=1.507                  ! 375A108,  D6
Dz03=0.030                  ! 375A108,  B7
Dz04=0.262                  ! 375A108,  D7
Dz05=0.085                  ! 375A108,  C7
!
Dz06=0.292                  ! 375A108,  B7
parm_val,'rot_cov','Dz02','Dz07',1.545
!
parm_val,'rot_cov','D01','D01',1.810    ! 375A108,  C8
D02=0.500                               ! 375A108,  C7
D03=0.280                               ! 375A108,  C5
D04=0.6168                              ! 375A108,  C4
D05=0.676                               ! 375A108,  C4
!
parm_val,'rot_cov','D02','D06',1.784    ! 375A108,  C4
parm_val,'rot_cov','D04','D07',0.578    ! 375A108,  C5
!
parm_val,'rot_cov','Dz01','a',0
parm_val,'rot_cov','Dz02','b',0
!
esz_2dm=0.003           ! Element sizing parameter / 2d-map mesh section
esz_2df=0.005           ! Element sizing parameter / 2d-free mesh section
!
!------------------------ f.) Model C.S. Coordinates -----------------------
!
acs=CSrc00                      ! active coordinate system
!
xc=0                            ! x coordinate center
yc=0                            ! y coordinate center
zc=a-b                          ! z coordinate center
!
rotxyc=0                        ! xy rotation
rotyzc=0                        ! yz rotation
rotzxc=0                        ! zx rotation
!
!---------------------------------------------------------------------------