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

Make ldpcsim174_91 work again. Scale SNR2500 assuming coherent BPSK, same Eb as FT8.

Browse Source
This commit is contained in:
Steven Franke 2020-02-08 14:49:21 -06:00
parent 9dd7e3f8c3
commit e9160f3c2f
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/fsk4hf/ldpcsim174_91.f90
View File

@ -1,6 +1,5 @@
program ldpcsim174_91 program ldpcsim174_91
! End to end test of the (174,91)/crc14 encoder and decoder. ! End to end test of the (174,91)/crc14 encoder and decoder.
use crc
use packjt77 use packjt77
integer, parameter:: N=174, K=91, M=N-K integer, parameter:: N=174, K=91, M=N-K
@ -52,7 +51,7 @@ allocate ( rxdata(N), llr(N) )
i3=0 i3=0
n3=1 n3=1
call pack77(msg,i3,n3,c77) !Pack into 12 6-bit bytes call pack77(msg,i3,n3,c77) !Pack into 12 6-bit bytes
call unpack77(c77,msgsent,unpk77_success) !Unpack to get msgsent call unpack77(c77,1,msgsent,unpk77_success) !Unpack to get msgsent
write(*,*) "message sent ",msgsent write(*,*) "message sent ",msgsent
read(c77,'(77i1)') msgbits(1:77) read(c77,'(77i1)') msgbits(1:77)
@ -120,8 +119,7 @@ do idb = 20,-10,-1
nsumerr=nsumerr+nerr nsumerr=nsumerr+nerr
enddo enddo
baud=12000/1920 snr2500=db+10.0*log10(rate/(2500*0.16/3))
snr2500=db+10.0*log10((baud/2500.0))
pberr=real(nsumerr)/(real(ntrials*N)) pberr=real(nsumerr)/(real(ntrials*N))
write(*,"(f4.1,4x,f5.1,1x,i8,1x,i8,8x,f5.2,8x,e10.3)") db,SNR2500,ngood,nue,ss,pberr write(*,"(f4.1,4x,f5.1,1x,i8,1x,i8,8x,f5.2,8x,e10.3)") db,SNR2500,ngood,nue,ss,pberr