Flow Around a Rankine Half-Body

    In the case of the Rankine half-body, the Mathematica code needed to generate the animations is the following.

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

Here are some demonstrations of flow around the body.

AnimateRankineFlow[{-3/2, 1}, 1/3, 7, 0.25] ;

Rankine Flow (-3/2,1)

AnimateRankineFlow[{-3/2, 1/3}, 1/3, 7, 0.25] ;

Rankine Flow (-3/2,1/3)

AnimateRankineFlow[{-3/2, 1/4}, 1/3, 7, 0.25] ;

Rankine Flow (-3/2,1/4)