User Portlet User Portlet

Vitaliy Kaurov
Wolfram Research
LOCATION: USA
PERSONAL WEBSITE: http://kaurov.com
BIO:

I am a member of the Technical Communication and Strategy group at Wolfram Research. I get to play with almost every tidbit of the technologies we develop, build exemplary usage cases, and showcase them to the world through our sites and events.

A physicist by education I received my PhD from The City University of New York (CUNY). I did research on ultra-cold quantum gases, non-linear dynamical systems and chaos, and was a professor at CUNY teaching math and physics. I did most of my scientific workflows, from computing to design, with Mathematica. I also publish at The Wolfram Demonstration Project, write for Wolfram Blog, and am a faculty member at The Wolfram Science Summer School. Among these and other things, I oversee management and moderation of Wolfram Community.

Some of my posts on this site:

And here is a postcard from me to you made with Wolfram Language - cheers!

enter image description here

PD = .5; 
s[t_, f_] := t^.6 - f;

dt[cl_, ps_, sg_, hf_, dp_, f_] :=
{PointSize[ps], Hue[cl, 1, .6 + sg .4 Sin[hf s[t, f]]],
Point[{-sg s[t, f] Sin[s[t, f]], -sg s[t, f] Cos[s[t, f]], dp + s[t, f]}]};

frames = ParallelTable[Graphics3D[Table[{
dt[1, .01, -1, 1, 0, f], dt[.45, .01, 1, 1, 0, f],
dt[1, .005, -1, 4, .2, f], dt[.45, .005, 1, 4, .2, f]},
{t, 0, 200, PD}],
ViewPoint -> Left, BoxRatios -> {1, 1, 1.3}, ViewVertical -> {0, 0, -1},
ViewCenter -> {{0.5, 0.5, 0.5}, {0.5, 0.55}}, Boxed -> False,
PlotRange -> {{-20, 20}, {-20, 20}, {0, 20}}, Background -> Black],
{f, 0, 1, .01}];

Export["tree.gif", frames]