home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / linelo / ll.asc next >
Encoding:
Text File  |  1988-03-23  |  8.4 KB  |  253 lines
  1. 'LL.BAS: true line-loss program..Module 6
  2.  
  3. MENU:
  4. CLS
  5.  
  6.      PRINT "╔═══════════════════════════════════════════════════════════════╗"
  7.      PRINT "║  TRUE TRANSMISSION LINE LOSS & VSWR CALCULATIONS - MODULE 7   ║"
  8.      PRINT "╚═══════════════════════════════════════════════════════════════╝"
  9.  
  10.  
  11.   PRINT "CHOOSE:"
  12.   PRINT
  13.   PRINT "    1. CONVERT BETWEEN VSWR AND REFLECTED POWER.
  14.   PRINT "    2. FIND RATED LINE LOSS AT OPERATING FREQUENCY"
  15.   PRINT "       FROM RATED VALUE AT ANOTHER FREQUENCY.
  16.   PRINT "    3. CALCULATIONS, USING CONDITIONS AT TRANSMITTER END."
  17.   PRINT "    4. CALCULATIONS, USING CONDITIONS AT ANTENNA END."
  18.   PRINT "    5. QUIT - EXIT MODULE."
  19.   PRINT "                           ENTER CHOICE 1-5:";
  20.  
  21.     INPUT CHOICE
  22.  
  23.     ON CHOICE GOTO CONVERT, COAX, SOURCE, LOAD, ENDING
  24.  
  25. CONVERT:
  26. CLS
  27.      PRINT "╔═══════════════════════════════════════════════════════════════╗"
  28.      PRINT "║  TRUE TRANSMISSION LINE LOSS & VSWR CALCULATIONS - MODULE 7   ║"
  29.      PRINT "╚═══════════════════════════════════════════════════════════════╝"
  30.      PRINT
  31.      PRINT "CHOOSE:"
  32.      PRINT
  33.      PRINT "    1. FIND VSWR FROM FORWARD AND REFLECTED POWER."
  34.      PRINT "    2. FIND REFLECTED POWER FROM VSWR AND FORWARD POWER."
  35.      PRINT "    3. FIND FORWARD POWER FROM VSWR AND REFLECTED POWER."
  36.      PRINT "    4. RETURN TO MAIN MENU."
  37.      PRINT "                             ENTER CHOICE 1,2,3 OR 4:";
  38.        INPUT CHOICE
  39.        ON CHOICE GOTO CONVERT1, CONVERT2, CONVERT3,MENU
  40.        GOTO CONVERT   'catch incorrect choice
  41.  
  42. CONVERT1:
  43.      PRINT
  44.      INPUT "ENTER FORWARD POWER (WATTS): ";PF
  45.      PRINT
  46.      INPUT "ENTER REFLECTED POWER (WATTS): ";PR
  47.  
  48.        RHOP=PR/PF
  49.        RHO=SQR(RHOP)
  50.        RL=20*LOG(RHO)/LOG(10)
  51.        S=(1+RHO)/(1-RHO)
  52.  
  53.      PRINT
  54.      PRINT USING "VSWR = ##.##";S
  55.      PRINT USING "REFLECTION COEFFICIENT = 0.###";RHO
  56.      PRINT USING "RETURN LOSS =  +##.# DB.";RL
  57.  
  58.      PRINT
  59.      PRINT "CHOOSE:"
  60.      PRINT
  61.      PRINT "    1. ANOTHER CALCULATION."
  62.      PRINT "    2. RETURN TO MAIN MENU."
  63.      PRINT "                             ENTER CHOICE 1 OR 2:";
  64.      INPUT CHOICE
  65.      ON CHOICE GOTO CONVERT, MENU
  66.      GOTO CONVERT  'catch incorrect choice
  67.  
  68. CONVERT2:
  69.      PRINT
  70.      INPUT "ENTER FORWARD POWER (WATTS): ";PF
  71.      PRINT
  72.      INPUT "ENTER VSWR: ";S
  73.      PRINT
  74.  
  75.        RHO=(S-1)/(S+1)
  76.        RHOP=RHO^2
  77.        PR=RHOP*PF
  78.  
  79.      PRINT
  80.      PRINT USING "REFLECTED POWER (WATTS) = ####.# ";PR
  81.  
  82.      PRINT
  83.      PRINT "CHOOSE:"
  84.      PRINT
  85.      PRINT "    1. ANOTHER CALCULATION."
  86.      PRINT "    2. RETURN TO MAIN MENU."
  87.      PRINT "                             ENTER CHOICE 1 OR 2: ";
  88.      INPUT CHOICE
  89.      ON CHOICE GOTO CONVERT, MENU
  90.      GOTO CONVERT   'catch incorrect entry
  91.  
  92.  
  93. CONVERT3:
  94.      PRINT
  95.      INPUT "ENTER REFLECTED POWER (WATTS): ";PR
  96.      PRINT
  97.      INPUT "ENTER VSWR: ";S
  98.      PRINT
  99.  
  100.        RHO=(S-1)/(S+1)
  101.        RHOP=RHO^2
  102.        PF=PR/RHOP
  103.  
  104.      PRINT
  105.      PRINT USING "FORWARD POWER (WATTS) = ####.# ";PF
  106.  
  107.      PRINT
  108.      PRINT "CHOOSE:"
  109.      PRINT
  110.      PRINT "    1. ANOTHER CALCULATION."
  111.      PRINT "    2. RETURN TO MAIN MENU."
  112.      PRINT "                             ENTER CHOICE 1 OR 2: ";
  113.      INPUT CHOICE
  114.      ON CHOICE GOTO CONVERT, MENU
  115.      GOTO CONVERT   'catch incorrect entry
  116.  
  117. COAX:   'line loss caclulation from mfg data
  118. CLS
  119.      PRINT "╔═══════════════════════════════════════════════════════════════╗"
  120.      PRINT "║  TRUE TRANSMISSION LINE LOSS & VSWR CALCULATIONS - MODULE 7   ║"
  121.      PRINT "╚═══════════════════════════════════════════════════════════════╝"
  122.      PRINT
  123.      PRINT "You will be asked to enter, from manufacturer's data, the rated"
  124.      PRINT "line loss in dB/100 feet -or- dB/100 meters for the transmission"
  125.      PRINT "line being used. You will also have to enter the frequency (MHz)"
  126.      PRINT "at which this rated loss is given (typically 10 or 100 MHz)."
  127.      PRINT "Then you will be asked for the actual length of transmission "
  128.      PRINT "line in the same units (feet or meters). Finally, you will enter"
  129.      PRINT "the actual frequency of operation (in MHz)."
  130.      PRINT
  131.      PRINT "The program will then compute the RATED line loss in dB for"
  132.      PRINT "the conditions specified. This is NOT the actual line loss."
  133.      PRINT "To get actual (true) line loss, select option 3 or 4 "
  134.      PRINT "from the Main Menu."
  135.      PRINT
  136.      INPUT "ENTER RATED LINE LOSS (dB/100 ft-OR-dB/100 meters): ";R
  137.      INPUT "ENTER ACTUAL LINE LENGTH (in same units, ft or meters): ";L
  138.      INPUT "ENTER FREQUENCY (MHz) AT WHICH RATING IS GIVEN: ";FR
  139.      INPUT "ENTER ACTUAL FREQUENCY OF OPERATION (MHz): ";FA
  140.      PRINT
  141.  
  142.        RL=R*L/100
  143.        ALL=RL*SQR(FA/FR)
  144.  
  145.      PRINT USING "RATED LINE LOSS FOR CONDITIONS SPECIFIED = ##.# dB.";ALL
  146.  
  147.      PRINT
  148.      PRINT "CHOOSE:"
  149.      PRINT
  150.      PRINT "    1. ANOTHER CALCULATION."
  151.      PRINT "    2. RETURN TO MAIN MENU."
  152.      PRINT "                             ENTER CHOICE 1 OR 2: ";
  153.      INPUT CHOICE
  154.      ON CHOICE GOTO COAX, MENU
  155.      GOTO MENU                           'catch incorrect entry
  156.  
  157.  
  158. SOURCE:   'true line loss, entering condx at xmtr end of line
  159. CLS
  160.      PRINT "╔═══════════════════════════════════════════════════════════════╗"
  161.      PRINT "║  TRUE TRANSMISSION LINE LOSS & VSWR CALCULATIONS - MODULE 7   ║"
  162.      PRINT "╚═══════════════════════════════════════════════════════════════╝"
  163.      PRINT
  164.  
  165.      D=0:S=1:SP=1:DP=0:ADDL=0  'reset variables
  166.  
  167.      INPUT "ENTER RATED LINE LOSS (dB) FOR LENGTH OF LINE USED: ";D
  168.      INPUT "ENTER ANY ADDITIONAL LOSSES (FILTERS, ETC.) IN dB: ";ADDL
  169.      INPUT "ENTER VSWR AT TRANSMITTER END OF LINE: ";S
  170.  
  171.        RHO=(S-1)/(S+1)
  172.        D=D+ADDL
  173.        RHOP=RHO*EXP(.2303*D)
  174.        SP=(1+RHOP)/(1-RHOP)
  175.        N=(S-(1/S))/(SP-(1/SP))
  176.        DP=10*(LOG(N))/LOG(10)
  177.  
  178.      PRINT
  179.      PRINT USING "TRUE VSWR AT ANTENNA END OF LINE = ##.##";SP
  180.      PRINT USING "TRUE OVERALL LOSS IN dB = +##.##";DP
  181.      PRINT USING "TRUE TRANSMISSION LINE OPERATING EFFICIENCY = ###.# PERCENT";N*100
  182.      PRINT
  183.      PRINT "CHOOSE:"
  184.      PRINT
  185.      PRINT "    1. ANOTHER CALCULATION."
  186.      PRINT "    2. RETURN TO MAIN MENU."
  187.      PRINT "                              ENTER CHOICE 1 OR 2: ";
  188.      INPUT CHOICE
  189.  
  190.        ON CHOICE GOTO SOURCE, MENU
  191.        GOTO MENU  'catch incorrect choice
  192.  
  193.  
  194. LOAD:
  195. CLS
  196.      PRINT "╔═══════════════════════════════════════════════════════════════╗"
  197.      PRINT "║  TRUE TRANSMISSION LINE LOSS & VSWR CALCULATIONS - MODULE 7   ║"
  198.      PRINT "╚═══════════════════════════════════════════════════════════════╝"
  199.      PRINT
  200.  
  201.      D=0:S=1:SP=1:DP=0:ADDL=0   'reset variables
  202.  
  203.      INPUT "ENTER RATED LINE LOSS (dB) FOR LENGTH OF LINE USED: ";D
  204.      INPUT "ENTER ANY ADDITIONAL LOSSES (FILTERS, ETC.) IN dB: ";ADDL
  205.      INPUT "ENTER VSWR AT ANTENNA END OF LINE: ";S
  206.  
  207.        RHO=(S-1)/(S+1)
  208.        D=D+ADDL
  209.        RHOP=RHO*EXP(-.2303*D)
  210.        SP=(1+RHOP)/(1-RHOP)
  211.        N=(SP-(1/SP))/(S-(1/S))
  212.        DP=10*LOG(N)/LOG(10)
  213.  
  214.      PRINT
  215.      PRINT USING "VSWR AT TRANSMITTER END OF LINE = ##.##";SP
  216.      PRINT USING "TRUE OVERALL LOSS IN dB = +##.##";DP
  217.      PRINT USING "TRUE TRANSMISSION LINE OPERATING EFFICIENCY = ###.# PERCENT";N*100
  218.  
  219.      PRINT
  220.      PRINT "CHOOSE:"
  221.      PRINT
  222.      PRINT "    1. ANOTHER CALCULATION."
  223.      PRINT "    2. RETURN TO MAIN MENU."
  224.      PRINT "                              ENTER CHOICE 1 OR 2: ";
  225.      INPUT CHOICE
  226.  
  227.        ON CHOICE GOTO LOAD, MENU
  228.        GOTO MENU  'catch incorrect choice
  229.  
  230.  
  231. ENDING:
  232.  
  233.     PRINT
  234.     PRINT "                ≡≡≡ PROGRAM COMPLETED ≡≡≡"
  235.  
  236. END
  237.  
  238.  
  239. '╔═══════════════════════════════════════════════════════════╗
  240. '║             Program Authorship Notice                     ║
  241. '║             ≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡                     ║
  242. '║                                                           ║
  243. '║              Jacob Z. Schanker, P.E.                      ║
  244. '║                                                           ║
  245. '║           Scientific Radio Systems, Inc.                  ║
  246. '║                367 Orchard Street                         ║
  247. '║                Rochester, NY 14606                        ║
  248. '║                  (716) 235-2040                           ║
  249. '║                                                           ║
  250. '║              Last revised: March 1988                     ║
  251. '║                                                           ║
  252. '╚═══════════════════════════════════════════════════════════╝
  253.