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

Bump up sigma at low SNRs to suppress noise decodes.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6983 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2016-08-02 02:30:33 +00:00
parent 2830fa7571
commit 58de27e65c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/detectmsk40.f90
View File

@ -214,6 +214,7 @@ subroutine detectmsk40(cbig,n,pchk_file,mycall,hiscall,lines,nmessages, &
cdat=cbig(imid-NPTS/2+1:imid+NPTS/2) cdat=cbig(imid-NPTS/2+1:imid+NPTS/2)
ferr=ferrs(ip) ferr=ferrs(ip)
nsnr=nint(snrs(ip)) nsnr=nint(snrs(ip))
xsnr=snrs(ip)
if( nsnr .lt. -5 ) nsnr=-5 if( nsnr .lt. -5 ) nsnr=-5
if( nsnr .gt. 25 ) nsnr=25 if( nsnr .gt. 25 ) nsnr=25
@ -362,6 +363,7 @@ subroutine detectmsk40(cbig,n,pchk_file,mycall,hiscall,lines,nmessages, &
softbits=softbits/ssig softbits=softbits/ssig
sigma=0.75 sigma=0.75
if( xsnr .lt. -4.0 ) sigma=1.1
lratio(1:32)=exp(2.0*softbits(9:40)/(sigma*sigma)) lratio(1:32)=exp(2.0*softbits(9:40)/(sigma*sigma))
max_iterations=5 max_iterations=5
@ -389,7 +391,7 @@ subroutine detectmsk40(cbig,n,pchk_file,mycall,hiscall,lines,nmessages, &
nrxhash=(imsg-nrxrpt)/64 nrxhash=(imsg-nrxrpt)/64
if( nhammd .le. 5 .and. cord .lt. 1.7 .and. nrxhash .eq. nhashes(nrxrpt) ) then if( nhammd .le. 5 .and. cord .lt. 1.7 .and. nrxhash .eq. nhashes(nrxrpt) ) then
fest=1500+ferr+ferr2+deltaf fest=1500+ferr+ferr2+deltaf
!write(14,'(i6.6,11i6,f7.1)') nutc,ip,ipk,id,idf,iav,ipha,niterations,nbadsync,nrxrpt,ncalls,nhammd,cord !write(14,'(i6.6,11i6,f7.1,f7.1)') nutc,ip,ipk,id,idf,iav,ipha,niterations,nbadsync,nrxrpt,ncalls,nhammd,cord,xsnr
nhashflag=1 nhashflag=1
msgreceived=' ' msgreceived=' '
nmessages=1 nmessages=1