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

Move calculation of echo snr into a separate subroutine.

Browse Source
This commit is contained in:
Joe Taylor 2022-04-22 11:43:28 -04:00
parent 03b680dee5
commit 87dcde7564
1 changed files with 56 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

89
lib/test_snr.f90
View File

@ -12,9 +12,12 @@ program test_snr
complex c(0:NH)
real x(NFFT)
real s(8192)
real sa(4096)
real sb(4096)
real red(4096)
real blue(4096)
character*80 infile
integer ipkv(1)
equivalence (x,c),(ipk,ipkv)
equivalence (x,c)
nargs=iargc()
if(nargs.lt.1) then
@ -45,36 +48,11 @@ program test_snr
enddo
enddo
wh=0.5*fspread0+10.0
i1=nint((1500.0 - 2.0*wh)/df)
i2=nint((1500.0 - wh)/df)
i3=nint((1500.0 + wh)/df)
i4=nint((1500.0 + 2.0*wh)/df)
baseline=(sum(s(i1:i2-1)) + sum(s(i3+1:i4)))/(i2+i4-i1-i3)
s=s/baseline
psig=sum(s(i2:i3)-1.0)
pnoise_2500 = 2500.0/df
snrdb=db(psig/pnoise_2500)
smax=0.
mh=max(1,nint(0.2*fspread0/df))
do i=i2,i3
ssum=sum(s(i-mh:i+mh))
if(ssum.gt.smax) then
smax=ssum
ipk=i
endif
enddo
fpeak=ipk*df - 1500.0
call averms(s(i1:i2-1),i2-i1,-1,ave1,rms1)
call averms(s(i3+1:i4),i4-i3,-1,ave2,rms2)
perr=0.707*(rms1+rms2)*sqrt(float(i2-i1+i4-i3))
snr_detect=psig/perr
db_err=99.0
if(psig.gt.perr) db_err=snrdb - db((psig-perr)/pnoise_2500)
sa=s(2049:6144)
sb=s(2049:6144)
call echo_snr(sa,sb,fspread0,blue,red,snrdb,db_err,fpeak,snr_detect)
nsum=npings
nqual=0
if(nsum.ge.2 .and. nsum.lt.4) nqual=(snr_detect-4)/5
@ -84,10 +62,10 @@ program test_snr
if(nqual.lt.0) nqual=0
if(nqual.gt.10) nqual=10
write(*,1010) fspread0,wh,snrdb0,snrdb,snrdb-snrdb0,db_err,fpeak, &
write(*,1010) fspread0,snrdb0,snrdb,snrdb-snrdb0,db_err,fpeak, &
snr_detect,nqual
1010 format(6f6.1,2f7.1,i3)
1010 format(5f6.1,2f7.1,i4)
do i=1,8192
write(12,1100) i*df,s(i)
@ -95,3 +73,48 @@ program test_snr
enddo
999 end program test_snr
subroutine echo_snr(sa,sb,fspread0,blue,red,snrdb,db_err,fpeak,snr_detect)
parameter (NZ=4096)
real sa(NZ)
real sb(NZ)
real blue(NZ)
real red(NZ)
integer ipkv(1)
equivalence (ipk,ipkv)
df=12000.0/32768.0
wh=0.5*fspread0+10.0
i1=nint((1500.0 - 2.0*wh)/df) - 2048
i2=nint((1500.0 - wh)/df) - 2048
i3=nint((1500.0 + wh)/df) - 2048
i4=nint((1500.0 + 2.0*wh)/df) - 2048
baseline=(sum(sb(i1:i2-1)) + sum(sb(i3+1:i4)))/(i2+i4-i1-i3)
blue=sa/baseline
red=sb/baseline
psig=sum(red(i2:i3)-1.0)
pnoise_2500 = 2500.0/df
snrdb=db(psig/pnoise_2500)
smax=0.
mh=max(1,nint(0.2*fspread0/df))
do i=i2,i3
ssum=sum(red(i-mh:i+mh))
if(ssum.gt.smax) then
smax=ssum
ipk=i
endif
enddo
fpeak=ipk*df - 750.0
call averms(red(i1:i2-1),i2-i1,-1,ave1,rms1)
call averms(red(i3+1:i4),i4-i3,-1,ave2,rms2)
perr=0.707*(rms1+rms2)*sqrt(float(i2-i1+i4-i3))
snr_detect=psig/perr
db_err=99.0
if(psig.gt.perr) db_err=snrdb - db((psig-perr)/pnoise_2500)
return
end subroutine echo_snr