home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / etronic2 / progr1.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-02-01  |  1.5 KB  |  39 lines
  1. 1  CLS:KEY OFF:             REM          PARALLEL RESISTORS (MAXIMUM OF 5)
  2. 2  CLS:LOCATE 25,10:PRINT "TO USE EXPONENTS ADD E+3, E-6 etc TO VALUES!"
  3. 3  LOCATE 1,1:PRINT "ALL RESISTANCES MUST BE ENTERED IN THE SAME UNIT. THE ANSWER                    WILL BE IN THE UNIT YOU ENTERED!"
  4. 4  PRINT
  5. 5  PRINT "THIS PROGRAM PROVIDES TWO OPTIONS:                                                      1. SOLVE FOR THE EQUIVALENT RESISTANCE OF UP TO FIVE"
  6. 6  PRINT "           PARALLEL RESISTORS"
  7. 7  PRINT "        2. SOLVE FOR THE VALUE OF RESISTANCE NEEDED TO PROVIDE A                           SPECIFIED EQUIVALENT RESISTANCE WHEN PARALLELED WITH"
  8. 8  PRINT "           ANOTHER SPECIFIED RESISTANCE."
  9. 9  PRINT
  10. 10  INPUT "ENTER THE NUMBER WHICH CORRESPONDS TO THE OPTION YOU DESIRE. ", N
  11. 11  IF N = 1 OR N = 2 THEN ON N GOTO 14, 29
  12. 12  PRINT "YOU MUST SELECT ONE OF THE TWO OPTIONS DUMMY."
  13. 13  GOTO 9
  14. 14  PRINT
  15. 15  PRINT "HOW MANY RESISTORS ARE IN PARALLEL (MAXIMUM OF 5) ";
  16. 16  INPUT N
  17. 17  IF N>=1 AND N<=5 AND N=INT(N) THEN 20
  18. 18  PRINT "MUST BE AN INTEGER FROM ONE TO FIVE  (SIR/MADAM)"
  19. 19  GOTO 14
  20. 20  FOR I = 1 TO N
  21. 21  PRINT "     RESISTOR NUMBER"; I; "IS";
  22. 22  INPUT X
  23. 23  LET R = R + 1/X
  24. 24  NEXT I
  25. 25  LET R=1/R
  26. 26  PRINT
  27. 27  PRINT "TOTAL (EQUIVALENT) RESISTANCE IS ";INT(R*10+0.5)/10;" OHM"
  28. 28  LOCATE 24,25: INPUT ; " MORE CALCULATIONS (Y/N) ", A$: IF A$="Y" OR A$="y" THEN RUN 2 ELSE IF A$="N" OR A$="n" THEN RUN "MENU1"
  29. 29  PRINT
  30. 30  INPUT "DESIRED EQUIVALENT RESISTANCE (RT) ";RT
  31. 31  INPUT "RESISTANCE TO BE PARELLELED (R1) "; R1
  32. 32  IF R1>RT THEN 36
  33. 33  PRINT "R1 MUST BE LARGER THEN RT"
  34. 34  PRINT
  35. 35  GOTO 31
  36. 36  LET R2=RT*R1/(R1-RT)
  37. 37  PRINT
  38. 38  PRINT "THE RESISTANCE NEEDED IN PARALLEL IS "; INT(R2*10+0.5)/10;" OHM": GOTO 28
  39.