Flow in a Corner

    The corresponding animations in the corner θ≤π/3 can be generated by the following.

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

Here is an example.

AnimateCorner60Flow[{2/3, 9/10}, 1/10, 12, 0.25] ;

Flow in a 60 Corner

    The corresponding animations in θ≤π/4 can be generated by this modified command.

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

Here is the result.

AnimateCorner45Flow[{7/10, 1/2}, 1/10, 10, 0.25] ;

Flow in a 45 Corner