%% taille de la fenetre
-2.5 3.5 setxrange
-2 2 setyrange

%% definition des fonctions
/f {Sin} def            %% en utilisant la pile d'arguments
/g {                    %% en utilisant 'setxvar'
   setxvar
   x Cos
} def

%% repere et graduations
tracerepere
marks

%% l'epaisseur du trait
1.5 setlinewidth

%% trace des courbes
{f} courbe
bleu pointilles
{g} courbe