File:Upperblockforcediagram.png
No higher resolution available.
Upperblockforcediagram.png (349 × 432 pixels, file size: 2 KB, MIME type: image/png)
This file was created using Wolfram Mathematica 7 with the following code:
Graphics[{Line[{{0.2, 1}, {1.8, 1}, {1.8, 2}, {0.2, 2}, {0.2, 1}}],
PointSize[0.02], Point[{1, 1.5}], Arrow[{{1, 1.5}, {1, 0}}],
Text["\!\(\*SubscriptBox[\"m\", \"B\"]\)g", {0.9, 0.7}],
Text["B", {1, 1.7}], Arrow[{{1.1, 1}, {1.1, 2.5}}],
Text["\!\(\*SubscriptBox[\"N\", \"AB\"]\)", {1.2, 1.2}], Dashed,
Line[{{0, 1}, {2, 1}}]}]
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:09, 23 November 2010 | | 349 × 432 (2 KB) | Vipul (talk | contribs) | This file was created using [http://www.wolfram.com/mathematica Wolfram Mathematica 7] with the following code: <pre>Graphics[{Line[{{0.2, 1}, {1.8, 1}, {1.8, 2}, {0.2, 2}, {0.2, 1}}], PointSize[0.02], Point[{1, 1.5}], Arrow[{{1, 1.5}, {1, 0}}], Te |
You cannot overwrite this file.
File usage
The following 2 pages use this file:
