User Portlet User Portlet

Vitaliy Kaurov
Vitaliy Kaurov
Wolfram Research
Collaboration Consulting Meet ups Mentorships Networking

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 the academic director of 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:

I also code on other forums:

profile for Vitaliy Kaurov at Mathematica Stack Exchange, Q&A for users of Wolfram Mathematica

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]