tel/TPmatlab/integration/TP3g/polyder_symb.m

   1 function res=polyder_symb(P)\r
   2 \r
   3 %       polyder_symb : intégration formelle de polynôme\r
   4 %\r
   5 %\r
   6 % *********************************************************\r
   7 %  ATTENTION, polyder ne marche pas sur un tableau \r
   8 %             à coefficients formels !!\r
   9 %\r
  10 % *********************************************************\r
  11 %\r
  12 %       res=polyval_sym(P,x) : renvoie la dérivée de P en x (en formel) :\r
  13 %     si n+1 est la longueur de P : \r
  14 %     res=[n*P(1) (n-1)*P(2) ... 2*P(n-1) P(n)]\r
  15 %\r
  16 %       variables d'entrées : \r
  17 %    *  P : polynômes à coefficients formels\r
  18 %       variables de sortie : \r
  19 %    * res : tableau correspondant à la dérivée de P\r
  20 %\r
  21 %\r
  22 %\r
  23 % ************ Fonctions auxiliaires utilisées ************\r
  24 %\r
  25 %       aucune\r
  26 %\r
  27 % *********************************************************\r
  28 %\r
  29 \r
  30 \r
  31 \r
  32 % Contrôles d'entrée\r
  33 % nombre d'arguments\r
  34 if nargin~=1\r
  35    error('nombre d''arguments de la fonction incorrect');\r
  36 end\r
  37 \r
  38 \r
  39 % Corps d'algorithme.\r
  40 if (isempty(P)) | (P==0) \r
  41    res=0;\r
  42 else\r
  43    n=length(P)-1;\r
  44    res=[P(1:n).*sym(n:-1:1)];\r
  45 end