clear all; close all
% =================================================================
% Operadores de diferencia para calculo de derivadas
% =================================================================

set (0, "defaultaxesfontsize", 7)

% =================================================================
% Senal 
% =================================================================

N = 50;
s = zeros(1,N) ;                      % inicializo en 0
s(floor(N/3.):2*floor(N/3.)) = 1.0 ;  % doy valores al cajon

% =================================================================
% GRAFICOS 
% =================================================================

figure('NAME','Derivadas')

% Dato de entrada
subplot(2,2,1)
plot(s,'k-o;Entrada;','markersize',2)
xlabel('n')
axis([0 N -1.4 1.4])

% Diferencia hacia atrás
subplot(2,2,2)

% Diferencia hacia adelante
subplot(2,2,3)

% Diferencia hacia central
subplot(2,2,4)
