tel/TPmatlab/equation_nonlineaire/TP4i/partie_2/vect2str_mat.m

   1 function [exp_f]=vect2str_mat(vect)\r
   2 % transforme un vecteur d'écriture de polynome en chaine à évaluer\r
   3 % sous forme matricielle.\r
   4 %\r
   5 % variables d'entrée\r
   6 % vecteur de définition du polynome considéré\r
   7 %\r
   8 % variable de sortie\r
   9 % chaine d'écriture anx^n+...+a0 du polynome considéré\r
  10 %\r
  11 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\r
  12 %                       Fonctions connexes appelées\r
  13 %\r
  14 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\r
  15 \r
  16 % controles inexistants ici car opérés en amont\r
  17 \r
  18 deg=size(vect,2)-1;\r
  19 \r
  20 % création de la chaine d'appel de muller_elem associée à vect\r
  21 s='';\r
  22 if vect(deg+1)>=0\r
  23     s='+';\r
  24 end\r
  25 exp_f=[s num2str(vect(deg+1))];\r
  26 for k=1:deg\r
  27     s='';\r
  28     if vect(deg+1-k)>=0\r
  29         s='+';\r
  30     end\r
  31     exp_f=[s num2str(vect(deg+1-k)) '.*(x.^' num2str(k) ')' exp_f];\r
  32 end\r
  33 \r
  34 % fin de fonction\r