[zsy312]

方程求解应该用mathematica，给出数值解方法，算出来1024组解（想算符号解的话把最开头第一个N去掉，估计电脑死机了也算不出来）
NSolve[Flatten[{Table[(3 - 5 Subscript[x, i]) Subscript[x, i] + 1 -
Subscript[x, i - 1] - 2 Subscript[x, i + 1] == 0, {i, 2,
9}], (3 - 5 Subscript[x, 1]) Subscript[x, 1] + 1 -
2 Subscript[x, 2] ==
0, (3 - 5 Subscript[x, 10]) Subscript[x, 10] + 1 - Subscript[x,
9] == 0}], Table[Subscript[x, i], {i, 10}]]