File:Blocksontwoinclinesoffreewedge.png
No higher resolution available.
Blocksontwoinclinesoffreewedge.png (360 × 122 pixels, file size: 3 KB, MIME type: image/png)
This file was created using Wolfram Mathematica with the following command:
Graphics[{Black, Line[{{-0.5, 0}, {3.5, 0}}], White, EdgeForm[Brown],
Polygon[{{0, 0}, {3, 0}, {1, 1}}], White, EdgeForm[Red],
Polygon[{{1.5, 0.75}, {2, 0.5}, {2.25, 1}, {1.75, 1.25}}], White,
EdgeForm[Blue],
Polygon[{{0.3, 0.3}, {0, 0.6}, {0.3, 0.9}, {0.6, 0.6}}], Black,
Text["\!\(\*SubscriptBox[\"\[Alpha]\", \"2\"]\)", {2.6, 0.1}],
Text["\!\(\*SubscriptBox[\"\[Alpha]\", \"1\"]\)", {0.4, 0.1}],
Text["\!\(\*SubscriptBox[\"m\", \"1\"]\)", {0.3, 0.6}],
Text["\!\(\*SubscriptBox[\"m\", \"2\"]\)", {1.875, 0.875}],
Text["\!\(\*SubscriptBox[\"I\", \"1\"]\)", {0.5, 0.4}],
Text["\!\(\*SubscriptBox[\"I\", \"2\"]\)", {1.2, 0.8}],
Circle[{3, 0}, 0.3, {Pi - ArcTan[1/2], Pi}],
Circle[{0, 0}, 0.3, {0, Pi/4}]}]
File history
Click on a date/time to view the file as it appeared at that time.
| Date/Time | Thumbnail | Dimensions | User | Comment | |
|---|---|---|---|---|---|
| current | 01:02, 17 September 2010 | | 360 × 122 (3 KB) | Vipul (talk | contribs) | |
| 00:18, 16 September 2010 |  | 360 × 158 (3 KB) | Vipul (talk | contribs) | This file was created using [http://www.wolfram.com/mathematica Wolfram Mathematica] with the following command: <pre>Graphics[{White, EdgeForm[Brown], Polygon[{{0, 0}, {3, 0}, {1, 1}}], White, EdgeForm[Red], Polygon[{{1.5, 0.75}, {2, 0.5}, {2.25, |
You cannot overwrite this file.
File usage
The following 3 pages use this file:
