Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

Re: fill in harberger triangle

  • To: mathgroup at smc.vnet.net
  • Subject: [mg115590] Re: fill in harberger triangle
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Sat, 15 Jan 2011 04:47:47 -0500 (EST)

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