%auteur : Peric
25 setxunit
7.5 setborder
90 setangle_repere
-1 7 setxrange
-6 6 setyrange
1 1 settkstep
%.5 .5 setsubtkstep
%2 2 setmkstep
ticks
%subticks
marks
traceaxes
axesarrow
unites

/A {1 1} def
/B {1 -1} def
/C {5 17 sqrt neg} def   
/D {5 17 sqrt} def
/I {5 0} def

%[A B C D] {plus} papply
B plus2
(A) A [1.5 dup] ultext
(B) B [1.5 dup] dltext
(C) C [1.5 dup] drtext
(D) D [1.5 dup] urtext
(I) I [1.5 dup] urtext
[A C D A] ligne
gsave
pointilles
I 17 sqrt  cercle
[A I] ligne
grestore