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