给我一个mathematica代码，建立x，y轴，创建以y轴为对称轴的漏斗形曲面，再建立一个不过原点的倾斜曲面，给出立体图象

在Mathematica中，你可以使用`RevolutionPlot3D`函数来创建漏斗形曲面，而`ParametricPlot3D`函数则可以用来创建倾斜曲面。这里是一个例子：

首先，我们创建一个以y轴为对称轴的漏斗形曲面（例如抛物线绕y轴旋转）：

funnelSurface[x_, y_] := {x, y, y^2}
RevolutionPlot3D[funnelSurface[r Cos[\[Theta]], r Sin[\[Theta]]], {r, 0, 5}, {\[Theta], 0, 2 \[Pi]}, PlotStyle -> Opacity[0.8]]

接下来，我们创建一个不过原点的倾斜曲面（比如斜平面z = x + y）：

tiltedSurface[u_, v_] := {u, v, u + v}
ParametricPlot3D[{u, v, tiltedSurface[u, v]}, {u, -5, 5}, {v, -5, 5}, BoxRatios -> Automatic, PlotStyle -> Red]

最后，将这两个图形合并成一个立体图像：

Show[
{
  RevolutionPlot3D[funnelSurface[r Cos[\[Theta]], r Sin[\[Theta]]], {r, 0, 5}, {\[Theta], 0, 2 \[Pi]}, PlotStyle -> Opacity[0.8]],
  ParametricPlot3D[{u, v, tiltedSurface[u, v]}, {u, -5, 5}, {v, -5, 5}, BoxRatios -> Automatic, PlotStyle -> Red]
},
BoxRatios -> {1, 1, 1}, Lighting -> "Neutral", ViewPoint -> Front
]