Die Herausforderung besteht darin, die Blume des Lebens (die nach Ansicht einiger eine heilige geometrische Figur ist) in der Sprache Ihrer Wahl genau darzustellen.

Der Entwurf besteht aus einer Anordnung von Kreisen und Teilkreisen mit Radius 1, deren Zentren auf einem Dreiecksgitter der Teilung 1 angeordnet sind, plus einem größeren Kreis mit Radius 3, der sie umgibt.

Das Design kann beliebig skaliert werden, es ist jedoch ein Fehler von maximal 2% aus mathematisch korrekten Gründen zulässig. Wenn Sie Rastergrafiken verwenden, wird der Durchmesser der kleinen Kreise effektiv auf mindestens etwa 100 Pixel begrenzt.

Da dies Codegolf ist, gewinnt der kürzeste Code (Bytes).

Mathematica, 177 173 128 124 120 Bytes

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}

Die Hauptidee ist, das Ergebnis aus sechs gedrehten Versionen davon zusammenzusetzen:

Dies ist wiederum ein rechteckiger Tisch aus identischen Kreisbögen mit zwei abgeschnittenen Ecken. Wenn wir die Scherung entfernen und jeden Kreismittelpunkt mit einem darstellen #, möchten wir die Kreise grundsätzlich in diesem Muster verteilen:

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

Diese Kanten werden abgeschnitten, indem -3 < x-y < 4den 2D-Indizes die Bedingung auferlegt wird (da der Wert von x-yentlang der Diagonalen konstant ist) und die Scherung durch Multiplikation dieser xund ynicht orthogonaler Basisvektoren, die das gesuchte Gitter überspannen, erfolgt.

Diese besondere Ausrichtung der nicht gedrehten Bögen erweist sich als die kürzeste, da sich beide Enden des Bogens gleichmäßig teilen, Piso dass der Bogen ausgedrückt werden kann als Pi/{6,2}(alle anderen Bögen würden entweder ein zusätzliches Minuszeichen oder Ganzzahlen im Zähler erfordern).

OpenSCAD, 228 Bytes

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

Das Folgende ist eine Version, mit der jemand die Parameter r (Radius) und w (Breite der Ringe) einstellen kann.

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

Diese Version ist genau 246 Zeichen.
Ein Teil dieses Codes ist technisch nicht erforderlich, lässt ihn jedoch eher wie das Bild aussehen.

Mathematica 263 Bytes

Mit @ MartinEnders Beitrag nicht wirklich konkurrenzfähig, aber ich hatte trotzdem Spaß daran. Ich lasse die Blütenblätter einen zufälligen Spaziergang machen! Das Blütenblatt dreht sich zufällig um 60 Grad um einen der Endpunkte, der ebenfalls zufällig ausgewählt wird. Ich prüfe, ob das rotierende Ende des Blütenblattes außerhalb der großen Scheibe liegt, und wenn ja, läuft die Rotation in die andere Richtung.

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

Hier ist der nachfolgende Code, den ich für die Animation verwendet habe.

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

Ich habe irgendwo gelesen, dass zweidimensionale Irrwege irgendwann zum Ursprung zurückkehren müssen. Es scheint, als ob ein paar tausend Schritte das Füllen der großen Scheibe garantieren.

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

Es werden mehrere Bogenpaare unterschiedlicher Länge erzeugt und dann gedreht.