%% SPLS/2e MATLAB
% Chapter 8
clear; close all;
%% Ex. 8.4
n = (0:8); x_a = @(n) (0.8).^n; x_b = @(n) (-0.8).^(n); 
x_c = @(n) (0.5).^n; x_d = @(n) (1.1).^n;   
subplot(2,2,1); stem(n,x_a(n),'k.'); ylabel('x_a[n]'); xlabel('n');
subplot(2,2,2); stem(n,x_b(n),'k.'); ylabel('x_b[n]'); xlabel('n');
subplot(2,2,3); stem(n,x_c(n),'k.'); ylabel('x_c[n]'); xlabel('n');
subplot(2,2,4); stem(n,x_d(n),'k.'); ylabel('x_d[n]'); xlabel('n');
%% Ex. 8.5
n = (-30:30); x = @(n) cos(n*pi/12+pi/4);
clf; stem(n,x(n),'k.'); ylabel('x[n]'); xlabel('n');
%% Sec. 8.6.1, Fig. 8.24
x = @(n) exp(-n/5).*cos(pi*n/5).*(n>=0);
n = (-10:10)';
stem(n,x(n),'k.');
xlabel('n'); ylabel('x[n]');
%% Sec. 8.6.1, Fig. 8.25
subplot(2,1,1); stem(n,x(-2*n),'k.'); ylabel('x[-2n]');
subplot(2,1,2); stem(n,x(-2*n+1),'k.'); ylabel('x[-2n+1]'); xlabel('n');