求助像Sin[ax]=x,这样的如何给定不同的值,求x的数值解
mathematica吧
全部回复
仅看楼主
level 3
hdguangshan3 楼主
2017年12月01日 02点12分 1
level 12
超越方程第一步应该是作图
2017年12月01日 03点12分 2
level 3
hdguangshan3 楼主
这只是我举得一个例子,由于我的方程比较复杂,想问可不可以数值求解
2017年12月01日 03点12分 3
level 1
s = {0, 0};
For[i = 1, i <= 2, i++,
s[[i]] = Solve[Table [a x + 1 == 2, {a, 1, 2}][[i]], x]];
s
我这么实现的,但是感觉有点复杂
2017年12月01日 14点12分 5
吧务
level 15
关于For,来先把这帖看了:https://tieba.baidu.com/p/5104865347
超越方程数值解可以用FindRoot或者RootSearch程序包(http://library.wolfram.com/infocenter/Demos/4482/):
Table[FindRoot[Sin[a x] == x, {x, 5, 0, 10}], {a, 10, 20}]
初始猜测选的比较随便,如果需要找特定位置的解还得继续调。
2017年12月02日 07点12分 7
1