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 / NFTEMP.BAS < prev    next >
BASIC Source File  |  1987-06-03  |  941b  |  33 lines
  1. 8 CLS
  2. 10 LET Z=1/LOG(10)
  3. 20 PRINT"   CASCADING NOISE FIGURE
  4. 25 PRINT
  5. 30 PRINT
  6. 35 PRINT"   ENTER THE FIRST STAGE NOISE FIGURE IN DB
  7. 36 INPUT N1
  8. 37 PRINT
  9. 38 PRINT
  10. 45 PRINT"   ENTER THE SECOND STAGE NOISE FIGURE IN DB
  11. 50 INPUT N2
  12. 55 PRINT
  13. 60 PRINT
  14. 65 PRINT"   ENTER THE GAIN OF THE FIRST STAGE IN DB
  15. 70 INPUT G1
  16. 75 REM---TNE LOG TO BASE 10 IS Z*LN
  17. 80 F1=EXP(LOG(10)*N1/10):T1=(F1-1)*290!
  18. 85 F2=EXP(LOG(10)*N2/10):T2=(F2-1)*290!
  19. 90 LET FF=F2-1
  20. 95 G=EXP(LOG(10)*G1/10)
  21. 100 A=F1+FF/G
  22. 110 PRINT
  23. 120 PRINT
  24. 125 LET B=Z*10*LOG(A):B=INT(B*1000+.5)/1000
  25. 130 PRINT"     THE CASCADED NOISE FIGURE IS
  26. 135 PRINT B;"DB"
  27. 140 T1=INT(T1*100+.5)/100:T2=INT(T2*100+.5)/100
  28. 150 PRINT:PRINT"   EQUIV NOISE TEMP OF 1ST STAGE= ";T1;"DEGREES KELVIN
  29. 160 PRINT:PRINT"     EQUIV NOISE TEMP OF 2ND STAGE= ";T2;"DEGREES KELVIN
  30. 162 T3=T1+T2/G:T3=INT(T3*100+.5)/100
  31. 165 PRINT:PRINT"     TOTAL SYSTEM NOISE TEMP = ";T3;"DEGREES KELVIN
  32. 170 END
  33.