From 8d8075200a61aacc5286fdaa387bcb5bdc62b9a8 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Sat, 2 Apr 2016 01:11:27 +0000
Subject: [PATCH] Add a (198,72) peg-generated ldpc code. Regular with column
 weight 4.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6569 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/ldpc/jtmode_codes/198-72-peg-reg4.results |  14 ++++++++++++++
 lib/ldpc/jtmode_codes/compare.lab             |   2 ++
 lib/ldpc/jtmode_codes/fig_compare.gnuplot     |  17 +++++++++--------
 lib/ldpc/jtmode_codes/fig_success.gnuplot     |   9 +++++----
 lib/ldpc/jtmode_codes/peg-198-72-reg4.gen     | Bin 0 -> 7305 bytes
 lib/ldpc/jtmode_codes/peg-198-72-reg4.pchk    | Bin 0 -> 3688 bytes
 lib/ldpc/jtmode_codes/success.lab             |   6 ++----
 7 files changed, 32 insertions(+), 16 deletions(-)
 create mode 100644 lib/ldpc/jtmode_codes/198-72-peg-reg4.results
 create mode 100644 lib/ldpc/jtmode_codes/peg-198-72-reg4.gen
 create mode 100644 lib/ldpc/jtmode_codes/peg-198-72-reg4.pchk

diff --git a/lib/ldpc/jtmode_codes/198-72-peg-reg4.results b/lib/ldpc/jtmode_codes/198-72-peg-reg4.results
new file mode 100644
index 000000000..160598b6f
--- /dev/null
+++ b/lib/ldpc/jtmode_codes/198-72-peg-reg4.results
@@ -0,0 +1,14 @@
+(198,72) peg, regular, j=4, 50 iterations, s=0.75
+ Eb/N0   ngood    nundetected
+-0.5     5252        0
+ 0.0    19438        0
+ 0.5    63217        0
+ 1.0   165217        0
+ 1.5   348427        0
+ 2.0   586616        0
+ 2.5   802480        0
+ 3.0   933697        0
+ 3.5   985155        0
+ 4.0   997834        0
+ 4.5   999772        0
+ 5.0   999989        0
diff --git a/lib/ldpc/jtmode_codes/compare.lab b/lib/ldpc/jtmode_codes/compare.lab
index e69de29bb..91d973f76 100644
--- a/lib/ldpc/jtmode_codes/compare.lab
+++ b/lib/ldpc/jtmode_codes/compare.lab
@@ -0,0 +1,2 @@
+2.5 0.5e-2  "(198,72) reg3"
+4.5 0.5e-2  "(198,72) reg4" 
diff --git a/lib/ldpc/jtmode_codes/fig_compare.gnuplot b/lib/ldpc/jtmode_codes/fig_compare.gnuplot
index 855ef72f7..6e027ae83 100644
--- a/lib/ldpc/jtmode_codes/fig_compare.gnuplot
+++ b/lib/ldpc/jtmode_codes/fig_compare.gnuplot
@@ -12,14 +12,15 @@ set mxtics 2
 set mytics 10 
 set grid
 set logscale y
+set format y "%1.0e"
 plot [-1:6] [1e-6:1] \
