Mathematicaで

質問

Mathematicaでf[θ]=sinθ-(lθ)/L=0をθについて解きたいんですが、Solveでは解けません。どうしたらいいですか？ちなみに、l=100,L=100.01です。

回答No.1

info22_ · ベストアンサー

参考URLのP18,P19のNewton法を使用して
Plotのグラフから初期値を決め、FindRootで数値解を求めて見てください。

当方、Mathematicaが使える環境に無いためWolframAlphaサイトとMaximaでやって見ました。
次の３つの解がえられました。
x=0(初期値xo=0)
x=0.024494053835085(初期値xo=0.025)
x=-0.024494053835085(初期値xo=-0.025)

参考URL：

http://www.ipl.cs.is.nagoya-u.ac.jp/~zujyo/Math02.pdf

お礼

大変助かりました。ありがとうございました。