RE: FilledPlot with Implicit Functions?
- To: mathgroup at smc.vnet.net
- Subject: [mg45811] RE: [mg45784] FilledPlot with Implicit Functions?
- From: "David Park" <djmp at earthlink.net>
- Date: Mon, 26 Jan 2004 01:53:15 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
In this case you can use the InequalityGraphics package.
Needs["Graphics`InequalityGraphics`"]
InequalityPlot[1 < x^2 + y^2 < 2, {x, -3, 3},
{y, -3, 3}];
Here is a second, slightly more interesting example.
Needs["Graphics`Colors`"]
InequalityPlot[1 + (1/2)*(y/(x^2 + y^2)) <
2*(x^2 + y^2) < 4, {x, -3, 3}, {y, -3, 3},
Fills -> Eggshell, BoundaryStyle -> {Olive},
Background -> Burlywood];
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: e.t. [mailto:e-t at gmx.li]
To: mathgroup at smc.vnet.net
Hi,
how can fill the range between the to circles? FilledPlot will not work
with implicit functions.
thx,
Oliver
Needs["Graphics`ImplicitPlot`"];
f1 := x^2 + y^2 == 2;
f2 := x^2 + y^2 == 1;
ImplicitPlot[{f1, f2}, {x, -3, 3},
AxesLabel -> {"x", "y"},
PlotStyle -> {{}, Dashing[{0.02}]}];