Contents
Initialization and filtering
a1 = -0.8; w = pi/8;
n = 0:40;
x = cos(w*n);
y = zeros(size(x));
y(1) = x(1);
for k=2:length(n)
y(k) = x(k) - a1*y(k-1);
end
Graphics
FIG1 = figure('Name','S3S4_2 : 1st order DGL with harmonic input signal','NumberTitle','off');
stem(n,y,'filled'), grid
xlabel('n \rightarrow'), ylabel('y[n] \rightarrow')
title('Output signal')
yt = real(a1/(1-exp(j*w)))*(-a1).^n;
ys = real((exp(j*w)/(exp(j*w)+a1))*exp(j*w*n));
hold on
plot(n,yt,':r','LineWidth',2)
plot(n,ys,'--k','LineWidth',2)
hold off