%% auteur : Péric
28.45 setxunit
-3 3 setxrange
-3 2.1 setyrange
/a -3 def
/b 0 def
/c 2 def
/d 0.5 def

2 setdboxit
/arrowscale {2 dup} def
/Circleradius 1.2 def
/nodesep 0 def
(A) node
() b c cctext
(E) node
() a d cctext
(F) node
() a d neg cctext
(B) Cnode 
<latex>
$\times \frac{100}{890,98}$
</latex>
1 0 [2 dup] cctexlabel
(C) node
() b c neg cctext
/angleA 0 def
/angleB 90 def
(A) (B) (-) nccurve
/angleA -90 def
/angleB 0 def
(B) (C) (-) nccurve
/angleA 0 def
/angleB 180 def
(E) (A) (-) nccurve
/angleA 180 def
/angleB 0 def
(C) (F) (->) nccurve