home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / opamp.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-05  |  5.7 KB  |  147 lines
  1. 10450  CLS
  2. 10451  PRINT
  3. 10452  PRINT "          ";:FOR A=1 TO 56:PRINT CHR$(178);:NEXT A
  4. 10453  PRINT "          WEND                                                      WEND
  5. 10460  PRINT "          WEND   OPERATIONAL AMPLIFIERS COMPUTATIONS.  OPTIONS:     WEND
  6. 10470  PRINT "          WEND                                                      WEND
  7. 10480  PRINT "          WEND  1) INVERTING AMPLIFIER WITHOUT CAPACITOR            WEND
  8. 10490  PRINT "          WEND  2) INVERTING AMPLIFIER WITH CAPACITOR               WEND
  9. 10500  PRINT "          WEND  3) CUTOFF FREQUENCY FOR INVERTING                   WEND
  10. 10501  PRINT "          WEND     AMPLIFIER WITH CAPACITOR                         WEND
  11. 10510  PRINT "          WEND  4) NON-INVERTING AMPLIFIER                          WEND
  12. 10520  PRINT "          WEND  5) GOTO MASTER MENU                                 WEND
  13. 10521  PRINT "          WEND                                                      WEND
  14. 10522  PRINT "          ";:FOR A=1 TO 56:PRINT CHR$(178);:NEXT A
  15. 10523  PRINT:PRINT
  16. 10530  PRINT "          INPUT NUMBER OF YOUR CHOICE";
  17. 10540  INPUT N
  18. 10550  IF N=1 THEN GOTO 10620
  19. 10560  IF N=2 THEN GOTO 10840
  20. 10570  IF N=3 THEN GOTO 11070
  21. 10580  IF N=4 THEN GOTO 11280
  22. 10590  IF N=5 THEN RUN "MENU"
  23. 10600  PRINT:PRINT "                     INVALID INPUT":BEEP
  24. 10610  GOTO 10530
  25. 10620  CLS
  26. 10630  PRINT "                   INVERTING AMPLIFIER WITHOUT CAPACITOR"
  27. 10631  PRINT
  28. 10632  PRINT "                                VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND R2 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR
  29. 10633  PRINT "                                CALL   VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR   CALL
  30. 10634  PRINT "         SOUNDSOUNDSOUND INPUT SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND R1 SOUNDSOUNDMOTORSOUNDSOUNDSOUND<0xB4!> -        CALL   CALL
  31. 10635  PRINT "                                    CALL          BLOADSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDSOUNDSOUNDSOUND OUTPUT
  32. 10636  PRINT "                          VARPTRSOUNDSOUND R3 SOUNDSOUNDSOUND<0xB4!> +        CALL
  33. 10637  PRINT "                          CALL         CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'
  34. 10638  PRINT "                         GND
  35. 10639  PRINT
  36. 10650  PRINT "               INPUT RESISTOR R1 VALUE IN OHMS (0 IF UNKNOWN)";
  37. 10660  INPUT R
  38. 10670  GOSUB 11440
  39. 10680  PRINT "               INPUT SOURCE RESISTANCE RS IN OHMS";
  40. 10690  INPUT S
  41. 10700  IF G=0 THEN G=T/(R+S)
  42. 10710  IF T=0 THEN T=G*(R+S)
  43. 10720  IF R=0 THEN R=T/G-S
  44. 10730  PRINT:PRINT "                     VOLTAGE GAIN = ";-G
  45. 10740  PRINT "                     VALUE OF R1 = ";R;" OHMS"
  46. 10750  PRINT "                     VALUE OF R2 = ";T;" OHMS"
  47. 10760  PRINT "                     VALUE OF R3 = ";(R+S)*T/(R+S+T);" OHMS"
  48. 10770  PRINT:PRINT "                     INPUT 1 TO REPEAT CALCULATION."
  49. 10780  PRINT "                     INPUT 2 TO GO TO OP-AMP MENU.";
  50. 10790  INPUT N
  51. 10800  IF N=1 THEN GOTO 10620
  52. 10810  IF N=2 THEN GOTO 10450
  53. 10820  PRINT:PRINT "                     INVALID INPUT":BEEP
  54. 10830  GOTO 10770
  55. 10840  CLS
  56. 10850  PRINT "               INVERTING AMPLIFIER WITH CAPACITOR"
  57. 10851  PRINT
  58. 10852  PRINT "                                VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND R2 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR
  59. 10853  PRINT "                                CALL   VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR   CALL
  60. 10854  PRINT "         SOUNDSOUNDSOUND INPUT SOUNDSOUND C SOUNDSOUND R1 SOUNDSOUNDMOTORSOUNDSOUNDSOUND<0xB4!> -        CALL   CALL
  61. 10855  PRINT "                                    CALL          BLOADSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDSOUNDSOUNDSOUND OUTPUT
  62. 10856  PRINT "                          VARPTRSOUNDSOUND R3 SOUNDSOUNDSOUND<0xB4!> +        CALL
  63. 10857  PRINT "                          CALL         CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'
  64. 10858  PRINT "                         GND
  65. 10859  PRINT
  66. 10860  PRINT "               INPUT SOURCE RESISTANCE RS IN OHMS";
  67. 10870  INPUT S
  68. 10880  PRINT "               INPUT RESISTOR R1 VALUE IN OHMS";
  69. 10890  INPUT R
  70. 10900  GOSUB 11440
  71. 10910  PRINT "               INPUT CAPACITOR VALUE IN FARADS";
  72. 10920  INPUT C
  73. 10930  PRINT "               INPUT FREQUENCY IN HERTZ";
  74. 10940  INPUT F
  75. 10950  IF F*C*R=0 OR T+G=0 THEN GOTO 11050
  76. 10960  PRINT
  77. 10970  IF T=0 THEN PRINT "                    RESISTORS R2 AND R3 BOTH = ";G*SQR((R+S)*(R+S)+1/(39.5*F*F*C*C))
  78. 10980  IF G=0 THEN PRINT "                    VOLTAGE GAIN = ";-T/SQR((R+S)*(R+S)+1/(39.5*F*F*C*C))
  79. 10990  IF T<>0 THEN PRINT "                    RESISTOR R3 = ";T;" OHMS"
  80. 11000  PRINT:PRINT "               INPUT 1 TO REPEAT CALCULATION."
  81. 11010  PRINT "               INPUT 2 TO GO TO OP AMP MENU.";
  82. 11020  INPUT N
  83. 11030  IF N=1 THEN GOTO 10840
  84. 11040  IF N=2 THEN GOTO 10450
  85. 11050  PRINT:PRINT "               INVALID INPUT":BEEP
  86. 11060  GOTO 11000
  87. 11070  CLS
  88. 11080  PRINT "         CUTOFF FREQUENCY FOR INVERTING AMPLIFIERS WITH CAPACITOR"
  89. 11081  PRINT
  90. 11082  PRINT "                                VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND R2 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR
  91. 11083  PRINT "                                CALL   VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR   CALL
  92. 11084  PRINT "         SOUNDSOUNDSOUND INPUT SOUNDSOUND C SOUNDSOUND R1 SOUNDSOUNDMOTORSOUNDSOUNDSOUND<0xB4!> -        CALL   CALL
  93. 11085  PRINT "                                    CALL          BLOADSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDSOUNDSOUNDSOUND OUTPUT
  94. 11086  PRINT "                          VARPTRSOUNDSOUND R3 SOUNDSOUNDSOUND<0xB4!> +        CALL
  95. 11087  PRINT "                          CALL         CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'
  96. 11088  PRINT "                         GND
  97. 11089  PRINT
  98. 11090  PRINT "               INPUT VALUE OF R1 IN OHMS (0 IF UNKNOWN)";
  99. 11100  INPUT R
  100. 11110  PRINT "               INPUT SOURCE RESISTANCE RS IN OHMS";
  101. 11120  INPUT S
  102. 11130  PRINT "               INPUT CAPACITOR VALUE IN FARADS (0 IF UNKNOWN)";
  103. 11140  INPUT C
  104. 11150  PRINT "               INPUT CUTOFFF FREQUENCY (0 IF UNKNOWN)";
  105. 11160  INPUT F
  106. 11170  PRINT
  107. 11180  IF F=0 THEN PRINT "                     CUTOFF FREQUENCY = ";1/(6.28*(R+S)*C);" HERTZ"
  108. 11190  IF R=0 THEN PRINT "                     RESISTOR R1 VALUE = ";1/(6.28*F*C)-S;" OHMS"
  109. 11200  IF C=0 THEN PRINT "                     CAPACITOR VALUE = ";1/(6.28*F*(R+S));" FARADS"
  110. 11210  PRINT:PRINT "               INPUT 1 TO REPEAT CALCULATION."
  111. 11220  PRINT "               INPUT 2 TO GO TO OP-AMP MENU.";
  112. 11230  INPUT N
  113. 11240  IF N=1 THEN GOTO 11070
  114. 11250  IF N=2 THEN GOTO 10450
  115. 11260  PRINT:PRINT "               INVALID INPUT":BEEP
  116. 11270  GOTO 11210
  117. 11280  CLS
  118. 11290  PRINT "                     NON-INVERTING OPERATIONAL AMPLIFIER"
  119. 11291  PRINT
  120. 11292  PRINT "                                    VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR
  121. 11293  PRINT "         SOUNDSOUNDSOUND INPUT SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND R1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUND<0xB4!> -        CALL
  122. 11294  PRINT "                                    CALL          BLOADSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUND OUTPUT
  123. 11295  PRINT "                          VARPTRSOUNDSOUND R3 SOUNDBSAVESOUND<0xB4!> +        CALL   CALL
  124. 11296  PRINT "                          CALL       CALL CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'   CALL
  125. 11297  PRINT "                         GND      CLSSOUNDSOUNDSOUNDSOUNDSOUND R2 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'
  126. 11298  PRINT
  127. 11300  PRINT "               INPUT RESISTOR R1 VALUE IN OHMS (0 IF UNKNOWN)";
  128. 11310  INPUT R
  129. 11320  GOSUB 11440
  130. 11330  PRINT
  131. 11340  IF G=0 THEN PRINT "                     VOLTAGE GAIN = ";1+T/R
  132. 11350  IF T=0 THEN PRINT "                     RESISTOR R2  = ";G*R-R;" OHMS"
  133. 11360  IF R=0 THEN PRINT "                     RESISTOR R1 VALUE = ";T/(G-1);" OHMS"
  134. 11370  PRINT:PRINT "               INPUT 1 TO REPEAT CALCULATION."
  135. 11380  PRINT "               INPUT 2 TO GO TO OP-AMP MENU.";
  136. 11390  INPUT N
  137. 11400  IF N=1 THEN GOTO 11280
  138. 11410  IF N=2 THEN GOTO 10450
  139. 11420  PRINT:PRINT "               INVALID INPUT":BEEP
  140. 11430  GOTO 11370
  141. 11440  PRINT "               INPUT RESISTOR R2 VALUE IN OHMS (0 IF UNKNOWN)";
  142. 11450  INPUT T
  143. 11460  PRINT "               INPUT VOLTAGE GAIN (0 IF UNKNOWN)";
  144. 11470  INPUT G
  145. 11480  G=ABS(G)
  146. 11490  RETURN
  147.