MathGroup Archive 2011

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

Search the Archive

Re: fill in harberger triangle


With[{a = .1, e = 1.4},
 Show[
  Plot[a*p^e, {p, 20, 120}],
  RegionPlot[20 < q < a*p^e && p < 100,
   {p, 0, 120}, {q, 0, 80}],
  Axes -> False,
  Frame -> True,
  FrameLabel -> {"P", "Q"}]]


Bob Hanlon

---- r_poetic <radford.schantz at mms.gov> wrote: 

=============
Hello,
while the Filling option for Plot is great, how can I use it (or
another feature of Mathematica 8) to fill in only the area between a
curve and a vertical line and a horizontal line?  For instance,
between (1) the function Q= A * P ^ E, where A and E are given
constants, (2) a horizontal line e.g. P = 100, and (3) a vertical
line, e.g. Q = 20.  The fill is only inside the triangle-like area.
This would be the "harberger triangle" showing consumer surplus in
economics.

Thanks!




  • Prev by Date: Re: Inverse function
  • Next by Date: Jon McLoone presents Mathematica 8 in the Benelux at the CWI and Utrecht University
  • Previous by thread: fill in harberger triangle
  • Next by thread: Re: fill in harberger triangle