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