Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- l = 3
- r = ImplicitRegion[(x^2 + y^2)^3 == l *x^2* y^2, {x, y}];
- RegionPlot[r]
- RegionPlot[r, PlotStyle -> None]
- ContourPlot[
- (x^2 + y^2)^3 == l*x^2*y^2,
- {x, y} ∈ Rectangle[{-0.8, -0.8}, {0.8, 0.8}],
- PlotPoints -> 100, MaxRecursion -> 3
- ]
- reg = ImplicitRegion[(x^2 + y^2)^3 <= 3 x^2 y^2, {x, y}];
- bndy = RegionBoundary[reg];
- RegionPlot[bndy]
- r = ImplicitRegion[(x^2 + y^2)^3 < 3 x^2 y^2, {x, y}];
- RegionPlot[r, PlotStyle -> White]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement