home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / indcap.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-05  |  4.6 KB  |  117 lines
  1. 10  CLS
  2. 20  PRINT
  3. 30  PRINT "          ";:FOR A=1 TO 56:PRINT CHR$(178);:NEXT A
  4. 40  PRINT "          WEND                                                      WEND
  5. 50  PRINT "          WEND  INDUCTOR-CAPACITOR CIRCUITS COMPUTATIONS.  OPTIONS: WEND
  6. 60  PRINT "          WEND                                                      WEND
  7. 70  PRINT "          WEND  1) SERIES/PARALLEL IMPEDANCE AT A GIVEN FREQUENCY   WEND
  8. 80  PRINT "          WEND  2) RESONANCE                                        WEND
  9. 90  PRINT "          WEND  3) OHM'S LAW                                        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 56:PRINT CHR$(178);:NEXT A
  14. 140  PRINT
  15. 150  PRINT:PRINT "          INPUT NUMBER OF YOUR CHOICE";
  16. 160  INPUT N
  17. 170  IF N=1 THEN GOTO 240
  18. 180  IF N=2 THEN GOTO 440
  19. 190  IF N=3 THEN GOTO 630
  20. 200  IF N=4 THEN GOTO 820
  21. 210  IF N=5 THEN RUN "MENU"
  22. 220  PRINT:PRINT "          INVALID INPUT":BEEP
  23. 230  GOTO 150
  24. 240  CLS
  25. 250  PRINT "               SERIES/PARALLEL IMPEDANCE AT A GIVEN FREQUENCY"
  26. 260  PRINT
  27. 270  PRINT "                   YOU WILL BE ASKED FOR THE VALUES OF THE"
  28. 280  PRINT "                   INDUCTOR, CAPACITOR, AND THE FREQUENCY"
  29. 290  PRINT "                   OF THE APPLIED VOLTAGE ACROSS THE PAIR."
  30. 300  PRINT
  31. 310  GOSUB 1060
  32. 320  PRINT
  33. 330  PRINT "                   SERIES IMPEDANCE    = ";D;" OHMS"
  34. 340  PRINT "                   PARALLEL IMPEDANCE  = ";Y*X/D;" OHMS"
  35. 350  PRINT "                   INDUCTIVE REACTANCE = ";Y;" OHMS"
  36. 360  PRINT "                   CAPACITIVE REACTANCE= ";X;" OHMS"
  37. 370  PRINT:PRINT "                   INPUT 1 TO REPEAT IMPEDANCE COMPUTATION."
  38. 380  PRINT "                   INPUT 2 TO GO TO LC CIRCUITS MENU.";
  39. 390  INPUT N
  40. 400  IF N=1 THEN GOTO 240
  41. 410  IF N=2 THEN GOTO 10
  42. 420  PRINT:PRINT "                   INVALID INPUT":BEEP
  43. 430  GOTO 370
  44. 440  CLS
  45. 450  PRINT "            RESONANCE COMPUTATION OF INDUCTOR-CAPACITOR CIRCUITS"
  46. 460  PRINT
  47. 470  PRINT "                   YOU WILL BE ASKED FOR THE VALUES OF THE
  48. 480  PRINT "                   INDUCTANCE, CAPACITANCE, AND FREQUENCY.
  49. 490  PRINT
  50. 500  PRINT "                   INPUT 0 FOR THE UNKNOWN VALUE"
  51. 510  GOSUB 1060
  52. 520  PRINT
  53. 530  IF F=0 THEN PRINT "                   RESONANT FREQUENCY = ";1/(6.28319*SQR(L*C));" HERTZ"
  54. 540  IF C=0 THEN PRINT "                   CAPACITOR = ";1/(F*F*39.5*L);" FARADS"
  55. 550  IF L=0 THEN PRINT "                   INDUCTOR  = ";1/(F*F*39.5*C);" HENRIES"
  56. 560  PRINT:PRINT "                   INPUT 1 TO REPEAT RESONANCE COMPUTATION."
  57. 570  PRINT "                   INPUT 2 TO GO TO LC CIRCUITS MENU.";
  58. 580  INPUT N
  59. 590  IF N=1 THEN GOTO 440
  60. 600  IF N=2 THEN GOTO 10
  61. 610  PRINT:PRINT "                   INVALID INPUT":BEEP
  62. 620  GOTO 560
  63. 630  CLS
  64. 640  PRINT "              OHM'S LAW COMPUTATION OF INDUCTOR AND CAPACITOR"
  65. 650  GOSUB 1060
  66. 660  PRINT "          INPUT VOLTAGE ACROSS LC CIRCUITS IN VOLTS (0 IF UNKNOWN)";
  67. 670  INPUT V
  68. 680  PRINT "          INPUT CURRENT I THROUGH LC CIRCUIT IN AMPS (0 IF UNKNOWN)";
  69. 690  INPUT A
  70. 700  PRINT
  71. 710  IF V=0 THEN PRINT "               VOLTAGE ACROSS SERIES CIRCUIT   = ";A*D;" VOLTS"
  72. 720  IF V=0 THEN PRINT "               VOLTAGE ACROSS PARALLEL CIRCUIT = ";A*Y*X/D;" VOLTS"
  73. 730  IF A=0 THEN PRINT "               CURRENT THROUGH SERIES CIRCUIT  = ";V/D;" AMPS"
  74. 740  IF A=0 THEN PRINT "               CURRENT THROUGH PARALLEL CIRCUIT= ";V*D/(Y*X);" AMPS"
  75. 750  PRINT:PRINT "               INPUT 1 TO REPEAT OHM'S LAW COMPUTATION."
  76. 760  PRINT "               INPUT 2 TO GO TO LC CIRCUITS MENU.";
  77. 770  INPUT N
  78. 780  IF N=1 THEN GOTO 630
  79. 790  IF N=2 THEN GOTO 10
  80. 800  PRINT:PRINT "               INVALID INPUT":BEEP
  81. 810  GOTO 750
  82. 820  CLS
  83. 830  PRINT "        VOLTAGE DIVIDER COMPUTATIONS FOR INDUCTOR-CAPACITOR CIRCUITS
  84. 840  PRINT
  85. 850  PRINT "             YOU WILL BE ASKED FOR THE VALUES OF THE INDUCTOR,
  86. 860  PRINT "             CAPACITOR, AND THE FREQUENCY AND VOLTAGE OF (VT)
  87. 870  PRINT
  88. 880  PRINT "         VARPTR<SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND TOTAL VOLTAGE ACROSS CIRCUIT (VT) SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND>COLOR
  89. 890  PRINT "         CALL                                                         CALL
  90. 900  PRINT "         CALL<SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND L SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND>CALL<SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND C SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND>CALL
  91. 910  PRINT "         CALL                            CALL                            CALL
  92. 920  PRINT "         CLS<SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND VL SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND>CALL<SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND VC SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND>'
  93. 930  GOSUB 1060
  94. 940  PRINT "                   INPUT VOLTAGE VT ACROSS SERIES LC CIRCUIT";
  95. 950  INPUT V
  96. 960  PRINT
  97. 970  PRINT "                   VOLTAGE ACROSS INDUCTOR  = ";V*Y/D;" VOLTS"
  98. 980  PRINT "                   VOLTAGE ACROSS CAPACITOR = ";V*X/D;" VOLTS"
  99. 990  PRINT:PRINT "                   INPUT 1 TO REPEAT VOLTAGE DIVIDER COMPUTATION."
  100. 1000  PRINT "                   INPUT 2 TO GO TO LC CIRCUITS MENU.";
  101. 1010  INPUT N
  102. 1020  IF N=1 THEN GOTO 820
  103. 1030  IF N=2 THEN GOTO 10
  104. 1040  PRINT:PRINT "                   INVALID INPUT":BEEP
  105. 1050  GOTO 990
  106. 1060  PRINT:PRINT "                   INPUT INDUCTOR VALUE IN HENRIES";
  107. 1070  INPUT L
  108. 1080  PRINT "                   INPUT CAPACITOR VALUE IN FARADS";
  109. 1090  INPUT C
  110. 1100  PRINT "                   INPUT FREQUENCY IN HERTZ";
  111. 1110  INPUT F
  112. 1120  IF F*C*L=0 THEN GOTO 1160
  113. 1130  Y=6.28319*F*L
  114. 1140  X=1/(6.28319*F*C)
  115. 1150  D=ABS(Y-X)
  116. 1160  RETURN
  117.