home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / ee2 / umatch.bas < prev    next >
BASIC Source File  |  1987-04-05  |  4KB  |  138 lines
  1. 90 REM: REVISED LINE 710, SIGN WAS +,GH 4/5/87
  2. 95  PRINT "ENTER ALL TRANISTOR IMPEDANCES AS VIEWED FROM CIRCUIT"
  3. 100 REM program for MICROSTRIP MATCHING
  4. 110 PRINT  "ENTER DATA";
  5. 120 INPUT A,B,C,D,E,F,G,H,I
  6. 130 IF A < 1 THEN 160
  7. 140 IF A > 3 THEN 160
  8. 150 GOTO 180
  9. 160 PRINT "INPUT DATA NOT IN CORRECT FORMAT. RETYPE IT."
  10. 170 GOTO 110
  11. 180 PRINT
  12. 190 PRINT
  13. 200 PRINT "                           DATA ENTERED"
  14. 210 PRINT
  15. 220 IF A<>1 THEN 410
  16. 230 IF C<>0 THEN 160
  17. 240 PRINT "     SOURCE IMPEDANCE       =  ",B,"OHMS"
  18. 250 IF E>=0 THEN 270
  19. 260 IF E<0 THEN 290
  20. 270 PRINT "     IMPEDANCE NUMBER 1          =  ",D;"+J";ABS(E),"OHMS"
  21. 280 GOTO 360
  22. 290 PRINT "     IMPEDANCE NUMBER 1          =  ",D;"-J";ABS(E),"OHMS"
  23. 300 GOTO 360
  24. 310 IF E>=0 THEN 330
  25. 320 IF E<=0 THEN 350
  26. 330 PRINT "     IMPEDANCE NUMBER 2          =  ",D;"+J";ABS(E),"OHMS"
  27. 340 GOTO 360
  28. 350 PRINT "     IMPEDANCE NUMBER 2          =  ",D;"-J";ABS(E),"OHMS"
  29. 360 PRINT "     FREQUENCY                   =  ",F,"GHZ"
  30. 370 PRINT "     DIELECTRIC CONSTANT         =  ",G
  31. 380 PRINT "     SUBSTRATE THICKNESS         =  ",H,"IN"
  32. 390 PRINT "     CONDUCTOR THICKNESS         =  ",I,"IN"
  33. 400 GOTO 530
  34. 410 IF A=3 THEN 440
  35. 420 PRINT "     LOAD IMPEDANCE              =  ",B,"OHMS"
  36. 430 GOTO 310
  37. 440 IF E<0 THEN 470
  38. 450 PRINT "     IMPEDANCE NUMBER 3          =  ",D;"+J";ABS(E),"OHMS"
  39. 460 GOTO 480
  40. 470 PRINT "     IMPEDANCE NUMBER 3          =  ",D;"-J";ABS(E),"OHMS"
  41. 480 IF C<0 THEN 510
  42. 490 PRINT "     IMPEDANCE NUMBER 4          =  ",B;"+J";ABS(C),"OHMS"
  43. 500 GOTO 360
  44. 510 PRINT "     IMPEDANCE NUMBER 4          =  ",B;"-J";ABS(C),"OHMS"
  45. 520 GOTO 360
  46. 530 IF D-B=0 THEN 570
  47. 540 LET Y=((C*D+B*E)*(E+(((D-B)*(B*D-C*E))/((C*D)+(B*E)))-C))/(D-B)
  48. 550 IF Y<=0 THEN 570
  49. 560 GOTO 600
  50. 570 PRINT
  51. 580 PRINT "BASIC MATCH NOT POSSIBLE WITH DATA ENTERED.
  52. 590 GOTO 1400
  53. 600 LET Z=SQR(Y)
  54. 610 PRINT
  55. 620 IF A=3 THEN 680
  56. 630 IF A=2 THEN 660
  57. 640 PRINT "                INPUT NETWORK LINE PARAMETERS"
  58. 650 GOTO 690
  59. 660 PRINT "                OUTPUT NETWORK LINE PARAMETERS"
  60. 670 GOTO 690
  61. 680 PRINT "              INTERSTAGE NETWORK LINE PARAMETERS"
  62. 690 PRINT
  63. 700 LET X=Z*(D-B)
  64. 710 LET W=C*D-B*E
  65. 720 IF X=0 THEN 800
  66. 730 IF W=0 THEN 850
  67. 740 LET R=ABS(X/W)
  68. 750 IF R>2^24 THEN 850
  69. 760 LET Q=(ATN(X/W)*(180/3.14159265#))
  70. 770 IF W>0 THEN 870
  71. 780 LET K=Q+((X/ABS(X))*180)
  72. 790 GOTO 880
  73. 800 IF W=0 THEN 880
  74. 810 IF W<0 THEN 830
  75. 820 GOTO 740
  76. 830 LET K=180
  77. 840 GOTO 880
  78. 850 LET K=(X/ABS(X))*90
  79. 860 GOTO 880
  80. 870 LET K=Q
  81. 880 LET M=K/360
  82. 890 IF M<0 THEN 920
  83. 900 LET N=M
  84. 910 GOTO 930
  85. 920 LET N=.5 +M
  86. 930 IF F=0 THEN 570
  87. 940 LET O=2.997925E+10/(F*2.54E+09)
  88. 950 IF G<=0 THEN 570
  89. 960 LET L1=(N*O)/SQR(G)
  90. 970 IF H<=0 THEN 570
  91. 980 IF I<=0 THEN 570
  92. 990 LET P=0
  93. 1000 LET E1=(I/3.14159265#)*(LOG((2*H)/I)+1)
  94. 1010 LET T1=0
  95. 1020 LET T2=E1+T1
  96. 1030 LET P9=376.819437#*H
  97. 1040 LET E2=P9/(SQR(G)*T2*(1+1.735*G^(-7.240001E-02)*(T2/H)^(-.836)))
  98. 1050 LET D1=E2-Z
  99. 1060 IF P=1 THEN 1150
  100. 1070 IF P=2 THEN 1210
  101. 1080 IF P=3 THEN 1270
  102. 1090 IF D1<0 THEN 1120
  103. 1100 LET T1=T1+.01
  104. 1110 GOTO 1020
  105. 1120 LET  T1=T1-.01
  106. 1130 LET P=1
  107. 1140 GOTO 1020
  108. 1150 IF D1<0 THEN 1180
  109. 1160 LET T1=T1+.001
  110. 1170 GOTO 1020
  111. 1180 LET T1=T1-.001
  112. 1190 LET P=2
  113. 1200 GOTO 1020
  114. 1210 IF D1<0 THEN 1240
  115. 1220 LET T1 = T1+.0001
  116. 1230 GOTO 1020
  117. 1240 LET T1=T1-.0001
  118. 1250 LET P=3
  119. 1260 GOTO 1020
  120. 1270 IF D1 < 0 THEN 1300
  121. 1280 LET T1=T1+.00001
  122. 1290 GOTO 1020
  123. 1300 LET T1=T1-.00001
  124. 1310 LET W2=T1/H
  125. 1320 IF W2>=.6 THEN 1350
  126. 1330 LET K1=SQR(G/(1+.6*(G-1)*((T2/H)^.0297)))
  127. 1340 GOTO 1360
  128. 1350 LET K1=SQR(G/(1+.63*(G-1)*((T2/H)^.1255)))
  129. 1360 LET L=L1*K1
  130. 1370 PRINT "    IMPEDANCE       =",Z,"OHMS"
  131. 1380 PRINT "    LENGTH          =",L,"IN."
  132. 1390 PRINT "    WIDTH           =",T1,"IN."
  133. 1400 PRINT
  134. 1410 PRINT
  135. 1420 PRINT
  136. 1430 GOTO 110
  137. 1440 END
  138.