Выбери одну точку, и попробуй следить за ней как можно дольше!
вот на середине следить легко, но когда доходит до стенок то все, теряется
26.09.2012, 09:42
Эта штуковина написана на Wolfram Mathematica, вот код:
G[p_, q_, a_, b_, c_, t_] :=
Graphics[
Table[
{Opacity[.7],
Disk[
{.71*Cos[a (.04*t + n)*2 Pi/1000 + p],
Cos[b (.04*t + n)*2 Pi/1000 + q]},
.002*Cos[c (.04*t + n)*2 Pi/1000] + .005]},
{n, 1, 1000}],
PlotRange -> {{-.715, .715}, {-1.005, 1.005}}, ImageSize -> 500]
Manipulate[
Show[
G[0, .2, 29, 13, 11, t],
G[0, .2, 19, 31, 9, t],
G[.3, .29, 3, 23, 17, t],
G[0, .3, 43, 7, 3, t],
G[.1, .13, 31, 19, 2, t]],
{t,1,25,1}]
G[p_, q_, a_, b_, c_, t_] :=
Graphics[
Table[
{Opacity[.7],
Disk[
{.71*Cos[a (.04*t + n)*2 Pi/1000 + p],
Cos[b (.04*t + n)*2 Pi/1000 + q]},
.002*Cos[c (.04*t + n)*2 Pi/1000] + .005]},
{n, 1, 1000}],
PlotRange -> {{-.715, .715}, {-1.005, 1.005}}, ImageSize -> 500]
Manipulate[
Show[
G[0, .2, 29, 13, 11, t],
G[0, .2, 19, 31, 9, t],
G[.3, .29, 3, 23, 17, t],
G[0, .3, 43, 7, 3, t],
G[.1, .13, 31, 19, 2, t]],
{t,1,25,1}]
ну а нахуя?
Глаза мне запили!
Глаза мне запили!
броуновское движение какое-т
Чтобы написать коммент, необходимо залогиниться
