altestudent, результат вовсе и не обязан быть даже после исправления ошибки. Конечно, упростить было бы неплохо, даже продвинутые проги не всегда могут решать задачу поставленную в лоб, а чуть причешешь ее, и уже что-то можно получить. Но в вашем конкретном случае я бы не стал заниматься упрощениями для того, чтобы снова применить метод NSolve. Ведь вы же не гарантируете, что существует решение этой системы уравнений? Поэтому я для начала бы численно прощупал почву, например использовав довольно быстро и неплохо работающий метод
NMinimize, например, вот так
Код:
NMinimize[{Abs[-28 + 1988 x169 + 2976 x170 + 3000 x169 x170 +
2978 x171 + 3000 x169 x171 + 4000 x170 x171 + 976 x172 +
1000 x169 x172 + 4000 x170 x172 + 4000 x171 x172 + 5990 x173 +
3000 x169 x173 + 4000 x170 x173 + 2000 x171 x173 + 2982 x174 +
1000 x170 x174 + 5000 x171 x174 + 5000 x172 x174 +
6000 x173 x174 - 11 x175 + 2000 x169 x175 + 8000 x170 x175 +
4000 x171 x175 + 7000 x172 x175 + 1000 x173 x175 +
4000 x174 x175 + 980 x176 + 8000 x169 x176 + 6000 x170 x176 +
3000 x171 x176 + 3000 x172 x176 + 3000 x173 x176 +
3000 x174 x176 + 3000 x175 x176 + 2989 x177 + 2000 x169 x177 +
2000 x170 x177 + 1000 x171 x177 + 1000 x172 x177 +
3000 x173 x177 + 4000 x174 x177 + 3000 x175 x177 +
6000 x176 x177 + 5975 x178 + 3000 x169 x178 + 2000 x170 x178 +
5000 x171 x178 + 3000 x172 x178 + 3000 x173 x178 +
5000 x174 x178 + 5000 x175 x178 + 5000 x176 x178 +
6000 x177 x178 + 1980 x179 + 2000 x169 x179 + 1000 x170 x179 +
2000 x171 x179 + 3000 x172 x179 + 3000 x173 x179 +
3000 x174 x179 + 4000 x175 x179 + 4000 x176 x179 +
2000 x177 x179 + 4000 x178 x179 + 6975 x180 + 3000 x169 x180 +
2000 x170 x180 + 4000 x171 x180 + 2000 x172 x180 +
3000 x173 x180 + 2000 x174 x180 + 3000 x175 x180 +
3000 x176 x180 + 3000 x177 x180 + 3000 x178 x180 +
3000 x179 x180 + 2980 x181 + 1000 x169 x181 + 5000 x170 x181 +
3000 x171 x181 + 2000 x172 x181 + 5000 x173 x181 +
3000 x174 x181 + 2000 x175 x181 + 7000 x176 x181 +
6000 x177 x181 + 5000 x178 x181 + 3000 x179 x181 +
5000 x180 x181 + 6985 x182 + 4000 x169 x182 + 2000 x170 x182 +
4000 x171 x182 + 7000 x172 x182 + 5000 x173 x182 +
8000 x174 x182 + 5000 x175 x182 + 2000 x176 x182 +
3000 x177 x182 + 3000 x178 x182 + 3000 x179 x182 +
1000 x180 x182 + 3000 x181 x182 + 3986 x183 + 2000 x169 x183 +
2000 x170 x183 + 6000 x171 x183 + 1000 x172 x183 +
5000 x173 x183 + 3000 x174 x183 + 2000 x175 x183 +
3000 x177 x183 + 3000 x178 x183 + 3000 x179 x183 +
4000 x180 x183 + 7000 x181 x183 + 5000 x182 x183 - 29 x184 +
2000 x169 x184 + 4000 x171 x184 + 8000 x172 x184 +
3000 x173 x184 + 3000 x174 x184 + 3000 x175 x184 +
3000 x176 x184 + 7000 x177 x184 + 2000 x178 x184 +
3000 x179 x184 + 4000 x180 x184 + 3000 x181 x184 +
4000 x182 x184 + 5000 x183 x184 + 2974 x185 + 7000 x169 x185 +
5000 x170 x185 + 6000 x171 x185 + 3000 x172 x185 +
4000 x173 x185 + 3000 x175 x185 + 3000 x176 x185 +
4000 x177 x185 + 5000 x178 x185 + 7000 x179 x185 +
2000 x180 x185 + 5000 x181 x185 + 5000 x182 x185 +
1000 x183 x185 + 4000 x184 x185],
x169 >= 0, x170 >= 0, x171 >= 0, x172 >= 0, x173 >= 0, x174 >= 0,
x175 >= 0, x176 >= 0, x177 >= 0, x178 >= 0, x179 >= 0, x180 >= 0,
x181 >= 0, x182 >= 0, x183 >= 0, x184 >= 0, x185 >= 0,
x169 <= 1, x170 <= 1, x171 <= 1, x172 <= 1, x173 <= 1, x174 <= 1,
x175 <= 1, x176 <= 1, x177 <= 1, x178 <= 1, x179 <= 1, x180 <= 1,
x181 <= 1, x182 <= 1, x183 <= 1, x184 <= 1, x185 <= 1
}, {x169, x170, x171, x172, x173, x174, x175, x176, x177, x178,
x179, x180, x181, x182, x183, x184, x185}]
Ведь если решение есть, то минимизация должна нас привести к нулю. Другое дело, что мы таким образом не получим все возможные решения системы, но по крайней мере хоть что-то можно будет понять.
В этом конкретном случае к нулю мы не приходим, где-то близко, но все же не ноль. Либо к нему там в точности тяжело пробраться, либо все же система не имеет решения и просто долго и упорно пытается к нему прийти. А может вам и не нужно абсолютно точное решение этой системы? Тогда вообще берете этот метод и с его помощью получаете нужный результат. В этом методе еще можно поиграть с параметрами точности, с количеством итераций, методами.
P.S. Я в вашей системе уравнений х4 просто убрал. Если это не так, то минимизируемую функцию надо подкорректировать.
, то многие вопросы можно разрешить методом базисов Гребнера.