!   TITLE:  spr_moment.mac (G200)
!
!---------------------------------------------------------------------------
!       Rev -   02/07/2006      D. Edwards
!---------------------------------------------------------------------------
!
!   This macro solves for stress in one spring with a tangential
!   load at the rivet hole to simulate the 5 in-lbf applied torque.
!
!               Electroid Power-Off Brake P/N REPMFSB-5-10V-L
!
!   Part used in analysis:
!
!       bspring.mac     bspring1.parm   (spr1)     P/N: 
!
clear_start_new
!tstart
!
!******************************* Model Assembly ***************************
!
!---------------------------- AZ GIMBAL ASSY ------------------------------
!
bspring,1,,,'bspring1.parm'

!
! Allow the rivet hole in the 12 o'clock position to rotate only
!
create_cs,2,'CS12_1',1,0,rholes

nsel,s,loc,x,d_rivet/2
nrotat,all

d,all,ux,0,,,,uz

!
! Allow the rivet hole in the 6 o'clock position to rotate only
!
create_cs,2,'CS06_1',1,0,-rholes

nsel,s,loc,x,d_rivet/2
nrotat,all

d,all,ux,0,,,,uz

!
! Couple all the nodes together at the 3 o'clock hub rivet hole
!
create_cs,2,'CS03_1',1,rholes,0

nsel,s,loc,x,d_rivet/2
!nrotat,all
cp,next,'ux',all
cp,next,'uy',all
cp,next,'uz',all

!
! Apply the tangential load at the 12 o'clock node of the
! 3 o'clock hole
!
f,node(d_rivet/2,90,0),FY,-(.5*5)/rholes
!f,node(d_rivet/2,90,0),FZ,.5

alls

fini

!
!---------------------------- Solve ------------------------------
!

/sol

solve

fini

!
!---------------------------- Post Processing ------------------------------
!
/post1