制作镂空曲面（Mathematica）

1、先来画一个曲面：z==x^2 - y^2。

2、在曲面上挖一个孔：

Plot3D[x^2 - y^2, {x, -30, 30}, {y, -30, 30}, 

 RegionFunction -> Function[{x, y, z}, 10 < x^2 + y^2]

3、Sin[x] + Sin[y] < 1对应的区域是一个镂空的平面。

RegionPlot[Sin[x] + Sin[y] < 1, {x, -30, 30}, {y, -30, 30}, 

  Axes -> False, Frame -> False, PlotStyle -> Green]

4、就用这个方法来镂空曲面：

Plot3D[x^2 - y^2, {x, -30, 30}, {y, -30, 30}, 

 RegionFunction -> Function[{x, y, z}, Sin[x] + Sin[y] < 1]

5、用Sin[x + Cos[x]] + Cos[y + Sin[x]] < 1来镂空。

6、Sin[x + Cos[x]] + Cos[y + Sin[x]] < 0.1

7、x*Sin[x] + y*Cos[y] < 2