-5 6 setxrange
-2.2 2.2 setyrange
20 setxunit

traceOx
axeOxarrow

[0.2 dup neg 2 dup 4 1 roll exch ] ligne
[0.2 dup neg -1 dup 4 1 roll exch ] ligne
[0.2 dup neg 3 dup 4 1 roll exch ] ligne
[0.2 dup neg 0 dup 4 1 roll exch ] ligne
1.7 setlinewidth

gsave
%0 30 translate
   orange
(I) 5 1.5 [1.5 dup] cctext
   [xmin 2] {1.5} apply
   (-[) ligne
grestore
gsave
%0 15 translate
   bleu
(J) 5 0.75 [1.5 dup] cctext
   [-1 3] {0.75} apply
   ([-[) ligne
grestore
gsave
%0 -15 translate
   noir
<tex> 
$I\cap J$
</tex> 
5 -0.75 [1.5 dup] cctexlabel
   [-1 2] {-0.75} apply
   ([-[) ligne
grestore
gsave
%0 -30 translate
   noir
<tex> 
$I\cup J$
</tex> 
5 -1.5 [1.5 dup] cctexlabel
   [xmin 3] {-1.5} apply
   (-[) ligne
grestore



/C{2 0} def    
/B {-1 0} def
/D{3 0} def 
/E {0 0} def  

noir
12 setfontsize
setTimesItalic
   %(7/6) A dtext



(2) C urtext
(-1) B ultext
(3) D urtext
(0) E urtext

%% adresse IP : 82.254.24.233