w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-11-03 13:30:52 -05:00
Code Issues Packages Projects Releases Wiki Activity

Reconcile the SNR of simulated complex and real noisy signals.

Browse Source
This commit is contained in:
Steven Franke 2024-02-17 10:00:33 -06:00
parent cdcdedfe40
commit 5c53a43171
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/superfox/sfoxtest.f90
View File

@ -101,7 +101,7 @@ program sfoxtest
baud=12000.0/nsps !Keying rate, 11.719 baud for nsps=1024 baud=12000.0/nsps !Keying rate, 11.719 baud for nsps=1024
h=default_header(12000,NMAX) h=default_header(12000,NMAX)
idummy=0 idummy=0
bandwidth_ratio=2500.0/6000.0 bandwidth_ratio=2500.0/12000.0
fgood0=1.0 fgood0=1.0
! Generate a message ! Generate a message
@ -131,6 +131,7 @@ program sfoxtest
snr=isnr snr=isnr
if(snrdb.ne.0.0) snr=snrdb if(snrdb.ne.0.0) snr=snrdb
sig=sqrt(2*bandwidth_ratio)*10.0**(0.05*snr) sig=sqrt(2*bandwidth_ratio)*10.0**(0.05*snr)
sigr=sqrt(2.)*sig
if(snr.gt.90.0) sig=1.0 if(snr.gt.90.0) sig=1.0
ngoodsync=0 ngoodsync=0
ngood=0 ngood=0
@ -167,7 +168,7 @@ program sfoxtest
delay,fspread) delay,fspread)
call timer('watterso',1) call timer('watterso',1)
dat=aimag(sig*cdat(1:NMAX)) + xnoise !Add generated AWGN noise dat=aimag(sigr*cdat(1:NMAX)) + xnoise !Add generated AWGN noise
! call plotspec(dat) !### TEMPORARY, for SNR calibration ### ! call plotspec(dat) !### TEMPORARY, for SNR calibration ###
fac=32767.0 fac=32767.0
if(snr.ge.90.0) iwave(1:NMAX)=nint(fac*dat(1:NMAX)) if(snr.ge.90.0) iwave(1:NMAX)=nint(fac*dat(1:NMAX))