From Wikipedia, the free encyclopedia
[edit] Summary
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.
[edit] Licensing
File links
The following pages on the English Wikipedia link to this file (pages on other projects are not listed):