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}]]
나는 2 차원 랜덤 워크가 결국 원점으로 돌아와야한다는 곳을 읽었습니다. 큰 디스크를 채우는 것은 수천 단계로 보입니다.