0

私は持っている

f[x__]:=(Sqrt[2] Sqrt[-E^(-2 p x) g R (-2-14 p^2-E^(2 p x) Cos[x]+
         2 E^(2 p x) p^2 Cos[x]+3 E^(2 p x) p Sin[x])])/Sqrt[1+4 p^2]


g = 10
R = 2
p = 0.3

そして、次のルートを見つけたい:

f[x]^2 == - g R Cos[x]

Solve を試みると、「この関数は、Solve で使用可能なメソッドでは解決できません」というメッセージが表示されます。これは Reduce でも同じです。また、Root を試みると、「... は単変数多項式ではありません」というメッセージが表示されます。

上記の方程式の根をどのように近似できますか?

4

1 に答える 1

2 
Plot[f[x]^2 + g R Cos[x], {x, 0, 20}, 
 Epilog -> {PointSize[Large], Red, Point[{x, 0} /. 
           Table[FindRoot[f[x]^2 + g R Cos[x] == 0, {x, i}], {i, 2, 20, 3}]]}]

Mathematica グラフィックス

于 2013-03-14T00:27:19.347 に答える