# File:Harbergertriangle.png

From Market

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 link to this file: