Flow in a Closed Channel

    The program to generate the animation for flow in a closed channel is given here.

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

Here is a demonstration.

AnimateClosedFlow[{-1/3, 3/4}, 1/10, 10, 0.25] ;

Flow in a Channel