悠闲数学娱乐论坛(第2版)'s Archiver

hbghlyj 发表于 2020-1-16 21:34

有关列表的问题

FindInstance[
  Sum[1/Subscript[x, i], {i, 1, n}] +
     1/Product[Subscript[x, i], {i, 1, n}] == 1 &&
   Subscript[x, 1] > Subscript[x, 2] > Subscript[x, 3] > Subscript[x,
    4] > Subscript[x, 5] > Subscript[x, 6] > 2,
  Table[Subscript[x, i], {i, n}], Integers] /. n -> 6

当n比较大时, Subscript[x, 1] > Subscript[x, 2] > Subscript[x, 3] > Subscript[x,
    4] > Subscript[x, 5] > Subscript[x, 6] > 2这段输入就很费力了,有没有什么处理方法?

页: [1]

Powered by Discuz! Archiver 7.2  © 2001-2009 Comsenz Inc.