Fichier 1062.jps — Modifié le 25 Octobre 2007 à 09 h 31
25 setxunit
7.5 setborder
90 setangle_repere
-6 3 setxrange
-4 8 setyrange
1 1 settkstep
1 1 setmkstep
ticks
marks
traceaxes
axesarrow
unites
/f {setxvar
#rpn# sin(1/x)
} def
/g {setxvar
#rpn# (x+2)^2
} def
/h {setxvar
#rpn# (x+2)^2-3
} def
gsave
bleu
.75 setlinewidth
continu
{f} courbe
grestore
gsave
bleu
.75 setlinewidth
pointilles
{g} courbe
grestore
gsave
bleu
1 setlinewidth
continu
{h} courbe
grestore
[-2 dup f -4 dup g] (->) ligne
[-4 dup g -4 dup h](->) ligne
<tex>
$-2\overrightarrow{i}$
</tex>
-3 -2 f [1.5 dup] uctexlabel
<tex>
$-3\overrightarrow{j}$
</tex>
-4 -4 g -4 h add 2 div [1.5 dup] bltexlabel
bleu
<tex>
$x^2$
</tex>
-2.3 -2.8 f [1.5 dup] {-2.8 2 mul 1 atan} crtexlabel
<tex>
$(x+2)^2$
</tex>
-4.3 -4.8 g [1.5 dup] {-4.5 2 mul 1 atan} crtexlabel
<tex>
$f(x)$
</tex>
-2.5 dup h [1.5 dup] cltexlabel