Mια προοπτική για τα μαθηματικά, το μοτίβο και το αφηρημένο.
Mathematica code:
Mathematica code:
Animate[
DensityPlot[
Sin[100*Abs[(x + I y)^n]],
{x, -2.5, 2.5}, {y, -2.5, 2.5},
PlotPoints -> 30, Mesh -> False, Frame -> False, ColorFunction -> Hue],
{n, .7, .74}]
DensityPlot[
Sin[100*Abs[(x + I y)^n]],
{x, -2.5, 2.5}, {y, -2.5, 2.5},
PlotPoints -> 30, Mesh -> False, Frame -> False, ColorFunction -> Hue],
{n, .7, .74}]
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου