SVN r8568
This commit is contained in:
Jordan Sherer
@@ -1,101 +0,0 @@
|
||||
program JT65code
|
||||
|
||||
! Provides examples of message packing, bit and symbol ordering,
|
||||
! Reed Solomon encoding, and other necessary details of the JT65
|
||||
! protocol.
|
||||
|
||||
use packjt
|
||||
character*22 msg,msgchk,msg0,msg1,decoded,cok*3,bad*1,msgtype*10,expected
|
||||
integer dgen(12),sent(63),tmp(63),recd(12),era(51)
|
||||
include 'testmsg.f90'
|
||||
|
||||
nargs=iargc()
|
||||
if(nargs.ne.1) then
|
||||
print*,'Usage: jt65code "message"'
|
||||
print*,' jt65code -t'
|
||||
go to 999
|
||||
endif
|
||||
|
||||
call getarg(1,msg) !Get message from command line
|
||||
msgchk=msg
|
||||
call fmtmsg(msgchk,iz)
|
||||
nmsg=1
|
||||
if(msg(1:2).eq."-t") then
|
||||
if (NTEST+5 > MAXTEST) then
|
||||
write(*,*) "NTEST exceed MAXTEST"
|
||||
endif
|
||||
testmsg(NTEST+1)="KA1ABC WB9XYZ EN34 OOO"
|
||||
testmsg(NTEST+2)="KA1ABC WB9XYZ OOO"
|
||||
testmsg(NTEST+3)="RO"
|
||||
testmsg(NTEST+4)="RRR"
|
||||
testmsg(NTEST+5)="73"
|
||||
testmsgchk(NTEST+1)="KA1ABC WB9XYZ EN34 OOO"
|
||||
testmsgchk(NTEST+2)="KA1ABC WB9XYZ OOO"
|
||||
testmsgchk(NTEST+3)="RO"
|
||||
testmsgchk(NTEST+4)="RRR"
|
||||
testmsgchk(NTEST+5)="73"
|
||||
nmsg=NTEST+5
|
||||
endif
|
||||
|
||||
write(*,1010)
|
||||
1010 format(" Message Decoded Err? Type Expected"/ &
|
||||
76("-"))
|
||||
|
||||
do imsg=1,nmsg
|
||||
if(nmsg.gt.1) then
|
||||
msg=testmsg(imsg)
|
||||
msgchk=testmsgchk(imsg)
|
||||
endif
|
||||
|
||||
call fmtmsg(msg,iz) !To upper, collapse mult blanks
|
||||
msg0=msg !Input message
|
||||
call chkmsg(msg,cok,nspecial,flip) !See if it includes "OOO" report
|
||||
msg1=msg !Message without "OOO"
|
||||
|
||||
if(nspecial.gt.0) then !or is a shorthand message
|
||||
if(nspecial.eq.2) decoded="RO"
|
||||
if(nspecial.eq.3) decoded="RRR"
|
||||
if(nspecial.eq.4) decoded="73"
|
||||
itype=-1
|
||||
msgtype="Shorthand"
|
||||
go to 10
|
||||
endif
|
||||
|
||||
call packmsg(msg1,dgen,itype) !Pack message into 12 six-bit bytes
|
||||
msgtype=""
|
||||
if(itype.eq.1) msgtype="Std Msg"
|
||||
if(itype.eq.2) msgtype="Type 1 pfx"
|
||||
if(itype.eq.3) msgtype="Type 1 sfx"
|
||||
if(itype.eq.4) msgtype="Type 2 pfx"
|
||||
if(itype.eq.5) msgtype="Type 2 sfx"
|
||||
if(itype.eq.6) msgtype="Free text"
|
||||
|
||||
call rs_encode(dgen,sent) !RS encode
|
||||
call interleave63(sent,1) !Interleave channel symbols
|
||||
call graycode(sent,63,1,sent) !Apply Gray code
|
||||
|
||||
call graycode(sent,63,-1,tmp) !Remove Gray code
|
||||
call interleave63(tmp,-1) !Remove interleaving
|
||||
call rs_decode(tmp,era,0,recd,nerr) !Decode the message
|
||||
call unpackmsg(recd,decoded) !Unpack the user message
|
||||
if(cok.eq."OOO") decoded(20:22)=cok
|
||||
call fmtmsg(decoded,iz)
|
||||
|
||||
10 bad=" "
|
||||
if(decoded.ne.msgchk) bad="*"
|
||||
expected = 'EXACT'
|
||||
if (msg0.ne.msgchk) expected = 'TRUNCATED'
|
||||
if (nmsg.eq.1) expected = 'UNKNOWN'
|
||||
write(*,1020) imsg,msg0,decoded,bad,itype,msgtype,expected
|
||||
1020 format(i2,'.',1x,a22,1x,a22,1x,a1,i3,":",a10,2x,a22)
|
||||
enddo
|
||||
|
||||
if(nmsg.eq.1 .and. nspecial.eq.0) then
|
||||
write(*,1030) dgen
|
||||
1030 format(/'Packed message, 6-bit symbols ',12i3) !Display packed symbols
|
||||
|
||||
write(*,1040) sent
|
||||
1040 format(/'Information-carrying channel symbols'/(i5,20i3))
|
||||
endif
|
||||
|
||||
999 end program JT65code
|
||||
@@ -1,219 +0,0 @@
|
||||
subroutine msk144signalquality(cframe,snr,freq,t0,softbits,msg,dxcall, &
|
||||
btrain,datadir,nbiterrors,eyeopening,pcoeffs)
|
||||
|
||||
character*22 msg,msgsent
|
||||
character*12 dxcall
|
||||
character*12 training_dxcall
|
||||
character*12 trained_dxcall
|
||||
character*6 mygrid
|
||||
character*512 pcoeff_filename
|
||||
character*8 date
|
||||
character*10 time
|
||||
character*5 zone
|
||||
character*512 datadir
|
||||
|
||||
complex cframe(864)
|
||||
complex cross(864)
|
||||
complex cross_avg(864)
|
||||
complex canalytic(1024)
|
||||
complex cmodel(1024)
|
||||
|
||||
integer i4tone(144)
|
||||
integer hardbits(144)
|
||||
integer msgbits(144)
|
||||
integer values(8)
|
||||
|
||||
logical*1 bcontest
|
||||
logical*1 btrain
|
||||
logical*1 first
|
||||
logical*1 currently_training
|
||||
logical*1 msg_has_dxcall
|
||||
logical*1 is_training_frame
|
||||
|
||||
real softbits(144)
|
||||
real waveform(0:863)
|
||||
real d(1024)
|
||||
real phase(864)
|
||||
real twopi,freq,phi,dphi0,dphi1,dphi
|
||||
real*8 x(145),y(145),pp(145),sigmay(145),a(5),chisqr
|
||||
real*8 pcoeffs(5)
|
||||
|
||||
parameter (NFREQLOW=500,NFREQHIGH=2500)
|
||||
data first/.true./
|
||||
save cross_avg,wt_avg,first,currently_training, &
|
||||
navg,tlast,training_dxcall,trained_dxcall
|
||||
|
||||
if (first) then
|
||||
navg=0
|
||||
cross=cmplx(0.0,0.0)
|
||||
cross_avg=cmplx(0.0,0.0)
|
||||
wt_avg=0.0
|
||||
tlast=0.0
|
||||
trained_dxcall(1:12)=' '
|
||||
training_dxcall(1:12)=' '
|
||||
currently_training=.false.
|
||||
first=.false.
|
||||
endif
|
||||
|
||||
if( (currently_training .and. (dxcall .ne. training_dxcall)) .or. &
|
||||
(navg .gt. 10 )) then !reset and retrain
|
||||
navg=0
|
||||
cross=cmplx(0.0,0.0)
|
||||
cross_avg=cmplx(0.0,0.0)
|
||||
wt_avg=0.0
|
||||
tlast=0.0
|
||||
trained_dxcall(1:12)=' '
|
||||
currently_training=.false.
|
||||
training_dxcall(1:12)=' '
|
||||
trained_dxcall(1:12)=' '
|
||||
write(*,*) 'reset to untrained state '
|
||||
endif
|
||||
|
||||
indx_dxcall=index(msg,trim(dxcall))
|
||||
msg_has_dxcall = indx_dxcall .ge. 4
|
||||
|
||||
if( btrain .and. msg_has_dxcall .and. (.not. currently_training) ) then
|
||||
currently_training=.true.
|
||||
training_dxcall=trim(dxcall)
|
||||
trained_dxcall(1:12)=' '
|
||||
write(*,*) 'start training on call ',training_dxcall
|
||||
endif
|
||||
|
||||
if( msg_has_dxcall .and. currently_training ) then
|
||||
trained_dxcall(1:12)=' '
|
||||
training_dxcall=dxcall
|
||||
endif
|
||||
|
||||
! use decoded message to figure out how many bit errors in the frame
|
||||
do i=1, 144
|
||||
hardbits(i)=0
|
||||
if(softbits(i) .gt. 0 ) hardbits(i)=1
|
||||
enddo
|
||||
|
||||
! generate tones from decoded message
|
||||
mygrid="EN50"
|
||||
ichk=0
|
||||
bcontest=.false.
|
||||
call genmsk144(msg,mygrid,ichk,bcontest,msgsent,i4tone,itype)
|
||||
|
||||
! reconstruct message bits from tones
|
||||
msgbits(1)=0
|
||||
do i=1,143
|
||||
if( i4tone(i) .eq. 0 ) then
|
||||
if( mod(i,2) .eq. 1 ) then
|
||||
msgbits(i+1)=msgbits(i)
|
||||
else
|
||||
msgbits(i+1)=mod(msgbits(i)+1,2)
|
||||
endif
|
||||
else
|
||||
if( mod(i,2) .eq. 1 ) then
|
||||
msgbits(i+1)=mod(msgbits(i)+1,2)
|
||||
else
|
||||
msgbits(i+1)=msgbits(i)
|
||||
endif
|
||||
endif
|
||||
enddo
|
||||
|
||||
nbiterrors=0
|
||||
do i=1,144
|
||||
if( hardbits(i) .ne. msgbits(i) ) nbiterrors=nbiterrors+1
|
||||
enddo
|
||||
|
||||
nplus=0
|
||||
nminus=0
|
||||
eyetop=1
|
||||
eyebot=-1
|
||||
do i=1,144
|
||||
if( msgbits(i) .eq. 1 ) then
|
||||
if( softbits(i) .lt. eyetop ) eyetop=softbits(i)
|
||||
else
|
||||
if( softbits(i) .gt. eyebot ) eyebot=softbits(i)
|
||||
endif
|
||||
enddo
|
||||
eyeopening=eyetop-eyebot
|
||||
|
||||
is_training_frame = &
|
||||
(snr.gt.5.0 .and.(nbiterrors.lt.7)) .and. &
|
||||
(abs(t0-tlast) .gt. 0.072) .and. &
|
||||
msg_has_dxcall
|
||||
if( currently_training .and. is_training_frame ) then
|
||||
twopi=8.0*atan(1.0)
|
||||
nsym=144
|
||||
if( i4tone(41) .lt. 0 ) nsym=40
|
||||
dphi0=twopi*(freq-500)/12000.0
|
||||
dphi1=twopi*(freq+500)/12000.0
|
||||
phi=-twopi/8
|
||||
indx=0
|
||||
do i=1,nsym
|
||||
if( i4tone(i) .eq. 0 ) then
|
||||
dphi=dphi0
|
||||
else
|
||||
dphi=dphi1
|
||||
endif
|
||||
do j=1,6
|
||||
waveform(indx)=cos(phi);
|
||||
indx=indx+1
|
||||
phi=mod(phi+dphi,twopi)
|
||||
enddo
|
||||
enddo
|
||||
! convert the passband waveform to complex baseband
|
||||
npts=864
|
||||
nfft=1024
|
||||
d=0
|
||||
d(1:864)=waveform(0:863)
|
||||
call analytic(d,npts,nfft,canalytic,pcoeffs,.false.) ! don't equalize the model
|
||||
call tweak1(canalytic,nfft,-freq,cmodel)
|
||||
call four2a(cframe(1:864),864,1,-1,1)
|
||||
call four2a(cmodel(1:864),864,1,-1,1)
|
||||
|
||||
! Cross spectra from different messages can be averaged
|
||||
! as long as all messages originate from dxcall.
|
||||
cross=cmodel(1:864)*conjg(cframe)/1000.0
|
||||
cross=cshift(cross,864/2)
|
||||
cross_avg=cross_avg+10**(snr/20.0)*cross
|
||||
wt_avg=wt_avg+10**(snr/20.0)
|
||||
navg=navg+1
|
||||
tlast=t0
|
||||
phase=atan2(imag(cross_avg),real(cross_avg))
|
||||
df=12000.0/864.0
|
||||
nm=145
|
||||
do i=1,145
|
||||
x(i)=(i-73)*df/1000.0
|
||||
enddo
|
||||
y=phase((864/2-nm/2):(864/2+nm/2))
|
||||
sigmay=wt_avg/abs(cross_avg((864/2-nm/2):(864/2+nm/2)))
|
||||
mode=1
|
||||
npts=145
|
||||
nterms=5
|
||||
call polyfit(x,y,sigmay,npts,nterms,mode,a,chisqr)
|
||||
pp=a(1)+x*(a(2)+x*(a(3)+x*(a(4)+x*a(5))))
|
||||
rmsdiff=sum( (pp-phase((864/2-nm/2):(864/2+nm/2)))**2 )/145.0
|
||||
write(*,*) 'training ',navg,sqrt(chisqr),rmsdiff
|
||||
if( (sqrt(chisqr).lt.1.8) .and. (rmsdiff.lt.0.5) .and. (navg.ge.5) ) then
|
||||
trained_dxcall=dxcall
|
||||
call date_and_time(date,time,zone,values)
|
||||
write(pcoeff_filename,'(i2.2,i2.2,i2.2,"_",i2.2,i2.2,i2.2)') &
|
||||
values(1)-2000,values(2),values(3),values(5),values(6),values(7)
|
||||
pcoeff_filename=trim(trained_dxcall)//"_"//trim(pcoeff_filename)//".pcoeff"
|
||||
l1=index(datadir,char(0))-1
|
||||
datadir(l1+1:l1+1)="/"
|
||||
pcoeff_filename=datadir(1:l1+1)//trim(pcoeff_filename)
|
||||
write(*,*) 'trained - writing coefficients to: ',pcoeff_filename
|
||||
open(17,file=pcoeff_filename,status='new')
|
||||
write(17,'(i4,2f10.2,3i5,5e25.16)') navg,sqrt(chisqr),rmsdiff,NFREQLOW,NFREQHIGH,nterms,a
|
||||
do i=1, 145
|
||||
write(17,*) x(i),pp(i),y(i),sigmay(i)
|
||||
enddo
|
||||
do i=1,864
|
||||
write(17,*) i,real(cframe(i)),imag(cframe(i)),real(cross_avg(i)),imag(cross_avg(i))
|
||||
enddo
|
||||
close(17)
|
||||
training_dxcall(1:12)=' '
|
||||
currently_training=.false.
|
||||
btrain=.false.
|
||||
navg=0
|
||||
endif
|
||||
endif
|
||||
|
||||
return
|
||||
end subroutine msk144signalquality
|
||||
Reference in New Issue
Block a user