File:Harbergertriangle.png

From Market
Jump to: navigation, search
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/TimeThumbnailDimensionsUserComment
current19:10, 21 December 2012Thumbnail for version as of 19:10, 21 December 2012360 × 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.

Metadata