I am trying to solve convection diffusion equation in a rectangular domain with some hole inside. The periphery of these hole are applied to no slip boundary condition.
The flow has been initiated as a constant flow from a narrow inlet. Due to concentration gradient this could provide a flow pattern. But I am getting same contour plot for every time step. What is wrong about my code here? It would be very helpful for me if I can get any guidance from you.
… But I am getting same contour plot for every time step.
Not quite the same, but similar. If a logarithmic scaling is used, the differences become more visible:
prnt = ContourPlot[cfun[#, x, y], {x, -1, 1}, {y, -1, 1},
ColorFunction -> "Rainbow", Contours -> 10,
RegionFunction -> (RegionMember[\[CapitalOmega], {#1, #2}] &),
PlotRange -> Automatic,
ScalingFunctions -> "Log"] & /@ {.1, .2, .3};
GraphicsRow[prnt, Spacings -> -15, ImageSize -> 800]
