home *** CD-ROM | disk | FTP | other *** search
/ Between Heaven & Hell 2 / BetweenHeavenHell.cdr / 500 / 421 / coilindu next >
Text File  |  1988-02-24  |  762b  |  23 lines
  1. 10 'THIS PROGRAM CALCULATES THE LENGTH AND TOTAL NUMBER OF TURNS
  2. 20 'FOR A SINGLE LAYER AIR-CORE COIL. SEE RADIO HANDBOOK FOR TURNS-PER-INCH
  3. 30 'DATA FOR VARIOUS WIRE SIZES.
  4. 35 DEFDBL T,R'DEFINES VARIBLES STARTING WITH T OR R AS DOUBLE PRECISION
  5. 40 INPUT "INDUCTANCE IN MICROHENRYS  ";H
  6. 50 INPUT "DIAMETER OF COIL  ";D
  7. 60 INPUT "TURNS PER INCH  ";TI
  8. 70 R=D/2
  9. 80 L=3 'FIRST TRIAL LENGTH
  10. 90 T=(H*((9*R)+(10*L))/R^2)^.5
  11. 100 LT=T/TI 'CALCULATES LENGTH BASED ON TURNS PER INCH
  12. 110 E=L-LT 'CALCULATE ERROR IN LENGTH
  13. 120 L=L-E 'RE-ESTIMATE LENGTH
  14. 130 IF ABS(E)<.01 GOTO 150
  15. 140 GOTO 90
  16. 150 PRINT
  17. 160 L=INT(L*100+.5)/100
  18. 170 PRINT "COIL LENGTH IS: ";L;"INCHES"
  19. 180 T1=L*TI
  20. 190 T1=INT(T1*10+.5)/10
  21. 200 PRINT "TOTAL NUMBER OF TURNS IS: ";T1
  22. 210 END
  23.