Формула мандарина
ContourPlot3D[
1.44*x^2 + y^2 + z^2 + 1/Sqrt[Abs[Cos[5*ArcTan[z/y]]]] +
1/(y^2 + z^2) + 3/(x^2 + y^2 + z^2) == 9,
{x, -3, 3}, {y, -3, 3}, {z, -3, 3}, Mesh -> None,
ContourStyle -> Directive[
Specularity[RGBColor[1, 0.8, 0], 20], Orange,
Lighting -> {{"Directional", White, {0, 0, 4}},
{"Ambient", Darker[White]}}]]
( Collapse )