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

Avoid edge effects when finding noise baseline.

Browse Source
This commit is contained in:
K9AN 2020-06-23 09:45:44 -05:00
parent 67f2450cc5
commit 1b2d690bf0
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lib/fst280_decode.f90
View File

@ -60,7 +60,6 @@ contains
iwspr=0
nmax=15*12000
single_decode=iand(nexp_decode,32).eq.32
if(ntrperiod.eq.15) then
nsps=800
nmax=15*12000
@ -236,10 +235,9 @@ contains
endif
enddo
ncand=ic
do icand=1,ncand
fc_synced=candidates(icand,3)
isbest=nint(candidates(icand,4))
isbest=nint(candidates(icand,4))
xdt=(isbest-nspsec)/fs2
call fst280_downsample(c_bigfft,nfft1,ndown,fc_synced,c2)
@ -474,8 +472,10 @@ contains
inb=ib
else
fcenter=(fa+fb)/2.0
ina=nint(max(100.0,fcenter-noise_bw/2.)/df2)
inb=nint(min(4800.0,fcenter+noise_bw/2.)/df2)
fl = max(100.0,fcenter-noise_bw/2.)/df2
fh = min(4800.0,fcenter+noise_bw/2.)/df2
ina=nint(fl)
inb=nint(fh)
endif
s=0.
do i=ina,inb ! noise analysis window includes signal analysis window
@ -484,14 +484,13 @@ contains
s(i)=s(i) + real(c_bigfft(j))**2 + aimag(c_bigfft(j))**2
enddo
enddo
nh=hmod
do i=ina,inb
s2(i)=s(i-nh*3) + s(i-nh) +s(i+nh) +s(i+nh*3)
s2(i)=s(i-hmod*3) + s(i-hmod) +s(i+hmod) +s(i+hmod*3)
enddo
call pctile(s2(ina:inb),ib-ia+1,30,base)
call pctile(s2(ina+hmod*3:inb-hmod*3),inb-ina+1-hmod*6,30,base)
s2=s2/base
thresh=1.30
ncand=0
candidates=0
if(ia.lt.3) ia=3