请教这个方程如何在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
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/15 03:37:40
请教这个方程如何在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
请教这个方程如何在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
如何把这部分修改能解上面那个方程呢?请多指教,
请教这个方程如何在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
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函数的帮助