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!