       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