为什么这个Mathematica算了半天也没算出来d = 2*\[Pi]\[Beta] = N[d/\!\(\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(2 \[Pi]\)]\(SqrtBox[\(1 + \*SuperscriptBox[\(Cos[xx]\), \(2\)]\)] \[DifferentialD]xx\)\)]\[Theta] = ArcTan[Cos[x]]\[Phi]

为什么这个Mathematica算了半天也没算出来d = 2*\[Pi]\[Beta] = N[d/\!\(\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(2 \[Pi]\)]\(SqrtBox[\(1 + \*SuperscriptBox[\(Cos[xx]\), \(2\)]\)] \[DifferentialD]xx\)\)]\[Theta] = ArcTan[Cos[x]]\[Phi]
为什么这个Mathematica算了半天也没算出来
d = 2*\[Pi]
\[Beta] = N[d/\!\(\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(2 \[Pi]\)]\(SqrtBox[\(1 + \*SuperscriptBox[\(Cos[xx]\), \(2\)]\)] \[DifferentialD]xx\)\)]
\[Theta] = ArcTan[Cos[x]]
\[Phi] = ArcTan[(\[Beta] - \[Beta]*Fr)*
Sin[\[Theta]]/(1 - (\[Beta] - \[Beta]*Fr) Cos[\[Theta]])]
FindRoot[Integrate[2*Sin[\[Theta]]*Sin[\[Phi]] - Cos[\[Theta]]*Cos[\[Phi]], {x, 0,d}] == 0.0, {Fr, 0.5}]
好象主要是最后那个积分算不出来,我只要数值解,应该可以算出来的.
谢谢!
用NIntegrate的话因为里面有参数，数值积分算不出来。看来没人答了，算了

为什么这个Mathematica算了半天也没算出来d = 2*\[Pi]\[Beta] = N[d/\!\(\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(2 \[Pi]\)]\(SqrtBox[\(1 + \*SuperscriptBox[\(Cos[xx]\), \(2\)]\)] \[DifferentialD]xx\)\)]\[Theta] = ArcTan[Cos[x]]\[Phi]
把Integrate 换成NIntegrate试试?

点击Mathematica的工具栏里看看
有可能你还没有给它装方程求解的软件
许多数学软件主要是一个平台
需要配套其它小软件运行
典型的是matlab

我也试了，确实很慢，最后告诉我虚拟内存不够，然后内核就关闭了，可能是运算量大的原因

budong

0.992

...深奥啊