%歸一化BP算法
function?[v]=BP1（yHsigma_2maxiter）
%H=[1?1?1?0?0?0?0?0;0?0?0?1?1?1?0?0;1?0?0?1?0?0?1?0;0?1?0?0?1?0?0?1];
%?y=[0.2?0.2?-0.9?0.6?0.5?-1.1?-0.4?-1.2];
?%sigma_2=0.5;
?%maxiter=50;
[mn]=size（H）;
success=0;k=0;???????????????????????????
Lc=2*y/sigma_2;????????????????????????????????????????%初始化信息節點的信息Lc.
Lg=repmat（Lcm1）;?????????????????????????????????????%初始化矩陣Lg（ij）
Lg=Lg.*H;
[hjhi]=find（H==1）;
while（（success==0）&（k????for?j=1:m??????????????????????????????????????????%計算校驗節點向信息節點傳遞的消息Lh（ji）
????for?i=1:n
????????if?H（ji）==1
????????????A=1;?t=0;
????????????for?ii=1:n
????????????????if?（ii~=i）&（H（jii）==1）
????????????????????A=A*sign（Lg（jii））;?b（jii）=abs（Lg（jii））;t=t+1;
????????????????????if?t==1
????????????????????????B0=b（jii）;
????????????????????else?B=b（jii）;
????????????????????????if?B0>B
????????????????????????????B0=B;
????????????????????????end
????????????????????end
?????????????????end
????????????end
????????????x=1.25;Lh（ji）=A*B0/1.25;
????????end
????end
end
for?i=1:n????????????????????????????????????????????%計算信息節點向校驗節點傳遞的信息?Lg（ij）
??????rowind=find（hi==i）;
??????temp=Lh（hj（rowind）i）;
??????Q=sum（temp）;
??????Q1=Q-temp;
??????Lg（hj（rowind）i）=Lc（i）+Q1;
??????LQ=Lc（i）+Q;???????????????????????????????????%軟判決
??????if?LQ<0???????????????????????????????????????%硬判決
???????v（i）=1;
??????else?v（i）=0;
??????end
end
??k=?k+1;
??if?mod（v*H‘2）==0??????????????????????????????????%判決譯碼是否成功若成功（success=1）則退出循環運算否則繼續.
?????success=1;
??else??success=0;
??end
end

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????1763??2010-05-07?11:36??ldpc程序詳\BP1.asv

?????文件???????1763??2010-05-07?11:39??ldpc程序詳\BP1.m

?????文件????????143??2007-04-25?08:49??ldpc程序詳\bpsk.m

?????文件???????1470??2010-04-30?15:19??ldpc程序詳\BP_decodenewc.m

?????文件???????1177??2010-05-08?13:16??ldpc程序詳\BP_decodenewcBSR.asv

?????文件???????1182??2010-05-08?17:04??ldpc程序詳\BP_decodenewcBSR.m

?????文件???????3265??2010-05-08?17:34??ldpc程序詳\decodeProbDomain.m

?????文件??????16530??2010-05-08?10:12??ldpc程序詳\G.mat

?????文件????????334??2010-05-08?13:18??ldpc程序詳\getG.m

?????文件???????4231??2010-04-19?09:41??ldpc程序詳\getH.asv

?????文件???????4219??2010-05-08?10:14??ldpc程序詳\getH.m

?????文件???????1241??2010-05-08?15:16??ldpc程序詳\H.mat

?????文件????????846??2007-05-15?15:04??ldpc程序詳\H2G.m

?????文件???????1567??2010-05-08?17:08??ldpc程序詳\LDPC.asv

?????文件???????1567??2010-05-08?17:14??ldpc程序詳\LDPC.m

?????文件????????776??2007-05-25?19:07??ldpc程序詳\LDPC1.m

?????文件???????3041??2010-05-08?17:33??ldpc程序詳\ldpc_decode.asv

?????文件???????3015??2010-05-08?15:53??ldpc程序詳\ldpc_decode.m

?????文件???????1191??2010-05-08?19:07??ldpc程序詳\ldpc_decodeber.m

?????文件?????236278??2010-04-19?16:18??ldpc程序詳\m=7n=14.bmp

?????文件???????1456??2010-04-19?16:18??ldpc程序詳\m=7n=14.fig

?????文件???????1222??2010-05-08?17:18??ldpc程序詳\probdomainBER.asv

?????文件???????1216??2010-05-08?17:20??ldpc程序詳\probdomainBER.m

?????文件???????1541??2010-04-19?11:29??ldpc程序詳\s.mat

????..A.SH.??????5120??2010-05-12?20:22??ldpc程序詳\Thumbs.db

?????文件???????1169??2010-05-08?13:36??ldpc程序詳\Untitled2.asv

?????文件???????1190??2010-05-08?17:36??ldpc程序詳\Untitled2.m

?????文件????????530??2010-04-19?10:23??ldpc程序詳\Untitled3.m

?????文件???????1763??2010-04-18?23:30??ldpc程序詳\隨機構造的LDPC碼的編譯碼過程\BP1.asv

?????文件???????1763??2010-04-18?23:33??ldpc程序詳\隨機構造的LDPC碼的編譯碼過程\BP1.m

............此處省略16個文件信息