File:Harbergertriangle.png
No higher resolution available.
Harbergertriangle.png (360 × 201 pixels, file size: 14 KB, MIME type: image/png)
File created using Wolfram Mathematica 8 with the following code:
Plot[{Min[5.2 - x/4 , 7 (1 - (x/7)^(2/3))^(3/2)], x^(7/6)}, {x, 0, 4},
AxesLabel -> {"Quantity q", "Unit Price p"}, AxesOrigin -> {0, 0},
Epilog -> {PointSize[0.02], Point[{2.31, 2.64}],
Point[{1.4, 7 (1 - (0.2)^(2/3))^(3/2)}], Point[{1.4, (1.4)^(7/6)}],
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["eq. price (no tax)", {0.7, 3}],
Text["eq. quantity", {2.7, 0.2}], Text["Demand", {0.4, 4.6}],
Text["Demand", {3.5, 2}], Text["Supply", {1.1, 0.8}],
Text["Supply", {3, 4.5}], Text["A", {0.5, 4}],
Text["B", {0.5, 3.4}], Text["C", {0.5, 2}], 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 | 19:10, 21 December 2012 | | 360 × 201 (14 KB) | Vipul (talk | contribs) | File created using [http://mathematica.wolfram.com Wolfram Mathematica 8] with the following code: <pre>Plot[{Min[5.2 - x/4 , 7 (1 - (x/7)^(2/3))^(3/2)], x^(7/6)}, {x, 0, 4}, AxesLabel -> {"Quantity q", "Unit Price p"}, AxesOrigin -> {0, 0}, Epilo... |
You cannot overwrite this file.
File usage
The following 5 pages use this file:
