%% 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