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

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

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)

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)