TeXgraph# {version 1.974} Cmd Fenetre(-1+1.15*i, 40-0.1*i, 0.219512195121951+7.2*i); Marges(0, 0, 0, 0); Border(0); [OriginalCoord(1), IdMatrix()]; [theta:=0.6981, phi:=1.0472, IdMatrix3D(), ModelView(ortho)]; [GrayScale(0), ComptGraph:=2]; Var AnimationVer = 1.1; a = 20; max = 20; Include "MacrosAnim.mac"; "Animation.mac"; Mac MakeFrame = [{code pour dessiner la frame n° %1} Inc(a,max/NbFrames()), ReCalc(aire) ]; OnBeginAnim = [{exécutée au lancement de l'animation} ]; OnEndAnim = [{exécutée à la fin de l'animation} ]; Initialiser = [{valeurs par défaut de vos paramètres} a:=0, ReCalc(aire) ]; Tempo = 100; NbFrames = 50; Nom = "/home/pfradin/.TeXgraph/aire"; Cmd [tMax:=10,DotScale:=1+i]; Graph aire = [ FillStyle:=bdiag, FillColor:=blue, LineStyle:=solid, domaine1( 1/(x-ln(x)), a,2*a), Point(a), LabelStyle:=left, Label(8+0.5*i, ["$\displastyle\int_x^{2x} \frac{dt}{t-\ln(t)}=",Round(Int(1/(x-ln(x)),x,a,2*a),6)]) ]; Cmd [tMin:=-5,tMax:=5]; Graph objet1 = [ view(-1,2*max,-0.1,1.15), Marges(0,0,0,0), size(9,0), Axes(0,2+i), tMin:=0, tMax:=2*max, Width:=8, Cartesienne(1/(x-ln(x))) ];