математический код, который не работает в соответствии с желаемым выражением - PullRequest
Новая
       39

математический код, который не работает в соответствии с желаемым выражением

0 голосов
/ 26 мая 2020

введите описание изображения здесь

Я не смог сделать следующее выражение и заставить его давать точные результаты, если кто-нибудь может мне помочь, я буду рад. Я добавил свое выражение в пи c «хочу это», а мое испытание - как «мое испытание». правильный ответ должен равняться 0,119 при a = 1, b = 10, m = 3, n = 6. заранее большое спасибо. 

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)!)

1 Ответ

0 голосов
/ 02 июня 2020

Я нашел решение проблемы. проблема заключалась в том, что когда значение k было 0, коэффициент не будет равен 1, но все выражение должно быть найдено с самого начала для значения k, которое будет начинаться с 1, и выражения, когда значение k равно 0. Но я не смог. чтобы решить его с помощью MATHEMATICA, но, выполнив вышеуказанное, мне удалось получить правильный результат. спасибо всем за ваше драгоценное время и мнения.

...