home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / resincap.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-05  |  7.0 KB  |  197 lines
  1. 10  CLS
  2. 20  DEF SEG=&HB000:SCREEN 0,1
  3. 30  FOR M=1 TO 80:PRINT CHR$(178);:NEXT M
  4. 40  FOR X=0 TO 4110 STEP 160
  5. 50  POKE X,178:POKE X-2,178:NEXT X
  6. 60  LOCATE 25,1:FOR X=1 TO 79:PRINT CHR$(178);:NEXT X
  7. 70  LOCATE 3,9:PRINT "RESISTOR-INDUCTOR-CAPACITOR CIRCUIT COMPUTATIONS.  OPTIONS:"
  8. 80  LOCATE 5,3:PRINT " 1) FIGURE 9.1 IMPEDANCE (PARALLEL RLC CIRCUIT)"
  9. 90  LOCATE 6,3:PRINT " 2) FIGURE 9.2 IMPEDANCE (SERIES RLC CIRCUIT)"
  10. 100  LOCATE 7,3:PRINT " 3) FIGURE 9.3 IMPEDANCE (REAL INDUCTOR IN PARALLEL WITH CAPACITOR)"
  11. 110  LOCATE 8,3:PRINT " 4) FIGURE 9.4 IMPEDANCE (INDUCTOR IN PARALLEL WITH A CAPACITOR,"
  12. 120  LOCATE 9,3:PRINT "               TAKING RESISTANCE OF PHYSICAL CAPACITOR INTO ACCOUNT)"
  13. 130  LOCATE 10,3:PRINT " 5) FIGURE 9.5 OHM'S LAW (OHM'S LAW FOR PARALLEL RLC CIRCUIT)"
  14. 140  LOCATE 11,3:PRINT " 6) FIGURE 9.6 OHM'S LAW (OHM'S LAW FOR SERIES RLC CIRCUIT"
  15. 150  LOCATE 12,3:PRINT " 7) FIGURE 9.7 OHM'S LAW (OHM'S LAW FOR A REAAL INDUCTOR
  16. 160  LOCATE 13,3:PRINT "               IN PARALLEL WITH A CAPACITOR)"
  17. 170  LOCATE 14,3:PRINT " 8) FIGURE 9.8 OHM'S LAW (OHM'S LAW FOR INDUCTOR IN PARALLEL WITH CAPACITOR,"
  18. 180  LOCATE 15,3:PRINT "               TAKING RESISTANCE OF PHYSICAL CAPACITOR INTO ACCOUNT)"
  19. 190  LOCATE 17,3:PRINT " 9) GO TO MASTER MENU"
  20. 200  LOCATE 19,3:PRINT "    INPUT NUMBER OF YOUR CHOICE";
  21. 210  INPUT N
  22. 220  IF N=1 THEN GOTO 330
  23. 230  IF N=2 THEN GOTO 500
  24. 240  IF N=3 THEN GOTO 610
  25. 250  IF N=4 THEN GOTO 770
  26. 260  IF N=5 THEN GOTO 950
  27. 270  IF N=6 THEN GOTO 1110
  28. 280  IF N=7 THEN GOTO 1230
  29. 290  IF N=8 THEN GOTO 1410
  30. 300  IF N=9 THEN RUN "MENU"
  31. 310  IF N<1 OR N>9 THEN BEEP
  32. 320  GOTO 10
  33. 330  CLS
  34. 340  PRINT "                FIGURE 9.1 IMPEDANCE, PARALLEL RLC CIRCUIT"
  35. 350  PRINT
  36. 360  PRINT "                                    CALL
  37. 370  PRINT "                      VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBEEPSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR
  38. 380  PRINT "                      CALL             CALL             CALL
  39. 390  PRINT "                      R1           L1             C1
  40. 400  PRINT "                      CALL             CALL             CALL
  41. 410  PRINT "                      CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBEEPSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'
  42. 420  PRINT "                                    CALL
  43. 430  GOSUB 1600
  44. 440  GOSUB 1820
  45. 450  PRINT:PRINT "                     IMPEDANCE   = ";Z;" OHMS"
  46. 460  PRINT "                     PHASE ANGLE = ";T*57.3;" DEGREES"
  47. 470  GOSUB 1910
  48. 480  IF N=1 THEN GOTO 330
  49. 490  GOTO 10
  50. 500  CLS
  51. 510  PRINT "                  FIGURE 9.2 IMPEDANCE, SERIES RLC CIRCUIT
  52. 520  PRINT
  53. 530  PRINT "            SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND C1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND L1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND R1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND
  54. 540  GOSUB 1600
  55. 550  GOSUB 1850
  56. 560  PRINT:PRINT "                     IMPEDANCE   = ";Z;" OHMS"
  57. 570  PRINT "                     PHASE ANGLE = ";T*57.3;" DEGREES"
  58. 580  GOSUB 1910
  59. 590  IF N=1 THEN GOTO 500
  60. 600  GOTO 10
  61. 610  CLS
  62. 620  PRINT "      FIGURE 9.3 IMPEDANCE, REAL INDUCTOR IN PARALLEL WITH CAPACITOR
  63. 630  PRINT
  64. 640  PRINT "                  VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND R1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND L1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR
  65. 650  PRINT "                  CALL INTERNAL RESISTANCE                CALL
  66. 660  PRINT "            SOUNDSOUNDSOUNDSOUNDSOUNDSOUND<0xB4!>                                    BLOADSOUNDSOUNDSOUNDSOUNDSOUNDSOUND
  67. 670  PRINT "                  CALL                                    CALL
  68. 680  PRINT "                  CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND C1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'
  69. 690  GOSUB 1600
  70. 700  S=0
  71. 710  GOSUB 1880
  72. 720  PRINT:PRINT "                     IMPEDANCE   = ";Z;" OHMS"
  73. 730  PRINT "                     PHASE ANGLE = ";T*57.3;" DEGREES"
  74. 740  GOSUB 1910
  75. 750  IF N=1 THEN GOTO 610
  76. 760  GOTO 10
  77. 770  CLS
  78. 780  PRINT "         FIGURE 9.4 IMPEDANCE, INDUCTOR IN PARALLEL WITH CAPACITOR
  79. 790  PRINT "          (TAKING RESISTANCE OF PHYSICAL CAPACITOR INTO ACCOUNT)
  80. 800  PRINT
  81. 810  PRINT "                  VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND R1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND L1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR
  82. 820  PRINT "                  CALL                                    CALL
  83. 830  PRINT "            SOUNDSOUNDSOUNDSOUNDSOUNDSOUND<0xB4!> INTERNAL RESISTANCE                BLOADSOUNDSOUNDSOUNDSOUNDSOUNDSOUND
  84. 840  PRINT "                  CALL                                    CALL
  85. 850  PRINT "                  CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND R2 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND C2 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'
  86. 860  GOSUB 1600
  87. 870  PRINT "                     INPUT RESISTOR R2 VALUE IN OHMS";
  88. 880  INPUT S
  89. 890  GOSUB 1880
  90. 900  PRINT:PRINT "                     IMPEDANCE   = ";Z;" OHMS"
  91. 910  PRINT "                     PHASE ANGLE = ";T*57.3;" DEGREES"
  92. 920  GOSUB 1910
  93. 930  IF N=1 THEN GOTO 770
  94. 940  GOTO 10
  95. 950  CLS
  96. 960  PRINT "              FIGURE 9.5, 0HM'S LAW FOR PARALLEL RLC CIRCUIT
  97. 970  PRINT
  98. 980  PRINT "                  VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND C1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR
  99. 990  PRINT "                  CALL                                    CALL
  100. 1000  PRINT "            SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBEEPSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND L1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBEEPSOUNDSOUNDSOUNDSOUNDSOUNDSOUND
  101. 1010  PRINT "               CALL  CALL                                    CALL  CALL
  102. 1020  PRINT "               CALL  CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND R1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'  CALL
  103. 1030  PRINT                                                           
  104. 1040  PRINT "               CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND VT SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'
  105. 1050  GOSUB 1600
  106. 1060  GOSUB 1820
  107. 1070  GOSUB 1720
  108. 1080  GOSUB 1910
  109. 1090  IF N=1 THEN GOTO 950
  110. 1100  GOTO 10
  111. 1110  CLS
  112. 1120  PRINT "              FIGURE 9.6, OHM'S LAW FOR SERIES RLC CIRCUITS
  113. 1130  PRINT
  114. 1140  PRINT "           SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND R1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND L1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND C1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND
  115. 1150  PRINT "               CALL                                          CALL
  116. 1160  PRINT "               CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND VT SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'
  117. 1170  GOSUB 1600
  118. 1180  GOSUB 1850
  119. 1190  GOSUB 1720
  120. 1200  GOSUB 1910
  121. 1210  IF N=1 THEN GOTO 1110
  122. 1220  GOTO 10
  123. 1230  CLS
  124. 1240  PRINT "                     FIGURE 9.7, OHM'S LAW FOR A REAL
  125. 1250  PRINT "                     INDUCTOR IN PARALLEL WITH CAPACITOR
  126. 1260  PRINT
  127. 1270  PRINT "                  VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND R1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND L1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR
  128. 1280  PRINT "                  CALL INTERNAL RESISTANCE                CALL
  129. 1290  PRINT "            SOUNDSOUNDSOUNDSOUNDSOUNDSOUND<0xB4!>                                    BLOADSOUNDSOUNDSOUNDSOUNDSOUNDSOUND
  130. 1300  PRINT "               CALL  CALL                                    CALL  CALL
  131. 1310  PRINT "               CALL  CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND C1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'  CALL
  132. 1320  PRINT "               CALL                                          CALL
  133. 1330  PRINT "               CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND VT SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'
  134. 1340  GOSUB 1600
  135. 1350  S=0
  136. 1360  GOSUB 1880
  137. 1370  GOSUB 1720
  138. 1380  GOSUB 1910
  139. 1390  IF N=1 THEN GOTO 1230
  140. 1400  GOTO 10
  141. 1410  CLS
  142. 1420  PRINT "         FIGURE 9.8, OHM'S LAW FOR INDUCTOR IN PARALLEL WITH CAPACITOR
  143. 1430  PRINT "            (TAKING RESISTANCE OF PHYSICAL CAPACITOR INTO ACCOUNT)
  144. 1440  PRINT
  145. 1450  PRINT "                  VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND R1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND L1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR
  146. 1460  PRINT "                  CALL                                    CALL
  147. 1470  PRINT "            SOUNDSOUNDSOUNDSOUNDSOUNDSOUND<0xB4!>                                    BLOADSOUNDSOUNDSOUNDSOUNDSOUNDSOUND
  148. 1480  PRINT "               CALL  CALL                                    CALL  CALL
  149. 1490  PRINT "               CALL  CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND R2 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND C1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND<0xB4!>  CALL
  150. 1500  PRINT "               CALL                                       CALL  CALL
  151. 1510  PRINT "               CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND VT SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'
  152. 1520  GOSUB 1600
  153. 1530  PRINT "                     INPUT RESISTOR R2 VALUE IN OHMS";
  154. 1540  INPUT S
  155. 1550  GOSUB 1880
  156. 1560  GOSUB 1720
  157. 1570  GOSUB 1910
  158. 1580  IF N=1 THEN GOTO 1410
  159. 1590  GOTO 10
  160. 1600  PRINT:PRINT "                     INPUT RESISTOR R1 VALUE IN OHMS";
  161. 1610  INPUT R
  162. 1620  PRINT "                     INPUT CAPACITOR C1 VALUE IN FARADS";
  163. 1630  INPUT C
  164. 1640  PRINT "                     INPUT INDUCTOR VALUE L1 VALUE IN HENRIES";
  165. 1650  INPUT L
  166. 1660  PRINT "                     INPUT FREQUENCY IN HERTZ";
  167. 1670  INPUT F
  168. 1680  X=1/(6.28319*F*C)
  169. 1690  Y=6.28319*F*L
  170. 1700  D=Y-X
  171. 1710  RETURN
  172. 1720  PRINT "                     INPUT VOLTAGE VT (PEAK) IN VOLTS (0 IF UNKNOWN)";
  173. 1730  INPUT V
  174. 1740  PRINT "                     INPUT CURRENT I (PEAK) IN AMPS (0 IF UNKNOWN)";
  175. 1750  INPUT A
  176. 1760  IF V=0 THEN V=A*Z
  177. 1770  IF A=0 THEN A=V/Z
  178. 1780  PRINT:PRINT "                     VOLTAGE VT = ";V;" VOLTS"
  179. 1790  PRINT "                     CURRENT I  = ";A;" AMPS"
  180. 1800  PRINT "                     POWER CONSUMPTION = ";ABS(V*A*COS(T)/2);" WATTS"
  181. 1810  RETURN
  182. 1820  Z=R*Y*X/SQR(Y*Y*X*X+R*R*D*D)
  183. 1830  T=ATN(R*D/(Y*X))
  184. 1840  RETURN
  185. 1850  Z=SQR(R*R+D*D)
  186. 1860  T=ATN(D/R)
  187. 1870  RETURN
  188. 1880  Z=SQR((R*R+Y*Y)*(S*S+X*X)/((R+S)*(R+S)+D*D))
  189. 1890  T=ATN((X*(R*R+Y*Y)-Y*(S*S+X*X))/(R*(S*S+X*X)+S*(R*R+Y*Y)))
  190. 1900  RETURN
  191. 1910  PRINT:PRINT "                     INPUT 1 TO REPEAT CALCULATION."
  192. 1920  PRINT "                     INPUT 2 TO GO TO RLC CIRCUITS MENU.";
  193. 1930  INPUT N
  194. 1940  IF N=1 OR N=2 THEN RETURN
  195. 1950  PRINT:PRINT "                     INVALID INPUT":BEEP
  196. 1960  GOTO 1910
  197.