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 / RELAYARC.BAS < prev    next >
BASIC Source File  |  1987-12-17  |  904b  |  21 lines
  1. 100 REM PROGRAM FOR CALCULATING RELAY ARC-SUPPRESSION COMPONENTS
  2. 110 REM FROM EQUATION GIVEN BY J. McALISTER, WA5EKA, IN QST, NOV. 84, P56
  3. 120 REM PROGRAM BY D. McGARRETT, 17 DECEMBER 1987
  4. 130 REM PROGRAM NAME "RELAYARC.BAS"
  5. 140 REM THE CORRECT ANSWER FOR 100 VOLTS AND .O2 uF IS 33 OHMS
  6. 150 CLS
  7. 160 PRINT"PROGRAM SELECTS COMPONENTS TO SUPPRESS ARCING ACROSS OPENING RELAY CONTACTS."
  8. 170 PRINT"EXACT VALUES ARE NOT THAT CRITICAL--USE NEAREST 10% VALUE"
  9. 180 PRINT
  10. 190 INPUT"WHAT IS THE CIRCUIT VOLTAGE ACROSS THE OPEN RELAY CONTACTS";E
  11. 200 INPUT"SELECT A CAPACITOR VALUE, PREFERABLY BETWEEN 0.01 AND 0.1 uF";C
  12. 210 R=E/(10*(3.16*SQR(C))^(1+50/E))
  13. 220 R=INT(R)
  14. 230 PRINT
  15. 240 PRINT"USE"R" OHMS IN SERIES WITH A"C" uF CAPACITOR ACROSS THE RELAY CONTACTS"
  16. 250 PRINT
  17. 260 INPUT"IF YOU DON'T LIKE THIS VALUE, TYPE 1 TO RUN AGAIN. ",Q
  18. 270 PRINT
  19. 280 IF Q=1 THEN GOTO 200, ELSE GOTO 290
  20. 290 END
  21.