搜搜做题作业网有关mathematica
来源：学生作业帮 编辑：搜搜做题作业网作业帮 分类：数学作业 时间：2024/04/29 14:39:41
有关mathematica
Solve[x -
ArcSin[Sin[x + 0.1364]/
Sqrt[(1880/178)^2 + 1 - 3760/178*Cos[x + 0.1364]]] -
ArcCos[(1880/178*(2*Cos[x] - Cos[x + 0.1364] - Cos[2*x]))/
Sqrt[(1880/178)^2 + 1 - 3760/178*Cos[x + 0.1364]]] == -89.8635,x]
我这个公式怎么求解不出答案啊,记事本最上状态栏一直显示正在运行,但是都得不出答案,感激不尽啊.
Solve[x -
ArcSin[Sin[x + 0.1364]/
Sqrt[(1880/178)^2 + 1 - 3760/178*Cos[x + 0.1364]]] -
ArcCos[(1880/178*(2*Cos[x] - Cos[x + 0.1364] - Cos[2*x]))/
Sqrt[(1880/178)^2 + 1 - 3760/178*Cos[x + 0.1364]]] == -89.8635,x]
我这个公式怎么求解不出答案啊,记事本最上状态栏一直显示正在运行,但是都得不出答案,感激不尽啊.
我看你这个是想求一个数值解吧,请用NSolve求解,或者用FindRoot函数求解,FindRoot函数求解的时候,要指定根的位置.
这些知识应该老师上课的时候有讲吧,如果你对微积分和线性代数的知识没有了解,用mathematica 是很痛苦的事情.当然在使用过程中你自己慢慢摸索,你也会逐渐知道哪些问题微积分可以解哪些不可以解.
如果Solve函数能直接求出这个这个方程的解,那一定是利用了超出人类理解范畴的外星文明科技吧.如果你不明白我的这句话,可以买本《代数的历史》或者类似的书看看,你就知道人类研究了几千年的数学之后,目前能够求解的方程只是很有限的几种而已.
再问： 谢谢你，但是我用NSolve怎么也求解不出来啊，它显示正在运行、、、、就是不出结果。你能帮我运行下吗？感谢啊
再答： 假设 f=x - ArcSin[ Sin[x + 0.1364]/ Sqrt[(1880/178)^2 + 1 - 3760/178*Cos[x + 0.1364]]] - ArcCos[(1880/178*(2*Cos[x] - Cos[x + 0.1364] - Cos[2*x]))/ Sqrt[(1880/178)^2 + 1 - 3760/178*Cos[x + 0.1364]]] + 89.8635 第一步，先画图，发现你的方程的根在[-90,-88]之间 Plot[f, {x, -100, 0}, PlotRange -> All, AxesOrigin -> {Automatic, 0}] 第二步，用FindRoot在这个函数的根附近求根 FindRoot[f, {x, -90}] 得到， {x -> -89.5078} 只要你用对了方法，一瞬间就算出来了
这些知识应该老师上课的时候有讲吧,如果你对微积分和线性代数的知识没有了解,用mathematica 是很痛苦的事情.当然在使用过程中你自己慢慢摸索,你也会逐渐知道哪些问题微积分可以解哪些不可以解.
如果Solve函数能直接求出这个这个方程的解,那一定是利用了超出人类理解范畴的外星文明科技吧.如果你不明白我的这句话,可以买本《代数的历史》或者类似的书看看,你就知道人类研究了几千年的数学之后,目前能够求解的方程只是很有限的几种而已.
再问： 谢谢你，但是我用NSolve怎么也求解不出来啊，它显示正在运行、、、、就是不出结果。你能帮我运行下吗？感谢啊
再答： 假设 f=x - ArcSin[ Sin[x + 0.1364]/ Sqrt[(1880/178)^2 + 1 - 3760/178*Cos[x + 0.1364]]] - ArcCos[(1880/178*(2*Cos[x] - Cos[x + 0.1364] - Cos[2*x]))/ Sqrt[(1880/178)^2 + 1 - 3760/178*Cos[x + 0.1364]]] + 89.8635 第一步，先画图，发现你的方程的根在[-90,-88]之间 Plot[f, {x, -100, 0}, PlotRange -> All, AxesOrigin -> {Automatic, 0}] 第二步，用FindRoot在这个函数的根附近求根 FindRoot[f, {x, -90}] 得到， {x -> -89.5078} 只要你用对了方法，一瞬间就算出来了