Mathematica——绘制3D图形

Plot3D

Plot3D[ + 0.85 x +  y, {x, -, }, {y, -, }]

ListPointPlot3D

绘制点集

ListPointPlot3D[{{, , }, {, , }}, ColorFunction -> Function[{x, y, z}, Hue[0.03, , ]]]

其中使用ColorFunction设置点的颜色为红色：

使用组合的形式将两个图合二为一

使用show函数

Show[
　　Plot3D[ + 0.85 x +  y, {x, -, }, {y, -, }], 
　　ListPointPlot3D[{{, , }, {, , }}, ColorFunction -> Function[{x, y, z}, Hue[0.03, , ]]]
]

可以看到两个图显示在一个坐标系内了，不过合并之后的图没有办法通过面板设置样式，只能通过代码设置样式，因此先单个图形设置好样式之后再合并。

Show[
　　Plot3D[ + 0.85 x +  y, {x, -, }, {y, -, },
  　　　　MeshStyle -> Directive[GrayLevel[], Dotted], Mesh -> Automatic,
  　　　　MeshFunctions -> Automatic, PlotStyle -> Directive[GrayLevel[], Opacity[0.264`]]],
　　ListPointPlot3D[{{, , }, {, , }}, ColorFunction -> Function[{x, y, z}, Hue[0.03, , ]]]
]

效果：