home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / etronics / 2.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-03-04  |  671 b   |  18 lines
  1. 100  CLS
  2. 110  INPUT "WHAT IS THE LINE FREQUENCY IN Hz. ";F
  3. 120  INPUT "HALF OR FULL-WAVE RECTIFIER (H or F) ";R$
  4. 130  IF R$ ="H" OR R$="h" OR R$="F" OR R$="f" THEN GOTO 140 ELSE 120
  5. 140  IF R$ ="H" OR R$="h" THEN F = F / 2
  6. 150  INPUT "RECTIFIER PEAK OUTPUT IN VOLTS? ";V
  7. 160  INPUT "MINIMUM REGULATOR INPUT VOLTAGE? ";VM
  8. 170  INPUT "WHAT IS THE MAX. CURRENT IN AMPERES? ";I
  9. 180  IF V - VM < = 0 THEN PRINT "THE CAPACITOR CAN'T BE THAT LARGE!":GOTO 400
  10. 190  X = VM / V:A = ATN (X / SQR(-X*X+1))
  11. 200  C=I*((1 / (4*F))+(1/(6.28*F))*A)/(V-VM)
  12. 210  CM = C * 1E+06
  13. 220  CM = INT(CM)
  14. 230  PRINT: PRINT "THE MINIMUM FILTER = ";CM;" MICROFARADS"
  15. 240  GOTO 400
  16. 400  PRINT: PRINT "              HIT SPACE BAR TO RETURN TO MENU"
  17. 410  K$=INKEY$:IF K$=" " THEN RUN "MENU2" ELSE 410
  18.