home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / inductor.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-20  |  2.4 KB  |  65 lines
  1. 100  CLS :REM "INDUCTOR"
  2. 110  PRINT TAB(32);"****INDUCTORS****"
  3. 120  PRINT :PRINT "A-THIS PROGRAM COMPUTES THE INDUCTANCE OF SINGLE LAYER AIR";
  4. 130  PRINT " COILS GIVEN:" :PRINT "  CORE DIA. No. of TURNS and WIRE SPACING."
  5. 140  PRINT :PRINT "B-THIS PROGRAM COMPUTES THE INDUCTANCE OF ISOLATED BUSS";
  6. 150  PRINT " LEADS GIVEN:" :PRINT "  WIDTH,THICKNESS and LENGTH."
  7. 160  PRINT :PRINT "C-THIS PROGRAM COMPUTES THE INDUCTANCE OF ISOLATED ROUND";
  8. 170  PRINT " LEADS GIVEN:" :PRINT "  WIRE DIAMETER and LENGTH."
  9. 180  PRINT :BEEP :PRINT "SELECT A,B or C"
  10. 190  A$=INKEY$ :IF A$="" THEN 190
  11. 200  IF A$="B" THEN 420
  12. 210  IF A$="C" THEN 560
  13. 220  IF A$<>"A" THEN 190
  14. 230  CLS :PRINT TAB(26);"***SINGLE-LAYER AIR COILS***" :PRINT :PRINT
  15. 240  PRINT :BEEP :INPUT "ENTER CORE DIA. (MILS) ";CD
  16. 250  PRINT :BEEP :INPUT "ENTER WIRE DIA. (MILS) ";WD
  17. 260  PRINT :BEEP :INPUT "ENTER NUMBER OF TURNS  ";N
  18. 270  PRINT :PRINT "SPECIFY WIRE SPACING THUS: .001 for CLOSE WOUND; 1 for 1 ";
  19. 280  PRINT "WIRE SPACE" :PRINT TAB(29);"between turns etc."
  20. 290  PRINT :BEEP :INPUT "ENTER WIRE SPACING     ";WS
  21. 300  PRINT :BEEP :INPUT "ENTER FREQUENCY  (MHz) ";FO
  22. 310  D=CD+WD :L=N*WD*(1+WS):LN=0.25*N^2*D^2/(4.5*D+10*L)
  23. 320  Q=15.15*(LN/(N^2*D))*N*((WD*SQR(FO))-2.65) :PRINT
  24. 330  PRINT "INDUCTANCE =";INT(LN*100)/100;"nh; Q(unloaded)=";INT(Q*100)/100
  25. 340  GOSUB 680
  26. 350  IF P$="Y" THEN 370
  27. 360  IF P$<>"N" THEN 340 ELSE 410
  28. 370  LPRINT
  29. 380  LPRINT "CORE DIA.=";CD;"MILS; WIRE DIA.=";WD;"MILS; No. OF TURNS=";N;
  30. 390  LPRINT "; WIRE SPACING=";WS :LPRINT "WIRE DIAS.; INDUCTANCE=";
  31. 400  LPRINT INT(LN*100)/100 ;"nh @";INT(FO);"MHz Q(unloaded)=";INT(Q*100)/100
  32. 410  GOTO 710
  33. 420  CLS :PRINT TAB(27);"***ISOLATED BUSS LEADS***"
  34. 430  PRINT :BEEP :INPUT "ENTER LEAD WIDTH     (MILS)";LW
  35. 440  PRINT :BEEP :INPUT "ENTER LEAD THICKNESS (MILS)";LT
  36. 450  PRINT :BEEP :INPUT "ENTER LEAD LENGTH    (MILS)";LL
  37. 460  W=LW/1000 :T=LT/1000 :L=LL/1000
  38. 470  LS=(5.08*L)*((LOG((2*L)/(W+T)))+(1/2)+(2/9)*((W+T)/L))
  39. 480  PRINT :PRINT "SELF INDUCTANCE =";INT(LS*100)/100;"nh"
  40. 490  GOSUB 680
  41. 500  IF P$="Y" THEN 520
  42. 510  IF P$<>"N" THEN 490 ELSE 550
  43. 520  LPRINT
  44. 530  LPRINT "LEAD WIDTH=";LW;"MILS; LEAD THICKNESS=";LT;"MILS; LEAD LENGTH=";
  45. 540  LPRINT LL;"MILS" :LPRINT "SELF INDUCTANCE=";INT(LS*100)/100;"nh"
  46. 550  GOTO 710
  47. 560  CLS :PRINT TAB(27);"***ISOLATED ROUND LEADS***"
  48. 570  PRINT :BEEP :INPUT "ENTER LEAD DIA.   (MILS)";LD
  49. 580  PRINT :BEEP :INPUT "ENTER LEAD LENGTH (MILS)";LL
  50. 590  D=LD/1000 :L=LL/1000
  51. 600  LS=(5.08*L)*(LOG((2*L)/(D/2)-1))
  52. 610  PRINT :PRINT "SELF INDUCTANCE =";INT(LS*100)/100;"nh"
  53. 620  GOSUB 680
  54. 630  IF P$="Y" THEN 650
  55. 640  IF P$<>"N" THEN 620 ELSE GOTO 710
  56. 650  LPRINT :LPRINT "LEAD DIA.=";LD;"MILS; LEAD LENGTH=";LL;"MILS; ";
  57. 660  LPRINT "SELF INDUCTANCE=";INT(LS*100)/100;"nh"
  58. 670  GOTO 710
  59. 680  PRINT :BEEP :PRINT "HARD COPY REQUIRED?  (Y/N)"
  60. 690  P$=INKEY$ :IF P$="" THEN 690
  61. 700  RETURN
  62. 710  PRINT :BEEP :PRINT "CONTINUE?  (Y/N)
  63. 720  A$=INKEY$ :IF A$="" THEN 720
  64. 730  IF A$="Y" THEN 100 ELSE RUN"MAINMENU
  65.