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
bleu
ellN ellipse
[N1 N2] {times2} plot
noir
[Z1 Z2] {times2} plot
ellD ellipse
[D1 D2] {times2} plot
11 setfontsize
setTimes
bleu
(5) N1 urtext
(6) N2 urtext
noir
(1) Z1 urtext
(2) Z2 urtext
(3) D1 urtext
(4) D2 urtext
/fillstyle {blanc fill} def
/dx_boxit 2 def
/dy_boxit 2 def
circleit_all
setTimes
bleu
$A$
N [1.3 1.3] cctexlabel
noir
$\Omega$
D [1.3 1.3] cctexlabel