在前面的文章《用Mathematica制作镂空曲面》中,我们学习了一种绘制镂空球面的方法,就是把某些网格线之间的颜色设为无色,这样,看起来就是镂空的效果。本文,介绍另一种方法来绘制镂空曲面。
工具/原料
1
电脑
2
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