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

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}]}];

```

• Prev by Date: Re: RealDigits bug?
• Next by Date: Re: GridPlot
• Previous by thread: FilledPlot with Implicit Functions?
• Next by thread: Re: FilledPlot with Implicit Functions?