生命之花

Question

这里的挑战是用你所选择的语言准确地描绘生命之花(在某些人看来，这是一个神圣的几何图形)。

该设计包括半径1的圆和部分圆的排列，如图所示，其中心排列在节距1的三角形网格上，再加上半径3的一个较大圆围绕在它们周围。

该设计可以根据您的喜好进行缩放，但允许从数学上纠正最大误差2%。如果使用光栅图形，这有效地限制了小圆圈的直径至少100像素。

因为这是代码-高尔夫，最短的代码(字节)获胜。

Answer 1

Mathematica，263字节

与@MartinEnder的投稿相比，并不是很有竞争力，但我还是玩得很开心。我让花瓣做了一次随机行走！花瓣在其中一个端点附近随机旋转60度，这也是随机选择的。我试着看看花瓣的旋转端是否落在大圆盘之外，如果是的话，旋转是相反的。

c=Circle;a=√3;v={e=0{,},{0,2}};f=RandomChoice;Graphics@{e~c~6,Table[q=f@{1,2};t=f@{p=Pi/3,-p};r=RotationTransform[#,v[[q]]]&;v=r[If[r[t]@v[[-q]]∈e~Disk~6,t,-t]]@v;Translate[Rotate[{c[{1,a},2,p{4,5}],c[{1,-a},2,p{1,2}]},ArcTan@@(#-#2)&@@v,e],v[[2]]],{5^5}]}

下面是我在动画中使用的后续代码。

Export[NotebookDirectory[]<>"flower.gif", Table[Graphics[Join[{c[e,6]},(List@@%)[[1,2,1;;n-1]],{Thick,Red,(List@@%)[[1,2,n]]}]],{n,1,3^4,1}]]

我在某个地方读到，二维随机游动最终必须回到原点。似乎几千步就能保证填充大磁盘。