Tantangannya di sini adalah menggambarkan bunga kehidupan secara akurat (yang menurut beberapa tokoh geometri suci) dalam bahasa pilihan Anda.

Desain terdiri dari susunan lingkaran dan lingkaran parsial dari jari-jari 1 seperti yang diperlihatkan pusat-pusatnya tersusun pada kisi segitiga 1, ditambah satu lingkaran lebih besar dari jari-jari 3 yang mengelilinginya.

Desain dapat diskalakan sesuai keinginan Anda, tetapi kesalahan maksimal 2% dari koreksi matematis diizinkan. Jika menggunakan grafik raster, ini secara efektif membatasi diameter lingkaran kecil setidaknya 100 piksel.

Karena ini adalah kode-golf, kode terpendek (byte) menang.

Mathematica, 177 173 128 124 120 byte

c=Circle;Graphics@{{0,0}~c~3,Rotate[Table[If[-3<x-y<4,c[{√3x,-x+2y}/2,1,Pi/{6,2}]],{x,-3,2},{y,-4,2}],Pi/3#]&~Array~6}

Gagasan utamanya adalah menyusun hasil dari enam versi yang dirotasi ini:

Ini pada gilirannya adalah tabel persegi panjang dari lingkaran lingkaran identik dengan dua sudut terpotong. Jika kami menghapus geser dan mewakili setiap pusat lingkaran dengan #, kami pada dasarnya ingin mendistribusikan lingkaran dalam pola ini:

####
#####
######
######
 #####
  ####

Tepi-tepi ini terpotong dengan memaksakan kondisi -3 < x-y < 4pada indeks 2D (karena nilai x-ykonstan diagonal) dan geser berasal dari mengalikan ini xdan ydengan vektor basis non-ortogonal yang menjangkau grid yang kita cari.

Orientasi khusus dari busur yang tidak diputar ini ternyata menjadi yang terpendek karena kedua ujung busur membagi secara merata Pisehingga busur dapat dinyatakan sebagai Pi/{6,2}(semua busur lainnya akan memerlukan dan tambahan tanda minus atau bilangan bulat dalam pembilang).

OpenSCAD, 228 byte

$fn=99;module o(a=9){difference(){circle(a);circle(a-1);}}function x(n)=9*[sin(n*60),cos(n*60)];module q(g){for(i=[1:6])if(g>0){translate(x(i))union(){o();q(g-1);}}else{intersection(){translate(x(i))o();circle(9);}}}q(2);o(27);

Di bawah ini adalah versi yang memungkinkan seseorang untuk mengatur parameter r (radius) dan w (lebar cincin).

r=1;w=.1;$fn=99;module o(n){difference(){circle(n);circle(n-w);}}function x(n)=(r-w/2)*[sin(n*60),cos(n*60)];module q(g){for(i=[1:6])if(g>0){translate(x(i))union(){o(r);q(g-1);}}else{intersection(){translate(x(i))o(r);circle(r);}}}q(2);o(3*r-w);

Versi ini benar-benar 246 karakter.
Beberapa kode ini secara teknis tidak perlu tetapi membuatnya lebih mirip gambar.

Mathematica 263 Bytes

Tidak benar-benar kompetitif dengan pengajuan @ MartinEnder tapi saya senang dengan ini. Aku membiarkan kelopaknya berjalan secara acak! Kelopak berjalan dengan memutar 60 derajat secara acak tentang salah satu titik akhir yang juga dipilih secara acak. Saya menguji untuk melihat apakah ujung kelopak yang berputar jatuh di luar piringan besar, dan jika demikian, putarannya sebaliknya.

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}]}

Berikut adalah kode selanjutnya yang saya gunakan untuk animasi.

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}]]

Saya membaca di suatu tempat bahwa jalan acak 2 dimensi akhirnya harus kembali ke asal. Sepertinya beberapa ribu langkah menjamin pengisian disk besar.

JavaScript (ES6) / SVG, 299 byte

with(document){write(`<svg height=250 width=250><circle${b=` fill=none stroke=black `}cx=125 cy=125 r=120 />`);for(i=0;i<24;i++)write(`<path${b}d=M5,125${`${a=`a60,60,0,0,1,`}40,0`.repeat(i%4+3)+`${a}-40,0`.repeat(i%4+3)} transform=${`rotate(60,125,125)`.repeat(i>>2)}rotate(-60,${i%4*4}5,125) />`)}

Bekerja dengan menghasilkan beberapa pasangan busur dari berbagai panjang kemudian memutarnya ke tempatnya.