For loop 如何在Mathematica中为For循环中的元素建立索引?

For loop 如何在Mathematica中为For循环中的元素建立索引?,for-loop,syntax,wolfram-mathematica,notation,For Loop,Syntax,Wolfram Mathematica,Notation,我不知道Mathematica中打印多个3D绘图所需的语法,如以下代码所示 For[i = 1, i <= accBeta + 1, i++, ListPlot3D[p3[[All, i]], PlotRange -> All, ColorFunction -> "Rainbow"] ] 对于[i=1,i All,ColorFunction->“彩虹”] ] 这里p3是包含信息的列表列表,而i是我的计数索引。这不会出现错误,但输入会被忽略。你能帮我解决这个问题吗 F

我不知道Mathematica中打印多个3D绘图所需的语法,如以下代码所示

For[i = 1, i <= accBeta + 1, i++,
    ListPlot3D[p3[[All, i]], PlotRange -> All, ColorFunction -> "Rainbow"]
]
对于[i=1,i All,ColorFunction->“彩虹”]
]
这里p3是包含信息的列表列表,而i是我的计数索引。这不会出现错误,但输入会被忽略。你能帮我解决这个问题吗


Felix

实际上,这里的
循环不需要
。例如,您可以使用

Table[ListPlot3D[p3[[All,i]]], {i, 1, accBeta+1}]
那会打印出你的情节。希望这会有帮助

上有许多相关问题-通常情况下,答案不是使用
For
Do
循环:)

和一些示例数据

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]