%BER?of?4PAM
clear?all;clc;
Nb=10000;?%the?number?of?data?bits
EbN0dB=1:30;?%Eb/N0?in?dB
EbN0?=?10.^（EbN0dB/10）;
Nerr=zeros（1length（EbN0））;?%?initialize?Nerr?vector
for?k=1:length（EbN0）
????b=rand（1Nb）>0.5;?%?0?or?1?random?data
????b2?=?reshape（b2[]）‘;
????for?i?=?1:length（b2）????
????????x（1i）?=?（2*b2（i1）?-1）?*?（2*（b2（i2）==0）+1）;?%4PAM?mapping
????end
????Eb=1;?%?bit?energy
????N0=Eb/EbN0（k）;?%?noise?PSD?（W/Hz）
????varn=N0/2;?%?noise?variance
????noise=sqrt（varn）*randn（1Nb/2）;?%?AWGN?~?N（0varn）
????r=x+noise;?%?received?signal
????%4PAM?demapping?
????for?i?=?1:length（r）
????????d2（1i）?=?r（1i）>0;
????????d2（2i）?=?abs（r（1i））?????end
????d?=?reshape（d21[]）;

????Nerr（k）=sum（b~=d）;?%?the?number?of?error?bits
end
ber=Nerr/Nb;?%?bit?error?rate?by?s

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

?????文件???????1052??2009-06-01?00:42??BERof4PAM.m

?????文件???????1561??2009-06-01?00:45??designFilter.m

?????文件?????????43??2009-05-13?23:51??Q.m

?????文件????????261??2009-05-22?02:40??srrc_fir.m

?????文件????????138??2013-03-09?16:46??www.hslogic.com.txt

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

?????????????????3055????????????????????5