Category Archives: Mathematica

. Mathematica code: ContourPlot3D[(x^2 + 9/4 y^2 + z^2 – 1)^3 – x^2 z^3 – 9/80 y^2 z^3 ==0, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}] You could remove the frames. Mathematica code: ContourPlot3D[(x^2 + 9/4 y^2 + … Continue reading →