3D坐标绘图

Question

如何在mathematica中绘制3d坐标？我正在尝试使用 mathematica 绘制 3d 点。我也想看看完成后它们是什么样子。到目前为止，这就是我所做的...我有数千个点要绘制仅供引用。

输入

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

我没有看到任何图表。先谢谢您的帮助!-乔伊

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