124 FOR K: 1 TO Kl 



13P1 LET Tl:f5 



135 LET A0=(F[ n*C0S(Tl))*.5 



141^ LET B0: (Fti ]*SIN(T1))*.5 



150 FOR N:2 TO Dl 



160 LET X= ((2*3. I41S)*(N-1)*H/T)*K 



165 LET A0:A0+FtN]*COS(X) 



17(3 LET B0:B0+F[N]*SIN(X) 



180 NEXT N 



19i;) LET T9:(2*3. 1416)*D1*H/T*K 



195 LET A0= A0+(F[Dl + n*COS(T9))*.5 



200 LET B0=B0+(F(Dl + n*SIN(T9))*.5 



205 LET A[K]=2/D1*A0 



210 LET B[K]:2/D1*B0 



230 FOR M=l TO E 



240 LET T5:(3. 1416*2)*((M-1)*H/T)*K 



250 LET C[M,K ]: A+A[K]*C0S(T5) + B[K]*SU;(T5) 



260 NEXT M 



262 LET Z[K]:SQR(A(K]*A[K]4-B[K]*B[K]) 



263 PRINT "STATION NUfTBER: ", Nl 



264 PRINT "H: ", H, "SECONDS'" 



265 LET Z[K1=Z[K]/C1 



266 PRINT " MAXIMUM AMPLITUDE :",Z[K1,"FT. FOR K -" ,K 



267 LET E[K,N1 ]rZtKl 

 270 NEXT K 



280 PRINT 



281 PRINT 

 290 RETURN 



380 REM SUBPROGRAM TO SEEK MAXIMUM AND MINIMUM LOCATIONS 



381 REM AND CALCULATES REFLECTION COEFFICIENTS AND INCIDENT 



383 REM WAVE HEIGHTS. CAN ONLY BE USED IF ATTENUATOR IS LEFT 



384 REM AT ONE SETTING THROUGHOUT THE EXPERIMENT. 

 390 FOR Kr 1 TO Kl 



395 LET Nl:l 



400 LET A5r EtK, Nl ] 



410 LET NUNl+I 



420 IF N1>S THEN 599 



430 IF E[K,N1 ] >- A5 THEN 400 



440 LET A6:A5 



445 LET A5:EtK,Nl ] 



450 LET NUNl+l 



455 IF N1>S THEN 600 



460 IF E(K,N1 ] <= A5 THEN 445 



465 LET R[l ]: (A6-A5)/(A6+A5) 



470 LET A7=A5 



480 LET A5:E[K,N1 ] 



490 LET NUNl + 1 



495 IF N1>S THEN 614 



500 IF E[K,N1] >: A5 THEN 480 



505 LET R[2]: (A5-A7)/(A5+A7) 



510 LET A8=A5 



36 



