!   TITLE:  plate_brg_od.mac (AAAV)
!
!-----------------------------------------------------------------------
!       Rev -   01/15/2003      D. Edwards
!-----------------------------------------------------------------------
!
!   Analysis of upper azimuth bearing retainer to determine proper clearance
!   and thickness to achieve desired preload on outer DT bearing races.
!
!   PLATE, BEARING  P/N 300A071
!
!   (Little Boys) CU01715076/104 steel sleeve version with A311A105-101
!    DT bearings (3.875 OD).
!
!   CS_0:       Cartesian ring Coordinate System
!   CS_1:       Cylindrical ring Coordinate System
!   CS_2:       Spherical ring Coordinate System
!
!************************** TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!
!********************* Model Assembly Preparation **********************
!
mod_assemb_prep,arg1,arg2,arg3      ! prepare database for assembly
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
plate_brg_od.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
csys,CS_0

k,,r1           ! 1
k,,rb           ! 2
k,,r2           ! 3
k,,r2,t2        ! 4
k,,r3,t2        ! 5
k,,r3,t1        ! 6
k,,ro,t1        ! 7
k,,ri,t1        ! 8
k,,r1,t1        ! 9

create_area

view,'f'

! Apply pressure load along annulus about bolt pattern
lsel,s,loc,x,ri,ro
lsel,r,loc,y,t1
sfl,all,pres,Pt
alls

!MSH_AREA, mstyp, mshdens, etpa, elmnl, elmxl, lszmsh, mat, real, ecs
msh_area,0,0,1,.01,.01,,c416

! Apply contact elements at bearing race contact
lsel,s,loc,x,r1,rb
lsel,r,loc,y,0
nsll,s,0                    ! 0=interior nodes only
ngen,2,nm+1,all,,,,-.01     ! Copy nodes down y=-.01

type,2
mat,2
real,2

eintf,,,low,0,0,-.01,0

nsll,u,1
d,all,uy

init_entity_num,1

fini

/sol

antype,0

solcontrol
!autots,on
!nsub,20
solv

fini

/post1

/dscale,,1

avprin,0,0,
plnsol,s,eqv,2,1

!lsel,s,line,,1
!nsll
!fcn1='gapS+'
!rplot_nodal,0,'x','U','Y'