无法根据需要的表达式工作的数学代码

问题描述 投票:-1回答:1

enter image description here

如果有任何人可以帮助我,我将无法表达以下表达式,我将很高兴。我在照片“ want this”中附加了我的表情,在我的试用中附加了“我的试用”。当a = 1,b = 10,m = 3,n = 6时,正确答案必须等于0.119。提前非常感谢。

a = 1
b = 10
m = 3
n = 6
a^1 b^n (Sum[
Sum[Sum[Sum[(-1)^(k + v - n + m + 1)
     If[k == 0, 1, 
     SeriesCoefficient[Series[(-Log[1 - x])^k, {x, 0, 30}], 
      p + k]] If[n - k - 2 == 0, 1, 
     SeriesCoefficient[
      Series[(-Log[1 - x])^(n - k - 2), {x, 0, 30}], 
      q + (n - k - 2)]]
    Binomial[n - m - 1, k] Binomial[b - 1, 
     v] (-PolyGamma[0, -1 + 1/a - k + n + q] + 
       PolyGamma[0, 2/a + n + p + q + v])/(a (1 + k + p + v) + 
       1), {q, 0, 30 - (n - k - 2)}], {p, 0, 30 - k}], {v, 0, 
  b - 1}], {k, 0, n - m - 1}])/((m - 1)! (n - m - 1)!)
math wolfram-mathematica mathematical-optimization symbolic-math discrete-mathematics
1个回答
0
投票

我找到了解决问题的方法。问题是,当k的值为0时,系数将不等于1,但是必须从头开始找到整个表达式,其中k的值将从1开始,而k的值为0时则为表达式。使用MATHEMATICA解决该问题,但是通过上述操作,我成功获得了正确的结果。感谢大家的宝贵时间和意见。

© www.soinside.com 2019 - 2024. All rights reserved.