Σάββατο 30 Ιουνίου 2012

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

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

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}]

Δεν υπάρχουν σχόλια:

Δημοσίευση σχολίου