w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-06-07 00:52:29 -04:00
Code Issues Packages Projects Releases Wiki Activity

FST4/W: Improve calibration for SNR estimates.

Browse Source
This commit is contained in:
Steven Franke 2022-11-16 10:57:07 -06:00
parent 94334f2b6c
commit 9d28082cc1
1 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lib/fst4_decode.f90
View File

@ -586,13 +586,26 @@ contains
xsig=xsig+s4(itone(i),i) xsig=xsig+s4(itone(i),i)
enddo enddo
base=candidates(icand,5) base=candidates(icand,5)
arg=600.0*(xsig/base)-1.0 select case(ntrperiod)
case(15)
snr_calfac=800.0
case(30)
snr_calfac=600.0
case(60)
snr_calfac=430.0
case(120)
snr_calfac=390.0
case(300)
snr_calfac=340.0
case(900)
snr_calfac=320.0
case(1800)
snr_calfac=320.0
case default
end select
arg=snr_calfac*xsig/base - 1.0
if(arg.gt.0.0) then if(arg.gt.0.0) then
xsnr=10*log10(arg)-35.5-12.5*log10(nsps/8200.0) xsnr=10*log10(arg)+10*log10(1.46/2500)+10*log10(8200.0/nsps)
if(ntrperiod.eq. 15) xsnr=xsnr+2
if(ntrperiod.eq. 30) xsnr=xsnr+1
if(ntrperiod.eq. 900) xsnr=xsnr+1
if(ntrperiod.eq.1800) xsnr=xsnr+2
else else
xsnr=-99.9 xsnr=-99.9
endif endif