Trabalho Sinais

function [xp , xi, s] = sintemp(n,x)

xp=0.5*(x+fliplr(x));

xi=0.5*(x-fliplr(x));

s=xp+xi;

subplot(2,2,1)

stem(n,x)

title('Grafico x[n]')

xlabel('n')

ylabel('x[n]')

subplot(2,2,2)

stem(n,xp)

title('Grafico x[n]par')

xlabel('n')

ylabel('Xp[n]')

subplot(2,2,3)

stem(n,xi)

title('Grafico x[n]impar')

xlabel('n')

ylabel('Xi[n]')

subplot(2,2,4)

stem(n,s)

title('Grafico Xp[n]+Xi[n]')

xlabel('n')

ylabel('Xp[n]+Xi[n]')

endfunction

%TESTANDO A FUNÇÃO

n=(-10:1:10);

x=exp(n);

figure(1)

a=sintemp(n,x);

if any(imag(x)~=0)

error('x n eh real')

end

s = -flipr(n);

s1 = min([s,n]); s2 = max([ms,n]); s = s1:s2;

ns = n(1)-s(1); n1 = 1:lenght(n);

x1(n1+nm) = x; x=x1;

xp = 0.5*(x + flipr(x));

xi = 0.5*(x - flipr(x));