File:Adjacentblocksonincline.png

From Mech
Revision as of 21:43, 17 September 2010 by Vipul (talk | contribs) (This file was created using [http://www.wolfram.com/mathematica Wolfram Mathematica 7] with the following command: <pre>Graphics[{White, EdgeForm[Black], Polygon[{{0, 0}, {3, 0}, {1, 1}}], EdgeForm[Blue], Polygon[{{1.5, 0.75}, {2, 0.5}, {2.25, 1}, )
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
Adjacentblocksonincline.png(360 × 158 pixels, file size: 3 KB, MIME type: image/png)

This file was created using Wolfram Mathematica 7 with the following command:

Graphics[{White, EdgeForm[Black], Polygon[{{0, 0}, {3, 0}, {1, 1}}], 
  EdgeForm[Blue], 
  Polygon[{{1.5, 0.75}, {2, 0.5}, {2.25, 1}, {1.75, 1.25}}], 
  EdgeForm[Red], 
  Polygon[{{2, 0.5}, {2.4, 0.3}, {2.6, 0.7}, {2.2, 0.9}}], Black, 
  Text["\[Theta]", {2.7, 0.1}], 
  Circle[{3, 0}, 0.3, {Pi - ArcTan[1/2], Pi}], 
  Text["\!\(\*SubscriptBox[\"m\", \"1\"]\)", {1.875, 0.875}], 
  Text["\!\(\*SubscriptBox[\"m\", \"2\"]\)", {2.3, 0.6}]}]

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current21:43, 17 September 2010Thumbnail for version as of 21:43, 17 September 2010360 × 158 (3 KB)Vipul (talk | contribs)This file was created using [http://www.wolfram.com/mathematica Wolfram Mathematica 7] with the following command: <pre>Graphics[{White, EdgeForm[Black], Polygon[{{0, 0}, {3, 0}, {1, 1}}], EdgeForm[Blue], Polygon[{{1.5, 0.75}, {2, 0.5}, {2.25, 1},
  • You cannot overwrite this file.