tel/TPmatlab/equation_nonlineaire/TP4h/affiche_racines.m

   1 function affiche_racines(ens_rac,exp_pol3,f_seuil)\r
   2 % affiche les racines sous différentes formes possibles\r
   3 %\r
   4 % variables d'entrée\r
   5 % ens_rac est le vecteur des racines de l'équation traitée;\r
   6 % exp_pol3 est la chaine associée à pol3;\r
   7 % f_seuil désigne le module de pol3(x) pour lequel il est assimilé à zéro.\r
   8 %\r
   9 % variables de sortie\r
  10 % on peut extraire les objets fabriqués.\r
  11 \r
  12 % tests à écrire; pas de fonctions sous-jacente...\r
  13 \r
  14 % au fait\r
  15 % sortie des résultats sous forme symbolique\r
  16 disp('Sortie des résultats sous forme symbolique proposée par matlab');\r
  17 symb=sym(ens_rac,'r');disp('ens_rac = ');disp (symb);\r
  18 \r
  19 \r
  20 % tentative d'arrondi des racines au sens de f_seuil\r
  21 % pourrait s'écrire matriciellement ou etre une routine annexe déclenchée\r
  22 % par le passage d'un champ complémentaire.\r
  23 \r
  24 for k=1:size(ens_rac,2)\r
  25     x=round(ens_rac(k));val=eval(exp_pol3);\r
  26     if abs(val)<f_seuil\r
  27         ens_rac(k)=round(ens_rac(k));\r
  28     end \r
  29 end\r
  30 disp('Sortie des résultats arrondis au sens de f_seuil');\r
  31 disp(num2str(ens_rac));\r
  32 disp('Sortie des résultats bruts');\r
  33 ens_rac\r