home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / ind.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-05  |  4.7 KB  |  132 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           INDUCTOR CIRCUITS MENU. OPTIONS:             WEND
  6. 60  PRINT "          WEND                                                        WEND
  7. 70  PRINT "          WEND           1) SERIES AND PARALLEL INDUCTORS             WEND
  8. 80  PRINT "          WEND           2) IMPEDANCE AT A GIVEN FREQUENCY            WEND
  9. 90  PRINT "          WEND           3) OHM'S LAW FOR INDUCTORS                   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 1010
  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 INDUCTORS COMPUTATION"
  25. 250  S=0
  26. 260  P=0
  27. 270  PRINT
  28. 280  PRINT "                       INPUT HOW MANY INDUCTORS";
  29. 290  INPUT N
  30. 300  PRINT
  31. 310  FOR M=1 TO N
  32. 320  PRINT "                       INPUT VALUE OF L";M;
  33. 330  INPUT X
  34. 340  S=S+X
  35. 350  P=P+1/X
  36. 360  NEXT M
  37. 370  PRINT
  38. 380  PRINT "                       SERIES INDUCTANCE = ";S
  39. 390  PRINT "                       PARALLEL INDUCTANCE = ";1/P
  40. 400  PRINT:PRINT "               INPUT 1 TO REPEAT SERIES/PARALLEL COMPUTATION."
  41. 410  PRINT "               INPUT 2 TO GO TO INDUCTOR 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 "                  INDUCTOR IMPEDANCE COMPUTATION"
  49. 490  PRINT:PRINT
  50. 500  PRINT "            YOU WILL BE ASKED FOR INDUCTANCE IN HENRIES,"
  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
  55. 550  PRINT "            INPUT INDUCTANCE IN HENRIES (0 IF UNKNOWN)";
  56. 560  INPUT L
  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 L=0 THEN PRINT "                INDUCTANCE = ";Z/(F*6.28);" HENRIES"
  63. 630  IF Z=0 THEN PRINT "                IMPEDANCE  = ";6.28*L*F;" OHMS"
  64. 640  IF F=0 THEN PRINT "                FREQUENCY  = ";Z/(6.28*L);" HERTZ"
  65. 650  PRINT:PRINT "                INPUT 1 TO REPEAT IMPEDANCE COMPUTATION."
  66. 660  PRINT "                INPUT 2 TO GO TO INDUCTOR 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 "                    OHMS LAW COMPUTATION FOR INDUCTORS"
  74. 740  PRINT:PRINT
  75. 750  PRINT "                 YOU WILL BE ASKED FOR VOLTAGE IN VOLTS,"
  76. 760  PRINT "                 INDUCTANCE IN HENRIES, FREQUENCY IN HERTZ,"
  77. 770  PRINT "                 AND CURRENT IN AMPS."
  78. 780  PRINT
  79. 790  PRINT "                    INPUT (0) FOR ONLY 'ONE' UNKNOWN!"
  80. 800  PRINT
  81. 810  PRINT "              INPUT AC VOLTAGE  ACROSS INDUCTOR (0 IF UNKNOWN)";
  82. 820  INPUT V
  83. 830  PRINT "              INPUT INDUCTANCE IN HENRIES (0 IF UNKNOWN)";
  84. 840  INPUT L
  85. 850  PRINT "              INPUT FREQUENCY IN HERTZ (0 IF UNKNOWN";
  86. 860  INPUT F
  87. 870  PRINT "              INPUT CURRENT IN AMPS (0 IF UNKNOWN)";
  88. 880  INPUT A
  89. 890  PRINT
  90. 900  IF V=0 THEN PRINT "              VOLTAGE  = ";A*6.28*L*F;" VOLTS"
  91. 910  IF L=0 THEN PRINT "              INDUCTANCE = ";V/(6.28*A*F);" HENRIES"
  92. 920  IF F=0 THEN PRINT "              FREQUENCY  = ";V/(A*6.28*L);" HERTZ"
  93. 930  IF A=0 THEN PRINT "              CURRENT  = ";V/(6.28*L*F);" AMPS"
  94. 940  PRINT:PRINT "              INPUT 1 TO REPEAT OHM'S LAW COMPUTATION."
  95. 950  PRINT "              INPUT 2 TO GO TO INDUCTOR MENU.";
  96. 960  INPUT N
  97. 970  IF N=1 THEN GOTO 720
  98. 980  IF N=2 THEN GOTO 10
  99. 990  PRINT:PRINT "              INVALID INPUT":BEEP
  100. 1000  GOTO 940
  101. 1010  CLS
  102. 1020  PRINT "                    INDUCTOR VOLTAGE DIVIDER COMPUTATION"
  103. 1030  PRINT:PRINT
  104. 1040  PRINT "          VARPTR<SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND TOTAL VOLTAGE ACROSS INDUCTORS SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND>COLOR
  105. 1050  PRINT "          CALL                                                      CALL
  106. 1060  PRINT "          CALL<SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND L1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND>CALL<SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND L2 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND>CALL
  107. 1070  PRINT "          CALL                           CALL                          CALL
  108. 1080  PRINT "          CLS<SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND V1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND>CALL<SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND V2 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND>'
  109. 1090  PRINT:PRINT
  110. 1100  PRINT "               INPUT VOLTAGE ACROSS INDUCTOR PAIR IN VOLTS";
  111. 1110  INPUT T
  112. 1120  PRINT "               INPUT VALUE OF L1 IN HENRIES (0 IF UNKNOWN)";
  113. 1130  INPUT M
  114. 1140  PRINT "               INPUT VALUE OF L2 IN HENRIES";
  115. 1150  INPUT N
  116. 1160  IF M<>0 THEN GOTO 1230
  117. 1170  PRINT "               INPUT DESIRED VOLTAGE ACROSS L2 IN VOLTS";
  118. 1180  INPUT V
  119. 1190  PRINT
  120. 1200  PRINT "               THE VALUE OF L1 = ";(T-V)*N/V;" HENRIES"
  121. 1210  PRINT "               THE VOLTAGE ACROSS L1 = ";T-V;" VOLTS"
  122. 1220  GOTO 1250
  123. 1230  PRINT:PRINT "               THE VOLTAGE ACROSS L1 = ";T*M/(M+N);" VOLTS"
  124. 1240  PRINT "               THE VOLTAGE ACROSS L2 = ";T*N/(M+N);" VOLTS"
  125. 1250  PRINT:PRINT "               INPUT 1 TO REPEAT VOLTAGE DIVIDER COMPUTATION."
  126. 1260  PRINT "               INPUT 2 TO GOTO INDUCTOR MENU.";
  127. 1270  INPUT N
  128. 1280  IF N=1 THEN GOTO 1010
  129. 1290  IF N=2 THEN GOTO 10
  130. 1300  PRINT:PRINT "               INVALID INPUT":BEEP
  131. 1310  GOTO 1250
  132.