q702.m

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

%《MATLAB及在电子信息课程中的应用》第七章例7.2程序q702
% 离散信号序列的移位、相加和相乘
% 电子工业出版社出版  陈怀琛 吴大正 高西全合著 2001年10月初版，2003年7月第二版
%
clear;close all
n0=input('输入序列起点:n0=');
N=input('输入序列长度:N=');
n1=input('输入位移:n1=');
n=n0:n1+N+5; 		                    % 生成自变量数组
u=[(n-n1)>=0];                          % 产生单位阶跃序列（u(n-n1)）
x1=[(n-n1)>=0]-[(n-n1-N)>=0]	        % 用阶跃序列之差产生矩形序列
x2=[(n>=n1)&(n<(N+n1))];	            % 用逻辑式产生矩形序列
x3=exp(j*n*pi/8).*x2;		            % 对复正弦序列加矩形窗（元素群乘）
subplot(2,2,1);stem(n,x1,'.');	
set(gcf,'color','w')                    % 设置图形背景色为白色
xlabel('n');ylabel('x1(n)');			% 标注
axis([n0,max(n),0,1]);			        % 定坐标范围
subplot(2,2,3);stem(n,x2,'.');
xlabel('n');ylabel('x2(n)');			% 标注
axis([n0,max(n),0,1]);			        % 定坐标范围
subplot(2,2,2);stem(n,real(x3),'.');
xlabel('n');ylabel('x3(n)的实部');		 % 标注
line([n0,max(n)],[0,0]);		        % 画横轴
axis([n0,max(n),-1,1]);			        % 定坐标范围
subplot(2,2,4);stem(n,imag(x3),'.');
xlabel('n');ylabel('x3(n)的虚部');		 % 标注
line([n0,max(n)],[0,0]);		        % 画横轴
axis([n0,max(n),-1,1]);			        % 定坐标范围