home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / prog7.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-12-26  |  986 b   |  36 lines
  1. 7500  CLS
  2. 7510  F$="******** PARALLEL INDUCTOR CIRCUITS ********"
  3. 7520  F=40-LEN(F$)/2
  4. 7530  LOCATE 1,F
  5. 7540  PRINT F$
  6. 7550  PRINT:GOSUB 7780:PRINT" ":PRINT
  7. 7560  LOCATE 5,62:PRINT"1"
  8. 7570  LOCATE 6,50:PRINT"L= ------------------"
  9. 7580  LOCATE 7,54:PRINT"1    1        1"
  10. 7590  LOCATE 8,52:PRINT CHR$(228);" -- + --";CHR$(249);CHR$(249);CHR$(249);CHR$(249);" + --"
  11. 7600  LOCATE 9,54:PRINT"L1   L2       Ln"
  12. 7610  RN=0:A=0:RT=0:R=0:SUMR=0
  13. 7620  PRINT:PRINT"PLEASE LIMIT THE AMOUNT OF INDUCTORS TO BE TOTALED TO 5"
  14. 7630  INPUT"HOW MANY INDUCTORS DO YOU HAVE IN PARALLEL";RN
  15. 7640  IF RN>5 THEN GOSUB 7790:IF RN>5 THEN 7500
  16. 7650  PRINT
  17. 7660  FOR RT=1 TO RN
  18. 7670  PRINT"ENTER THE VALUE OF #";RT;"INDUCTOR";:INPUT R
  19. 7680  IF RN=1 THEN SUMR=R:IF RN=1 THEN 7720
  20. 7690  A=A+(1/R)
  21. 7700  NEXT
  22. 7710  SUMR=1/A
  23. 7720  PRINT:PRINT"THE TOTAL INDUCTANCE IN PARALLEL IS ------------> ";SUMR;" HENRYS"
  24. 7730  PRINT:GOSUB 7780:PRINT" "
  25. 7740  PRINT"HIT ANY KEY TO RETURN TO MAIN MENU OR (C) TO CONTINUE";
  26. 7750  Z$=INKEY$:IF Z$="" THEN 7750
  27. 7760  IF Z$="C" THEN 7500
  28. 7770  RUN "MAINMENU"
  29. 7780  FOR M=1 TO 80:PRINT CHR$(178);:NEXT M:RETURN
  30. 7790  CLS:F$="YOU ENTERED TO LARGE A NUMBER"
  31. 7800  F=40-LEN(F$)/2:LOCATE 12,F:PRINT F$
  32. 7810  FOR I=1 TO 100
  33. 7820  SOUND 1200,0.5
  34. 7830  SOUND 1400,0.5
  35. 7840  NEXT:RETURN
  36.