Question

在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 [。]是我之前定义的函数。

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

我非常感谢任何建议！

Answer 1

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

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

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

Answer 2

图形函数具有HoldAll属性，这意味着参数集是根据第一个参数的未评估形式确定的。由于它的头部是Table（而不是List），所以分配一种颜色。要更改默认行为，只需在Evaluate []

中包含Plot3D的第一个参数

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

在Mathematica中绘制具有不同颜色的表的不同条目

2 个答案: