Image:Surface finish form removal.svg

From Wikipedia, the free encyclopedia

Surface_finish_form_removal.svg‎ (SVG file, nominally 1052 × 744 pixels, file size: 1.93 MB)

Wikimedia Commons logo This is a file from the Wikimedia Commons. The description on its description page there is shown below.
Commons is a freely licensed media file repository. You can help.

[edit] Summary

Description

Illustration of the effect of different form removal techniques on surface finish analysis.
Source

self-made
Date

2008-03-28
Author

Emok
Permission
(Reusing this image)

see below

[edit] R Source Code

library(RSvgDevice)

turned_raw<-read.csv("turned_raw.csv", skip=10, header=TRUE)

devSVG("turned_form_linear.svg", width=12, height=4)
par(mfrow=c(1,2))

plot(turned_raw$mm, turned_raw$um, type='n', xlab='profile height', ylab='trace length')
abline(h=0)
lines(turned_raw$mm, turned_raw$um, type='l', col='black')
linear<-lm(turned_raw$um~turned_raw$mm)
lines(turned_raw$mm, linear$fit, col='white', lwd=3)
lines(turned_raw$mm, linear$fit, col='red')
 
plot(turned_raw$mm, turned_raw$um, type='n', xlab='profile height', ylab='trace length')
abline(h=0)
lines(turned_raw$mm, linear$res, type='l', col='blue')
dev.off()

devSVG("turned_form_poly4.svg", width=12, height=4)
par(mfrow=c(1,2))

plot(turned_raw$mm, turned_raw$um, type='n', xlab='profile height', ylab='trace length')
abline(h=0)
lines(turned_raw$mm, turned_raw$um, type='l', col='black')
poly<-lm(turned_raw$um ~ I(turned_raw$mm^4) + I(turned_raw$mm^3) + I(turned_raw$mm^2) + I(turned_raw$mm))
lines(turned_raw$mm, poly$fit, col='white', lwd=3)
lines(turned_raw$mm, poly$fit, col='red')

 plot(turned_raw$mm, turned_raw$um, type='n', xlab='profile height', ylab='trace length')
abline(h=0) 
lines(turned_raw$mm, poly$res, type='l', col='blue')
dev.off()

[edit] Licensing

I, the copyright holder of this work, hereby publish it under the following licenses:
GNU head Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation license, Version 1.2 or any later version published by the Free Software Foundation; with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. A copy of the license is included in the section entitled "GNU Free Documentation license".

Aragonés | العربية | Asturianu | Български | বাংলা | ইমার ঠার/বিষ্ণুপ্রিয়া মণিপুরী | Brezhoneg | Bosanski | Català | Cebuano | Česky | Dansk | Deutsch | Ελληνικά | English | Esperanto | Español | Eesti | Euskara | فارسی | Suomi | Français | Gaeilge | Galego | עברית | Hrvatski | Magyar | Bahasa Indonesia | Ido | Íslenska | Italiano | 日本語 | ქართული | ភាសាខ្មែរ | 한국어 | Kurdî / كوردی | Latina | Lëtzebuergesch | Lietuvių | Bahasa Melayu | Nnapulitano | Nederlands | ‪Norsk (nynorsk)‬ | ‪Norsk (bokmål)‬ | Occitan | Polski | Português | Română | Русский | Slovenčina | Slovenščina | Shqip | Српски / Srpski | Svenska | తెలుగు | ไทย | Türkçe | Українська | اردو | Tiếng Việt | Volapük | Yorùbá | ‪中文(中国大陆)‬ | ‪中文(台灣)‬ | +/-
Some rights reserved
Creative Commons Attribution iconCreative Commons Share Alike icon		 This file is licensed under the Creative Commons Attribution ShareAlike license versions 3.0, 2.5, 2.0, and 1.0

Български | Català | Česky | Dansk | Deutsch | Ελληνικά | English | Español | Euskara | Estremeñu | Français | עברית | Italiano | 日本語 | 한국어 | Lietuvių | Nederlands | ‪Norsk (bokmål)‬  | Occitan | Polski | Piemontèis | Português | Русский | 中文 | +/-
You may select the license of your choice.

File history

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

Date/TimeDimensionsUserComment
current17:03, 28 March 20081,052×744 (1.93 MB)Emok ({{Information |Description=Illustration of the effect of different form removal techniques on surface finish analysis. |Source=self-made |Date=2008-03-28 |Author= Emok |Permission= |other_versions= }} )
The following pages on the English Wikipedia link to this file (pages on other projects are not listed):