File:Commonfrictioncoefficientsandanglesoffrictionindegrees.png

From Mech

Commonfrictioncoefficientsandanglesoffrictionindegrees.png(360 × 187 pixels, file size: 5 KB, MIME type: image/png)

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

Plot[ArcTan[x] * 180/Pi, {x, 0, 1.1}, AxesOrigin -> {0, 0}, 
 AxesLabel -> {"friction coefficient", "angle of friction"}, 
 Epilog -> {PointSize[0.02], Point[{0.2, ArcTan[0.2] * 180/Pi}], 
   Point[{0.53, ArcTan[0.53]* 180/Pi}], 
   Point[{0.61, ArcTan[0.61]* 180/Pi}], 
   Point[{0.74, ArcTan[0.74]* 180/Pi}], 
   Point[{0.78, ArcTan[0.78]* 180/Pi}], 
   Point[{1, ArcTan[1] * 180/Pi}], Dashed, Brown, 
   Line[{{0.2, 0}, {0.2, ArcTan[0.2]* 180/Pi}}], 
   Line[{{0, ArcTan[0.2]* 180/Pi}, {0.2, ArcTan[0.2]* 180/Pi}}], 
   Line[{{0.53, 0}, {0.53, ArcTan[0.53]* 180/Pi}}], 
   Line[{{0.53, ArcTan[0.53]* 180/Pi}, {0, ArcTan[0.53]* 180/Pi}}], 
   Line[{{0.61, 0}, {0.61, ArcTan[0.61]* 180/Pi}}], 
   Line[{{0.61, ArcTan[0.61]* 180/Pi}, {0, ArcTan[0.61]* 180/Pi}}], 
   Line[{{0.74, 0}, {0.74, ArcTan[0.74]* 180/Pi}}], 
   Line[{{0.74, ArcTan[0.74]* 180/Pi}, {0, ArcTan[0.74]* 180/Pi}}], 
   Line[{{0.78, 0}, {0.78, ArcTan[0.78]* 180/Pi}, {0, 
      ArcTan[0.78]* 180/Pi}}], Line[{{1, 0}, {1, ArcTan[1]* 180/Pi}}],
    Line[{{1, ArcTan[1]* 180/Pi}, {0, ArcTan[1]* 180/Pi}}]}]

File history

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

Date/TimeThumbnailDimensionsUserComment
current22:29, 15 September 2010Thumbnail for version as of 22:29, 15 September 2010360 × 187 (5 KB)Vipul (talk | contribs)This file was created using [http://www.wolfram.com/mathematica Wolfram Mathematica] using the following command: <pre>Plot[ArcTan[x] * 180/Pi, {x, 0, 1.1}, AxesOrigin -> {0, 0}, AxesLabel -> {"friction coefficient", "angle of friction"}, Epilog -> {

The following page uses this file: