home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / HAMRADIO / VHFPRO.ZIP / VHFPROP!.ASC next >
Encoding:
Text File  |  1988-03-21  |  6.9 KB  |  196 lines
  1.  
  2. ' VHFPROP.BAS Calculates communications range and reliability
  3. '             for VHF terrestrial communications.
  4.  
  5.  27  REM  *** PROGRAM IS BASED ON EGLI
  6.  28  REM  *** PROPAGATION MODEL DESCRIBED
  7.  29  REM  *** IN "RADIO PROPAGATION ABOVE
  8.  30  REM  *** 40 MC OVER IRREGULAR TERRAIN"
  9.  31  REM  *** BY JOHN J. EGLI
  10.  32  REM  *** PROC. IRE, OCTOBER 1957,
  11.  33  REM  *** PP 1383-1391
  12.  34  REM  ***
  13.  35  REM  *** AND FURTHER DESCRIBED AND
  14.  36  REM  *** VALIDATED IN "REVIEW OF
  15.  37  REM  *** PROPAGATION IN THE 470-
  16.  38  REM  *** 890 MHZ BAND WITH EMPHASIS
  17.  39  REM  *** ON LAND MOBILE AND CELLULAR
  18.  40  REM  *** SYSTEMS" BY F.H. PALMER,
  19.  41  REM  *** COMMUNICATIONS RESEARCH CENTRE
  20.  42  REM  *** REPORT NO. 1288, FEBRUARY 1976,
  21.  43  REM  *** OTTAWA, ONTARIO (AVAILABLE
  22.  44  REM  *** THROUGH N.T.I.S. AS N76-27450)
  23.  45  REM  ***
  24.  90  DEF  FN LGT(X) = .4342945 *  LOG (X)
  25.  
  26. MENU:
  27. CLS
  28.  
  29.        PRINT "╔═══════════════════════════════════════════════════════════════╗"
  30.        PRINT "║        VHF TERRESTRIAL PROPAGATION - MODULE 3                 ║"
  31.        PRINT "╚═══════════════════════════════════════════════════════════════╝"
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  155  PRINT
  38.  160  INPUT "ENTER FREQUENCY IN MHZ. ";F
  39.  180  REM  CALCULATE STD DEVIATION(SIGMA) OF PATH LOSS
  40.  185  REM  AND STORE AS S
  41.  190  S = (5.47 *  FN LGT(F)) - 3.22
  42.  195  PRINT
  43.  200  PRINT "ARE BOTH RECEIVING AND TRANSMITTING ANTENNAS HIGHER THAN"
  44.  210  PRINT "30 FEET? ENTER YES OR NO: ";
  45.  220  INPUT Z$
  46.  230  IF LEFT$(Z$,1) = "Y" OR LEFT$(Z$,1) = "y" THEN 300
  47.  235  PRINT
  48.  240  PRINT "ARE BOTH RECEIVING AND TRANSMITTING ANTENNAS LOWER THAN"
  49.  250  PRINT "30 FEET? ENTER YES OR NO: ";
  50.  260  INPUT Y$
  51.  270  IF LEFT$(Y$,1) = "Y" OR LEFT$(Y$,1) = "y" THEN 320
  52.  275  PRINT
  53.  280  PRINT "COMPUTER ASSUMES ONE ANT. IS HIGHER, THE OTHER LOWER THAN 30'"
  54.  290  GOTO 0340
  55.  300 E = 1.0
  56.  310  GOTO 0345
  57.  320 E = 2.0
  58.  330  GOTO 0345
  59.  340 E = 3.0
  60.  345  PRINT
  61.  350  PRINT "ENTER HEIGHT OF HIGHER ANTENNA, IN FEET: ";
  62.  360  INPUT H1
  63.  370  REM   H1 IS H(T) IN EGLI MODEL
  64.  375  PRINT
  65.  380  PRINT "ENTER HEIGHT OF LOWER ANTENNA IN FEET: ";
  66.  390  INPUT H2
  67.  400  REM   H2 IS H(R) IN EGLI MODEL
  68.  405  PRINT
  69.  410  PRINT "ENTER TRANSMITTER POWER OUTPUT IN WATTS: ";
  70.  420  INPUT P
  71.  430 P = 10 * ( FN LGT(P / .001))
  72.  440  REM   P IS NOW STORED IN DBM, REF 1 MW/50 OHMS
  73.  445  PRINT
  74.  450  PRINT "ENTER TRANSMITTING ANTENNA GAIN IN DB ABOVE ISOTROPIC: ";
  75.  460  INPUT G1
  76.  485  PRINT
  77.  490  PRINT "ENTER TRANSMITTER TRANSMISSION LINE LOSS"
  78.  500  PRINT "IN DB FOR LENGTH ACTUALLY USED-ENTER AS POSITIVE VALUE: ";
  79.  510  INPUT L1
  80.  505  PRINT
  81.  520  PRINT "ENTER ANY ADDITIONAL LOSSES BETWEEN TRANSMITTER AND ANTENNA"
  82.  530  PRINT "SUCH AS FILTERS, DUPLEXER OR RELAY LOSSES, IN DB. "
  83.  535  PRINT "IF NONE, ENTER 0 : ";
  84.  550  INPUT A
  85.  560 L1 = L1 + A
  86.  565  PRINT
  87.  570  PRINT "ENTER RECEIVING ANTENNA GAIN IN DB ABOVE ISOTROPIC: ";
  88.  580  INPUT G2
  89.  605  PRINT
  90.  610  PRINT "ENTER RECEIVING TRANSMISSION LINE LOSS IN DB."
  91.  620  PRINT "FOR LENGTH ACTUALLY USED: ";
  92.  630  INPUT L2
  93.  635  PRINT
  94.  640  PRINT "ENTER ANY ADDITIONAL LOSSES SUCH AS FILTERS, DUPLEXERS OR"
  95.  650  PRINT "RELAY LOSSES IN DB. IF NONE , ENTER 0 :";
  96.  660  INPUT B
  97.  670 L2 = L2 + B
  98.  675  PRINT
  99.  680  PRINT "ENTER REQUIRED RECEIVED SIGNAL LEVEL IN MICROVOLTS."
  100.  690  PRINT "AT RECEIVER INPUT. USE VALUE REPRESENTATIVE OF LEVEL"
  101.  700  PRINT "NEEDED FOR GOOD OPERATIONAL S/N, NOT THE TYPICAL "
  102.  710  PRINT "10 OR 20DB S/N AS IN THE SENSITIVITY SPECIFICATION."
  103.  720  PRINT "IF NOT KNOWN, TRY 3 TIMES THE SENSITIVITY FIGURE :";
  104.  730  INPUT R
  105.  735 R = R * 1E-06
  106.  740 R = 10 *  FN LGT(((R ^ 2) / 50) / .001)
  107.  750  REM   R IS NOW STORED IN DBM
  108.  760  REM  CALCULATE ALLOWABLE MEDIAN PATH LOSS IN DB
  109.  770 Q = P + G1 - L1 + G2 - L2 - R
  110.  776  REM   ARRAY Q( ) TO START WITH 1
  111.  780 Q(1) = Q
  112.  790 Q(2) = Q - 0.53 * S
  113.  800 Q(3) = Q - 1.27 * S
  114.  810 Q(4) = Q - 1.65 * S
  115.  820 Q(5) = Q - 2.30 * S
  116.  830 Q(6) = Q - 3.05 * S
  117.  840  REM  ALLOWABLE PATH LOSS FOR VARIOUS RELIABILITIES CALCULATED.
  118.  850  IF E = 1.0 THEN 1000
  119.  860  IF E = 2.0 THEN 0900
  120.  870  IF E = 3.0 THEN 0900
  121.  880  PRINT "ERROR IN PGM LINE 0880"
  122.  900  FOR I = 1 TO 6 STEP 1
  123.  910 M(I) = Q(I) - 114.8 - (20 *  FN LGT(F)) + (20 *  FN LGT(H1)) + (20 *  FN LGT(H2))
  124.  915 MM(I) = Q(I) - 36.6 - (20 *  FN LGT(F))
  125.  920 N(I) = M(I) / 40
  126.  922 NN(I) = MM(I) / 20
  127.  925  IF NN(I) < N(I) THEN N(I) = NN(I)
  128.  930 D(I) = 10 ^ N(I)
  129.  933 D(I) =  INT (D(I) * 100) / 100
  130.  935  NEXT I
  131.  940  GOTO 1100
  132.  1000  FOR I = 1 TO 6 STEP 1
  133.  1010 M(I) = Q(I) - 100.0 - (20 *  FN LGT(F)) + (20 *  FN LGT(H1)) + (10 *  FN LGT(H2))
  134.  1015 MM(I) = Q(I) - 36.6 - (20 *  FN LGT(F))
  135.  1020 N(I) = M(I) / 40
  136.  1023 NN(I) = MM(I) / 20
  137.  1025  IF NN(I) < N(I) THEN N(I) = NN(I)
  138.  1030 D(I) = 10 ^ N(I)
  139.  1033 D(I) =  INT (D(I) * 100) / 100
  140.  1035  NEXT I
  141.  1040  GOTO 1100
  142.  1100  CLS
  143.  1101  PRINT "╔═══════════════════════════════════════════════════════════════╗"
  144.  1102  PRINT "║        VHF TERRESTRIAL PROPAGATION - MODULE 3                 ║"
  145.  1103  PRINT "╚═══════════════════════════════════════════════════════════════╝"
  146.  1110  PRINT
  147.  1115  PRINT
  148.  1120  PRINT
  149.  1125  PRINT
  150.  1130  REM   LINES RESERVED
  151.  1200  PRINT "      RELIABILITY / COMMUNICATIONS RANGE"
  152.  1205  PRINT "__________________________________________________"
  153.  1220  PRINT
  154.  1225  PRINT
  155.  1245  PRINT
  156.  1246  PRINT
  157.  1250  PRINT USING "RANGE WITH 50% RELIABILITY IS ###.# MILES ";D(1)
  158.  1260  PRINT USING "RANGE WITH 75% RELIABILITY IS ###.# MILES ";D(2)
  159.  1270  PRINT USING "RANGE WITH 90% RELIABILITY IS ###.# MILES ";D(3)
  160.  1280  PRINT USING "RANGE WITH 95% RELIABILITY IS ###.# MILES ";D(4)
  161.  1290  PRINT USING "RANGE WITH 99% RELIABILITY IS ###.# MILES ";D(5)
  162.  1300  PRINT USING "RANGE WITH 99_.9% RELIABILITY IS ###.# MILES ";D(6)
  163.  1310  PRINT
  164.  1320  PRINT "CHOOSE:"
  165.  1330  PRINT "          1) MORE CALCULATIONS"
  166.  1340  PRINT "          2) QUIT"
  167.  1345  PRINT "                   ENTER CHOICE (1 or 2): ";
  168.  1350  INPUT CX
  169.  1360  IF CX = 1 THEN GOTO MENU  ELSE GOTO ENDING
  170.  
  171.    ENDING:
  172.  
  173.         CLS
  174.         PRINT
  175.         LOCATE 10,25
  176.         PRINT "≡≡≡ PROGRAM COMPLETED ≡≡≡"
  177.  
  178.         END
  179.  
  180.  
  181.  
  182. '╔═══════════════════════════════════════════════════════════╗
  183. '║             Program Authorship Notice                     ║
  184. '║             ≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡                     ║
  185. '║                                                           ║
  186. '║              Jacob Z. Schanker, P.E.                      ║
  187. '║                                                           ║
  188. '║           Scientific Radio Systems, Inc.                  ║
  189. '║                367 Orchard Street                         ║
  190. '║                Rochester, NY 14606                        ║
  191. '║                  (716) 235-2040                           ║
  192. '║                                                           ║
  193. '║              Last revised: March 1988                     ║
  194. '║                                                           ║
  195. '╚═══════════════════════════════════════════════════════════╝
  196.