home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol1 / basic / lgloops.asc < prev    next >
Text File  |  1996-06-30  |  6KB  |  134 lines
  1. 100 CLS : PRINT "   ***********************************"
  2. 110 PRINT "   *       LARGE CIRCULAR LOOPS      *"
  3. 120 PRINT "   *     REFERENCE-KING/HARRISON     *"
  4. 130 PRINT "   *      SANDIA REPORT SCR-674      *"
  5. 140 PRINT "   *      PROGRAM COPYRIGHT 1985     *"
  6. 150 PRINT "   *       R.P. HAVILAND, W4MB       *"
  7. 160 PRINT "   ***********************************"
  8. 165 REM PROGRAM 13
  9. 170 DEF FNP (X) = INT(100 * X + .5) / 100: PI = 3.14159
  10. 180 PRINT "USE THIS PROGRAM FOR SHAPES NEARLY OR EXACTLY CIRCULAR"
  11. 190 PRINT : PRINT "  WAIT-READING TABLES"
  12. 200 DIM A(30, 12), Y(1, 12)
  13. 210 REM A(M,N),M=CIRCUMFERENCE: N=SIZE, THEN CONDUCTANCE, SUSCEPTANCE
  14. 220 FOR N = 0 TO 12
  15. 230 FOR M = 0 TO 30
  16. 240 READ A(M, N)
  17. 250 NEXT M
  18. 260 NEXT N
  19. 270 FOR K = 1 TO 12 STEP 2
  20. 280 READ Y(0, K): Y(0, K + 1) = Y(0, K)
  21. 290 NEXT K
  22. 300 PRINT : INPUT "ENTER FREQUENCY, MHZ "; FO
  23. 310 INPUT "ENTER LOOP CIRCUMFERENCE, FEET "; CI
  24. 320 INPUT "ENTER CONDUCTOR DIAMETER, INCHES "; DC
  25. 330 PRINT : PRINT " WAIT-INTERPOLATING"
  26. 340 LA = 984 / FO
  27. 350 BF = CI / LA
  28. 360 OM = 2 * LOG(48 * PI * CI / DC)
  29. 370 IN = INT(20 * (BF - .5) + .5)
  30. 380 IF IN < 3 THEN IN = 3: PRINT "DIAMETER "; : GOSUB 6000
  31. 390 IF IN > 27 THEN IN = 27: PRINT "DIAMETER "; : GOSUB 6000
  32. 400 PRINT "  INTERPOLATE FOR CIRCUMFERENCE"
  33. 410 FOR K = 1 TO 12
  34. 420 S = 0
  35. 430 FOR J = IN - 3 TO IN + 3
  36. 440 T = 1
  37. 450 FOR I = IN - 3 TO IN + 3
  38. 460 IF I = J THEN 480
  39. 470 T = T * (BF - A(I, 0)) / (A(J, 0) - A(I, 0))
  40. 480 NEXT I
  41. 490 S = S + T * A(J, K)
  42. 500 NEXT J
  43. 510 Y(1, K) = S
  44. 520 NEXT K
  45. 600 PRINT "  INTERPOLATE FOR WIRE SIZE"
  46. 610 IF OM > 22 THEN PRINT "WIRE SIZE"; : GOSUB 6000
  47. 620 FOR K = 0 TO 1
  48. 630 S = 0
  49. 640 FOR J = K + 1 TO K + 11 STEP 2
  50. 650 T = 1
  51. 660 FOR I = K + 1 TO K + 11 STEP 2
  52. 670 IF I = J THEN 690
  53. 680 T = T * (OM - Y(0, I)) / (Y(0, J) - Y(0, I))
  54. 690 NEXT I
  55. 700 S = S + T * Y(1, J)
  56. 710 NEXT J
  57. 720 IF K = 0 THEN G = S
  58. 730 IF K = 1 THEN B = S
  59. 740 NEXT K
  60. 800 Y = SQR(G * G + B * B) / 10000
  61. 810 IF G = 0 THEN TH = 0: GOTO 830
  62. 820 TH = ATN(B / G)
  63. 830 Z = 1000 / Y
  64. 840 R = Z * COS(-TH)
  65. 850 X = Z * SIN(-TH)
  66. 860 GA = -2.285 + 2.843 * BF + 7.095 * BF * BF - 4.031 * BF * BF * BF
  67. 900 PRINT : PRINT "THE RADIATION RESISTANCE="; FNP(R); " OHMS"
  68. 910 PRINT "THE REACTANCE="; FNP(X)
  69. 920 PRINT "THE GAIN="; FNP(GA); " (+/- 0.2) DBI"
  70. 930 PRINT "THE SIZE="; FNP(BF); " WAVELENGTH"
  71. 940 PRINT " WITH OMEGA="; FNP(OM)
  72. 1000 PRINT : PRINT " PRESS 1 FOR ANOTHER WIRE SIZE"
  73. 1010 PRINT "       2 FOR ANOTHER CIRCUMFERENCE"
  74. 1020 PRINT "       3 FOR ANOTHER FREQUENCY"
  75. 1030 PRINT "       4 TO STOP"
  76. 1040 C$ = INKEY$: IF C$ = "" THEN 1040
  77. 1050 IF C$ = "1" THEN PRINT : INPUT " WIRE DIAMETER"; DC: OM = 2 * LOG(48 * PI * CI / DC): GOTO 600
  78. 1060 IF C$ = "2" THEN 310
  79. 1070 IF C$ = "3" THEN 300
  80. 1080 IF C$ = "4" THEN STOP
  81. 1090 GOTO 330
  82. 5230 DATA .5,.55,.6,.65,.7,.75,.8,.85,.9,.95,1.0
  83. 5240 DATA 1.05,1.1,1.15,1.2,1.25,1.3,1.35,1.4,1.45,1.5
  84. 5250 DATA 1.55,1.6,1.65,1.7,1.75,1.8,1.85,1.9,1.95,2.0
  85. 5260 REM OMEGA=10
  86. 5270 DATA 801,1174,1728,2561,3837,5830,9009,14151,22513,35409,52227
  87. 5280 DATA 66359,68730,60398,49127,39355,31945,26537,22627,19826,17878
  88. 5290 DATA 16637,16039,16093,16877,18540,213006,25444,31165,38359,46171
  89. 5300 DATA 3730,8006,12351,16908,21816,27214,33195,39671,45965,49903,46875
  90. 5310 DATA 32896,13221,-1400,-7848,-8825,-7081,-4132,-671,3014,6819
  91. 5320 DATA 10722,14734,18871,23137,27491,31797,35744,38733,39815,37906
  92. 5330 REM OMEGA=11
  93. 5340 DATA 606,890,1314,1958,2957,4550,7169,11622,19374,32622,51932
  94. 5350 DATA 68232,67120,53779,40411,30663,24031,19519,16408,14256,12804
  95. 5360 DATA 11914,11531,11669,12412,13928,16496,20527,26507,34702,44330
  96. 5370 DATA 2483,6135,9867,13813,18124,22968,28502,34865,41612,46662,43834
  97. 5380 DATA 25879,1681,-12319,-15838,-14429,-11269,-7638,-3945,-298,3306
  98. 5390 DATA 6913,10581,14370,18330,22484,26778,30985,34504,36083,33816
  99. 5400 REM OMEGA=12
  100. 5410 DATA 474,598,1033,1544,2347,3646,5833,9693,16821,30140,51747
  101. 5420 DATA 69797,63872,46500,32716,23889,18314,14688,12260,10616,9530
  102. 5430 DATA 8886,8642,8814,9487,10832,13152,16944,22933,31836,43153
  103. 5440 DATA 1742,4934,8207,11692,15533,19931,25099,31257,38294,44372,41923
  104. 5450 DATA 19691,-7830,-19270,-19702,-16551,-12655,-8811,-5180,-1741,1578
  105. 5460 DATA 4858,8179,11624,15270,19184,23383,27739,31723,33899,31453
  106. 5470 REM OMEGA=15
  107. 5480 DATA 262,386,574,865,1330,2105,3471,6069,11506,24073,51475
  108. 5490 DATA 71521,48807,28139,17662,12225,9134,7239,6016,5214,4702
  109. 5500 DATA 4422,5354,4520,4988,5901,5740,10470,15822,25642,41394
  110. 5510 DATA 751,3076,5477,8065,10977,14408,18645,24125,31369,39786,39093
  111. 5520 DATA 2902,-25090,-25757,-20714,-15815,-11718,-8280,-5295,-2590,-66
  112. 5530 DATA 2409,4918,7555,10428,13663,17408,21790,26677,30700,28425
  113. 5540 REM OMEGA=17
  114. 5550 DATA 177,262,391,591,913,1459,2444,4389,8742,20206,51373
  115. 5560 DATA 69020,36382,18759,11348,7756,5773,4575,3810,3313,3002
  116. 5570 DATA 2640,2817,2953,3301,3976,5216,7542,12167,21930,40749
  117. 5580 DATA 435,2333,4302,6436,8359,11755,15418,20347,27367,36945,38032
  118. 5590 DATA -9520,-29701,-24507,-18366,-13653,-10030,-7108,-4625,-2407,-334
  119. 5600 DATA 1691,3752,5939,8357,11146,14501,18676,23958,29156,27502
  120. 5610 REM OMEGA=20
  121. 5620 DATA 128,190,283,429,666,1070,1812,3315,6846,17135,51313
  122. 5630 DATA 63542,26837,13056,7783,5302,3949,3135,2618,2285,2078
  123. 5640 DATA 1975,1970,2079,2345,2859,3820,5685,9635,18979,40386
  124. 5650 DATA 272,1877,3546,5362,7437,9941,13157,17603,24269,34487,37410
  125. 5660 DATA -19606,-29849,-22037,-15977,-11739,-8597,-6105,-4004,-2136,-391
  126. 5670 DATA 1315,3059,4921,7002,9443,12453,16361,21591,27845,27033
  127. 5680 REM VALUES OF OMEGA
  128. 5690 DATA 10,11,12,15,17,20
  129. 6000 PRINT " WARNING--OUTSIDE TABLE RANGE"
  130. 6010 PRINT "   **** EXPECT ERRORS ****"
  131. 6020 PRINT "   **** IN ALL VALUES ****"
  132. 6030 RETURN
  133.  
  134.