home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / prog4.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-12-26  |  987 b   |  36 lines
  1. 6000  CLS
  2. 6010  F$="******** SERIES CAPACITOR CIRCUITS ********"
  3. 6020  F=40-LEN(F$)/2
  4. 6030  LOCATE 1,F
  5. 6040  PRINT F$
  6. 6050  PRINT:GOSUB 6280:PRINT" ":PRINT
  7. 6060  LOCATE 5,62:PRINT"1"
  8. 6070  LOCATE 6,50:PRINT"C= ------------------"
  9. 6080  LOCATE 7,54:PRINT"1    1        1"
  10. 6090  LOCATE 8,52:PRINT CHR$(228);" -- + --";CHR$(249);CHR$(249);CHR$(249);CHR$(249);" + --"
  11. 6100  LOCATE 9,54:PRINT"C1   C2       Cn"
  12. 6110  RN=0:A=0:RT=0:SUMR=0:R=0
  13. 6120  PRINT:PRINT"PLEASE LIMIT THE AMOUNT OF CAPACITORS TO BE TOTALED TO 5"
  14. 6130  INPUT"HOW MANY CAPACITORS DO YOU HAVE IN PARALLEL";RN
  15. 6140  IF RN>5 THEN GOSUB 6290:IF RN>5 THEN 6000
  16. 6150  PRINT
  17. 6160  FOR RT=1 TO RN
  18. 6170  PRINT"ENTER THE VALUE OF #";RT;"CAPACITOR";:INPUT R
  19. 6180  IF RN=1 THEN SUMR=R:IF RN=1 THEN 6220
  20. 6190  A=A+(1/R)
  21. 6200  NEXT
  22. 6210  SUMR=1/A
  23. 6220  PRINT:PRINT"THE TOTAL CAPACITANCE IN SERIES IS ------------> ";SUMR;" FARADS"
  24. 6230  PRINT:GOSUB 6280:PRINT" "
  25. 6240  PRINT"HIT ANY KEY TO RETURN TO MAIN MENU OR (C) TO CONTINUE";
  26. 6250  Z$=INKEY$:IF Z$="" THEN 6250
  27. 6260  IF Z$="C" THEN 6000
  28. 6270  RUN "MAINMENU"
  29. 6280  FOR M=1 TO 80:PRINT CHR$(178);:NEXT M:RETURN
  30. 6290  CLS:F$="YOU ENTERED TO LARGE A NUMBER"
  31. 6300  F=40-LEN(F$)/2:LOCATE 12,F:PRINT F$
  32. 6310  FOR I=1 TO 100
  33. 6320  SOUND 1200,0.5
  34. 6330  SOUND 1400,0.5
  35. 6340  NEXT:RETURN
  36.