%?計算經過BPSK信號和加性白噪聲在經過平坦瑞利信道的誤碼率統計，只解調實部

clear
M?=?2;
N=1000000;
x?=?randint（1NM）;??%?隨機序列
s=?pskmod（xM）;??%?調制

m=randn（1N）;%獲得瑞利信道函數
t=randn（1N）;
h=（m+j*t）/sqrt（2）;%能量為1
y=s.*h;%經過瑞利信道

SNR?=?0:2:10;?%?信噪比范圍
for?n?=?1:length（SNR）
??r?=?awgn（ySNR（n）‘measured‘）;?%?加高斯噪聲
??r1=real（r./h）;%取實部
??r2?=?pskd