!   TITLE:  rotor_cover_315a139.parm (TRW)
!
!---------------------------------------------------------------------------
!   Rev -   RELEASED        01/10/2003          J. Rinaldi
!---------------------------------------------------------------------------
!
!   This macro creates the paraemter file for the rotor cover sleeve,
!   P/N 315A139, used in the TRW satelite refueling system, CU09616055.
!
!
!----------------------- Model Construction Parameters ---------------------
!
*if,assemble,eq,1,then
    enable='3d'
    sym_=1
    ptang=90
*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='CSrc00'                ! cartesian
cyl_name='CSrc01'               ! cylindrical
sph_name='CSrc02'               ! 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
!
tol1=0.002                  ! tolerance on D01
tol2=0.002                  ! tolerance on D02
tol3=0.005                  ! tolerance on D03
tol4=0.0005                 ! tolerance on D04
tol5=0.005                  ! tolerance on Dz05
!
Dx01=0.908                  ! 315A139,  C2
!
Dy01=0.068                  ! 315A139,  B4
!
Dz01=1.681                  ! 315A139,  D6
Dz02=1.545                  ! 315A139,  C6
Dz03=1.515                  ! 315A139,  C6
Dz04=1.581                  ! 315A139,  B6
Dz05=0.100                  ! 315A139,  B6
!
D01=1.810                   ! 315A139,  B8
D02=1.786                   ! 315A139,  C8
D03=0.656                   ! 315A139,  C7
D04=0.5780                  ! 315A139,  C5
D05=1.062                   ! 315A139,  C5
!
D06=0.625                   ! 315A139,  C4
!
R01=Dy01/2                  ! 315A139,  C4
!
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=0                           ! active coordinate system
!
xc=0                            ! x coordinate center
yc=0                            ! y coordinate center
zc=0                            ! z coordinate center
!
rotxyc=0                        ! xy rotation
!
*if,enable,eq,'2d',then
    rotyzc=-90                  ! yz rotation
*else
    rotyzc=0                    ! yz rotation
*endif
!
rotzxc=0                        ! zx rotation
!
!---------------------------------------------------------------------------