home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / ant / beamdraw / beamdraw.bas
BASIC Source File  |  1986-08-12  |  3KB  |  107 lines
  1. 5 REM ***** BEAM.BAS - HAM RADIO ANTENNA DESIGN FOR 3 ELEMENT YAGI *****
  2. 10 CLS
  3. 20 SCREEN 2
  4. 30 LOCATE 1,20:PRINT"YAGI BEAM ANTENNA DESIGN"
  5. 40  PRINT
  6. 60 LOCATE 5,10:PRINT"Enter the desired optimum frequency -Mhz- ";:INPUT F$:IF F$="" THEN 60
  7. 65 F=VAL(F$):IF F =< 0 THEN GOTO 60
  8. 70 MT = 304.8/F:MT = INT(MT)
  9. 80  IF F<109 GOTO 110
  10. 90  V = 234
  11. 100  GOTO 120
  12. 110  V = 126 + F
  13. 120  S = V/F
  14. 130  S = INT(S*100+.5)/100
  15. 140  L = 2*S
  16. 150  R = 500/F
  17. 160  R = INT(R*100+.5)/100
  18. 170  D = 475/F
  19. 180  D = INT(D*100+.5)/100
  20. 190  H = 455/F
  21. 200  H = INT(H*100+.5)/100
  22. 210  K = L*30.48
  23. 220  M = S*30.48
  24. 230  O = R*30.48
  25. 240  P = D*30.48
  26. 250  Q = H*30.48
  27. 270  PRINT
  28. 280  PRINT "DIMENSIONS OF THE 3 ELEMENT WIDE-SPACED YAGI ARE:"
  29. 290  PRINT
  30. 295 Z = (240 - (Q/8))
  31. 300 PRINT "OVERALL BOOM LENGTH IS ";L;"FEET, OR ";K;"CM., AND"
  32. 310  PRINT "SPACING BETWEEN ELEMENTS IS";S;"FEET, OR";M;"CM."
  33. 320  PRINT
  34. 330  PRINT "THE FEED POINT IMPEDANCE AT";F;" MHZ WILL BE ";
  35. 340  PRINT "ABOUT 35 OHMS,"
  36. 350  PRINT "THE GAIN ABOUT 7.5 DB AND THE F/B RATIO UP TO 30."
  37. 360  PRINT
  38. 370  PRINT "REFLECTOR";TAB(27);"DRIVEN";TAB(53);"DIRECTOR"
  39. 380  PRINT TAB(2);"FEET";TAB(28);"FEET";TAB(55);"FEET"
  40. 390  PRINT TAB(2);"(CM)";TAB(28);"(CM)";TAB(55);"(CM)"
  41. 400  PRINT
  42. 410  PRINT R;TAB(26);D;TAB(52);H
  43. 420  PRINT O;TAB(26);P;TAB(52);Q
  44. 430 LOCATE 23,20:PRINT"PRESS ENTER TO DRAW ANTENNA "
  45. 440 IF INKEY$="" THEN 440
  46. 450  REM * * GRAPHICS SECTION * *
  47. 460  CLS
  48. 470 FOR Y = 30 TO 150
  49. 480 PSET(236,Y)
  50. 485 PSET(243,Y)
  51. 490  NEXT Y
  52. 500 FOR X = 130 TO 340
  53. 510 PSET(X,30)
  54. 515 NEXT X
  55. 520 FOR X = 120 TO 360
  56. 550 PSET(X,90)
  57. 552 NEXT X
  58. 555 FOR X = 100 TO 380
  59. 580 PSET(X,150)
  60. 590  NEXT X
  61. 600  REM - - DIMENSIONS - -
  62. 610 LOCATE 1,20:PRINT" 3 ELEMENT BEAM ANTENNA"
  63. 620  FOR N = 1 TO 2000
  64. 630  NEXT N
  65. 640 LOCATE 3,20:PRINT"DIRECTOR =";H;"FT.";
  66. 650 LOCATE 21,20:PRINT"CENTER FREQUENCY =";F;"Mhz"'
  67. 655 LOCATE 22,20:PRINT"IN THE ";MT;" METER BAND"
  68. 660 LOCATE 11,20:PRINT"DRIVEN ELEMENT =";D;"FT."
  69. 680 LOCATE 18,20:PRINT"REFLECTOR =";R;"FT."
  70. 720 X = 400
  71. 730 Y = 31
  72. 740  GOSUB 920
  73. 750 FOR Y = 30 TO 152
  74. 760 PSET(X+1,Y)
  75. 765 NEXT Y
  76. 767 FOR Y = 89 TO 152
  77. 780 PSET(X+11,Y)
  78. 790  NEXT Y
  79. 800 Y = 150
  80. 810  GOSUB 980
  81. 820 X = X + 10
  82. 830  GOSUB 980
  83. 840 Y = 90
  84. 850  GOSUB 920
  85. 860 LOCATE 17,53:PRINT S;"ft.";
  86. 870 LOCATE 7,54:PRINT L;"ft.";
  87. 890 LOCATE 23,25:PRINT"ANOTHER (Y/n) ";:E$=INKEY$
  88. 900 IF E$="Y" OR E$="y" THEN GOTO 10
  89. 901 IF E$="" THEN 890
  90. 910 GOTO 1040
  91. 920  REM ----UP ARROW----
  92. 930 PSET(X,Y)
  93. 940 PSET(X+2,Y)
  94. 950 PSET(X-1,Y+1)
  95. 960 PSET(X+3,Y+1)
  96. 970  RETURN
  97. 980  REM ---- DOWN ARROW ----
  98. 990 PSET(X-1,Y)
  99. 1000 PSET(X+3,Y)
  100. 1010 PSET(X,Y+1)
  101. 1020 PSET(X+2,Y+1)
  102. 1030  RETURN
  103. 1040  END
  104. 10000 SAVE"B:BEAM.BAS",A
  105. DIMENSIONS OF THE 3 ELEMENT WIDE-SPACED YAGI ARE:"
  106. 290  PRINT
  107. 295 Z = (240 - (Q/8