!  TITLE:   bc1.mac (AAAV)
!
!---------------------------------------------------------------------------
!  Rev -  5/09/2002       J. Judd
!---------------------------------------------------------------------------
!
!   Boundary condition for band drive frequency under tension
!
!---------------------------------------------------------------------------

!------------------- Variables -------------
F_band=Torque/(0.2*0.138)   !per Fundamentals of Machine Component Design, p302
F_norm=F_band/sin(45*pi/180)!and hand calculation of force summation assuming
F_fric=0.2*F_norm           !0.2 coefficient of friction
Tension=F_band-f_fric

!------------------- Define Locations/Summations -------------
!------------------- Apply boundary condition -------------
nsel,s,loc,x,0
D,all,UX,0
D,all,UY,0
D,all,UZ,0


nsel,s,loc,x,length
D,all,UY,0
D,all,UZ,0

*get,qty,node,,count
F,all,FX,Tension/qty

alls