Solve Integer Programming Problems

New in Wolfram Mathematica 6: Combinatorial Optimization

Mathematica can represent integer programming problems symbolically, then solve them with a single command.

FindMinimum[{Total[Array[x, 100]], 

  Join[Thread[

    RandomInteger[{-100, 100}, {100, 100}] . Array[x, 100] > 1], 

   Thread[Array[x, 100] > 0], {Array[x, 100] \[Element] Integers}]}, 

 Array[x, 100]]

Out[1]=