function [x,n] = secuno(n0,n1,n2)
% Genera x[n] = u[n ¡ n0]; n1 <= n <= n2
% %
[x,n] = secuno(n0,n1,n2)
% %
[x,n] = secuno(n0,n1,n2)
%
n = [n1:n2]; x = [(n-n0) >= 0];
___________________________________________
% Obtención de h[m]
n = [-10:10];
h = secuno(10,0,20);
subplot(2,2,1), stem(n,h,'b','linewidth',2);
grid
title('Respuesta al impulso h[m]');
xlabel('m');
axis([-10,10,0 1.1]);
text(0,-0.2,'(a)');
% Obtención de la transpuesta de h[m]
[ht,nt] = transpon(h,n);
subplot(2,2,2), stem(nt,ht,'b','linewidth',2);
grid
title('Respuesta al impulso reflejada h[¡m]');
xlabel('m');
axis([-10,10,0 1.1]);
text(0,-0.2,'(b)');
% Obtención del corrimiento o desplazamiento
[hd,nd] = desplaza(ht,nt,5);
subplot(2,2,3), stem(nd,hd,'b','linewidth',2);
grid
title('Respuesta al impulso desplazada h[5 - m]');
xlabel('m');
axis([-5 15 0 1.1]);
text(5,-0.2,'(c)');
% Obtención de x[n]
x = n.*secuno(10,0,20);
subplot(2,2,4), stem(n,x,'b','linewidth',2);
grid
title('Secuencia de entrada x[m]');
xlabel('m');
text(0,-2,'(d)');