%==========得到2ASK碼元和基帶信號=======================%
rs=1e3;%時間軸頻率步進
fc=1e2;%載波頻率100HZ
tzd=1e2;%1個碼元用100個點模擬
t=0:1/rs:（tzd-1/rs）;
for?snrb=0:1:10?%不同信噪比
????ratio=0;%初始誤碼數設為0，累計十次得到總誤碼數
????for?k=1:10?%十次循環產生10000碼元
n=1e3;%一次產生碼元數
g=randint（1n）;%產生1000個碼元
tz=g（ceil（10*t+（1/rs）））.*cos（2*pi*fc*t）;%得到調制信號tz，100個點表示1個碼元
??%============信號通過噪聲信道============================%????????
signal=awgn（tzsnrb）;%信號通過白噪聲信道
%=================解調過程================================%
Fs=1e3;%采樣頻率?
[ba]=butter（2[80120]*2/Fs）;%設計巴特沃斯帶通濾波器，2階，系數為ab
sg1=filter（basignal）;%信號通過該BPF
sg2=2*sg1.*cos（2*pi*fc*t）;%信號通過相乘器
Fs=1e3;%采樣頻率?
[ba]=butter（210*2/Fs）%設計巴特沃斯低通濾波器???
sg3=filter（basg2）;%信號通過該LPF
%=================判決過程================================%
b=0.4;%判決門限
LL=tzd/2;
for?i=1:n
????if?sg3（（i-1）*tzd+LL）>b;%取sg2的中間的點作為判決點??
???????sg4（i）=1;
???else?
???????sg4（i）=0;
???end
end%得到判決后信號sg4
%=================計算誤碼率過程================================%
[numberspe]?=symerr（gsg4）;%利用函數得到誤碼率和誤碼數
ratio=ratio+numbers;
end
r1=ratio/（n*10）;%誤碼數除以總點數為誤碼率
pel（1snrb+1）=r1;%11個信噪比對應的11個誤碼率存入數組pel
end
figure;%畫圖
x=0:1:10;
x1=10.^（x./10）;%分貝值轉化為真值
y=0.5*（erfc（sqrt（x1/4）））;%2ASK信號相干解調理論誤碼率計算
semilogy（xpel‘-r‘xy‘-b‘）;
legend（‘simulation‘‘theoritical?case‘）;
xlabel（‘信噪比‘）
ylabel（‘誤碼率‘）;grid?on;
title（‘2ASK信號相干解調時信噪比與誤碼率的關系‘）;

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

?????文件???????2929??2010-07-11?22:17??ASK\相干\ASKX.m

?????文件???????2798??2010-07-11?22:02??ASK\相干\ASKX.asv

?????文件???????1795??2010-07-15?14:50??ASK\相干\askxg.asv

?????文件???????1967??2010-07-15?14:57??ASK\相干\askxg.m

?????文件????????996??2010-07-13?19:28??ASK\相干\askfxgwml.asv

?????文件???????1367??2010-07-15?08:13??ASK\相干\askxgwml.m

?????文件???????1363??2010-07-14?18:06??ASK\相干\askxgwml.asv

?????文件???????1558??2010-07-15?15:24??ASK\非相干\askfxg.m

?????文件???????2868??2010-07-12?12:56??ASK\非相干\ASKFX.m

?????文件???????1350??2010-07-14?23:39??ASK\非相干\askfxgwml.m

?????文件???????1320??2010-07-14?16:13??ASK\非相干\askfxgwmlv.m

?????文件???????1350??2010-07-14?23:37??ASK\非相干\askfxgwml.asv

?????文件???????3320??2010-07-14?23:57??ASK\非相干\askfxg.asv

?????文件???????1638??2010-07-14?16:18??ASK\ASKXGwml.m

?????目錄??????????0??2010-07-14?16:15??ASK\相干

?????目錄??????????0??2010-07-14?16:15??ASK\非相干

?????目錄??????????0??2010-07-14?10:59??ASK

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

????????????????26619????????????????????17