@options;
  repereortho(310,300,30,1,1){ 0 , moyen , noir , num1 };
  grille();

@figure;
  var a =random(4)+1 { 2 };
  var b =random(4)+1 { 5 };
  var c =-random(4)-1 { -5 };
  var coef =a/b { 0.4 };
  varsi z1 =[1000*coef=ent(1000*coef),coef,0] { 0.4 };
  varsi z2 =[1000*coef<>ent(1000*coef),1,0] { 0 };
  texte0 = texte( -9.8 , 8.5 , "Chercher les points M(x,y) vérifiant l'équation:")  { dec2 };
  texte1 = µ(z2) texte( -9 , 7 , " y = $a$/$b$ x $c$")  { noir , dec2 , italique };
  texte2 = µ(z1) texte( -9 , 7 , "y = $coef$ x  $c$")  { noir , dec2 , italique };
  R = point( 0 , c )  { i };
  var ordoT =coef+c { -4.6 };
  T = point( 1 , ordoT )  { i };
  d = droite( R , T )  { i };
  m = pointaimante( 1.78 , 4.34 , m appartient d_20% )  { rond1 , sansnom };
  varsi z =[mappartientd_20%,1,0] { 0 };
  var xm =abscisse(m) { 1.78 };
  var ym =ordonnee(m) { 4.34 };
  texte3 = texte( m , "($xm$,$ym$)")  { dec2 };
  M = µ(z) point( xm , ym )  { rouge , trace , rond2 , (-0.7,-0.7) };
  var res2 =coef*xm+c { -4.288 };
  texte4 = texte( -7.4 , 4 , "$res2$")  { vertfonce , dec2 , gras };
  texte5 = texte( -10.1 , 4 , "$ym$")  { rougefonce , dec2 , gras };
  U1 = point( -8.79 , 6.09 )  { i };
  U2 = point( -9.62 , 4.28 )  { i };
  vU1U2 = vecteur( U1 , U2 );
  U3 = point( -7.16 , 6.07 )  { i };
  U4 = point( -6.81 , 4.26 )  { i };
  vU3U4 = vecteur( U3 , U4 );
  texte6 = µ(z) texte( -8.5 , 4.1 , "=")  { noir , dec2 , car+2 , gras };
  texte7 = µ(z) texte( -10.2 , 2.8 , "Les coordonnées de M vérifient l'équation ! ")  { dec2 };