FEEDLINE LOSS & EFFECTIVE RADIATED POWER PROGRAM CODED BY BILL FORD TYPED BY W8RZG ------- ARC E'D & EDITED TO RUN BY K4EDE S  :"=";: S:"THIS PACKAGE IS OF PARTICULAR INTEREST TO YOU IF YOU ARE DESIGNING AN ANTENNA SYSTEM FOR AN AMATEUR OR COMMERCIAL INSTALLATION.":y"YOU WILL BE ABLE TO COMPARE VARIOUS COMBINATIONS OF ANTENNA-FEEDLINE TYPES TO OBTAIN THE MOST PRACTICAL EFFECTIVE RADIATED POWER FOR THE TYPE OF ANTENNA OR FEEDLINE IN PROGRAM /A/.":"PROGRAM /B/ ALLOWS YOU TO DETERMINE EXACTLY HOW MUCH LOSS IN DB CAN BE ALLOWED FOR A PARTICULAR ERP OUTPUT": S :"=";: S:)"DO YOU WANT TO RUN A OR B";A$:B S @:"=";: SV A$"B" n "THIS PROGRAM COMPUTES THE EFFECTIVE RADIATED PWR"  "AS WELL AS THE FEEDLINE LOSS OF ANY TRANSMITTER-""ANTENNA SYSTEM, BASED ON XMTR OUTPUT POWER," 2"FEEDLINE AND ANTENNA EFFICIENCY"K S @:"=";: S~::"DO YOU NEED INSTRUCTIONS (Y)es/(N)o ";A$ A$ "Y" A$ "y" 7 C:"WHAT IS THE TRANSMITTER OUTPUT POWER";TP::"HOW MANY FEET OF FEEDLINE DO YOU PLAN ON USING";FL IF INTERPOLATION WAS USED THE STEP ASKING FOR FEED-LINE LOSS IS OMMITTED. VALUE LL IS USED DIRECTLY LL ::" WHAT IS THE LOSS IN DB/100 FT OF YOUR FEEDLINE";LL+::"WHAT IS THE GAIN OF YOUR ANTENNA SYSTEM IN DB (IF UNITY GAIN DB GAIN IS 0)";AGc CALCULATE TOTAL LOSS FOR ENTIRE LENGTH OF CABLErLFLdLL{L1L S PLP1! CALCULATES ERP AFTER FIRST DETERMINING POWER DELIVEREDTO ANTENNA"PATPP1#LAG$ S%::)&" TRANSMITTER OUTPUT..";TP;"WATTS"P(" FEEDLINE LENGTH.....";FL;"FEET"u*" LOSS/100 FT.........";LL;"DB"," LOSS OF ENTIRE RUN..";L1;"DB"." LOSS OF ENTIRE RUN..";PA;"WATTS"0" POWER TO ANTENNA....";PL;"WATTS"2" ERP.................";E;"WATTS"3G4LL:" DO YOU WANT ANOTHER CALCULATION";A$h5 (A$,)"Y" C: r6 m7: S :"=";: S :"YOU WILL BE ASKED TO ENTER VARIOUS OPERATION PARAMETERS "; 8"OF YOUR PROPOSED TRANSMITTING SYSTEM. THESE WILL BE: ";I9"TRANSMITTER OUTPUT POWER; LENGTH OF FEEDLINE; FEEDLINE ";:"LOSS AT OPERATING FREQUENCY IN DB/100 FT; & ANTENNA GAIN IN DB.";<"ENTER ALL FREQUENCIES IN MHZ. FOR YOUR CONVENIENCE AN ABBREVIATED TABLE OF MORE COMMON COAX TYPES AND LOSSES IS GIVEN. ";U="USE THIS TABLE,OR ANY SIMILIAR TABLE FOR YOUR CALCULATIONS.";>"AN OPTION WHICH ALLOWS YOU TO INTERPOLATE FROM THE TABLE IS ALSO INCLUDED";? S :"=";: S:@:"PRESS ENTER TO CONTINUE";A$A CB ,C:"LOSSES OF COMMONLY USED COAX IN DB/100 FT"4D:>E GHF OG"TYPE 1MHZ 10 100 400 1000 ":"9913 1.9 2.1 4.5"H"RG17 .06 .24 .95 2.4 4.4I"RG-8 .16 .55 2.0 4.5 8.5J"RG-11 .18 .62 2.2 4.7 8.5-K"RG-58 .38 1.4 5.2 11.2 20.0SL"RG-59 .30 1.1 3.8 8.5 14.0zM"AIR .02 .058 .19 .35 .60NO:"VALUES FOR OTHER FREQUENCIES CAN BE OBTAINED BY INTERPOLATION"P"DO YOU NEED TO INTERPOLATE FROM THE TABLE";A$Q (A$,) "Y" [RKS CALCULATE ACTUAL LOSS FROM DB VALUEST FIRST OBTAIN LOG FROM DB BY DIVIDING BY 10ULL V ANTILOG OF "L"WAL LXP1TPALYEALPL:EE Z[ INTERPOLATION SUBROUTINE"\:::"WHAT IS OPERATING FREQUENCY";OF:,] G~^::"WHAT IS CLOSEST FREQUENCY BELOW OPERATING FREQUENCY LISTED IN TABLE";LF_: G`::"WHAT IS THE NEXT HIGHER FREQUENCY LISTED";HFa: Gb::"GIVE LOSS AT NEXT LOWER FREQUENCY";L1 c: G:d::"GIVE LOSS AT NEXT HIGHER FREQUENCY";L2GeFDHFLFTfLDL2L1agODOFLFqhOLODLDFD~iLLOLL1j:"LOSS OF TRANSMISSION LINE AT";OF;"MHZ IS";LL;"DB/100 FT"k W : Wl!m::: "BCBCBC":"ARE YOU SURE? A (Y)es WILL CLEAR PROGRAM";: C$Cn C$ "y" C$ "Y" : Oo: s  ,:"WHAT IS YOUR DESIRE?" ,:"RETURN TO MAIN MENU..................1" ,:"RETURN TO BASIC......................2" ,:"RETURN TO MS-DOS.....................3". ,:"SELECT ";CP C : C ,m,mb :"MAINMENU"