3D坐标绘图

Question

我该如何在Mathematica中绘制三维坐标？我正在尝试使用Mathematica绘制三维点。我希望在完成后能够查看它们的外观。到目前为止，这是我所做的...我有成千上万个要绘制的点。

输入

a = {{2, 4, 5}, {3, 7, 9}, {6, 4, 5}, {5, 7, 5} , {7, 2, 1}} 
ListPointPlot3D[a] 

输出

{{2, 4, 5}, {3, 7, 9}, {6, 4, 5}, {5, 7, 5}, {7, 2, 1}}
ListPointPlot3D[{{2, 4, 5}, {3, 7, 9}, {6, 4, 5}, {5, 7, 5}, {7, 2, 1}}] 

我看不到图表。 非常感谢您的帮助！ -JOE

- user763465

---

当我使用ListPointPlot3D时，我看到了四个点。 - Daniel Lichtblau

我在使用Mathematica 7，我也能在一个3D盒子中看到四个点。你在使用哪个版本？ - Mr.Wizard

Answer 1

如果 ListPointPlot3D 返回未求值，并且您没有更改任何可能导致其无法工作的内容，那么可能是因为您正在使用 Mathematica 5 并从其他地方复制了此代码。

在这种情况下，请尝试使用：

a = {{2, 4, 5}, {3, 7, 9}, {6, 4, 5}, {5, 7, 5}, {7, 2, 1}};

Show[Graphics3D[Point /@ a]]

- Mr.Wizard