搜狗做题网为什么这个Mathematica算了半天也没算出来
来源：学生作业帮 编辑：搜狗做题网作业帮 分类：综合作业 时间：2024/06/30 15:39:42
为什么这个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的话因为里面有参数，数值积分算不出来。看来没人答了，算了
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的话因为里面有参数，数值积分算不出来。看来没人答了，算了
把Integrate 换成NIntegrate试试?
为什么这个Mathematica算了半天也没算出来
算了好久也 没算出来,求救
算了好久也没算出来
为什么算了半天的数,最后算出来的加权平均值比实际小
一根铁丝20厘米 围成一个半圆 ( 一个半圆弧加上一个直径 ) 求这个半圆的面积 我算了一天也没算出来 谁知道呀..
我算了很久都没算出来,
她爸算了半天没算出来,让我教她,我想小学题能算不出来,好歹我也是大学本科毕业的,结果快半小时,
一加一等于几,算了好久没算出来😭
1+1=几,我算了很久都没算出来
求函数y=-2sin²x-8cosx+7,x∈[-π/6,π/3]的值域 这道题怎么算呢?我算了半天都没算出来
对冲突这个名词的解释找了半天也没找出来
本题看了半天也没看懂,