how to draw a circle using disks, the radii of the disks are 1, while the radius of the circle is $\sqrt 2 + \sqrt 6$

Question

How to draw a picture like this?

Suppose the centers of the disks are located on a circle of radius $\sqrt 2 + \sqrt 6$.

$\begingroup$ What have you tried? $\endgroup$
– MarcoB
Feb 27, 2021 at 2:29 — MarcoB, Feb 27, 2021 at 2:29

cvgmt · Accepted Answer · 2021-02-27 00:33:53Z

7

Graphics[Thread[{Reverse[Hue /@ Subdivide[0, 1, 11]], 
   Disk[#, 1] & /@ (RotateRight[(Sqrt[2] + Sqrt[6])*CirclePoints[12], 
      5])}]]

answered Feb 27, 2021 at 0:33

cvgmt

63.8k3 gold badges53 silver badges101 bronze badges

1

$\begingroup$ More compact version: Graphics[MapIndexed[{Hue[1 - #2/12], Disk[#, 1]} &, CirclePoints[{Sqrt[2] + Sqrt[6], 5 π/6}, 12]]] $\endgroup$
– J. M.'s eventual burnout ♦
Feb 27, 2021 at 6:18
$\begingroup$ @J.M. Thanks! $\phantom{}$ $\endgroup$
– cvgmt
Feb 27, 2021 at 7:34

Add a comment |

Bob Hanlon · Accepted Answer · 2021-02-27 00:33:48Z

4

Graphics[Transpose@
  {ColorData["SolarColors"] /@ Subdivide[11],
   Disk /@ CirclePoints[Sqrt[2] + Sqrt[6], 12]}]

answered Feb 27, 2021 at 0:33

Bob Hanlon

152k7 gold badges73 silver badges189 bronze badges

Add a comment |

2 Answers 2