Removed normalization by rms in sync65.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@14 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2005-12-25 01:54:28 +00:00
parent ba44a4125a
commit 0d93735ba0
3 changed files with 2 additions and 14 deletions

View File

@ -27,8 +27,6 @@ c complex work(NMAX)
dt=2.0/11025.0
df=0.5*11025.0/nfft
call zero(ps,77)
tmid=0.5*dt*nsym*nfft*mode65
k=istart-nfft
do j=1,nsym
call zero(s,77)

View File

@ -53,7 +53,6 @@ C Find the best frequency channel for CCF
ired1=ib-i0
lag1=-5
! lag2=27
lag2=59
syncbest=-1.e30
syncbest2=-1.e30
@ -66,16 +65,7 @@ C Find the best frequency channel for CCF
C Find rms of the CCF, without the main peak
call slope(ccfblue(lag1),lag2-lag1+1,lagpk0-lag1+1.0)
sq=0.
nsq=0
do lag=lag1,lag2
if(abs(lag-lagpk0).gt.1) then
sq=sq+ccfblue(lag)**2
nsq=nsq+1
endif
enddo
rms=sqrt(sq/nsq)
sync=abs(ccfblue(lagpk0))/rms
sync=abs(ccfblue(lagpk0))
ppmax=psavg(i)-1.0
C Find the best sync value

View File

@ -13,7 +13,7 @@ from palettes import colormapblue, colormapgray0, colormapHot, \
colormapAFMHot, colormapgray1, colormapLinrad, Colormap2Palette
root = Tk()
Version="5.9.2.1"
Version="5.9.2 r14"
print "******************************************************************"
print "WSJT Version " + Version + ", by K1JT"
isec=Audio.makedate_sub()