3D中有多个ListPolarPlot？ 在数学中

Question

是否可以绘制多个ListPolarPlot以在Mathematica中提供3D效果？

我可以使用ListPolarPlot [{data1，data2，data3}]绘制多个极坐标图，而不会出现任何问题。 但如果有大量数据集，则3D图形会更好地显示我的数据，每个极坐标图都沿第三轴。 我使用过ListPLot3D可以正常工作，但是我很好奇我是否可以对极坐标图做同样的事情...

提前致谢！

Answer 1

当您要制作3D图时，首先需要3D数据。 因此，我假设您确实是说ListSphericalPlot3D。 如果已经有了球坐标系中的点列表，则绘制它们并不难。

我们要做的是，基本上首先将坐标更改为“笛卡尔”，然后将其绘制：

ListSphericalPlotPoints3D[list_List] := ListPointPlot3D[Map[CoordinateTransformData["Spherical" -> "Cartesian","Mapping", #] &,Map[{#[[1]], Mod[#[[2]], \[Pi]], Mod[#[[3]], 2 \[Pi]]} &, list]]];
ListSphericalPlot3D[list_List] := ListPlot3D[Map[CoordinateTransformData["Spherical" -> "Cartesian", "Mapping", #] &, Map[{#[[1]], Mod[#[[2]], \[Pi]], Mod[#[[3]], 2 \[Pi]]} &,list]]];

这两个功能有望实现您所要求的功能。

更新：

由于此转换非常简单，因此手动编写整个转换非常简单：

ListSphericalPlotPoints3D[list_List] := ListPointPlot3D[Map[{#[[1]] Sin[#[[2]]] Cos[#[[3]]], #[[1]] Sin[#[[2]]] Sin[#[[3]]], #[[1]] Cos[#[[2]]]} &,Map[{#[[1]], Mod[#[[2]], \[Pi]], Mod[#[[3]], 2 \[Pi]]} &, list]]];
ListSphericalPlot3D[list_List] := ListPlot3D[Map[{#[[1]] Sin[#[[2]]] Cos[#[[3]]], #[[1]] Sin[#[[2]]] Sin[#[[3]]], #[[1]] Cos[#[[2]]]} &, Map[{#[[1]], Mod[#[[2]], \[Pi]], Mod[#[[3]], 2 \[Pi]]} &,list]]];