home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / prog8.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-12-26  |  16.0 KB  |  485 lines
  1. 8000  CLS
  2. 8010  F$="******** RC CIRCUITS (SERIES) ********"
  3. 8020  F=40-LEN(F$)/2
  4. 8030  LOCATE 1,F
  5. 8040  PRINT F$:PRINT:GOSUB 12770:PRINT" "
  6. 8050  LOCATE 5,5:PRINT"1. Z";CHR$(253);"=(R";CHR$(253);"+Xc";CHR$(253);")"
  7. 8060  LOCATE 6,5:PRINT"2. R";CHR$(253);"=(Z";CHR$(253);"-Xc";CHR$(253);")"
  8. 8070  LOCATE 7,5:PRINT"3. Xc";CHR$(253);"=(Z";CHR$(253);"-R";CHR$(253);")"
  9. 8080  LOCATE 9,5:PRINT"4. Vt";CHR$(253);"=(Vr";CHR$(253);"+Vc";CHR$(253);")"
  10. 8090  LOCATE 10,5:PRINT"5. Vr";CHR$(253);"=(Vt";CHR$(253);"-Vc";CHR$(253);")"
  11. 8100  LOCATE 11,5:PRINT"6. Vc";CHR$(253);"=(Vt";CHR$(253);"-Vr";CHR$(253);")"
  12. 8110  LOCATE 5,30:PRINT"7. R=Z[COS(";CHR$(237);")]"
  13. 8120  LOCATE 6,30:PRINT"8. Xc=Z[SIN(";CHR$(237);")]"
  14. 8130  LOCATE 9,30:PRINT"9. Vr=Vt[COS(";CHR$(237);")]"
  15. 8140  LOCATE 10,29:PRINT"10. Vc=Vt[SIN(";CHR$(237);")]"
  16. 8150  LOCATE 13,17:PRINT"R"
  17. 8160  LOCATE 14,4:PRINT"11. ";CHR$(237);"=ARCCOS -"
  18. 8170  LOCATE 15,17:PRINT"Z"
  19. 8180  LOCATE 16,17:PRINT"Xc"
  20. 8190  LOCATE 17,4:PRINT"12. ";CHR$(237);"=ARCSIN -"
  21. 8200  LOCATE 18,17:PRINT"Z"
  22. 8210  LOCATE 19,17:PRINT"Xc"
  23. 8220  LOCATE 20,4:PRINT"13. ";CHR$(237);"=ARCTAN -"
  24. 8230  LOCATE 21,17:PRINT"R"
  25. 8240  LOCATE 13,42:PRINT"Vr"
  26. 8250  LOCATE 14,29:PRINT"14. ";CHR$(237);"=ARCCOS -"
  27. 8260  LOCATE 15,42:PRINT"Vt"
  28. 8270  LOCATE 16,42:PRINT"Vc"
  29. 8280  LOCATE 17,29:PRINT"15. ";CHR$(237);"=ARCSIN -"
  30. 8290  LOCATE 18,42:PRINT"Vt"
  31. 8300  LOCATE 19,42:PRINT"Vc"
  32. 8310  LOCATE 20,29:PRINT"16. ";CHR$(237);"=ARCTAN -"
  33. 8320  LOCATE 21,42:PRINT"Vr"
  34. 8330  LOCATE 6,54:PRINT"17. E=IZ"
  35. 8340  LOCATE 8,61:PRINT"E"
  36. 8350  LOCATE 9,54:PRINT"18. I= -"
  37. 8360  LOCATE 10,61:PRINT"Z"
  38. 8370  LOCATE 12,61:PRINT"E"
  39. 8380  LOCATE 13,54:PRINT"19. Z= -"
  40. 8390  LOCATE 14,61:PRINT"I"
  41. 8400  LOCATE 6,68:PRINT"20. E=IX"
  42. 8410  LOCATE 8,75:PRINT"E"
  43. 8420  LOCATE 9,68:PRINT"21. I= -"
  44. 8430  LOCATE 10,75:PRINT"Xc"
  45. 8440  LOCATE 12,76:PRINT"E"
  46. 8450  LOCATE 13,68:PRINT"22. Xc= -"
  47. 8460  LOCATE 14,76:PRINT"I"
  48. 8470  LOCATE 16,60:PRINT"1"
  49. 8480  LOCATE 18,59:PRINT"2";CHR$(227);"FC"
  50. 8490  LOCATE 17,51:PRINT"23. Xc= ----"
  51. 8500  LOCATE 16,75:PRINT"1"
  52. 8510  LOCATE 17,66:PRINT"24. C= -----"
  53. 8520  LOCATE 18,73:PRINT"2";CHR$(227);"XcF"
  54. 8530  LOCATE 23,1:GOSUB 12770
  55. 8540  LOCATE 20,54:PRINT"ENTER NUMBER PLEASE";:INPUT A
  56. 8550  IF A=1 THEN 8800
  57. 8560  IF A=2 THEN 8960
  58. 8570  IF A=3 THEN 9140
  59. 8580  IF A=4 THEN 9320
  60. 8590  IF A=5 THEN 9480
  61. 8600  IF A=6 THEN 9670
  62. 8610  IF A=7 THEN 9860
  63. 8620  IF A=8 THEN 10010
  64. 8630  IF A=9 THEN 10160
  65. 8640  IF A=10 THEN 10310
  66. 8650  IF A=11 THEN 10460
  67. 8660  IF A=12 THEN 10650
  68. 8670  IF A=13 THEN 10830
  69. 8680  IF A=14 THEN 11000
  70. 8690  IF A=15 THEN 11180
  71. 8700  IF A=16 THEN 11370
  72. 8710  IF A=17 THEN 11540
  73. 8720  IF A=18 THEN 11680
  74. 8730  IF A=19 THEN 11840
  75. 8740  IF A=20 THEN 12000
  76. 8750  IF A=21 THEN 12140
  77. 8760  IF A=22 THEN 12290
  78. 8770  IF A=23 THEN 12450
  79. 8780  IF A=24 THEN 12610
  80. 8790  GOTO 8000
  81. 8800  CLS
  82. 8810  F$="******** IMPEDANCE (Z) WHEN (Xc) AND (R) ARE KNOWN ********"
  83. 8820  F=40-LEN(F$)/2
  84. 8830  LOCATE 1,F:PRINT F$
  85. 8840  PRINT:GOSUB 12770:PRINT" ":PRINT
  86. 8850  LOCATE 6,54:PRINT"Z";CHR$(253);"=(R";CHR$(253);"+Xc";CHR$(253);")"
  87. 8860  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE FOR (R) IN OHMS";R
  88. 8870  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE FOR (Xc) IN OHMS";XC
  89. 8880  Z=SQR((R^2)+(XC^2))
  90. 8890  LOCATE 15,1:PRINT"THE IMPEDANCE (Z) IS --------------------> ";Z;" OHMS"
  91. 8900  LOCATE 20,1:GOSUB 12770:PRINT" "
  92. 8910  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  93. 8920  Z$=INKEY$:IF Z$="" THEN 8920
  94. 8930  IF Z$="C" OR Z$="c" THEN 8800
  95. 8940  IF Z$="S" OR Z$="s" THEN 8000
  96. 8950  RUN "MAINMENU"
  97. 8960  CLS
  98. 8970  F$="******** THE RESISTANCE (R) WHEN (Z) AND (Xc) ARE KNOWN ********"
  99. 8980  F=40-LEN(F$)/2
  100. 8990  LOCATE 1,F:PRINT F$
  101. 9000  PRINT:GOSUB 12770:PRINT" ":PRINT
  102. 9010  LOCATE 6,54:PRINT"R";CHR$(253);"=(Z";CHR$(253);"-Xc";CHR$(253);")"
  103. 9020  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";Z
  104. 9030  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (Xc) IN OHMS";XC
  105. 9040  IF XC>Z THEN F$="(Xc) CANNOT BE GREATER THAN (Z)":GOSUB 12780
  106. 9050  IF XC>Z THEN 8960
  107. 9060  R=SQR((Z^2)-(XC^2))
  108. 9070  LOCATE 15,1:PRINT"THE VALUE OF THE RESISTANCE (R) IS --------------------> ";R;" OHMS"
  109. 9080  PRINT:PRINT:PRINT:GOSUB 12770:PRINT" "
  110. 9090  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  111. 9100  Z$=INKEY$:IF Z$="" THEN 9100
  112. 9110  IF Z$="C" OR Z$="c" THEN 8960
  113. 9120  IF Z$="S" OR Z$="s" THEN 8000
  114. 9130  RUN "MAINMENU"
  115. 9140  CLS
  116. 9150  F$="******** CAPACITIVE REACTANCE (Xc) WHEN (Z) AND (R) ARE KNOWN ********"
  117. 9160  F=40-LEN(F$)/2
  118. 9170  LOCATE 1,F:PRINT F$:PRINT:GOSUB 12770:PRINT" ":PRINT
  119. 9180  LOCATE 6,54:PRINT"Xc";CHR$(253);"=(Z";CHR$(253);"-R";CHR$(253);")"
  120. 9190  PRINT:PRINT
  121. 9200  INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";Z
  122. 9210  INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS";R
  123. 9220  IF R>Z THEN F$="(R) CANNOT BE GREATER THAN (Z)":GOSUB 12780
  124. 9230  IF R>Z THEN 9140
  125. 9240  XC=SQR((Z^2)-(R^2))
  126. 9250  LOCATE 15,1:PRINT"THE CAPACITIVE REACTANCE (Xc) IS -------------------> ";XC;" OHMS"
  127. 9260  PRINT:PRINT:PRINT:GOSUB 12770:PRINT" "
  128. 9270  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  129. 9280  Z$=INKEY$:IF Z$="" THEN 9280
  130. 9290  IF Z$="C" OR Z$="c" THEN 9140
  131. 9300  IF Z$="S" OR Z$="s" THEN 8000
  132. 9310  RUN "MAINMENU"
  133. 9320  CLS
  134. 9330  F$="******** TOTAL VOLTAGE (Vt) WHEN (Vr) AND (Vc) ARE KNOWN ********"
  135. 9340  GOSUB 12830:LOCATE 1,F:PRINT F$
  136. 9350  PRINT:GOSUB 12770:PRINT" ":PRINT
  137. 9360  LOCATE 6,54
  138. 9370  PRINT"Vt";CHR$(253);"=(Vr";CHR$(253);"+Vc";CHR$(253);")"
  139. 9380  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (Vr) IN VOLTS";VR
  140. 9390  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (Vc) IN VOLTS";VC
  141. 9400  VT=SQR((VR^2)+(VC^2))
  142. 9410  LOCATE 15,1:PRINT"THE TOTAL VOLTAGE (Vt) IS --------------------> ";VT;" VOLTS"
  143. 9420  PRINT:PRINT:PRINT:GOSUB 12770:PRINT" "
  144. 9430  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  145. 9440  Z$=INKEY$:IF Z$="" THEN 9440
  146. 9450  IF Z$="C" OR Z$="c" THEN 9320
  147. 9460  IF Z$="S" OR Z$="s" THEN 8000
  148. 9470  RUN "MAINMENU"
  149. 9480  CLS:F$="******** VOLTAGE (Vr) WHEN (Vt) AND (Vc) ARE KNOWN ********"
  150. 9490  GOSUB 12830:LOCATE 1,F:PRINT F$
  151. 9500  PRINT:GOSUB 12770:PRINT" ":PRINT
  152. 9510  LOCATE 6,54
  153. 9520  PRINT"Vr";CHR$(253);"=(Vt";CHR$(253);"-Vc";CHR$(253);")"
  154. 9530  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (Vt) IN VOLTS";VT
  155. 9540  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (Vc) IN VOLTS";VC
  156. 9550  IF VC>VT THEN F$="(Vc) CANNOT BE GREATER THAN (Vt)"
  157. 9560  IF VC>VT THEN GOSUB 12780
  158. 9570  IF VC>VT THEN 9480
  159. 9580  VR=SQR((VT^2)-(VC^2))
  160. 9590  PRINT:PRINT
  161. 9600  LOCATE 15,1:PRINT"THE VOLTAGE (Vr) IS --------------------> ";VR;" VOLTS"
  162. 9610  PRINT:PRINT:PRINT:GOSUB 12770:PRINT" "
  163. 9620  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  164. 9630  Z$=INKEY$:IF Z$="" THEN 9630
  165. 9640  IF Z$="C" OR Z$="c" THEN 9480
  166. 9650  IF Z$="S" OR Z$="s" THEN 8000
  167. 9660  RUN "MAINMENU"
  168. 9670  CLS:F$="******** VOLTAGE (Vc) WHEN (Vt) AND (Vr) ARE KNOWN ********"
  169. 9680  GOSUB 12830:LOCATE 1,F:PRINT F$
  170. 9690  PRINT:GOSUB 12770
  171. 9700  LOCATE 6,54
  172. 9710  PRINT"Vc";CHR$(253);"=(Vt";CHR$(253);"-Vr";CHR$(253);")"
  173. 9720  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (Vt) IN VOLTS";VT
  174. 9730  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (Vr) IN VOLTS";VR
  175. 9740  IF VR>VT THEN F$="(Vr) CANNOT BE GREATER THAN (Vt)"
  176. 9750  IF VR>VT THEN GOSUB 12780
  177. 9760  IF VR>VT THEN 9670
  178. 9770  VC=SQR((VT^2)-(VR^2))
  179. 9780  PRINT:PRINT:PRINT
  180. 9790  LOCATE 15,1:PRINT"THE VOLTAGE (Vc) IS --------------------> ";VC;" VOLTS"
  181. 9800  PRINT:PRINT:PRINT:GOSUB 12770:PRINT" "
  182. 9810  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  183. 9820  Z$=INKEY$:IF Z$="" THEN 9820
  184. 9830  IF Z$="C" OR Z$="c" THEN 9670
  185. 9840  IF Z$="S" OR Z$="s" THEN 8000
  186. 9850  RUN "MAINMENU"
  187. 9860  CLS
  188. 9870  F$="******** RESISTANCE (R) WHEN PHASE ANGLE AND (Z) ARE KNOWN ********"
  189. 9880  GOSUB 12830:LOCATE 1,F:PRINT F$
  190. 9890  PRINT:GOSUB 12770
  191. 9900  LOCATE 6,54:PRINT"R=Z[COS(";CHR$(237);")]"
  192. 9910  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";Z
  193. 9920  LOCATE 9,1:PRINT"PLEASE ENTER THE VALUE OF (";CHR$(237);") IN DEGREES";:INPUT PA
  194. 9930  R=Z*COS(PA*3.1415/180)
  195. 9940  LOCATE 15,1:PRINT"THE RESISTANCE (R) IS --------------------> ";R;" OHMS"
  196. 9950  PRINT:PRINT:PRINT:GOSUB 12770:PRINT" "
  197. 9960  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  198. 9970  Z$=INKEY$:IF Z$="" THEN 9970
  199. 9980  IF Z$="C" OR Z$="c" THEN 9860
  200. 9990  IF Z$="S" OR Z$="s" THEN 8000
  201. 10000  RUN "MAINMENU"
  202. 10010  CLS
  203. 10020  F$="******** (Xc) WHEN (Z) AND THE PHASE ANGLE ARE KNOWN ********"
  204. 10030  GOSUB 12830:LOCATE 1,F:PRINT F$
  205. 10040  PRINT:GOSUB 12770
  206. 10050  LOCATE 6,54:PRINT"Xc=Z[SIN(";CHR$(237);")]"
  207. 10060  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";Z
  208. 10070  LOCATE 9,1:PRINT"PLEASE ENTER THE VALUE OF (";CHR$(237);") IN DEGREES";:INPUT PA
  209. 10080  XC=Z*SIN(PA*3.1415/180)
  210. 10090  LOCATE 15,1:PRINT"THE CAPACITIVE REACTANCE (Xc) IS --------------------> ";XC;" OHMS"
  211. 10100  PRINT:PRINT:PRINT:GOSUB 12770:PRINT" "
  212. 10110  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  213. 10120  Z$=INKEY$:IF Z$="" THEN 10120
  214. 10130  IF Z$="C" OR Z$="c" THEN 10010
  215. 10140  IF Z$="S" OR Z$="s" THEN 8000
  216. 10150  RUN "MAINMENU"
  217. 10160  CLS
  218. 10170  F$="******** (Vr) WHEN (Vt) AND THEN PHASE ANGLE ARE KNOWN ********"
  219. 10180  GOSUB 12830:LOCATE 1,F:PRINT F$
  220. 10190  PRINT:GOSUB 12770
  221. 10200  LOCATE 6,54:PRINT"Vr=Vt[COS(";CHR$(237);")]"
  222. 10210  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (Vt) IN VOLTS";VT
  223. 10220  LOCATE 9,1:PRINT"PLEASE ENTER THE VALUE OF (";CHR$(237);") IN DEGREES";:INPUT PA
  224. 10230  VR=VT*COS(PA*3.1415/180)
  225. 10240  LOCATE 15,1:PRINT"THE RESISTOR VOLTAGE (Vr) IS --------------------> ";VR;" VOLTS"
  226. 10250  PRINT:PRINT:PRINT:GOSUB 12770:PRINT" "
  227. 10260  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  228. 10270  Z$=INKEY$:IF Z$="" THEN 10270
  229. 10280  IF Z$="C" OR Z$="c" THEN 10160
  230. 10290  IF Z$="S" OR Z$="s" THEN 8000
  231. 10300  RUN "MAINMENU"
  232. 10310  CLS
  233. 10320  F$="******** (Vc) WHEN (Vt) AND THE PHASE ANGLE ARE KNOWN ********"
  234. 10330  GOSUB 12830:LOCATE 1,F:PRINT F$
  235. 10340  PRINT:GOSUB 12770
  236. 10350  LOCATE 6,54:PRINT"Vc=Vt[SIN(";CHR$(237);")]"
  237. 10360  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (Vt) IN VOLTS";VT
  238. 10370  LOCATE 9,1:PRINT"PLEASE ENTER THE VALUE OF (";CHR$(237);") DEGREES";:INPUT PA
  239. 10380  VC=VT*SIN(PA*3.1415/180)
  240. 10390  LOCATE 15,1:PRINT"THE CAPACITOR VOLTAGE (Vc) IS --------------------> ";VC;" VOLTS"
  241. 10400  PRINT:PRINT:PRINT:GOSUB 12770:PRINT" "
  242. 10410  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  243. 10420  Z$=INKEY$:IF Z$="" THEN 10420
  244. 10430  IF Z$="S" OR Z$="s" THEN 8000
  245. 10440  IF Z$="C" OR Z$="c" THEN 10310
  246. 10450  RUN "MAINMENU"
  247. 10460  CLS
  248. 10470  F$="******** PHASE ANGLE WHEN (R) AND (Z) ARE KNOWN ********"
  249. 10480  GOSUB 12830:LOCATE 1,F:PRINT F$
  250. 10490  PRINT:GOSUB 12770
  251. 10500  LOCATE 6,63:PRINT"R"
  252. 10510  LOCATE 8,63:PRINT"Z"
  253. 10520  LOCATE 7,54:PRINT CHR$(237);"=ARCCOS -"
  254. 10530  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS";R
  255. 10540  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";Z
  256. 10550  IF R>Z THEN F$="(R) CANNOT BE GREATER THAN (Z)"
  257. 10560  IF R>Z THEN GOSUB 12780:IF R>Z THEN 10460
  258. 10570  Q=R/Z:A=ATN(Q/SQR(-Q*Q+1)):A=A*57.32:PA=(-1*A)+90
  259. 10580  LOCATE 15,1:PRINT"THE PHASE ANGLE (";CHR$(237);") IS --------------------> ";PA;" DEGREES"
  260. 10590  PRINT:PRINT:PRINT:GOSUB 12770:PRINT" "
  261. 10600  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  262. 10610  Z$=INKEY$:IF Z$="" THEN 10610
  263. 10620  IF Z$="C" OR Z$="c" THEN 10460
  264. 10630  IF Z$="S" OR Z$="s" THEN 8000
  265. 10640  RUN "MAINMENU"
  266. 10650  CLS
  267. 10660  F$="******** PHASE ANGLE WHEN (Xc) AND (Z) ARE KNOWN ********"
  268. 10670  GOSUB 12830:LOCATE 1,F:PRINT F$
  269. 10680  PRINT:GOSUB 12770
  270. 10690  LOCATE 6,63:PRINT"Xc"
  271. 10700  LOCATE 8,63:PRINT"Z"
  272. 10710  LOCATE 7,54:PRINT CHR$(237);"=ARCSIN -"
  273. 10720  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Xc) IN OHMS";XC
  274. 10730  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";Z
  275. 10740  IF XC>Z THEN F$="(Xc) CANNOT BE GREATER THAN (Z)"
  276. 10750  IF XC>Z THEN GOSUB 12780:IF XC>Z THEN 10650
  277. 10760  Q=XC/Z:A=ATN(Q/SQR(-Q*Q+1)):PA=A*57.32
  278. 10770  LOCATE 15,1:PRINT"THE PHASE ANGLE (";CHR$(237);") IS --------------------> ";PA;" DEGREES":PRINT:PRINT:PRINT:GOSUB 12770:PRINT" "
  279. 10780  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  280. 10790  Z$=INKEY$:IF Z$="" THEN 10790
  281. 10800  IF Z$="S" OR Z$="s" THEN 8000
  282. 10810  IF Z$="C" OR Z$="c" THEN 10650
  283. 10820  RUN "MAINMENU"
  284. 10830  CLS
  285. 10840  F$="******** PHASE ANGLE WHEN (Xc) AND (R) ARE KNOWN ********"
  286. 10850  GOSUB 12830:LOCATE 1,F:PRINT F$
  287. 10860  PRINT:GOSUB 12770
  288. 10870  LOCATE 6,63:PRINT"Xc"
  289. 10880  LOCATE 8,63:PRINT"R"
  290. 10890  LOCATE 7,54:PRINT CHR$(237);"=ARCTAN -"
  291. 10900  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Xc) IN OHMS";XC
  292. 10910  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS";R
  293. 10920  PA=(ATN(XC/R))*57.32
  294. 10930  LOCATE 15,1:PRINT"THE PHASE ANGLE (";CHR$(237);") IS --------------------> ";PA;" DEGREES"
  295. 10940  PRINT:PRINT:PRINT:GOSUB 12770:PRINT" "
  296. 10950  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  297. 10960  Z$=INKEY$:IF Z$="" THEN 10960
  298. 10970  IF Z$="C" OR Z$="c" THEN 10830
  299. 10980  IF Z$="S" OR Z$="s" THEN 8000
  300. 10990  RUN "MAINMENU"
  301. 11000  CLS
  302. 11010  F$="******** PHASE ANGLE WHEN (Vr) AND (Vt) ARE KNOWN ********"
  303. 11020  GOSUB 12830:LOCATE 1,F:PRINT F$:PRINT:GOSUB 12770
  304. 11030  LOCATE 6,63:PRINT"Vr"
  305. 11040  LOCATE 8,63:PRINT"Vt"
  306. 11050  LOCATE 7,54:PRINT CHR$(237);"=ARCCOS -"
  307. 11060  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Vr) IN VOLTS";VR
  308. 11070  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Vt) IN VOLTS";VT
  309. 11080  IF VR>VT THEN F$="(Vr) CANNOT BE GREATER THAN (Vt)"
  310. 11090  IF VR>VT THEN GOSUB 12780:IF VR>VT THEN 11000
  311. 11100  Q=VR/VT:A=ATN(Q/SQR(-Q*Q+1)):A=A*57.32:PA=(-1*A)+90
  312. 11110  LOCATE 15,1:PRINT"THE PHASE ANGLE (";CHR$(237);") IS --------------------> ";PA;" DEGREES"
  313. 11120  PRINT:PRINT:PRINT:GOSUB 12770:PRINT" "
  314. 11130  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  315. 11140  Z$=INKEY$:IF Z$="" THEN 11140
  316. 11150  IF Z$="C" OR Z$="c" THEN 11000
  317. 11160  IF Z$="S" OR Z$="s" THEN 8000
  318. 11170  RUN "MAINMENU"
  319. 11180  CLS
  320. 11190  F$="******** PHASE ANGLE WHEN (Vc) AND (Vt) ARE KNOWN ********"
  321. 11200  GOSUB 12830:LOCATE 1,F:PRINT F$
  322. 11210  PRINT:GOSUB 12770
  323. 11220  LOCATE 6,63:PRINT"Vc"
  324. 11230  LOCATE 8,63:PRINT"Vt"
  325. 11240  LOCATE 7,54:PRINT CHR$(237);"=ARCSIN -"
  326. 11250  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Vc) IN VOLTS";VC
  327. 11260  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Vt) IN VOLTS";VT
  328. 11270  IF VC>VT THEN F$="(Vc) CANNOT BE GREATER THAN (Vt)"
  329. 11280  IF VC>VT THEN GOSUB 12780:IF VC>VT THEN 11180
  330. 11290  Q=VC/VT:A=ATN(Q/SQR(-Q*Q+1)):PA=A*57.32
  331. 11300  LOCATE 15,1:PRINT"THE PHASE ANGLE (";CHR$(237);") IS --------------------> ";PA;" DEGREES"
  332. 11310  PRINT:PRINT:PRINT:GOSUB 12770:PRINT" "
  333. 11320  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  334. 11330  Z$=INKEY$:IF Z$="" THEN 11330
  335. 11340  IF Z$="S" OR Z$="s" THEN 8000
  336. 11350  IF Z$="C" OR Z$="c" THEN 11180
  337. 11360  RUN "MAINMENU"
  338. 11370  CLS
  339. 11380  F$="******** PHASE ANGLE WHEN (Vc) AND (Vr) ARE KNOWN ********"
  340. 11390  GOSUB 12830:LOCATE 1,F:PRINT F$
  341. 11400  PRINT:GOSUB 12770
  342. 11410  LOCATE 6,63:PRINT"Vc"
  343. 11420  LOCATE 8,63:PRINT"Vr"
  344. 11430  LOCATE 7,54:PRINT CHR$(237);"=ARCTAN -"
  345. 11440  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Vc) IN VOLTS";VC
  346. 11450  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Vt) IN VOLTS";VT
  347. 11460  PA=(ATN(VC/VT))*57.32
  348. 11470  LOCATE 15,1:PRINT"THE PHASE ANGLE (";CHR$(237);") IS --------------------> ";PA;" DEGREES"
  349. 11480  PRINT:PRINT:PRINT:GOSUB 12770:PRINT" "
  350. 11490  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  351. 11500  Z$=INKEY$:IF Z$="" THEN 11500
  352. 11510  IF Z$="C" OR Z$="c" THEN 11370
  353. 11520  IF Z$="S" OR Z$="s" THEN 8000
  354. 11530  RUN "MAINMENU"
  355. 11540  CLS:F$="******** VOLTAGE (E) WHEN (I) AND (Z) ARE KNOWN ********"
  356. 11550  GOSUB 12830
  357. 11560  LOCATE 1,F:PRINT F$:PRINT:GOSUB 12770
  358. 11570  LOCATE 6,54:PRINT"E=IZ"
  359. 11580  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  360. 11590  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";R
  361. 11600  E=I*R
  362. 11610  LOCATE 15,1:PRINT"THE VOLTAGE (E) IS --------------------> ";E;" VOLTS"
  363. 11620  PRINT:PRINT:PRINT:GOSUB 12770:PRINT" "
  364. 11630  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  365. 11640  Z$=INKEY$:IF Z$="" THEN 11640
  366. 11650  IF Z$="C" OR Z$="c" THEN 11540
  367. 11660  IF Z$="S" OR Z$="s" THEN 8000
  368. 11670  RUN "MAINMENU"
  369. 11680  CLS:F$="******** CURRENT (I) WHEN (E) AND (Z) ARE KNOWN ********"
  370. 11690  GOSUB 12830:LOCATE 1,F:PRINT F$
  371. 11700  PRINT:GOSUB 12770
  372. 11710  LOCATE 6,57:PRINT"E"
  373. 11720  LOCATE 7,54:PRINT"I= -"
  374. 11730  LOCATE 8,57:PRINT"Z"
  375. 11740  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  376. 11750  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";R
  377. 11760  I=E/R
  378. 11770  LOCATE 15,1:PRINT"THE CURRENT (I) IS --------------------> ";I;" AMPS"
  379. 11780  LOCATE 18,1:GOSUB 12770:PRINT" "
  380. 11790  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  381. 11800  Z$=INKEY$:IF Z$="" THEN 11800
  382. 11810  IF Z$="C" OR Z$="c" THEN 11680
  383. 11820  IF Z$="S" OR Z$="s" THEN 8000
  384. 11830  RUN "MAINMENU"
  385. 11840  CLS:F$="******** IMPEDANCE (Z) WHEN (E) AND (I) ARE KNOWN ********"
  386. 11850  GOSUB 12830:LOCATE 1,F:PRINT F$
  387. 11860  PRINT:GOSUB 12770
  388. 11870  LOCATE 6,57:PRINT"E"
  389. 11880  LOCATE 7,54:PRINT"Z= -"
  390. 11890  LOCATE 8,57:PRINT"I"
  391. 11900  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  392. 11910  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  393. 11920  R=E/I
  394. 11930  LOCATE 15,1:PRINT"THE IMPEDANCE (Z) IS --------------------> ";R;" OHMS"
  395. 11940  LOCATE 18,1:GOSUB 12770:PRINT" "
  396. 11950  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  397. 11960  Z$=INKEY$:IF Z$="" THEN 11960
  398. 11970  IF Z$="C" OR Z$="c" THEN 11840
  399. 11980  IF Z$="S" OR Z$="s" THEN 8000
  400. 11990  RUN "MAINMENU"
  401. 12000  CLS:F$="******** VOLTAGE (E) WHEN (I) AND (X) ARE KNOWN ********"
  402. 12010  GOSUB 12830
  403. 12020  LOCATE 1,F:PRINT F$:PRINT:GOSUB 12770
  404. 12030  LOCATE 6,54:PRINT"E=IX"
  405. 12040  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  406. 12050  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (X) IN OHMS";R
  407. 12060  E=I*R
  408. 12070  LOCATE 15,1:PRINT"THE VOLTAGE (E) IS --------------------> ";E;" VOLTS"
  409. 12080  LOCATE 18,1:GOSUB 12770
  410. 12090  LOCATE 20,1:PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  411. 12100  Z$=INKEY$:IF Z$="" THEN 12100
  412. 12110  IF Z$="C" OR Z$="c" THEN 12000
  413. 12120  IF Z$="S" OR Z$="s" THEN 8000
  414. 12130  RUN "MAINMENU"
  415. 12140  CLS:F$="******** CURRENT (I) WHEN (E) AND (Xc) ARE KNOWN ********"
  416. 12150  GOSUB 12830:LOCATE 1,F:PRINT F$:PRINT:GOSUB 12770
  417. 12160  LOCATE 6,57:PRINT"E"
  418. 12170  LOCATE 7,54:PRINT"I= -"
  419. 12180  LOCATE 8,57:PRINT"Xc"
  420. 12190  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  421. 12200  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Xc) IN OHMS";R
  422. 12210  I=E/R
  423. 12220  LOCATE 15,1:PRINT"THE CURRENT (I) IS --------------------> ";I;" AMPS"
  424. 12230  LOCATE 18,1:GOSUB 12770:PRINT" "
  425. 12240  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  426. 12250  Z$=INKEY$:IF Z$="" THEN 12250
  427. 12260  IF Z$="C" OR Z$="c" THEN 12140
  428. 12270  IF Z$="S" OR Z$="s" THEN 8000
  429. 12280  RUN "MAINMENU"
  430. 12290  CLS:F$="******** CAPACITIVE REACTANCE (Xc) WHEN (E) AND (I) ARE KNOWN ********"
  431. 12300  GOSUB 12830:LOCATE 1,F:PRINT F$
  432. 12310  PRINT:GOSUB 12770
  433. 12320  LOCATE 6,57:PRINT"E"
  434. 12330  LOCATE 7,53:PRINT"Xc= -"
  435. 12340  LOCATE 8,57:PRINT"I"
  436. 12350  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  437. 12360  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  438. 12370  R=E/I
  439. 12380  LOCATE 15,1:PRINT"THE CAPACITIVE REACTANCE (Xc) IS --------------------> ";R;" OHMS"
  440. 12390  LOCATE 18,1:GOSUB 12770:PRINT" "
  441. 12400  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  442. 12410  Z$=INKEY$:IF Z$="" THEN 12410
  443. 12420  IF Z$="C" OR Z$="c" THEN 12290
  444. 12430  IF Z$="S" OR Z$="s" THEN 8000
  445. 12440  RUN "MAINMENU"
  446. 12450  CLS:F$="******** CAPACITIVE REACTANCE (Xc) WHEN (F) AND (C) ARE KNOWN ********"
  447. 12460  GOSUB 12830:LOCATE 1,F:PRINT F$
  448. 12470  PRINT:GOSUB 12770
  449. 12480  LOCATE 6,59:PRINT"1"
  450. 12490  LOCATE 7,54:PRINT"Xc= ----"
  451. 12500  LOCATE 8,58:PRINT"2";CHR$(227);"FC"
  452. 12510  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (F) IN HERTZ";F
  453. 12520  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (C) IN FARADS";C
  454. 12530  XC=1/(6.28*F*C)
  455. 12540  LOCATE 15,1:PRINT"THE CAPACITIVE REACTANCE (Xc) IS --------------------> ";XC;" OHMS"
  456. 12550  LOCATE 18,1:GOSUB 12770:PRINT" "
  457. 12560  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  458. 12570  Z$=INKEY$:IF Z$="" THEN 12570
  459. 12580  IF Z$="C" OR Z$="c" THEN 12450
  460. 12590  IF Z$="S" OR Z$="s" THEN 8000
  461. 12600  RUN "MAINMENU"
  462. 12610  CLS:F$="******** CAPACITANCE (C) WHEN (F) AND (Xc) ARE KNOWN ********"
  463. 12620  GOSUB 12830:LOCATE 1,F:PRINT F$
  464. 12630  PRINT:GOSUB 12770
  465. 12640  LOCATE 5,59:PRINT"1"
  466. 12650  LOCATE 6,54:PRINT"C= -----"
  467. 12660  LOCATE 7,57:PRINT"2";CHR$(227);"XcF"
  468. 12670  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (F) IN HERTZ";F
  469. 12680  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Xc) IN OHMS";XC
  470. 12690  C=1/(6.28*XC*F)
  471. 12700  LOCATE 15,1:PRINT"THE CAPACITANCE (C) IS --------------------> ";C;" FARADS"
  472. 12710  LOCATE 18,1:GOSUB 12770:PRINT" "
  473. 12720  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  474. 12730  Z$=INKEY$:IF Z$="" THEN 12730
  475. 12740  IF Z$="C" OR Z$="c" THEN 12610
  476. 12750  IF Z$="S" OR Z$="s" THEN 8000
  477. 12760  RUN "MAINMENU"
  478. 12770  FOR M=1 TO 80:PRINT CHR$(178);:NEXT:RETURN
  479. 12780  CLS:F=40-LEN(F$)/2:LOCATE 12,F:PRINT F$
  480. 12790  FOR I=1 TO 100
  481. 12800  SOUND 1200,0.5
  482. 12810  SOUND 1400,0.5
  483. 12820  NEXT:RETURN
  484. 12830  F=40-LEN(F$)/2:RETURN
  485.