Mathematica/3DContours

Mathematica 通过使用 MeshFunctions 选项支持曲面上的 3D 等值线。

MeshFunctions 绘制 x、y、z 值的任意函数的 ISO 线，对于某些函数则绘制附加参数。

对于一组常规高程等值线，我们只需要使用 MeshFunctions->{#3&} 使用 z 值（第三个参数）的身份函数

例如

Plot3D[Sin[x y], {x, 0, 3}, {y, 0, 3}, MeshFunctions -> {#3 &}]

此外，可以使用 MeshShading 选项对等值线之间的区域进行着色。以下示例将图像划分为 10 条高程等值线，并使用灰度进行着色。

Plot3D[Sin[x y], {x, 0, 3}, {y, 0, 3}, Mesh -> 10,  MeshFunctions -> {#3 &},  MeshShading -> GrayLevel /@ Range[0, 1, 0.1], Lighting -> "Neutral"]