tpc的编译码程序

文件中包含有tpc的编译码程序，包括chase译码程序。

function [ output] = chase（ rx_dataHd1d2 ）
m=size（rx_data1）;
n=size（rx_data2）;
d=fix（d1*d2+1）/2;%计算最小码字半径
index=zeros（md）;
infty=1e6;
for i=1:m
   temp=rx_data（i:）;
   for j=1:d
   [ab]=min（temp）;  %b为最小值得下标，a为最小值得大小
   index（ij）=b;   %记录最小值得位置
   temp（b）=infty;   %将最小值赋值为最大值
   end
   Y=rx_data（i:）>0; %Y为硬判决序列
   TE=zeros（2^dn）;  %TE为试探序列
   
   q=zeros（2^d8）;
   for j=1:d
   k=0:2^d-1;
   q（k:）=de2bi（k）;
   end               %得出对应可信度低的位置上的码字
   
   for j=1:2^d
       for l=1:d
   TE（jindex（il））=q（jl）;   %将对应的码字填充到对应的位置上
       end
   end
    Z=zeros（2^dn）;
    Z=xor（YTE）;  %得到测试序列Z
 
    w=zeros（2^dn）;    %译码后结果
   for j=1:2^d
      e=zeros（1n）;
      s（j:）=mod（Z（j:）*H‘2）;  %计算得到伴随式s
      temp=s（j:）;
      for l=1:2^n    %从重量轻的码

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2013-07-17 15:44  tpc\
     文件        1324  2013-07-15 11:06  tpc\chase.asv
     文件        1361  2013-07-15 11:08  tpc\chase.m
     文件        2505  2013-07-16 21:03  tpc\chase2.asv
     文件        2505  2013-07-16 21:04  tpc\chase2.m
     文件        2120  2013-07-18 10:54  tpc\chase21.m
     文件         237  2013-07-10 10:50  tpc\g57x64.mat
     文件         408  2013-07-15 21:53  tpc\get_llr.asv
     文件         408  2013-07-15 21:53  tpc\get_llr.m
     文件         942  2013-07-10 10:56  tpc\h.mat
     文件         273  2013-07-10 10:51  tpc\h57x64.mat
     文件         601  2013-07-17 20:54  tpc\test.asv
     文件         601  2013-07-17 20:54  tpc\test.m
     文件         796  2013-07-18 10:00  tpc\test_chase.asv
     文件         692  2013-07-18 10:57  tpc\test_chase.m
     文件        1806  2013-07-16 10:12  tpc\tpc_decoded.asv
     文件        1815  2013-07-16 10:16  tpc\tpc_decoded.m
     文件        2213  2013-07-17 14:39  tpc\tpc_decoded1.asv
     文件        2223  2013-07-17 14:46  tpc\tpc_decoded1.m