home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol026 / el-e.bas < prev    next >
BASIC Source File  |  1985-02-09  |  18KB  |  525 lines
  1. PRINT "          *** ELECTRICAL ENGENEERING & DESIGN ***"
  2. PRINT "                 J. Schrabal, April 1979":PRINT
  3. 10 PRINT "To select one of the programs just type it's number"
  4. PRINT "     and hit 'return' key.":PRINT
  5. 20 PRINT "Select from the following programs:"
  6. PRINT "     1. Ohm law (DC)"
  7. PRINT "     2. Zener stabilized DC supply"
  8. PRINT "     3. DC power supply design"
  9. PRINT "     4. Low pass 2-pole Butterwoth filter"
  10. PRINT "     5. Series resonant frequency circuit"
  11. PRINT "     6. Passive band-pass filter"
  12. PRINT "     7. Small coil design & inductance calculations"
  13. PRINT "     8. Long wire antenna"
  14. PRINT "     9. Dipole or half wave antenna"
  15. PRINT "    10. Time constant calculation"
  16. PRINT "    11. Resistance of wire"
  17. PRINT "    12. Crystal (rec./tr.) frequency calculations"
  18. PRINT
  19. INPUT "What program do you wish to select";P
  20. IF P>0 AND P<13 THEN 30
  21. PRINT "Please answer with number fom 1 to 12 !":GOTO 20
  22. 30 ON P GO TO 100,200,250,300,400,500,600,700,800,900,1000,1200
  23.      REM PART 1 (100)
  24. 100 PRINT
  25.  PRINT "          *** OHM LAW (DC) ***"
  26. 110 PRINT
  27. PRINT " ENTER values for 2 (two) known"
  28. PRINT " ENTER 0 (zero) for unknown values to be calculated":PRINT
  29. INPUT "Potemtial in volts ";E
  30. INPUT "Current flow in amperes ";I
  31. IF E>0 AND I>0 THEN 111
  32. INPUT "Resistance in ohms";R
  33. IF I>0 AND R>0 AND E=0 THEN 120
  34. IF E>0 AND R>0 AND I=0 THEN 130
  35. INPUT "Power in watts ";P
  36. IF E>0 AND I=0 AND R=0 THEN 141
  37. IF I>0 AND E=0 AND R=0 THEN 142
  38. IF R>0 AND E=0 AND I=0 THEN 143
  39. 111 R=E/I
  40. GOTO 140
  41. 120 E=I*R
  42. GOTO 140
  43. 130 I=E/R
  44. 140 P=E*I
  45. GOTO 150
  46. 141 I=P/E
  47. R=(E^2)/P
  48. GOTO 150
  49. 142 E=P/I
  50. R=E/I
  51. GOTO 150
  52. 143 E=(P*R)^.5
  53. I=E/R
  54. 150 PRINT
  55. PRINT "Potential = ";E;" volts"
  56. PRINT "Current flow = ";I;" amperes"
  57. PRINT "Resistance = ";R;" ohms"
  58. PRINT "Power = ";P;" watts":PRINT
  59. INPUT "MORE CALCULATIONS? (YES/NO)";ANS$
  60. IF ANS$="YES" THEN GOTO 110 ELSE GOTO 20
  61.           REM   Part 2   (200)
  62. 200 PRINT
  63. PRINT "      *** ZENER STABILIZED CIRCUIT DESIGN ***"
  64. 210  PRINT
  65. INPUT "Voltage rating of zener diode";A
  66. INPUT "Wattage rating of zener diode";W
  67. INPUT "Maximum DC voltage of power supply";B
  68. R=((B-A)^2)/W
  69. I=(W/R)^.5     REM in amperes
  70. PRINT "For an open circuit, or for load up to ";I*1000;" miliamperes"
  71. PRINT "Use ";R;"ohms ";W;" watt resistor"
  72. PRINT
  73. PRINT "Will the load (device) you use have larger than ";W;"watts consumption?"
  74. INPUT "(YES/NO)";A$
  75. IF A$="NO" THEN 220
  76. INPUT "What is the maximum wattage of the device you use:";C
  77. X=((B-A)^2)/((W/2)+C)
  78. PRINT "Use ";X; "ohms ";W+C;" watts resistor"
  79. PRINT "WARNING: Zener diode will probably burn out if the load"
  80. PRINT "         shoulkd be removed and circuit left open."
  81. PRINT
  82. 220 INPUT "More calculations? (YES/NO)";B$
  83. IF B$="YES" THEN GOTO 210 ELSE GOTO 20
  84. 250    REM Part 2.1
  85.  
  86. PRINT "          *** POWER SUPPLY DESIGN ***":PRINT
  87. INPUT "What is LINE AC voltage supplied by utility";A
  88. 251 INPUT "What is transformer's primary rating (or tap)";B
  89. 252 INPUT "What is RMS voltage of secondary winding";C
  90. D=(C*A)/B        REM  D is max.RMS
  91. P=D*1.4          REM  P is peak voltage
  92. M=P+(P/4)      REM  M is maximum peak
  93. 256 INPUT "What is the needed (desired) DC voltage";O
  94. IF C>(2*O) THEN 267
  95. IF O>C THEN 268
  96. PRINT "What is the voltage rating of REGULATORS"
  97. INPUT "                  used with the power supply";Z
  98. IF ((Z+2.5)+(Z*.1))>O THEN 269
  99. IF ((Z+3.5)+(Z*.25))<O THEN 271
  100. 255 PRINT "Presuming that you use full wave, will the rectifying bridge"
  101. INPUT "consist of four (4) or two (2) diodes (as in centertap sec)";F
  102. IF F=4 OR F=2 THEN 260
  103. PRINT:PRINT "Answer whether 2 or 4 diodes will be used":PRINT:GOTO 255
  104. 260 IF F=2 THEN S=.75
  105. IF F=4 THEN S=1.5
  106. G=(D-S)*1.4        REM G is pulsating DC peak
  107. R=G-O              REM R is ripple
  108. INPUT "What is the load to be used in amperes? (if unknown type 0)";H
  109. IF H=0 THEN 280
  110. 261 I=(H*83)/R*100
  111. I=I+(I/10)
  112. PRINT:PRINT "Line = ";A;" volts AC (max.).Transformer primary (tap) = ";B;" volts AC"
  113. PRINT "Secondary = ";D;" volts RMS. Peak sec.voltage = ";P
  114. PRINT "For desired ";O;" volts DC use rectifying bridge of ";F
  115. PRINT "diodes rated at ";M;" volts (minimum) and ";4*H; "amps (min.)"
  116. PRINT "Filter capacitor should be rated ";I;" microfarads (minimum)"
  117. PRINT "and ";G; "volts DC (min).Permissible ripple = ";R;" volts":PRINT
  118. PRINT "NOTE:Use ohm-law to calculate bleeder-resitor."
  119. INPUT "More calculation for another secondary (YES/NO)";ANS$
  120. IF ANS$="YES" THEN 252
  121. INPUT "More calculation for another transformer (or tap)";ANS$
  122. IF ANS$="YES" THEN GOTO 251 ELSE GOTO 20
  123. 267 PRINT "Your secondary winding has overly high rating for this"
  124. PRINT "power requirement":PRINT:GOTO 252
  125. 268 PRINT "Your secondary winding has low voltage rating for this"
  126. PRINT "power requirement":PRINT:GOTO 252
  127. 269 PRINT "Power supply DC voltage must be more than 2.5 volts higher"
  128. PRINT "     than voltage of REGULATOR.":PRINT:GOTO 256
  129. 271 PRINT "Your supply voltage is overly high and will cause the regulator"
  130. PRINT "to overheat. Reduce your voltage to ";Z+4;" volts"
  131. PRINT "One way to do this is to insert series of diodes with rating"
  132. PRINT "which will be printed below, each such diode reducing the"
  133. PRINT "supply DC voltage by .7 volts (two diodes reduce 1.4 v)"
  134. PRINT "Then ad this voltage to regulators when answering Q."
  135. PRINT:GOTO 256
  136. 280 INPUT "How many TAB-type regulators will be used";T
  137. INPUT "         K-type regulators";K
  138. INPUT "Any other load (in ampers)";Y
  139. H=T+(K*1.5)+Y:GOTO 261
  140.  
  141.        REM   Part 3  (300)
  142.  
  143. 300 PRINT "         *** LOW PASS FILTER ***"
  144. PRINT "This program is based on OPERATIONAL AMPLIFIERS DESIGNS"
  145. PRINT "& APPLICATIONS by Graeme & Tobey, McGraw, 1971.":PRINT
  146. 310 INPUT "Cut off frequency (in Hertz)";F
  147. 320 INPUT "Desired pass-band gain (H)";H
  148. PRINT "Peaking factor: 0(zero) for standard 2-pole Butterworth"
  149. INPUT "(alpha)         value for non-standard filter";A
  150. IF A=0 THEN A=2^.5
  151. IF (H/A)>100 THEN 330
  152. PRINT "Value of C2 in mF (microFarads)"
  153. INPUT "Note: 0.02 mF = 0.000 000 02 F     ";C
  154. R=A/(4*3.141592654*F*C/1000000)
  155. PRINT
  156. PRINT "          .---------.                C1 = ";(4*(1+H)*C)/(A^2)
  157. PRINT "          X         :                C2 = ";C
  158. PRINT "          X R2      = C2             R1 = ";R/H
  159. PRINT "          X         :                R2 = ";R
  160. PRINT "    R1    :    R3   : - o            R3 = ";R/(H+1)
  161. PRINT "--XXXXXX--:--XXXXXX-:---o  o"
  162. PRINT "          :             o    o"
  163. PRINT " E-in     :             o      o---------------"
  164. PRINT "          = C1        + o    o"
  165. PRINT "          :          ---o  o" 
  166. PRINT "          :          :  o           E-out"
  167. PRINT "          :          :"
  168. PRINT "----------:----------:--------------------------"
  169. INPUT "Another gain/alpha ratio? (YES/NO)";ANS$
  170. IF ANS$="YES" THEN 320
  171. INPUT "Another filter configuration (YES/NO)";B$
  172. IF B$="YES" THEN GOTO 310 ELSE GOTO 20
  173. 330 PRINT"Because operational amplifiers are non-ideal, pass-"
  174. PRINT "band gain should be chosen to be less than 10 when peaking"
  175. PRINT "factor Alpha = 0-1"
  176. PRINT "Gain of 100 with peaking factor=1 is acceptable for "
  177. PRINT "for peaking gain 80 dB in 2-pole Batterworth config-"
  178. GOTO 320
  179.  
  180.       REM   Part 4 (400)
  181.  
  182. 400 PRINT
  183. PRINT "          *** SERIES RESONAT FREQUENCY CIRCUITS ***"
  184. 410 PRINT
  185. INPUT "Inductance in MH (Micro-Henrys)";L
  186. INPUT "Capacitance in PF (Pico-Farads)";C
  187. PRINT
  188. PRINT "Series L/C resonant frequency is ";\
  189.  1000/(6.283185307*((L*C)^0.5));" KHz (Kilo Hertz)"
  190. PRINT "Note: this frequency is not affected by resistance in the circuit"
  191. PRINT
  192. INPUT "More calculations? (YES/NO)";A$
  193. IF A$="YES" THEN 410
  194. GOTO 20
  195.  
  196.      REM Part 5 (500)
  197.  
  198. 500 PRINT
  199. PRINT "      *** PASSIVE BANDPASS FILTER DESIGN ***":PRINT
  200. PRINT"   This program is based on ELECTRICAL ENGINEERING &"
  201. PRINT "CIRCUITS DESIGN by Skilling, Willey, 1961."
  202. PRINT "   It will calculate ideal component values for the"
  203. PRINT "T-section and PI-Section filters, given F1, F2,and R"
  204. 510 PRINT
  205. INPUT "What is F1, low cut-off frequency (in Hertz)";L
  206. INPUT "What is F2, high cut-off frequency (in Hertz)";H
  207. IF L>H THEN 560
  208. INPUT "What is R, image impedance in mid-frequency (in ohms)";R
  209. IF L<0 THEN 581
  210. IF H<0 THEN 581
  211. IF R<0 THEN 581
  212. X=H-L
  213. Y=12.56637061*L*H
  214. Z=3.141592654
  215. 520 INPUT "If you want T-section type 'T'";T$
  216. IF T$<>"T" THEN 550
  217. PRINT
  218. PRINT "2Ca=";X/Y*R*2,"  Cb=";1/Z*R,"  R=";R
  219. PRINT "La/2=";R/Z/2,"  Lb=";R*X/Y
  220. PRINT
  221. PRINT "    2Ca     La/2                La/2     2Ca"
  222. PRINT "o----!!----mmmmmmm---:-----:---mmmmmmm---!!-....."
  223. PRINT "                     :     :                    :"
  224. PRINT "                     :     m                    X"
  225. PRINT "                  Cb =     m  Lb             R  X"
  226. PRINT "                     :     m                    X"
  227. PRINT "                     :     :                    :"
  228. PRINT "o--------------------:-----:----------------....:"
  229. 550 PRINT
  230. INPUT "If you want PI-section type 'P'";P$
  231. IF P$<>"P" THEN 582
  232. PRINT
  233. PRINT "La=";R/Z,"  2Lb=";2*R*X/Y,"  R=";R
  234. PRINT "Ca=";X/Y*R,"  Cb/2=";1/Z*R/2
  235. PRINT
  236. PRINT "                 La       Ca"
  237. PRINT "o-------:----:-mmmmmmm----!!-----:----:..........:"
  238. PRINT "        :    :                   :    :          :"
  239. PRINT "        m    :                   :    m          X"
  240. PRINT "    2Lb m    = Cb/2        Cb/2  =    m 2Lb    R X"
  241. PRINT "        m    :                   :    m          X"
  242. PRINT "        :    :                   :    :          :"
  243. PRINT "o-------:----:-------------------:----:..........:"
  244. PRINT
  245. INPUT "Another passive filter calculation (YES/NO)";A$
  246. IF A$="YES" THEN GOTO 510 ELSE GOTO 20
  247. 560 PRINT "High cut-off frequency must be higher than low-"
  248. PRINT "cut-off frequency":GOTO 510
  249. 581 PRINT "This value must be larger than 0 (zero)":GOTO 510  
  250. 582 PRINT "Answer 'P' or 'T' only":GOTO 510
  251.  
  252.      REM Part 6
  253.  
  254. 600 PRINT "        *** SMALL COIL DESIGN ***":PRINT
  255. PRINT "Program limitations:"
  256. PRINT "        Inductance = 100 microhenries MAXIMUM"
  257. PRINT "        Wire size  =  12 size MAXIMUM"
  258. PRINT "                      40 gage MINIMUM"
  259. PRINT "        (resistors used as form must be of composite type)"
  260. 610 PRINT
  261. PRINT "PROGRAMS:"
  262. PRINT "     1. INDUCTANCE"
  263. PRINT "     2. INDUCTIVE REACTANCE":PRINT
  264. INPUT " WHICH ONE OF THE TWO PROGRAMS ABOVE YOU WANT COMPUTE";A
  265. IF A=1 THEN 650
  266. IF A>2 THEN 610
  267. IF A<0 THEN 610
  268. 620 INPUT "WHAT IS THE DESIRED INDUCTIVE REACTANCE IN OHMS";I
  269. INPUT "AT WHAT FREQUENCY IN MHZ";F
  270. H=I/(2*3.14159*F)
  271. PRINT "INDUCTANCE = ";H;" MICROHENRIES"
  272. IF H<100 THEN 660
  273. 640 PRINT "Program limitation is 100 microhenries MAXIMUM"
  274. GOTO 610
  275. 650 INPUT "What is the desired coil inductance in microhenries";H
  276. IF H>100 THEN 640
  277. 660 PRINT "Coil forms:"
  278. PRINT "   A = 1/4 WATT RESISTOR"
  279. PRINT "   B = 1/2 WATT RESISTOR"
  280. PRINT "   C = 1 WATT RESISTOR"
  281. PRINT "   D = 2 WATT RESISTOR"
  282. PRINT "   E = OTHER FORM"
  283. INPUT " SELECT COIL FORM FROM ABOVE (A,B,C,D,E)";A$
  284. IF A$="A" THEN D=.09
  285. IF A$="B" THEN D= .14
  286. IF A$="C" THEN D= .22
  287. IF A$="D" THEN D= .312
  288. IF A$="E" THEN GOTO 601 ELSE GOTO 602
  289. 601 INPUT "What is the diameter of the coil in inches";D
  290. 602 PRINT "What gage enameled wire will be used:"
  291. INPUT "                (gage 12 to 40)";G
  292. IF G=12 THEN W=.081
  293. IF G=13 THEN W=.072
  294. IF G=14 THEN W=.064
  295. IF G=15 THEN W=.057
  296. IF G=16 THEN W=.051
  297. IF G=17 THEN W=.045
  298. IF G=18 THEN W=.040
  299. IF G=19 THEN W=.036
  300. IF G=20 THEN W=.32
  301. IF G=21 THEN W=.0285
  302. IF G=22 THEN W=.0253
  303. IF G=23 THEN W=.0226
  304. IF G=24 THEN W=.0201
  305. IF G=25 THEN W=.0179
  306. IF G=26 THEN W=.0159
  307. IF G=27 THEN W=.0142
  308. IF G=28 THEN W=.0126
  309. IF G=29 THEN W=.0113
  310. IF G=30 THEN W=.01
  311. IF G=31 THEN W=.0089
  312. IF G=32 THEN W=.008
  313. IF G=33 THEN W=.0071
  314. IF G=34 THEN W=.0063
  315. IF G=35 THEN W=.0056
  316. IF G=36 THEN W=.005
  317. IF G=37 THEN W=.0045
  318. IF G=38 THEN W=.004
  319. IF G=39 THEN W=.0035
  320. IF G=40 THEN W=.0031
  321. IF G<12 OR G>40 THEN 602
  322. N=((40*H*W)+SQR (((4*H*W)*(4*H*W))+(4*D*D*D*18*H)))/(2*D*D)
  323. N1=((40*H*W)-SQR (((4*H*W)*(4*H*W))+(4*D*D*D*18*H)))/(2*D*D)
  324. IF N>N1 THEN N2=N ELSE N2=N1
  325. N2=(INT(N2*10))/10
  326. PRINT:PRINT "Wire size = ";G;" gage"
  327. PRINT "Coil diameter = ";D;" inches"
  328. PRINT "Number of turns = ";N2
  329. PRINT "Coil lenght = ";(INT(N2*W*100))/100;" inches"
  330. INPUT "More calculations? (YES/NO)";ANS$
  331. IF ANS$="YES" THEN GOTO 610 ELSE GOTO 20
  332.  
  333.      REM   Part 7 (700)
  334.  
  335. 700 PRINT
  336. PRINT "          *** LONG WIRE ANTENNA ***":PRINT
  337. PRINT "    When antenna is more than half wavelenght long"
  338. PRINT "it is called 'long wire' or 'harmonic' antenna.":PRINT
  339. 710 INPUT "What frequency in MHz (Mega Hertz)";F
  340. INPUT "How many half-waves long";N
  341. L=492*(N-0.05)/F
  342. PRINT "Lenth = ";L;" Feet"
  343. PRINT "Note: If this antenna is fed in exact center at ";L/2;" ft."
  344. PRINT "no unbalance will occur on any harmonic frequency.":PRINT
  345. INPUT "More calculations? (YES/NO)";A$
  346. IF A$="YES" THEN 710
  347. GOTO 20
  348.  
  349.      REM    Part 8  (800)
  350.  
  351. 800 PRINT
  352. PRINT "      *** DIPOLE OR HALF WAVE ANTENNA ***":PRINT
  353. 810 INPUT "Frequency in MHz (Mega Hertz)";F
  354. L=492/F
  355. PRINT:PRINT "Actual half-wave lenght is ";L;" feet"
  356. IF F<30 THEN L=L*.95
  357. IF F<150 THEN L=L*.97
  358. IF F>149.9 THEN L=L*.98
  359. PRINT "Lenght corrected to free space factor and to capacitance"
  360. PRINT "of insulators is ";L;" feet":PRINT
  361. C=118/F
  362. E=148/F
  363. PRINT "<----------";L;" ft-------->"
  364. PRINT "         <-";C;"ft->"
  365. PRINT "o----------o-------o----------o"
  366. PRINT "            o     o     ^"
  367. PRINT "             o   o      E = ";E;" ft"
  368. PRINT "              o=o  <- 600 ohms line 3.75 in spaced #16 wire"
  369. PRINT "              o o                   5 in spaced #14 wire"
  370. PRINT "              o o                   6 in spaced #12 wire"
  371. PRINT
  372. INPUT "More calculations (YES/NO)";A$
  373. IF A$="YES" THEN 810
  374. GOTO 20 
  375.      REM       Part 9
  376.  
  377. 900 PRINT
  378. PRINT "          *** TIME CONSTANT CALCULATIONS ***":PRINT
  379. 910 PRINT "NOTE: If you wish to substitute Farads by MICROfarads then you"
  380. PRINT "    must use resistance in MEGohms in order to get result"
  381. PRINT "    in seconds."
  382. INPUT "What is the resistance in ohms";R
  383. INPUT "What is the capacitance in farads";C
  384. PRINT "Time constant = ";R*C;"seconds"
  385. INPUT "More calculations? (YES/NO)";C$
  386. IF C$="YES" THEN GOTO 910 ELSE GOTO 20
  387.  
  388.      REM  Part 10
  389. 1000 PRINT
  390. PRINT "          *** RESISTANCE OF WIRE ***":PRINT
  391. 1010 INPUT "What is the desired resistance in ohms";R
  392. PRINT "What A.W.G.(B&S) size wire NO. is available?"
  393. INPUT "                        (if unknown, enter '0')";WN
  394. IF WN=0 THEN 1050
  395. IF WN=1 THEN RW=.1264
  396. IF WN=2 THEN RW=.1593
  397. IF WN=3 THEN RW=.2009
  398. IF WN=4 THEN RW=.2533
  399. IF WN=5 THEN RW=.3195
  400. IF WN=6 THEN RW=.4028
  401. IF WN=7 THEN RW=.5080
  402. IF WN=8 THEN RW=.6405
  403. IF WN=9 THEN RW=.8077
  404. IF WN=10 THEN RW=1.018
  405. IF WN=11 THEN RW=1.284
  406. IF WN=12 THEN RW=1.619
  407. IF WN=13 THEN RW=2.042
  408. IF WN=14 THEN RW=2.575
  409. IF WN=15 THEN RW=3.247
  410. IF WN=16 THEN RW=4.094
  411. IF WN=17 THEN RW=5.163
  412. IF WN=18 THEN RW=6.51
  413. IF WN=19 THEN RW=8.21
  414. IF WN=20 THEN RW=10.35
  415. IF WN=21 THEN RW=13.05
  416. IF WN=22 THEN RW=16.46
  417. IF WN=23 THEN RW=20.76
  418. IF WN=24 THEN RW=26.17
  419. IF WN=25 THEN RW=33
  420. IF WN=26 THEN RW=41.62
  421. IF WN=27 THEN RW=52.48
  422. IF WN=28 THEN RW=66.17
  423. IF WN=29 THEN RW=83.44
  424. IF WN=30 THEN RW=105.2
  425. IF WN=31 THEN RW=132.7
  426. IF WN=32 THEN RW=167.3
  427. IF WN=33 THEN RW=211
  428. IF WN=34 THEN RW=266
  429. IF WN=35 THEN RW=335
  430. IF WN=36 THEN RW=423
  431. IF WN=37 THEN RW=533
  432. IF WN=38 THEN RW=672.6
  433. IF WN=39 THEN RW=848.1
  434. IF WN=40 THEN RW=1069
  435. INPUT "Of what MATERIAL is the wire";M$
  436. IF M$="C00PER" THEN RW=RW*1
  437. IF M$="ALUMINUM" THEN RW=RW*1.6
  438. IF M$="BRASS" THEN RW=RW*4
  439. IF M$="CADMIUM" THEN RW=RW*4.4
  440. IF M$="CHROMIUM" THEN RW=RW*1.8
  441. IF M$="GOLD" THEN RW=RW*1.4
  442. IF M$="IRON" THEN RW=RW*5.68
  443. IF M$="LEAD" THEN RW=RW*12.8
  444. IF M$="NICKEL" THEN RW=RW*5.1
  445. IF M$="BRONZE" THEN RW=RW*4
  446. IF M$="SILVER" THEN RW=RW*.94
  447. IF M$="STEEL" THEN RW=RW*11
  448. IF M$="TIN" THEN RW=RW*6.7
  449. IF M$="ZINK" THEN RW=RW*3.4
  450. L=1000*R/RW
  451. PRINT "For ";R;"ohms use ";L;" feet of N0.";WN;M$;" wire"
  452. GOTO 1090
  453. 1050 INPUT "What is distance in feet";D
  454. RX=R*1000/D
  455. IF RX>.1264 THEN W=1
  456. IF RX>.1593 THEN W=2
  457. IF RX>.2009 THEN W=3
  458. IF RX>.2533 THEN W=4
  459. IF RX>.3195 THEN W=5
  460. IF RX>.4028 THEN W=6
  461. IF RX>.5080 THEN W=7
  462. IF RX>.6405 THEN W=8
  463. IF RX>.8077 THEN W=9
  464. IF RX>1.018 THEN W=10
  465. IF RX>1.284 THEN W=11
  466. IF RX>1.619 THEN W=12
  467. IF RX>2.042 THEN W=13
  468. IF RX>2.575 THEN W=14
  469. IF RX>3.247 THEN W=15
  470. IF RX>4.094 THEN W=16
  471. IF RX>5.163 THEN W=17
  472. IF RX>6.51 THEN W=18
  473. IF RX>8.21 THEN W=19
  474. IF RX>10.35 THEN W=20
  475. IF RX>13.05 THEN W=21
  476. IF RX>16.46 THEN W=22
  477. IF RX>20.76 THEN W=23
  478. IF RX>26.17 THEN W=24
  479. IF RX>33 THEN W=25
  480. IF RX>41.62 THEN W=26
  481. IF RX>52.48 THEN W=27
  482. IF RX>66.17 THEN W=28
  483. IF RX>83.44 THEN W=29
  484. IF RX>105.2 THEN W=30
  485. IF RX>132.7 THEN W=31
  486. IF RX>167.3 THEN W=32
  487. IF RX>211 THEN W=33
  488. IF RX>266 THEN W=34
  489. IF RX>335 THEN W=35
  490. IF RX>423 THEN W=36
  491. IF RX>533 THEN W=37
  492. IF RX>672.6 THEN W=38
  493. IF RX>848.1 THEN W=39
  494. IF RX>1069 THEN W=40
  495. PRINT "The smalest copper wire for ";R;" ohms at distance of ";D;" feet"
  496. PRINT "   that can be safely used is No.";W;" A.W.G.(B&S)"
  497. 1090 INPUT "More calculations? (YES/NO)";B$
  498. IF B$="YES" THEN GOTO 1010 ELSE GOTO 20
  499.  
  500. 1200    REM  Part 12 tr/rec. crystals
  501.  
  502. PRINT:PRINT " ***RECEIVING & TRANSMITTING CRYSTAL CALCULATIONS***  ":PRINT
  503. 1221 INPUT "What is the receiving frequency? (in MHz)";R
  504. INPUT "What is the transmitting frequency? (in MHz)";T
  505. GOTO 1250
  506. 1222 INPUT "What is 1st IF freq.(in MHz) of rec.";I
  507. INPUT "What is RECEIVING crystal divider";RD
  508. INPUT "What is TRANSMITTING crystal multiplier";TD
  509. 1230 PRINT
  510. PRINT "For receiving on ";R;" MHz (with ";I;" MHz IF) & ";RD;" divider"
  511. PRINT "    ORDER ";(R-I)/RD*1000;"KHz receiving crystal"
  512. PRINT "For transmitting on ";T;" MHz (tranmit multiplier=";TD;")"
  513. PRINT "ORDER ";T/TD*1000;" KHz transmitting crystal"
  514. PRINT
  515. INPUT "More crystal freq. calculations? (YES/NO)";B$
  516. IF B$="YES" THEN GOTO 1221 ELSE GOTO 20
  517. 1250 PRINT "What make and model transceiver?"
  518. PRINT "    STANDARD 146A - MOTOROLA 80D - VOICECOMMANDER";
  519. INPUT X$
  520. IF X$="STANDARD 146" OR X$="STANDARD 146A" THEN 1260
  521. IF X$="MOTOROLA 80D" THEN I=5.5:RD=5:TD=24:GOTO 1230
  522. IF X$="VOICECOMMANDER" THEN I=8.7:RD=3:TD=8:GOTO 1230
  523. GOTO 1222
  524. 1260 I=11.7:RD=9:TD=18:GOTO 1230
  525. ╢