Wolfram Technology Guide: Combinatorial Optimization  previous | next 
Find 3D Shortest Paths
Mathematica 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]=