w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-23 18:02:29 -04:00
Code Issues Packages Projects Releases Wiki Activity

Commit several tentative attempts (now commented out) addressing

Browse Source 
a possible JT9 decoding issue.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6366 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-01-08 20:55:17 +00:00
parent a864cbfdeb
commit 76d4393537
3 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/afc9.f90
View File

@ -54,13 +54,14 @@ subroutine afc9(c3a,npts,fsample,a,syncpk)
enddo enddo
if(a(3).ne.a3) call shft(c3a,a(3),a3,c3) if(a(3).ne.a3) call shft(c3a,a(3),a3,c3)
chisqr=fchisq(c3,npts,fsample,a) chisqr=fchisq(c3,npts,fsample,a)
! write(*,4000) 0,0,a,-chisqr
if(chisqr/chisqr0.gt.0.99) exit if(chisqr/chisqr0.gt.0.99) exit
chisqr0=chisqr chisqr0=chisqr
enddo enddo
syncpk=-chisqr syncpk=-chisqr
c3a=c3 c3a=c3
! write(*,4001) a,-chisq2 ! write(*,4001) a,syncpk
!4001 format(3x,3f10.4,f11.3) !4001 format(3x,3f10.4,f11.3)
return return

7
lib/fchisq.f90
View File

@ -34,8 +34,11 @@ real function fchisq(c3,npts,fsample,a)
sum0=sum0+pp sum0=sum0+pp
endif endif
enddo enddo
sync=sum1/10000.0 sync_4992=(sum1/16.0)/(sum0/69.0) - 1.0 !r4992
fchisq=-sync sync_4993=sum1/10000.0 !r4993+
! write(80,3001) 1.e-5*sum1,1.e-5*sum0,sync_4992,sync_4993,sync
!3001 format(5f11.4)
fchisq=-sync_4993
return return
end function fchisq end function fchisq

4
lib/softsym.f90
View File

@ -28,10 +28,12 @@ subroutine softsym(id2,npts8,nsps8,newdat,fpk,syncpk,snrdb,xdt, &
fsample=1500.0/ndown fsample=1500.0/ndown
a=0. a=0.
call timer('afc9 ',0) call timer('afc9 ',0)
call afc9(c3,nz3,fsample,a,syncpk) !Find deltaF, fDot, fDDot call afc9(c3,nz3,fsample,a,syncpk) !Find deltaF, fDot, extra DT
call timer('afc9 ',1) call timer('afc9 ',1)
freq=fpk - a(1) freq=fpk - a(1)
drift=-2.0*a(2) drift=-2.0*a(2)
! write(*,3301) fpk,freq,a
!3301 format(2f9.3,3f10.4)
a3=a(3) a3=a(3)
a(3)=0. a(3)=0.