home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / trans.bas (.txt) < prev   
Encoding:
GW-BASIC  |  1989-01-18  |  5.8 KB  |  170 lines
  1. 13610  CLS
  2. 13620  CLEAR
  3. 13621  PRINT
  4. 13622  PRINT "          ";:FOR A = 1 TO 50:PRINT CHR$(178);:NEXT A
  5. 13623  PRINT "          WEND                                                WEND
  6. 13630  PRINT "          WEND      TRANSISTOR CIRCUITS MENU.  OPTIONS:       WEND
  7. 13631  PRINT "          WEND                                                WEND
  8. 13640  PRINT "          WEND   1) TRANSISTOR CIRCUIT CHARACTERISTICS        WEND
  9. 13650  PRINT "          WEND   2) TRANSISTOR CIRCUIT SELECTION              WEND
  10. 13660  PRINT "          WEND   3) EMITTER RISISTOR COMPUTATION              WEND
  11. 13670  PRINT "          WEND   4) GO TO MASTER MENU                         WEND
  12. 13680  PRINT "          WEND                                                WEND
  13. 13681  PRINT "          ";:FOR A = 1 TO 50:PRINT CHR$(178);:NEXT A
  14. 13682  PRINT:PRINT
  15. 13690  PRINT "          INPUT NUMBER OF YOUR CHOICE";
  16. 13700  INPUT N
  17. 13710  IF N=1 THEN GOTO 13770
  18. 13720  IF N=2 THEN GOTO 14520
  19. 13730  IF N=3 THEN GOTO 14900
  20. 13740  IF N=4 THEN RUN "MENU"
  21. 13750  PRINT:PRINT "          INVALID INPUT":BEEP
  22. 13760  GOTO 13690
  23. 13770  CLS
  24. 13780  CLEAR
  25. 13785  PRINT
  26. 13790  PRINT "                 TRANSISTOR CIRCUIT CHARACTERISTICS
  27. 13791  PRINT
  28. 13800  PRINT "               WHICH TYPE OF CIRCUIT DO YOU WISH TO USE
  29. 13802  PRINT
  30. 13810  PRINT "              1) COMMON EMITTER CIRCUIT
  31. 13820  PRINT "              2) COMMON EMITTER WITH EMITTER RESISTOR
  32. 13830  PRINT "              3) COMMON COLLECTOR CIRCUIT
  33. 13840  PRINT "              4) COMMON BASE CIRCUIT
  34. 13850  PRINT
  35. 13860  PRINT "              INPUT NUMBER OF YOUR CHOICE";
  36. 13870  INPUT N
  37. 13880  IF N=1 OR N=2 OR N=3 OR N=4 THEN GOTO 13910
  38. 13890  PRINT:PRINT "          INVALID INPUT":BEEP
  39. 13900  GOTO 13860
  40. 13910  CLS
  41. 13920  IF N=1 THEN PRINT "          COMMON EMITTER CIRCUIT"
  42. 13930  IF N=2 THEN PRINT "          COMMON EMITTER WITH EMITTER RESISTOR"
  43. 13940  IF N=3 THEN PRINT "          COMMON COLLECTOR CIRCUIT"
  44. 13950  IF N=4 THEN PRINT "          COMMON BASE CIRCUIT"
  45. 13960  PRINT:PRINT "     INPUT TRANSISTOR SMALL SIGNAL CURRENT GAIN HFE (0=UNKNOWN)";
  46. 13970  INPUT F
  47. 13980  IF F=0 THEN F=50
  48. 13990  PRINT "          VALUE OF LOAD RESISTOR RL IN OHMS";
  49. 14000  INPUT L
  50. 14010  PRINT "          VALUE OF BIAS RESISTOR R1 IN OHMS (0=NONE)";
  51. 14020  INPUT X
  52. 14030  IF X=0 THEN X=9.99E-07
  53. 14040  PRINT "          VALUE OF BIAS RESISTOR R2 IN OHMS (0=NONE)";
  54. 14050  INPUT Y
  55. 14060  IF Y=0 THEN Y=9.99E-07
  56. 14070  A=1/X+1/Y
  57. 14080  R=1/A
  58. 14090  PRINT "          SOURCE RESISTANCE RS IN OHMS";
  59. 14100  INPUT S
  60. 14110  IF N<>2 THEN GOTO 14140
  61. 14120  PRINT "          VALUE OF EMITTER RESISTOR RE IN OHMS";
  62. 14130  INPUT E
  63. 14140  PRINT "          TRANSISTOR INPUT IMPEDANCE (HIE) IN OHMS (0=UNKNOWN)";
  64. 14150  INPUT C
  65. 14160  IF C=0 THEN C=1100
  66. 14170  IF N<>1 AND N<>3 THEN GOTO 14220
  67. 14180  PRINT "          TRANSISTOR OUTPUT CONDUCTANCE (HOE) IN MHOS (0=UNKNOWN)";
  68. 14190  INPUT Z
  69. 14200  IF Z=0 THEN Z=9.99E-07
  70. 14210  T=1/Z
  71. 14220  PRINT
  72. 14230  IF N<>1 THEN GOTO 14270
  73. 14240  K=R/(R+C)*(-F*T/(T+L))
  74. 14250  U=T
  75. 14260  P=S+1/(A+1/C)
  76. 14270  IF N<>2 THEN GOTO 14300
  77. 14280  K=-F*R/(R+C+(1+F)*E)
  78. 14290  P=S+1/(A+1/(C+(1+F)*E))
  79. 14300  IF N<>3 THEN GOTO 14350
  80. 14310  H=(1+F)/(1+Z*L)
  81. 14320  K=H*R/(R+C+H*L)
  82. 14330  P=S+1/(A+1/(C+H*L))
  83. 14340  U=1/((1+F)/(S*R/(S+R)+C)+Z)
  84. 14350  IF N<>4 THEN GOTO 14380
  85. 14360  K=F/(1+F)*R/(R+C/(1+F))
  86. 14370  P=S+1/(A+(1+F)/C)
  87. 14380  PRINT "          THE CURRENT GAIN IS ";K
  88. 14390  PRINT "          THE INPUT IMPEDANCE IS ";P;" OHMS"
  89. 14400  PRINT "          THE VOLTAGE GAIN IS ";K*L/P
  90. 14410  PRINT "          THE OUTPUT RESISTANCE IS ";
  91. 14420  IF N=2 OR N=4 THEN PRINT L;
  92. 14430  IF N=1 OR N=3 THEN PRINT U*L/(U+L);
  93. 14440  PRINT " OHMS"
  94. 14450  PRINT:PRINT "INPUT 1 TO REPEAT TRANSISTOR CIRCUIT CHARACTERISTICS COMPUTATION."
  95. 14460  PRINT "INPUT 2 TO GO TO TRANSISTOR MENU.";
  96. 14470  INPUT L
  97. 14480  IF L=1 THEN GOTO 13770
  98. 14490  IF L=2 THEN GOTO 13610
  99. 14500  PRINT:PRINT "          INVALID INPUT":BEEP
  100. 14510  GOTO 14450
  101. 14520  CLS
  102. 14530  CLEAR
  103. 14540  PRINT "                TRANSISTOR CIRCUIT SELECTION":PRINT
  104. 14550  PRINT "      INPUT TRANSISTOR INPUT IMPEDANCE (HIE) IN OHMS (0=UNKNOWN)";
  105. 14560  INPUT Z
  106. 14570  IF Z=0 THEN Z=1111
  107. 14580  PRINT "      INPUT TRANSISTOR GAIN HFE (0=UNKNOWN)";
  108. 14590  INPUT F
  109. 14600  IF F=0 THEN F=51
  110. 14610  PRINT "      INPUT LOAD RESISTANCE RL IN OHMS (0=DON'T CARE)";
  111. 14620  INPUT L
  112. 14630  PRINT "      INPUT SOURCE RESISTANCE RS IN OHMS";
  113. 14640  INPUT S
  114. 14650  PRINT "      INPUT DESIRED CURRENT GAIN (1=DON'T CARE)";
  115. 14660  INPUT K
  116. 14670  PRINT "      INPUT DESIRED VOLTAGE GAIN (1=DON'T CARE)";
  117. 14680  INPUT V
  118. 14690  PRINT "      INPUT DESIRED OUTPUT IMPEDANCE IN OHMS (1=DON'T CARE)";
  119. 14700  INPUT U
  120. 14710  PRINT "      INPUT DESIRED INPUT IMPEDANCE IN OHMS (1=DON'T CARE)";
  121. 14720  INPUT E
  122. 14730  PRINT "      INPUT DESIRED OUTPUT POLARITY (-1 FOR INVERTED),"
  123. 14740  PRINT "      (0 FOR DON'T CARE, 1 FOR NON-INVERTED)";
  124. 14750  INPUT P
  125. 14760  PRINT
  126. 14770  PRINT "      THE FOLLOWING CIRCUITS MAY WORK:":PRINT
  127. 14780  IF P<=0 AND V=>1 AND K=>1 AND (F=51 OR K<=F*1.2) AND (E=1 OR Z=1111 OR E<S+Z*1.2) AND (L=0 OR U=1 OR ABS(U-L)<U/5) THEN PRINT "      COMMON EMITTER"
  128. 14790  IF P=>0 AND K=>1 AND (F=51 OR K<=1+F*1.2) AND V<=1 AND (E=1 OR L=0 OR Z=1111 OR E>Z+S) AND (U=1 OR L=0 OR F=51 OR Z=1111 OR ABS(U-(S+Z)/(1+F))<U/5) THEN PRINT "      COMMON COLLECTOR"
  129. 14800  IF P=>0 AND K<=1 AND V=>1 AND (E=1 OR Z=1111 OR F=51 OR E<Z) AND (U=1 OR L=0 OR ABS(U-L)<U/5) THEN PRINT "      COMMON BASE"
  130. 14810  IF P<=0 AND K=>1 AND (F=51 OR K<=F*1.2) AND V=>1 AND (E=1 OR Z=1111 OR E>Z) AND (L=0 OR U=1 OR ABS(U-L)<U/5) THEN PRINT "      COMMON EMITTER WITH EMITTER RESISTOR"
  131. 14820  PRINT
  132. 14830  PRINT "          INPUT 1 TO REPEAT TRANSISTOR CIRCUIT SELECTION."
  133. 14840  PRINT "          INPUT 2 TO GO TO TRANSISTOR MENU.";
  134. 14850  INPUT N
  135. 14860  IF N=1 THEN GOTO 14520
  136. 14870  IF N=2 THEN GOTO 13610
  137. 14880  PRINT:PRINT "          INVALID INPUT":BEEP
  138. 14890  GOTO 14830
  139. 14900  CLS
  140. 14910  CLEAR
  141. 14920  PRINT "                EMITTER RESISTOR COMPUTATION":PRINT
  142. 14930  PRINT "          INPUT DESIRED VOLTAGE GAIN (0=DON'T CARE)";
  143. 14940  INPUT V
  144. 14950  IF V=0 THEN GOTO 14980
  145. 14960  PRINT "          INPUT LOAD RESISTOR RL IN OHMS (0=DON'T CARE)";
  146. 14970  INPUT L
  147. 14980  PRINT "          INPUT DESIRED CIRCUIT INPUT IMPEDANCE IN OHMS (0=DON'T CARE)";
  148. 14990  INPUT R
  149. 15000  IF R=0 THEN GOTO 15080
  150. 15010  PRINT "          INPUT TRANSISTOR'S INPUT IMPEDANCE IN OHMS (0=UNKNOWN)";
  151. 15020  INPUT Z
  152. 15030  IF Z=0 THEN Z=1111
  153. 15040  PRINT "          INPUT TRANSISTOR'S CURRENT GAIN HFE (0=UNKNOWN)";
  154. 15050  INPUT F
  155. 15060  IF F=0 THEN F=51
  156. 15070  IF V=0 THEN PRINT:PRINT "          EMITTER RESISTOR = ";(R-Z)/(1+F);" OHMS"
  157. 15080  IF R=0 AND V*L<>0 THEN PRINT:PRINT "          EMITTER RESISTOR = ";L/V;" OHMS"
  158. 15090  IF R=0 AND L=0 AND V<>0 THEN PRINT:PRINT "          ANY VALUE EMITTER RESISTOR AS LONG AS RE = RL/";V;" OHMS"
  159. 15100  IF R=0 AND V=0 THEN PRINT:PRINT "          ANY VALUE EMITTER RESISTOR WILL WORK."
  160. 15110  IF L<>0 AND R<>0 AND V<>0 THEN IF L/V=(R-Z)/(1+F) THEN PRINT:PRINT "          EMITTER RESISTOR = ";L/V;" OHMS"
  161. 15120  IF R<>0 AND V<>0 THEN IF L/V<>(R-Z)/(1+F) AND L<>0 THEN PRINT:PRINT "CONTRADICTORY CONDITIONS.  NO VALUE OF EMITTER RESISTOR WILL WORK."
  162. 15130  PRINT
  163. 15140  PRINT:PRINT "          INPUT 1 TO REPEAT EMITTER RESISTOR COMPUTATION."
  164. 15150  PRINT "          INPUT 2 TO GO TO TRANSISTOR MENU.";
  165. 15160  INPUT N
  166. 15170  IF N=1 THEN GOTO 14900
  167. 15180  IF N=2 THEN GOTO 13610
  168. 15190  PRINT:PRINT "          INVALID INPUT":BEEP
  169. 15200  GOTO 15140
  170.