home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / ham&el#4 / radpower.bas < prev   
BASIC Source File  |  1986-05-16  |  4KB  |  104 lines
  1.  
  2. 1 CLS
  3. 2 REM   FEEDLINE LOSS & EFFECTIVE RAD PWR PROGRAM
  4. 3 REM   CODED BY BILL FORD
  5. 4 REM   TYPED BY W8RZG
  6. 5 FORS=1TO32:PRINT"=";:NEXTS:PRINT"THIS PACKAGE IS OF PARTICULAR INTEREST TO YOU IF YOU ARE DESIGNING AN ANTENNA SYSTEM FOR AN AMATEUR OR COMMERCIAL INSTALLATION."
  7. 6 PRINT" 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/.
  8. 7 PRINT"PROGRAM /B/ ALLOWS YOU TO DETERMINE EXACTLY HOW MUCH LOSS IN DB CAN BE ALLOWED FOR A PARTICULAR ERP OUTPUT":FORS=1TO31:PRINT"=";:NEXTS:PRINT
  9. 8 INPUT"DO YOU WANT TO RUN A OR B";A$:CLS
  10. 9 FOR S=1TO64:PRINT"=";:NEXTS
  11. 10 IF A$="B"THEN GOTO 110
  12. 11 PRINT"THIS PROGRAM COMPUTES THE EFFECTIVE RADIATED PWR"
  13. 12 PRINT
  14. 13 PRINT"AS WELL AS THE FEEDLINE LOSS OF ANY TRANSMITTER-"
  15. 14 PRINT
  16. 15 PRINT"ANTENNA SYSTEM, BASED ON XMTR OUTPUT POWER,"
  17. 16 PRINT
  18. 17 PRINT"FEEDLINE AND ANTENNA EFFICIENCY"
  19. 18 FOR S=1TO64:PRINT"=";:NEXTS
  20. 19 PRINT:PRINT:INPUT"DO YOU NEED INSTRUCTIONS";A$
  21. 20 IF LEFT$(A$,1)="Y"THEN55
  22. 21 GOSUB67
  23. 22 CLS:INPUT"WHAT IS THE TRANSMITTER OUTPUT POWER";TP
  24. 23 PRINT:PRINT:INPUT"HOW MANY FEET OF FEEDLINE DO YOU PLAN ON USING";FL
  25. 24 REM  IF INTERPOLATION WAS USED THE STEP ASKING FOR FEED-LINE LOSS IS OMMITTED.  VALUE LL IS USED DIRECTLY
  26. 25 IF LL<>0 THEN 27
  27. 26 PRINT:PRINT:INPUT" WHAT IS THE LOSS IN DB/100 FT   OF YOUR FEEDLINE";LL
  28. 27 PRINT:PRINT:INPUT"WHAT IS THE GAIN OF YOUR ANTENNA SYSTEM IN DB (IF UNITY GAIN DB GAIN IS 0)";AG
  29. 28 REM   CALCULATE TOTAL LOSS FOR ENTIRE LENGTH OF CABLE
  30. 29 L=FL/100*LL
  31. 30 L1=L
  32. 31 GOSUB83
  33. 32 PL=P1
  34. 33 REM  CALCULATES ERP AFTER FIRST DETERMINING POWER DELIVEREDTO ANTENNA
  35. 34 PA=TP-P1
  36. 35 L=AG
  37. 36 GOSUB83
  38. 37 CLS:PRINT:PRINT
  39. 38 PRINT" TRANSMITTER OUTPUT..";TP;"WATTS"
  40. 40 PRINT" FEEDLINE LENGTH.....";FL;"FEET"
  41. 42 PRINT" LOSS/100 FT.........";LL;"DB"
  42. 44 PRINT" LOSS OF ENTIRE RUN..";L1;"DB"
  43. 46 PRINT" LOSS OF ENTIRE RUN..";PA;"WATTS"
  44. 48 PRINT" POWER TO ANTENNA....";PL;"WATTS"
  45. 50 PRINT" ERP.................";E;"WATTS"
  46. 51 PRINT
  47. 52 LL=0:INPUT" DO YOU WANT ANOTHER CALCULATION";A$
  48. 53 IFLEFT$(A$,1)="Y" GOSUB67:GOTO22
  49. 54 GOTO 109
  50. 55 CLS:FORS=1TO31:PRINT"=":PRINT"YOU WILL BE ASKED TO ENTER VARIOUS OPERATION PARAMETERS ";
  51. 56 PRINT"OF YOUR PROPOSED TRANSMITTING SYSTEM. THESE WILL BE: ";
  52. 57 PRINT"TRANSMITTER OUTPUT POWER; LENGTH OF FEEDLINE; FEEDLINE ";
  53. 58 PRINT"LOSS AT OPERATING FREQUENCY IN DB/100 FT; & ANTENNA GAIN IN DB.";
  54. 60 PRINT"ENTER ALL FREQUENCIES IN MHZ. FOR YOUR CONVENIENCE AN ABBREVIATED TABLE OF MORE COMMON COAX TYPES AND LOSSES IS GIVEN. ";
  55. 61 PRINT"USE THIS TABLE,OR ANY SIMILIAR TABLE FOR YOUR CALCULATIONS.";
  56. 62 PRINT" AN OPTION WHICH ALLOWS YOU TO INTERPOLATE FROM THE TABLE IS ALSO INCLUDED";
  57. 63 FOR S=1TO5:PRINT"=";:NEXTS
  58. 64 INPUT"PRESS ENTER TO CONTINUE";A$
  59. 65 GOSUB67
  60. 66 GOTO22
  61. 67 CLS:PRINT"LOSSES OF COMMONLY USED COAX IN DB/100 FT"
  62. 68 PRINT:PRINT
  63. 69 GOSUB71
  64. 70 GOTO79
  65. 71 PRINT"TYPE  1MHZ  10  100   400  1000   ":PRINT"9913            1.9   2.1   4.5"
  66. 72 PRINT"RG17  .06  .24   .95  2.4   4.4
  67. 73 PRINT"RG-8  .16  .55  2.0   4.5   8.5
  68. 74 PRINT"RG-11 .18  .62  2.2   4.7   8.5
  69. 75 PRINT"RG-58 .38 1.4   5.2  11.2  20.0
  70. 76 PRINT"RG-59 .30 1.1   3.8   8.5  14.0
  71. 77 PRINT"AIR   .02  .058  .19   .35   .60
  72. 78 RETURN
  73. 79 PRINT:PRINT"VALUES FOR OTHER FREQUENCIES CAN BE OBTAINED BY INTERPOLATION"
  74. 80 INPUT"DO YOU NEED TO INTERPOLATE FROM THE TABLE";A$
  75. 81 IF LEFT$(A$,1)="Y" GOSUB91
  76. 82 RETURN
  77. 83 REM    CALCULATE ACTUAL LOSS FROM DB VALUES
  78. 84 REM    FIRST OBTAIN LOG FROM DB BY DIVIDING BY 10
  79. 85 L=L/10
  80. 86 REM   ANTILOG OF "L"
  81. 87 AL=10^L
  82. 88 P1=TP/AL
  83. 89 E=AL*PL
  84. 90 RETURN
  85. 91 REM   INTERPOLATION SUBROUTINE
  86. 92 CLS:PRINT:PRINT:INPUT"WHAT IS OPERATING FREQUENCY";OF:CLS
  87. 93 GOSUB71
  88. 94 PRINT:PRINT:INPUT"WHAT IS CLOSEST FREQUENCY BELOW OPERATING FREQUENCY LISTED IN TABLE";LF
  89. 95 CLS:GOSUB71
  90. 96 PRINT:PRINT:INPUT"WHAT IS THE NEXT HIGHER FREQUENCY LISTED";HF
  91. 97 CLS:GOSUB71
  92. 98 PRINT:PRINT:INPUT"GIVE LOSS AT NEXT LOWER FREQUENCY";L1
  93. 99 CLS:GOSUB71
  94. 100 PRINT:PRINT:INPUT"GIVE LOSS AT NEXT HIGHER FREQUENCY";L2
  95. 101 FD=HF-LF
  96. 102 LD=L2-L1
  97. 103 OD=OF-LF
  98. 104 OL=OD*LD/FD
  99. 105 LL=OL+L1
  100. 106 CLS:PRINT"LOSS OF TRANSMISSION LINE AT";OF;"MHZ IS";LL;"DB/100 FT"
  101. 107 FOR W=1TO1500:NEXTW
  102. 108 RETURN
  103. 109 RUN"MENU/RAN":END
  104.