wolfram-mathematica - 断面 - Mathematica

Question

Mathematica と入力がある場合：

ParametricPlot3D[{Sin[u], Sin[v], Sin[u + v]}, {u, 0, 2 Pi}, {v, 0, 2 Pi]

側面がつぶれた立方体のような 3D ソリッドを生成します。私がやりたいことは、水平面でこの立体の断面をとることです: z = 0、z = 1、z= -1、z= 1/2、およびz= -1/2。

これらの断面のプロットを生成するコマンドは何ですか?

Answer 1

RegionFunctionこれは、サーフェスをプロットできる場所を決定するブール条件である を指定することで実行できます。ここでは、使用します

RegionFunction -> Function[{x, y, z}, z < a]

どこでa交差する平面にしたい高さです。これを説明するために、次のムービーを作成します。

t = Table[
  ParametricPlot3D[{Sin[u], Sin[v], Sin[u + v]}, {u, 0, 2 Pi}, {v, 0, 
    2 Pi}, RegionFunction -> Function[{x, y, z}, z < a], 
   PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}], 
 {a, 1, -1, -.1}
]

次に、アニメーションとしてエクスポートしてGIF、以下に含めます。

Export["section.gif", Join[t, Rest[Reverse[t]]]]