home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1
/
HamRadio.cdr
/
ant
/
antdesgn
/
rotman.bas
< prev
next >
Wrap
BASIC Source File
|
1979-12-31
|
2KB
|
61 lines
10 REM ROTMAN LENS DESIGN
20 REM "ANTENNA ANALYSIS USING PERSONAL COMPUTERS"
30 KEY OFF
40 CLS
50 PI=3.14159
60 COLOR 1,0
70 PRINT "ROTMAN LENS ARRAY FEED DESIGN"
80 COLOR 4,0
90 PRINT
100 INPUT "HOW MANY ARRAY ELEMENTS";NE
110 INPUT "ELEMENT SPACING(F.S. WAVELENGTHS)";D
120 INPUT "DIELECTRIC CONSTANT OF LENS";EPS
130 INPUT "FOCAL LENGTH OF LENS(DIELECTRIC WVL)";F
140 INPUT "MAX. SCAN ANGLE(OR PERFECT FOCUS)(DEGREES)";ALP
150 INPUT "WHAT IS THE FREQUENCY OF OPERATION(MHz)";FMC
160 COLOR 14,0
170 PRINT
180 ALPR=ALP*PI/180
190 A0=COS(ALPR)
200 B0=SIN(ALPR)
210 G=1.137
220 XL0=300/FMC
230 XLD=XL0/SQR(EPS)
240 PRINT "INNER LENS CONTOUR COORDINATES AND CABLE LENGTHS:"
250 PRINT " X(cm) Y(cm) W(DEGREES)"
260 FOR I=1 TO NE
270 ZN=-(NE-1)*D/2+(I-1)*D
280 ETA=ZN/F
290 A=1-ETA^2-((G-1)/(G-A0))^2
300 B=2*G*(G-1)/(G-A0)-(G-1)*B0*B0*ETA^2/(G-A0)^2
310 B=B+2*ETA^2-2*G
320 C=G*B0*B0*ETA^2/(G-A0)-B0^4*ETA^4/(4*(G-A0)^2)
330 C=C-ETA^2
340 DISC=B*B-4*A*C
350 IF DISC<0 THEN PRINT "ERROR IN DATA"
360 IF DISC<0 THEN GOTO 540
370 W=(-B-SQR(DISC))/(2*A)
380 Y=ETA*(1-W)
390 X=(2*W*(1-G)-B0*B0*ETA^2)/(2*(G-A0))
400 X=X*F*XLD*100
410 Y=Y*F*XLD*100
420 W=W*F*360
430 PRINT USING "####.## ####.## ####";X,Y,W
440 NEXT I
450 PRINT
460 G=G*F
470 R=((F*A0-G)^2+F*F*B0*B0)/(2*(G-F*A0))
480 G=G*XLD
490 R=R*XLD
500 CEN=(R-G)*100
510 R=R*100
520 PRINT USING "CENTER OF FOCAL ARC=####.## cm.";CEN
530 PRINT USING "RADIUS OF FOCAL ARC=####.## cm.";R
540 PRINT
550 COLOR 4,0
560 INPUT "CONTINUE(Y,N)"; IP$
570 IF IP$<>"N" THEN GOTO 40
580 COLOR 7,0
590 KEY ON
600 END