LT码的编译码程序MATLAB

LT码的编译码程序，很不错的代码，可以用的

function [fratioaverage_rate_decode]=decode_fun（en_msg）
%-------------------------------------------------------------------------%
%-------------------------------解码准备-----------------------------------%
%-------------------------------------------------------------------------%
global Gmatrix;
load k;
load N;
global sg;
global fg;
global msg;
de_msg=ones（1K）*（-1）;
copymat=sparse（Gmatrix）;
%复制一个生成矩阵用来解码；
decode_count=0;
%解码节点的个数
receive_msg=en_msg; 
fail=1;
flag=0;


%-------------------------------------------------------------------------%
while flag==0
%-------------------------------------------------------------------------%
for i=1:N
    cloc=（find（copymat（:i）））;
    if length（cloc）==1    %cloc标记度为1的节点
        if de_msg（cloc）==-1         %未赋过值
%-------------------------------------------------------------------------%
            fail=1;
%-------------------------------------------------------------------------%
            de_msg（cloc）=receive_msg（i）;        %赋值
            decode_count=decode_count+1;   %解码个数+1
            
            if decode_count==K  %全部解码
                if de_msg==msg;
                    sg=sg+1;
                    flag=1; 
                    disp（‘access‘）;
                    [fratioaverage_rate_decode]=fixG_fun（1）;
                end
            end
            if flag==0
            copymat（cloci）=0;             %矩阵中的元素标记为0
            sloc=（find（copymat（cloc:）））; %标记G矩阵中与信息比特s相连的校验比特c
            scount=length（sloc）; 
            
            for j=1:scount
            receive_msg（sloc（j））=xor（receive_msg（sloc（j））de_msg（cloc））;
            %信息节点值加到编码节点
            copymat（clocsloc（j））=0;           
            end
           end
        end
%-------------------------------------------------------------------------%        
    else fail=fail+1;
        if （flag==0）&&（fail>N）
            disp（‘fail‘）;
            fg=fg+1;
            average_rate_decode=0;
            fratio=1;
            flag=1;break;
        end
%-------------------------------------------------------------------------%
    end    
end

end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       2088  2009-05-18 11:17  LT\decode_fun.asv

     文件       2242  2009-05-18 14:21  LT\decode_fun.m

     文件       4405  2009-05-18 13:19  LT\fixG_fun.asv

     文件       4405  2009-05-18 13:23  LT\fixG_fun.m

     文件     334448  2009-05-24 11:10  LT\Gmat_optN11000best.mat

     文件        175  2009-05-18 14:23  LT\k.mat

     文件       4473  2009-05-18 13:19  LT\LT_TEST.asv

     文件       4596  2009-05-22 15:12  LT\LT_TEST.m

     文件        175  2009-05-18 14:23  LT\N.mat

     文件       2198  2009-05-18 13:49  LT\N1100\decode_fun1000.asv

     文件       2250  2009-05-18 14:16  LT\N1100\decode_fun1000.m

     文件       4350  2009-05-18 13:34  LT\N1100\fixG_fun1000.asv

     文件       4427  2009-05-19 09:34  LT\N1100\fixG_fun1000.m

     文件      21589  2009-05-19 12:12  LT\N1100\Gmat_optN1100（2）.mat

     文件      24570  2009-05-18 15:23  LT\N1100\Gmat_optN1100（5%）best.mat

     文件        175  2009-05-19 09:36  LT\N1100\k.mat

     文件       4537  2009-05-18 14:29  LT\N1100\LT_TEST1000.asv

     文件       4594  2009-05-22 15:10  LT\N1100\LT_TEST1000.m

     文件        175  2009-05-19 09:36  LT\N1100\N.mat

     文件        102  2009-05-19 09:34  LT\N1100\N1100.txt

     文件         86  2009-05-25 10:37  LT\N11000.txt

     文件       2250  2009-05-18 14:20  LT\N4400\decode_fun4000.m

     文件       4457  2009-05-25 10:58  LT\N4400\fixG_fun4000.m

     文件     118439  2009-05-25 10:53  LT\N4400\Gmat_optN4400best.mat

     文件        175  2009-05-25 11:02  LT\N4400\k.mat

     文件       2578  2009-05-20 09:42  LT\N4400\LT_520\LT\decode_fun.m

     文件       1461  2009-05-20 10:01  LT\N4400\LT_520\LT\findR_fun.m

     文件       6077  2009-05-20 12:22  LT\N4400\LT_520\LT\fixG_fun.m

     文件        175  2009-05-22 09:24  LT\N4400\LT_520\LT\k.mat

     文件      50238  2009-05-23 20:05  LT\N4400\LT_520\LT\LT_520.matl

............此处省略15个文件信息