New in Wolfram Mathematica 6: Combinatorial Optimization ◄ previous | next ►
Find 3D Shortest Paths
Mathematica 6 can solve traveling salesman problems in any number of dimensions.
In[1]:=

Click for copyable input
With[{p = RandomReal[15, {50, 3}]}, 

 Graphics3D[{Thick, Line[p[[Last[FindShortestTour[p]]]]], Opacity[.3],

    Sphere /@ p}]]
Out[1]=