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

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

Type 1) form constant: tunnel
Mathematica code:VStripes[t_] :=
ImageCrop[
DensityPlot[
Cos[x - t*Pi/5],
{x, -20 Pi, 20 Pi}, {y, -20 Pi, 20 Pi},
PlotPoints -> 100, Mesh -> False, Frame -> False,
ColorFunction -> GrayLevel, ImageSize -> 522],
500]
ListAnimate[
Table[
VStripes[t],
{t, 0, .9, .1}]]
f[x_, y_] := {Log[Sqrt[(x)^2 + (y)^2]], ArcTan[x, y]}
ListAnimate[
Table[
ImageTransformation[
VStripes[t],
f[#[[1]], #[[2]]] &, DataRange -> {{-Pi, Pi}, {-Pi, Pi}}],
{t, 0, .9, .1}]]