请教这个方程如何在mathematica中求解呢?
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:数学作业 时间:2024/07/16 03:03:59
请教这个方程如何在mathematica中求解呢?
![](http://img.wesiedu.com/upload/0/69/069420c754aa4a0405dd1f269510bbec.jpg)
其中
![](http://img.wesiedu.com/upload/b/08/b08f0cdf1537cfd06688dd6fe7f3708b.jpg)
我看到这个方程
![](http://img.wesiedu.com/upload/7/ae/7ae800caad07a29c0d5f3b9df5fd52f7.jpg)
的解是
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
如何把这部分修改能解上面那个方程呢?请多指教,
![](http://img.wesiedu.com/upload/0/69/069420c754aa4a0405dd1f269510bbec.jpg)
其中
![](http://img.wesiedu.com/upload/b/08/b08f0cdf1537cfd06688dd6fe7f3708b.jpg)
我看到这个方程
![](http://img.wesiedu.com/upload/7/ae/7ae800caad07a29c0d5f3b9df5fd52f7.jpg)
的解是
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
如何把这部分修改能解上面那个方程呢?请多指教,
![请教这个方程如何在mathematica中求解呢?](/uploads/image/z/5627932-52-2.jpg?t=%E8%AF%B7%E6%95%99%E8%BF%99%E4%B8%AA%E6%96%B9%E7%A8%8B%E5%A6%82%E4%BD%95%E5%9C%A8mathematica%E4%B8%AD%E6%B1%82%E8%A7%A3%E5%91%A2%3F)
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求解以下方程