home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / newloop / newloop.bas < prev    next >
Encoding:
BASIC Source File  |  1990-07-16  |  1.9 KB  |  61 lines
  1. 10 FOR U = 1 TO 24:PRINT "": NEXT
  2. 20 INPUT"DIAMETER OF LOOF(FEET)";Z
  3. 30 INPUT "DIAMETER OF CONDUCTOR(INCHES)";D
  4. 40 INPUT"CW PEAK POWER TO ANTENNA(WATTS)";P
  5. 50 INPUT"FREQUENCY IN MHZ";F
  6. 60 A=((Z*.5)^2)*3.141
  7. 70 S=Z*3.141
  8. 80 RR=3.38E-08*((F^2*A)^2)
  9. 100 RL=((F*S/D)^.5)*9.996001E-04
  10. 120 M=RR/(RR+RL)
  11. 130 G=96*S/(3.141*D)
  12. 140 H=LOG(G)/LOG(10)
  13. 150 L=((7.353*H)-6.386)*S*1.9E-08
  14. 170 XL=6.28*F*L*1000000!
  15. 180 CT=1000000!/(6.28*F*XL)
  16. 190 TC=CT-(.82*S)
  17. 200 QA=(RR+RL)*2
  18. 210 Q=XL/QA
  19. 220 BW=F*1000/Q
  20. 240 AB=LOG(M)/LOG(10)
  21. 250 AC=20*AB
  22. 260 CD=.83*S
  23. 270 VC=((P*XL*Q)^.5)
  24. 280 PRINT""
  25. 290 PRINT""
  26. 300 PRINT"GIVEN:"
  27. 310 PRINT"LOOP DIAMETER="Z
  28. 320 PRINT"DIA OF COND IS"D"INCHES"
  29. 330 PRINT"FREQ OF OP IS"F"MHZ"
  30. 340 PRINT "POWER IN TO ANT. IS"P"WATTS"
  31. 350 PRINT""
  32. 360 PRINT"TUNING CAPACITY IS......."TC"PFD"
  33. 370 PRINT "EFFICIENCY IS..........."M*100"%"
  34. 380 PRINT"RADIATION RESISTANCE IS.."RR"OHMS"
  35. 390 PRINT"LOSS RESISTANCE IS......."RL"OHMS"
  36. 400 PRINT"LOSS IS..................."AC"db"
  37. 410 PRINT"Q IS..................."Q"
  38. 420 PRINT "BANDWIDTH IS..........."BW"KHz"
  39. 430 PRINT "CAPACITOR VOLTAGE IS."VC"VOLTS P-P"
  40. 440 PRINT "CAPACITOR PLATE SPACING IS."(VC/2!)/75000!"IN"
  41. 450 PRINT""
  42. 460 PRINT""
  43. 471 PRINT "CHOOSE ONE:"
  44. 472 PRINT" 1- SAME DIMENSION, CHANGE FREQUENCY"
  45. 473 PRINT" 2- CHANGE ALL INFO"
  46. 474 PRINT" 0- END SESSION "
  47. 476 INPUT "enter 1,2,or 0";ZX
  48. 480 IF ZX=1 GOTO 50 ELSE 490
  49. 490 IF ZX = 2 GOTO 20 ELSE 500
  50. 500 IF ZX=0 THEN END
  51. 1000 'REFER TO THE BOOK BY TED HART W5QJR
  52. 1010 ' THIS PROGRAM WRITTEN BY GEORGE CSAHANIN WB2DYB,
  53. 1020 'ORIGINALLY ON COMMODORE 64, CONVERTED TO MBASIC(CP/M) THEN
  54. 1030 'FURTHER TO BASICA. UNLIMITED NONCOMMERCIAL USE GRANTED.
  55. 1040 ' UNLIMITED GOVERNMENTAL USE GRANTED
  56. 1050 ' NOLICENSE GRANTED FOR COMMERCIAL USE OF THIS PROGRAM
  57. 1060 'THIS ARTICLE ORIGINALLY APPEARED IN QST IN THE JUNE 1986 ISSUE
  58. 1070 ' THIS ANTENNA WORKS
  59. 1080 'REVISED 21MAY1989 TO CORRECT SOME MATH ERRORS
  60. 1090 'BURMA SHAVE
  61.