Music: “Pattern 3” by Moritz Von Oswald Trio


Mathematica
code:

Animate[
  Graphics[
    Line[
      Table[{-.99^n*Sin[n*a], .99^n*Cos[n*a]}, {n, 0, 1000}]],
  PlotRange -> 0.0918],
{a, 3.18, 2.96}]
 
  1. ambitrek reblogged this from intothecontinuum
  2. exomene reblogged this from intothecontinuum
  3. abstractnerd reblogged this from intothecontinuum
  4. theaggiephysicist reblogged this from intothecontinuum
  5. intothecontinuum posted this