home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / newloop / r7000.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1979-12-31  |  10.3 KB  |  155 lines
  1.  
  2.  
  3.  
  4.  
  5.                         LOOP ANTENNA CALCULATOR
  6.  
  7.                         by GEORGE CSAHANIN JR.
  8.                                 WB2DYB
  9.                               7 JULY 1986
  10.  
  11.  
  12.    THIS PROGRAM WILL CALCULATE THE VARIOUS PARAMETERS OF THE W5QJR SMALL LOOP
  13. AS DESCRIBED IN JUNE 1986 QST.  THE FORMULAS ARE FROM TED HART'S BOOK ON SMALL 
  14. LOOPS. THIS VERSION WILL CALCULATE THE CAPACITY, VOLTAGE, Q, BANDWIDTH. ETC. 
  15. FOR THIS FINE ANTENNA. TED HAS NOTED THAT THE ACTUAL BANDWIDTHS ARE GREATER 
  16. THAN THE FORMULAS CALCULATE, AND IN FACT I HAVE FOUND THIS TO BE TRUE WITH MY 
  17. LOOP. MY BANDWIDTH IS ABOUT 2.2 TIMES WHAT THE FORMULA SHOWS IT TO BE. AT ANY 
  18. RATE THIS IS A FINE ANTENNA, AND WORTH A SHOT IF YOU HAVE A SPACE PROBLEM. MY 
  19. INSTALLATION IS IN MY ATTIC, WHERE IT ACTUALLY PERFORMS NECK& NECK WITH MT 
  20. DIPOLE, OR VERTICAL. IN FACT MY FIRST QSO ON IT WAS ON 40 METERS FROM MY QTH 
  21. IN TEXAS TO JAPAN! THE THING DIDN'T EVEN HAVE IT'S MOTOR DRIVE YET, IT WAS 
  22. JUST SITTING ON THE BOOKSHELF NEXT TO ME IN THE SHACK, BAREFOOT, 100 WATTS, 
  23. AND THIS JA7 CAME BACK TO ME. NOISE IMMUNITY ISN'T WHAT IT IS CRACKED UP TO 
  24. BE. IT ISN'T WORSE, JUST NOT BETTER. 
  25.  
  26.   TED HART SELLS A CAPACITOR, WHICH I RECOMMEND. I GOT A STEPPING MOTOR FROM 
  27. HERBACH & RADEMAN FOR $3.50. IT HAS LARGER STEPS, BUT I HAVE NOT HAD ANY 
  28. PROBLEM WITH IT YET. WITH THE CAPACITOR THAT I GOT FROM TED, MY 3 FOOT 
  29. DIAMETER LOOP (WHICH I DID HAVE TO PRUNE A BIT) TUNES FROM 6.950 MHZ TO 14.250 
  30. MHZ. I GAVE UP PRUNING FURTHER, AS THIS DID ALL I NEEDED. IF YOU DO ANY 
  31. SNOOPING AROUND THE INTERNATIONAL BROADCAST BANDS WITHIN THIS IS A GREAT FIND. 
  32. AS FOR MOUNTING, I HAVE IT HUNG FROM THE 2X4'S IN THE ATTIC WITH NYLON ROPE. 
  33.  
  34.   IF YOU ARE AN ANTENNA EXPERIMENTER, OR IF YOU JUST HAVE A PLAIN OLD SPACE 
  35. PROBLEM, TRY THIS ONE. FOR THE COST OF THE CAPACITOR, SOME SOLDER, AND SOME 
  36. COPPER TUBING IT WILL PROVE ITSELF TO YOU. AS FOR THE FORMULAS, AND THIS 
  37. PROGRAM WHICH IS WRITTEN FIRST IN BELIEVE IT OR NOT, COMMODORE BASIC, 
  38. TRANSLATED TO MBASIC, AND FORTHER REFINED UNDER BASICA, THEN COMPILED WITH 
  39. TURBOBASIC, TRY THEM. IF YOU NEED THE BASIC FILE DROP ME A NOTE THRU THIS 
  40. AMATEUR RADIO BBS, OR THRU COMPUSERVE, OR DEEP THOUGHT IN AUSTIN, I'LL GET IT 
  41. FOR YOU. THIS PROGRAM IS NOT FOR SALE, AND IS FREE FOR THE USE OF ALL ENGAGED 
  42. IN NOT FOR PROFIT ACTIVITIES, RELATIVE TO NEWLOOP.EXE, OR NEWLOOP.BAS
  43.  
  44. GEORGE
  45. 512-331-9568 HOME
  46. 512-476-3636 WORK
  47.  
  48. PS- ALSO I HAVE INCLUDED NULOOP FROM ANOTHER SOURCE. IT DOES THE SAME, BUT DO 
  49. NOT BE CONFUSED BY THE DIFFERENCE IN TUNING CAP RESULT. MINE IS SHOWING TUNING 
  50. CAP MINUS THE DISTRIBUTED CAPACITANCE. NULOOP ALSO WANTS DIMENSION IN LENGTH 
  51. OF A SIDE FOR AN OCTAGON, NEWLOOP(MINE) WANTS LOOP DIAMETER.
  52.  
  53. GEORGE 72060,3640/75706,577
  54.  
  55.  
  56.  ⌡&nzPKZIPFIXEXE  ⌡\▐"PRINT   EXEì`!¡x"QD28    COM ëEºRAMKEY  COM   ïp*REZIP   ZIP  ⌡╢O9SETUP   COM σT9▒ⁿSHIPDISKEXE ╣x┐
  57. å¼0SOLOBOOTCOM /╕■C└!10 FOR U = 1 TO 24:PRINT "": NEXT
  58. 20 INPUT"DIAMETER OF LOOF(FEET)";Z
  59. 30 INPUT "DIAMETER OF CONDUCTOR(INCHES)";D
  60. 40 INPUT"CW PEAK POWER TO ANTENNA(WATTS)";P
  61. 50 INPUT"FREQUENCY IN MHZ";F
  62. 60 A=((Z*.5)^2)*3.141
  63. 70 S=Z*3.141
  64. 80 RR=3.38E-08*((F^2*A)^2)
  65. 100 RL=((F*S/D)^.5)*9.996001E-04
  66. 120 M=RR/(RR+RL)
  67. 130 G=96*S/(3.141*D)
  68. 140 H=LOG(G)/LOG(10)
  69. 150 L=((7.353*H)-6.386)*S*1.9E-08
  70. 170 XL=6.28*F*L*1000000!
  71. 180 CT=1000000!/(6.28*F*XL)
  72. 190 TC=CT-(.82*S)
  73. 200 QA=(RR+RL)*2
  74. 210 Q=XL/QA
  75. 220 BW=F*1000/Q
  76. 240 AB=LOG(M)/LOG(10)
  77. 250 AC=20*AB
  78. 260 CD=.83*S
  79. 270 VC=((P*XL*Q)^.5)
  80. 280 PRINT""
  81. 290 PRINT""
  82. 300 PRINT"GIVEN:"
  83. 310 PRINT"LOOP DIAMETER="Z
  84. 320 PRINT"DIA OF COND IS"D"INCHES"
  85. 330 PRINT"FREQ OF OP IS"F"MHZ"
  86. 340 PRINT "POWER IN TO ANT. IS"P"WATTS"
  87. 350 PRINT""
  88. 360 PRINT"TUNING CAPACITY IS......."TC"PFD"
  89. 370 PRINT "EFFICIENCY IS..........."M*100"%"
  90. 380 PRINT"RADIATION RESISTANCE IS.."RR"OHMS"
  91. 390 PRINT"LOSS RESISTANCE IS......."RL"OHMS"
  92. 400 PRINT"LOSS IS..................."AC"db"
  93. 410 PRINT"Q IS..................."Q"
  94. 420 PRINT "BANDWIDTH IS..........."BW"KHz"
  95. 430 PRINT "CAPACITOR VOLTAGE IS."VC"VOLTS P-P"
  96. 440 PRINT "CAPACITOR PLATE SPACING IS."(VC/2!)/75000!"IN"
  97. 450 PRINT""
  98. 460 PRINT""
  99. 471 PRINT "CHOOSE ONE:"
  100. 472 PRINT" 1- SAME DIMENSION, CHANGE FREQUENCY"
  101. 473 PRINT" 2- CHANGE ALL INFO"
  102. 474 PRINT" 0- END SESSION "
  103. 476 INPUT "enter 1,2,or 0";ZX
  104. 480 IF ZX=1 GOTO 50 ELSE 490
  105. 490 IF ZX = 2 GOTO 20 ELSE 500
  106. 500 IF ZX=0 THEN END
  107. 1000 'REFER TO THE BOOK BY TED HART W5QJR
  108. 1010 ' THIS PROGRAM WRITTEN BY GEORGE CSAHANIN WB2DYB,
  109. 1020 'ORIGINALLY ON COMMODORE 64, CONVERTED TO MBASIC(CP/M) THEN
  110. 1030 'FURTHER TO BASICA. UNLIMITED NONCOMMERCIAL USE GRANTED.
  111. 1040 ' UNLIMITED GOVERNMENTAL USE GRANTED
  112. 1050 ' NOLICENSE GRANTED FOR COMMERCIAL USE OF THIS PROGRAM
  113. 1060 'THIS ARTICLE ORIGINALLY APPEARED IN QST IN THE JUNE 1986 ISSUE
  114. 1070 ' THIS ANTENNA WORKS
  115. 1080 'REVISED 21MAY1989 TO CORRECT SOME MATH ERRORS
  116. 1090 'BURMA SHAVE
  117.  ÉàSçRbEXCEL   XLS  Éàτr╒FAX     CFG  Éàg$ééMZPC  Ç¬TURBO BASIC/Copyright (c) 1987 by Borland International/All Rights ReservedCRSZaleCÇ4@Çì[▄4áÇ:P¼╞·=Dûûqb╔r@╙H.î▓.╟«ΦTΦêΦΦ«Φ.Äd 6ΦƒX┤L═!ΦºΦ╓rSΦ─ΦHΦlΦ╞Φ%/ΦRíV▒╙αú╬╕Çú╥ÄdΦHΦzë&┬î─·ÄXï&╬ⁿ√3╔3 3φ.Äd. .╘ΦòG.â>«t├Φ02Σ═!î╚.║-éÄ╪í|ï╨╤α┬Φ0~48ï╨╕áRΦî╦├Ä╪éÄ└ï┬Θfî╚ï╨.║3÷Ä┌┐
  118. Ä└╣@ⁿ≤ÑÄ╪êâ┬FXVä├Φ~rΦCrΦ├.≈ñu.≈Çt╕∙├. ⁿ.ú°.≈ñt
  119. █π¢.┘.°¢├═7π═<Ö.°├┤J╗  .Ä▓═!┤J═!.▓.;v.ï.ë.ë.;äs╕├.í¼<r°├╕∙├.╟û═∞j═φ*═<ƒû├.ïÇ.ïï┬;┴vï┴.ú+┬▒╙αÄ┌+ú.ídú├Φ═ ╕╣Çëú
  120. ú ë.╟├î╚.@.D.║.ú╓.úH.ú╣┐ â=tâ╟Γ⌠.F.L.P.T.X.íX.V.\.`.d.h.l.p.t.x.|.Ç├.íH2 .ïå.Äê3÷πï<è\.Äç&â╞Γε├.ïê╛ÇΦY╛pΦS╛lΦM╛hΦG╛`ΦA╛\Φ;î╚Ä└3÷.Äh┐è╣ⁿ≤Ñ3÷.Äl╣≤ÑÄ╪ïóï6ñïdÄ┬π&â╞6Γ°├.ïD■+╨.ÄÄ┌Θ!î╦Ä█ⁿ3└Äd≈■  uïèï>î╤Θ≤½ïÄï>É╤Θ≤½ïÜï>£╤Θ≤½ï₧ï>á╤Θ≤½≈■  uïûï>ÿπ&ëâ╟6Γ°ïªï>¿π&ëâ╟6Γ°─rΦ(─vΦ!≈■  uÄ|┼~ΦæÄ█.í|.úÇ.╟├3└ç■ └u\3└çïÇÄ┘Ä┴ └tï≡≈╪Φ∩┐≈ï üß ⁿ≤ñ.ïÇ.í+┬▒╙αïüß â┴+┴úë╟╟
  121. ╟ ├÷▄0ÇuΦî,╟2T╟4T╟6T╟8T╟:Tx╟<Tì╟>T├î╚Ä╪Ä└3└ú╪ú┌úΩ╟ε  úTⁿ╣≤┐áR≤½H╣V┐åT≤½3└╗P╣d╢ ┐ÿW½2µ½2µ├Γ÷╟ T├ⁿS░ ╣┐≤¬3└╣
  122. ┐╨≤½.ï╥.ïÇëúúúî.íⁿúú ú"ú$ú&3└ü?ü 2ü"2 ü$2ü&2ú\ú^údúfúhúnúpúrútúvúxëå.í.≈&è-sJújël[├X·.ë&Ç.îé.Ä─.ï&┬√ αⁿ3└╣┐á≤½Φ┤0═!.ú¼ΦeΦsΦ╨.íá├ⁿ2└3 .Ä▓&Ä,.î╝δ╣  ≥««u°.ë>╛.ë>└ΦM)ru.üñ@.üñÇΦ=)ru.üª@.üá.üªÇ├TX;─╕t╕.úó├.íñ⌐Çt⌐@u3δ).≈óu    ═%u!δ█πUï∞╕  P▌~■╣Γ■X]ä└t.╟░├.üñ.╟░█π¢.┘>ⁿ¢.ü&ⁿ@α├┤═<rLwt.ü¿.ü&á■ ΦörÇ u
  123. .ü¿Θé║║2█∞$Çèα╣Ç∞$Ç:─t■├Ç√
  124. tΓ≡δc.ü¿@δZ.ü¿ΦQsΦks6.≈ªÇu@.üª.üáδ0Φ.r.ü&á■ .ê¬░
  125.  u░.ó¿Φ0r.ü¿ .ü&á■ ├╕╗ ▒═2ΣÇ∙ s Ç wÇ√w°├∙├╕═<uÇ√tÇ√t
  126. Ç√ rÇ√ w°├∙├ΦK!╧ └xtQï╚Φ>!╕Φè!Γ⌡Y╧Θ?Φ±r.úεí.ú≡X[â─SP. .εΘ?
  127. Σu!ï╪·£╕O    P╤π╤π.Äj& w& 7Φ╦Φ)╧Θ╫>í╥ï╘ç╓ï╪ï6┌ç>▄ç.▐ 6αÄΓ├£.ÄdÅ╨ú╥ë╘ç╓ë╪ë6┌ç>▄ç.▐ÅαîΓ├╧═5."═5ⁿ═5. ╧╧î╕╨3█Φ≥-Φ².sΘ{>ΘQWΦε·Φì√Φ*ⁿΦoⁿΦδ√_Y├╧Φ┘.sΘW>╧Φ∞.sΘN>╧Φ▓ ╧√═9>,ï╨═=í,₧ï┬╩√ⁿPQVWUï.åíïVï~ïNïvÄ╪Ä└üß üΓ ï┴;┬rï╩π≤ªu;┬ƒΦR$rΦM$r    ₧]_^YX╩]_^YXΘΣ=.ár2Σï≡.÷6å░*─2Σï╨╞.:╓s╛Φ=╧Φ#╧Q.í╩ï≡.÷6å░*─2Σï╚╞.:┌s 3╥╛ΦnYr
  128. ╧3╥Φ%Yr╧Θé=ΦΦδ,╧ └t=w3█├XΘO=Φφ ΦΓ,╧Φµ Φε,╧QVW.Ä▓èÇ2φ╛üπÇ< uFΓ°Φb"_^Yr╧Θ6=QVWUï.åïNÇσïvüµ ╬x1Φb"r3ï╤ï╬ïvⁿ≤ñïNïvÇσ≤ñΦV#rΦo#r+·ëVë~]_^Y╧.╟╪]_^YΘ▐<ΦD╧3╥Φqr╧í`Φ-r Φ/r.Äd╧.╟╪6Θ╡<╧.ás2Σ@╧⌡@╗₧ Φîr═<£V═7═=╧Θf<√í tΦ╚ u≈  t  ╩.Äd≈v  u .â>«t═≡.≈╕R  tΦkΦ╬%Φ»,Φ|.Ä─.ï&┬√├â─Yπ╤Θ╨╥πï▄═<[/═=â─
  129. Γ≤╨Ωs_Y[X^Åd╧â─Yπ╤Θ╨╥πï▄═<[/═=â─
  130. Γ≤╨Ωs_Y[X^Åd╧.ú╪Θ╬;═5.$═5ⁿ═5. ╧║  √δ3╥√═=.≈┌  u.çdRV─v·âF·&èè≥╨εsPSQWδ â∞
  131. ï▄═<[?■╬u≤R& lâF·╧√üⁿÇrï⌠6─6â╛═½V& /╕δê═5.&═5ⁿ═5. ╧ΦΦ╕*╧H=╗r=s=r-δ-╗Qï╚╕╙αY├XΘ;Φ╤ Φô*╧Φ╩ Φƒ*╧Uï.åïFÇΣΦV!]r╧Θ∙:PUïïtÇ╠Çâ.åï.åëvëF]X╧PU&ï&ïtÇ╠Çâ.åï.åëvëF]X╧PUïïrÇ╠Çâ.åï.åëvëF]X╧UïVïvâ.åï.åëvëV]╧QVWè.2φ╛/Φƒ_^Y╧ └tH=w ô╤π.ïƒ╩ô@╧ΘD:.÷▄0@uPΦñ$░4µCδ2└µ@δµ@X╧P√2└µC·δΣ@èαδΣ@å─≈╪@tΘHtµ.÷▄0 t.úα0═<¢α0═<£6F═<₧&û═5ⁿΦ#$X╧═<ƒjX╧
  132. ÷x    î┌ΦÉ Ä┌r╧ΘΘ9Φ.ë6∞.îεî╞â■ u .≈Ω  tΘ═:╧Uï∞─v&ïï╙╤Γ╤Γâ┬V]H;├r╧.≈t üⁿÇr'║═½Rδ.≈t    Z[â─SRδZâ─R╤α╤α≡& l╕Θ¢²Uï∞─v&ïH;┬r ╤Γ╤Γâ┬V]╧]â─╤α╤α≡& lΦg H=w=ï╪╤π╤π.ë╖åT.îçêT╧ΦM H=w#=v=v-δï╪╤π╤π.ë╖«T.îç░T╧Θπ8Φ .ë6ûT.îÿT╧Φ Hâ■ uï╞.úΩ0.ë6ÄT.îÉT╧Φ÷ ï╪╨Φr╠â√w╟╤π.ë╖₧T.îçáT╧╗₧ Φ¡ r▓═<£V═<¢·0═<¢÷0Φ┴ â■ u
  133. .ë6ⁿ0.ë6°0.ë6ÆT.îöT╧Φ·╧.≈¿t%=  t %?üπ.êçè°u .ó S╕═[╕═╧.≈¿t)╗╣ï╙&ïâ╞=  t$?.êCΓφ.á.ê╕═╧Φ╓ rSÄï╪&è2Σ[╧Θ    8╕3█Φp'ΦC'╧╕3█Φr'ΦA'╧╕3█Φy'Φ5'╧.≈áRt=    wô╤π.ïƒ╕Su.╟╕Sô╧ΘÑ7
  134. Σuè╪Φr r    Äô&ê╧ΘÑ7√î╚ï⌠.≈u6;Dt╩â╞
  135. Φ╩6ü|═½u(6;D
  136. t╩â╞ Φ╩6ï6ïD.    çáR≈╨.!çªRΘb&╕Θ√.ár2Σ■└╧√Φ_╛.ΦÇ=r"ΦWΦ╕╧√ΦL╛.Φm=rQï╩3╥ΦßΦ²Yr╧Θ7Θ7√Φ+Uï.åïVïvÄΦΦ}ΦQ]r╧Θ⌠6√ΦQUï.åïNïvÄ3╥ΦÿΦ┤rΦ)r]Y╧]YΘ╔6X[ZVâ∞8RSPQWïⁿâ╟
  137. î╨Ä└ï╟╣ⁿ≤Ñ.Äd_Y╧=    w*=|%ï╪╤πΦL rëç╨╧Θâ6=    w
  138. Σx Sï╪╤πïç╨[╧ΘU6Φδ&sΘi6╧.╟öΦµ≈.╟Ω3└.çªR.    áR3└.ç¿R.    óR3└.ç¬R.    ñR╕2Φ╗≡.í╥úå╟d^Z[╕∩═.ï&╬PSRV╧.≈Ω  t.╟Ω╟t╧.╟Ω  ╕Θ·â─. .≡â─. .⌠√ï⌠6ü|═½uâ─╧╕Θ≥∙ ÷x î╞î┌Φ[Ä┌r╧Θ┤5╧═5Σ═9>*═9╪í*₧ru3└╧╕  ╧╕╧2Σ.÷6╓Θ 2Σ.÷6┌ΘF╧√ï╓÷DÇuïtΦrC.ÄdQUï.åïNïvâå]
  139. φx    ç╓ëTë Y╧WRΦÄrï╤ⁿ≤ñ+·^.Ädë|ë_Y╧^_YΘ)5√ï╓&÷DÇu&ïtΦ╖rJ.ÄdQUï.åïNïvâå]
  140. φx ç╓&ëT&ë Y╧WRΦ2rï╤ⁿ≤ñ+·^&ë|&ë.Äd_Y╧^_YΘ╔4√ï╓÷BÇuïrΦYrC.ÄdQUï.åïNïvâå]
  141. φx    ç╓ëRë
  142. Y╧WRΦ╫rï╤ⁿ≤ñ+·^ëzë.Äd_Y╧^_YΘr4√ï╓Qï6å6t <> 0) then
  143.                writeln ('Freq ', frequency : 3 : 3, 'is BUSY')
  144.           else
  145.                writeln ('Freq ', frequency : 3 : 3, ' is not busy');
  146.           frequency := frequency + freq_inc;
  147.      end;
  148.  
  149.  
  150.  
  151.  
  152.  
  153.      commclose (1);
  154.      writeln ('COM1 closed');
  155. end.