!   TITLE:  plate_brg_id.parm (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   01/17/2003      D. Edwards
!---------------------------------------------------------------------------
!
!   Analysis of upper azimuth bearing retainer to determine clamping
!   load on inner DT bearing races.
!
!   SUPPORT, BEARING    P/N 333A056
!
!   (Little Boys) CU01715076/104 steel sleeve version with A311A105-101
!    DT bearings (3.875 OD).
!
GAP=.0205       ! Max clearance between retainer and stub shaft
!GAP=.0025      ! Min clearance
!
!---------------------- a.) Title and Units Declaration --------------------
!
/units,bin
!
!--------------------- b.) Part Name Selection Variable --------------------
!
name='ring'
arry_nam='ring'
!
!--------------------------- c.) Model C.S. Names --------------------------
!
ct_name='CS_0'          ! cartesian
cyl_name='CS_1'         ! cylindrical
sph_name='CS_2'         ! spherical
!
!----------------------- d.) Material and Element Type ---------------------
!
! Material Properties
mat_select,'c416'
!
et,1,plane42,0,0,1      ! Axisymmetric

                        ! keyopt(4): 0=Use real constant, 1=Use model geom
et,2,contac52,,,1,0     ! Bearing race contact - no gap
mp,MU,2,0

!KN, GAP, START, KS, REDFACT, NX, NY, NZ
r,2,1e8,0
r,3,1e8,GAP
!
!--------------------------- e.) Model Parameters --------------------------
!
Tbolt=5                 ! [in-lb] Screw torque

!Tbc=Tbolt*(7/15)       ! Equiv torque w/ Emperical correction factor
Tbc=Tbolt               ! due to screw bending

offset=.25              ! Reduce inner radii of bolt section

r1=2.450/2-offset
r2=2.860/2-offset
r3=3.350/2

rb=3.0625/2+.015        ! Bearing ID/2 + corner radius

dsh=.8*.222             ! Use 80% of area where most of the pressure is
dmean=2.680-2*offset
ri=(dmean-dsh)/2        ! Annular area for applied screw head pressure
ro=(dmean+dsh)/2

t1=.073 !.150
t2=.033 !.025

Fi=Tbc/.2/.138          ! [lb] Screw tension
Nbolt=6                 ! Number of bolts
Ft=Fi*Nbolt             ! Total load on retainer ring
At=pi*(ro*ro-ri*ri)     ! Area of applied pressure

Pt=Ft/At                ! Contact pressure on annulus about screws
!
/title,076/104 Upper Az DT Brg Inner Retainer (333A056) Load: Tbolt=%Tbolt%, Ft=%Ft%
!
!------------------------ 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
rotyzc=0                        ! yz rotation
rotzxc=0                        ! zx rotation
!
!---------------------------------------------------------------------------