home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / etronic2 / progr8.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-07  |  1.1 KB  |  37 lines
  1. 800  REM RESONANCE
  2. 801  CLS
  3. 802  PI = 3.14159
  4. 803  PRINT "THIS PROGRAM SOLVES FOR ANY OF THE THREE VARIABLES LISTED BELOW"
  5. 804  PRINT "      1. RESONANT FREQUENCY"
  6. 805  PRINT "      2. CAPACITANCE"
  7. 806  PRINT "      3. INDUCTANCE"
  8. 807  PRINT
  9. 808  PRINT "ENTER THE NUMBER THAT CORRESPONDS TO THE VARIABLE FOR WHICH YOU"
  10. 809  PRINT "WISH TO DETERMINE A VALUE. ";
  11. 810  INPUT " ", N
  12. 811  IF N=1 OR N=2 OR N=3 THEN 815
  13. 812  PRINT
  14. 813  PRINT "ENTER 1, 2, OR 3: ";
  15. 814  GOTO 810
  16. 815  PRINT
  17. 816  PRINT "ENTER VALUES, IN BASE UNITS, FOR THE FOLLOWING VARIABLES: "
  18. 817  ON N GOTO 818, 824, 830
  19. 818  INPUT; "    CAPACITANCE IS "; C : PRINT " FARADS"
  20. 819  INPUT; "    INDUCTANCE IS  "; L : PRINT " HENRIES"
  21. 820  F = 1/(2*PI*SQR(L*C))
  22. 821  PRINT
  23. 822  PRINT "THE RESONANT FREQUENCY IS"; F " HERTZ"
  24. 823  GOTO 840
  25. 824  INPUT; "    FREQUENCY IS  "; F : PRINT " HERTZ"
  26. 825  INPUT; "    INDUCTANCE IS "; L : PRINT " HENRIES"
  27. 826  C = 0.02533/(F*F*L)
  28. 827  PRINT
  29. 828  PRINT "THE CAPACITANCE IS"; C "FARADS"
  30. 829  GOTO 840
  31. 830  INPUT; "    FREQUENCY ID "; F : PRINT " HERTZ"
  32. 831  INPUT; "    CAPACITANCE IS "; C : PRINT " FARADS"
  33. 832  L = 0.02533/(F*F*C)
  34. 833  PRINT
  35. 834  PRINT "THE INDUCTANCE IS "; L " HENRIES"
  36. 840  LOCATE 25,20: INPUT ; "MORE CALCULATIONS (Y/N) ",A$: IF A$="Y"OR A$="y" THEN RUN 800 ELSE IF A$="N" OR A$="n" THEN RUN "MENU1"
  37.