Labfans是一个针对大学生、工程师和科研工作者的技术社区。 | 论坛首页 | 联系我们(Contact Us) |
![]() |
![]() |
#2 |
普通会员
注册日期: 2008-08-17
年龄: 43
帖子: 77
声望力: 18 ![]() |
![]()
方程求解应该用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}]] |
![]() |
![]() |