Wolfram mathematica 在同一3D打印中打印、平面、点、线、球体。Mathematica中同一绘图中的多个图形

例如，如何在同一个3D绘图中绘制平面和直线？

Show

和

Plot3D

可以处理它。可能还有很多其他的方法

l = Line[{{-2, -2, 41}, {6, 4, -10}}];

Show[{Plot3D[{2 x + 7 y}, {x, -2, 5}, {y, -2, 5},  AxesLabel -> {x, y, z}], 
      Graphics3D[{Thick, l}]}]

只是炫耀一下：

---

我也无法抗拒

GraphicsGrid[
 {
  {ContourPlot3D[x + 2 y + 3 z , {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
    Contours -> {0}, Axes -> None, ColorFunction -> (White &), 
    Lighting -> "Neutral"], 
   Style["One plane", FontFamily -> "Comic Sans MS", 36, Bold]},
  {ContourPlot3D[x + 2 y + 3 z , {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
    Contours -> {0, 5}, Axes -> None, ColorFunction -> (Green &), 
    Lighting -> "Neutral"], 
   Style["Two plane", FontFamily -> "Comic Sans MS", 36, Bold]},
  {ContourPlot3D[x + 2 y + 3 z , {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
    Contours -> {0}, Axes -> None, ColorFunction -> (Red &), 
    Lighting -> "Neutral"], 
   Style["Red plane", FontFamily -> "Comic Sans MS", 36, Bold]},
  {Show[
    ContourPlot3D[x + 2 y + 3 z , {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
     Contours -> {0}, Axes -> None, ColorFunction -> (Blue &), 
     Lighting -> "Neutral"],
    Graphics3D[{Orange, Thickness[0.01], 
      Line[{{-2, -2, -2}, {2, 2, 2}}]}]
    ], Style["Blue plane", FontFamily -> "Comic Sans MS", 36, Bold]}
  }
 ]

---

在你发表评论之前，你可能想在和@David中学习一些参考资料：我知道“plane”的复数形式；-）@大卫对于那些不是苏斯博士开悟的人，请看@belisarius Meshes。通过添加

Mesh->None

可以删除它们，这样可以使平面看起来更干净，但会降低深度感。在这种情况下，你所说的鳞片是什么意思？@belisarius回想起来，你一定是指皮肤状况。我的思维定势是由我自己使用的

Axes->None

形成的，所以我以为你是在说这个。很抱歉没有听到双关语。第二个“平面”显然是一个动词。@Sjoerd那是里面的艺术家me@belisarious我以为那是个鸡蛋，所以你的照片对我来说很有意义。

GraphicsGrid[
 {
  {ContourPlot3D[x + 2 y + 3 z , {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
    Contours -> {0}, Axes -> None, ColorFunction -> (White &), 
    Lighting -> "Neutral"], 
   Style["One plane", FontFamily -> "Comic Sans MS", 36, Bold]},
  {ContourPlot3D[x + 2 y + 3 z , {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
    Contours -> {0, 5}, Axes -> None, ColorFunction -> (Green &), 
    Lighting -> "Neutral"], 
   Style["Two plane", FontFamily -> "Comic Sans MS", 36, Bold]},
  {ContourPlot3D[x + 2 y + 3 z , {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
    Contours -> {0}, Axes -> None, ColorFunction -> (Red &), 
    Lighting -> "Neutral"], 
   Style["Red plane", FontFamily -> "Comic Sans MS", 36, Bold]},
  {Show[
    ContourPlot3D[x + 2 y + 3 z , {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
     Contours -> {0}, Axes -> None, ColorFunction -> (Blue &), 
     Lighting -> "Neutral"],
    Graphics3D[{Orange, Thickness[0.01], 
      Line[{{-2, -2, -2}, {2, 2, 2}}]}]
    ], Style["Blue plane", FontFamily -> "Comic Sans MS", 36, Bold]}
  }
 ]