home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / coils.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-20  |  5.5 KB  |  192 lines
  1. 10  CLS
  2. 20  'This is a coil design program by'
  3. 30  'Harry L. Rosier - K4LBF
  4. 40  'Final design November 5,1980
  5. 50  'Revised from CP/M to TRSDOS Basic for Model 3
  6. 60  '  by Gary L. Phillips - KA9NZI
  7. 170  PRINT TAB(12)"COIL DESIGN":PRINT:PRINT
  8. 175  PRINT TAB(3)"BY HARRY L. ROSIER - K4LBF":PRINT:PRINT
  9. 180  PRINT"THIS PROGRAM IS SELF EXPLANATORY BUT
  10. 190  PRINT"WOULD YOU LIKE A BRIEF DESCRIPTION?
  11. 200  PRINT"PLEASE ANSWER (Y OR N )":INPUT D$
  12. 210  PRINT
  13. 220  IF D$="Y" THEN GOSUB 1720
  14. 230  PRINT:PRINT
  15. 240  IF D$="N" THEN GOTO 280
  16. 250  PRINT"           TO CONTINUE, PRESS ANY KEY";
  17. 260  A$=INKEY$ :IF A$="" THEN 260:
  18. 270  FOR I=1 TO 100:NEXT I
  19. 280  CLS
  20. 290  PRINT"1. DESIGN OF THE COIL MUST MEET"
  21. 300  PRINT"   THE FOLLOWING CRITERIA:"
  22. 320  PRINT"       75 MICROHENRIES MAX. INDUCTANCE"
  23. 330  PRINT"       .2 MICROHENRIES MIN. INDUCTANCE"
  24. 340  PRINT"        8 GAGE MAX. WIRE SIZE"
  25. 350  PRINT"       40 GAGE MIN. WIRE SIZE"
  26. 360  PRINT"      (FOR 1/4 INCH TUBING - USE SIZE 0)"
  27. 380  PRINT"2. RESISTORS CAN BE USED AS COIL FORMS,"
  28. 390  PRINT"   AND MUST BE COMPOSITION TYPE HAVING"
  29. 400  PRINT"   THE FOLLOWING DIMENSIONS"
  30. 420  PRINT"      1. 1/2 WATT - .14 X .38 INCHES"
  31. 430  PRINT"      2. 1   WATT - .22 X .58 INCHES"
  32. 440  PRINT"      3. 2   WATT - .30 X .70 INCHES"
  33. 450  PRINT"      ( THESE ARE STANDARD RESISTOR SIZES)"
  34. 460  PRINT"3. OR, SELECT YOUR OWN DIAMETER FORM"
  35. 470  PRINT"            TO CONTINUE PRESS ANY KEY";
  36. 480  A$="0":A$=INKEY$:IF A$="" GOTO 480
  37. 490  CLS
  38. 500  PRINT"DO YOU WISH TO BEGIN WITH":PRINT
  39. 510  PRINT"1 - INDUCTANCE IN MICROHENRIES, OR"
  40. 520  PRINT"2 - INDUCTIVE REACTANCE"
  41. 530  PRINT
  42. 540  INPUT S:PRINT
  43. 550  IF S=1 THEN 660:IF S=2 THEN 570
  44. 560  IF S<1 OR S>2 THEN PRINT"ANSWER 1 OR 2 PLEASE":GOTO 540
  45. 570  INPUT"WHAT IS THE DESIRED INDUCTIVE REACTANCE IN OHMS";XL:PRINT
  46. 580  INPUT"WHAT FREQUENCY IN MEGAHERTZ";F:PRINT
  47. 590  L=XL/(2*3.14159*F)
  48. 600  L$=STR$(L)
  49. 610  PRINT"REQUIRED INDUCTANCE=";LEFT$(L$,5)
  50. 620  PRINT"MICROHENRIES"
  51. 630  IF L<0.2 OR L>75 THEN GOTO 570
  52. 640  GOTO 690
  53. 650  FOR X=1 TO 16:PRINT"":NEXT
  54. 660  INPUT"WHAT IS THE DESIRED COIL INDUCTANCE IN MICROHENRIES";L:PRINT
  55. 670  IF L>75 THEN PRINT"75 MICRO - MAX. PLEASE REENTER":GOTO 660
  56. 680  IF L<0.2 THEN PRINT"0.2 MICROHENRIES MIN. - PLEASE REENTER":GOTO 660
  57. 690  PRINT"SELECT COIL FORM"
  58. 700  PRINT"   1-1/2 W RESISTOR"
  59. 710  PRINT"   2-1   W RESISTOR"
  60. 720  PRINT"   3-2   W RESISTOR"
  61. 730  PRINT"   4-  OTHER FORM"
  62. 740  PRINT
  63. 750  INPUT A
  64. 760  IF A<1 OR A>4 THEN 750
  65. 770  IF A=1 THEN D=0.14
  66. 780  IF A=2 THEN D=0.22
  67. 790  IF A=3 THEN D=0.3
  68. 800  IF A=4 THEN 820
  69. 810  IF A=<3 THEN 850
  70. 820  PRINT"WHAT IS THE DIAMETER OF THE"
  71. 830  PRINT"COIL IN INCHES?"
  72. 840  PRINT:INPUT D
  73. 850  INPUT"WHAT GAGE ENAMELED WIRE IS TO BE USED ";G
  74. 860  IF G=0 THEN W=0.25
  75. 870  IF G=8 THEN W=0.131
  76. 880  IF G=9 THEN W=0.116
  77. 890  IF G=10 THEN W=0.104
  78. 900  IF G=11 THEN W=0.093
  79. 910  IF G=12 THEN W=0.083
  80. 920  IF G=13 THEN W=0.074
  81. 930  IF G=14 THEN W=0.067
  82. 940  IF G=15 THEN W=0.06
  83. 950  IF G=16 THEN W=0.053
  84. 960  IF G=17 THEN W=0.047
  85. 970  IF G=18 THEN W=0.042
  86. 980  IF G=19 THEN W=0.038
  87. 990  IF G=20 THEN W=0.034
  88. 1000  IF G=21 THEN W=0.03
  89. 1010  IF G=22 THEN W=0.027
  90. 1020  IF G=23 THEN W=0.024
  91. 1030  IF G=24 THEN W=0.0216
  92. 1040  IF G=25 THEN W=0.0193
  93. 1050  IF G=26 THEN W=0.0172
  94. 1060  IF G=27 THEN W=0.0154
  95. 1070  IF G=28 THEN W=0.0138
  96. 1080  IF G=29 THEN W=0.0122
  97. 1090  IF G=30 THEN W=0.011
  98. 1100  IF G= 31 THEN W=0.0099
  99. 1110  IF G=32 THEN W=0.00885
  100. 1120  IF G=33 THEN W=0.0079
  101. 1130  IF G=34 THEN W=0.007
  102. 1140  IF G=35 THEN W=0.0063
  103. 1150  IF G=36 THEN W=0.0057
  104. 1160  IF G=37 THEN W=0.005
  105. 1170  IF G=38 THEN W=0.0045
  106. 1180  IF G=39 THEN W=0.004
  107. 1190  IF G=40 THEN W=0.0035
  108. 1200  IF G>40 THEN 850
  109. 1210  N=((40*L*W)+SQR((1600*W^2*L^2)+(72*D^2*L)))/(2*D^2)
  110. 1220  N1=((40*L*W)-SQR((1600*W^2*L^2)+(72*D^2*L)))/(2*D^2)
  111. 1230  IF N>N1 THEN N2=N
  112. 1240  IF N<=N1 THEN N2=N1
  113. 1250  N2=(INT(N2*10))/10
  114. 1260  CLS
  115. 1270  PRINT"WIRE SIZE=";G;" GAGE"
  116. 1280  PRINT"COIL DIA.=";D;" INCHES"
  117. 1290  PRINT"NUMBER OF TURNS= ";N2
  118. 1300  PRINT'COIL LENGTH=";(INT(N2*W*100))/100;" INCHES":?
  119. 1310  R=INT(N2*W*100/D)/100
  120. 1320  IF A=1 THEN 1400
  121. 1330  IF A=2 THEN 1500
  122. 1340  IF A=3 THEN 1520
  123. 1350  PRINT"THE LENGTH TO DIA. RATIO IS"
  124. 1360  PRINT R
  125. 1370  IF A=4 THEN GOSUB 1540
  126. 1380  PRINT:PRINT:PRINT
  127. 1390  PRINT"SELECT ANOTHER FORM AND/OR DIFFERENT "
  128. 1400  PRINT"SIZE WIRE?":
  129. 1410  INPUT"(Y OR N)";C$
  130. 1420  IF C$="Y" THEN 500
  131. 1430  INPUT"DESIGN ANOTHER COIL?(Y OR N)";B$
  132. 1440  IF B$ ="Y" THEN 500
  133. 1450  PRINT:PRINT:
  134. 1460  PRINT"O.K. GOOD LUCK ON YOUR PROJECT !!"
  135. 1470  CLS:PRINT"WHAT NOW "
  136. 1471  PRINT:PRINT"RETURN TO MAIN MENU.................1"
  137. 1472  PRINT:PRINT"RETURN TO BASIC.....................2"
  138. 1473  PRINT:PRINT"RETURN TO MS-DOS....................3"
  139. 1474  PRINT:INPUT"SELECT ";C
  140. 1475  ON C GOTO 20000,20010,20020
  141. 1476  GOTO 1470
  142. 1480  IF N2*W>0.385 THEN PRINT"COIL TO LONG FOR 1/2 W FORM":GOTO 1390
  143. 1490  IF N2*W<=0.385 THEN GOTO 1350
  144. 1500  IF N2*W>0.525 THEN PRINT"COIL TO LONG FOR 1W FORM":GOTO 1390
  145. 1510  IF N2*W<=0.525 GOTO 1350
  146. 1520  IF N2*W>0.65 THEN PRINT"COIL TO LONG FOR 2W FORM":GOTO 1390
  147. 1530  IF N2*W<=0.65 GOTO 1350
  148. 1540  PRINT"WOULD YOU LIKE TO SELECT THE LENGTH"
  149. 1550  INPUT"FOR A SPACE WOUND COIL (Y OR N)";Z$
  150. 1560  IF Z$="N" THEN GOTO 1430
  151. 1570  SL=(INT(N2*W*100))/100
  152. 1580  PRINT"THE LENGTH MUST BE GREATER THEN";SL
  153. 1590  PRINT"INCHES,  NEW LENGTH"
  154. 1600  INPUT NL
  155. 1610  N2=INT((SQR((L*(4*5*D+10*NL)/((D/2)+2))))*100+0.5)/100
  156. 1620  FOR X=1 TO 14:PRINT"":NEXT
  157. 1630  PRINT"WIRE SIZE=";G;" GAGE"
  158. 1640  PRINT"COIL DIA.=";D;" INCHES"
  159. 1650  PRINT"NUMBER OF TURNS=";N2
  160. 1660  PRINT"COIL LENGTH=";NL;"INCHES"
  161. 1670  RETURN
  162. 1680  END
  163. 1720  PRINT"THE PROGRAM IS TO BE USED TO DESIGN "
  164. 1730  PRINT"SINGLE LAYER SOLENOIDS ON STANDARD"
  165. 1740  PRINT"RESISTOR FORMS OR ON A FORM HAVING A "
  166. 1750  PRINT"DIAMETER OF YOUR CHOOSING."
  167. 1770  PRINT"THE INDUCTANCE FORMULA IS FROM THE"
  168. 1780  PRINT"RADIO AMATEUR'S HANDBOOK."
  169. 1800  PRINT"THIS FORMULA IS TRANSPOSED TO DETERMINE"
  170. 1810  PRINT"THE NUMBER OF TURNS REQUIRED, AND THE"
  171. 1820  PRINT"RESULTING QUADRATIC IS SOLVED USING THE"
  172. 1830  PRINT"CLASSICAL EQUATION"
  173. 1850  PRINT"YOU DECIDE THE SIZE OF THE COIL FORM, THE"
  174. 1860  PRINT"INDUCTANCE, OR INDUCTIVE REACTANCE, AND"
  175. 1870  PRINT"THE WIRE SIZE -"
  176. 1900  PRINT:PRINT"TO CONTINUE PRESS ANY KEY";
  177. 1910  Z$="0":Z$=INKEY$:IF Z$="" THEN 1910:
  178. 1920  CLS:PRINT"IF THE COIL SIZE/WIRE SIZE COMBINATION"
  179. 1930  PRINT"WON'T FIT ON THE RESISTOR FORM CHOSEN"
  180. 1940  PRINT"THEN THE COMPUTER WILL TELL YOU SO AND"
  181. 1950  PRINT"ASK FOR ANOTHER CHOICE."
  182. 1970  PRINT"IF YOU CHOOSE THE COIL DIAMETER, THEN"
  183. 1980  PRINT"THE LENGTH CAN BE WHATEVER IS NECESSARY.":PRINT
  184. 1990  PRINT"THE COMPUTER WILL ALSO TELL YOU THE"
  185. 2000  PRINT"LENGTH TO DIAMETER RATIO AND ASK IF YOU"
  186. 2010  PRINT"WOULD LIKE THE NUMBER OF TURNS FOR A"
  187. 2020  PRINT"SPACE WOUND COIL OF SPECIFIED LENGTH."
  188. 2030  RETURN
  189. 20000  RUN"MAINMENU"
  190. 20010  CLS:NEW
  191. 20020  SYSTEM
  192.