在 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) 中定义的曲线,我希望每条曲线都具有单独的颜色。但是按照我目前的方式,所有曲线都是相同的颜色,因为它们属于同一个表。
我将不胜感激任何建议!