mirror of
				https://github.com/saitohirga/WSJT-X.git
				synced 2025-10-31 13:10:19 -04: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…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user