请教这个方程如何在mathematica中求解呢?
来源:学生作业帮 编辑:百度作业网作业帮 分类:数学作业 时间:2024/04/28 09:21:46
请教这个方程如何在mathematica中求解呢?
其中
我看到这个方程
的解是
exp = Integrate[b^a l^(a - 1) Exp[-b l]/Gamma[a] /.a -> 58 b,{l,0,95.7},Assumptions -> (Re[b] > 0)]
FindRoot[exp == 0.9,{b,1}]
(* {b -> 0.000917585} *)
a -> 58
如何把这部分修改能解上面那个方程呢?请多指教,
其中
我看到这个方程
的解是
exp = Integrate[b^a l^(a - 1) Exp[-b l]/Gamma[a] /.a -> 58 b,{l,0,95.7},Assumptions -> (Re[b] > 0)]
FindRoot[exp == 0.9,{b,1}]
(* {b -> 0.000917585} *)
a -> 58
如何把这部分修改能解上面那个方程呢?请多指教,
In[10]:= Clear@"`*"; FindRoot[
Integrate[
Gamma[a + b]/(Gamma[a] + Gamma[b]) t^(a - 1) (1 - t)^(b - 1) /.
b -> 11.5 a,{t,0,0.1},Assumptions -> a > 0] == 0.95,{a,
0.001}]
Out[10]= {a -> 0.06486553060675397 - 2.918100346409042*10^-20 I}
/.表示替换,你可以看看Replace函数的帮助
Integrate[
Gamma[a + b]/(Gamma[a] + Gamma[b]) t^(a - 1) (1 - t)^(b - 1) /.
b -> 11.5 a,{t,0,0.1},Assumptions -> a > 0] == 0.95,{a,
0.001}]
Out[10]= {a -> 0.06486553060675397 - 2.918100346409042*10^-20 I}
/.表示替换,你可以看看Replace函数的帮助
请教这个方程如何在mathematica中求解呢?
在mathematica 中如何求解偏微分方程
如何在命令行中使用Mathematica呢?
mathematica在积分方程中的求解
Mathematica求解方程
\[FormalCapitalX] 在mathematica 中代表什么呢
如何在matlab中求解tan(x)-x=-17.18741575,这个方程,急,
Mathematica如何求解下面方程 求解MY的20次方根
在Mathematica中,如何清除所有赋值?
mathematica,如何在结果中去掉括号{}?
在Mathematica软件中如何表达光速
如何用mathematica求解以下方程