How to draw a picture like this?
Suppose the centers of the disks are located on a circle of radius $\sqrt 2 + \sqrt 6$.
Mathematica Stack Exchange is a question and answer site for users of Wolfram Mathematica. It only takes a minute to sign up.
Sign up to join this communityGraphics[Thread[{Reverse[Hue /@ Subdivide[0, 1, 11]],
Disk[#, 1] & /@ (RotateRight[(Sqrt[2] + Sqrt[6])*CirclePoints[12],
5])}]]
Graphics[MapIndexed[{Hue[1 - #2/12], Disk[#, 1]} &, CirclePoints[{Sqrt[2] + Sqrt[6], 5 π/6}, 12]]]
$\endgroup$
Feb 27, 2021 at 6:18
Graphics[Transpose@
{ColorData["SolarColors"] /@ Subdivide[11],
Disk /@ CirclePoints[Sqrt[2] + Sqrt[6], 12]}]