home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / design1 / s-match.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-04-16  |  2.8 KB  |  91 lines
  1. 10   CLS
  2. 20  PRINT "********************************************************************"
  3. 30  PRINT "* THIS PROGRAM CALCULATES THE DISTANCE AND LENGTH A SINGLE SHUNT   *"
  4. 40  PRINT "*                                                                  *"
  5. 50  PRINT "* STUB MUST BE PLACED TO GIVE A PERFECT MATCH TO THE LOAD          *"
  6. 60  PRINT "********************************************************************"
  7. 70  PRINT
  8. 80  PI = 4*ATN(1)
  9. 90  REM PROGRAM FOR CALCULATING THE DISTANCE FROM THE LOAD AND LENGTH OF A SINGLE STIB TUNER
  10. 100   REM BY MARK R. PERHACS 5-87
  11. 110   PRINT "SINGLE STUB MATCHING PROGRAM V1.2"
  12. 120   PRINT
  13. 130   PRINT "FOR SHORTED OR OPEN, SHUNT CONNECTED STUB OF SAME ZO AS THE MAIN LINE"
  14. 140   PRINT
  15. 150   INPUT "PLEASE INPUT THE CHARAACTERISTIC IMPEDANCE";ZO
  16. 160   PRINT
  17. 170  INPUT "PLEASE INPUT THE REAL PART OF THE LOAD";RL :PRINT
  18. 180  INPUT "PLEASE INPUT THE IMAGINARY PART OF THE LOAD";IL :PRINT
  19. 190  INPUT "PLEASE INPUT THE FREQUENCY OF OPERATION IN HERTZ";F:PRINT
  20. 200  IF F = 0 THEN PRINT"YOU DON'T NEED A TRANSMISSION LINE FOR D C":PRINT:END
  21. 210  PRINT "THE VELOCITY FACTOR OF MOST STANDARD TRANSMISSION LINES IS APPROX 66%":PRINT
  22. 220  PRINT "FOR THE PURPOSE OF THIS PROGRAM THE VELOCITY IS USED TO FIND THE"
  23. 230  PRINT
  24. 240  PRINT "WAVELENGTH.  YOU MAY CHOOSE IT TO BE  1 FOR FREE SPACE":PRINT
  25. 250  INPUT"PLEASE INPUT THE VELOCITY OF YOUR TRANSMISSION LINE IN DECMAL FORM";VP:PRINT
  26. 260  CLS
  27. 270  REM CALCULATE THE WAVELENGTH
  28. 280  C = 9.98E+08
  29. 290  IF VP = 0 THEN VP = 0.000999999
  30. 300  WL = (C * VP)/F
  31. 310  AA = RL- ZO
  32. 320  IF AA = 0 THEN AA = 9.9999E-05
  33. 330  BB = RL+ZO
  34. 340  IF IL = 0 THEN GOTO 450
  35. 350  MAG =SQR(AA^2+IL^2)
  36. 360  AN = ABS(IL/AA)
  37. 370  A1=ATN(AN)
  38. 380  A1=(A1*57.2958)
  39. 390  MAGN =SQR(BB^2+IL^2)
  40. 400  ANG=ABS(IL/BB)
  41. 410  A2=ATN(ANG)
  42. 420  A2=(A2*57.2958)
  43. 430  ANS=MAG/MAGN
  44. 440  PHA= A1-A2:GOTO 470
  45. 450  GAMMA = (RL-ZO)/(RL+ZO)
  46. 460  VSWR = (1+GAMMA)/(1-GAMMA):GOTO 480
  47. 470  VSWR = (1+ ANS)/(1-ANS)
  48. 480  REM CALCULATE  THE DISTANCE FROM THE LOAD THE STUB MUST BE PLACED
  49. 490  X = SQR(VSWR)
  50. 500  Y = (2 * 3.1415)/WL
  51. 510  Z = ATN(X)
  52. 520  DIST = Z/Y
  53. 530  REM NORMALIZE WITH RESPECT TO THE SMITH CHART
  54. 540  NORMDIST = DIST/WL
  55. 550  PRINT"THE STUB SHOULD BE PLACED"NORMDIST"WAVELENGTHS FROM THE LOAD"
  56. 560  PRINT:PRINT
  57. 570  PRINT "THE VSWR OF YOUR TRANSMISSION LINE IS :";VSWR
  58. 580  REM CALCULATE R H S  VSWR
  59. 590  Z1 = VSWR * X
  60. 600  B1 = SQR(VSWR^2+VSWR)
  61. 610  B2 = ABS(X/VSWR)
  62. 620  B3 = ATN(B2)
  63. 630  B3 = (B3*57.2958)
  64. 640  C1 = SQR(1+Z1^2)
  65. 650  C2 = ABS(Z1)
  66. 660  C3 = ATN(C2)
  67. 670  C3 = (C3*57.2958)
  68. 680  D1 = B1/C1
  69. 690  D2 = B3-C3
  70. 700  E1 = WL/(2*PI)
  71. 710  E2 = SQR(D1*(D1+1))
  72. 720  E3 = D1/ E2
  73. 730  L1 = ATN(E3)
  74. 740  L2 = (E1*L1)
  75. 750  L =L2/360
  76. 760  PRINT:PRINT
  77. 770  PRINT "WOULD YOU LIKE TO USE AN OPEN SHUNT STUB OR A SHORTED SHUNT STUB?(O/S)"
  78. 780  INPUT A$
  79. 790  LO = L + 0.25
  80. 800  PRINT:PRINT
  81. 810  IF A$ = "S" THEN 840
  82. 820  PRINT"FOR AN OPEN STUB YOU NEED A LENGTH OF =";LO"WAVELENGTHS":GOTO 860
  83. 830  PRINT
  84. 840  PRINT "FOR A SHORTED STUB YOU NEED A LENGTH OF =";L"WAVELENGTHS"
  85. 850  PRINT
  86. 860  INPUT"DO YOU WANT A HARD COPY (Y/N)";H$
  87. 870  PRINT
  88. 880  IF H$ ="Y" THEN GOTO 890 ELSE END
  89. 890  IF A$ = "S" THEN LPRINT"FOR A SHORTED STUB YOU NEED A LENGTH OF ";L"WAVELENGTHS" ELSE LPRINT"FOR AN OPEN STUB YOU NEED A LENGTH OF";L"WAVELENGTHS"
  90. 900  END
  91.