File:Demandcontractionandmarketprice.png
No higher resolution available.
Demandcontractionandmarketprice.png (360 × 209 pixels, file size: 8 KB, MIME type: image/png)
This file was created using Wolfram Mathematica 7 with the following command:
Plot[{10 (1 - (x/7)^(2/3))^(3/2), 7 (1 - (x/7)^(2/3))^(3/2),
x^(7/6)}, {x, 0.3, 4}, AxesLabel -> {"Quantity q", "Unit Price p"},
AxesOrigin -> {0, 0},
Epilog -> {PointSize[0.02], Point[{2.31, 2.64}], Point[{2.73, 3.2}],
Point[{1.8, 3.2}], Dashed, Black, Line[{{2.31, 0}, {2.31, 2.64}}],
Line[{{0, 2.64}, {2.31, 2.64}}], Line[{{2.73, 0}, {2.73, 3.2}}],
Line[{{0, 3.2}, {2.73, 3.2}}], Line[{{1.8, 0}, {1.8, 3.2}}],
Text["eq. price (new)", {0.6, 2.5}],
Text["eq. price (old)", {0.6, 3.5}],
Text["eq. quantity (new)", {1.8, 0.2}],
Text["eq. quantity (old)", {3.3, 0.2}],
Text["New demand", {0.4, 4.6}], Text["Old demand", {1.2, 7}],
Text["Supply", {0.4, 1}], Text["Supply", {3, 4.5}],
Text["A", {1.8, 3.5}]}]
File history
Click on a date/time to view the file as it appeared at that time.
| Date/Time | Thumbnail | Dimensions | User | Comment | |
|---|---|---|---|---|---|
| current | 16:59, 28 May 2012 | | 360 × 209 (8 KB) | Vipul (talk | contribs) | |
| 20:54, 11 September 2010 | No thumbnail | 360 × 209 (8 KB) | Vipul (talk | contribs) | This file was created using [http://www.wolfram.com/mathematica Wolfram Mathematica 7] with the following command: <pre>Plot[{10 (1 - (x/7)^(2/3))^(3/2), 7 (1 - (x/7)^(2/3))^(3/2), x^(7/6)}, {x, 0.3, 4}, AxesLabel -> {"Quantity q", "Unit Price p"}, |
You cannot overwrite this file.
File usage
The following 3 pages use this file:
