Mathematica求解方程sinxcosx-x^2=0的所有根,麻烦给个完整代码,

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 21:26:29
Mathematica求解方程sinxcosx-x^2=0的所有根,麻烦给个完整代码,

Mathematica求解方程sinxcosx-x^2=0的所有根,麻烦给个完整代码,
Mathematica求解方程
sinxcosx-x^2=0的所有根,麻烦给个完整代码,

Mathematica求解方程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}