File:Harbergertrianglemonopoly.png
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/Time | Thumbnail | Dimensions | User | Comment | |
---|---|---|---|---|---|
current | 14:26, 7 June 2014 | ![]() | 360 × 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... |
You cannot overwrite this file.
File usage
The following 2 pages use this file: