SNR=-24:2:-6;
q=10.^（SNR/10）;
b1=[‘r‘‘g‘‘b‘‘k‘];
b2=[‘:‘‘:‘‘:‘‘:‘];
b3=[‘.‘‘+‘‘>‘‘o‘];
n=[51210241024*21024*5];
pf=0.1;
count=0;
for?i=1:length（n）?
????r=n（i）+sqrt（2*n（i））.*erfinv（1-pf）*2;
????for?p=1:length（q）
????for?k=1:10000
???????m=randint（1n（i）2）;?%m=rand（1n（i））;
???????s=dmodce（m11‘psk‘2）;
???????noise=random（‘Normal‘011n（i））;
???????real=q（p）.*s+noise;
???????T=sum（abs（real.^2））;
???????if（T>r）?count=count+1;
???????end
????end
????pd（p）=count/10000;
????count=0;
????end
?????plot（SNRpd[b1（i）?b2（i）?b3（i）]）
?????hold?on
end
legend（‘N=512‘‘N=1024‘‘N=1024X2‘‘N=1024X5‘0）

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

?????文件????????322??2011-05-21?16:01??程序說明.txt

?????文件????????637??2011-05-21?10:58??BPSK.m

?????文件??????27744??2011-05-21?11:13??n=10000.fig

?????文件????????280??2011-05-19?20:07??SNR.m

?????文件????????572??2011-05-20?15:49??T2.m

?????文件????????350??2011-05-21?12:10??T3.m

?????文件????????349??2011-05-20?15:29??T4.m

?????文件????????351??2011-05-20?15:28??T5.m

?????文件????????374??2011-05-20?15:29??T6.m

?????文件?????????85??2011-05-08?13:57??test2.m

?????文件?????????81??2011-05-08?13:54??test4.m

?????文件????????286??2011-05-07?19:17??nengliang.m

?????文件????????536??2011-05-08?17:01??PdPf.m

?????文件????????314??2011-05-08?17:13??PdSNR.m

?????文件????????106??2011-05-19?16:54??test1.m

-----------?---------??----------?-----??----

????????????????32387????????????????????15