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:
Joe Taylor 2006-07-24 20:48:02 +00:00
parent dedbd91143
commit a735577197
5 changed files with 4740 additions and 4738 deletions

View File

@ -1160,6 +1160,7 @@ G4APJ,IO83UP,,,Ken,,FT736 FT817,08/03
G4ASR,IO81MX,EME,,David,,144: FT221GTi 2x3CX400 17el (4x17el)2500 DT,02/04 G4ASR,IO81MX,EME,,David,,144: FT221GTi 2x3CX400 17el (4x17el)2500 DT,02/04
G4BRK,IO91DP,,,Neil,,144: 80W 9el1000lpm,03/02 G4BRK,IO91DP,,,Neil,,144: 80W 9el1000lpm,03/02
G4CBW,IO83UB,,,Paul,,144: TS2000 IC756PROII 2x 9el 180W,09/04 G4CBW,IO83UB,,,Paul,,144: TS2000 IC756PROII 2x 9el 180W,09/04
G4CCH,IO93ql,EME,,
G4CJG,IO94CR,,,jerry,,,1993 G4CJG,IO94CR,,,jerry,,,1993
G4CLA,IO92JL,,,Pete,,,09/03 G4CLA,IO92JL,,,Pete,,,09/03
G4DBL,IO91JJ,,,Tim,,144: IC746PRO 4CX350 300W 17el,11/04 G4DBL,IO91JJ,,,Tim,,144: IC746PRO 4CX350 300W 17el,11/04
@ -3581,6 +3582,7 @@ SM5DRV,JO77MV,,,Lars,,144: IC-275H 100W 13el yagi2000lpm,07/04
SM5FRH,JO88BW,EME,,Torbjoern ""Tobben",,144: 32x19el horz. or 32x10el vert..017,10/00 SM5FRH,JO88BW,EME,,Torbjoern ""Tobben",,144: 32x19el horz. or 32x10el vert..017,10/00
SM5GEP,JO77IP,,,,,,2003 SM5GEP,JO77IP,,,,,,2003
SM5IOT,JO99,EME,,Christer,,144: 8x9el vargarda GS35b MGF1801,10/00 SM5IOT,JO99,EME,,Christer,,144: 8x9el vargarda GS35b MGF1801,10/00
SM5LE,JO99bd,EME,,
SM5TSP,JP90CE,EME,,Lars,,144: 4x15el 750W2500lpm,07/03 SM5TSP,JP90CE,EME,,Lars,,144: 4x15el 750W2500lpm,07/03
SM6AEK,JO66,,,goran,,,1993 SM6AEK,JO66,,,goran,,,1993
SM6AFH,JO66LQ,,,thomas,,DTR,1994 SM6AFH,JO66LQ,,,thomas,,DTR,1994

View File

@ -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=' '

View File

@ -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

View File

@ -1,4 +1,4 @@
#------------------------------------------------------------------ WSJT #------------------------------------------------------------------- WSJT
from Tkinter import * from Tkinter import *
from tkFileDialog import * from tkFileDialog import *
import Pmw import Pmw

View File

@ -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)