Задача здесь состоит в том, чтобы точно изобразить цветок жизни (который, по некоторым данным, является священной геометрической фигурой) на выбранном вами языке.

Конструкция состоит из расположения окружностей и частичных окружностей радиуса 1, как показано, центры которых расположены на треугольной сетке с шагом 1, плюс один большой круг радиуса 3, окружающий их.

Дизайн можно масштабировать по своему усмотрению, но допускается максимальная ошибка 2% от математически правильной. При использовании растровой графики это эффективно ограничивает диаметр маленьких кружков, по крайней мере, до 100 пикселей.

Поскольку это код-гольф, выигрывает самый короткий код (байты).

Mathematica, 177 173 128 124 120 байт

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}

Основная идея состоит в том, чтобы составить результат из шести повернутых версий этого:

Это, в свою очередь, прямоугольный стол из одинаковых дуг окружности с отрезанными двумя углами. Если мы уберем сдвиг и представим каждый центр окружности с помощью a #, мы в основном хотим распределить окружности по этой схеме:

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

Эти ребра обрезаются путем наложения условия -3 < x-y < 4на двумерные индексы (так как значение x-yявляется постоянным вдоль диагоналей), а сдвиг происходит путем умножения их xи yна неортогональные базисные векторы, которые охватывают сетку, которую мы ищем.

Эта конкретная ориентация не повернутых дуг оказывается самой короткой, поскольку оба конца дуги равномерно делятся, Piтак что дуга может быть выражена как Pi/{6,2}(для всех других дуг потребуется либо дополнительный знак минус, либо целые числа в числителе).

OpenSCAD, 228 байт

$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);

Ниже приведена версия, позволяющая установить параметры r (радиус) и w (ширина колец).

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);

Эта версия состоит из 246 символов.
Часть этого кода технически не нужна, но делает его более похожим на рисунок.

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-мерные случайные блуждания должны в конечном итоге вернуться к началу координат. Кажется, несколько тысяч шагов гарантируют заполнение большого диска.

JavaScript (ES6) / SVG, 299 байт

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) />`)}

Работает, генерируя несколько пар дуг различной длины, затем поворачивая их на место.