(810 PRINT "m,n,k"
815 INPUT m, n, k
820 DIM z(m), p(n), c(m), e(n), f(n)
830 DATA 10,0,0,0,0,0,303.3,303.3,303.3,-303.3
840 FOR i = 1 TO m
850 READ c(i), d(i)
860 NEXT i
870 FOR i = 1 TO n
880 READ e(i), f(i)
890 NEXT i
900 PRINT TAB(2); "w"; TAB(14); "logw"; TAB(24); "a"; TAB(37); "y"; TAB(65); "a-w"
910 PRINT TAB(68); "o"
920 PRINT TAB(49); " "
930 FOR i = 1 TO 29
940 j = i - 3
950 w = 1.5 ^ j
960 a1 = 1: Y1 = 0
970 FOR j = 1 TO m
980 a1 = a1 * SQR(c(j) * c(j) + (w + d(j)) * (w + d(j)))
990 IF c(j) = 0 THEN GOTO 1020
1000 Y1 = Y1 + ATN((w + d(j)) / c(j))
1010 GOTO 1030
1020 Y1 = Y1 + 3.141592 / 2
1030 NEXT j
1040 a2 = 1: Y2 = 0
1050 FOR j = 1 TO n
1060 a2 = a2 * SQR(e(j) * e(j) + (w + f(j)) * (w + f(j)))
1070 IF e(j) = 0 THEN GOTO 1100
1080 Y2 = Y2 + ATN((w + f(j)) / e(j))
1090 GOTO 1110
1100 Y2 = Y2 + 3.141592 / 2
1110 NEXT j
1120 a = k * a1 / a2: y = Y1 - Y2
1130 l2 = 20 * LOG(a) / LOG(10)
1140 l1 = l2 / (20 * LOG(1.5) / LOG(10))
1150 X2 = y / 3.141592 * 180
1160 w1 = LOG(w) / LOG(10)
1170 PRINT w; TAB(14); w1; TAB(23); l2; TAB(36); X2; TAB(68); "1"
1180 PRINT TAB(68); l1
1190 NEXT i
1200 END )大虾帮下忙