Advertisement
Guest User

Untitled

a guest
Feb 25th, 2017
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.45 KB | None | 0 0
  1. l = 3
  2. r = ImplicitRegion[(x^2 + y^2)^3 == l *x^2* y^2, {x, y}];
  3. RegionPlot[r]
  4.  
  5. RegionPlot[r, PlotStyle -> None]
  6.  
  7. ContourPlot[
  8. (x^2 + y^2)^3 == l*x^2*y^2,
  9. {x, y} ∈ Rectangle[{-0.8, -0.8}, {0.8, 0.8}],
  10. PlotPoints -> 100, MaxRecursion -> 3
  11. ]
  12.  
  13. reg = ImplicitRegion[(x^2 + y^2)^3 <= 3 x^2 y^2, {x, y}];
  14. bndy = RegionBoundary[reg];
  15. RegionPlot[bndy]
  16.  
  17. r = ImplicitRegion[(x^2 + y^2)^3 < 3 x^2 y^2, {x, y}];
  18. RegionPlot[r, PlotStyle -> White]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement