Source : ensembles.mp

 
verbatimtex
%&latex
\documentclass[12pt]{article}
\def\R{\mathbf{R}}
\def\Q{\mathbf{Q}}
\def\D{\mathbf{D}}
\def\Z{\mathbf{Z}}
\def\N{\mathbf{N}}
\everymath{\displaystyle}
\begin{document}
etex
 

beginfig(1); 
path p[];picture r[];
p1 = fullcircle scaled 12cm   ;
p2 = fullcircle scaled 10cm ;
p3 = fullcircle scaled 8cm ;
p4 = fullcircle scaled 6cm ;
p5 = fullcircle scaled 4cm ;
draw p1;draw p2;draw p3;draw p4;draw p5;
z1 = (5cm,3.316cm);
r1 = thelabel(btex $\R$ etex,z1);
unfill bbox r1; draw r1;
draw bbox r1;
z2 = (4cm,3cm);
r2 = thelabel(btex $\Q$ etex,z2);
unfill bbox r2; draw r2;
draw bbox r2;
z3 = (3cm,2.645cm);
r3 = thelabel(btex $\D$ etex,z3);
unfill bbox r3; draw r3;
draw bbox r3;
z4 = (2cm,2.236cm);
r4 = thelabel(btex $\Z$ etex,z4);
unfill bbox r4; draw r4;
draw bbox r4;
z5 = (1cm,1.732cm);
r5 = thelabel(btex $\N$ etex,z5);
unfill bbox r5; draw r5;
draw bbox r5;
z10 = (-3cm,4.5cm);
label.lft(btex $\pi$ etex, z10);
z11 = (3cm,-4.5cm);
label.lft(btex $\sqrt{2}$ etex, z11);
z12 = (1cm,4.5cm);
label.lft(btex $-\frac{3}{7}$ etex, z12);
z13 = (-2cm,-2.6cm);
label.lft(btex $3.12$ etex, z13);
z14 = (2cm,3.2cm);
label.lft(btex $-\frac{5}{100}$ etex, z14);
z15 = (-1.8cm,1.5cm);
label.lft(btex $-2$ etex, z15);
z16 = (1cm,-1cm);
label.lft(btex $1$ etex, z16);
z17 = (-1cm,1cm);
label.lft(btex $0$ etex, z17);
z18 = (2.7cm,0cm);
label.lft(btex $-3$ etex, z18);
z19 = (-2cm,-3.8cm);
label.lft(btex $\frac{25}{3}$ etex, z19);
endfig;
 
end