Mathematica code:
G[A_, B_, s_, N_, T_, t_, pr_, th_] := Graphics[  {EdgeForm[{AbsoluteThickness[th], Black}], FaceForm[White],    Polygon[    Table[     {{0, 0},      {(Cos[4a+s*t]+Sin[4a+s*t])Cos[a+s*t], (Cos[4a+s*t]+Sin[4a+s*t]) Sin[a+s*t]},      {(Cos[4a+s+s*t]+Sin[4a+s+s*t])Cos[a+s+s*t], (Cos[4a+s+s*t]+Sin[4a+s+s*t]) Sin[a+s+s*t]}},     {a, B + T, A + T, 2 Pi/N}]]},   PlotRange -> pr, ImageSize -> 500]Manipulate[G[2Pi, 0, .75, 200, T, 0, 1.5, .3],{T,0,2Pi}]

Mathematica code:


G[A_, B_, s_, N_, T_, t_, pr_, th_] :=
Graphics[
{EdgeForm[{AbsoluteThickness[th], Black}], FaceForm[White],
Polygon[
Table[
{{0, 0},
{(Cos[4a+s*t]+Sin[4a+s*t])Cos[a+s*t], (Cos[4a+s*t]+Sin[4a+s*t]) Sin[a+s*t]},
{(Cos[4a+s+s*t]+Sin[4a+s+s*t])Cos[a+s+s*t], (Cos[4a+s+s*t]+Sin[4a+s+s*t]) Sin[a+s+s*t]}},
{a, B + T, A + T, 2 Pi/N}]]},
PlotRange -> pr, ImageSize -> 500]

Manipulate[
G[2Pi, 0, .75, 200, T, 0, 1.5, .3],
{T,0,2Pi}]
 
  1. spoirme reblogged this from bostongeorge17
  2. gajuu reblogged this from cpjose
  3. cpjose reblogged this from do-math
  4. thordeurantia reblogged this from thephynster
  5. thephynster reblogged this from chillypepperhothothot
  6. chillypepperhothothot reblogged this from lillypotpie
  7. jeanderoche reblogged this from intothecontinuum
  8. interrialltumbler44 reblogged this from thepoemthatdoesntrhyme
  9. thepoemthatdoesntrhyme reblogged this from microcosmicmorganism
  10. celestialfrequenciesalign reblogged this from microcosmicmorganism
  11. maxovodc reblogged this from microcosmicmorganism
  12. microcosmicmorganism reblogged this from starpillow
  13. dreamer232 reblogged this from nomatternevermind
  14. 0111897 reblogged this from starpillow
  15. nomatternevermind reblogged this from cabdawg12
  16. cabdawg12 reblogged this from starpillow
  17. starpillow reblogged this from a-ltmer
  18. alterbeing reblogged this from intothecontinuum
  19. thevertical360 reblogged this from intothecontinuum
  20. nampura reblogged this from intothecontinuum
  21. rosenclitter reblogged this from atemporal-emptiness
  22. clazzjassicalrockhop reblogged this from intothecontinuum
  23. sherms9 reblogged this from plusventus
  24. first-date-kit reblogged this from awtistictrippyfeyboy
  25. awtistictrippyfeyboy reblogged this from mentalalchemy
  26. dzumeister reblogged this from worldkelser
  27. secksyviews reblogged this from thewizardofweird
  28. maxwellstirling reblogged this from thewizardofweird