File:Euclidean minimum spanning tree.svg

From Wikimedia Commons, the free media repository
Jump to navigation Jump to search

Original file(SVG file, nominally 270 × 269 pixels, file size: 9 KB)

Captions

Captions

Add a one-line explanation of what this file represents

Summary

[edit]
Description

A Euclidean minimum spanning tree of a random set of 25 points in the plane. Produced by Derrick Coetzee in Mathematica 4.1.1.0 using the following commands:

  << DiscreteMath`Combinatorica`
  points = Table[{Random[], Random[]}, {x, 1, 25}]
  Export["z:\pictures\Wikipedia\emst.eps", 
    ShowGraph[MinimumSpanningTree[Graph[Table[
            Sqrt[(points[[i]][[1]] - points[[j]][[1]])^2 + (points[[i]][[2]] - 
                      points[[j]][[2]])^2], {i, 1, 25}, {j, 1, 25}], points]]]]
I then loaded the .eps in Illustrator, redrew it (original .eps had weird artifacts when saved as .svg), and saved out as an .svg. I place this image in the public domain and release all rights to it. This vector version replaces Image:Euclidean_minimum_spanning_tree.png.
Date 31 December 2005 (original upload date)
Source No machine-readable source provided. Own work assumed (based on copyright claims).
Author No machine-readable author provided. Dcoetzee assumed (based on copyright claims).

Licensing

[edit]
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.

File history

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

Date/TimeThumbnailDimensionsUserComment
current23:35, 31 December 2005Thumbnail for version as of 23:35, 31 December 2005270 × 269 (9 KB)Dcoetzee (talk | contribs)A Euclidean minimum spanning tree of a random set of 25 points in the plane. Produced by Derrick Coetzee in Mathematica 4.1.1.0 using the following commands: <pre><nowiki> << DiscreteMath`Combinatorica` points = Table[{Random[],

The following page uses this file:

File usage on other wikis