%% auteur : -5 5 setyrange tracerepere marks /f { 2 exp neg 4 add } def /g { setxvar x 3 exp neg x 2 exp 3 mul sub 4 add } def /h { 2 exp neg 4 add neg } def /i { setxvar x 3 exp neg x 2 exp 3 mul sub 4 add neg } def .8 setlinewidth %% epaisseur du trait 0 2 {f} Courbe 0 2 {f} Hachcourbe -3 0 {g} Courbe -3 0 {g} Hachcourbe 0 2 {h} Courbe 0 2 {h} Hachcourbe -3 0 {i} Courbe -3 0 {i} Hachcourbe [-3 -4 -3 4] ligne setPalatinoItalic (A) -3 4.2 text (A') -3 -4.2 text (B) 0 4.2 text (B') 0 -4.5 text (C) 2 0.1 text