Re: Plot and filling option
- To: mathgroup at smc.vnet.net
- Subject: [mg94598] Re: [mg94583] Plot and filling option
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Wed, 17 Dec 2008 06:33:31 -0500 (EST)
- Reply-to: hanlonr at cox.net
RegionPlot[0 < x < 1 && 0 < y < 3 && 0 < x*y < 2,
{x, 0, 4}, {y, 0, 4}, FrameLabel -> {"x", "y"}]
Plot[{3, 2/x, 4*UnitStep[x - 1]}, {x, 0, 4}, AxesLabel -> {"x", "y"},
Filling -> {1 -> Top, 2 -> Top, 3 -> 0}, PlotRange -> {0, 4},
AspectRatio -> 1]
Bob Hanlon
---- Pat <pbougette at lameta.univ-montp1.fr> wrote:
=============
Hello everyone.
I need some help to make a nice plot for my teaching.
I'd like to graph the following interval:
0 < x < 1
0 < y < 3
0 < x y < 2.
I did this:
Plot[{3, 2/x}, {x, 0, 4}, AxesLabel -> {"x", "y"},
Prolog -> {Line[{{1, 0}, {1, 4}}]}, Filling -> {1 -> Top, 2 -> Top},
PlotRange -> {0, 4}]
But I have no idea how I can fill the right side of the vertical line
X=1.
If you have any suggestions. Maybe I should write another code.
Thanks!
Pat.
--
Bob Hanlon