I have the following straight line:
y[x_] = 4 x - 1;
Plot[y[x], {x, 0, 1}, PlotRange -> {{0, 1}, {0, 2}}]
I want to highlight the two regions separated by the straight line, such that they look nice and distinct.
$\begingroup$
$\endgroup$
Add a comment
|
2 Answers
$\begingroup$
$\endgroup$
2
y[x_] := 4 x - 1;
Plot[{y[x], y[x]}, {x, 0, 1}, PlotStyle -> Blue,
PlotRange -> {{0, 1}, {0, 2}},
Filling -> {1 -> {Top, LightYellow}, 2 -> {Bottom, LightBlue}}]
-
$\begingroup$ The coolest ideas are often simple (when you know them ;-) ) $\endgroup$– mgamerFeb 4, 2018 at 11:37
-
$\begingroup$
$\endgroup$
One can also use InfiniteLine[] and HalfPlane[] for this:
Graphics[{{LightYellow, HalfPlane[{0, -1}, {1, 4}, Cross[{1, 4}]]},
{LightBlue, HalfPlane[{0, -1}, {1, 4}, -Cross[{1, 4}]]},
{Blue, InfiniteLine[{0, -1}, {1, 4}]}},
AspectRatio -> 1/GoldenRatio, Axes -> True, PlotRange -> {{0, 1}, {0, 2}}]
answered Apr 9, 2018 at 5:14
J. M.'s persistent exhaustion♦J. M.'s persistent exhaustion
122k11 gold badges387 silver badges564 bronze badges