0 Usuarios y 1 Visitante están viendo este tema.
A = ContourPlot3D[x^6 + y^6 + z^6 == 1, {x, -1, 1}, {y, -1, 1}, {z, 0, 1}, ContourStyle -> Directive[Glow[Red]]]B = ContourPlot3D[x^6 + y^6 + z^6 == 1, {x, -1, 1}, {y, -1, 1}, {z, -1, 0},ContourStyle -> Directive[Glow[Blue]]]Show[A, B, PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}]