w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-03 14:42:25 -04:00
Code Issues Packages Projects Releases Wiki Activity

Measure avg and rms of estimated SNR values, for comparison with generated SNRs.

Browse Source
This commit is contained in:
Joe Taylor 2020-12-15 09:31:29 -05:00
parent 2a25a188d1
commit 99377e4c24
1 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lib/test_q65.f90
View File

@ -116,11 +116,19 @@ program test_q65
call sec0(1,tdec) call sec0(1,tdec)
open(10,file='junk',status='unknown') open(10,file='junk',status='unknown')
n=0 n=0
snrsum=0.
snrsq=0.
nsum=0
do iline=1,9999 do iline=1,9999
read(10,'(a71)',end=10) line read(10,'(a71)',end=10) line
if(index(line,'<Decode').eq.1) cycle if(index(line,'<Decode').eq.1) cycle
read(line(11:20),*) xdt,nf read(line,*) itime,xsnr,xdt,nf
decok=index(line,trim(msg)).gt.0 decok=index(line,trim(msg)).gt.0
if(decok) then
snrsum=snrsum + xsnr
snrsq=snrsq + xsnr*xsnr
nsum=nsum+1
endif
if((abs(xdt-dt).le.dterr .and. abs(nf-nf0).le.nferr) .or. decok) then if((abs(xdt-dt).le.dterr .and. abs(nf-nf0).le.nferr) .or. decok) then
nsync=nsync+1 nsync=nsync+1
endif endif
@ -140,13 +148,17 @@ program test_q65
endif endif
enddo enddo
10 close(10) 10 close(10)
xdt_avg=0. snr_avg=0.
xdt_rms=0. snr_rms=0.
if(nsum.ge.1) then
snr_avg=snrsum/nsum
snr_rms=sqrt(snrsq/nsum - snr_avg**2)
endif
write(*,1100) snr1,ntrperiod,csubmode,ndepth,fDop,nsync,ndecn, & write(*,1100) snr1,ntrperiod,csubmode,ndepth,fDop,nsync,ndecn, &
ndec1,nfalse,naptype,tdec/nfiles ndec1,nfalse,naptype,tdec/nfiles,snr_avg,snr_rms
write(12,1100) snr1,ntrperiod,csubmode,ndepth,fDop,nsync,ndecn, & write(12,1100) snr1,ntrperiod,csubmode,ndepth,fDop,nsync,ndecn, &
ndec1,nfalse,naptype,tdec/nfiles ndec1,nfalse,naptype,tdec/nfiles,snr_avg,snr_rms
1100 format(f5.1,i4,1x,a1,i3,f5.0,3i5,i4,i6,5i5,f6.2) 1100 format(f5.1,i4,1x,a1,i3,f5.0,3i5,i4,i6,5i5,f6.2,f6.1,f5.1)
if(ndec1.lt.nfiles/2 .and. ndec1z.ge.nfiles/2) then if(ndec1.lt.nfiles/2 .and. ndec1z.ge.nfiles/2) then
snr_thresh=snr1 + float(nfiles/2 - ndec1)/(ndec1z-ndec1) snr_thresh=snr1 + float(nfiles/2 - ndec1)/(ndec1z-ndec1)
open(13,file='snr_thresh.out',status='unknown',position='append') open(13,file='snr_thresh.out',status='unknown',position='append')