clear?clc;
fs=9e5;???????????????%采樣頻率
fm=21e3;??????????????%基帶頻率
n=2*（6*fs/fm）;
final=（1/fs）*（n-1）;
fc=2e5;???????????????%?載波頻率
t=0:1/fs:（final）;
Fn=fs/2;??????????????%奈奎斯特頻率
%產(chǎn)生方波
wct=2*pi*fm*t;?
A=1;
p=0;
x?=?A?*?cos（wct?+?p）;
am=1;
x（x>0）=am;
x（x<0）=-1;
figure（1）
subplot（321）;
plot（tx）;
axis（[0?2e-4?-2?2]）;
title（‘基帶信號‘）;
grid?on
Fc=sin（2*pi*fc*t）;???%載波
ask=x.*Fc;???????????%載波調(diào)制
subplot（322）;
plot（task）;
axis（[0?200e-6?-2?2]）;
title（‘2PSK信號‘）;
grid?on;
%解調(diào)
%1?帶通濾波
fBW=40e3;
f=[0:3e3:4e5];
w=2*pi*f/fs;
z=exp（w*j）;
BW=2*pi*fBW/fs;
a=.8547;??????????????
p=（j^2*a^2）;
gain=.135;
Hz=gain*（z+1）.*（z-1）./（z.^2-（p））;
Hz（Hz==0）=10^（8）;???
%濾波器參數(shù)
a=[1?0?0.7305];????????
b=[0.135?0?-0.135];????
faskn=fi