Source
%% auteur : 

35 setxunit
7.5 setborder
90 setangle_repere
-2 10 setxrange
-1 8 setyrange
1 1 settkstep
.5 .5 setsubtkstep
2 2 setmkstep
traceaxes
unites
/f {setxvar
 11 126 div x 3 exp mul 1.146825 x 2 exp mul sub 3.821429 x mul add 1 2 div add
} def

gsave
   bleu
   0.75 setlinewidth
   continu
   {f} courbe
grestore

/0 {0 0} def
/I {1 0} def
/J {0 1} def
/A {1.8 4.172} def
/A' {1.8 0} def
/A'' {0 4.172} def

gsave
pointilles

[A'' A] (<-) ligne
[A A'] (<-) ligne
grestore

12 setfontsize
setTimesItalic
    (O) O dltext
    (I) I dltext
    (J) J cltext
    (a) A' dctext
    (l'image de a) A'' cltext
    
 noir
/dotscale {0.7 0.7} def

setTimesItalic
   (C) 9 7 ultext
   (f) indice