tel/TPmatlab/general/couleur7.m

   1 function res=couleur7(k)\r
   2 \r
   3 \r
   4 %       couleur7 : renvoie une couleur (modulo 7).\r
   5 %\r
   6 % *********************************************************\r
   7 %\r
   8 %       res=couleur(k) est une chaîne de caractère telle que \r
   9 %   si k (mod 7)=1, couleur7='b';\r
  10 %   si k (mod 7)=2, couleur7='g';\r
  11 %   si k (mod 7)=3, couleur7='r';\r
  12 %   si k (mod 7)=4, couleur7='c';\r
  13 %   si k (mod 7)=5, couleur7='m';\r
  14 %   si k (mod 7)=6, couleur7='y';\r
  15 %   si k (mod 7)=0, couleur7='k';\r
  16 %       \r
  17 %       variables d'entrées : k entier\r
  18 %\r
  19 %       variables de sortie : res chaîne de caractère.\r
  20 % \r
  21 % \r
  22 % ************ Fonctions auxiliaires utilisées ************\r
  23 %\r
  24 %       aucune\r
  25 %\r
  26 % *********************************************************\r
  27 %\r
  28 \r
  29 % Contrôles d'entrée\r
  30 % nombre d'arguments\r
  31 if nargin~=1\r
  32    error('nombre d''arguments de la fonction incorrect');\r
  33 end\r
  34 \r
  35 % corps d'algorithme\r
  36 switch mod(k,7)\r
  37    case 1\r
  38       res='b';\r
  39    case 2\r
  40       res='g';\r
  41    case 3\r
  42       res='r';\r
  43    case 4\r
  44       res='c';\r
  45    case 5\r
  46       res='m';\r
  47    case 6\r
  48       res='y';\r
  49    case 0\r
  50       res='k';\r
  51 end\r
  52 \r