Jump to content

File:Michelsonmorley-boxplot.svg

From Meta, a Wikimedia project coordination wiki

Original file (SVG file, nominally 432 × 432 pixels, file size: 12 KB)

Render this image in .

This is a file from the Wikimedia Commons. The description on its description page there is copied below.

Summary

Description Boxplot representing Michelson's data on the speed of light. It consists of five experiments, each made of 20 consecutive runs.
Date
Source Own work
Author User:Schutz
SVG development
InfoField
 
The SVG code is valid.
 
This chart was created with R.

This data is not from the Michelson-Morley experiment but from Michelson's measurement of the speed of light. See MICHELSON, A. A. (1882). Experimental determination of the velocity of light made at the United States Naval Academy, Annapolis. Astronomic Papers 1 pp. 109-145 U.S. Nautical Almanac Office, or S. M. Stigler (1977) Do robust estimators work with real data? Annals of Statistics 5, 1055–1098.

Original upload by User:Schutz

Boxplot representing Michelson's data on the speed of light. It consists of five experiments, each made of 20 consecutive runs. Note that the oblique line is incorrect, and probably due to a bug in the Mediawiki software/SVG converter. The graphic was created by User:Schutz for Wikipedia on 28 December 2006, using the R statistical project. The program that generated the graphic is given below; the data and the idea are from the R help page for the morley dataset (see help(morley)). The graph was exported in postscript format, converted to SVG using the pstoedit command, and the layout was slightly modified using Inkscape before upload.

 
  data(morley)
  morley$Expt <- factor(morley$Expt)
  morley$Run <- factor(morley$Run)
  attach(morley)

  postscript("Michelsonmorley-boxplot.ps", paper="special", height=6, width=6,
             horizontal=F)
  par(las=1)
  par(mar=c(5.1, 5.1, 2.1, 2.1))
  par(font=2)
  par(font.axis=2)
  boxplot(Speed ~ Expt, xlab = "Experiment No.", ylab="Speed of light (km/s minus 299,000)")
  abline(h=792.458, lty=3)
  dev.off()
  

New upload by User:Mwtoews

Boxplot representing Michelson's data on the speed of light. It consists of five experiments, each made of 20 consecutive runs.

The graphic was originally created by User:Schutz for Wikipedia on 28 December 2006, using the R statistical project. The program that generated the graphic is given below; the data and the idea are from the R help page for the morley dataset (see help(morley)). The graph was exported in PDF format, converted to SVG using Adobe Illustrator, and the layout was slightly modified using Vim before upload.

data(morley)
morley$Expt <- factor(morley$Expt)

pdf("Michelsonmorley-boxplot.pdf", height=6, width=6)
par(las=1, mar=c(5.1, 5.1, 2.1, 2.1))
boxplot(Speed ~ Expt, morley, xlab = "Experiment No.",
        ylab="Speed of light (km/s minus 299,000)")
abline(h=792.458, col="red")
text(3,792.458,"true\nspeed")
dev.off()

Licensing

Public domain I, the copyright holder of this work, release this work into the public domain. This applies worldwide.
In some countries this may not be legally possible; if so:
I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law.

The creator and uploader also believes that this graphic is a trivial work which does not qualify for copyright.

Reference

  • A. J. Weekes (1986) A Genstat Primer. London: Edward Arnold.

Captions

Add a one-line explanation of what this file represents

Items portrayed in this file

depicts

28 December 2006

File history

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

Date/TimeThumbnailDimensionsUserComment
current06:14, 16 September 2024Thumbnail for version as of 06:14, 16 September 2024432 × 432 (12 KB)Jeffrey KimFile uploaded using svgtranslate tool (https://svgtranslate.toolforge.org/). Added translation for yue.
10:25, 3 May 2008Thumbnail for version as of 10:25, 3 May 2008432 × 432 (11 KB)Papa Novemberrm opaque bg. No copyright claimed for non-creative derivative work.
21:30, 30 October 2007Thumbnail for version as of 21:30, 30 October 2007432 × 432 (11 KB)Mwtoews
21:27, 30 October 2007Thumbnail for version as of 21:27, 30 October 2007432 × 432 (11 KB)Mwtoews
21:24, 30 October 2007Thumbnail for version as of 21:24, 30 October 2007432 × 432 (12 KB)Mwtoews
18:43, 28 December 2006Thumbnail for version as of 18:43, 28 December 2006720 × 720 (19 KB)Schutz

There are no pages that use this file.

Global file usage

Metadata