tel/TPmatlab/interpolation/TP2b/lect_courb.m

   1 function lect_courb(nb_chif)\r
   2 % lit les coordonnées des points d'une courbe\r
   3 %\r
   4 % variables d'entrée et fonctionnement\r
   5 % Tant que l'utilisateur clique gauche,\r
   6 % le système affiche les coordonnées du point\r
   7 % choisi à la souris.\r
   8 % nb_chif désigne le nombre de décimales demandées,\r
   9 % afin de ne pas encombrer l'écran en cas de lectures\r
  10 % multiples. On impose 0<=nb_chif<=3, aisément modifiable.\r
  11 % On sort en cliquant droit.\r
  12 %\r
  13 % variables de sortie\r
  14 % affichage des coordonnées du point cliqué.\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('Nombre d''argument incorrect. Revoir le source.');\r
  25 end\r
  26 \r
  27 \r
  28 % autres tests éventuels  \r
  29 if (nb_chif<0)|(nb_chif>3)\r
  30     error('Champ incorrect.Modifier le source si besoin');\r
  31 end\r
  32 \r
  33    \r
  34 % Corps d'algorithme\r
  35 \r
  36 % traitement proprement dit\r
  37 bout=1;\r
  38 while bout==1\r
  39     [x,y,bout]=ginput(1);\r
  40     % réglage des sorties\r
  41     entx=length(num2str(floor(x)));\r
  42     enty=length(num2str(floor(y)));\r
  43     fx=['%' num2str(entx) '.' num2str(nb_chif) 'f'];\r
  44     fy=['%' num2str(enty) '.' num2str(nb_chif) 'f'];\r
  45     text(x,y,['x=' num2str(x,fx) ' y=' num2str(y,fy)]);\r
  46 end\r
  47 \r
  48 \r
  49 % variante pour la sortie des résultats\r
  50 % L'utilisateur pourra afficher seulement le numéro des points\r
  51 % saisis sur la courbe; il remplira en meme temps une table\r
  52 % des coordonnées qu'il peut ajouter comme paramètre de sortie\r
  53 % de cette nouvelle fonction.\r
  54 \r
  55 \r
  56 % fin de fonction()\r
  57 \r
  58 \r
  59 \r