clc;
clear;
prompt={‘碼元數目：‘‘每個碼元內的載波周期數，2到10之間：‘‘每個載波周期抽樣點數：‘‘信噪比：‘};?
title=‘參數框‘;line=1;
def={‘12‘‘2‘‘50‘‘8‘};
y=inputdlg（prompttitlelinedef）;
x=str2num（y{1}）;
f=str2num（y{2}）;
mm=str2num（y{3}）;
ai=str2num（y{4}）;
bpsk=randsrc（1x[01]）
bpsk1=reshape（bpskx/33）;
g=[1?0?0?1?1?0;0?1?0??1?0?1;0?0?1?0?1?1];
bpsk_code1=mod（bpsk1*g2）;
bpsk2=reshape（bpsk_code11x/3*6）;
SNR=ai-3*log2（mm*f）+3;%信噪比
n=0;%誤碼數目統計
snr=1/（10^（SNR/10））;
noise=sqrt（snr/2）*（randn（1x*mm*f*6/3））;%高斯白噪聲信號
t=0:mm*f-1;%數據點數
tu11=[];%二進制基帶信號雙極性波形
tu2=[];%BPSK信號
for?e=1:length（bpsk2）
????if?bpsk2（e）>0
????????tu=ones（1mm*f）;
????????w=sin（2*pi*t/mm）;
????else?tu=-ones（1mm*f）;
????????w=-sin（2*pi*t/mm）;
????end
????tu11=[tu11tu];
????tu2=[tu2w];
end
tu1=（tu11+1）/2;%二進制基帶信號單極性波形
t=

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件????????2477??2010-06-08?23:51??x1.m