home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…e: Engineering & Science / Explore_the_World_of_Software_Engineering_and_Science_HRS_Software_1998.iso / programs / electrnc / mcgarret.exe / AIRCOIL.BAS next >
BASIC Source File  |  1986-08-11  |  370b  |  15 lines
  1. 5 CLS
  2. 15 PRINT TAB(10);"RF AIR CORE INDUCTOR"
  3. 25 PRINT
  4. 35 PRINT TAB(10);"WIRE DIAMETER IN INCHES";:INPUT D
  5. 45 PRINT
  6. 55 PRINT TAB(10);"COIL DIAMETER  IN INCHES";:INPUT CD
  7. 65 PRINT
  8. 75 R=CD/2
  9. 85 PRINT TAB(10);"DESIRED INDUCTANCE IN uH";:INPUT L
  10. 95 PRINT
  11. 105 A=SQR((10*D*L)^2+4*R*R*L*(9*R+10*D))
  12. 115 N=(10*D*L+A)/(2*R*R)
  13. 125 PRINT
  14. 135 PRINT TAB(10);"TURNS";N
  15.