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

Question

我想绘制一系列线，每条线填充一个半空间。通过将不透明度设置为小于 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]]]

这很好。现在我还想以特定的方式对每个半空间的颜色进行着色。假设我想用 y 值对其进行着色，而不是目前对每个值进行平面着色。即，如果平面阴影颜色为蓝色，则蓝色阴影按 y 缩放(0 最强烈或 5 最强烈并不重要)。因此，在第一次重叠时，当两个半空格重叠时，它会自动变为2y、3y。

我该怎么做？

Answer 1

您可以尝试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]

结果: