clc clear close all %generate x(n) n = [-2:10]; x = [1:7,6:-1:1]; subplot(3,1,1) stem(n,x); title('original sequence'); xlabel('n');ylabel('x(n)'); %x1(n)=2x(n-5)-3x(n+4) [x11,n11]= sigshift(x,n,5); [x12,n12]= sigshift(x,n,-4); [x1,n1] = sigadd(2*x11, n11, -3*x12, n12); subplot(3,1,2) stem(n1,x1); title('sequence in example a'); xlabel('n');ylabel('x1(n)'); %x2(n) = x(3-n) + x(n)x(n-2) [x21,n21]=sigfold(x,n); [x21,n21] = sigshift(x21,n21,3); [x22,n22] = sigshift(x,n,2); [x22,n22] = sigmult(x22,n22,x,n); [x2,n2] = sigadd(x21,n21,x22,n22); subplot(3,1,3); stem(n2,x2); title('sequence in example b'); xlabel('n');ylabel('x2(n)');