- Y'a t'il moyen de faire des flèches moins volumineuses, plus dans le style $\rightarrow$?
Code : Tout sélectionner
import graph;
import patterns;
usepackage("amsmath");
usepackage("xcolor");
unitsize(x=2cm,y=1.5cm);
//limite des x et y
xlimits(2cm, 6cm);
ylimits(-4cm, 4cm);
// Création du quadrillage :
yaxis( BottomTop(), mediumgrey, LeftTicks("%", Step=1, pTick=mediumgrey, extend=true) );
xaxis( LeftRight(), mediumgrey, LeftTicks("%", Step=1, pTick=mediumgrey, extend=true) );
// Création des axes :
yaxis( XZero(), black+0.7bp, Arrow );
xaxis( YZero(), black+0.7bp, Arrow );
// Définition des fonctions f,g,h
real g(real t) {return 3*sin(5*t)*exp(-t);}
real f(real t) {return 3*exp(-t);}
real h(real t) {return -3*exp(-t);}
// Repère
label("O",(0,0),SW);
label("$t$",(6,0),SW);
label("$g(t)$",(0,4),SW);
//hachure
path vline=(0,-4)--(0,4)..graph(f,0,6,n=250)..graph(h,6,0,n=250)--cycle;
add("hachure",hatch(0.4cm));
fill(vline,pattern("hachure"));
//légende hachurée
path H=(2,-3)--(2,-2.5)--(2.5,-2.5)--(2.5,-3)--cycle;
filldraw(H,pattern("hachure"));
label("$=\displaystyle \int_0^{+ \infty}f(t)\text{d}t-\int_0^{+ \infty}h(t)\text{d}t$",(2.5,-2.75),E);
// Tracé de la courbe :
draw(graph(g,0,6,n=250),0.8bp+red);
draw(graph(f,0,6,n=250),1bp+black+dotted);
draw(graph(h,0,6,n=250),1bp+black+dotted);
label("\textcolor{red}{$\mathcal{C}_g$}",(5.25,0),NE);
label("$\mathcal{C}_f$",(3.5,f(3.5)),N);
label("$\mathcal{C}_h$",(3.5,h(3.5)),S);
//période
draw((0.2746801534,3)--(0.2746801534+2*pi/5,3),grey+0.6bp,Arrows);
label("$T$",((0.2746801534+0.2746801534+2*pi/5)/2,3),N);
draw((0.2746801534,g(0.2746801534))--(0.2746801534,3),black+0.5bp+dashed);
draw((0.2746801534+2*pi/5,g(0.2746801534+2*pi/5))--(0.2746801534+2*pi/5,3),black+0.5bp+dashed);