w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 21:58:38 -05:00
Code Issues Packages Projects Releases Wiki Activity

Q65 sync curves linear up to 10, then logarithmic. AutoClrAvg only for decodes at RxFreq, and never for "lagain" decode attempts.

Browse Source
This commit is contained in:
Joe Taylor 2021-03-12 14:27:58 -05:00
parent bb1306a54b
commit 41ce20101f
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/q65_decode.f90
View File

@ -234,7 +234,9 @@ contains
nsnr=nint(snr2) nsnr=nint(snr2)
call this%callback(nutc,snr1,nsnr,dtdec,f0dec,decoded, & call this%callback(nutc,snr1,nsnr,dtdec,f0dec,decoded, &
idec,nused,ntrperiod) idec,nused,ntrperiod)
if(iand(ndepth,128).ne.0) call q65_clravg !AutoClrAvg after decode ! if(iand(ndepth,128).ne.0) call q65_clravg !AutoClrAvg after decode
if(iand(ndepth,128).ne.0 .and. .not.lagain .and. &
int(abs(f0dec-nfqso)).le.ntol ) call q65_clravg !AutoClrAvg
call sec0(1,tdecode) call sec0(1,tdecode)
open(22,file=trim(data_dir)//'/q65_decodes.dat',status='unknown', & open(22,file=trim(data_dir)//'/q65_decodes.dat',status='unknown', &
position='append',iostat=ios) position='append',iostat=ios)
@ -316,7 +318,9 @@ contains
nsnr=nint(snr2) nsnr=nint(snr2)
call this%callback(nutc,snr1,nsnr,dtdec,f0dec,decoded, & call this%callback(nutc,snr1,nsnr,dtdec,f0dec,decoded, &
idec,nused,ntrperiod) idec,nused,ntrperiod)
if(iand(ndepth,128).ne.0) call q65_clravg !AutoClrAvg after decode ! if(iand(ndepth,128).ne.0) call q65_clravg !AutoClrAvg after decode
if(iand(ndepth,128).ne.0 .and. .not.lagain .and. &
int(abs(f0dec-nfqso)).le.ntol ) call q65_clravg !AutoClrAvg
call sec0(1,tdecode) call sec0(1,tdecode)
open(22,file=trim(data_dir)//'/q65_decodes.dat',status='unknown', & open(22,file=trim(data_dir)//'/q65_decodes.dat',status='unknown', &
position='append',iostat=ios) position='append',iostat=ios)

8
lib/qra/q65/q65.f90
View File

@ -583,8 +583,12 @@ subroutine q65_write_red(iz,xdt,ccf2_avg,ccf2)
write(17,1000) xdt write(17,1000) xdt
do i=max(1,nint(nfa/df)),nint(nfb/df) do i=max(1,nint(nfa/df)),nint(nfb/df)
freq=i*df freq=i*df
write(17,1000) freq,ccf2_avg(i),ccf2(i) y1=ccf2_avg(i)
1000 format(f10.3,2e12.3) if(y1.gt.10.0) y1=10.0 + 2.0*log10(y1/10.0)
y2=ccf2(i)
if(y2.gt.10.0) y2=10.0 + 2.0*log10(y2/10.0)
write(17,1000) freq,y1,y2
1000 format(3f10.3)
enddo enddo
flush(17) flush(17)