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

2 wolfram-mathematica

我想绘制一系列线条,每行填充一个半空格.通过将不透明度设置为小于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]]]
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述

这可以.现在我想以特定方式为每个半空间着色.而不是目前每个人的平面阴影,说我想用它来遮蔽它y.即,如果平面阴影颜色为蓝色,则蓝色阴影按比例缩放y(0最强烈或5最强烈无关紧要).因此,在第一次重叠时2y,3y当两个半空间重叠时,它会自动变为.

我该怎么做呢?

Hei*_*ike 5

你可以试试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]
Run Code Online (Sandbox Code Playgroud)

结果:

重叠区域