home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol2 / basic / clpa.asc < prev    next >
Text File  |  1996-06-30  |  6KB  |  155 lines
  1. 2 ON ERROR GOTO 60000
  2. 3 CLS
  3. 10 PRINT "   ****************************************************************"
  4. 20 PRINT "   *             G3JVL LONG BOOM CIRCULAR LOOP ARRAYS             *"
  5. 30 PRINT "   *  REFERENCE VHF/UHF WORLD, JOE REISERT, HAM RADIO SEPT. 1985  *
  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. 100 DIM SPAC(8),LLEN(2,7),SIZ(3,45),SIZFAC(44)
  13. 110 FOR N=0 TO 8
  14. 120 READ SPAC(N)
  15. 130 NEXT N
  16. 200 FOR N= 0 TO 5
  17. 210 READ LLEN(0,N)
  18. 220 NEXT N
  19. 300 FOR N= 0 TO 6
  20. 310 READ LLEN(1,N)
  21. 320 NEXT N
  22. 400 FOR N= 0 TO 7
  23. 410 READ LLEN(2,N)
  24. 420 NEXT N
  25. 500 DEF FNBOOM(X)=-.732286+.042287*X+2.765712*X*X
  26. 510 DEF FNWID(X)=.9-5*X
  27. 520 DEF FNTIK(X)=-.506+17.7*X
  28. 600 PROFREQ=1296
  29. 700 PRINT "  THIS PROGRAM SCALES G3JVL LOOP ARRAYS TO A SPECIFIC FREQUENCY."
  30. 710 PRINT "   LOOPS ARE MADE OF THIN STRAPS, FORMED INTO A CIRCLE, AND"
  31. 720 PRINT "    FASTENED TO THE BOOM BY A SINGLE SCREW"
  32. 730 PRINT "     TO GIVE A LOW RESISTANCE CONTACT BETWEEN STRAP ENDS."
  33. 740 PRINT "  ANTI-CORROSION TREATMENT OF JOINT IS NECESSARY FOR GOOD LIFE."
  34. 750 PRINT "   STRAP CAN BE ALUMINUM OR COPPER OR SILVER PLATED COPPER."
  35. 760 PRINT "    TO USE THIN MATERIAL, FORM STRAP INTO A SHALLOW VEE"
  36. 770 PRINT "     OVER A CONICAL MANDREL."
  37. 780 PRINT "  FEED LINE PASSES THROUGH BOOM, TO POINT 180 DEG. FROM"
  38. 790 PRINT "   DRIVEN ELEMENT ATTACHMENT TO BOOM."
  39. 800 PRINT "    MATCHING SECTION CAN BE ATTACHED TO BOOM."
  40. 810 PRINT "  DIMENSIONS ARE CRITICAL-   *** CONSTRUCT CAREFULLY ***."
  41. 820 PRINT
  42. 1000 INPUT "ENTER DESIGN FREQUENCY, MHZ";DESFREQ
  43. 1010 IF DESFREQ=<0 THEN 1000
  44. 1020 PRINT 
  45. 1030 SCL=PROFREQ/DESFREQ
  46. 1040 PRINT "  DESIGNS ARE PROVIDED FOR"
  47. 1050 PRINT "# ELEMENTS    BOOM, INCHES  BOOM, FEET   GAIN-DB"
  48. 1060 PRINT   28, FNP(SCL*80.76), FNP(SCL*80.76/12),19!
  49. 1070 PRINT   38, FNP(SCL*(80.76+10*3.56)), FNP(SCL*(80.76+10*3.56)/12),20
  50. 1090 PRINT   45, FNP(SCL*(80.76+17*3.56)), FNP(SCL*(80.76+17*3.56)/12),20.7
  51. 1100 PRINT 
  52. 1110 INPUT "ENTER NUMBER OF ELEMENTS TO USE, 28,38, OR 45";NELE
  53. 1120 IF NELE=28 THEN 1200
  54. 1130 IF NELE=38 THEN 1200
  55. 1140 IF NELE=45 THEN 1200
  56. 1150 PRINT "  DESIGNS ARE PROVIDED ONLY FOR"
  57. 1160 GOTO 1050
  58. 1200 PRINT 
  59. 1210 PRINT " STANDARD DESIGN IS BASED ON A BOOM DIAMETER OF ";FNP(SCL*.5);"INCHES"
  60. 1220 INPUT " ENTER NEW VALUE, OR ENTER ONLY= NO CHANGE";T$
  61. 1230 IF T$="" THEN BOOM=SCL*.5:GOTO 1400
  62. 1240 BOOM=VAL(T$)
  63. 1400 PRINT 
  64. 1410 PRINT " STANDARD DESIGN IS BASED ON A ELEMENT WIDTH OF ";FNP(SCL*.188);"INCHES"
  65. 1420 INPUT " ENTER NEW VALUE, OR ENTER ONLY= NO CHANGE";T$
  66. 1430 IF T$="" THEN WID=SCL*.188:GOTO 1600
  67. 1440 WID=VAL(T$)
  68. 1600 PRINT 
  69. 1610 PRINT " STANDARD DESIGN IS BASED ON A ELEMENT THICKNESS OF ";FNP(SCL*.028);"INCHES"
  70. 1620 INPUT " ENTER NEW VALUE, OR ENTER ONLY= NO CHANGE";T$
  71. 1630 IF T$="" THEN TIK=SCL*.028:GOTO 1700
  72. 1640 TIK=VAL(T$)
  73. 1700 PRINT "  WAIT- PROCESSING"
  74. 1800 IF NELE=28 THEN TYP=0
  75. 1810 IF NELE=38 THEN TYP=1
  76. 1820 IF NELE=45 THEN TYP=2
  77. 1830 FOR N=0 TO NELE-1
  78. 1840 IF N<2 THEN SIZFAC(N)=LLEN(TYP,0):GOTO 1920 'REF
  79. 1850 IF N<3 THEN SIZFAC(N)=LLEN(TYP,1):GOTO 1920  'RAD
  80. 1860 IF N<14 THEN SIZFAC(N)=LLEN(TYP,2):GOTO 1920
  81. 1870 IF N<21 THEN SIZFAC(N)=LLEN(TYP,3):GOTO 1920
  82. 1880 IF N<26 THEN SIZFAC(N)=LLEN(TYP,4):GOTO 1920
  83. 1890 IF N<28 THEN SIZFAC(N)=LLEN(TYP,5):GOTO 1920  
  84. 1900 IF N<38 THEN SIZFAC(N)=LLEN(TYP,6):GOTO 1920
  85. 1910 SIZFAC(N)=LLEN(TYP,7)
  86. 1920 NEXT N  
  87. 2000 CUMP=0
  88. 2010 FOR N=0 TO NELE-2
  89. 2020 IF N>8 THEN PSPC=SCL*SPAC(8):GOTO 2040
  90. 2030 PSPC = SCL * SPAC(N)
  91. 2040 SIZ(0,N)=PSPC
  92. 2050 CUMP=CUMP+PSPC
  93. 2060 SIZ(1,N)=CUMP
  94. 2070 NEXT N
  95. 3000 BOOMCOR=FNBOOM(BOOM/SCL)/100
  96. 3010 WIDCOR=FNWID(WID/SCL)/100
  97. 3020 TIKCOR=FNTIK(TIK/SCL)/100
  98. 3030 TCOR=BOOMCOR+WIDCOR+TIKCOR
  99. 4000 FOR N=0 TO NELE-1
  100. 4010 SIZ(2,N)=(1+TCOR)*SIZFAC(N)*SCL
  101. 4020 SIZ(3,N)=SIZ(2,N)+.5
  102. 4030 NEXT N
  103. 5000 CLS
  104. 5010 PRINT "#   TYPE     LOOP LOA    LOOP DRILL   SPACE NEXT    POSITION"
  105. 5020 FOR N=0 TO NELE-1
  106. 5030 PRINT N+1;"   ";
  107. 5040 IF N<2 THEN PRINT "REF.   ";:GOTO 5070
  108. 5050 IF N=2 THEN PRINT "RAD.   ";:GOTO 5070
  109. 5060 PRINT "DIR.   ";
  110. 5070 PRINT FNP(SIZ(3,N)),FNP(SIZ(2,N)),FNP(SIZ(0,N)),FNP(SIZ(1,N))
  111. 5080 IF N=20 THEN INPUT "PRESS RETURN TO CONTINUE";T$
  112. 5090 IF N=40 THEN INPUT "PRESS RETURN TO CONTINUE";T$
  113. 5100 NEXT N
  114. 5500 INPUT "ENTER 1=PRINT RESULTS, 2=RERUN, 3=DRAWING, 4=QUIT";T$
  115. 5510 IF T$="1" THEN GOSUB 6000
  116. 5520 IF T$="2" THEN 1000
  117. 5530 IF T$="3" THEN GOSUB 8000
  118. 5540 IF T$="4" THEN STOP
  119. 5550 GOTO 5500
  120. 6000 LPRINT " DATA FOR A LONG-BOOM CIRCULAR LOOP ARRAY"
  121. 6010 LPRINT "   FREQUENCY            =";DESFREQ;"MHZ"
  122. 6020 LPRINT "   BOOM DIAMETER        =";FNP(BOOM);"INCHES
  123. 6030 LPRINT "   ELEMENT STRAP WIDTH  =";FNP(WID);"INCHES"
  124. 6040 LPRINT "       STRAP THICKNESS  =";FNP(TIK);"INCHES":LPRINT
  125. 6050 LPRINT "#   ";"TYPE    ";"LOOP LOA","LOOP DRILL","SPACE NEXT","POSITION"
  126. 6060 FOR N=0 TO NELE-1
  127. 6070 LPRINT N+1;"   ";
  128. 6080 IF N<2 THEN LPRINT "REF.   ";:GOTO 6110
  129. 6090 IF N=2 THEN LPRINT "RAD.   ";:GOTO 6110
  130. 6100 LPRINT "DIR.   ";
  131. 6110 LPRINT FNP(SIZ(3,N)),FNP(SIZ(2,N)),FNP(SIZ(0,N)),FNP(SIZ(1,N))
  132. 6120 NEXT N
  133. 6130 RETURN
  134. 8000 CLS
  135. 8010 PRINT "       DETAIL OF A LOOP STRAP BEFORE FORMING INTO A CIRCLE"
  136. 8020 PRINT 
  137. 8030 PRINT "    SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS"
  138. 8040 PRINT "    S                                                       S"
  139. 8050 PRINT "    S O                                                   O S"
  140. 8060 PRINT "    S                                                       S"
  141. 8070 PRINT "    SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS"
  142. 8080 PRINT 
  143. 8100 PRINT "      <-------------   LOOP DRILL DISTANCE  -------------->"
  144. 8110 PRINT "    <---------------   LOOP LENGTH OVERALL  ---------------->"
  145. 8120 PRINT 
  146. 8130 PRINT 
  147. 8140 INPUT "PRESS RETURN TO CONTINUE";T$
  148. 8990 RETURN
  149. 50000 DATA 3.1,.95,1.12,.83,1.78,1.78,1.25,2.31,3.56
  150. 50010 DATA 9.67,9.23,8.25,8,8,8
  151. 50020 DATA 9.67,9.23,8.25,8,7.7,7.7,7.7
  152. 50030 DATA 9.67,9.23,8.25,8,7.75,7.65,7.65,7.5
  153. 60000 PRINT "ERROR";ERR;"AT LINE";ERL
  154. 60010 STOP 
  155.