w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Change to symspec() was not a good idea. 

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3273 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2013-05-15 19:45:55 +00:00
parent 1fc406b8a0
commit 1f82d75194
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/symspec.f90
View File

@ -86,8 +86,8 @@ subroutine symspec(k,ntrperiod,nsps,ingain,nb,nbslider,pxdb,s,red, &
peaklimit=sigmas*max(10.0,rms) peaklimit=sigmas*max(10.0,rms)
px=0. px=0.
! nwindow=2 nwindow=2
nwindow=0 !### No windowing ### ! nwindow=0 !### No windowing ###
kstep1=NFFT1 kstep1=NFFT1
if(nwindow.ne.0) kstep1=NFFT1/2 if(nwindow.ne.0) kstep1=NFFT1/2
fac=2.0/NFFT1 fac=2.0/NFFT1
@ -97,11 +97,11 @@ subroutine symspec(k,ntrperiod,nsps,ingain,nb,nbslider,pxdb,s,red, &
do i=1,NFFT1 do i=1,NFFT1
x0(i)=gain*id2(k1+i) x0(i)=gain*id2(k1+i)
enddo enddo
! call timf2(x0,k,NFFT1,nwindow,nb,peaklimit,x1, & call timf2(x0,k,NFFT1,nwindow,nb,peaklimit,x1, &
! slimit,lstrong,px,nzap) slimit,lstrong,px,nzap)
! Mix at 1500 Hz, lowpass at +/-750 Hz, and downsample to 1500 Hz complex. ! Mix at 1500 Hz, lowpass at +/-750 Hz, and downsample to 1500 Hz complex.
x2(106:105+kstep1)=x0(1:kstep1) x2(106:105+kstep1)=x1(1:kstep1)
call fil3(x2,kstep1+105,c0(k8+1),n2) call fil3(x2,kstep1+105,c0(k8+1),n2)
x2(1:105)=x1(kstep1-104:kstep1) !Save 105 trailing samples x2(1:105)=x1(kstep1-104:kstep1) !Save 105 trailing samples
k1=k1+kstep1 k1=k1+kstep1
@ -152,7 +152,6 @@ subroutine symspec(k,ntrperiod,nsps,ingain,nb,nbslider,pxdb,s,red, &
call pctile(ssum,iz,npct,xmed1) call pctile(ssum,iz,npct,xmed1)
fac1=fac00/max(xmed1,0.006*ihsym) fac1=fac00/max(xmed1,0.006*ihsym)
savg(1:iz)=fac1*ssum(1:iz) savg(1:iz)=fac1*ssum(1:iz)
savg(iz+1:iz+20)=savg(iz)
call redsync(ss,ntrperiod,ihsym,iz,red) call redsync(ss,ntrperiod,ihsym,iz,red)
return return

2
mainwindow.cpp
View File

@ -1,4 +1,4 @@
//------------------------------------------------------------- MainWindow //------------------------------------------------------------ MainWindow
#include "mainwindow.h" #include "mainwindow.h"
#include "ui_mainwindow.h" #include "ui_mainwindow.h"
#include "devsetup.h" #include "devsetup.h"