home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / rf3 / t-net.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  2.6 KB  |  101 lines
  1. 10  REM          PROGRAM FOR CALCULATING S-PARAMATERS
  2. 20  REM                      FOR T NETWORKS
  3. 30  PRINT:PRINT, "k2uyh --- modified for ibm pc ---- wa2tif":PRINT
  4. 40  REM ******************* SIGN ON *************************************
  5. 50  REM
  6. 60  PRINT "PROGRAM FOR COMPUTING S-PARAMETERS OF TWO PORT T NETWORKS"
  7. 70  PRINT
  8. 80  REM
  9. 90  REM ************ INPUT OF COMPONENT VALUES **************************
  10. 100  REM
  11. 105  PI=3.1416
  12. 110  PRINT "CHARACTERISTIC IMPEDANCE =";
  13. 120  INPUT Z
  14. 130  PRINT
  15. 140  FOR I=1 TO 3 STEP 1
  16. 150  PRINT "REAL PART OF Z";I;"=";
  17. 160  INPUT R(I)
  18. 170  PRINT "IMAGINERY PART OF Z";I;"=";
  19. 180  INPUT X(I)
  20. 190  R(I)= R(I)/Z
  21. 200  X(I)= X(I)/Z
  22. 210  PRINT
  23. 220  NEXT I
  24. 230  REM **************  CALCULATION OF S11 *****************************
  25. 240  REM
  26. 250  REM PRECISION (5)
  27. 260  DIM I(10)
  28. 270  DIM D(5)
  29. 280  DIM S(5)
  30. 290  T1= SQR((1+R(3))^2 + X(3)^2)
  31. 300  A1= ATN(X(3)/(1+R(3)))
  32. 310  T2= SQR(R(2)^2 + X(2)^2)
  33. 320  A2= ATN(X(2)/R(2))
  34. 330  T3= SQR((1+R(3)+R(2))^2 + (X(3)+X(2))^2)
  35. 340  A3= ATN((X(3)+X(2))/(1+R(2)+R(3)))
  36. 350  T4= (T1*T2)/T3
  37. 360  A4= A1+A2-A3
  38. 370  T5= R(1) + COS(A4)*T4
  39. 380  T6= X(1) + SIN(A4)*T4
  40. 390  S(1)= SQR((T5-1)^2 + T6^2)/SQR((T5+1)^2 + T6^2)
  41. 400  D(1)= ATN(T6/(T5-1)) - ATN(T6/(T5+1))
  42. 410  REM
  43. 420  REM ************** CALCULATION OF S22 ******************************
  44. 430  REM
  45. 440  T1= SQR((1+R(1))^2 + X(1)^2)
  46. 450  A1= ATN(X(1)/(1+R(1)))
  47. 460  T2= SQR(R(2)^2 + X(2)^2)
  48. 470  A2= ATN(X(2)/R(2))
  49. 480  T3= SQR((1+R(1)+R(2))^2 + (X(1)+X(2))^2)
  50. 490  A3= ATN((X(1)+X(2))/(1+R(1)+R(2)))
  51. 500  T4= (T1*T2)/T3
  52. 510  A4= A1+A2-A3
  53. 520  T5= R(3) + COS(A4)*T4
  54. 530  T6= X(3) + SIN(A4)*T4
  55. 540  S(2)= SQR((T5-1)^2 + T6^2)/SQR((T5+1)^2 + T6^2)
  56. 550  D(2)= ATN(T6/(T5-1)) - ATN(T6/(T5+1))
  57. 560  REM
  58. 570  REM ***************** CALCULATION OF S21 AND S12 *******************
  59. 580  REM
  60. 590  T1= SQR(R(2)^2 + X(2)^2)
  61. 600  A1= ATN(X(2)/R(2))
  62. 610  T2= SQR((1+R(1)+R(2))^2 + (X(1)+X(2))^2)
  63. 620  A2= ATN((X(1)+X(2))/(1+R(1)+R(2)))
  64. 630  T3= T1/T2
  65. 640  A3= A1-A2
  66. 650  T4= SQR((1+R(1))^2 + X(1)^2)
  67. 660  A4= ATN(X(1)/(1+R(1)))
  68. 670  T5= SQR(R(2)^2 + X(2)^2)
  69. 680  A5= ATN(X(2)/R(2))
  70. 690  T6= SQR((1+R(1)+R(2))^2 + (X(1)+X(2))^2)
  71. 700  A6= ATN((X(1)+X(2))/(1+R(1)+R(2)))
  72. 710  T7= (T4*T5)/T6
  73. 720  A7= T4+T5-T6
  74. 730  A7=A7*(180/PI)
  75. 740  T8= SQR((1+R(3)+COS(A7)*T7)^2 + (X(3)+SIN(A7)*T7)^2)
  76. 750  A8= ATN((X(3)+SIN(A7)*T7)/(1+R(3)+C0S(A7)*T7))
  77. 760  T9= T3/T8
  78. 770  A9= A3-A8
  79. 780  T1= SQR((1+COS(D(1))*S(1))^2 + (SIN(D(1))*S(1))^2)
  80. 790  A1=ATN((SIN(D(1))*S(1))/(1+COS(D(1))*S(1)))
  81. 800  S(3)= T9*T1
  82. 810  D(3)= A9+A1
  83. 820  S(4)= S(3)
  84. 830  D(4)= D(3)
  85. 840  REM
  86. 850  REM ************** CONVERT FROM RADIANS TO DEGREES *****************
  87. 860  REM
  88. 870  FOR C=1 TO 4 STEP 1
  89. 880  D(C)=D(C)*(180/PI)
  90. 890  NEXT C
  91. 900  REM
  92. 910  REM ***************** OUTPUT RESULTS *******************************
  93. 920  REM
  94. 930  PRINT
  95. 940  PRINT "PARAMETER","  S11","  S22","  S21","  S12"
  96. 950  PRINT
  97. 960  PRINT "MAGNITUDE",S(1),S(2),S(3),S(4)
  98. 970  PRINT
  99. 980  PRINT "ANGLE",D(1),D(2),D(3),D(4)
  100. 990  END
  101.