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