我想绘制一系列线条,每行填充一个半空格.通过将不透明度设置为小于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当两个半空间重叠时,它会自动变为.
我该怎么做呢?
你可以试试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)
结果:
