mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-12-04 01:53:10 -05:00
Tweak deep65 params for modes JT65A, JT65C.
Increase range of optional SNR degradation. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@205 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
dedbd91143
commit
a735577197
6
deep65.F
6
deep65.F
@ -135,10 +135,10 @@ C If sync=OOO, no CQ messages
|
|||||||
do i=1,100
|
do i=1,100
|
||||||
if(pp(ntot-i).ne.pp(ntot)) go to 40
|
if(pp(ntot-i).ne.pp(ntot)) go to 40
|
||||||
enddo
|
enddo
|
||||||
40 iref=min(ntot-i,nint(0.68*ntot))
|
|
||||||
pbias=1.08*pp(ntot-i)
|
|
||||||
qual=100.0*(p1-pbias)
|
|
||||||
|
|
||||||
|
40 qual=100.0*(p1-1.08*pp(ntot-i))
|
||||||
|
if(mode65.eq.1) qual=100.0*(p1-1.12*pp(ntot-i))
|
||||||
|
if(mode65.eq.4) qual=100.0*(p1-1.04*pp(ntot-i))
|
||||||
! if(mode65.eq.1) qual=100.0*(p1-0.335)
|
! if(mode65.eq.1) qual=100.0*(p1-0.335)
|
||||||
! if(mode65.eq.4) qual=100.0*(p1-0.505)
|
! if(mode65.eq.4) qual=100.0*(p1-0.505)
|
||||||
decoded=' '
|
decoded=' '
|
||||||
|
2
sync65.f
2
sync65.f
@ -1,7 +1,7 @@
|
|||||||
subroutine sync65(dat,jz,DFTolerance,NFreeze,NAFC,MouseDF,
|
subroutine sync65(dat,jz,DFTolerance,NFreeze,NAFC,MouseDF,
|
||||||
+ dtx,dfx,snrx,snrsync,ccfblue,ccfred,flip,width,ftrack)
|
+ dtx,dfx,snrx,snrsync,ccfblue,ccfred,flip,width,ftrack)
|
||||||
|
|
||||||
C Synhronizes JT65 data, finding the best-fit DT and DF.
|
C Synchronizes JT65 data, finding the best-fit DT and DF.
|
||||||
C NB: at this stage, submodes ABC are processed in the same way.
|
C NB: at this stage, submodes ABC are processed in the same way.
|
||||||
|
|
||||||
parameter (NP2=60*11025) !Size of data array
|
parameter (NP2=60*11025) !Size of data array
|
||||||
|
2
wsjt.py
2
wsjt.py
@ -1,4 +1,4 @@
|
|||||||
#------------------------------------------------------------------ WSJT
|
#------------------------------------------------------------------- WSJT
|
||||||
from Tkinter import *
|
from Tkinter import *
|
||||||
from tkFileDialog import *
|
from tkFileDialog import *
|
||||||
import Pmw
|
import Pmw
|
||||||
|
2
wsjt1.F
2
wsjt1.F
@ -120,7 +120,7 @@ C Intentionally degrade SNR by -nclip dB.
|
|||||||
enddo
|
enddo
|
||||||
p0=sq/jz
|
p0=sq/jz
|
||||||
p1=p0*10.0**(-0.1*nclip)
|
p1=p0*10.0**(-0.1*nclip)
|
||||||
dnoise=sqrt(p1-p0)
|
dnoise=sqrt(4*(p1-p0))
|
||||||
idum=-1
|
idum=-1
|
||||||
do i=1,jz
|
do i=1,jz
|
||||||
dat(i)=dat(i) + dnoise*gran(idum)
|
dat(i)=dat(i) + dnoise*gran(idum)
|
||||||
|
Loading…
Reference in New Issue
Block a user