function res=saisiefonction

% saisiefonction : saisie au clavier d'une fonction.
%
% *********************************************************
%
% cette fonction saisit au clavier le nom d'une fonction f :
% - si cette fonction est une fonction built-in ou définie par un fichier .m
%   il faut rentrer au clavier le nom de cette fonction sans apostrophes.
% - sinon, il faut entrer sans appostrophe la chaine qui definit cette fonction
% en fonction de x et sans point (vectorize les rajoute) (exemple : 1/(1+x^2))
%
% dans le premier cas, res est la chaine égale au nom de la fonction
% dans le second cas, res est la fonction déclarée par inline
%
% dans le deux cas, on calcule l'image de X par res en utilisant y=feval(res,x)
% ou on fait un graphique avec fplot(res,...)
%
% ATTENTION : fonction avec argument à entrer au clavier.

disp(' ');
disp(' ');
disp('Entrez le nom de la fonction sans apostrophes : ');
disp(' ');
disp(' ');
disp('- Soit directement le nom de cette fonction, si elle built-in');
disp('    exemple : cos');
disp('- Soit directement le nom du fichier *.m ou elle est stockée');
disp('    exemple : dudu');
disp('- Soit la chaîne de caratère en fonction de x sinon (sans apostrophe et sans point).');
disp('    exemple : 1/(1+x^2)');
ch=input('fonction : ','s');
c=exist(ch);

if (c==2) | (c==5) 
   res=ch;
else
   res=eval(['vectorize(inline(','''',ch,'''','))']);
end