function?ber=BPSK（snrB）
%echo?off
fc=2;?
%snr=-10:2:30
fs=16;
N=1000;?
Ts=1;??
fd=1/Ts;
ts=1/fs;?
t=0:ts:N*Ts-ts;?
t=t.‘;
Lt=length（t）;?
LN=Lt/20;
N_sample=Ts*fs?;
alpha=0.9;
H=rcosine（1fs?‘sqrt‘?alpha）;
%B=randint（1N）;?
sym=[-1;1];??
A=sym（B+1）;?
%figure（1）
S=upsample（Afs）;
%plot（t（1:LN）S（1:LN）‘k‘）;
%hold?on
%axis（[050-11]）?
X=filter（H?1?S）;
X=X.*cos（2*pi*fc*t）;?
X=awgn（Xsnr）;
r=X.*cos（2*pi*fc*t）;?
B1=2*?filter（H?1?r）;
for?i=1:995
????if?B1（80+16*i）>0
????????Br（i）=1;
????elseif?B1（80+16*i）<0
????????Br（i）=-1;
????end
end
%UBr=upsample（Brfs）;
%figure
%plot（t（1:LN）UBr（1:LN）‘b‘）;
A=A‘;
errbit=sum（Br~=A（1:995））;?
ber=errbit/N;?%?誤碼率?
end

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

?????文件????????711??2013-11-30?13:03??BPSK?QPSK\BPSK.m

?????文件????????245??2013-11-30?11:08??BPSK?QPSK\main.m

?????文件???????1119??2013-11-30?13:04??BPSK?QPSK\QPSK.m

?????目錄??????????0??2015-10-11?11:50??BPSK?QPSK

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

?????????????????2075????????????????????4