w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-21 03:28:59 -04:00
Code Issues Packages Projects Releases Wiki Activity

Better zero-subtraction method for the echo spectrum.

Browse Source
This commit is contained in:
Joe Taylor 2022-09-28 15:08:57 -04:00
parent 8e3b285f17
commit 31f429724d
1 changed files with 11 additions and 6 deletions

17
lib/avecho.f90
View File

@ -103,12 +103,17 @@ subroutine avecho(id2,ndop,nfrit,nauto,navg,nqual,f1,xlevel,snrdb, &
call smo121(blue,NZ)
enddo
ia=200.0/df
ib=400.0/df
call pctile(red(ia:ib),ib-ia+1,50,bred)
red=red-bred
call pctile(blue(ia:ib),ib-ia+1,50,bblue)
blue=blue-bblue
ia=50.0/df
ib=250.0/df
call pctile(red(ia:ib),ib-ia+1,50,bred1)
call pctile(blue(ia:ib),ib-ia+1,50,bblue1)
ia=1250.0/df
ib=1450.0/df
call pctile(red(ia:ib),ib-ia+1,50,bred2)
call pctile(blue(ia:ib),ib-ia+1,50,bblue2)
red=red-0.5*(bred1+bred2)
blue=blue-0.5*(bblue1+bblue2)
900 call sleep_msec(10) !Avoid the "blue Decode button" syndrome
return