w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-06-25 06:35:17 -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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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) call smo121(blue,NZ)
enddo enddo
ia=200.0/df ia=50.0/df
ib=400.0/df ib=250.0/df
call pctile(red(ia:ib),ib-ia+1,50,bred) call pctile(red(ia:ib),ib-ia+1,50,bred1)
red=red-bred call pctile(blue(ia:ib),ib-ia+1,50,bblue1)
call pctile(blue(ia:ib),ib-ia+1,50,bblue) ia=1250.0/df
blue=blue-bblue 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 900 call sleep_msec(10) !Avoid the "blue Decode button" syndrome
return return