Tag Info

New answers tagged

1

Using @MarkMcClure's method eq1 = x^2 + y^2 + z^2 == 1; deriv1 = Derivative[1, 0][z][x, y] /. First[Solve[D[eq1 /. z -> z[x, y], x], Derivative[1, 0][z][x, y]]] /. z[x, y] -> z; with the options Mesh, MeshFunctions and MeshShading gives: ContourPlot3D[Evaluate[eq1], {x, -1, 1}, {y, -1, 1}, {z, -1, 1}, Mesh ...



Top 50 recent answers are included