-   "128-80-peg-reg4.results" using ($1+0.46):(1-$2/1000000) with linespoints lt 1 lw 2 pt 1, \
-   "128-80-peg-reg4.results" using ($1+0.46):($3/1000000) with linespoints lt 1 lw 2 pt 1, \
-   "128-80-peg-reg3.results" using ($1+0.46):(1-$2/1000000) with linespoints lt 2 lw 2 pt 2, \
-   "128-80-peg-reg3.results" using ($1+0.46):($3/1000000) with linespoints lt 2 lw 2 pt 2, \
-   "128-80-sf13.results" using ($1+0.46):(1-$8/1000000) with linespoints lt 3 lw 2 pt 3, \
-   "128-80-sf13.results" using ($1+0.46):($9/1000000) with linespoints lt 3 lw 2 pt 3, \
-   "128-72-peg-reg4.results" using 1:(1-$2/1000000) with linespoints lt 4 lw 2 pt 4, \
-   "128-72-peg-reg4.results" using 1:($3/1000000) with linespoints lt 4 lw 2 pt 4, \
+   "198-72-peg-reg3.results" using 1:(1-$2/1000000) with linespoints lt 1 lw 2 pt 1, \
+   "198-72-peg-reg3.results" using 1:($3/1000000) with linespoints lt 1 lw 2 pt 1, \
+   "198-72-peg-reg4.results" using 1:(1-$2/1000000) with linespoints lt 2 lw 2 pt 2, \
+   "198-72-peg-reg4.results" using 1:($3/1000000) with linespoints lt 2 lw 2 pt 2, \
+   "198-72-peg-irreg-8x3-2x4.results" using 1:(1-$2/1000000) with linespoints lt 3 lw 2 pt 3, \
+   "198-72-peg-irreg-8x3-2x4.results" using 1:($3/1000000) with linespoints lt 3 lw 2 pt 3, \
+   "198-72-sf9.results" using 1:(1-$2/1000000) with linespoints lt 4 lw 2 pt 4, \
+   "198-72-sf9.results" using 1:($3/1000000) with linespoints lt 4 lw 2 pt 4, \
    "compare.lab" with labels
 exit
diff --git a/lib/ldpc/jtmode_codes/fig_success.gnuplot b/lib/ldpc/jtmode_codes/fig_success.gnuplot
index a1689d8f7..5252cace7 100644
--- a/lib/ldpc/jtmode_codes/fig_success.gnuplot
+++ b/lib/ldpc/jtmode_codes/fig_success.gnuplot
@@ -12,10 +12,11 @@ set mxtics 2
 set mytics 10 
 set grid
 #set logscale y
+set format y "%2.1f"
 plot [-1:6] [1e-6:1] \
-   "128-80-peg-reg4.results" using ($1+0.46):($2/1000000) with linespoints lt 1 lw 2 pt 1, \
-   "128-80-peg-reg3.results" using ($1+0.46):($2/1000000) with linespoints lt 2 lw 2 pt 2, \
-   "128-80-sf13.results" using ($1+0.46):($8/1000000) with linespoints lt 3 lw 2 pt 3, \
-   "128-72-peg-reg4.results" using 1:($2/1000000) with linespoints lt 4 lw 2 pt 4, \
+   "198-72-peg-reg3.results" using 1:($2/1000000) with linespoints lt 1 lw 2 pt 1, \
+   "198-72-peg-reg4.results" using 1:($2/1000000) with linespoints lt 2 lw 2 pt 2, \
+   "198-72-peg-irreg-8x3-2x4.results" using 1:($2/1000000) with linespoints lt 3 lw 2 pt 3, \
+   "198-72-sf9.results" using 1:($2/1000000) with linespoints lt 4 lw 2 pt 4, \
    "success.lab" with labels
 exit
