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)');