! TITLE: str_tube_slev_375a085.parm (ISS) ! !--------------------------------------------------------------------------- ! Rev - RELEASED 11/19/2002 J. Rinaldi !--------------------------------------------------------------------------- ! ! This is the parameter file used in the construction of the stator tube ! sleeve, P/N 375A085; part macro STR_TUBE_SLEV_375A085.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,bolt_mis,bolt missing=1 or not missing=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 375A085 @ %pload% psi Internal *elseif,ptyp,eq,'x',then /title,Stator Tube Sleeve 375A085 @ %pload% psi External *endif *else /title,Stator Tube Sleeve 375A085 @ %pload% psi Internal *endif *else /title,Stator Tube Sleeve 375A085 *endif ! /units,bin ! !--------------------- b.) Part Name Selection Variable -------------------- ! name='stat085' arry_nam='stt85' ! !--------------------------- 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' !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 ! 375A085-A, B4 rfil2=0.005 ! 375A085-A, B5 rfil3=0.300 ! 375A085-A, B5 0.312 rfil4=0.020 ! 375A085-A, C7 rfil5=0.015 rfil6=0.125 ! 375A085-A, C7 rfil7=0.093 ! 375A085-A, B7 rfout=2.000 ! outer radius of the flange (pattern 1) rff=0.250 ! flange fillet radius ! chmf1=0.040 ! 375A085-A, A5, B5 chmf2=0.062 ! 375A085-A, C7 chmf3=0.125 ! 375A085-A, B5 ! h3=0.150 h4=0.115 h5=0.165 ! 375A085-A, B5 h2=h5-h4-h3 h6=0.188 ! 375A085-A, D7 h7=0.318 ! 375A085-A, D7 h8=0.416 ! 375A085-A, D6 h10=0.054 ! 375A085-A, D7 h11=0.106 ! 375A085-A, D7 h12=2.280 ! 375A085-A, D6 h13=2.217 ! 375A085-A, D6 2.227 ! 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=60 ! bolt pattern angle ! r1=2.632/2 ! 375A085-A, C8 r3=2.7675/2 ! 375A085-A, B8 r4=2.000 ! 375A085-A, B2 r5=3.461/2 ! 375A085-A, C5 r6=1.893/2 ! 375A085-A, D5 r7=1.858/2 ! 375A085-A, C7 1.863/2 r8=3.256/2 ! 375A085-A, D5 r9=3.112/2 ! 375A085-A, 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 ! !---------------------------------------------------------------------------