在Mathematica中定义隐式函数

Question

您好我想制作隐式函数的图表，例如：

ContourPlot3D[ {x^2 + y^2 + z^2 - 1==0, z == 3}, 
               {x, -10, 10}, {y, -10, 10}, {z, -10, 10}]

这样可行，但我更喜欢在ContourPlot3D []命令之外设置这些功能。有办法吗？