home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / rad.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-30  |  6.1 KB  |  189 lines
  1. 10 CLS:REM BY RICHARD BRUMBAUGH, W5MFD.  326 S. 48 W. AVE  TULSA, OK 74127
  2. 20 KEY OFF
  3. 30 PRINT "          **********  MENU OPTIONS  **********"
  4. 40 PRINT:PRINT
  5. 50 PRINT "          1) WINDING FERRITE TOROID COILS"
  6. 60 PRINT "          2) WINDING IRON CORE TOROID COILS"
  7. 70 PRINT "          3) FREQUENCY-CAPACITANCE-INDUCTANCE"
  8. 80 PRINT "          4) PARALLEL RESISTOR-INDUCTOR-CAPACITOR CIRCUITS"
  9. 90 PRINT "          5) SERIES RESISTOR-INDUCTOR-CAPACITOR-CIRCUITS"
  10. 100 PRINT "          6) RETURN TO MAIN MENU"
  11. 110 PRINT:PRINT
  12. 120 PRINT "INPUT NUMBER OF YOUR CHOICE";
  13. 130 INPUT N
  14. 140 ON N GOTO 180,560,950,1230,1560
  15. 150 IF N = 6 THEN RUN "MENU"
  16. 160 PRINT:PRINT "INVALID INPUT"
  17. 170 GOTO 120
  18. 180 CLS
  19. 190 CLEAR
  20. 200 PRINT "     **********  WINDING FERRITE CORE TOROID COILS  **********"
  21. 210 PRINT:PRINT:
  22. 220 PRINT "            AL FACTORS OF SOME COMMON CORE TYPES ARE:"
  23. 230 PRINT:PRINT
  24. 240 PRINT "              CORE                      AL FACTOR"
  25. 250 PRINT
  26. 260 PRINT "            FT-23-43                       188"
  27. 270 PRINT "            FT-37-43                       420"
  28. 280 PRINT "            FT-50-43                       523"
  29. 290 PRINT "            FT-82-43                       557"
  30. 300 PRINT "            FT-50-61                       68.0"
  31. 310 PRINT:PRINT
  32. 320 PRINT "YOU WILL BE ASKED FOR INDUCTANCE, AL FACTOR, AND NUMBER OF TURNS"
  33. 330 PRINT
  34. 340 PRINT "ANSWER '0' FOR THE DESIRED INFORMATION"
  35. 350 PRINT
  36. 360 PRINT "INPUT INDUCTANCE IN MILIHENRIES";
  37. 370 INPUT L
  38. 380 PRINT "INPUT AL FACTOR OF COIL FORM";
  39. 390 INPUT A
  40. 400 PRINT "INPUT NUMBER OF TURNS";
  41. 410 INPUT T
  42. 420 IF L=0 THEN L=T/1000*T/1000*A
  43. 430 IF A=0 THEN A=1/(T/1000*T/1000/L)
  44. 440 IF T=0 THEN T=SQR(L/A)*1000
  45. 450 PRINT
  46. 460 PRINT "INDUCTANCE = ";L;" MILIHENRIES"
  47. 470 PRINT "AL FACTOR  = ";A
  48. 480 PRINT "NUMBER OF TURNS = ";T
  49. 490 PRINT:PRINT
  50. 500 PRINT "INPUT 1 TO REPEAT COMPUTATION, 2 TO RETURN TO MENU";
  51. 510 INPUT N
  52. 520 ON N GOTO 180,10
  53. 530 PRINT
  54. 540 PRINT "INVALID INPUT"
  55. 550 GOTO 500
  56. 560 CLS
  57. 570 CLEAR
  58. 580 PRINT"     **********  WINDING IRON CORE TOROID COILS  **********"
  59. 590 PRINT:PRINT
  60. 600 PRINT "            AL FACTORS OF SOME COMMON CORE TYPES ARE:"
  61. 610 PRINT:PRINT
  62. 620 PRINT "              CORE                      AL FACTOR"
  63. 630 PRINT
  64. 640 PRINT "             T-37-2                         40"
  65. 650 PRINT "             T-37-6                         30"
  66. 660 PRINT "             T-50-2                         49"
  67. 670 PRINT "             T-50-6                         40"
  68. 680 PRINT "             T-68-2                         57"
  69. 690 PRINT "             T-68-6                         47"
  70. 700 PRINT:PRINT
  71. 710 PRINT "YOU WILL BE ASKED FOR INDUCTANCE, AL FACTOR, AND NUMBER OF TURNS"
  72. 720 PRINT
  73. 730 PRINT "ANSWER '0' FOR THE DESIRED INFORMATION"
  74. 740 PRINT
  75. 750 PRINT "INPUT INDUCTANCE IN MICROHENRIES";
  76. 760 INPUT L
  77. 770 PRINT "INPUT AL FACTOR OF COIL FORM";
  78. 780 INPUT A
  79. 790 PRINT "INPUT NUMBER OF TURNS";
  80. 800 INPUT T
  81. 810 IF L=0 THEN L=T/100*T/100*A
  82. 820 IF A=0 THEN A=1/T/100*T/100*L
  83. 830 IF T=0 THEN T=SQR(L/A)*100
  84. 840 PRINT
  85. 850 PRINT "INDUCTANCE  = ";L;" MICROHENRIES"
  86. 860 PRINT "AL FACTOR   = ";A
  87. 870 PRINT "NUMBER OF TURNS = ";T
  88. 880 PRINT:PRINT
  89. 890 PRINT "INPUT 1 TO REPEAT CALCULATION, 2 TO RETURN TO MENU";
  90. 900 INPUT N
  91. 910 ON N GOTO 560,10
  92. 920 PRINT
  93. 930 PRINT "INVALID INPUT"
  94. 940 GOTO 890
  95. 950 CLS
  96. 960 CLEAR
  97. 970 PRINT "  **********  FREQUENCY-CAPACITANCE-INDUCTANCE  **********"
  98. 980 PRINT:PRINT
  99. 990 PRINT "YOU WILL BE ASKED FOR FREQUENCY, CAPACITANCE, AND INDUCTANCE"
  100. 1000 PRINT
  101. 1010 PRINT "ANSWER '0' FOR THE DESIRED INFORMATION"
  102. 1020 PRINT
  103. 1030 PRINT "INPUT FREQUENCY IN KILOHERTZ";
  104. 1040 INPUT F
  105. 1050 PRINT "INPUT CAPACITY IN PICOFARADS";
  106. 1060 INPUT C
  107. 1070 PRINT "INPUT INDUCTANCE IN MICROHENRIES";
  108. 1080 INPUT L
  109. 1090 IF F=0 THEN F=1000000!/(2*3.14159*SQR(L*C))
  110. 1100 IF C=0 THEN C=1E+12/(F*F*2*3.14159*2*3.14159*L)
  111. 1110 IF L=0 THEN L=1E+12/(F*F*2*3.14159*2*3.14159*C)
  112. 1120 PRINT
  113. 1130 PRINT "FREQUENCY   = ";F;" KILOHERTZ"
  114. 1140 PRINT "CAPACITANCE = ";C;" PICOFARADS"
  115. 1150 PRINT "INDUCTANCE  = ";L;" MICROHENRIES"
  116. 1160 PRINT
  117. 1170 PRINT "INPUT 1 TO REPEAT CALCULATION, 2 TO RETURN TO MENU";
  118. 1180 INPUT N
  119. 1190 ON N GOTO 950,10
  120. 1200 PRINT
  121. 1210 PRINT "INVALID INPUT"
  122. 1220 GOTO 1170
  123. 1230 CLS
  124. 1240 CLEAR
  125. 1250 PRINT "            **********  PARALLEL R-L-C CIRCUITS  **********"
  126. 1260 PRINT:PRINT
  127. 1270 PRINT "YOU WILL BE ASKED FOR RESISTANCE, CAPACITANCE, INDUCTANCE AND FREQUENCY"
  128. 1280 PRINT
  129. 1290 PRINT "YOU MUST INPUT A VALUE FOR EACH QUESTION"
  130. 1300 PRINT
  131. 1310 PRINT "INPUT RESISTOR VALUE IN OHMS";
  132. 1320 INPUT R
  133. 1330 PRINT "INPUT CAPACITOR VALUE IN MICROFARADS";
  134. 1340 INPUT C
  135. 1350 PRINT "INPUT INDUCTOR VALUE IN MICROHENRIES";
  136. 1360 INPUT L
  137. 1370 PRINT "INPUT FREQUENCY IN MEGAHERTZ";
  138. 1380 INPUT F
  139. 1390 PRINT
  140. 1400 X=1/(2*3.14159*F*C)
  141. 1410 Y=2*3.14159*F*L
  142. 1420 D=Y-X
  143. 1430 Z=R*Y*X/SQR(Y*Y*X*X+R*R*D*D)
  144. 1440 T=ATN(R*D/(Y*X))
  145. 1450 PRINT "IMPEDANCE   = ";Z;" OHMS"
  146. 1460 PRINT "PHASE ANGLE = ";T*57.3;" DEGREES"
  147. 1470 PRINT "CAPACITIVE REACTANCE = ";X;" OHMS"
  148. 1480 PRINT "INDUCTIVE REACTANCE  = ";Y;" OHMS"
  149. 1490 PRINT
  150. 1500 PRINT "INPUT 1 TO REPEAT CALCULATION, 2 TO RETURN TO MENU";
  151. 1510 INPUT N
  152. 1520 ON N GOTO 1230,10
  153. 1530 PRINT
  154. 1540 PRINT "INVALID INPUT"
  155. 1550 GOTO 1500
  156. 1560 CLS
  157. 1570 CLEAR
  158. 1580 PRINT "           **********  SERIES R-L-C CIRCUITS  **********"
  159. 1590 PRINT:PRINT
  160. 1600 PRINT "YOU WILL BE ASKED FOR RESISTANCE, CAPACITANCE, INDUCTANCE, AND FREQUENCY"
  161. 1610 PRINT
  162. 1620 PRINT "YOU MUST INPUT A VALUE FOR EACH QUESTION"
  163. 1630 PRINT
  164. 1640 PRINT "INPUT RESISTOR VALUE IN OHMS";
  165. 1650 INPUT R
  166. 1660 PRINT "INPUT CAPACITOR VALUE IN MICROFARADS";
  167. 1670 INPUT C
  168. 1680 PRINT "INPUT INDUCTOR VALUE IN MICROHENRIES";
  169. 1690 INPUT L
  170. 1700 PRINT "INPUT FREQUENCY IN MEGAHERTZ";
  171. 1710 INPUT F
  172. 1720 PRINT
  173. 1730 X=1/(2*3.14159*F*C)
  174. 1740 Y=2*3.14159*F*L
  175. 1750 D=Y-X
  176. 1760 Z=SQR(R*R+D*D)
  177. 1770 T=ATN(D/R)
  178. 1780 PRINT "IMPEDANCE   = ";Z;" OHMS"
  179. 1790 PRINT "PHASE ANGLE = ";T*57.3;" DEGREES"
  180. 1800 PRINT "CAPACITIVE REACTANCE = ";X;" OHMS"
  181. 1810 PRINT "INDUCTIVE REACTANCE  = ";Y;" OHMS"
  182. 1820 PRINT
  183. 1830 PRINT "INPUT 1 TO REPEAT CALCULATION, 2 TO RETURN TO MENU";
  184. 1840 INPUT N
  185. 1850 ON N GOTO 1560,10
  186. 1860 PRINT
  187. 1870 PRINT "INVALID INPUT"
  188. 1880 GOTO 1830
  189.