Plot 用Mathematica中的不同颜色绘制表格的不同条目

在Mathematica中，我有一个表格，其中表格的每个条目都是三维曲线。我想给不同的曲线指定不同的颜色，但我不知道怎么做

我现在的命令是：

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[.]是我前面定义的函数

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

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

您是否尝试过使用该选项

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

---

图形函数具有HoldAll属性，这意味着参数集是根据第一个参数的未赋值形式确定的。因为它的头是表（而不是列表），所以它只分配一种颜色。 要更改默认行为，只需将Plot3D的第一个参数括在Evaluate[]中

---

由于未提供法国兴业银行的定义，我无法亲自检查，但我非常确定这就是解决方案

您可能会更幸运地将此发布在：。要求将问题移到那里。