w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-10-27 11:00:32 -04:00
Code Issues Packages Projects Releases Wiki Activity

Corrected the zero-data test in spec2d.f.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@105 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2006-01-14 19:44:53 +00:00
parent f29469421f
commit 8ce9f91fb6
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
spec2d.f
View File

@ -44,10 +44,6 @@ C Accumulate average spectrum for the whole file.
psavg0(i) = psavg0(i)+ real(c(i))**2 + imag(c(i))**2 psavg0(i) = psavg0(i)+ real(c(i))**2 + imag(c(i))**2
enddo enddo
enddo enddo
if(sum.eq.0.0) then
sigma=-999.
go to 999
endif
C Normalize and save a copy of psavg0 for plotting. Roll off the C Normalize and save a copy of psavg0 for plotting. Roll off the
C spectrum at 300 and 3000 Hz. C spectrum at 300 and 3000 Hz.
@ -77,6 +73,10 @@ C Compute an average spectrum from the weakest 25% of time slices.
do i=6,59 do i=6,59
sum=sum+ps2(i) sum=sum+ps2(i)
enddo enddo
if(sum.eq.0.0) then
sigma=-999.
go to 999
endif
C Compute a smoothed spectrum without local peaks, and find its max. C Compute a smoothed spectrum without local peaks, and find its max.
smaxx=0. smaxx=0.

2
wsjt.py
View File

@ -1,4 +1,4 @@
#------------------------------------------------------------- WSJT #-------------------------------------------------------------- WSJT
from Tkinter import * from Tkinter import *
from tkFileDialog import * from tkFileDialog import *
import Pmw import Pmw