MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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



  • 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?