This program calculates signal strengths based on tropospheric  scattering of VHF/UHF/Microwave radio signals, receiver characteristics  antenna gains and transmitter power.H d TROPOSCATTER PATH LOSS CALCULATORq n H1(),H2(),D1(),A(),A$(),J()~ xR1 1! P1 I X(X) (X) 1_^ Y(X) ( X )  N   N    6  );"TROPO PATH LOSS CALCULATOR"> HN S f[ eN p fx " , 6 "FREQUENCY OF OPERATION (MHZ)";@ FJ T F  6^ SCATTER ANGLE CALCULATIONhB0 D  (R1 P1)rN *| 4N ? XB B0 J() J()p FREE SPACE LOSSL1   X(D)  X(F) SCATTER LOSSL2   B  X(F) APERTURE COUPLING LOSSA1 (A() A())*L3 ( B A1) B TOTAL PATH LOSSXL0 L1 L2 L3 " TROPOSCATTER PATH ";A$();" TO ";A$() " FOR A FREQUENCY OF ";F;" MHZ."  " PATH LOSS "; Y(L0);"DB."& )0 "STATION ";A$();" LOSS CONTRIBUTION "; Y( J());" DB."n: "STATION ";A$();" LOSS CONTRIBUTION "; Y( J());" DB."vD N " SCATTERING ANGLE "; Y(B);" DEGREES."X b "PRESS RETURN TO CONTINUE";l X$v  " DO YOU WISH : TO RESTART THE PROGRAM (1)"I );" TO ALTER STATION A PARAMETERS (2)"z );"TO ALTER STATION B PARAMETERS (3)" );"TO CORRECT FOR REFRACTION (4)" );"TO CHANGE FREQUENCY AND ALSO" );"ANTENNA BEAMWIDTHS(5)"& );"OR CONTINUE WITH LINK BUDGET(6). 7 XJ X  ] X  np X   X    X     X   l  "WHAT N-VALUE";* N4L4 L~ (N 6)> " CORRECTION IS "; Y(L4);" DB."SH " THE CORRECTED PATH LOSS IS "; Y(L0 L4);" DB."^R X\ ROUTINE TO INPUTT AND UPDATE STATION PARAMETERSf p N  "A ";z N  "B "; "STATION IDENTIFIER ";A$(N); A$(N) " "  A$(N)# E " HEIGHT OF STATION (M) ";\ H1(N)  i H1(N)t  H1(N) " HEIGHT OF OBSTRUCTION (M) "; H2(N)   H2(N)  H2(N)  " DISTANCE TO OBSTRUCTION (KM) ";# D1(N)  80$ D1(N);. BH8 D1(N)kB "ANTENNA BEAMWIDTH (DEG) ";L A(N)  jV A(N)` tj A(N)t N  ~ " DISTANCE BETWEEN STATIONS (KM) "; D   D   D$ ZERO TRAP: A(N)  fQ H1(N)  fh H2(N)  f D1(N)  f N   D  f  CHANGE FREQ. AND ANT. BEAMWIDTHS   " NEW FREQUENCY"; F( .2 "STATION ";A$();" BEAMWIDTH";8< A1^F "STATION ";A$();" BEAMWIDTH";jP A()uZ Jd CHANGE STATION PARAMETERSnN x N   f J CALCULATES STATION ANGLES"H3 (H2(N) H1(N)) (D1(N) )GJ(N) (H3 (D1(N) ( R1)))aJ(N) J(N)  P1i  " PARAMETER TO CHANGE:" );"STATION HEIGHT (1)" );"OBSTRUCTION HEIGHT (2)" );"OBSTRUCTION DISTANCE (3)" );"ANTENNA BEAMWIDTH (4)"> );"STATION IDENT (5)"l N  );"DISTANCE A TO B (6)"" );"ALL PARAMETERS (7)", );"RESTART CALCULATION (8)"6 "WHAT PARAMETER NUMBER";@ XJ X  6T X  6^ X  -h X  @r X  [| X  A$(N) " "s X  A(N)  X  D1(N)  X  H2(N)  X  H1(N)  "DONE." 6 N  " NOT ALLOWED" N  6D $ I RESET ALL STATION PARAMETERSa N  "A ";y N  "B "; "PARAMETERS RESET"D1(N) H1(N) &H2(N) 0A(N) :A$(N) " "D N  D N X ERROR TRAP* THIS PROGRAM CALCULATESE LINE OF SIGHT LINK_ BUDGETS, WITH THE FACILITY TO INCLUDE EXTRA LOSS (EG. ABSORPTION, TROPOSCATTER ETC.).   C.W. SUCKLING 11/3/1983  * DATA INPUT DRIVER4 > &H 1R <\ Gf Rp  ]z  x INITIAL DATA INPUT "RX NOISE TEMP OR NOISE FIGURE? ";N  "RX BANDWIDTH (HZ)? ";B    "ANTENNA 1 PARAMS. DIA(FT) OR .DB)? ";D1 J "ANTENNA 2 PARAMS. DIA(FT) OR .DB)? ";D2R l "TX POWER (W)? ";Pt |   ANTENNA CALCULATIONS$ D D1: L . G1 G:A1$ D$:A1 A8 D D2: L  B G2 G:A2$ D$:A2 A: ~  L D  ` b V D$ "FT":G (M ( # D D F F)) <:A D: j ` D$ "DB":G d D:A G j t CONVERSION OF NOISE FIGURE TO NOISE TEMPERATURE ~ N   N$ "K":NN N  ! NN " ( (k~ N) )+! N$ "DB":W! CALCULATION OF RECEIVER NOISE POWER! RS d (M (NN)) M (B)! CALCULATION OF SIGNAL TO NOISE RATIO! PL (L0 d) d" SN G1 G2 (M (P)) PL RS$" DATA OUTPUT SECTIONY" : : "CODE PARAMETER CURRENT VALUE"a" " "1 NOISE TEMP/FIG ";N;N$" "2 BANDWIDTH ";B;"HZ"" "3 FREQUENCY ";F;"MHZ"" "4 ANTENNA1 ";A1;A1$## "5 ANTENNA2 ";A2;A2$I#( "6 TX POWER ";P;"W"q#2 "7 PATH LOSS ";PL;"DB"#< SN (SN d) d#F #P "SIGNAL TO NOISE RATIO = ";SN;"DB "#Z RE-RUN MENU#d "NEW PARAM CODE, OR QUIT(Q)? ";A$"$n DATA INPUT FOR NEW PARAMETER;$x A$ "Q"  T$ A$ "1" m$ A$ "2" $ A$ "3" "NOT ALLOWED": d $ A$ "4" $ A$ "5" $ A$ "6"  % A$ "7" "NOT ALLOWED": d %% A$ "8" 0%  8%