home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / etronic2 / progr6.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-07  |  1.1 KB  |  37 lines
  1. 600  REM INDUCTIVE REACTANCE
  2. 601  CLS
  3. 602  PI = 3.14159
  4. 603  PRINT "THIS PROGRAM SOLVES FOR ANY ONE OF THE THREE VARIABLES LISTED BELOW."
  5. 604  PRINT "      1. REACTANCE"
  6. 605  PRINT "      2. FREQUENCY"
  7. 606  PRINT "      3. INDUCTANCE"
  8. 607  PRINT
  9. 608  PRINT "ENTER THE NUMBER THAT CORRESPONDS TO THE VARIABLE FOR WHICH YOU"
  10. 609  PRINT "WISH TO DETERMINE A VALUE, " ;
  11. 610  INPUT  " ", N
  12. 611  IF N=1 OR N=2 OR N=3 THEN 616
  13. 612  PRINT
  14. 613  PRINT "ENTER 1, 2, OR 3: " ;
  15. 614  GOTO 611
  16. 615  PRINT
  17. 616  PRINT "ENTER VALUES, IN BASE UNITS, FOR THE FOLLOWING VARIABLES: "
  18. 617  ON N GOTO 618, 624, 630
  19. 618  INPUT ; "   FREQUENCY IS "; F :PRINT " HERTZ"
  20. 619  INPUT ; "   INDUCTANCE IS "; L : PRINT " HENRIES"
  21. 620  X = 2*PI*F*L
  22. 621  PRINT
  23. 622  PRINT "THE REACTANCE IS" X " OHM."
  24. 623  GOTO 640
  25. 624  INPUT ; "   REACTANCE IS "; X : PRINT " OHMS"
  26. 625  INPUT ; "   INDUCTANCE IS "; L : PRINT " HENRIES"
  27. 626  F = X/(2*PI*L)
  28. 627  PRINT
  29. 628  PRINT "THE FREQUENCE IS " F "HERTZ."
  30. 629  GOTO 640
  31. 630  INPUT ; "   FREQUENCY IS "; F : PRINT " HERTZ"
  32. 631  INPUT ; "   REACTANCE IS "; X : PRINT " OHMS
  33. 632  L = X/(2*PI*F)
  34. 633  PRINT
  35. 634  PRINT "THE INDUCTANCE IS" L " HENRIES"
  36. 640  LOCATE 25,20: INPUT ; "MORE CALCULATIONS (Y/N) ",A$:IF A$="Y" OR A$="y" THEN RUN 600 ELSE IF A$="N" OR A$="n" THEN RUN "MENU1"
  37.