!   TITLE:  race3do_top_nhbb.mac (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   03/26/2001  D. Edwards
!---------------------------------------------------------------------------
!
!   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.
!
!
!   CS10:   Cartesian central Coordinate System
!   CS11:   Cylindrical central Coordinate System
!   CS12:   Spherical central Coordinate System
!
!
!******************************* TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!
!
!************************** Model Assembly Preparation **********************
!
!
mod_assemb_prep,,1
!
!tstart
!
/title,NHBB Upper Azimuth Outer Race (490A045-101)
!
!
/units,bin
!
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
race3do_top_nhbb.parm                   ! name of parameter file
!
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate Systems >>>>>>>>>>>>>>>>>>>>
!
!
mod_coord_system,CSgim0,0,0,-.984,-90,90,0

!
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!

/view,1,,,1
/ang,1


!
! Keypoint Definitions from raceo_top_nhbb.parm
!

k,,x1,y1,z1                  ! km + 1
k,,x2,y2,z2                  ! km + 2
k,,x3,y3,z3                  ! km + 3
k,,x4,y4,z4                  ! km + 4
k,,x5,y5,z5                  ! km + 5
k,,x6,y6,z6                  ! km + 6
k,,x7,y7,z7                  ! km + 7
k,,x8,y8,z8                  ! km + 8
k,,x9,y9,z9                  ! km + 9
k,,x10,y10,z10               ! km + 10
k,,x11,y11,z11               ! km + 11
k,,x12,y12,z12               ! km + 12
k,,x13,y13,z13               ! km + 13
k,,x14,y14,z14               ! km + 14
k,,x15,y15,z15               ! km + 15
k,,x16,y16,z16               ! km + 16 (center)
k,,x17,y17,z17               ! km + 17
k,,x18,y18,z18               ! km + 18 (center)
k,,x19,y19,z19               ! km + 19
k,,x20,y20,z20               ! km + 20
k,,x21,y21,z21               ! km + 21

ktop=km+17
kbot=km+14

!
! Race geometry
! Line definitions from nhbb_u.igs
!

L,km+1,km+2                  ! lm + 1
L,km+3,km+4                  ! lm + 2
L,km+5,km+6                  ! lm + 3
L,km+7,km+8                  ! lm + 4
L,km+9,km+10                 ! lm + 5
L,km+6,km+11                 ! lm + 6
L,km+12,km+13                ! lm + 7
L,km+12,km+4                 ! lm + 8
larc,km+14,km+15,km+16,r1    ! lm + 9
larc,km+17,km+9,km+18,r2     ! lm + 10
L,km+15,km+19                ! lm + 11
L,km+20,km+21                ! lm + 12
L,km+2,km+5                  ! lm + 13
L,km+20,km+1                 ! lm + 14
L,km+3,km+10                 ! lm + 15
L,km+11,km+7                 ! lm + 16
L,km+8,km+13                 ! lm + 17
larc,km+21,km+14,km+16,r3    ! lm + 18
larc,km+19,km+17,km+18,r4    ! lm + 19

al,all

init_entity_num

k,,0,0,0
k,,0,1,0
/psymb,cs,1
init_entity_num
revolve_aset,km-1,km,-180,2

!
! Mesh the race
!

csys,CSrac0
create_cs,0,'CSrace0',0,0,0,0,0,-90,0

asel,selv,loc,y,0
asel,r,loc,x,0,-x7

*go,:skip

!aCS0,  mstyp, mshdens, elmszovr, etpa, etpv, elmnl,elmxl, mtrl
rotate_volm_msh,CSgim1,,1,,2,1,.05,.05,c440C
!msh_area,1,,2, .07,.07,,c440C
!msh_standrd,4,0,0, , ,3,.07,.07,c440C

finalize_model

:skip