function [ordre,corel]=log_erreur_iteration(l,X)


%  log_erreur_iteration : détermination d'un ordre de convergence (équation non linéaire)
%
% *********************************************************
%
%  [ordre,corel]=log_erreur_iteration(l,X) renvoie
%  l'ordre et la correlation  à partir d'itérés déjà calculé par une méthode numérique de 
%  résolution de l'équation (scalaire) f(x)=0.
%
%	variables d'entrées : 
%		* X : le vecteur des différentes valeurs de la suite x_n
%             (déjà calculé par une méthode type dichotomie, Newton ....)
%		* l : la limite présumée (souvent choisie égale à la dernière valeur de X)
%
%	variables de sortie :
%     * ordre est l'ordre mesuré (par droite de moindres carrés, à partir du nuage log-log)
%     * corel : correlation mesurée 
%
% 
% 
% ************ Fonctions auxiliaires utilisées ************
%
%  regression_lineaire
%
% *********************************************************
%

% corps d'algorithme
auxi=abs(X-l);
ind=find(auxi~=0);
auxi=auxi(ind);
auxi=log10(auxi);
x=auxi(1:end-1);
y=auxi(2:end);
[ordre,b,corel]=regression_lineaire(x,y);


