home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / rf3 / cascade.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  1.2 KB  |  41 lines
  1. 10  REM PRECISION 4
  2. 20  PRINT CHR$(26): PRINT: PRINT: PRINT ,,"CASCADED DEVICE PROGRAM"
  3. 30  PRINT ,," BY: MATTHEW S. TIETZE  --- VIA K2UYH/WA2TIF"
  4. 40  FOR I=1 TO 5000
  5. 50  NEXT
  6. 60  PRINT CHR$(26)
  7. 70  PRINT: PRINT: PRINT ,"     THIS IS A PROGRAM THAT CALCULATES THE TOTAL"
  8. 80  PRINT ,"      NOISE FIGURE AND GAIN FOR CASCADED DEVICES"
  9. 90  FOR I=1 TO 5000
  10. 100  NEXT
  11. 110  PRINT CHR$(26)
  12. 120  A=1:F=0
  13. 130  INPUT "HOW MANY CASCADED DEVICES";N
  14. 140  FOR I= 1 TO N
  15. 150  PRINT "WHAT IS THE NOISE FIGURE OF DEVICE"; I; "(IN dB)":INPUT B(I)
  16. 160  B=10^(B(I)/10)
  17. 170  IF I>1 THEN B=B-1
  18. 180  IF I=1 THEN D=B ELSE D=B/A
  19. 190  PRINT "WHAT IS THE GAIN OF DEVICE"; I;"(IN DB)":INPUT C(I)
  20. 200  C=10^(C(I)/10)
  21. 210  F=F+D: A=A*C
  22. 220  NEXT:F=10*LOG(F)/LOG(10)
  23. 230  A=10*LOG(A)/LOG(10)
  24. 240  PRINT "THE TOTAL NOISE FIGURE IS:"; F;"dB"
  25. 250  PRINT "THE TOTAL GAIN IS:"; A;"dB"
  26. 260  INPUT "WOULD YOU LIKE A HARD COPY (Y/N)";Q$
  27. 270  IF Q$="N" THEN 380
  28. 280  IF Q$<>"Y" THEN 260
  29. 290  LPRINT,: LPRINT,: LPRINT,: LPRINT,: LPRINT,
  30. 300  LPRINT, "RESULTS OF THE CASCADED DEVICE COMPUTER PROGRAM"
  31. 310  LPRINT,: LPRINT,
  32. 320  FOR I=1 TO N
  33. 330  LPRINT, "THE NF OF DEVICE";I;"IS:";B(I);"dB": LPRINT,
  34. 340  LPRINT, "THE GAIN OF DEVICE";I;"IS:";C(I);"dB": LPRINT,
  35. 350  NEXT
  36. 360  LPRINT,: LPRINT, "THE TOTAL NOISE FIGURE IS:"; F;"dB"
  37. 370  LPRINT,: LPRINT, "THE TOTAL GAIN IS:"; A"dB"
  38. 380  INPUT "WOULD YOU LIKE TO DO ANOTHER CALCULATION (Y/N)";Q$
  39. 390  IF Q$="Y" THEN 110 ELSE IF Q$<>"N" THEN 380
  40. 400  END
  41.