w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 20:28:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

Calibrate noise-baseline-fit based SNR estimate for FT8 v2 and print those estimates with decodes.

Browse Source
This commit is contained in:
Steve Franke 2018-09-23 13:03:20 -05:00
parent bcea5df35d
commit 332a3f1561
2 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/ft8/ft8b_2.f90
View File

@ -335,14 +335,14 @@ subroutine ft8b_2(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly, &
ios=mod(itone(i)+4,7) ios=mod(itone(i)+4,7)
xnoi=xnoi+s8(ios,i)**2 xnoi=xnoi+s8(ios,i)**2
enddo enddo
xsnr=0.001 xsnr=0.001
if(xnoi.gt.0 .and. xnoi.lt.xsig) xsnr=xsig/xnoi-1.0 if(xnoi.gt.0 .and. xnoi.lt.xsig) xsnr=xsig/xnoi-1.0
xsnr=10.0*log10(xsnr)-27.0 xsnr=10.0*log10(xsnr)-27.0
! need to reconcile signal normalization between this routine and the old ft8b_1 so xbase=10**(xbase/10.0)
! that SNRs come out the same. ! factor=xnoi/xbase
xsnr2=db(xsig/xbase - 1.0) - 32.0 factor=3.6e6
! if(.not.nagain) xsnr=xsnr2 xsnr2=10*log10(xsig/xbase/factor-1.0)-27.0
if(.not.nagain) xsnr=xsnr2
if(xsnr .lt. -24.0) xsnr=-24.0 if(xsnr .lt. -24.0) xsnr=-24.0
return return

5
lib/ft8/sync8.f90
View File

@ -39,11 +39,6 @@ subroutine sync8(dd,nfa,nfb,syncmin,nfqso,ldecode77,maxcand,s,candidate,ncand,sb
savg=savg + s(1:NH1,j) !Average spectrum savg=savg + s(1:NH1,j) !Average spectrum
enddo enddo
call baseline(savg,nfa,nfb,sbase) call baseline(savg,nfa,nfb,sbase)
! savg=savg/NHSYM
! do i=1,NH1
! write(51,3051) i*df,savg(i),db(savg(i))
!3051 format(f10.3,e12.3,f12.3)
! enddo
ia=max(1,nint(nfa/df)) ia=max(1,nint(nfa/df))
ib=nint(nfb/df) ib=nint(nfb/df)