verbatimtex 
%&latex 
\documentclass{article} 
\usepackage[latin1]{inputenc} 
\begin{document} 
etex 
 
input courbes; 
input grille; 
 
vardef droite(expr a,b,t) = 
 (t[a,b])--(t[b,a]) 
enddef; 

path c,cartouche; 
c=(2.3cm,1cm)..(4.5cm,4cm)..(9cm,3cm); 
cartouche = (4cm,2mm)--(9cm,2mm)--(9cm,8mm)--(4cm,8mm)--cycle; 

pair A,M; 
A = point 0.6 of c; 
M = point 1.5 of c; 
 
vardef tangente(expr t,x) = 
 pair X,Y; 
 X := point (t-.05) of c; 
 Y := point (t+.05) of c; 
 droite(X,Y,x) 
enddef;

beginfig(1);
    grille(1cm,0,10cm,0,7cm); 
    repere(10cm,7cm,2cm,2cm,1cm,1cm); 
    trace.axes(.5pt); 
    marque.unites(0.1); 
 
    %% lectures sur la grille 
    numeric xa,ya,xm,ym; 
    xa = 1.25; ya = 1.1 ; xm = 4.9 ; ym = 2.25; 

    pair AA,MM; 
    AA = (xa,ya) ; MM = (xm,ym) ; 
    projection.axes(AA,0.5,1.7); 
    projection.axes(MM,0.5,1.7); 
    label.bot(btex $a$ etex,rpoint(xa,0)); 
    label.bot(btex $x$ etex,rpoint(xm,0)); 
    label.lft(btex $f(a)$ etex, rpoint(0,ya)); 
    label.lft(btex $f(x)$ etex, rpoint(0,ym)); 
    %% fin des lectures 
 
    draw c withpen pencircle scaled 1.5pt withcolor (.2,.4,.9); 
 
    draw droite(A,M,1.2); 
 
    draw tangente(0.6,9) withpen pencircle scaled 1.5pt; 
 
    dotlabel.ulft(btex $A$ etex scaled 1.5,A); 
    dotlabel.top(btex $M$ etex scaled 1.5,M); 
    label.ulft(btex $(T)$ etex scaled 1.5, (5cm,5cm)); 
    label.bot(btex $C_f$ etex scaled 1.5,point 2 of c); 
 
 
    %% Cartouche 
    fill cartouche withcolor .8white; 
    draw cartouche; 
    label.rt(btex \textbf{Nombre dérivé en un point} etex,(4cm,5mm)); 
    %% fin du cartouche 
 
    decoupe.repere; 
    etiquette.axes; 

endfig;

 
path c,cartouche; 
c=(2.8cm,2.7cm)..(3.5cm,3.2cm)..(7.5cm,3.2cm)..(7.8cm,2.6cm); 
cartouche = (4cm,2mm)--(9cm,2mm)--(9cm,8mm)--(4cm,8mm)--cycle; 

pair A,M; 
A = point 1 of c; 
M = point 2 of c; 
 

beginfig(2);
    grille(1cm,0,10cm,0,7cm); 
    repere(10cm,7cm,2cm,2cm,1cm,1cm); 
    trace.axes(0.5pt); 
    marque.unites(0.1); 
 
    %% lectures sur la grille 
    numeric xa,ya,xm,ym,xc,yc; 
    xa = 1.5; ya = 1.2 ; xm = 5.5 ; ym = 1.2; 
    xc = 3.8 ; yc =1.95; 
    pair AA,MM,CC; 
    AA = (xa,ya) ; MM = (xm,ym) ; CC = (xc,yc); 
    projection.axes(AA,0.5,1.7); 
    projection.axes(MM,0.5,1.7); 
    draw (CC--(xc,0)) en_place 
	dashed evenly scaled 1.7 
	withpen pencircle scaled 0.5; 
 
    label(btex $a$ etex,rpoint(xa,-0.2)); 
    label(btex $b$ etex,rpoint(xm,-0.2)); 
    label(btex $c$ etex,rpoint(xc,-0.2)); 
    label.lft(btex $f(b) = f(a)$ etex, rpoint(0,ym)); 
    %% fin des lectures 
 
    draw c withpen pencircle scaled 1.5pt withcolor (.2,.4,.9); 
 
    draw droite(A,M,1.2); 
 
    draw tangente(1.53325,6) withpen pencircle scaled 1.5pt; 
 
    dotlabel.lrt(btex $A$ etex scaled 1.5,A); 
 
    dotlabel.llft(btex $B$ etex scaled 1.5,M); 
 
    label.lrt(btex $C_f$ etex scaled 1.5,point 3 of c); 
 
 
    %% Cartouche 
    fill cartouche withcolor .8white; 
    draw cartouche; 
    label.rt(btex \textbf{Th. de Rolle} etex xscaled 1.15,(4cm,5mm)); 
    %% fin du cartouche 
 
    decoupe.repere; 
    etiquette.axes; 
endfig;


path c,cartouche; 

c=(2.3cm,1cm)..(4.5cm,4cm)..(9cm,3cm); 
cartouche = (4cm,2mm)--(9cm,2mm)--(9cm,8mm)--(4cm,8mm)--cycle; 

pair A,M; 

A = point 0.6 of c; 
M = point 1.5 of c; 
 

beginfig(3);
    grille(1cm,0,10cm,0,7cm); 
    repere(10cm,7cm,2cm,2cm,1cm,1cm); 
    trace.axes(0.5pt); 
    marque.unites(0.1); 
 
    %% lectures sur la grille 
    numeric xa,ya,xm,ym,xc,yc; 
    xa = 1.25; ya = 1.1 ; xm = 4.9 ; ym = 2.25; 
    xc = 2.9 ; yc =2.2; 
    pair AA,MM,CC; 
    AA = (xa,ya) ; MM = (xm,ym) ; CC = (xc,yc); 
    projection.axes(AA,0.5,1.7); 
    projection.axes(MM,0.5,1.7); 
    draw (CC--(xc,0)) en_place 
	dashed evenly scaled 1.7 
	withpen pencircle scaled 0.5; 
 
    label(btex $a$ etex,rpoint(xa,-0.2)); 
    label(btex $b$ etex,rpoint(xm,-0.2)); 
    label(btex $c$ etex,rpoint(xc,-0.2)); 
    label.lft(btex $f(a)$ etex, rpoint(0,ya)); 
    label.lft(btex $f(b)$ etex, rpoint(0,ym)); 
    %% fin des lectures 
 
    draw c withpen pencircle scaled 1.5pt withcolor (.2,.4,.9); 
 
    draw droite(A,M,1.2); 
 
    draw tangente(1.09,6) withpen pencircle scaled 1.5pt; 
 
    dotlabel.lrt(btex $A$ etex scaled 1.5,A); 
 
    % dotlabel.lrt(btex $B$ etex scaled 1.5,M); 
    dotlabel.lrt(btex etex,M); 
    label.bot(btex $B$ etex scaled 1.5,rpoint(5.15,2.2)); 
 
    label.bot(btex $C_f$ etex scaled 1.5,point 2 of c); 
 
 
    %% Cartouche 
    fill cartouche withcolor .8white; 
    draw cartouche; 
    label.rt(btex \textbf{Th. des accroissements finis} etex 
	xscaled 0.95,(4cm,5mm)); 
    %% fin du cartouche 
 
    decoupe.repere; 
    etiquette.axes; 
endfig;

end