QUESTION-Function for Even and Odd Decomposition of Real Sig

function [xe, xo, m] = evenodd(x,n)
% Real signal decomposition into even and odd parts
% xe =1/2[x[n] + x[−n]]
% xo =1/2[x[n] − x[−n]]
% xe= even part of sequence x over n
% xo =odd part of sequence x over n
n = -1:2
x = [2 5 6 8]
[xe,xo] = sigfold(x)
subplot(2,1,1)
stem(n,xe)
subplot(2,1,2)
stem(n,xo)
function [xe,xo] = sigfold(x)
xf = fliplr(x)
xe = 1/2*(x + xf)
xo = 1/2*(x - xf)
end