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!