q701.m

MATLAB及在电子信息课程中的应用,电子工业出版社出版 陈怀琛 吴大正 高西全合著

%《MATLAB及在电子信息课程中的应用》第七章例7.1程序q701
% 离散信号序列的移位、相加和相乘
% 电子工业出版社出版  陈怀琛 吴大正 高西全合著 2001年10月初版，2003年7月第二版
%
x1=[0,1,2,3,4,3,2,1,0];ns1=-2;		    % 给定x1及ns1
x2=[2,2,0,0,0,-2,-2]; ns2=2;		    % 给定x2及ns2
nf1=ns1+length(x1)-1; nf2=ns2+length(x2)-1;
ny= min(ns1,ns2):max(nf1,nf2); 		    % y(n)的时间变量
xa1 = zeros(1,length(ny)); xa2 = xa1;   % 延拓序列初始化
xa1(find((ny>=ns1)&(ny<=nf1)==1))=x1;   % 给xa1赋值x1 
xa2(find((ny>=ns2)&(ny<=nf2)==1))=x2;   %  给xa2 赋值x2
ya = xa1 + xa2                              	% 序列相加
yp = xa1.* xa2                             	% 序列相乘
subplot(4,1,1), stem(ny,xa1,'.')		% 绘图
set(gcf,'color','w')                    % 设置图形背景色为白色
subplot(4,1,2), stem(ny,xa2,'.')
line([ny(1),ny(end)],[0,0])		        % 画x轴
subplot(4,1,3), stem(ny,ya,'.')
line([ny(1),ny(end)],[0,0])		        % 画x轴
subplot(4,1,4), stem(ny,yp,'.')
line([ny(1),ny(end)],[0,0])		        % 画x轴