New in Wolfram Mathematica 6: Combinatorial Optimization
| ◄ previous | next ► |

Solve Traveling Salesman Problems

In[1]:= | With[{p = RandomReal[10, {100, 2}]}, Graphics[{Line[p[[Last[FindShortestTour[p]]]]], PointSize[Large], Red, Point[p]}]] |

Out[1]= |