w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-11-04 05:50:31 -05:00
Code Issues Packages Projects Releases Wiki Activity

Adjustments to test_q65 for wider submodes.

Browse Source
This commit is contained in:
Joe Taylor 2020-12-05 13:46:07 -05:00
parent 742e2ef59f
commit c50134691d
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lib/test_q65.f90
View File

@ -38,13 +38,13 @@ program test_q65
if(ntrperiod.eq.15) then if(ntrperiod.eq.15) then
nsps=1800 nsps=1800
i50=-21 i50=-23
else if(ntrperiod.eq.30) then else if(ntrperiod.eq.30) then
nsps=3600 nsps=3600
i50=-24 i50=-26
else if(ntrperiod.eq.60) then else if(ntrperiod.eq.60) then
nsps=7200 nsps=7200
i50=-28 i50=-29
else if(ntrperiod.eq.120) then else if(ntrperiod.eq.120) then
nsps=16000 nsps=16000
i50=-31 i50=-31
@ -54,6 +54,8 @@ program test_q65
else else
stop 'Invalid TR period' stop 'Invalid TR period'
endif endif
i50=i50 + 8.0*log(fDop)/log(240.0)
ia=i50 + 7 ia=i50 + 7
ib=i50 - 10 ib=i50 - 10
if(snr.ne.0.0) then if(snr.ne.0.0) then
@ -67,12 +69,12 @@ program test_q65
! 1 2 3 4 5 6 7 ! 1 2 3 4 5 6 7
! 123456789012345678901234567890123456789012345678901234567890123456789012345' ! 123456789012345678901234567890123456789012345678901234567890123456789012345'
cmd1='q65sim "K1ABC W9XYZ EN37 " A 1500 5.0 0.0 60 100 F -10.0 > junk0' cmd1='q65sim "K1ABC W9XYZ EN37 " A 1500 5.0 0.0 60 100 F -10.0 > junk0'
cmd2='jt9 -3 -p 15 -L 300 -H 3000 -d 3 -b A -Q 3 *.wav > junk' cmd2='jt9 -3 -p 15 -L 300 -H 3000 -d 3 -b A -Q 3 -f 1500 *.wav > junk'
write(cmd1(10:33),'(a)') '"'//msg//'"' write(cmd1(10:33),'(a)') '"'//msg//'"'
cmd1(35:35)=csubmode cmd1(35:35)=csubmode
write(cmd1(37:40),'(i4)') nf0 write(cmd1(37:40),'(i4)') nf0
write(cmd1(41:45),'(f5.1)') fDop write(cmd1(41:45),'(f5.0)') fDop
write(cmd1(46:50),'(f5.2)') dt write(cmd1(46:50),'(f5.2)') dt
write(cmd1(51:54),'(i4)') ntrperiod write(cmd1(51:54),'(i4)') ntrperiod
write(cmd1(55:59),'(i5)') nfiles write(cmd1(55:59),'(i5)') nfiles
@ -80,7 +82,9 @@ program test_q65
write(cmd2(11:13),'(i3)') ntrperiod write(cmd2(11:13),'(i3)') ntrperiod
write(cmd2(33:34),'(i2)') ndepth write(cmd2(33:34),'(i2)') ndepth
write(cmd2(44:44),'(i1)') nQSOprogress write(cmd2(44:44),'(i1)') nQSOprogress
write(cmd2(49:52),'(i4)') nf0
cmd2(39:39)=csubmode cmd2(39:39)=csubmode
call system('rm -f *.wav') call system('rm -f *.wav')
! call qra_params(ndepth,maxaptype,idf0max,idt0max,ibwmin,ibwmax,maxdist) ! call qra_params(ndepth,maxaptype,idf0max,idt0max,ibwmin,ibwmax,maxdist)
@ -142,7 +146,7 @@ program test_q65
ndec1,nfalse,naptype,tdec/nfiles ndec1,nfalse,naptype,tdec/nfiles
write(12,1100) snr1,ntrperiod,csubmode,ndepth,fDop,nsync,ndecn, & write(12,1100) snr1,ntrperiod,csubmode,ndepth,fDop,nsync,ndecn, &
ndec1,nfalse,naptype,tdec/nfiles ndec1,nfalse,naptype,tdec/nfiles
1100 format(f5.1,i4,1x,a1,i3,f5.1,3i5,i4,i6,5i5,f6.2) 1100 format(f5.1,i4,1x,a1,i3,f5.0,3i5,i4,i6,5i5,f6.2)
if(ndec1.lt.nfiles/2 .and. ndec1z.ge.nfiles/2) then if(ndec1.lt.nfiles/2 .and. ndec1z.ge.nfiles/2) then
snr_thresh=snr1 + float(nfiles/2 - ndec1)/(ndec1z-ndec1) snr_thresh=snr1 + float(nfiles/2 - ndec1)/(ndec1z-ndec1)
open(13,file='snr_thresh.out',status='unknown',position='append') open(13,file='snr_thresh.out',status='unknown',position='append')