function [dy, dx] = Derivada(y, x)

  N = length(y);
  
  for n = 1:N-1
      dy(n) = (y(n+1) - y(n))/(x(n+1) - x(n));
  end;
  
  dx = x(1:N-1);
end