I'm trying to plot streamlines of Stokes solution to an sphere, the expression of streamlines is
I've seen similar questions before and this what I have tried
As you can see, a=1, U=1, but it seems not to work, any help? Thanks
Mathematica Stack Exchange is a question and answer site for users of Wolfram Mathematica. It only takes a minute to sign up.
Sign up to join this communityI'm trying to plot streamlines of Stokes solution to an sphere, the expression of streamlines is
I've seen similar questions before and this what I have tried
As you can see, a=1, U=1, but it seems not to work, any help? Thanks
Perhaps ContourPlot
is what you are looking for?
Try (Thanks to
MarcoB for his answer and definition of simpler
)
ContourPlot[simpler, {x, -2, 2}, {y, 0, 2} ,Contours -> Table[-10^-i, {i, 0, 4}],MaxRecursion -> 4]
ContourPlot[…,RegionFunction->Function[{x,y},x^2+y^2>= 1]
$\endgroup$
Jun 26, 2020 at 8:06
expr =
With[
{r = Sqrt[x^2 + y^2], theta = ArcTan[x, y]},
-1/4 (Sin[theta]^2) (1/r - 3 r + 2 r^2)
]
simpler = FullSimplify[ExpandAll@expr]
Region[
ImplicitRegion[simpler == 0, {{x, -2, 2}, {y, 0, 2}}],
Axes -> False, Frame -> True,
PlotRange -> {{-2, 2}, {-2, 2}}
]