function res=vandermonde1(X)
% 
%
%	vandermonde1 : matrice de vandermonde (par boucle).
%
% *********************************************************
%
%   res=vandermonde1(X)
%	    calcule la matrice de Vandermonde définie par : 
%       pour tout i,j entier dans {1,p} res(i,j)= (x_j)^(i-1)
%       calcul par boucle.
%  avec 
%	variables d'entrées : 
%   * X : vecteur à p composantes
%
%	variables de sortie : 
%   * matrice de Vandermonde.
%
% 
% 
% ************ Fonctions auxiliaires utilisées ************
%
%       aucune
%
% *********************************************************
%
%



% Contrôles d'entrée

% nombre d'arguments
if nargin~=1
   error('nombre d''arguments de la fonction incorrect');
end
% autres tests éventuels 
   

% Corps d'algorithme
n=length(X)-1;
for i=1:n+1
    for j=1:n+1
        res(i,j)=(X(j))^(i-1);
    end
end
