在 Mathematica 中用不同颜色绘制表格的不同条目答案

【问题标题】：Plot different entries of a table with different colors in Mathematica在 Mathematica 中用不同颜色绘制表格的不同条目
【发布时间】：2013-03-09 03:05:15
【问题描述】：

在 Mathematica 中，我有一个表格，其中表格的每个条目都是 3 维曲线。我想为不同的曲线分配不同的颜色，但我不知道该怎么做。

我当前的命令是：

Plot3D[
      Table[
            Max[Table[SocPlanGen[4,1,1,R,2,p,Min[4/(1+2 k/N),N], N], {k,0,N}]]
                ,{N, 1, 4}
           ]
      , {R,2,20}, {p, 0.1, 1}
      , PlotStyle -> ColorData[1, "ColorList"], PlotLegends -> {"4","3","2","1"}
      ]

其中 SocPlanGen[.] 是我之前定义的函数。

外部 Table[.] 有 4 个条目 ({N,1,4})。外部 Table[.] 的每个条目都是在空间 (R,p) 中定义的曲线，我希望每条曲线都具有单独的颜色。但是按照我目前的方式，所有曲线都是相同的颜色，因为它们属于同一个表。

如果有任何建议，我将不胜感激！

【问题讨论】：

您在http://mathematica.stackexchange.com 上发布此内容可能会更好。要求将问题移到那里。

标签： plot colors wolfram-mathematica

【解决方案1】：

您是否尝试过使用ColorFunction 选项？

与涉及表格的问题（和相应的解决方案）类似的最佳示例似乎在此处实现（使用 ColorFunction 和用户 belisarius 的另一种方法）：

https://mathematica.stackexchange.com/questions/16963/how-do-i-identify-each-surface-in-a-multi-surface-plot3d

【讨论】：

【解决方案2】：

图形函数有一个 HoldAll 属性，这意味着参数集是根据第一个参数的未计算形式确定的。由于它的头部是 Table（而不是 List），因此分配了单一颜色。要更改默认行为，只需将 Plot3D 的第一个参数包含在 Evaluate[]

由于没有提供SocPlanGen的定义，我自己无法检查，但我很确定这是解决方案

【讨论】：