すべての係数を正の値に設定するにはMathematicaを使って整数方程式を解く？

Question

ここで、a_iは整数であり、 は、式 ∑a_i x_i=0 x_i> = 0であり、x_iは整数であると解く​​。 Mathematicaを使用

、我々は Solve[A . Table[x[i], {i, n}] = 0 && Table[x[i] > 0, {i, n}], Integers] のようないくつかのコードを書くことができます。しかしTable[x[i] > 0上記の条件が正しくコーディングされていません。それはx[1]>0 && x[2]>0 && x[3]>0 &&...x[n]>0である必要があります。そのようなコードを書く簡単な方法はありますか？

Answer 1

ReduceはSolveではないので、Reduceは不等式を扱うことができます。 x[1] > 0 && ... && x[n] > 0にTable[x[i] > 0, {i, n}]を回すことにしたようそれは簡単です：Apply（@@）の短い形式を使用しています

が

And @@ Table[x[i] > 0, {i, n}] 

And[x[1] > 0, ..., x[n] > 0] 

あるいは、より視覚的に、

に

List[x[1] > 0, ..., x[n] > 0] 

をオンにします

x[1] > 0 && ... && x[n] > 0