File:Euclidean Minimum Spanning Tree.svg
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:
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).
<< 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.
Licensing
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. |