▪ Όμορφα μοτίβα - 22

Mια προοπτική για τα μαθηματικά, το μοτίβο και το αφηρημένο.

Mathematica code:

f[x_, y_] := {Log[Sqrt[(x)^2 + (y)^2]], ArcTan[x, y]}
ListAnimate[
Table[
ImageTransformation[
ImageResize[ImageTake[ImageCrop[
DensityPlot[
Sin[104.54*Abs[(x + I y)^2]],
{x, -2.5, 2.5}, {y, -2.5, 2.5}, PlotPoints -> 27,
Mesh -> False, Frame -> False, ColorFunction -> Hue, ImageSize -> 834],
800], {100 + t, 700 + t}, {100 - t, 700 - t}],{500, 500}],
f[#[[1]], #[[2]]] &, DataRange -> {{-Pi, Pi}, {-Pi, Pi}}],
{t, 0, 90, 10}],
10, AnimationRunning -> False]