MathGroup Archive 2011

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

Search the Archive

Re: fill in harberger triangle


On Jan 15, 4:47 am, Bob Hanlon <hanl... at cox.net> wrote:
> 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.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!

Thanks for all responses, I am finding that RegionPlot is a convenient
way to fill triangles and other odd shapes created from market curves
and reference lines. As for what is horizontal or vertical, note that
economists are necessarily confused about that, since we persist in
plotting the causal variable on the vertical axis!
RS


  • Prev by Date: Re: Mathematica 8 browser plugin and Firefox 3/4
  • Next by Date: Re: Mathematica 8 browser plugin and Firefox 3/4
  • Previous by thread: Re: fill in harberger triangle
  • Next by thread: clip