3d坐标图形

Question

如何在mathematica中绘制3d坐标？我试图用mathematica绘制3d点。我想在完成后查看它们的样子。到目前为止，这就是我所做的......我有数千点可以用来绘制fyi。

输入

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

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]]