MathGroup Archive 2004

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

Search the Archive

Re: Graphics question

  • To: mathgroup at smc.vnet.net
  • Subject: [mg51727] Re: [mg51705] Graphics question
  • From: "David Park" <djmp at earthlink.net>
  • Date: Sun, 31 Oct 2004 01:15:53 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

Alan,

Here is an example regular Mathematica.

f1[x_] := 1.5Exp[-x]
f2[x_] := Exp[-x]
f3[x_] := Exp[-2x]

Needs["Graphics`FilledPlot`"]
Needs["Graphics`Graphics`"]

Block[{$DisplayFunction = Identity},
  p1 = Plot[f1[x], {x, 0, 2}];
  p2 = FilledPlot[{f2[x], f3[x]}, {x, 0, 2}, Fills -> Gray];]

DisplayTogether[p1, p2,
    Frame -> True,
    ImageSize -> 450];

With the DrawGraphics package from my web site below it would be:

Needs["DrawGraphics`DrawingMaster`"]

Draw2D[
    {Draw[f1[x], {x, 0, 2}],
     FilledDraw[{f2[x], f3[x]}, {x, 0, 2}, Fills -> Gray]},
    Frame -> True,
    ImageSize -> 450];

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/ 





From: Alan [mailto:info at optioncity.REMOVETHIS.net]
To: mathgroup at smc.vnet.net

I have  3 Plots over the same x-axis range: p1, p2, p3
Each plot is of a well-behaved monotonically decreasing function.

The result of Show[p1,p2,p3] is three curves which do not intersect,
with the exception except that the lower two curves intersect at x=0.

I would like to fill in the region between the
two lower curves with a Gray background.

How can I accomplish this?

regards,
alan







  • Prev by Date: Re: Re: Re: Another bizarre phenomenon
  • Next by Date: Re: gridlines styles.
  • Previous by thread: Re: Graphics question
  • Next by thread: Hypergeometric functions and Sum error in 5.01?