0 REM Program for Phased Vertical Antenna Arrays by Carol F. Milazzo, KP4MD
10 I$(1)="Phase":I$(2)="Relative Current":I$(3)="Angle":I$(4)="Distance"
20 CLS:INPUT"No. of elements";N:DIM A(N,4):PI=3.1415926#:PRINT
30 PRINT"Element 1":PRINT"Phase: 0":PRINT"Relative Current: 1":PRINT"Angle: 0":PRINT"Distance: 0":PRINT
40 S=1:FOR I=2 TO N:PRINT "Element";I:FOR J=1 TO 4:PRINT I$(J);:INPUT A
50 A(I,J)=A*3.141593/180:IF J=2 THEN S=S+A:A(I,J)=A
60 NEXT J:PRINT:NEXT I
70 CLS:SCREEN 2:S=99/S:VMAX=0:FOR I=0 TO 2*PI STEP PI/36
80 V=1:FOR J=2 TO N:V=V+A(J,2)*COS(A(J,1)+A(J,4)*COS(I-A(J,3))):NEXT J
90 V=ABS(V):IF V>VMAX THEN VMAX=V
100 X=S*V*SIN(I)+320:Y=99-S*V*COS(I):IF I>0 THEN LINE (X,Y)-(X1,Y1)
110 X1=X:Y1=Y:NEXT I:LOCATE 1,1:PRINT"Max. Gain ";VMAX