!   TITLE:  az_brg_upper_nhbb.parm (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   03/26/2001      D. Edwards
!       Rev A   06/05/2002      D. Edwards
!               Added weight, volume and density calculation
!---------------------------------------------------------------------------
!
!   This macro computes the equivalent thickness ring for a temperature test
!   in an aluminum assembly.
!
!   First the actual race deflection is computed with an arbitrary thickness
!   aluminum sleeve assembled outside of the race.  The race deflection at the
!   ball contact points (use the minimum algebraic value) is used to find an
!   equivalent uniform ring which compresses the same amount when assembled
!   with the aluminum sleeve.
!
!---------------------- a.) Title and Units Declaration --------------------
!
/title,NHBB Upper Azimuth (490A045-101)
!
/units,bin
!
!--------------------- b.) Part Name Selection Variable --------------------
!
name='abu'
arry_nam='abu'
!
!--------------------------- c.) Model C.S. Names --------------------------
!
ct_name='CSbua0'        ! cartesian
cyl_name='CSbua1'       ! cylindrical
sph_name='CSbua2'       ! spherical
!
!----------------------- d.) Material and Element Type ---------------------
!
W=1.605                 ! [lbf] Measured weight from electronic scale
E=10.0e6                ! [psi] Elastic modulus
nu=.27

et,1,shell93            ! Element types
et,2,solid95
!
!------------------ e.) Model parameter definition --------------------------
!
mfg='NHBB'

parm_val,'gimbal','L1','l1',0.425
parm_val,'gimbal','L75','l75',0.019

! Distance from primary azimuth gimbal CS to bearing CS
CSz=-(l1+l75)

x1=0.000000
y1=0.000000
z1=-0.5400000

x2=x1
y2=y1
z2=0.2800000

x3=x1
y3=1.531150
z3=z1

x4=x1
y4=2.127400
z4=z1

x5=x1
y5=1.929250
z5=z2

x6=x1
y6=2.125000
z6=z2

x7=x1
y7=2.187400
z7=-0.4800000

x8=x1
y8=y7
z8=0.000000

x9=x1
y9=2.462500
z9=z8

x10=x1
y10=y9
z10=0.2500000

x11=x1
y11=y5
z11=0.2100000

x12=x1
y12=y6
z12=z10

x13=x1
y13=y3
z13=z11

!
! Parm's for uniform aluminum ring
!
extra=.2                        ! Extra material below the corner chamfer
r_outer=2.7

esize=.04                       ! Mesh sizing
!
!--------------------- f.) Thermal conditions --------------------------------
!

Troom=70                        ! [deg F] Room temp (zero thermal stress)
Ttest=-40                       ! [deg F] Test temp

!
!------------------------ g.) Model C.S. Coordinates -----------------------
!
acs=CSgimM0                     ! active coordinate system
!
xc=0                            ! x coordinate center
yc=0                            ! y coordinate center
zc=0 !CSz                       ! z coordinate center
!
rotxyc=0                        ! xy rotation
rotyzc=0                        ! yz rotation
rotzxc=0                        ! zx rotation
!
!---------------------------------------------------------------------------