File:Harbergertrianglemonopoly.png

From Market

Harbergertrianglemonopoly.png(360 × 209 pixels, file size: 11 KB, MIME type: image/png)

Created using Wolfram Mathematica 8 with code:

Point[{1.4, 2.64}], Dashed, Black, Line[{{2.31, 0}, {2.31, 2.64}}], 
  Line[{{0, 2.64}, {2.31, 2.64}}], 
  Line[{{0, 7 (1 - (0.2)^(2/3))^(3/2)}, {1.4, 
     7 (1 - (0.2)^(2/3))^(3/2)}, {1.4, (1.4)^(7/6)}, {0, (1.4)^(7/
        6)}}], Text["socially optimal price", {0.7, 3}], 
  Text["socially optimal quantity", {2.7, 0.2}],
  Text["Monopoly price", {0.7, 4}], Text["Demand", {1.2, 4.6}], 
  Text["Demand", {3.5, 2}], Text["Supply", {1.1, 0.8}], 
  Text["Supply", {3, 4.5}], Text["A", {0.5, 4.4}], 
  Text["B", {0.5, 3.4}], Text["C", {0.5, 2.1}], 
  Text["MR = MC (monopoly)", {0.7, 1.8}], Text["D", {0.5, 1.15}], 
  Text["E", {1.6, 3}], Text["F", {1.6, 2.3}]}]

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current14:26, 7 June 2014Thumbnail for version as of 14:26, 7 June 2014360 × 209 (11 KB)Vipul (talk | contribs)Created using [http://www.wolfram.com/mathematica Wolfram Mathematica 8] with code: <pre>Point[{1.4, 2.64}], Dashed, Black, Line[{{2.31, 0}, {2.31, 2.64}}], Line[{{0, 2.64}, {2.31, 2.64}}], Line[{{0, 7 (1 - (0.2)^(2/3))^(3/2)}, {1.4, 7 (1...

Metadata