n=[0:100]
x=stepseq(0,0,10)-stepseq(10,0,10);
[xe,x0,m]=evenodd(x,n);
figure(1)
subplot(2,2,1);stem(n,x);title('Rectangular pulse')
xlabel('n');ylabel('x(n)');axis(-10,10,-1.2,1,2)
subplot(2,2,2);stem(m,xe);title('Even part')
xlabel('n');ylabel('xe(n)');axis(-10,10,-1.2,1,2)
subplot(2,2,4);stem(m,x0);title('Odd part')
xlabel('n');ylabel('x0(n)');axis(-10,10,-1.2,1,2)