mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-28 16:16:48 -04:00
Minor corrections to mapsim.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@2558 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
07c0df1be4
commit
73be1b0fcd
@ -44,7 +44,7 @@ subroutine cgen65(message,mode65,nfast,samfac,nsendingsh,msgsent,cwave,nwave)
|
|||||||
tsymbol=4096.d0/(nfast*11025.d0) !Time per symbol
|
tsymbol=4096.d0/(nfast*11025.d0) !Time per symbol
|
||||||
else
|
else
|
||||||
nsendingsh=1 !Flag for shorthand message
|
nsendingsh=1 !Flag for shorthand message
|
||||||
nsym=32
|
nsym=32/nfast
|
||||||
tsymbol=16384.d0/11025.d0
|
tsymbol=16384.d0/11025.d0
|
||||||
endif
|
endif
|
||||||
|
|
||||||
|
@ -87,7 +87,8 @@ program mapsim
|
|||||||
if(npol.lt.0) pol=(isig-1)*180.0/nsigs
|
if(npol.lt.0) pol=(isig-1)*180.0/nsigs
|
||||||
a=cos(pol/rad)
|
a=cos(pol/rad)
|
||||||
b=sin(pol/rad)
|
b=sin(pol/rad)
|
||||||
f=1000.0*(f1 + (isig-1)*(f2-f1)/(nsigs-1.0))
|
f=1000.0*(f1+f2)/2.0
|
||||||
|
if(nsigs.gt.1) f=1000.0*(f1 + (isig-1)*(f2-f1)/(nsigs-1.0))
|
||||||
dphi=twopi*f*dt + 0.5*twopi
|
dphi=twopi*f*dt + 0.5*twopi
|
||||||
|
|
||||||
snrdbx=snrdb
|
snrdbx=snrdb
|
||||||
|
Loading…
Reference in New Issue
Block a user