tel/TPmatlab/erreur_algorithmique/TP1g/lect_absc.m

   1 function lect_absc(eps)\r
   2 % lit les abscisses des points d'une courbe\r
   3 %\r
   4 % variables d'entrée et fonctionnement\r
   5 %\r
   6 % Tant que l'utilisateur clique gauche\r
   7 % le système affiche un entier qui représente\r
   8 % la partie entière de cette abscisse si eps=-1,\r
   9 % la partie entière de cette abscisse si eps=1;\r
  10 % on sort en cliquant droit.\r
  11 %\r
  12 % variables de sortie\r
  13 % affichage de l'abscisse du point cliqué,\r
  14 % en respectant l'arrondi décrit ci-dessus.\r
  15 % \r
  16 % \r
  17 % ************ Fonctions connexes utilisées ***************\r
  18 % \r
  19 % *********************************************************\r
  20 \r
  21 % Contrôles d'entrée\r
  22 % nombre d'arguments\r
  23 if nargin~=1\r
  24     error('passage d''arguments incorrect');\r
  25 end;\r
  26 % autres tests éventuels \r
  27 if eps^2~=1\r
  28     error('Champ eps incorrect');\r
  29 end\r
  30 \r
  31 \r
  32    \r
  33 % Corps d'algorithme\r
  34 \r
  35 % traitement proprement dit\r
  36 bout=1;\r
  37 while bout==1\r
  38     [x,y,bout]=ginput(1);\r
  39     % on peut sortir x et y.\r
  40     text(x,y,['n=' num2str(floor(x+1+(eps-1)/2))]);\r
  41 end\r
  42 \r
  43 \r
  44 % sortie des résultats\r
  45 \r
  46 \r
  47 \r
  48 % fin de fonction()\r
  49 \r
  50 \r
  51 \r