function [lmin,ilmin]=minlo(x);
% Syntax: [lmin,ilmin]=minloc(x)
%
% Fonction pour rechercher les minima locaux et leurs indices.
% Ne retourne pas les minima aux bornes 

[m,n]=size(x);
if m == 1,	% ligne
  xa=[-inf x -inf];
else
  if n==1,	% colonne
    xa=[-inf; x; -inf];
  else
    disp('Erreur dans minloc - ca ne marche que pour les vecteurs !');
    return;
  end
end

ilmin=[];
ilminaux=[];
remplir=1;

for i=1:max(m,n)+1,
    if xa(i) > xa(i+1),
      ilminaux=i;
    else
      if xa(i) < xa(i+1) 
        ilmin=[ilmin ilminaux];
        ilminaux=[];
      else
        ilminaux=[ilminaux i ];
      end
    end
end

if n==1,
  ilmin=ilmin';
end

lmin=x(ilmin);
         
