%BPSK?snr=5
clear?all;
%close?all;
%------------------系統仿真參數
fc=2;????
Snr=5;???
fs=16;?
N=1000;???
Ts=1;??
fd=1;??
ts=1/fs;??
t=0:ts:N*Ts-ts;
t=t.‘;
N_sample=Ts*fs?;
%-----------畫出調制信號波形及功率譜
%?產生二進制信源
B=randint（1N）;
sym=[-1;1];?
A=sym（B+1）;
A1=awgn（A10）;

H=rcosine（fd?fs??‘sqrt‘）;
S1=upsample（[A]?fs/fd）;
S=filter（H?1?S1）;

X1=S.*cos（2*pi*fc*t）;

figure（1）

plot（t（1?:200）