function [M, m] = MaxMin(X)
  % MaxMin : Funcion para calcular el máximo o mínimo
  %          de cualquer arreglo
  % Recibe X puede ser una matriz o vector
  % Regresa M que es el máximo y m que es el mínimo

  x = X(:);     % Si es una matriz la convierte a vector
  N = length(x);

  M = x(1);
  m = M;

  for k = 1:N
    if m > x(k)  % Si hay un x(k) menor que m
      m = x(k);
    endif
    if M < x(k)  % Si hay un x(k) mayor que M
      M = x(k);
    endif
  endfor
end