MATLAB爱好者论坛-LabFans.com - 查看单个帖子

zsy312 · 2009-05-28, 17:48

方程求解应该用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}]]

2009-05-28, 17:48	#2
zsy312 普通会员注册日期: 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}]]