diff --git a/lib/ldpc/jtmode_codes/peg-198-72-reg4.gen b/lib/ldpc/jtmode_codes/peg-198-72-reg4.gen
new file mode 100644
index 0000000000000000000000000000000000000000..66c4bae99ca44bce5c22a72e7972548de3f33e96
GIT binary patch
literal 7305
zcmZ9P2XvNI5{3gIv``Xi=m~@nI*KH8LT44E2ntgC2~80}2xO@tbWsr%6a+B{Dkv%<
z5CoA9y1n<}u5RzWx99QvvnR)#^PIWg_uVq{&fNb@%15W9l$52Uq}+gNP#sdC2Bbkv
zs0Fp54%CHos0a0-0W^dR$b?4F7@9y+Xa>z83tB)+Xa%jI4YY-J;9oA}K_|$E0_Y3<
zVF(O`QGm}W<KPaM0(ZgPFdb&XESLuiU>!UO&%+yV0WQKNxC~d|I$VPaD1oi;47?5}
z;VfK*eNYK+!xC5t&%u1S1@4Ej@D8kjQ?LPc!CUYwWWy176V^fpD1(RKX?O`n!g_cV
zUV$#K8aBcpSPom@G&}}lU@7c@&QK16ApwiwW|#;$umU#21lR<9pcLl7GUyKX!VDM>
z-C!7OgL_~*JPeP(T-X5*z)pA^o`7j^C+vo&U?DsRdto@Ng8eWR4nS8Zf`d>9hu|>0
z058I9=m|&RW#|pZ;8l1HM!<3C2q&Ny6vJd#1fPI2&;xFRb8su1he^;6J_!S0AlwJH
zLwmRhJYS8Ct3UWI9gMp!)Pwra8Zsag)VeV=fu_(5vY;)rgFNU2ouNB;u6~=3BA5tE
zz`yZeY|WtnvLP34fqb|FtPAxtNAsW!=)ZX|{*f>fM#E4rAFW_4w1fsw9a5nNGy-*~
z1=fZ&)EDjsbGRDJYfZ4$OJNw8n-!q;Yhf151#{#*DFL;;AFP9wp!Nx{?xsLPSPtEw
z5SGF^Fh6NvZJS4PXw91A8PEaD=Up%aMnN4g@8-A|#=&A}0o9-@bb$p>8zw+cm=0x0
z{>xuB<Nsh?WB$yWdRPzU%5&A)b?R)~v%xdf$r#kgSpUsFYHd9KVw{RK|NmsH_JiOb
zjEyx1%(F3@J9BB=#%M0)fcpNO`TAxo=D>RW8}H0ddnkgx@@ziU$+(MPIG7J>%sNtk
z>qtEl;NIq{s{iK9+*t!_;4kc}cDZ2vs=a=?-!!PIiS?;2)~I=~4*#57|EHwCf5e)%
zKVa)(e~(Sas`c*}d*7@L_gCxRCg1%A>plE6wgFbne#O{&`Xx34`wMI)_UG6}*q<e>
zn*5Y;W9(0`>ZESo&8j(8cVkFEF{qERSlbVP@mQ1I0rUOi<o?#*j~MG;A$-W#m_EQ7
zPY?JZ<0jZ2V4Gs!$2z|we4nu~eJ}aV8vQQgY^-rwf9er+5gL1^%-?sItCo52?c^TD
z_btZFu;0Ws$9@CrIr;E)##z{}VfCjI41*D1eccAujd$IeG0*C;06f>4Q3q?~tL$NY
zdVVjk-p9f?Foy|H&(PBK3qeg6!xB(i_pGX~wfGhGPQ~5?-j&gyfBH5B^v%1Xf7Z46
z`!Z`<V84WIiR})3pa@2Ru}y%9U=6!oO^r=G^{c8+Urg?&Mgu^N+(T{j!QX~i;MsFv
z5g1nqsF883gD<d8E9~d7Y1q$UtqFDiEaMDpPf)wh@NDgP=BF9A#(oOh5St6{F?Nrx
z;BU&UpdSf%mv81-&4$Abo;|lc^nf9tj&YBpuA=sh!F-sD>#VJTy@u64&+Z0&!S(v8
z?&jHbSDB~gSFrlp1uiqr!sbKdP+#L*wX;6vf;Do9`NpgNg`mHl;~h}%$eHIRz_sS?
zJ}`f3e~~@fU@u_31Lpr7#_C}1&NI%$j)b=vdw)8DckLX{-j|!<Y;uipn0xgMKdc+$
zRyWUH1fFf}yu~_oGu|_dt79v%b+E>Dnz3h??|v{ItjW;QdQ?w;dyMTA^V?!Ofcd^1
z)X?uI`PLX~PTpi}?VG1wPyp7vxw1xFHyzyHdl)`1WxO0tu)a1{Erx-5sQDYoGjbRo
zXKXFB12xirb@3eYWE^TV8C+|gr$WS*VC?x3o0@t43RnrNU=6H=*E!3$UrV0fn{g4S
zSJge;&-zg-<BD1^zE@dmEp&!sj9X*XQ7vBK+4@jBeb>jAd1t=V?<iw)mIvM$f76V|
zc?s~$h+`pR>(AehBdjwI-p`j9r($2k*2Ip07Z|5ut*b&92<At<jB6Sspcv+Wak;;>
zRRZd?7S_RG_VUh|8}n>^>*qx9ZY98dLLc`z#2VvL&*vGZW4)i|?jX-<-VG`ktDWEa
zfcM3^e~$Onum`Z&SnFUYjDj(sw&p16z*;pf*IIw-r*H9_Q#F4N^4@wd&S%-*T$nre
z-_LVvY!5KLeLU-XcX)<zeXRB9xqEq5?>x|NHL)huw(9xwc~+BUpsuT6HSA%%cQgk)
z&w6klH8zH)`JRpS_vtCdjj-0pZpLb6?gxUg@8Vq+R-M#H-}S|PW<uy-uIGV1MIArM
z+FCq6fz8AY2K`WD_l{a|ZLC|&SpB@y-mAx1>wVpcO~n?#W6Aw`Gwu)8rTbckQA6>&
zq`#BE+7JEo+Z-mq{Ow@Bme@|<UJ+x=Ge&DLe0-Go#?=u#&;8Zp5#Be!>f<0V@54a9
zJnvz?*Tz~C=5#yHZLxlTh;dzPPw-w10N3mDHoi5(y03Gsb!&1f@72Z{@*HE_!aIHN
z*?ev0xdztUZ(?jNy&vkck>`e3V~#l7qZs@vgB!rKk7{`X<D=mJ9OhyOY=I--{|}zC
z3H<*d4XeNY|4<X_yffhc5Nc<Q`Tv1>tcObQe}g*ME}*~L!T%4`#eO~=YhPXu>z%eY
z_ukl>H^3V28n8z<u2Qg1&%o{k`*iEj{CZdI(XIXVU=ELi{d!}p{kl3@WA^J!vBt9;
zc7VNmGpxOPbF63CzpL*au!nDf^;~;+>&x{U!Ct-<HWxg15tPGuus8R2q7v-Q+h7NS
zb-EWm<efF6&L1!~|MuwFST)%V_UhHJIpDetZ~@-uy)|o0>boE8;jQ~}u#eBjE`zO5
z0rvBqvF6%XTw~u}h*fXv*n6t(o^2oB54#HV_axZQ55TU4ePCZ-gms;|Z3cUMYjz13
zn|;1<j|R^@3-<ihjXI72wLAv)@&2Z)1N(04M=d6UJ+=A06O7B=dMei5*qEk+>!OaW
zZ~I->%z*W98ti?YKMRb*9G?Pv;d`(PlJD$?)m<O0v-xli?2CPWFBtOyus<%t8t)mf
zPqrqaj(0J3o;|ZUQ_n+SpL_yqe{7uQz#6hH)#D=A{~CinyMM%YiLpJg@6`P=T;<tw
z_1Sq>gm>16`Ox31U_WdOvtd1K0PE@o*!!9reJ=<1z77|8uMd$|_df_nz#i9JdG2!1
ze|ug1_MPXN8_(JX=D|AfO#5KZQx|LMJlGGr);qNV)b2P`g1xb44F>DL+}R`RTRH3o
z^JM?)9P?QY#%TSSZ)?NzuYtXB_~@Nbcl%`XXpijqo~vK>z}AAg`Ma|fychPr`V=~Q
zXCg1#8QT-<i|h1xBe>Q&r~rH3@Kv4k(|zrEtqa%ahdLUEIk5*;quAHFah`kHvzkBa
zNq=1%_u72f%lh4S7r_2B=6NT~ljk_sepP*p%{h}m-;K*WJLfdm$L3<qrSpwZKh@KI
z)_2Y~HgjZO>s}F?=Y?j*V1DdjjnRGecM0gT^<Yn%gY~=n#M(;6_PN%RXIdBfUiGX}
zp4HhJwjPYZn)oR9SbJmFN3NZ3%=%?s4)Z<qi+x;si1+#$cfqs6Z_lvLjc>8HTI;*M
zgr@Fg53K)c==+M~bHo!`RMpKr^wXH^kGo<+2mSC&^^3e!GPZyAobWZ~xR<%I|5ao6
zQNuX5oN;LGneG|-*&|1sQMWP2Gwqr6&Du3Lvq8U%)pON3_OhprI6OP*#kuZfj~$wX
zrZLAo)#v}ZFxOc0Ep!PVjLmr5)4tmG?i+iSGByT%v)BIkJ|C|!&vm{U+K)TG0E{8x
z^t<QToBPc@{O;PA<9g@VgU24uD^1SvyM4Lwgbv1{rg4_Ncf@Nve)pR?xsN@$n#8x*
z+gR<<LodI(PXFw+W6#jZ_x9A`i@MuO7hpq2duR9Xn|-q}#XfPaJ#@sXufDf;j(7IU
V?&o{^WcRW^j&n98$7<-`{{R$PxMctU

literal 0
HcmV?d00001

diff --git a/lib/ldpc/jtmode_codes/peg-198-72-reg4.pchk b/lib/ldpc/jtmode_codes/peg-198-72-reg4.pchk
new file mode 100644
index 0000000000000000000000000000000000000000..4de31430efd2a5ec14bb214fa8ca5d154ff456a0
GIT binary patch
literal 3688
zcmXZc2iVT#9tUtcl0rGiNs2m>5hod?L`G(0rm`hzC{b2=?VY{zM#v^IGT+xYd+)vX
z-urYu-*Y{#>vMgd%lCTz|NH*k_w&wvq)eGvWy+Mf!Uz79mACL9BYB;-ILCkW<zxdo
zF^VF#bDsa`%gbBo%xLDYgA4pyUqLqHA;vJ5w<+OY`iim<T^P$ec2dee^_AppbY&d#
z*~LZvp)V(IryIkWO`d;=zw57(AE7IG{#>%Z%lu7WSvICSPqBdAr2nhFioAm^jAtS5
zaD~4V`X)X<%xD&|hd&qIeW%Yoc$&rR<xje+Wm9@GfhA<!f7Df#&FIB5EG29HgYFvH
zoZd`i8T-h2{9a#8W*&WbmU*PldH$}@xA3_y&#|2S{8o3Zyo<~#-<{3@extiiHY59d
zp6ulyIfq~CtIL+SUjLuN3YoqBN>@X+q8~5t20QqruBOcW>CYrqa)@8(u9x}VgNz}w
zKg`byU1Ogg<wfSRji2dmkRPQdFR_Ze@29%TGWTHs*+<@&{bznZDLnUXp9hi|q(8!s
zb(v2i^3I&uYPRwtUCyO7J$R0+HM9GnuA0mq2a&aAJ-H)4(AARn(3i<9<6XY5`;cr-
z?%pJpl9_%_m$kH^H!rh>%;vkg>ttI7GljL}{(PtK%$7b6VJhp$z5BMVtjyf<%vV@X
zehWF{Z|SSbb`0fJHgJ@07M`2A=AF}+P4@8(U2WN($H;m%vW2hf>c|%KVgz~TPQIqg
zK5~~kl0D8P=lE4!UD=R<WZo+{$X9fk+r8v{ndxg}otOBsK7TXXF^t^D%;x|ld`VwH
zHsNu`k=drt_rIvWQQpH7<Xno#o&JKZp1h9%j3@g!#$`TV_-@vgyE&cA;yo_#IsJ!a
z2QrVGLDqJh&+014R%BoKdy?Pw2|lB%C9~%IR;H2XW{#iM)sT7S5Jobe%;QtKYBKA2
zh#72R7oXJKB=2W1`CiWZB%jb#mv`_06WC0;kL$9|wsdDIi^yFl<zxDsYvz~v&SU|n
z$ls_d`ph7AX%M5xv)|_mm-Q88zTcTVe+j3#q|08ju0D)l3){J<t0x=LpNY)o45hm4
zCwuM2SaP0OQ;DvwY)?nVQN&p;=rW`HX0n$TSj~R2*7N%MvMB?}nav^nIbCge3z>cH
z%2qO`v%1XSJ|5#`vd66TjIO54Z#ZY2F5k-?IjzfYv<>~p?3S~e_jPq-&g)5L@FuyN
zrwZ@OTC)HAo)(b%bAglk%shRbn;EPkXL3SUUgo(&d5L-CoyT=o%UgMzXUK2yz0hSn
ztr@~oWHv`Qrn^}-=3%CjePoZN9M#_-JJ6YD*}!(*)!is_2Zk|=ZDgNEbX8>LlRGe(
z`D8tZ3(vgG=e%<goAdu1($$a+$n2((`DCpJby;i9st4I)?#?a_6rS18=iy9Y8M#-N
z*{`oJThfW=$y{?T`*gWmnL+Ny(-d)#y}I0;W(*|vZXMbG9$n6(IobahX7WzxavtsI
z!btLWGv~Nlm$}_ZcU~dS+{Z3m1=*HI8AZ<OEIV~q$@~UJFq%!|uD-3SB(s)oWPka6
zWZot0(ASfh`6Il_MozO`m$kMcv&;Qh&mP{=T_Za(f){z6thZQ~^T=<m57|fdpS5n&
zW!@d=$at1>h&OfR<lXco_c+hY+_vh<%IrVqKb>t9bBQhb@-laz6NB@A6th`(le~*T
zOeE)<`>{!veKcVJ6Ie_3zfpIsY){scbIkX0=gzS~pSkBOb0#y$-O66p>*~nNHSZk8
zR?@B0WiKswg4b9~-g$+!`s?Kbq@T?ia!1za>dQvtj^wUqpL;1`wZ5**9eR@NbqSf_
zDqUrHJ2~sTcOl1FsjDe7qh4h8i^z;G@`k>FY)wzbk~JM<g|33kx#hXDSjq{O7oMB-
z3@7(1cQf62mg(!sd+Ena^4^my)n&bH=uGCD`*4OOx>~X+UCBF($=xhvvA&ATjB_9I
z-nrzti*z^3oa<1gvXZQ6p{}ZI$PhCB)f97q1^U`DbLdaryMa^8*ENutVeZmoR&bbk
zx~%tp^3METa^}aFtE(t8zaC6sGy9mMt1I)p{Fd??%xsTRq^mCTH>fw$$ZXG&fBysA
C77bef

literal 0
HcmV?d00001

diff --git a/lib/ldpc/jtmode_codes/success.lab b/lib/ldpc/jtmode_codes/success.lab
index 1722c2aa8..63d47adfe 100644
--- a/lib/ldpc/jtmode_codes/success.lab
+++ b/lib/ldpc/jtmode_codes/success.lab
@@ -1,4 +1,2 @@
-3.8 0.55  "(128,80) reg4"
-2.6 0.85  "(128,80) sf13"
-4.0 0.85  "(128,80) reg3" 
-1.7 0.65  "(128,72) reg4" 
+0.9 0.75  "(198,72) reg3"
+2.9 0.65  "(198,72) reg4"