Point Vortex Flow Around a Cylinder

    We continue with the corresponding demonstration for point vortex flow around a cylinder. Here is the Mathematica command to generate the animation.

Needs["Graphics`PlotField`"] ; AnimateVortexFlow[{xcenter_, ycenter_}, radius_, time ... 754;$DisplayFunction],  {tau, 0, time, timestep}] ; Return[picture] ; ] ;

Here is the resulting animation. Note how the circle is deformed.

AnimateVortexFlow[{-2, 1}, 1/2, 10, 0.25] ;

Vortex (-2,1)