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: [mg115574] Re: fill in harberger triangle
  • From: "Sjoerd C. de Vries" <sjoerd.c.devries at gmail.com>
  • Date: Sat, 15 Jan 2011 04:44:42 -0500 (EST)
  • References: <igpbjo$fg9$1@smc.vnet.net>

I sent the wrong version. This is the one I intended

a = 10.2;
e = 1.5;
q[p_] = a p^e;
lowerBound = p /. Solve[q[p] == 100, p][[1]] // Quiet;

Show[
 Plot[q[p], {p, 0, 30}, PlotRange -> {0, Automatic},
  Epilog -> {Line[{{0, 100}, {30, 100}}],
    Line[{{20, 0}, {20, q[30]}}]}],
 Plot[q[p], {p, lowerBound, 20}, Filling -> 100]
 ]

Cheers -- Sjoerd

On Jan 14, 12:21 pm, r_poetic <radford.scha... 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: DesignerUnits 2011-01-08 for Mathematica 8, 7, 6
  • Next by Date: Re: Interpolation of a tabulated function
  • Previous by thread: Re: fill in harberger triangle
  • Next by thread: Re: fill in harberger triangle