clear?all;
Fd=2000?;%信號產生速率
Fs=6000;?%余弦滾降濾波器抽樣頻率
Fc=2000;?%載波頻率
t=linspace（00.012000）;
%產生隨機信號
n=4000;
N=40;
x=randint（1n2）;

figure?（1）
subplot（211）
plot（x）??
axis（[0?length（x）/10?-0.5?1.5]）?
grid?on?
zoom?on??
title（‘二進制信號‘）?
%串并轉換
x1=x（1:2:n-1）;

x2=x（2:2:n）;


%通過余弦滾降濾波器
[numden]=rcosine（