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

Change the definition of "d" so that width of generated tones is equal

Browse Source 
to the requested Doppler spread.  Previously they were wider by the 
factor 2*sqrt(log(2)).


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6533 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-03-15 14:28:07 +00:00
parent 0fa8e75126
commit 2451639753
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/jt65sim.f90
View File

@ -200,9 +200,14 @@ program jt65sim
cspread(0)=1.0
cspread(NH)=0.
! The following statement was added 3/15/2016 to make the half-power tone
! widths equal to the requested Doppler spread. (Previously we effectively
! used b=1.0, which made the tones 1.665 times wider.)
b=2.0*sqrt(log(2.0))
do i=1,NH
f=i*df
x=f/fspread
x=b*f/fspread
z=0.
a=0.
if(x.lt.50.0) then