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 $\sqrt 2$ R1 [1.1 dup] urtexlabel setSymbol (p) R2 urtext /fillstyle {blanc fill} def /dx_boxit 2 def /dy_boxit 2 def circleit_all setTimesBold (N) N cctext (Z) Z cctext (D) D cctext (Q) Q cctext (R) R cctext