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

Limit the Rx freq range to 1600-1650 Hz for WSPR-LF.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7678 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2017-05-13 19:34:47 +00:00
parent a89d699e49
commit 88e440f30e
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/fsk4hf/getfc1w.f90
View File

@ -1,4 +1,4 @@
subroutine getfc1w(c,fs,fc1,xsnr) subroutine getfc1w(c,fs,fa,fb,fc1,xsnr)
include 'wsprlf_params.f90' include 'wsprlf_params.f90'
@ -25,8 +25,9 @@ subroutine getfc1w(c,fs,fc1,xsnr)
smax=0. smax=0.
ipk=0 ipk=0
fc1=0. fc1=0.
ia=nint(190.0/df1) ia=nint(fa/df1)
do i=-ia,ia ib=nint(fb/df1)
do i=ia,ib
f=i*df1 f=i*df1
if(s(i).gt.smax) then if(s(i).gt.smax) then
smax=s(i) smax=s(i)

6
lib/fsk4hf/wspr5d.f90
View File

@ -62,7 +62,7 @@ program wspr5d
open(13,file=trim(data_dir)//'/ALL_WSPR.TXT',status='unknown', & open(13,file=trim(data_dir)//'/ALL_WSPR.TXT',status='unknown', &
position='append') position='append')
maxn=6 !Default value maxn=8 !Default value
twopi=8.0*atan(1.0) twopi=8.0*atan(1.0)
fs=NSPS*12000.0/NSPS0 !Sample rate fs=NSPS*12000.0/NSPS0 !Sample rate
dt=1.0/fs !Sample interval (s) dt=1.0/fs !Sample interval (s)
@ -120,7 +120,9 @@ program wspr5d
go to 999 go to 999
endif endif
close(10) close(10)
call getfc1w(c,fs,fc1,xsnr) !First approx for freq fa=100.0
fb=150.0
call getfc1w(c,fs,fa,fb,fc1,xsnr) !First approx for freq
call getfc2w(c,csync,fs,fc1,fc2,fc3) !Refined freq call getfc2w(c,csync,fs,fc1,fc2,fc3) !Refined freq
!NB: Measured performance is about equally good using fc2 or fc3 here: !NB: Measured performance is about equally good using fc2 or fc3 here: