
Intothecontinuum: Best If Viewed On Your Tumblr Dashboard Mathematica Code: P[A_, F_, W_, H_, M_, Y_, T_] := Plot[ Table[ A*Sin[F*X + T + N*2 Pi/W] + H*N, {N, 1, M, 1}], {X, 0, 4 Pi}, Plotstyle -&Amp;Gt; Directive[White, Absolutethickness[3]],

Intothecontinuum: Mathematica Code:rot80 = Table[ Table[ Rotationtransform[A, {1, 1, 0}, {0, 0, 0}][Tuples[{-1, 1}, 3][[V]]], {V, 1, 8, 1}],{A, 0, 2 Pi, Pi/80}]Edge := {1, 2, 4, 3, 7, 8, 6, 5, 1, 3, 4, 8, 7, 5, 6, 2}Cubetrail[H_, Op_, N_, S_, R_,

Intothecontinuum: Best If Viewed On Your Tumblr Dashboard Mathematica Code: P[A_, F_, W_, H_, M_, Y_, T_] := Plot[ Table[ A*Sin[F*X + T + N*2 Pi/W] + H*N, {N, 1, M, 1}], {X, 0, 4 Pi}, Plotstyle -&Amp;Gt; Directive[White, Absolutethickness[3]],