MathGroup Archive 2004

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

Search the Archive

Re: Graphics question

  • To: mathgroup at smc.vnet.net
  • Subject: [mg51710] Re: [mg51705] Graphics question
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Sun, 31 Oct 2004 01:15:12 -0500 (EST)
  • Reply-to: hanlonr at cox.net
  • Sender: owner-wri-mathgroup at wolfram.com

Needs["Graphics`FilledPlot`"];

FilledPlot[
    {7-3x,-5x,-2x},
    {x,-1,5},
    Fills->{GrayLevel[1], GrayLevel[.9]}];

or

FilledPlot[
    {7-3x,-5x,-2x},
    {x,-1,5},
    Fills->{{{2,3},GrayLevel[.9]}}];


Bob Hanlon

> 
> From: "Alan" <info at optioncity.REMOVETHIS.net>
To: mathgroup at smc.vnet.net
> Date: 2004/10/29 Fri AM 03:40:37 EDT
> To: mathgroup at smc.vnet.net
> Subject: [mg51710] [mg51705] Graphics question
> 
> 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: Another bizarre phenomenon
  • Next by Date: Re: Converting Mathematica to MS Word
  • Previous by thread: Re: Graphics question
  • Next by thread: Re: Graphics question