!   TITLE:  str_tube_analysis_375a109.parm (TRW)
!
!---------------------------------------------------------------------------
!   Rev -   RELEASED        11/19/2002          J. Rinaldi
!---------------------------------------------------------------------------
!
!   This is the parameter file used in the construction of the stator tube
!   sleeve, P/N 375A109; part macro STR_TUBE_ANALYSIS_375A109.MAC.
!
!
!----------------------- Model Construction Parameters ---------------------
!
*if,assemble,eq,1,then
    enable='3d'
    sym_=1
    ptang=90
*else
    *ask,enable,Analyze 2D or 3D model,'2d'
    !
    *if,enable,eq,'3d',then
        *ask,sym_,(1/12) or (1/2) or (1/1) model symmetry,1/12
        !
        *if,sym_,eq,1/2,then
            *ask,bolts,Model Bolt=1 or No bolt=0,0
        *endif
        !
        *if,sym_,eq,1/2,then
            ptang=90
        *elseif,sym_,eq,1/1,then
            ptang=90
        *elseif,sym_,eq,1/12,then
            ptang=30
        *endif
    *elseif,enable,eq,'2d',then
        *ask,ptyp,INTERNAL(i) or EXTERNAL(x) pressure,'i'
    *endif
    !
    *if,sym_,ne,1/1,then
        *ask,yn_mesh,Mesh model (False=0, True=1),0
    *endif
    !
    *IF,yn_mesh,eq,1,then
        *if,enable,eq,'3d',then
            *ask,elordr,high-h or low-l order element,'l'
        *endif
        !
        *ask,pload,Pressure Load,0
        *ask,slv_,Solve this model now (True=1),0
    *endif
*endif
!
!---------------------- a.) Title and Units Declaration --------------------
!
*if,pload,ne,0,then
    *if,enable,eq,'2d',then
        *if,ptyp,eq,'i',then
            /title,Stator Tube Sleeve 375A109 @ %pload% psi Internal
        *elseif,ptyp,eq,'x',then
            /title,Stator Tube Sleeve 375A109 @ %pload% psi External
        *endif
    *else
        /title,Stator Tube Sleeve 375A109 @ %pload% psi Internal
    *endif
*else
    /title,Stator Tube Sleeve 375A109
*endif
!
/units,bin
!
!--------------------- b.) Part Name Selection Variable --------------------
!
name='stat109'
arry_nam='st109'
!
!--------------------------- c.) Model C.S. Names --------------------------
!
ct_name='CSst00'                ! cartesian
cyl_name='CSst01'               ! cylindrical
sph_name='CSst02'               ! spherical
!
!----------------------- d.) Material and Element Type ---------------------
!
!
mat_select,'inc718','c316L'
!mat_select,'c316L'
!
!
et,1,plane82,,,1,
!
*if,yn_mesh,eq,1,then
    *if,enable,eq,'3d',then
        *if,sym_,ne,1,then
            *if,elordr,eq,'h',then
                et,2,shell93
                et,3,solid95
            *elseif,elordr,eq,'l',then
                et,2,shell63
                et,3,solid45
            *endif
        *endif
    *endif
*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.005                  ! tolerance on h12
tol2=0.0005                 ! tolerance on r6
tol3=0.003                  ! tolerance on r7
tol4=0.002                  ! tolerance on h13
!
rfil1=0.010                 ! 375A109-, B4
rfil2=0.005                 ! 375A109-, B5
rfil3=0.300                 ! 375A109-, B5
rfil4=0.020                 ! 375A109-, C7
rfil5=0.015
rfil6=0.125                 ! 375A109-, C7
rfil7=0.093                 ! 375A109-, B7
rfout=2.000                 ! outer radius of the flange (pattern 1)
rff=0.250                   ! flange fillet radius
!
chmf1=0.040                 ! 375A109-, A5, B5
chmf2=0.062                 ! 375A109-, C7
chmf3=0.125                 ! 375A109-, B5
!
h3=0.150
h4=0.115

h5=0.165                    ! 375A109-, B5
h2=h5-h4-h3
h6=0.200                    ! 375A109-, D7      0.188
h7=0.318                    ! 375A109-, D7
h8=0.416                    ! 375A109-, D6
h10=0.054                   ! 375A109-, D7
h11=0.106                   ! 375A109-, D7
h12=2.280                   ! 375A109-, D6
h13=2.217                   ! 375A109-, D6
!
rbp=2.000                   ! radius of bolt pattern
rbf=0.295                   ! radius of bolt flange
dbh=0.194                   ! diameter of bolt hole
rbh=(dbh/2)+.070            ! radius of bolt heads
dfl=2.500                   ! flange diameter
nh=6                        ! number of flange holes
bang=360/nh                 ! bolt pattern angle
!
r1=2.632/2                  ! 375A109-, C8
r3=2.7675/2                 ! 375A109-, B8
r4=2.000                    ! 375A109-, B2
r5=3.461/2                  ! 375A109-, C5
r6=1.893/2                  ! 375A109-, D5
r7=1.858/2                  ! 375A109-, C7
r8=3.256/2                  ! 375A109-, D5
r9=3.112/2                  ! 375A109-, D5
!
!
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
!
!---------------------------------------------------------------------------