Guest User

Untitled

a guest
Jun 19th, 2018
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.61 KB | None | 0 0
  1. g[x_, i_, j_, p_, q_] = (x + p)^i*(x + q)^j;
  2.  
  3. f[u_, i_, j_, p_, q_] = SeriesCoefficient[g[x, i, j, p, q], {x, 0, u},
  4. Assumptions -> u >= 0]
  5.  
  6. (* p^i q^(j - u) Binomial[j, u] Hypergeometric2F1[-i, -u, 1 + j - u, q/p] *)
  7.  
  8. Table[g[x, i, j, p, q] ==
  9. Sum[x^v*Limit[f[u, i, j, p, q], u -> v], {v, 0, i + j}],
  10. {i, 0, 3}, {j, 0, 7}] // Simplify
  11.  
  12. (* {{True, True, True, True, True, True, True, True},
  13. {True, True, True, True, True, True, True, True},
  14. {True, True, True, True, True, True, True, True},
  15. {True, True, True, True, True, True, True, True}} *)
Add Comment
Please, Sign In to add comment