百度作业网Mathematica求解方程
来源：学生作业帮 编辑：百度作业网作业帮 分类：数学作业 时间：2024/04/28 22:31:17
Mathematica求解方程
sinxcosx-x^2=0的所有根,麻烦给个完整代码,
sinxcosx-x^2=0的所有根,麻烦给个完整代码,
(*先画图观察看有几个根,它们分别在什么位置附近*)
Plot[Sin[x] Cos[x] - x^2,{x,-10,10}]
(*发现给的x范围太大了,缩小范围*)
Plot[Sin[x] Cos[x] - x^2,{x,-1,1}]
(*发现两个根分别在0和0.7附近,然后用FindRoot在0和0.7附近找根*)
FindRoot[Sin[x] Cos[x] - x^2 == 0,{x,0}]
FindRoot[Sin[x] Cos[x] - x^2 == 0,{x,0.7}]
下面是找到的两个根:
{x -> 0.}
{x -> 0.702207}
Plot[Sin[x] Cos[x] - x^2,{x,-10,10}]
(*发现给的x范围太大了,缩小范围*)
Plot[Sin[x] Cos[x] - x^2,{x,-1,1}]
(*发现两个根分别在0和0.7附近,然后用FindRoot在0和0.7附近找根*)
FindRoot[Sin[x] Cos[x] - x^2 == 0,{x,0}]
FindRoot[Sin[x] Cos[x] - x^2 == 0,{x,0.7}]
下面是找到的两个根:
{x -> 0.}
{x -> 0.702207}