File:Surface finish form removal.svg
From Wikimedia Commons, the free media repository
Surface_finish_form_removal.svg (SVG file, nominally 1,052 × 744 pixels, file size: 1.93 MB)
Contents |
[edit] Summary
| Description |
Illustration of the effect of different form removal techniques on surface finish analysis. |
|---|---|
| Date |
28 March 2008 |
| Source |
Own work |
| Author | |
| 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
The categories of this image should be checked. Check them now!
- Remove redundant categories and try to put this image in the most specific category/categories
- Remove this template
Afrikaans | Alemannisch | Català | Česky | Dansk | Deutsch | Deutsch (Sie-Form) | English | Español | Eesti | Suomi | Français | עברית | Հայերեն | Italiano | 日本語 | Magyar | Македонски | Malti | Plattdüütsch | Nederlands | Polski | Português | Română | Русский | Slovenčina | ไทย | Vèneto | 中文 | +/−
Usage:
File history
Click on a date/time to view the file as it appeared at that time.
| Date/Time | Thumbnail | Dimensions | User | Comment | |
|---|---|---|---|---|---|
| current | 17:03, 28 March 2008 | | 1,052×744 (1.93 MB) | Emok (talk | contribs) | ({{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= }} ) |
- Edit this file using an external application (See the setup instructions for more information)
File links
There are no pages that link to this file.
Global file usage
The following other wikis use this file:
- Usage of Surface finish form removal.svg on enwiki
