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. phillieberto reblogged this from rottytooth
  5. emmaboyce reblogged this from yourabode
  6. yourabode reblogged this from worclip and added:
    Proof art and science are one.
  7. dobqop reblogged this from worclip
  8. design999 reblogged this from worclip
  9. orionisconscious reblogged this from destinedreign
  10. world-of-tazcraft reblogged this from cinwan
  11. destinedreign reblogged this from worclip
  12. tremendousif reblogged this from worclip
  13. cinwan reblogged this from worclip
  14. pittykitty reblogged this from worclip
  15. worclip reblogged this from shinyslingback
  16. discobabadilated reblogged this from texturesofether
  17. texturesofether reblogged this from shinyslingback
  18. ronenreblogs reblogged this from intothecontinuum
  19. earlgrayscale reblogged this from fumblingthroughchaos
  20. spuslblue reblogged this from intothecontinuum
  21. eatsmenlikeair reblogged this from intothecontinuum
  22. peoplehatesme reblogged this from shinyslingback and added:
    Your head, when everything is just a mess.