Re: Graphics question
- To: mathgroup at smc.vnet.net
- Subject: [mg51727] Re: [mg51705] Graphics question
- From: "David Park" <djmp at earthlink.net>
- Date: Sat, 30 Oct 2004 03:48:34 -0400 (EDT)
- 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