clc;
clear?all;
m=250;n=[3005001000];%校驗(yàn)矩陣的n是碼長(zhǎng)
frame=500;
Eb_N0=[0:0.5:5];

for?ii=1:3
R（ii）=（n（ii）-m）/n（ii）
H（ii）=getH（mn（ii））???????%load?H;?H-->G
[G（ii）valid]=H2G（H（ii））;?
while?valid==0???????????????????%valid作為校驗(yàn)矩陣是否為滿秩的標(biāo)志若為非滿秩（valid=0）則返回重新利用1A隨機(jī)構(gòu)造
H（ii）=getH（mn（ii））;?????????????????????%構(gòu)造校驗(yàn)矩陣H
[G（ii）valid]=H2G（H（ii））;????????????????%將校驗(yàn)矩陣H轉(zhuǎn)化為生成矩陣G
end
end




????for?i=1:length（Eb_N0）
?????EN=10^（Eb_N0（i）/10）
????sigma=sqrt（1./（2*EN*R））;
????ber（i）=0;

??????for?num=1:frame??
????????num
????????x?=?（sign（randn（1size（G1）））+1）/2;?%?random?bits
????????y?=?mod（x*G2）;?????????????????????%?coding?
????????bpskmod?=bpsk（y）;??????????????????????????%BPSK?modulation
????????
????????z=bpskmod?+?sigma*randn（1length（bpskmod））;???%?AWGN?transmi

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????文件????????1731??2011-05-22?19:52??1.asv
?????文件????????1767??2011-05-22?21:21??1.m
?????文件?????????347??2011-05-20?00:22??bpsk.m
?????文件???????64037??2011-05-21?21:32??duibi.jpg
?????文件????????3302??2011-05-22?20:05??frame.asv
?????文件???????12010??2011-05-20?21:04??G.mat
?????文件?????????333??2010-05-09?11:31??getG.asv
?????文件????????4255??2011-05-22?15:54??getH.asv
?????文件????????4219??2010-05-08?10:14??getH.m
?????文件????????8440??2011-05-22?22:09??H.mat
?????文件?????????847??2010-05-12?19:53??H2G.m
?????文件????????3523??2011-05-20?20:46??ldpc_decode.asv
?????文件????????3523??2011-05-21?22:03??ldpc_decode.m
?????文件????????1457??2011-05-22?21:57??ldpc_decodeber.asv
?????文件????????1465??2011-05-22?22:01??ldpc_decodeber.m
?????文件???????????0??2011-05-21?17:38??Untitled.asv
?????文件???????63282??2011-05-21?17:13??untitled.jpg
?????文件???????65922??2011-05-20?22:30??圖.jpg
?????目錄???????????0??2011-05-13?15:48??圖r=0.5\
?????文件??????236278??2010-05-09?08:59??圖r=0.5\252_504_1000.bmp
?????文件??????252518??2010-05-09?11:27??圖r=0.5\252_504_10000（補(bǔ)充）.bmp
?????文件??????236278??2010-05-09?11:00??圖r=0.5\252_504_10000.bmp
?????文件??????236278??2010-05-11?12:48??圖r=0.5\256_512_20000（補(bǔ)充）.bmp
?????文件????????6784??2010-05-15?11:11??圖r=0.5\256_512_3000.fig
?????文件??????236278??2010-05-13?12:15??圖r=0.5\256_512_5000.bmp
?????文件????????8963??2010-05-14?18:24??圖r=0.5\256_512_5000.fig
?????文件??????252518??2010-05-09?15:26??圖r=0.5\96_192_10000.bmp
?????文件????????6776??2010-05-15?16:49??圖r=0.5\untitled.fig
?????目錄???????????0??2011-05-13?15:48??圖r=0.667\
?????文件????????6740??2010-05-16?18:37??圖r=0.667\1.fig
?????文件????????6790??2010-05-14?20:52??圖r=0.667\2.fig
............此處省略31個(gè)文件信息