我不知道Mathematica中所需的语法,用于打印多个3D绘图,如下面的代码所示。
For[i = 1, i <= accBeta + 1, i++,
ListPlot3D[p3[[All, i]], PlotRange -> All, ColorFunction -> "Rainbow"]
]
这里p3是包含信息的列表列表,而i是我的计数索引。这不会遇到错误,但输入会被忽略。你能帮帮我解决这个问题吗?
费利克斯
你实际上并不需要这里的For
循环。例如,你可以使用Table
:
Table[ListPlot3D[p3[[All,i]]], {i, 1, accBeta+1}]
那应该打印你的情节。希望这很有帮助。
关于Mathematica Stack Exchange有很多相关的问题 - 通常答案是不使用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]