Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- R = ImplicitRegion[
- x^6 - 5 x^4 y z + 3 x^4 y^2 + 10 x^2 y^3 z + 3 x^2 y^4 - y^5 z +
- y^6 + z^6 <= 1, {x, y, z}];
- r = DiscretizeGraphics @ RegionPlot3D[R,
- PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}, {-1.6, 1.6}},
- PlotPoints -> 50, Boxed -> False]
Add Comment
Please, Sign In to add comment