520 LET A5:EtK,Nl ] 



530 LET NUNl + l 



535 IF N1>S THEN 620 



540 IF E[K,N1 ] <- A5 THEN 520 



545 LET R[5]r (A8-A5)/(A8+A5) 



550 LET A9rA5 



560 LET A5=E[K,N1 ) 



570 LET N1=N1 + 1 



580 IF N1>S THEN 595 



590 IF E[K,N1] >= A5 THEN 560 



595 LET R[4]:(A5-A9)/(A5+A9) 



596 GOTO 640 



599 LET A6=0 



600 LET A7r0 



602 LET R[l ]r0 



603 LET R[2]:0 

 605 LET A8:0 

 608 LET R[3]:0 

 610 LET A9r0 

 61 1 LET R[4]r0 



612 GOTO 640 



613 LET R[2]r0 



614 LET A9-0 



615 LET R[3 ]= 



616 LET A8=0 



617 LET R[4]:0 



618 GOTO 640 



620 LET A9=0 



621 LET R[3] = 3 



622 LET R[4 ]r0 

 630 LE-T RC4]r0 



640 LET R=(Rtl l+H[2]+Rt3] + R[4])/4 



65 LET H5: (A5+A6+A8)/3+(A7+A9)/2 



660 PRINT " REFLECTION COEFFICIENT:" 



661 PRINT A6 



662 PRINT " ",R[1 ] 



663 PRINT A7 



664 PRINT " ",R[2] 



665 PRINT A8 



666 PRINT " ",R[3] 



667 PRINT A9 



668 PRINT " ",R[4] 



669 PRINT A5 



670 PRINT 



675 PRINT " P-'\R 



677 PRINT 



680 PRINT " INCni-:NT WAVE HEIGHT^" , H5 , " FT. 



685 PRINT 



690 PRINT 



700 NEXT K 



702 RETURN 



137 



