Présentation de poisson.jps

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