home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / eepub10 / match.bas < prev    next >
Encoding:
BASIC Source File  |  1985-01-01  |  3.8 KB  |  118 lines
  1. 1    DEFDBL A-Z
  2. 10 REM THIS PROGRAM ALLOWS ONE TO CALCULATE STUB WAVELENGTH, PROGRAM NAME "MAT"
  3. 20 PRINT " PROGRAM FOR STUB WAVELENGTH CALCULATION "
  4. 30 PRINT:PRINT:PRINT
  5. 40 INPUT "Z0= ";Z0:LPRINT "Z0= ";Z0
  6. 50 R0=1/Z0
  7. 60 INPUT "RHOMAG= ";R1:LPRINT "RHOMAG=";R1
  8. 70 INPUT "RHOANG= ";R2:LPRINT "RHOANG=";R2
  9. 80 INPUT "RSOURSE= ";RS: LPRINT "RSOURCE= ";RS
  10. 85 R9=1/(RS*R0)
  11. 90 R3=1/(2*R1*COS(R2*.017453#)+R1^2+1)
  12. 100 R4=(1-R1^2)*R3
  13. 110 R5=-2*R3*R1*SIN(R2*1.745329E-02)
  14. 115 PRINT "SERIES LINES":LPRINT "SERIES LINES"
  15. 120 R9=1/(RS*R0)
  16. 130 R6=SQR(((-R9^2*R4)+R4^2+(R5^2*R9)-R4+R9)*R4)
  17. 140 R7= 1/(((R4^2+R5^2)*R9)-R4)
  18. 141 PRINT R0,R1,R2,R3,R4,R5,R6,R7,R9: LPRINT R0,R1,R2,R3,R4,R5,R6,R7,R9
  19. 150 L1=(ATN((R9*R5+R6)*R7))*57.29577951#/360#
  20. 160 IF L1>0 THEN 170 ELSE 200
  21. 170 PRINT "SERIES LINE":LPRINT "SERIES LINE"
  22. 180 PRINT "L1= ";L1;"LAMBDA":LPRINT "L1= ";L1;" LAMBDA"
  23. 190 GOTO 240
  24. 200 L1=L1+.5#
  25. 210 PRINT "HALF-WAVE ADDED":LPRINT "HALF-WAVE ADDED"
  26. 220 PRINT "SERIES LINE":LPRINT "SERIES LINE"
  27. 230 PRINT "L1= ";L1;" LAMBDA":LPRINT "L1= ";L1;" LAMBDA"
  28. 240 RR=L1*360#*.017453#
  29. 250 BT=R5+TAN(RR)-(TAN(RR))^2*R5-((R5^2+R4^2)*TAN(RR))
  30. 252 BT=INT(BT)
  31. 260 IF BT<0 THEN 270 ELSE 290
  32. 270 PRINT"USE OSTB":LPRINT  "USE OSTB"
  33. 280 GOTO 310
  34. 290 PRINT "USE SSTB":LPRINT  "USE SSTB"
  35. 310 REM
  36. 320 L2=(ATN((R9*R5-R6)*R7))*57.29578#/360#
  37. 330 IF L2>0 THEN 340 ELSE 370
  38. 340 PRINT "SERIES LINE":LPRINT "SERIES LINE"
  39. 350 PRINT "L2=";L2;" LAMBDA":LPRINT  "L2= ";L2;"LAMBDA"
  40. 360 GOTO 410
  41. 370 L2=L2+.5#
  42. 380 PRINT"HALFWAVE ADDED":LPRINT "HALFWAVE ADDED"
  43. 390 PRINT "SERIES LINE":LPRINT "SERIES lINE"
  44. 400 PRINT "L2= ";L2;" LAMBDA":LPRINT "L2=";L2;" LAMBDA
  45. 410 RR=L2*360#*.017953#
  46. 420 BT=R5+TAN(RR)-(TAN(RR))^2*R5-((R5^2+R4^2)*TAN(RR))
  47. 422 BT=INT(BT)
  48. 430 IF BT<0 THEN 440 ELSE 460
  49. 440 PRINT "USE OSTB":LPRINT "USE OSTB"
  50. 450 GOTO 470
  51. 460 PRINT "USE SSTB":LPRINT  "USE SSTB"
  52. 470 REM
  53. 480 PRINT "STUBS":LPRINT "STUBS"
  54. 490 R8=1/SQR((((R5^2+R4^2+1)-(R4*R9))*R9)*R9/R4)
  55. 500 SS=(ATN(R8))*57.29578#/360#
  56. 510 PRINT "SHORTED STUB":LPRINT  "SHORTED STUB"
  57. 520 PRINT "SS= ";SS;" LAMBDA":LPRINT "SS= ";SS;" LAMBDA
  58. 530 OS=(ATN(1/R8))*57.29578#/360#
  59. 540 PRINT "OPEN STUB":LPRINT "OPEN STUB"
  60. 550 PRINT "OS= ";OS;" LAMBDA":LPRINT "OS= ";OS;" LAMBDA"
  61. 560 R6=Z0
  62. 570 INPUT "WANT A NEW Z0 (Y-N)";AA$
  63. 575 PRINT:PRINT
  64. 580 IF AA$="Y" THEN 590 ELSE END
  65. 590 INPUT "ENTER NEW Z0";R4:LPRINT "NEW Z0= ";R4
  66. 600 R0=1/R4
  67. 610 INPUT "ENTER NEW RSOURCE";RS:LPRINT "RS= ";RS
  68. 620 R9=1/(RS*R0)
  69. 630 R5=COS(R2*.017453#)*R1*(-2)+R1^2+1:PRINT R5
  70. 640 R7=(-R1^2+1)*R6/R5:PRINT R7
  71. 650 R3=2*R1*SIN(R2*.017453#)*R6/R5: PRINT  R3
  72. 660 RA = R7-R4
  73. 670 RB=R3
  74. 680 RC = R7 + R4
  75. 690 RD = R3
  76. 700 RE = SQR(RA^2+RB^2)
  77. 705 A=INT(RA): B= INT(RB)
  78. 710 IF A = 0 AND B > 0 THEN 720 ELSE 730
  79. 720 RF = 90: GOTO 780
  80. 730 IF A = 0 AND B < 0 THEN  740 ELSE 750
  81. 740 RF = -90 : GOTO 780
  82. 750 IF A> 0 AND B =0 THEN 755 ELSE 760
  83. 755 RF = 0 : GOTO 780
  84. 760 IF A < 0 AND B = 0 THEN 765 ELSE 770
  85. 765 RF = 180 : GOTO 780
  86. 770 RF = ATN(RB/RA)*57.295768#
  87. 771 IF A > 0 AND B> 0 THEN 772 ELSE 773
  88. 772 RF = RF: GOTO 780
  89. 773 IF A < 0 AND B> 0 THEN 774 ELSE 775
  90. 774 RF = 180 + RF: GOTO 780
  91. 775 IF A < 0 AND B < 0 THEN 776 ELSE 777
  92. 776 RF = RF -180 : GOTO 780
  93. 777 IF A > 0 AND B< 0 THEN 778
  94. 778 RF = RF
  95. 780 C = INT(RC) : D = INT(RD)
  96. 790 RG = SQR(RC^2+RD^2)
  97. 800 IF C = 0 AND D >0 THEN 810 ELSE 820
  98. 810 RH = 90: GOTO 970
  99. 820 IF C = 0 AND D< 0 THEN 830 ELSE 840
  100. 830 RH = -90: GOTO 970
  101. 840 IF C > 0 AND D = 0 THEN 850 ELSE 860
  102. 850 RH = 0 : GOTO 970
  103. 860 IF C < 0 AND D = 0 THEN 870 ELSE 880
  104. 870 RH = 180 : GOTO 970
  105. 880 RH = ATN( RD/RC)*57.295768#
  106. 890 IF C > 0 AND D > 0 THEN 900 ELSE 910
  107. 900 RH = RH : GOTO 970
  108. 910 IF C<0 AND D>0 THEN 920 ELSE 930
  109. 920 RH = 180+RH : GOTO 970
  110. 930 IF C< 0 AND D< 0 THEN 940 ELSE 950
  111. 940 RH = RH -180 : GOTO 970
  112. 950 IF C > 0 AND D< 0 THEN 960
  113. 960 RH = RH
  114. 970 REM
  115. 980 R1 = RE/RG
  116. 990 R2=RF-RH
  117. 1000  GOTO 90
  118.