PROGRAM HOR I ZL( INPUT f OUTPUT, PUNCH) 



OIMENSIONZCM) ,P(«1),YS(41 ),r I(4l»,FH4l).FP<4l).F(4l>tFHI41l, 

 1RES(41 ) «G( tOl ) 

 SET TEST CCNOITIONS 



DI A=0. J33 



XC=0.917 



ANGLE «0. 



0>2.COO 

 READ IN DIGITIZED DATA 



8 READ I ,UP,ON,CFD,CFU 

 IF(UP» 10,10,<5 



9 READ 2,CL,T,MtXW,XF,C,W0,F0 

 READ 3,(YI <I ( ,FI (I ) ,1=1 ,40) 



1 F0PMAT(2F3. 3,2F3.0) 



2 F0KMAT(F3. 3,F3.2,I2,2F2.1,3F3.0) 



3 FORMAT <2*F3eO) 

 DETERMINE W/\VE HEIGHT 



00 SJ I=l»31,10 



IFiVK n-«(0)21,23,23 

 21 YS( I )=-(*0-YI ( I ) )*(0N/C)*<1 ./XW) 



GO TO 11 

 23 YSH)«tYI( I)-WQ)*1UP/C)*( l./X*) 

 il CONTINUE 



H«( YS« 1 )*YSI21 »-YS< ll)-YSf 31 ) )/2, 

 CALCULATE CONSTANTS IN FORCE EQUATION 



Pl»3. 1415926636 



P«1.93S 



CALL WAVEL( T,0,XL) 



ZV"CL«-(.5*0IA) 



AxEXPC (2.*PI*ZV)/XLl 



COSHA=A«< l./A) 



a«EXP( (2.*PI*0)/XL> 



SINHB>B-(l./a) 



CS»COSHA/SINHB 



CFl3R*DI A*XC*H*PI*PI/<2.*T«T) 



F0H=CF1*H*CS»CS 



FMH»CF1»0IA*PI«CS 



U»CH*CS*PI l/T 

 DETERMINE AVERAGE, MAXIMUM, AND MINIMUM FORCES 



FMAXs-,5 



FMIN'*S 



SF»Q, 



00 13 1^1,40 



IFCFK I »-FO)70 1,702,7 02 



701 FP( I )=<FO-FI ( 1 ) )*(CFD/C )*.002204/XF 

 60 TO 703 



702 FP( I )»-<FI ( I )-FO)*<CFU/C)«.002204/XF 



703 CONTINUE 



IFtFP< I ).GT.FMAX)902,901 



902 FMAX«FP(I ) 



901 IF(FP( I ).LT,FMIN>903,12 



903 FMIN=FO( I ) 



12 SF = SF4-FP<I ) 



13 CONTINUE 

 SF-SF/40. 



CALCULATE SUMS OF SQUARES AND PRODUCTS 



150 



