home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / etronic2 / progr4.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-03-07  |  1.1 KB  |  37 lines
  1. 400  REM CAPACITIVE REACTANCE
  2. 401  CLS
  3. 402  PI = 3.14159
  4. 403  PRINT "THIS PROGRAM SOLVES FOR ANY ONE OF THE THREE VARIABLES LISTED BELOW."
  5. 404  PRINT "      1. REACTANCE"
  6. 405  PRINT "      2. FREQUENCY"
  7. 406  PRINT "      3. CAPACITANCE"
  8. 407  PRINT
  9. 408  PRINT "ENTER THE NUMBER THAT CORRESPONDS TO THE VARIABLE FOR WHICH YOU"
  10. 409  PRINT "WISH TO DETERMINE A VALUE. " ;
  11. 410  INPUT " ", N
  12. 411  IF N = 1 OR N = 2 OR N = 3 THEN 415
  13. 412  PRINT
  14. 413  PRINT "ENTER 1, 2 OR 3: " ;
  15. 414  GOTO 410
  16. 415  PRINT
  17. 416  PRINT "ENTER VALUES, IN BASE UNITS, FOR THE FOLLOWING VARIABLES: "
  18. 417  ON N GOTO 418, 424, 430
  19. 418  INPUT; "    FREQUENCY IS   "; F : PRINT " hertz"
  20. 419  INPUT; "    CAPACITANCE IS "; C : PRINT " farads"
  21. 420  X = 1/(2*PI*F*C)
  22. 421  PRINT
  23. 422  PRINT "THE REACTANCE IS" X "OHMS."
  24. 423  GOTO 440
  25. 424  INPUT; "    REACTANCE IS   "; X :PRINT  " ohms"
  26. 425  INPUT; "    CAPACITANCE IS "; C : PRINT " farads"
  27. 426  F = 1/(2*PI*X*C)
  28. 427  PRINT
  29. 428  PRINT "THE FREQUENCY IS"; F " hertz"
  30. 429  GOTO 440
  31. 430  INPUT; "    FREQUENCY IS "; F : PRINT " hertz"
  32. 431  INPUT; "    REACTANCE IS "; X : PRINT " ohms"
  33. 432  C = 1/(2*PI*F*X)
  34. 433  PRINT
  35. 434  PRINT "THE CAPACITANCE IS"; C "farads"
  36. 440  LOCATE 25,20: INPUT ; "MORE CALCULATIONS (Y/N) ", A$: IF A$="Y" OR A$="y" THEN RUN 400 ELSE IF A$="N" OR A$="n" THEN RUN "MENU1"
  37.