home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / prog10.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-12-26  |  15.7 KB  |  443 lines
  1. 16500  GOTO 18850
  2. 16510  CLS:F$="******** IMPEDANCE (Z) WHEN (XL) AND (R) ARE KNOWN ********"
  3. 16520  F=40-LEN(F$)/2:LOCATE 1,F:PRINT F$:PRINT:GOSUB 20850:PRINT" ":PRINT
  4. 16530  LOCATE 6,54:PRINT"Z";CHR$(253);"=(R";CHR$(253);"+XL";CHR$(253);")"
  5. 16540  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE FOR (R) IN OHMS";R
  6. 16550  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE FOR (XL) IN OHMS";XC
  7. 16560  Z=SQR((R^2)+(XC^2))
  8. 16570  LOCATE 15,1:PRINT"THE IMPEDANCE (Z) IS --------------------> ";Z;" OHMS"
  9. 16580  LOCATE 20,1:GOSUB 20850:PRINT" "
  10. 16590  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  11. 16600  Z$=INKEY$:IF Z$="" THEN 16600
  12. 16610  IF Z$="C" OR Z$="c" THEN 16510
  13. 16620  IF Z$="S" OR Z$="s" THEN 18850
  14. 16630  RUN "MAINMENU"
  15. 16640  CLS:F$="******** THE RESISTANCE (R) WHEN (Z) AND (XL) ARE KNOWN ********"
  16. 16650  GOSUB 20910:LOCATE 1,F:PRINT F$:PRINT:GOSUB 20850:PRINT" ":PRINT
  17. 16660  LOCATE 6,54:PRINT"R";CHR$(253);"=(Z";CHR$(253);"-XL";CHR$(253);")"
  18. 16670  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";Z
  19. 16680  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (XL) IN OHMS";XC
  20. 16690  IF XC>Z THEN F$="(XL) CANNOT BE GREATER THAN (Z)":GOSUB 20860
  21. 16700  IF XC>Z THEN 16640
  22. 16710  R=SQR((Z^2)-(XC^2))
  23. 16720  LOCATE 15,1:PRINT"THE VALUE OF THE RESISTANCE (R) IS --------------------> ";R;" OHMS"
  24. 16730  PRINT:PRINT:PRINT:GOSUB 20850:PRINT" "
  25. 16740  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  26. 16750  Z$=INKEY$:IF Z$="" THEN 16750
  27. 16760  IF Z$="C" OR Z$="c" THEN 16640
  28. 16770  IF Z$="S" OR Z$="s" THEN 18850
  29. 16780  RUN "MAINMENU"
  30. 16790  CLS:F$="******** INDUCTIVE REACTANCE (XL) WHEN (Z) AND (R) ARE KNOWN ********"
  31. 16800  GOSUB 20910:LOCATE 1,F:PRINT F$:PRINT:GOSUB 20850:PRINT" ":PRINT
  32. 16810  LOCATE 6,54:PRINT"XL";CHR$(253);"=(Z";CHR$(253);"-R";CHR$(253);")"
  33. 16820  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";Z
  34. 16830  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS";R
  35. 16840  IF R>Z THEN F$="(R) CANNOT BE GREATER THAN (Z)":GOSUB 20860
  36. 16850  IF R>Z THEN 16790
  37. 16860  XC=SQR((Z^2)-(R^2))
  38. 16870  LOCATE 15,1:PRINT"THE INDUCTIVE REACTANCE (XL) IS --------------------> ";XC;" OHMS"
  39. 16880  PRINT:PRINT:PRINT:GOSUB 20850:PRINT" "
  40. 16890  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  41. 16900  Z$=INKEY$:IF Z$="" THEN 16900
  42. 16910  IF Z$="C" OR Z$="c" THEN 16790
  43. 16920  IF Z$="S" OR Z$="s" THEN 18850
  44. 16930  RUN "MAINMENU"
  45. 16940  CLS:F$="******** TOTAL VOLTAGE (Vt) WHEN (Vr) AND (VL) ARE KNOWN ********"
  46. 16950  GOSUB 20910:LOCATE 1,F:PRINT F$:PRINT:GOSUB 20850:PRINT" ":PRINT
  47. 16960  LOCATE 6,54:PRINT"Vt";CHR$(253);"=(Vr";CHR$(253);"+VL";CHR$(253);")"
  48. 16970  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (Vr) IN VOLTS";VR
  49. 16980  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (VL) IN VOLTS";VC
  50. 16990  VT=SQR((VR^2)+(VC^2))
  51. 17000  LOCATE 15,1:PRINT"THE TOTAL VOLTAGE (Vt) IS --------------------> ";VT;" VOLTS"
  52. 17010  PRINT:PRINT:PRINT:GOSUB 20850:PRINT" "
  53. 17020  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  54. 17030  Z$=INKEY$:IF Z$="" THEN 17030
  55. 17040  IF Z$="C" OR Z$="c" THEN 16940
  56. 17050  IF Z$="S" OR Z$="s" THEN 18850
  57. 17060  RUN "MAINMENU"
  58. 17070  CLS:F$="******** VOLTAGE (Vr) WHEN (Vt) AND (VL) ARE KNOWN ********"
  59. 17080  GOSUB 20910:LOCATE 1,F:PRINT F$:PRINT:GOSUB 20850:PRINT" ":PRINT
  60. 17090  LOCATE 6,54:PRINT"Vr";CHR$(253);"=(Vt";CHR$(253);"-VL";CHR$(253);")"
  61. 17100  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (Vt) IN VOLTS";VT
  62. 17110  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (VL) IN VOLTS";VC
  63. 17120  IF VC>VT THEN F$="(VL) CANNOT BE GREATER THAN (Vt)":GOSUB 20860
  64. 17130  IF VC>VT THEN 17070
  65. 17140  VR=SQR((VT^2)-(VC^2))
  66. 17150  LOCATE 15,1:PRINT"THE VOLTAGE (Vr) IS --------------------> ";VR;" VOLTS"
  67. 17160  PRINT:PRINT:PRINT:GOSUB 20850:PRINT" "
  68. 17170  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  69. 17180  Z$=INKEY$:IF Z$="" THEN 17180
  70. 17190  IF Z$="C" OR Z$="c" THEN 17070
  71. 17200  IF Z$="S" OR Z$="s" THEN 18850
  72. 17210  RUN "MAINMENU"
  73. 17220  CLS:F$="******** VOLTAGE (VL) WHEN (Vt) AND (Vr) ARE KNOWN ********"
  74. 17230  GOSUB 20910:LOCATE 1,F:PRINT F$:PRINT:GOSUB 20850
  75. 17240  LOCATE 6,54:PRINT"VL";CHR$(253);"=(Vt";CHR$(253);"-Vr";CHR$(253);")"
  76. 17250  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (Vt) IN VOLTS";VT
  77. 17260  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (Vr) IN VOLTS";VR
  78. 17270  IF VR>VT THEN F$="(Vr) CANNOT BE GREATER THAN (Vt)":GOSUB 20860
  79. 17280  IF VR>VT THEN 17220
  80. 17290  VC=SQR((VT^2)-(VR^2))
  81. 17300  LOCATE 15,1:PRINT"THE VOLTAGE (VL) IS --------------------> ";VC;" VOLTS"
  82. 17310  PRINT:PRINT:PRINT:GOSUB 20850:PRINT" "
  83. 17320  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  84. 17330  Z$=INKEY$:IF Z$="" THEN 17330
  85. 17340  IF Z$="C" OR Z$="c" THEN 17220
  86. 17350  IF Z$="S" OR Z$="s" THEN 18850
  87. 17360  RUN "MAINMENU"
  88. 17370  CLS:F$="******** (XL) WHEN (Z) AND THE PHASE ANGLE ARE KNOWN ********"
  89. 17380  GOSUB 20910:LOCATE 1,F:PRINT F$:PRINT:GOSUB 20850
  90. 17390  LOCATE 6,54:PRINT"XL=Z[SIN(";CHR$(237);")]"
  91. 17400  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";Z
  92. 17410  LOCATE 9,1:PRINT"PLEASE ENTER THE VALUE OF (";CHR$(237);") IN DEGREES";:INPUT PA
  93. 17420  XC=Z*SIN(PA*3.1415/180)
  94. 17430  LOCATE 15,1:PRINT"THE INDUCTIVE REACTANCE (XL) IS --------------------> ";XC;" OHMS"
  95. 17440  PRINT:PRINT:PRINT:GOSUB 20850:PRINT" "
  96. 17450  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  97. 17460  Z$=INKEY$:IF Z$="" THEN 17460
  98. 17470  IF Z$="C" OR Z$="c" THEN 17370
  99. 17480  IF Z$="S" OR Z$="s" THEN 18850
  100. 17490  RUN "MAINMENU"
  101. 17500  CLS:F$="******** (VL) WHEN (Vt) AND THE PHASE ANGLE ARE KNOWN ********"
  102. 17510  GOSUB 20910:LOCATE 1,F:PRINT F$:PRINT:GOSUB 20850
  103. 17520  LOCATE 6,54:PRINT"VL=Vt[SIN(";CHR$(237);")]"
  104. 17530  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (Vt) IN VOLTS";VT
  105. 17540  LOCATE 9,1:PRINT"PLEASE ENTER THE VALUE OF (";CHR$(237);") IN DEGREES";:INPUT PA
  106. 17550  VC=VT*SIN(PA*3.1415/180)
  107. 17560  LOCATE 15,1:PRINT"THE INDUCTOR VOLTAGE (VL) IS --------------------> ";VC;" VOLTS"
  108. 17570  PRINT:PRINT:PRINT:GOSUB 20850:PRINT" "
  109. 17580  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  110. 17590  Z$=INKEY$:IF Z$="" THEN 17590
  111. 17600  IF Z$="C" OR Z$="c" THEN 17500
  112. 17610  IF Z$="S" OR Z$="s" THEN 18850
  113. 17620  RUN "MAINMENU"
  114. 17630  CLS:F$="******** PHASE ANGLE WHEN (XL) AND (Z) ARE KNOWN ********"
  115. 17640  GOSUB 20910:LOCATE 1,F:PRINT F$:PRINT:GOSUB 20850
  116. 17650  LOCATE 6,63:PRINT"XL"
  117. 17660  LOCATE 8,63:PRINT"Z"
  118. 17670  LOCATE 7,54:PRINT CHR$(237);"=ARCSIN -"
  119. 17680  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (XL) IN OHMS";XC
  120. 17690  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";Z
  121. 17700  IF XC>Z THEN F$="(XL) CANNOT BE GREATER THAN (Z)":GOSUB 20860
  122. 17710  IF XC>Z THEN 17630
  123. 17720  Q=XC/Z:A=ATN(Q/SQR(-Q*Q+1)):PA=A*57.32
  124. 17730  LOCATE 15,1:PRINT"THE PHASE ANGLE (";CHR$(237);") IS --------------------> ";PA;" DEGREES"
  125. 17740  PRINT:PRINT:PRINT:GOSUB 20850:PRINT" "
  126. 17750  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  127. 17760  Z$=INKEY$:IF Z$="" THEN 17760
  128. 17770  IF Z$="C" OR Z$="c" THEN 17630
  129. 17780  IF Z$="S" OR Z$="s" THEN 18850
  130. 17790  RUN "MAINMENU"
  131. 17800  CLS:F$="******** PHASE ANGLE WHEN (XL) AND (R) ARE KNOWN ********"
  132. 17810  GOSUB 20910:LOCATE 1,F:PRINT F$:PRINT:GOSUB 20850
  133. 17820  LOCATE 6,63:PRINT"XL"
  134. 17830  LOCATE 8,63:PRINT"R"
  135. 17840  LOCATE 7,54:PRINT CHR$(237);"=ARCTAN -"
  136. 17850  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (XL) IN OHMS";XC
  137. 17860  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS";R
  138. 17870  PA=(ATN(XC/R))*57.32
  139. 17880  LOCATE 15,1:PRINT"THE PHASE ANGLE (";CHR$(237);") IS --------------------> ";PA;" DEGREES"
  140. 17890  PRINT:PRINT:PRINT:GOSUB 20850:PRINT" "
  141. 17900  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  142. 17910  Z$=INKEY$:IF Z$="" THEN 17910
  143. 17920  IF Z$="C" OR Z$="c" THEN 17800
  144. 17930  IF Z$="S" OR Z$="s" THEN 18850
  145. 17940  RUN "MAINMENU"
  146. 17950  CLS:F$="******** PHASE ANGLE WHEN (VL) AND (Vt) ARE KNOWN ********"
  147. 17960  GOSUB 20910:LOCATE 1,F:PRINT F$:PRINT:GOSUB 20850
  148. 17970  LOCATE 6,63:PRINT"VL"
  149. 17980  LOCATE 8,63:PRINT"Vt"
  150. 17990  LOCATE 7,54:PRINT CHR$(237);"=ARCSIN -"
  151. 18000  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (VL) IN VOLTS";VC
  152. 18010  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Vt) IN VOLTS";VT
  153. 18020  IF VC>VT THEN F$="(VL) CANNOT BE GREATER THAN (Vt)":GOSUB 20860
  154. 18030  IF VC>VT THEN 17950
  155. 18040  Q=VC/VT:A=ATN(Q/SQR(-Q*Q+1)):PA=A*57.32
  156. 18050  LOCATE 15,1:PRINT"THE PHASE ANGLE (";CHR$(237);") IS --------------------> ";PA;" DEGREES"
  157. 18060  PRINT:PRINT:PRINT:GOSUB 20850:PRINT" "
  158. 18070  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  159. 18080  Z$=INKEY$:IF Z$="" THEN 18080
  160. 18090  IF Z$="C" OR Z$="c" THEN 17950
  161. 18100  IF Z$="S" OR Z$="s" THEN 18850
  162. 18110  RUN "MAINMENU"
  163. 18120  CLS:F$="******** PHASE ANGLE WHEN (VL) AND (Vr) ARE KNOWN ********"
  164. 18130  GOSUB 20910:LOCATE 1,F:PRINT F$:PRINT:GOSUB 20850
  165. 18140  LOCATE 6,63:PRINT"VL"
  166. 18150  LOCATE 8,63:PRINT"Vr"
  167. 18160  LOCATE 7,54:PRINT CHR$(237);"=ARCTAN -"
  168. 18170  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (VL) IN VOLTS";VC
  169. 18180  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Vr) IN VOLTS";VT
  170. 18190  PA=(ATN(VC/VT))*57.32
  171. 18200  LOCATE 15,1:PRINT"THE PHASE ANGLE (";CHR$(237);") IS --------------------> ";PA;" DEGREES"
  172. 18210  PRINT:PRINT:PRINT:GOSUB 20850:PRINT" "
  173. 18220  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  174. 18230  Z$=INKEY$:IF Z$="" THEN 18230
  175. 18240  IF Z$="C" OR Z$="c" THEN 18120
  176. 18250  IF Z$="S" OR Z$="s" THEN 18850
  177. 18260  RUN "MAINMENU"
  178. 18270  CLS:F$="******** CURRENT (I) WHEN (E) AND (XL) ARE KNOWN ********"
  179. 18280  GOSUB 20910:LOCATE 1,F:PRINT F$:PRINT:GOSUB 20850
  180. 18290  LOCATE 6,57:PRINT"E"
  181. 18300  LOCATE 7,54:PRINT"I= -"
  182. 18310  LOCATE 8,57:PRINT"XL"
  183. 18320  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  184. 18330  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (XL) IN OHMS";R
  185. 18340  I=E/R
  186. 18350  LOCATE 15,1:PRINT"THE CURRENT (I) IS --------------------> ";I;" AMPS"
  187. 18360  LOCATE 18,1:GOSUB 20850:PRINT" "
  188. 18370  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  189. 18380  Z$=INKEY$:IF Z$="" THEN 18380
  190. 18390  IF Z$="C" OR Z$="c" THEN 18270
  191. 18400  IF Z$="S" OR Z$="s" THEN 18850
  192. 18410  RUN "MAINMENU"
  193. 18420  CLS:F$="******** INDUCTIVE REACTANCE (XL) WHEN (E) AND (I) ARE KNOWN ********"
  194. 18430  GOSUB 20910:LOCATE 1,F:PRINT F$:PRINT:GOSUB 20850
  195. 18440  LOCATE 6,57:PRINT"E"
  196. 18450  LOCATE 7,53:PRINT"XL= -"
  197. 18460  LOCATE 8,57:PRINT"I"
  198. 18470  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  199. 18480  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  200. 18490  R=E/I
  201. 18500  LOCATE 15,1:PRINT"THE INDUCTIVE REACTANCE (XL) IS --------------------> ";R;" OHMS"
  202. 18510  LOCATE 18,1:GOSUB 20850:PRINT" "
  203. 18520  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  204. 18530  Z$=INKEY$:IF Z$="" THEN 18530
  205. 18540  IF Z$="C" OR Z$="c" THEN 18420
  206. 18550  IF Z$="S" OR Z$="s" THEN 18850
  207. 18560  RUN "MAINMENU"
  208. 18570  CLS:F$="******** INDUCTIVE REACTANCE (XL) WHEN (F) AND (L) ARE KNOWN ********"
  209. 18580  GOSUB 20910:LOCATE 1,F:PRINT F$:PRINT:GOSUB 20850
  210. 18590  LOCATE 7,54:PRINT"XL=2";CHR$(227);"FL"
  211. 18600  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (F) IN HERTZ";F
  212. 18610  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (L) IN HENRYS";L
  213. 18620  XL=6.28*F*L
  214. 18630  LOCATE 15,1:PRINT"THE INDUCTIVE REACTANCE (XL) IS --------------------> ";XL;" OHMS"
  215. 18640  LOCATE 18,1:GOSUB 20850:PRINT" "
  216. 18650  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  217. 18660  Z$=INKEY$:IF Z$="" THEN 18660
  218. 18670  IF Z$="C" OR Z$="c" THEN 18570
  219. 18680  IF Z$="S" OR Z$="s" THEN 18850
  220. 18690  RUN "MAINMENU"
  221. 18700  CLS:F$="******** INDUCTANCE (L) WHEN (F) AND (XL) ARE KNOWN ********"
  222. 18710  GOSUB 20910:LOCATE 1,F:PRINT F$:PRINT:GOSUB 20850
  223. 18720  LOCATE 5,59:PRINT"XL"
  224. 18730  LOCATE 6,54:PRINT"L= -----"
  225. 18740  LOCATE 7,58:PRINT"2";CHR$(227);"F"
  226. 18750  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (F) IN HERTZ";F
  227. 18760  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (XL) IN OHMS";XL
  228. 18770  L=XL/(6.28*F)
  229. 18780  LOCATE 15,1:PRINT"THE INDUCTANCE (L) IS --------------------> ";L;" HENRYS"
  230. 18790  LOCATE 18,1:GOSUB 20850:PRINT" "
  231. 18800  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  232. 18810  Z$=INKEY$:IF Z$="" THEN 18810
  233. 18820  IF Z$="C" OR Z$="c" THEN 18700
  234. 18830  IF Z$="S" OR Z$="s" THEN 18850
  235. 18840  RUN "MAINMENU"
  236. 18850  CLS:F$="******** RL CIRCUITS (SERIES) ********"
  237. 18860  F=40-LEN(F$)/2:LOCATE 1,F:PRINT F$:PRINT:GOSUB 20850:PRINT" "
  238. 18870  LOCATE 5,5:PRINT"1. Z";CHR$(253);"=(R";CHR$(253);"+XL";CHR$(253);")"
  239. 18880  LOCATE 6,5:PRINT"2. R";CHR$(253);"=(Z";CHR$(253);"-XL";CHR$(253);")"
  240. 18890  LOCATE 7,5:PRINT"3. XL";CHR$(253);"=(Z";CHR$(253);"-R";CHR$(253);")"
  241. 18900  LOCATE 9,5:PRINT"4. Vt";CHR$(253);"=(Vr";CHR$(253);"+VL";CHR$(253);")"
  242. 18910  LOCATE 10,5:PRINT"5. Vr";CHR$(253);"=(Vt";CHR$(253);"-VL";CHR$(253);")"
  243. 18920  LOCATE 11,5:PRINT"6. VL";CHR$(253);"=(Vt";CHR$(253);"-Vr";CHR$(253);")"
  244. 18930  LOCATE 5,30:PRINT"7. R=Z[COS(";CHR$(237);")]"
  245. 18940  LOCATE 6,30:PRINT"8. XL=Z[SIN(";CHR$(237);")]"
  246. 18950  LOCATE 9,30:PRINT"9. Vr=Vt[COS(";CHR$(237);")]"
  247. 18960  LOCATE 10,29:PRINT"10. VL=Vt[SIN(";CHR$(237);")]"
  248. 18970  LOCATE 13,17:PRINT"R"
  249. 18980  LOCATE 14,4:PRINT"11. ";CHR$(237);"=ARCCOS -"
  250. 18990  LOCATE 15,17:PRINT"Z"
  251. 19000  LOCATE 16,17:PRINT"XL"
  252. 19010  LOCATE 17,4:PRINT"12. ";CHR$(237);"=ARCSIN -"
  253. 19020  LOCATE 18,17:PRINT"Z"
  254. 19030  LOCATE 19,17:PRINT"XL"
  255. 19040  LOCATE 20,4:PRINT"13. ";CHR$(237);"=ARCTAN -"
  256. 19050  LOCATE 21,17:PRINT"R"
  257. 19060  LOCATE 13,42:PRINT"Vr"
  258. 19070  LOCATE 14,29:PRINT"14. ";CHR$(237);"=ARCCOS -"
  259. 19080  LOCATE 15,42:PRINT"Vt"
  260. 19090  LOCATE 16,42:PRINT"VL"
  261. 19100  LOCATE 17,29:PRINT"15. ";CHR$(237);"=ARCSIN -"
  262. 19110  LOCATE 18,42:PRINT"Vt"
  263. 19120  LOCATE 19,42:PRINT"VL"
  264. 19130  LOCATE 20,29:PRINT"16. ";CHR$(237);"=ARCTAN -"
  265. 19140  LOCATE 21,42:PRINT"Vr"
  266. 19150  LOCATE 6,54:PRINT"17. E=IZ"
  267. 19160  LOCATE 8,61:PRINT"E"
  268. 19170  LOCATE 9,54:PRINT"18. I= -"
  269. 19180  LOCATE 10,61:PRINT"Z"
  270. 19190  LOCATE 12,61:PRINT"E"
  271. 19200  LOCATE 13,54:PRINT"19. Z= -"
  272. 19210  LOCATE 14,61:PRINT"I"
  273. 19220  LOCATE 6,68:PRINT"20. E=IX"
  274. 19230  LOCATE 8,75:PRINT"E"
  275. 19240  LOCATE 9,68:PRINT"21. I= -"
  276. 19250  LOCATE 10,75:PRINT"XL"
  277. 19260  LOCATE 12,76:PRINT"E":LOCATE 13,68:PRINT"22. XL= -"
  278. 19270  LOCATE 14,76:PRINT"I"
  279. 19280  LOCATE 17,51:PRINT"23. XL=2";CHR$(227);"FL"
  280. 19290  LOCATE 16,74:PRINT"XL"
  281. 19300  LOCATE 17,66:PRINT"24. L= -----"
  282. 19310  LOCATE 18,74:PRINT"2";CHR$(227);"F"
  283. 19320  LOCATE 23,1:GOSUB 20850:LOCATE 20,54:PRINT"ENTER NUMBER PLEASE";:INPUT A
  284. 19330  IF A=1 THEN 16510
  285. 19340  IF A=2 THEN 16640
  286. 19350  IF A=3 THEN 16790
  287. 19360  IF A=4 THEN 16940
  288. 19370  IF A=5 THEN 17070
  289. 19380  IF A=6 THEN 17220
  290. 19390  IF A=7 THEN 19580
  291. 19400  IF A=8 THEN 17370
  292. 19410  IF A=9 THEN 19730
  293. 19420  IF A=10 THEN 17500
  294. 19430  IF A=11 THEN 19880
  295. 19440  IF A=12 THEN 17630
  296. 19450  IF A=13 THEN 17800
  297. 19460  IF A=14 THEN 20070
  298. 19470  IF A=15 THEN 17950
  299. 19480  IF A=16 THEN 18120
  300. 19490  IF A=17 THEN 20250
  301. 19500  IF A=18 THEN 20390
  302. 19510  IF A=19 THEN 20550
  303. 19520  IF A=20 THEN 20710
  304. 19530  IF A=21 THEN 18270
  305. 19540  IF A=22 THEN 18420
  306. 19550  IF A=23 THEN 18570
  307. 19560  IF A=24 THEN 18700
  308. 19570  GOTO 18850
  309. 19580  CLS
  310. 19590  F$="******** RESISTANCE (R) WHEN PHASE ANGLE AND (Z) ARE KNOWN ********"
  311. 19600  GOSUB 20910:LOCATE 1,F:PRINT F$
  312. 19610  PRINT:GOSUB 20850
  313. 19620  LOCATE 6,54:PRINT"R=Z[COS(";CHR$(237);")]"
  314. 19630  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";Z
  315. 19640  LOCATE 9,1:PRINT"PLEASE ENTER THE VALUE OF (";CHR$(237);") IN DEGREES";:INPUT PA
  316. 19650  R=Z*COS(PA*3.1415/180)
  317. 19660  LOCATE 15,1:PRINT"THE RESISTANCE (R) IS --------------------> ";R;" OHMS"
  318. 19670  PRINT:PRINT:PRINT:GOSUB 20850:PRINT" "
  319. 19680  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  320. 19690  Z$=INKEY$:IF Z$="" THEN 19690
  321. 19700  IF Z$="C" OR Z$="c" THEN 19580
  322. 19710  IF Z$="S" OR Z$="s" THEN 18850
  323. 19720  RUN "MAINMENU"
  324. 19730  CLS
  325. 19740  F$="******** (Vr) WHEN (Vt) AND THE PHASE ANGLE ARE KNOWN ********"
  326. 19750  GOSUB 20910:LOCATE 1,F:PRINT F$
  327. 19760  PRINT:GOSUB 20850
  328. 19770  LOCATE 6,54:PRINT"Vr=Vt[COS(";CHR$(237);")]"
  329. 19780  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (Vt) IN VOLTS";VT
  330. 19790  LOCATE 9,1:PRINT"PLEASE ENTER THE VALUE OF (";CHR$(237);") IN DEGREES";:INPUT PA
  331. 19800  VR=VT*COS(PA*3.1415/180)
  332. 19810  LOCATE 15,1:PRINT"THE RESISTOR VOLTAGE (Vr) IS --------------------> ";VR;" VOLTS"
  333. 19820  PRINT:PRINT:PRINT:GOSUB 20850:PRINT" "
  334. 19830  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  335. 19840  Z$=INKEY$:IF Z$="" THEN 19840
  336. 19850  IF Z$="C" OR Z$="c" THEN 19730
  337. 19860  IF Z$="S" OR Z$="s" THEN 18850
  338. 19870  RUN "MAINMENU"
  339. 19880  CLS
  340. 19890  F$="******** PHASE ANGLE WHEN (R) AND (Z) ARE KNOWN ********"
  341. 19900  GOSUB 20910:LOCATE 1,F:PRINT F$
  342. 19910  PRINT:GOSUB 20850
  343. 19920  LOCATE 6,63:PRINT"R"
  344. 19930  LOCATE 8,63:PRINT"Z"
  345. 19940  LOCATE 7,54:PRINT CHR$(237);"=ARCCOS -"
  346. 19950  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS";R
  347. 19960  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";Z
  348. 19970  IF R>Z THEN F$="(R) CANNOT BE GREATER THAN (Z)"
  349. 19980  IF R>Z THEN GOSUB 20860:IF R>Z THEN 19880
  350. 19990  Q=R/Z:A=ATN(Q/SQR(-Q*Q+1)):A=A*57.32:PA=(-1*A)+90
  351. 20000  LOCATE 15,1:PRINT"THE PHASE ANGLE (";CHR$(237);") IS --------------------> ";PA;" DEGREES"
  352. 20010  PRINT:PRINT:PRINT:GOSUB 20850:PRINT" "
  353. 20020  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  354. 20030  Z$=INKEY$:IF Z$="" THEN 20030
  355. 20040  IF Z$="C" OR Z$="c" THEN 19880
  356. 20050  IF Z$="S" OR Z$="s" THEN 18850
  357. 20060  RUN "MAINMENU"
  358. 20070  CLS
  359. 20080  F$="******** PHASE ANGLE WHEN (Vr) AND (Vt) ARE KNOWN ********"
  360. 20090  GOSUB 20910:LOCATE 1,F:PRINT F$:PRINT:GOSUB 20850
  361. 20100  LOCATE 6,63:PRINT"Vr"
  362. 20110  LOCATE 8,63:PRINT"Vt"
  363. 20120  LOCATE 7,54:PRINT CHR$(237);"=ARCCOS -"
  364. 20130  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Vr) IN VOLTS";VR
  365. 20140  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Vt) IN VOLTS";VT
  366. 20150  IF VR>VT THEN F$="(Vr) CANNOT BE GREATER THAN (Vt)"
  367. 20160  IF VR>VT THEN GOSUB 20860:IF VR>VT THEN 20070
  368. 20170  Q=VR/VT:A=ATN(Q/SQR(-Q*Q+1)):A=A*57.32:PA=(-1*A)+90
  369. 20180  LOCATE 15,1:PRINT"THE PHASE ANGLE (";CHR$(237);") IS --------------------> ";PA;" DEGREES"
  370. 20190  PRINT:PRINT:PRINT:GOSUB 20850:PRINT" "
  371. 20200  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  372. 20210  Z$=INKEY$:IF Z$="" THEN 20210
  373. 20220  IF Z$="C" OR Z$="c" THEN 20070
  374. 20230  IF Z$="S" OR Z$="s" THEN 18850
  375. 20240  RUN "MAINMENU"
  376. 20250  CLS:F$="******** VOLTAGE (E) WHEN (I) AND (Z) ARE KNOWN ********"
  377. 20260  GOSUB 20910
  378. 20270  LOCATE 1,F:PRINT F$:PRINT:GOSUB 20850
  379. 20280  LOCATE 6,54:PRINT"E=IZ"
  380. 20290  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  381. 20300  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";R
  382. 20310  E=I*R
  383. 20320  LOCATE 15,1:PRINT"THE VOLTAGE (E) IS --------------------> ";E;" VOLTS"
  384. 20330  PRINT:PRINT:PRINT:GOSUB 20850:PRINT" "
  385. 20340  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  386. 20350  Z$=INKEY$:IF Z$="" THEN 20350
  387. 20360  IF Z$="C" OR Z$="c" THEN 20250
  388. 20370  IF Z$="S" OR Z$="s" THEN 18850
  389. 20380  RUN"MAIN MENU"
  390. 20390  CLS:F$="******** CURRENT (I) WHEN (E) AND (Z) ARE KNOWN ********"
  391. 20400  GOSUB 20910:LOCATE 1,F:PRINT F$
  392. 20410  PRINT:GOSUB 20850
  393. 20420  LOCATE 6,57:PRINT"E"
  394. 20430  LOCATE 7,54:PRINT"I= -"
  395. 20440  LOCATE 8,57:PRINT"Z"
  396. 20450  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  397. 20460  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";R
  398. 20470  I=E/R
  399. 20480  LOCATE 15,1:PRINT"THE CURRENT (I) IS --------------------> ";I;" AMPS"
  400. 20490  LOCATE 18,1:GOSUB 20850:PRINT" "
  401. 20500  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  402. 20510  Z$=INKEY$:IF Z$="" THEN 20510
  403. 20520  IF Z$="C" OR Z$="c" THEN 20390
  404. 20530  IF Z$="S" OR Z$="s" THEN 18850
  405. 20540  RUN "MAINMENU"
  406. 20550  CLS:F$="******** IMPEDANCE (Z) WHEN (E) AND (I) ARE KNOWN ********"
  407. 20560  GOSUB 20910:LOCATE 1,F:PRINT F$
  408. 20570  PRINT:GOSUB 20850
  409. 20580  LOCATE 6,57:PRINT"E"
  410. 20590  LOCATE 7,54:PRINT"Z= -"
  411. 20600  LOCATE 8,57:PRINT"I"
  412. 20610  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  413. 20620  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  414. 20630  R=E/I
  415. 20640  LOCATE 15,1:PRINT"THE IMPEDANCE (Z) IS --------------------> ";R;" OHMS"
  416. 20650  LOCATE 18,1:GOSUB 20850:PRINT" "
  417. 20660  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  418. 20670  Z$=INKEY$:IF Z$="" THEN 20670
  419. 20680  IF Z$="C" OR Z$="c" THEN 20550
  420. 20690  IF Z$="S" OR Z$="s" THEN 18850
  421. 20700  RUN "MAINMENU"
  422. 20710  CLS:F$="******** VOLTAGE (E) WHEN (I) AND (X) ARE KNOWN ********"
  423. 20720  GOSUB 20910
  424. 20730  LOCATE 1,F:PRINT F$:PRINT:GOSUB 20850
  425. 20740  LOCATE 6,54:PRINT"E=IX"
  426. 20750  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  427. 20760  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (X) IN OHMS";R
  428. 20770  E=I*R
  429. 20780  LOCATE 15,1:PRINT"THE VOLTAGE (E) IS --------------------> ";E;" VOLTS"
  430. 20790  LOCATE 18,1:GOSUB 20850
  431. 20800  LOCATE 20,1:PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  432. 20810  Z$=INKEY$:IF Z$="" THEN 20810
  433. 20820  IF Z$="C" OR Z$="c" THEN 20710
  434. 20830  IF Z$="S" OR Z$="s" THEN 18850
  435. 20840  RUN "MAINMENU"
  436. 20850  FOR M=1 TO 80:PRINT CHR$(178);:NEXT:RETURN
  437. 20860  CLS:GOSUB 20910:LOCATE 12,F:PRINT F$
  438. 20870  FOR I=1 TO 100
  439. 20880  SOUND 1200,0.5
  440. 20890  SOUND 1400,0.5
  441. 20900  NEXT:RETURN
  442. 20910  F=40-LEN(F$)/2:RETURN
  443.