! TITLE: side_load.mac
!
! Find the bearing reaction loads due to an applied shaft end load.
!
! Resolver Assy, SKCM91093040
!
! See calculations in
!
!   edwards:/eng/sensors/resolver/CM91093040/spline_shaft_load_rating.pdf
!

clear_start_new

/prep7

constants

Pa=-1.0             ! Applied load
Lf=.136             ! Location of applied load (center of full spline)

Prated=17           ! Load rating of bearing

LB1=.558            ! Location of beearings
LB2=.173

! Properties that apply to all elements
E=28.0E6

et,1,beam3
keyopt,1,6,1
keyopt,1,9,9

mp,ex,1,E

! Spline end (left end)
L1=.815
D1=.188
adia,'A1',D1
I1=pi*D1**4/64

!AREA, IZZ, HEIGHT, SHEARZ, ISTRN, ADDMAS
r,1,A1,I1,D1

! Rotor shaft section
L2=.950
D2=.097
adia,'A2',D2
I2=pi*D2**4/64
r,2,A2,I2,D2


n,1
n,2,Lf
n,3,LB1
n,4,LB1+LB2
n,5,L1
n,6,L1+L2

real,1
e,1,2
e,2,3
e,3,4
e,4,5

real,2
e,5,6

d,3,uy,0
d,4,uy,0

d,6,ux,0,,,,uy

f,2,fy,Pa

numbers_toggle,5
numbers_toggle,6
/view, 1 ,1,1,1
/ang, 1
/pbc,all, ,1
/rep,fast

fini

/sol
solve
fini

/post1

*get,R3,node,3,rf,fy

/out,side_load,out

*msg,info,Prated,Prated/R3
Load Capacity of Bearing: %g %/&
Load Capacity at Center of Spline Shaft: %g

prnsol,dof
prnld,,,all
presol,elem
/out