MathGroup Archive 2009

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

Search the Archive

Re: Plot - Filling area that is above more curves

  • To: mathgroup at smc.vnet.net
  • Subject: [mg97928] Re: [mg97906] Plot - Filling area that is above more curves
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Thu, 26 Mar 2009 05:19:04 -0500 (EST)
  • Reply-to: hanlonr at cox.net

func = {x, x^2, Sqrt[x]};

Show[Plot[func, {x, 0, 2}],
 Plot[Max[func], {x, 0, 2}, Filling -> 4]]

func = {-3 x^2 - 2 x + 1, -6 x^2 - 4 x - 9};

m = FindMaximum[Max[func], x]

{1.33333,{x->-0.333333}}

Plot[func, {x, -2, 1},
 Epilog -> {Red, AbsolutePointSize[3],
   Point[{m[[2, 1, 2]], m[[1]]}]}]


Bob Hanlon

---- dragec <culinovic at gmail.com> wrote: 

=============
Is there any way to fill area that is (in the same time) above more
curves in Plot function? So that filled area is not crossed with any
regarded function.

How to construct function from other functions that returns the
biggest value from all functions in question?

THX



  • Prev by Date: Re: Installation question
  • Next by Date: Re: UNDO and Mathematica - how useless is it?
  • Previous by thread: Re: Plot - Filling area that is above more curves
  • Next by thread: Installation question