Mathematica求解方程

问题描述:

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...