Find 3D Shortest Paths
Mathematica can solve traveling salesman problems in any number of dimensions.
In[1]:=  |  With[{p = RandomReal[15, {50, 3}]},
Graphics3D[{Thick, Line[p[[Last[FindShortestTour[p]]]]], Opacity[.3],
Sphere /@ p}]] |
Out[1]=  |  |
| Wolfram Technology Guide: Combinatorial Optimization | ◄ previous | next ► |
In[1]:= | With[{p = RandomReal[15, {50, 3}]},
Graphics3D[{Thick, Line[p[[Last[FindShortestTour[p]]]]], Opacity[.3],
Sphere /@ p}]] |
Out[1]= | |