制作镂空曲面(Mathematica)

 时间:2024-10-13 11:58:42

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

制作镂空曲面(Mathematica)

2、在曲面上挖一个孔:Plot3D[x^2 - y^2, {x, -30, 30}, {y, -30, 30},RegionFunction -> Function[{x, y, z}, 10 < x^2 + y^2]

制作镂空曲面(Mathematica)

3、Sin[x] + Sin[y] < 1对应的区域是一个镂空的平面。RegionPlot[Sin[x] + Sin[y] < 1, {x, -30, 30}荑樊综鲶, {y, -30, 30}, Axes -> False, Frame -> False, PlotStyle -> Green]

制作镂空曲面(Mathematica)

4、就用这个方法来镂空曲面:Plot3D[x^2 - y^2, {x, 颍骈城茇-30, 30}, {y, -30, 30},RegionFunction -> Function[{x, y, 芰垄孕动z}, Sin[x] + Sin[y] < 1]

制作镂空曲面(Mathematica)

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

制作镂空曲面(Mathematica)

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

制作镂空曲面(Mathematica)

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

制作镂空曲面(Mathematica)
  • 如何制作涡旋效果
  • CAJ2022怎么使用高亮标记
  • Word中怎么输入sec正割函数
  • SolidWorks如何画时钟
  • C#怎么使用LinkLabel控件
  • 热门搜索
    黑豆怎么吃最补肾 小迷糊面膜怎么样 新益号普洱茶怎么样 instagram怎么读 手机怎么改路由器密码 圣安地列斯怎么招小弟 夏普电视怎么样 怎么用钱折爱心 淘宝名字怎么改 打印机不打印怎么回事