-5 8 setxrange
-2.4 2.2 setyrange
20 setxunit

traceOx
axeOxarrow

[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

/a {5} def
/b {1} def
/c {-3} def
/d {5} def

gsave
%0 30 translate
   orange
(I) 3 1.5 [1.5 dup] cctext
   [xmin b] {1.5} apply
   (-]) ligne
grestore
gsave
   bleu
(J) a 0.75 [1.5 dup] uctext
   [c xmax] {0.75} apply
   ([-) ligne
grestore
gsave
%0 -15 translate
   noir
<latex> 
$I\cap J$
</latex> 
3 -0.75 [1.5 dup] cctexlabel
   [c b] {-0.75} apply
   ([-]) ligne

grestore
gsave
%0 -30 translate
   noir
<latex> 
$I\cup J=\mathbb{R}$
</latex> 
a -1.5 [1.5 dup] dctexlabel
   [xmin xmax] {-1.5} apply
   (-) ligne
grestore



/B {b 0} def    
/C {c 0} def
/D {0 0} def   

noir
12 setfontsize
setTimesItalic
  
(1) B urtext
(-3) C ultext
(0) D urtext