请教这个方程如何在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
xU[oE+#KEvٝWˁmle7jhP%h)Myx7ο`vLU+i5;G|̷դ>>%߻=>=:!^v+ӖuK[яOe_>yb:{3yx]PXv}C$謕%X^44e+ ^XO/ ;-`~o0(JvϬih @_xC塭fy , BB-TU

请教这个方程如何在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函数的帮助