Fichier suite001.mp (figure 2) — Modifié le 28 Mars 2008 à 21 h 54

Source

input courbescp13;
input TEX;

vardef flechemilieu(expr aa,bb)=
save fle;
picture fle;
fle=image(
drawarrow aa--(1/2[aa,bb]);
draw (1/2[aa,bb])--bb;
);
fle
enddef;

vardef suite(expr uu,npt)(text fonct)=%uu=u0,npt=rang maximal à placer, fonct : porte bien son nom :)
save $; picture$;
numeric dep;%depart
dep=uu;
$=image( for i:=1 upto npt: x:=dep; y@[i]:=fonct; if i=1 : draw flechemilieu(placepoint(dep,0),placepoint(dep,y@[i])); draw flechemilieu(placepoint(dep,y@[i]),placepoint(y@[i],y@[i])); fill (fullcircle scaled 1mm shifted placepoint(dep,0)) withcolor violet; fi; fill (fullcircle scaled 1mm shifted placepoint(y@[i],0)) withcolor orange; label.bot(TEX("$u_"&decimal(i)&"$"),placepoint(y@[i],0)); if i<>1: draw flechemilieu(placepoint(dep,dep),placepoint(dep,y@[i])); draw flechemilieu(placepoint(dep,y@[i]),placepoint(y@[i],y@[i])); fi; dep:=y@[i]; endfor; );$
enddef;

beginfig(1);
origine((1,1));
unites(4,4);
draw grille(0.1) withcolor gris;
draw axes;
draw courbe1(0,3,100,x**2) withcolor bleu;
draw labelise1(btex $y=x^2$ etex,0.55);
draw courbe2(0,3,2,x) withcolor rouge;
draw suite(1.1,3,x**2);
label.bot(btex $u_0$ etex,placepoint(1.1,0));
draw suite(0.8,4,x**2);
label.bot(btex $v_0$ etex,placepoint(0.8,0));
endfig;

beginfig(2);
origine((1,1));
unites(11,11);
draw grille(0.1) withcolor gris;
draw axes;
draw courbe1(0,2,100,-((x-0.5)**2)+1) withcolor bleu;
draw labelise1(btex $y=-(x-0,5)^2+1$ etex,0.1);
draw courbe2(0,3,2,x) withcolor rouge;
draw suite(0.5,8,-((x-0.5)**2)+1);
label.bot(btex $u_0$ etex,placepoint(0.5,0));
endfig;

beginfig(3);
origine((1,1));
unites(8,8);
draw grille(0.1) withcolor gris;
draw axes;
draw labelise1(btex $y=\sqrt x$ etex,0.7);
label.bot(btex $u_0$ etex,placepoint(0.5,0));
end