-3 3 setxrange
-1.5 1.5 setyrange
25 setxunit
traceaxes
marks

/f {Sin} def
%% trace de la courbe
{f} courbe
%% puis des tangentes en valeur approchee
2 settailletangente
pi 2 div {f} tangente+
pi -2 div {f} tangente-
%% la derniere tangente en valeur exacte
3.5 settailletangente
/f' {Cos} def
0 (f) tangente