doc/figures/Ex-pgcd.mp

   1 input mp-scratch;
   2
   3 beginfig(1);%http://serge.mehl.free.fr/anx/pgcd_diff_scratch.html
   4   draw QPresse("\opSimple{espace}");
   5   draw Demander("Donner $a$");
   6   draw MettreVar("a","\opCap{réponse}");
   7   draw Demander("Donner $b$");
   8   draw MettreVar("b","\opCap{réponse}");
   9   draw Si1("\opOp{$\opVar{$a$}=\opVar{$b$}$}");
  10   draw MettreVar("pgcd","\opVar{$a$}");
  11   draw Sinon1;
  12   draw MettreVar("x","\opVar{$a$}");
  13   draw MettreVar("y","\opVar{$b$}");
  14   draw MettreVar("r","de \opOp{abs de $\opVar{$a$}-\opVar{$b$}$}");%"\opOp{$\abs$}");%
  15   draw RepeterJ2("\opOp{$\opVar{$r$}=0$}");
  16   draw MettreVar("x","\opVar{$a$}");
  17   draw MettreVar("y","\opVar{$b$}");
  18   draw MettreVar("pgcd","\opVar{$r$}");
  19   draw MettreVar("r","de \opOp{abs de $\opVar{$a$}-\opVar{$b$}$}");%"\opOp{$\abs$}");%
  20   draw FinBlocRepeter2(10);
  21   draw FinBlocSi1;
  22 endfig;
  23 end