function res=polyval_symb(P,x)

%	polyval_symb : évaluation formelle de polynôme
%
% *********************************************************
%  ATTENTION, ni polyval ni poly2sym ne marchent sur un tableau 
%             à coefficients formels !!
%
% *********************************************************
%
%
%	res=polyval_sym(P,x) : renvoie la valeur de P en x (en formel) :
%  si n est la longueur de P : 
%     res=P(1)*x^(n-1)*+P(2)*x^(n-2)+...+P(n-1)*x+P(n).
%
%	variables d'entrées : 
%    *  P : polynoômes à coefficients formels
%    *  x : réel ou symbolique.
%	variables de sortie : 
%    * res : valeur de P en x
%
%
%
% ************ Fonctions auxiliaires utilisées ************
%
%       aucune
%
% *********************************************************
%

% Contrôles d'entrée
% nombre d'arguments
if nargin~=2
   error('nombre d''arguments de la fonction incorrect');
end


% Corps d'algorithme.
n=length(P);
if (isempty(P))
    res=0;
else
   if x==0 
      res=P(n);
   else
      res=sum(P.*x.^(n-1:-1:0));
  end
end