Advertisement
Guest User

Untitled

a guest
Jun 27th, 2019
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.34 KB | None | 0 0
  1. Sum[Binomial[a, n] DifferenceDelta[f[x], {x, n}], {n, 0, Infinity}]
  2.  
  3. Block[{a = 1, f = Exp},
  4. Sum[Binomial[a, n] DifferenceDelta[f[x], {x, n}], {n, 0, Infinity}]
  5. ]
  6. (* E^(1 + x) *)
  7.  
  8. Block[{a = 2, f = TrigToExp@*Sin},
  9. Sum[Binomial[a, n] DifferenceDelta[f[x], {x, n}], {n, 0, Infinity}]
  10. ] // FullSimplify
  11. (* Sin[2 + x] *)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement