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

Tweak the averaging scheme: now straight avg up to N=4, then expenential with ntc=4.

Browse Source
This commit is contained in:
Joe Taylor 2021-02-10 11:14:46 -05:00
parent 50469f898e
commit 6395087e6f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/qra/q65/q65.f90
View File

@ -234,10 +234,10 @@ subroutine q65_symspec(iwave,nmax,iz,jz,s1)
enddo enddo
enddo enddo
if(lnewdat) then if(lnewdat) then
ntc=3 navg(iseq)=navg(iseq) + 1
ntc=min(navg(iseq),4) !Averaging time constant in sequences
u=1.0/ntc u=1.0/ntc
s1a(:,:,iseq)=u*s1 + (1.0-u)*s1a(:,:,iseq) s1a(:,:,iseq)=u*s1 + (1.0-u)*s1a(:,:,iseq)
navg(iseq)=navg(iseq) + 1
endif endif
return return