Fichier 2470.jps — Modifié le 21 Mars 2007 à 18 h 26
%% auteur :
-7 3 setxrange
-6 6 setyrange
30 setxunit
30 setyunit
quadrillage
tracerepere
marks
/f {setxvar
#rpn# Exp (x) * (a * Cos (3*x) + b * Sin (3*x))
} def
[
0 1 {rouge}
-1 2 {orange}
2 2 {bleu}
-3 0 {pointilles}
]
{exec /b exch def /a exch def {f} courbe} capply
#tex# $y" -2y' + 5y = 0$
noir
-6.5 -3.5 [2 dup] crtexlabel