Wolfram mathematica 如何在具有不透明度的FillingStyle中添加自定义ColorFunction

我想画一系列的线，每一行有一半的空间。通过将“不透明度”设置为小于1的值，我希望使重叠突出。我所拥有的是这样的：

Plot[Table[x + a, {a, 0, 5}], {x, -1/2, 1/2}, 
 RegionFunction -> Function[{x, y}, y < 5],
 Filling -> 5, FillingStyle -> Directive[Opacity[0.25]]]

Plot[表[x+a，{a，0，5}]，{x，-1/2，1/2}，
区域函数->函数[{x，y}，y<5]，
填充->5，填充样式->指令[不透明度[0.25]]

这很好。现在我还想用一种特殊的方式为每个半空间着色。假设我想用

y

值对其进行着色，而不是当前每个对象的平面着色。也就是说，如果平面阴影颜色为蓝色，则蓝色阴影按

y

缩放（0最高强度或5最高强度无关紧要）。因此，在第一次重叠时，当两个半空间重叠时，它会自动变成

2y

，

3y

---

我该怎么做？

您可以尝试

ParametricPlot

。比如说

ParametricPlot[
 Table[{s, i + s/2 + t}, {i, 0, 2}], {s, 0, 1}, {t, 0, 3}, 
 Mesh -> False, PlotStyle -> Automatic, 
 ColorFunctionScaling -> False,
 PlotRange -> {Automatic, {0, 3}}, 
 ColorFunction -> Function[{x, y, s, t}, 
   Directive[Opacity[0.2], ColorData["NeonColors"][y/3]]], 
 AspectRatio -> 1]

结果：

---

我认为用

Plot

无法做到这一点。它确实采用了ColorFunction作为选项，但对每条垂直线使用固定的颜色。看起来您应该使用图形原语，如

多边形

和

顶点颜色

。我在可视化您想要的东西时遇到了问题。海克的解决方案正确吗？如果不是，它怎么不正确？