Advertisement
Guest User

Untitled

a guest
Jul 26th, 2014
205
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.79 KB | None | 0 0
  1. ContourPlot3D[(x^2 + 9/4 y^2 + z^2 - 1)^3 == x^2 z^3 + 9/80 y^2 z^3,
  2. {x, -6/5, 6/5}, {y, -6/5, 6/5}, {z, -6/5, 3/2},
  3. Mesh -> None, Boxed -> False, AxesLabel -> {"x", "y", "z"},
  4. PlotPoints -> 50, Axes -> False,
  5. ContourStyle -> Directive[Red, Opacity[0.58], Specularity[Yellow, 30]],
  6. AspectRatio -> 1.15, ViewPoint ->{-0.930, -3.137, -0.860}]
  7.  
  8. ContourPlot3D[(x^2 + 9/4 y^2 + z^2 - 1) == CubeRoot[x^2 z^3 + 9/80 y^2 z^3],
  9. {x, -6/5, 6/5}, {y, -6/5, 6/5}, {z, -6/5, 3/2}, Mesh -> None, Boxed -> False,
  10. AxesLabel -> {"x", "y", "z"}, Axes -> False,
  11. ContourStyle -> Directive[Red, Opacity[0.58], Specularity[Yellow, 30]],
  12. AspectRatio -> 1.15, ViewPoint -> {-0.930, -3.137, -0.860}]
  13.  
  14. (x^2 + 9/4 y^2 + z^2 - 1)^3 == x^2 z^3 + 9/80 y^2 z^3 /. z -> 0
  15.  
  16. (-1 + x^2 + (9 y^2)/4)^3 == 0
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement