%ex0809.m 求解離散系統單位脈沖響應
clear,clc  %清內存中
A=[1,-0.7,-0.6,1]; %A系數向量
B=[1];  %B系數向量
n=[-20:100]; %作圖的脈沖響應長度
x=[n==0];  %輸入脈沖 等價于x=[zeros(1,20),1,zeros(1,100)];
y=filter(B,A,x); %求得脈沖響應
stem(n,y);  %作圖
title('脈沖響應');
grid