Kod:
LineThickness = 1/400;
Rect = Graphics[{EdgeForm[Thickness[LineThickness]], White,
Rectangle[{0, 0}, {b, h}]}];
pM1 = Graphics[Disk[M1, 1/12]];
pM2 = Graphics[Disk[M2, 1/12]];
per1 = M1 + r {Cos[-45 \[Degree]], Sin[-45 \[Degree]]};
per2 = M2 + r {Cos[-45 \[Degree]], Sin[-45 \[Degree]]};
c1 = Graphics[{Thickness[LineThickness*1.5], Circle[M1, r]}];
c2 = Graphics[{Thickness[LineThickness*1.5], Circle[M2, r]}];
line = Graphics[{Dashed, Line[{M1, M2, {M1[[1]], M2[[2]]}, M1}]}];
radius = Graphics[{Line[{M1, per1}], Line[{M2, per2}]}];
TM1 = Graphics[
Text["M1= " <> ToString[M1],
M1 + .5 {Cos[-135 \[Degree]], Sin[-135 \[Degree]]} - {.5, 0}]];
TM2 = Graphics[
Text["M2 = " <> ToString[M2],
M2 + .5 {Cos[45 \[Degree]], Sin[45 \[Degree]]} + {.5, 0}]];
Tr1 = Graphics[
Text["r = " <> ToString[r],
1/2 (M1 + per1) + .5 {Cos[35 \[Degree]], Sin[35 \[Degree]]}]];
Tr2 = Graphics[
Text["r = " <> ToString[r],
1/2 (M2 + per2) + .5 {Cos[35 \[Degree]], Sin[35 \[Degree]]}]];
T1 = Graphics[Text["x = " <> ToString[x], 1/2 (M1 + M2) + {0, .8}]];
T2 = Graphics[
Text["y = " <> ToString[y],
1/2 (M1 + {M1[[1]], M2[[2]]}) + {-.55, 0}]];
Td = Graphics[Text["d = " <> ToString[d], 1/2 (M1 + M2) + {0, -.4}]];
Tb = Graphics[Text["b = " <> ToString[b], {1/2 b, 0} + {0, -.4}]];
Th = Graphics[Text["h = " <> ToString[h], {b, 1/2 h} + {.7, 0}]];
Show[Rect, pM1, c1, pM2, c2, line, radius, TM1, TM2, Tr1, Tr2, T1, \
T2, Td, Tb, Th]