413 H«.5*HMAXt 1 ) «-. 5*HMAX( 2 >-HM IN( 1 ) 

 C_ OETER^MINE HAVE PERIOD 



M3»l 

 801 I = I«^1 



IF<HI( I ) •GT.O. >810|e01 



810 T1<M3I=I 

 832 l'I«-l 



AI-I 



IF I HI ( I ).GT.O. >811 ,801 



811 tF((AI-Tl(M3) ).6T. I 0.)a 12,832 



812 I'lf-lO 

 305 I' I 4^1 



IF (Hit I). GT.O, )80S,ai3 



813 T2<M3»=I-1 



GO TO (814,a06>,M3 



814 M3sM3«l 

 XI=,3*(XTM2>-XT1( 1) ) 

 IX = XI 



I«I*IX 



GO TO aOl 

 fl06 TMl = <T2(l)»TU lH/2. 



TM23(T2(2>4'T1(2) 1/2. 



XTM1>TM1«.6 



XT»»2=TM2*.6 



ITMlxXTMl 



ITM2=XTM2 



TT1=ITM1 



TT2»ITM2 



T=<TT2-TT1J*.02 



XJ»50.*T 



XJJ = XJ«^.l 



J^XJJ 

 jC CALCULATE CONSTANTS IN FQRCE^ EQUATION 



PI =3. 1415926536 



R'1.933 



CALL MAVEL(T,0,XL> 



ZV»CL*(.5*DIA) 



A«EXO( (2.«PI4'ZV)/XL> 



C0SHA<A4^( l./A> 



SINHAsA-( l./A> 



B-EXPJ (2.*PI*D»/XL) 



SINH9=3-( l./B) 



CSiCOSHA/SINHB 



SS=SINHA/SINH8 



CFl=R*r)I **XC«H*PI*PI/'(2,4T*T) 



FLV=CF1*H*CS*CS 



F0V»CF1«H*SS*SS 



FMV=CF1*DIA*PI*SS 



U»<H*CS*PI )/T 

 C DETERMINE AVERAGE, MAXIMUM, AND MINIMUM FORCES 



FMAX=-.5 

 FMIN=.5 



SF = 0. 



DO 13 I s 1 , J 



FP( I )=FI (l + ITMl-n*0.02204 



146 



