Quasicrystalline patterns with 5, 7, 9, and 11-fold rotational symmetry.

Mathematica code:

S[x_, y_, w_, a_, t_] := 
Sin[w ((Cos[a] + Sin[a]) x + (Sin[a] - Cos[a]) y) + t*2 Pi]

G[N_, t_,] :=
Graphics[
Table[
Disk[
{x, y},
.55*(1 + Sum[S[x, y, w, a*2 Pi/N, t], {a, 0, N - 1, 1}]/(2 N))],
{x, -25, 25, 1}, {y, -25, 25, 1}],
PlotRange -> 25.85, ImageSize -> 500]

Manipulate[
G[N,t],
{N,{5,7,9,11}}, {t, 0, .95, .05}]
 
  1. spectralprankster reblogged this from intothecontinuum
  2. humanityandstuff reblogged this from intothecontinuum
  3. billycrystals reblogged this from intothecontinuum
  4. emmaboyce reblogged this from yourabode
  5. yourabode reblogged this from worclip and added:
    Proof art and science are one.
  6. dobqop reblogged this from worclip
  7. design999 reblogged this from worclip
  8. orionisconscious reblogged this from destinedreign
  9. world-of-tazcraft reblogged this from cinwan
  10. destinedreign reblogged this from worclip
  11. tremendousif reblogged this from worclip
  12. cinwan reblogged this from worclip
  13. pittykitty reblogged this from worclip
  14. worclip reblogged this from shinyslingback
  15. discobabadilated reblogged this from texturesofether
  16. texturesofether reblogged this from shinyslingback
  17. ronenreblogs reblogged this from intothecontinuum
  18. earlgrayscale reblogged this from fumblingthroughchaos
  19. spuslblue reblogged this from intothecontinuum
  20. eatsmenlikeair reblogged this from intothecontinuum
  21. peoplehatesme reblogged this from shinyslingback and added:
    Your head, when everything is just a mess.
  22. deliberatelyintentional reblogged this from charliexxx
  23. macadriano reblogged this from intothecontinuum