Noise Power calculator for HP41C

Michael Fletcher, OH2AUE, 2000
 

P_n = k * T_sys * B_-3dB
 

01   LBL NOISEP                   ( f LBL alpha NOISEP alpha )
02   1.3805 E-23                     (Boltzmann's constant, J/K)
03   T, SYS, K ?                      ( alpha T, SYS, K ? Alpha )    (System noise temperature in K)
04   PROMPT                          ( XEQ alpha PROMPT alpha )
05   *
06   BW, HZ ?                         (System -3dB noise bandwidth)
07   PROMPT
08   *
09   1000
10   *
11   LOG
12   10
13   *
14   FIX 1
15   STO 11
16   TONE 5                           ( XEQ alpha TONE alpha 5 )
17   NOISE PWR, DBM=      (System noise floor in specified bandwidth)
18   ARCL 11
19   AVIEW
20   RTN