autocrop
15 setxunit
%quadrillage
%marks
%%les ensembles numériques
-15 20 setxrange
-10 12 setyrange
%tracerepere
%%ensemble des entiers naturels

/N1 {-0.9 0.6} def
/N2 {0.9 -.4} def
/N3 {-1 dup} def
/N0 {0.2 0.2} def
/ellN[N0 3 2 30] def
/N {50 ellN epoint} def

%%ensemble des entiers relatifs
/Z1 {3 3} def
/Z2 {3.8 1.7} def
/Z3 {3.5 0} def
/Z0 {1.1 0.8} def
/ellZ[Z0 5 3 30] def
/Z {45 ellZ epoint} def

%%ensemble des décimaux relatifs
/D1 {6.3 2} def
/D2 {5.2 0} def
/D3 {4.2 -1.5} def
/D0 {2 0.8} def
/ellD[D0 7 4 30] def
/D {40 ellD epoint} def

%%ensemble des rationnels
/Q1 {9 2} def
/Q2 {8.5 0} def
/Q3 {8 6} def
/Q0 {4 1.5} def
/ellQ[Q0 11 5 30] def
/Q {37.5 ellQ epoint} def

%%ensemble des réels
/R1 {14 2} def
/R2 {12 -1} def
/R3 {15 8} def
/R0 {6 1} def
/ellR[R0 15 7 30] def
/R {37.5 ellR epoint} def


noir
ellN ellipse
[N0 N1 N2 N3] {times2} plot
bleu
ellZ ellipse
[Z1 Z2 Z3] {times2} plot
vert
ellD ellipse
[D1 D2 D3] {times2} plot
rouge
ellQ ellipse
[Q1 Q2 Q3] {times2} plot
orange
ellR ellipse
[R1 R2 R3] {times2} plot

11 setfontsize
noir
setTimes
 (0) N0 urtext
 (1) N1 urtext
 (2) N2 urtext
 (3) N3 urtext
 (-1) Z1 urtext
 (-2) Z2 urtext
 (-3) Z3 urtext
 (-1,3) D1 urtext
 (3,14) D2 urtext
 (4/5) D3 urtext
 (-1/3) Q1 urtext
 (3/7) Q2 urtext
 (1,2727...) Q3 urtext
 (sin 17°) R3 urtext

<tex>
$\sqrt 2$
</tex> 
R1 [1.1 dup] urtexlabel

setSymbol
 (p) R2 urtext

/fillstyle {blanc fill} def
/dx_boxit 2 def
/dy_boxit 2 def
circleit_all
setTimes
<tex>
${\nset}$
</tex>
N [1.3 1.3] cctexlabel

<tex>
${\zset}$
</tex>
Z [1.3 1.3] cctexlabel

<tex>
${\dset}$
</tex>
D [1.3 1.3] cctexlabel

<tex>
${\qset}$
</tex>
Q [1.3 1.3] cctexlabel

<tex>
${\rset}$
</tex>
R [1.3 1.3] cctexlabel