w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-09-05 14:47:54 -04:00
Code Issues Packages Projects Releases Wiki Activity

Rescale the output from cwsim.

Browse Source
This commit is contained in:
Joe Taylor 2024-06-28 12:58:28 -04:00
parent 1dbc8ac18f
commit 354d3bcb1a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/cwsim.f90
View File

@ -31,7 +31,7 @@ program cwsim
call getarg(5,arg) call getarg(5,arg)
read(arg,*) snrdb !S/N in dB (2500 hz reference BW) read(arg,*) snrdb !S/N in dB (2500 hz reference BW)
rmsdb=25. rmsdb=40.
rms=10.0**(0.05*rmsdb) rms=10.0**(0.05*rmsdb)
sig=10.0**(0.05*snrdb) sig=10.0**(0.05*snrdb)
twopi=8.0*atan(1.0) twopi=8.0*atan(1.0)
@ -86,7 +86,7 @@ program cwsim
endif endif
dat=aimag(cdat) + xnoise dat=aimag(cdat) + xnoise
iwave=nint(10*rms*dat) iwave=nint(rms*dat)
write(10) h,iwave write(10) h,iwave
close(10) close(10)