home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / newloop / nuloop.bas < prev    next >
Encoding:
BASIC Source File  |  1990-07-16  |  1.8 KB  |  45 lines
  1. 90  PRINT "PROGRAM TO CALCULATE PARAMETERS OF AN OCTAGONAL"
  2. 91  PRINT "LOOP ANTENNA OF SMALL DIMENSION. ORIGINAL ARTICLE"
  3. 92  PRINT "           TAKEN FROM JUNE, 1986 QST"
  4. 93  PRINT 
  5. 94  PRINT "     PROGRAM BY George G. Manning, K2RRR": PRINT : PRINT : PRINT 
  6. 100  INPUT "Length of Section in Feet -- ";B
  7. 110  INPUT "Frequency in MHz -- ";F
  8. 120  INPUT "Diameter of Conductor in Inches (Must be Decimal Figure!) -- ";D
  9. 130  INPUT "Transmitter Power (Watts) -- ";P
  10. 131  GOTO 500
  11. 150 B = 1: PRINT "LENGTH OF SIDE = ";B;" FEET."
  12. 151 F = 14: PRINT "FREQUENCY = ";F;"MEGAHERTZ."
  13. 152 D = .75: PRINT "DIAMETER OF CONDUCTOR = ";D;" INCH."
  14. 153 P = 100: PRINT "TRANSMITTER POWER = ";P;" WATTS."
  15. 500 PI = 3.1415926535#
  16. 505 S = 8 * B
  17. 510 M = .4342944819#
  18. 540 A = 4.82843 * (B ^ 2): REM   Calculate area of Octagon.  
  19. 1000 RR = 3.38E-08 * ((F ^ 2 * A) ^ 2): REM   CALCULATE RADIAT            ION RESISTANCE
  20. 1010 RL = .000996 * ( SQR (F * (S / D))): REM      "      LOSS    "
  21. 1020 N = RR / (RR + RL): REM  CALCULATE EFFICIENCY
  22. 1030 L = 1.9E-08 * S * (7.353 * (M * ( LOG (((96 * S) / (PI * D)) )))-6.386): REM  M CONVERTS NATURAL LOG TO COMMON LOG
  23. 1031  GOTO 1040
  24. 1032  PRINT "L= ";L: PRINT : PRINT : PRINT 
  25. 1033  END 
  26. 1040 XL = 2 * PI * F * L * 1000000!
  27. 1050 CT =(1 / (2 * PI * F * XL * 1000000!))*1E+12
  28. 1060 Q = XL / (2 * (RR + RL))
  29. 1070 DF = F / Q
  30. 1080 CD = .82 * S
  31. 1090 VC =  SQR (P * XL * Q)
  32. 1098  PRINT : PRINT "PARAMETERS OF OCTAGONAL LOOP ARE AS FOLLOWS:"
  33. 1099  PRINT : PRINT : PRINT 
  34. 2000  PRINT "Radiation Resistance = ";RR;" Ohms."
  35. 2010  PRINT "Loss Resistance = ";RL
  36. 2020  PRINT "Efficiency = ";N
  37. 2030  PRINT "Inductance = ";L
  38. 2040  PRINT "Inductive Reactance = ";XL
  39. 2050  PRINT "Tuning Capacitor = ";CT
  40. 2060  PRINT "Q = ";Q
  41. 2070  PRINT "Bandwidth = ";DF
  42. 2080  PRINT "Distributed Capacitance = ";CD
  43. 2090  PRINT "Capacitor Voltage = ";VC
  44. 2100  END 
  45.