home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol2 / basic / stda.asc < prev    next >
Text File  |  1996-06-30  |  6KB  |  123 lines
  1. 2 ON ERROR GOTO 60000
  2. 3 CLS
  3. 10 PRINT "   ***************************************************************"
  4. 20 PRINT "   *                STANDARD GAIN REFERENCE ANTENNA              *"
  5. 30 PRINT "   *               REFERENCE- ARRL  ANTENNA HANDBOOK             *
  6. 40 PRINT "   *                PROGRAM BY  R.P. HAVILAND, W4MB              *"
  7. 50 PRINT "   *                       COPYRGHT 1990                         *"
  8. 60 PRINT "   *          MINILAB BOOKS, DAYTONA BEACH, FL 32121-1086        *"
  9. 70 PRINT "   ***************************************************************"
  10. 80 DEF FNP(X)=INT(1000*X+.5)/1000
  11. 90 PI=3.141592
  12. 200 PRINT " THIS PROGRAM GIVES DESIGN DATA FOR A 'STANDARD' OR 'REFERENCE' ANTENNA"
  13. 210 PRINT "  FOR USE  IN COMPARATIVE ANTENNA MEASUREMENTS."
  14. 220 PRINT "   CAREFULLY CONSTRUCTED, THE GAIN WILL BE 7.7 +/- 0.25 DB ABOVE A DIPOLE."
  15. 230 PRINT " THE DESIGN IS NOT PRACTICAL BELOW ABOUT 140 MHZ"
  16. 240 PRINT "  AND IS TROUBLESOME TO HANDLE BELOW 400 MHZ. THE PRECISION"
  17. 250 PRINT "   REQUIRED LIMITS THE UPPER FREQUENCY TO 1500-2000 MHZ."
  18. 260 PRINT "     FOR HIGHER FREQUENCIES USE A PRECISION HORN ANTENNA."
  19. 270 INPUT " SEE SCHEMATIC OF ANTENNA, Y/N";T$
  20. 290 IF T$="Y" THEN GOSUB 5000
  21. 400 PRINT 
  22. 410 INPUT " ENTER DESIGN FREQUENCY, MHZ";FO
  23. 420 LAMDA=299.8/FO
  24. 430 LAMIN=LAMDA*39.37
  25. 440 CLS
  26. 450 PRINT " WAVELENGTH=";FNP(LAMDA);"METERS"
  27. 460 PRINT "           =";FNP(LAMIN);"INCHES"
  28. 600 PRINT 
  29. 610 PRINT " THE ANTENNA IS CONSTRUCTED ON A SQUARE REFLECTING SCREEN"
  30. 620 PRINT "        ";FNP(LAMDA);"METERS ON A SIDE"
  31. 630 PRINT "      OR";FNP(LAMIN);"INCHES SQUARE"
  32. 640 PRINT 
  33. 650 PRINT " ABOVE ABOUT 400 MHZ, PRINTED CIRCUIT BOARD IS GOOD"
  34. 660 PRINT "  FOR LOWER FREQUENCIES, COPPER SCREEN ON PLYWOOD IS SATISFACTORY"
  35. 800 PRINT 
  36. 810 PRINT " AT EXACT CENTER OF SQUARE, INSTALL FEED TUBE,"
  37. 820 PRINT "  OF 7/8 COPPER TUBING, SPLIT INTO TWO HALVES,
  38. 830 PRINT "   WITH SLOT PARALLEL TO TRANSMISSION LINE IN SCHEMATIC.
  39. 840 PRINT "    BOND TO GROUND PLANE." 
  40. 850 PRINT " LENGTH OF FEED TUBE=";FNP(LAMDA/4-.003969);"METERS"
  41. 860 PRINT "                    =";FNP(LAMIN/4-.15625);"INCHES"
  42. 870 INPUT " PRESS RETURN TO CONTINUE";T$
  43. 1000 CLS:PRINT 
  44. 1010 PRINT " TWO=WIRE TRANSMISSION LINE IS CONSTRUCTED OF 5/16 COPPER TUBING"
  45. 1020 PRINT "  BENT INTO TWO U's, WITH,"
  46. 1030 PRINT "    BOTTOM OF U=";FNP(LAMDA/2);"METERS"
  47. 1040 PRINT "        (C-C)  =";FNP(LAMIN/2);"INCHES"
  48. 1050 PRINT "      AND SIDES=";FNP(LAMDA/4);"METERS"
  49. 1060 PRINT "    (END TO C) =";FNP(LAMIN/4);"INCHES"
  50. 1100 PRINT " BOND EXACT CENTER  OF U AT TO FEED TUBE HALVES,"
  51. 1110 PRINT "  WITH LINE SEPARATION 11/16 INCHES CENTER-CENTER."
  52. 1120 PRINT "   BOND ENDS OF U's TO GROUND PLANE, MAINTAINING SPACING."
  53. 1130 PRINT " DIPOLES ARE 1/2 WAVELENGTH LONG, END-TO-END"
  54. 1200 PRINT "         LENGTH OA=";FNP(LAMDA/2);"METERS"
  55. 1210 PRINT "                  =";FNP(LAMIN)/2;"INCHES"
  56. 1220 PRINT " AND ARE OF 3/8 INCH DIAMETER COPPER TUBING"
  57. 1230 PRINT "  CUT TO LENGTH=";FNP(LAMDA/4-.0127);"METERS
  58. 1240 PRINT "               =";FNP(LAMIN/4-.5);"INCHES"
  59. 1250 PRINT " BOND TO TRANSMISSION LINE AT BENDS."
  60. 1260 INPUT "  PRESS RETURN TO CONTINUE";T$
  61. 1400 CLS: PRINT 
  62. 1410 PRINT " AN ADJUSTABLE ASSEMBLY JIG SIMPLIFIES MAINTAINING ACCURACY"
  63. 1420 PRINT "  HARD SOLDER OF ANTENNA/LINE ELEMENTS IS SUGGESTED"
  64. 1500 PRINT 
  65. 1510 PRINT " FEED LINE IS RG-8A/U OR RG-213/U, WITH JACKET REMAINING ON"
  66. 1520 PRINT "  FED THROUGH CENTER FEED TUBE"
  67. 1530 PRINT "   MATCH TO FEED LINE WITH 1.0 SWR, AS CLOSE AS POSSIBLE."
  68. 1540 PRINT "    PLACE MATCHING ELEMENTS ON BACK OF GROUMD PLANE"
  69. 1550 PRINT "     FOR A SELF-CONTAINED ASSEMBLY."
  70. 2000 PRINT 
  71. 2010 INPUT "ENTER P=PRINT DIMENSIONS, R=RERUN, Q=QUIT";T$
  72. 2020 IF T$="R" THEN 270
  73. 2030 IF T$="Q" THEN STOP
  74. 2040 IF T$<>"P" THEN 2000
  75. 3000 LPRINT " STANDARD ANTENNA, GAIN= 7.7+/-.25 DB, AT";FO;"MHZ"
  76. 3010 LPRINT "   WAVELENGTH=";FNP(LAMDA);"METERS"
  77. 3020 LPRINT "             =";FNP(LAMIN);"INCHES"
  78. 3030 LPRINT " THE ANTENNA IS CONSTRUCTED ON A SQUARE REFLECTING SCREEN"
  79. 3040 LPRINT "     ";FNP(LAMDA);"METERS ON A SIDE"
  80. 3050 LPRINT "   OR";FNP(LAMIN);"INCHES SQUARE"
  81. 3060 LPRINT " AT EXACT CENTER OF SQUARE, INSTALL FEED TUBE,"
  82. 3070 LPRINT "  OF 7/8 COPPER TUBING, SPLIT INTO TWO HALVES,
  83. 3080 LPRINT " LENGTH OF FEED TUBE=";FNP(LAMDA/4);"METERS"
  84. 3090 LPRINT "                    =";FNP(LAMIN/4);"INCHES"
  85. 3100 LPRINT " TWO=WIRE TRANSMISSION LINE IS CONSTRUCTED OF 5/16 COPPER TUBING
  86. 3110 LPRINT "    BOTTOM OF U=";FNP(LAMDA/2);"METERS"
  87. 3120 LPRINT "               =";FNP(LAMIN/2);"INCHES"
  88. 3130 LPRINT "      AND SIDES=";FNP(LAMDA/4);"METERS"
  89. 3140 LPRINT "               =";FNP(LAMIN/4);"INCHES"
  90. 3150 LPRINT " DIPOLES ARE 1/2 WAVELENGTH LONG, END-END"
  91. 3160 LPRINT "         LENGTH OA=";FNP(LAMDA/2);"METERS"
  92. 3170 LPRINT "                  =";FNP(LAMIN)/2;"INCHES"
  93. 3180 LPRINT " AND ARE OF 3/8 INCH DIAMETER COPPER TUBING"
  94. 3190 LPRINT "  CUT TO LENGTH=";FNP(LAMDA/4-.0127);"METERS
  95. 3200 LPRINT "               =";FNP(LAMIN/4-.5);"INCHES"
  96. 3210 LPRINT " BOND TO TRANSMISSION LINE AT BENDS."
  97. 3500 GOTO 2000
  98. 5000 CLS:PRINT :PRINT 
  99. 5010 PRINT "             GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG"
  100. 5020 PRINT "             G                               G"
  101. 5030 PRINT "             G      DDDDDDDDS SDDDDDDDD      G"
  102. 5040 PRINT "             G              T T              G"
  103. 5050 PRINT "             G              T T              G"
  104. 5060 PRINT "             G              T T              G"
  105. 5070 PRINT "             G              F F              G"
  106. 5080 PRINT "             G              T T              G"
  107. 5090 PRINT "             G              T T              G"
  108. 5100 PRINT "             G              T T              G"
  109. 5110 PRINT "             G      DDDDDDDDS SDDDDDDDD      G"
  110. 5120 PRINT "             G                               G"
  111. 5130 PRINT "             GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG"
  112. 5200 PRINT 
  113. 5210 PRINT "  WHERE- G=   GROUND PLANE, 1/4 WAVELENGTH BEHIND ANTENNA ASSEMBLY"
  114. 5230 PRINT "         D-D= HALF-WAVE DIPOLE"
  115. 5240 PRINT "         TT=  2-WIRE TRANSMISSION LINE, 1/2 WAVELENGTH LONG"
  116. 5250 PRINT "         SS=  1/4 WAVE 2-WIRE STUB SUPPORT POINTS"
  117. 5260 PRINT "         FF=  COAX/BALUN FEED POINTS"
  118. 5300 PRINT 
  119. 5310 INPUT "PRESS RETURN TO CONTINUE";T$
  120. 5320 RETURN
  121. 60000 PRINT "ERROR";ERR;"AT LINE";ERL
  122. 60010 STOP
  123.