-3 4 setxrange -3 6 setyrange jpegmode tracerepere marks /f { setxvar %%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% inserer ici votre fonction %% representation de la pile %% %%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 1 x add %% x+1 %% -2 x mul Exp %% x+1, exp (-2x) %% mul %% (x+1) exp (-2x) %% x add %% (x+1) exp (-2x) + x %% 1 add %% (x+1) exp (-2x) + x + 1 %% } def /f' { setxvar %%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% inserer ici sa derivee %%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0 } def (f) courbe 1.8 settailletangente 0 (f) tangente -1 0 (f) Hachcourbe O point -1 0 point /g { setxvar %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% inserer ici votre 2eme fonction %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% x 1 add } def setTimesItalic (C) Xmax dup f ultext (f) indice (O) O dltext setSymbol (D) Xmin dup g drtext mixte (g) courbe