File:Rotatoronincline.png

From Mech

Rotatoronincline.png(360 × 147 pixels, file size: 4 KB, MIME type: image/png)

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

Graphics[{White, EdgeForm[Brown], Polygon[{{0, 0}, {3, 0}, {1, 1}}], 
  Black, PointSize[0.02], Point[{1.875, 0.875}], 
  Circle[{1.875, 0.875}, Sqrt[5]/8], Text["\[Theta]", {2.7, 0.1}], 
  Circle[{3, 0}, 0.3, {Pi - ArcTan[1/2], Pi}], Dashed, 
  Line[{{1.875, 0.875}, {1.75, 0.625}}], Text["r", {1.87, 0.78}]}]

File history

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

Date/TimeThumbnailDimensionsUserComment
current23:44, 16 September 2010Thumbnail for version as of 23:44, 16 September 2010360 × 147 (4 KB)Vipul (talk | contribs)This file was created using [http://www.wolfram.com/mathematica Wolfram Mathematica 7] using the following command: <pre>Graphics[{White, EdgeForm[Brown], Polygon[{{0, 0}, {3, 0}, {1, 1}}], Black, PointSize[0.02], Point[{1.875, 0.875}], Circle[{1.8