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

Break the sweeping sync tone into pieces with different frequency offsets and slopes. Needs testing!

Browse Source
This commit is contained in:
Joe Taylor 2024-02-21 15:28:36 -05:00
parent f1e4f998ce
commit b1e2a54f91
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/superfox/sfox_clo.f90
View File

@ -28,8 +28,10 @@ subroutine sweep(f0,syncwidth,fsample,w,c,iz)
if(i.eq.iz/2+1) a2=-a2 !Reverse sign of drift at midpoint
x=s*(i-x0)
dphi=(a0 + x*a2)*(twopi/fsample)
! j=i/(4*1024)
! dphi=(a0 + (j-1.5)*200.0 + x*a2)*(twopi/fsample)
j=(i-1)/(4*1024)
a0a=a0 + (j-2.5)*200.0
a2a=a2*(1.0 + (j-2.5)/10.0)
dphi=(a0a + x*a2a)*(twopi/fsample)
wstep=cmplx(cos(dphi),sin(dphi))
w=w*wstep
c(i)=w