home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Antennas
/
Antennas_CD-ROM_Walnut_Creek_September_1996.iso
/
w4mb
/
vol1
/
basic
/
helix.asc
< prev
next >
Wrap
Text File
|
1996-06-30
|
2KB
|
52 lines
100 CLS : PRINT " ***********************************"
110 PRINT " * HELICAL ANTENNAS *"
120 PRINT " * REFERENCE-KRAUS, ANTENNAS *"
130 PRINT " * KRAUS, ANT & PROP, V37,N2 *"
140 PRINT " * PROGRAM COPYRIGHT 1985 *"
150 PRINT " * R.P. HAVILAND, W4MB *"
160 PRINT " ***********************************"
170 REM PROGRAM 15
180 DEF FNA (X) = INT(10 * X + .05) / 10
190 DEF FNB (X) = INT(100 * X + .005) / 100: PI = 3.14159
200 INPUT "ENTER LOWEST FREQUENCY TO BE USED,MHZ "; FL
210 FO = FL / .73
220 FH = FO * 1.22
230 PRINT "THE DESIGN REQUENCY IS "; FNA(FO); " MHZ"
240 PRINT " THE RANGE IS "; FL; " TO "; FNA(FH); " MHZ": PRINT
250 INPUT "ENTER DESIRED MID-RANGE GAIN, DB"; GA
260 LA = 984 / FO
270 LW = 10 ^ (GA / 10) / 15
280 PRINT : PRINT "THE HELIX LENGTH IS "; FNA(LW); "WAVELENGTHS"
290 LH = LW * LA
300 PRINT " OR "; FNB(LH); "FEET"
310 DI = LA / PI
320 SP = LA * SIN(PI * 14 / 180)
330 NT = LH / SP
340 PRINT : PRINT "THE DIAMETER IS "; FNB(DI); "FEET="; FNA(12 * DI); "INCHES"
350 PRINT : PRINT "THE NUMBER OF TURNS IS"; FNA(NT)
370 PRINT : PRINT "TURN SPACING= "; FNB(12 * SP); " INCHES"
380 PRINT : PRINT "ALLOWED CONDUCTOR DIAMETER RANGE IS"; FNA(12 * .006 * LA); "TO"; FNA(12 * .05 * LA);
390 PRINT " INCHES"
400 IF P$ <> "P" THEN PRINT : PRINT "PRESS A KEY FOR MORE"
410 Q$ = INKEY$: IF Q$ = "" GOTO 410
420 PRINT "THE MINIMUM GROUND PLANE DIAMETER IS "; FNA(LA / 2); " FEET"
430 PRINT "THE SPACING, GROUND PLANE TO START OF HELIX IS"; FNA(6 * SP); " INCH"
440 PRINT "WITH THE FEED AT THE INTERSECTION OF HELIX AXIS AND GROUND PLANE";
450 PRINT "AND A SMOOTH TRANSITION CURVE FROM FEED TO HELIX."
452 PRINT " THE GROUND PLANE MAY BE REPLACED WITH A 1 WAVELENGTH LOOP,"
454 PRINT " WITH A SECOND LOOP .33 TO .5 WAVELENGTHS TO THE REAR."
456 PRINT " ALL WITH RESPECT TO THE DESIGN FREQUENCY."
460 PRINT "THE FEED RESISTANCE IS 140 +/- 35 OHMS,";
470 PRINT "REACTANCE +/- 25 OHMS APPR"
500 BW = 52 / SQR(LW)
510 PRINT : PRINT "THE BEAM-WIDTH IS"
520 PRINT " LOW FREQUENCY "; FNA(.73 * 52 / SQR(LW)); " DEGREES"
530 PRINT " MID FREQUVENCY "; FNA(52 / SQR(LW)); " DEGREES"
540 PRINT " TOP FREQUENCY "; FNA(1.22 * 52 / SQR(LW)); " DEGREES"
550 PRINT : PRINT "POLARIZATION IS NEARLY CIRCULAR"
600 PRINT : PRINT "PRESS R TO RERUN, ANY OTHER KEY FOR MENU"
610 Q$ = INKEY$: IF Q$ = "" THEN 610
620 IF Q$ = "R" OR Q$ = "r" THEN RUN
660 END