@options;
  repereortho(162,270,54,1,1){ 0 , moyen , noir , num1 };
  grille();

@figure;
  f = fonction( x*x*x-3x*x+1 )  { 3 };
  J = point( 0 , 1 );
  M = pointsur( f , 2.64 );
  t = tangente( f , M )  { rougeclair , 3 };
  A = point( -1 , 0 )  { i };
  B = point( 2 , 0 )  { i };
  dAB = droite( A , B )  { i };
  perpMdAB = perpendiculaire( M , dAB )  { i };
  perpMperpMdAB = perpendiculaire( M , perpMdAB )  { i };
  var x = abscisse(M) { 2.64 };
  var y = ordonnee(M) { -1.509056 };
  texte1 = texte( 4.1 , 4 ,"M($x$ ;$y$)")  { noir , dec1 };
  C = intersection( perpMdAB , dAB )  { i };
  paraJperpMdAB = parallele( J , perpMdAB )  { i };
  D = intersection( perpMperpMdAB , paraJperpMdAB )  { i };
  sDM = segment( D , M )  { 7 };
  sMC = segment( M , C )  { 7 };
  N = pointsur( t , 5.32 )  { i };
  var z = abscisse(N) { 3.65864939530745 };
  var t = ordonnee(N) { 3.71251018357364 };
  var a = ((t-y)/(z-x)) { 5.12596994375838 };
  b = intersection( t , paraJperpMdAB );
  var x1 = ordonnee(b) { -15.0416166515222 };
  texte2 = texte( 4.1 , 2.8 ,"coefficient directeur = $a$")  { rouge , dec1 };
  texte3 = texte( 4.1 , 2.3 ,"ordonnée à l'origine = $x1$")  { rouge , dec1 };
  texte4 = texte( 4.1 , 3.2 ,"Equation de la tangente :")  { rouge , dec2 };
  texte5 = texte( 4.1 , 4.5 ,"M( x ; f(x) )")  { noir , dec2 };

@analyse;

@enonce;


@config;
couleurfonddessin=0xceddff;
couleurfondtexte=0xceddff;
couleurfondanalyse=0xceddff;
couleurfondenonce=0xceddff;
couleurtextinfo=0xffffff;
figure=0,0,676,546,ouvert;
script=684,25,278,430,ouvert;
analyse=684,463,278,149,ouvert;
enonce=684,3,278,100,ferme;
info=50,572,626,626;
listetransfos=visible;
actualisescript=oui;
pasapas=non;
boutons=point,pointsur,inter,inter2,milieu,projeteortho,segment,droite,demidroite,polygone,vecteur,droiteparallele,droiteperpendiculaire,mediatrice,bissectrice,droitev,tangente,droiteangle,cercle,cercledia,cerclerayon,arc,angle,symetrique,symetriqued,deftransfo,imagetransfo,texte,mesure,mesureangle,nombres,animation,trace,lieu,supprimer,effacerbase,effacertout,renomme,posnom,invisible,visible,aspect,repere,zoomp,zoomm,zoomb,zoombm,deplacement,pasapas,clavier,rapporteur,guide,miseenforme,tepmep,aide,fichier,fiche,ootep,exporter,oooexport,configuration,escape;
commandes=point,milieu,intersection,inter,intercercles,interlignes,projete,symetrique,pointsur,pointaimante,barycentre,image,segment,segmentlong,vecteur,vecteurcoord,droite,droitev,droiteeqr,droiteeq,demidroite,parallele,perpendiculaire,bissectrice,mediatrice,tangente,droiteangle,cercle,cercledia,cerclerayon,angle,arc,entier,reel,calcul,distance,perimetre,mesureangle,mesureangleg,mesurearc,aire,symetrie,reflexion,translation,rotation,homothetie,similitude,polygone,lieu,groupe,fonction,texte;
commandesanalyse=distance,calc,abscisse,ordonnee,coord,ec,er,angle,position,nature,aire,alignés,sto,pgcd,ppcm,simplifie,anglev,exact,dim,périmètre,longueur;