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