home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / cap.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-05  |  4.7 KB  |  133 lines
  1. 10  CLS
  2. 20  PRINT:PRINT
  3. 30  PRINT "          ";:FOR A=1 TO 58:PRINT CHR$(178);:NEXT A
  4. 40  PRINT "          WEND                                                        WEND
  5. 50  PRINT "          WEND          CAPACITOR CIRCUITS MENU.  OPTIONS:            WEND
  6. 60  PRINT "          WEND                                                        WEND
  7. 70  PRINT "          WEND          1) SERIES AND PARALLEL CAPACITORS             WEND
  8. 80  PRINT "          WEND          2) IMPEDANCE AT A GIVEN FREQUENCY             WEND
  9. 90  PRINT "          WEND          3) OHM'S LAW FOR CAPACITORS                   WEND
  10. 100  PRINT "          WEND          4) VOLTAGE DIVIDER                            WEND
  11. 110  PRINT "          WEND          5) GO TO MASTER MENU                          WEND
  12. 120  PRINT "          WEND                                                        WEND
  13. 130  PRINT "          ";:FOR A=1 TO 58:PRINT CHR$(178);:NEXT A
  14. 140  PRINT:PRINT:PRINT
  15. 150  PRINT "          INPUT NUMBER OF YOUR CHOICE";
  16. 160  INPUT N
  17. 170  IF N=1 THEN GOTO 230
  18. 180  IF N=2 THEN GOTO 470
  19. 190  IF N=3 THEN GOTO 720
  20. 200  IF N=4 THEN GOTO 1000
  21. 210  IF N=5 THEN RUN "MENU"
  22. 220  IF N<1 OR N> 5 THEN BEEP:GOTO 10
  23. 230  CLS
  24. 240  PRINT "                 SERIES/PARALLEL CAPACITOR COMPUTATION"
  25. 250  S=0
  26. 260  P=0
  27. 270  PRINT
  28. 280  PRINT "                      INPUT HOW MANY CAPACITORS";
  29. 290  INPUT N
  30. 300  PRINT
  31. 310  FOR M=1 TO N
  32. 320  PRINT "                      INPUT VALUE OF C";M;
  33. 330  INPUT X
  34. 340  S=S+1/X
  35. 350  P=P+X
  36. 360  NEXT M
  37. 370  PRINT
  38. 380  PRINT "                      SERIES CAPACITANACE  = ";1/S
  39. 390  PRINT "                      PARALLEL CAPACITANCE = ";P
  40. 400  PRINT:PRINT "              INPUT 1 TO REPEANT SERIES/PARALLEL COMPUTATION."
  41. 410  PRINT "              INPUT 2 TO GO TO CAPACITOR MENU.";
  42. 420  INPUT N
  43. 430  IF N=1 THEN GOTO 230
  44. 440  IF N=2 THEN GOTO 10
  45. 450  PRINT:PRINT "              INVALID INPUT":BEEP
  46. 460  GOTO 400
  47. 470  CLS
  48. 480  PRINT "                      CAPACITOR IMPEDANCE COMPUTATION"
  49. 490  PRINT:PRINT
  50. 500  PRINT "               YOU WILL BE ASKED FOR CAPACITANCE IN FARADS,"
  51. 510  PRINT "               FREQUENCY IN HERTZ, AND IMPEDANCE IN OHMS."
  52. 520  PRINT:PRINT
  53. 530  PRINT "               INPUT (0) FOR ONLY 'ONE' UNKNOWN!"
  54. 540  PRINT:PRINT
  55. 550  PRINT "               INPUT CAPACITANCE IN FARADS (0 IF UNKNOWN)";
  56. 560  INPUT C
  57. 570  PRINT "               INPUT FREQUENCY IN HERTZ (0 IF UNKNOWN)";
  58. 580  INPUT F
  59. 590  PRINT "               INPUT IMPEDANCE IN OHMS (0 IF UNKNOWN)";
  60. 600  INPUT Z
  61. 610  PRINT
  62. 620  IF C=0 THEN PRINT "               CAPACITOR = ";1/(6.28*Z*F);" FARADS"
  63. 630  IF Z=0 THEN PRINT "               IMPEDANCE = ";1/(6.28*F*C);" OHMS"
  64. 640  IF F=0 THEN PRINT "               FREQUENCY = ";1/(6.28*Z*C);" HERTZ"
  65. 650  PRINT:PRINT "               INPUT 1 TO REPEAT IMPEDANCE COMPUTATION."
  66. 660  PRINT "               INPUT 2 TO GOTO CAPACITOR MENU.";
  67. 670  INPUT N
  68. 680  IF N=1 THEN GOTO 470
  69. 690  IF N=2 THEN GOTO 10
  70. 700  PRINT:PRINT "               INVALID INPUT":BEEP
  71. 710  GOTO 650
  72. 720  CLS
  73. 730  PRINT "                          OHM'S LAW COMPUTATION"
  74. 740  PRINT:PRINT
  75. 750  PRINT "             YOU WILL BE ASKED FOR VOLTAGE IN VOLTS, CAPACITANCE,
  76. 760  PRINT "             IN FARADS, FREQUENCY IN HERTZ, AND CURRENT IN AMPS.
  77. 770  PRINT:PRINT
  78. 780  PRINT "                    INPUT (0) FOR ONLY 'ONE' UNKNOWN!"
  79. 790  PRINT:PRINT
  80. 800  PRINT "         INPUT AC VOLTAGE IN VOLTS ACROSS CAPACITOR (0 IF UNKNOWN)";
  81. 810  INPUT V
  82. 820  PRINT "         INPUT CAPACITANCE IN FARADS (0 IF UNKNOWN)";
  83. 830  INPUT C
  84. 840  PRINT "         INPUT FREQUENCY IN HERTZ (0 IF UNKNOWN)";
  85. 850  INPUT F
  86. 860  PRINT "         INPUT CURRENT IN AMPS (0 IF UNKNOWN)";
  87. 870  INPUT A
  88. 880  PRINT
  89. 890  IF V=0 THEN PRINT "         VOLTAGE = ";A/(6.28*F*C);" VOLTS"
  90. 900  IF C=0 THEN PRINT "         CAPACITANCE = ";A/(6.28*F*V);" FARADS"
  91. 910  IF F=0 THEN PRINT "         FREQUENCY = ";A/(6.28*V*C);" HERTZ"
  92. 920  IF A=0 THEN PRINT "         CURRENT = ";6.28*F*C*V;" AMPS"
  93. 930  PRINT:PRINT "         INPUT 1 TO REPEAT OHM'S LAW COMPUTATION."
  94. 940  PRINT "         INPUT 2 TO GO TO CAPACITOR MENU.";
  95. 950  INPUT N
  96. 960  IF N=1 THEN GOTO 720
  97. 970  IF N=2 THEN GOTO 10
  98. 980  PRINT:PRINT "         INVALID INPUT":BEEP
  99. 990  GOTO 930
  100. 1000  CLS
  101. 1010  PRINT "                    CAPACITOR VOLTAGE DIVIDER COMPUTATION"
  102. 1020  PRINT
  103. 1030  PRINT "                     TWO CAPACITORS CONNECTED IN SERIES:"
  104. 1040  PRINT:PRINT
  105. 1050  PRINT "          VARPTR<SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND TOTAL VOLTAGE ACROSS CAPACITORS SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND>COLOR
  106. 1060  PRINT "          CALL                                                       CALL
  107. 1070  PRINT "          CALL<SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND C1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND>CALL<SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND C2 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND>CALL
  108. 1080  PRINT "          CALL                           CALL                           CALL
  109. 1090  PRINT "          CLS<SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND V1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND>CALL<SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND V2 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND>'
  110. 1100  PRINT:PRINT
  111. 1110  PRINT "             INPUT VOLTAGE ACROSS CAPACITOR PAIR IN VOLTS";
  112. 1120  INPUT T
  113. 1130  PRINT "             INPUT VALUE OF C1 IN FARADS (0 IF UNKNOWN)";
  114. 1140  INPUT M
  115. 1150  PRINT "             INPUT VALUE OF C2 IN FARADS";
  116. 1160  INPUT N
  117. 1170  IF M<>0 THEN GOTO 1240
  118. 1180  PRINT "             INPUT DESIRED VOLTAGE ACROSS C2 IN VOLTS";
  119. 1190  INPUT V
  120. 1200  PRINT
  121. 1210  PRINT "             THE VALUE OF C1 = ";V*N/(T-V);" FARADS"
  122. 1220  PRINT "             THE VOLTAGE ACROSS C1 = ";T-V;" VOLTS"
  123. 1230  GOTO 1260
  124. 1240  PRINT:PRINT "             THE VOLTAGE ACROSS C1 = ";T*N/(M+N);" VOLTS"
  125. 1250  PRINT "             THE VOLTAGE ACROSS C2 = ";T*M/(M+N);" VOLTS"
  126. 1260  PRINT:PRINT "             INPUT 1 TO REPEAT VOLTAGE DIVIDER COMPUTATION."
  127. 1270  PRINT "             INPUT 2 TO GO TO CAPACITOR MENU.";
  128. 1280  INPUT N
  129. 1290  IF N=1 THEN GOTO 1000
  130. 1300  IF N=2 THEN GOTO 10
  131. 1310  PRINT:PRINT "             INVALID INPUT":BEEP
  132. 1320  GOTO 1260
  133.