如何在Mathematica的For循环中索​​引列表元素？

Question

我不知道Mathematica中所需的语法，以按照以下代码中的意图打印出多个3D图。

For[i = 1, i <= accBeta + 1, i++,
    ListPlot3D[p3[[All, i]], PlotRange -> All, ColorFunction -> "Rainbow"]
]

这里p3是包含信息的列表的列表，而我是我的计数索引。这不会出错，但是只是忽略了输入。您能帮我解决这个问题吗？

费利克斯

Answer 1

您实际上不需要这里的For循环。例如，您可以使用Table：

Table[ListPlot3D[p3[[All,i]]], {i, 1, accBeta+1}]

那应该打印出你的图。希望对您有所帮助。

Mathematica Stack Exchange上有许多相关问题-通常答案是不使用For或Do循环：）

Answer 2

带有一些示例数据

p3 = Table[Sin[k j^2 + i], {i, 0, Pi, Pi/5}, {j, 0, Pi, Pi/5}, {k, 3}];

以下是等效的

Table[ListPlot3D[p3[[x]], Mesh -> None, InterpolationOrder -> 0,
  ColorFunction -> "Rainbow"], {x, Length[p3]}]

Map[ListPlot3D[#, Mesh -> None, InterpolationOrder -> 0,
   ColorFunction -> "Rainbow"] &, p3]