Advertisement
Guest User

Untitled

a guest
Jun 24th, 2019
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.54 KB | None | 0 0
  1. Series[-q (c[x1] - c[x2]), {x2, x1, 1}]
  2. Exp[%] // Normal // Simplify
  3. (Exp[%% // Normal]) // Simplify
  4.  
  5. SeriesData[x2, x1, {q*Derivative[1][c][x1]}, 1, 2, 1]
  6. 1 + q*(-x1 + x2)*Derivative[1][c][x1]
  7. E^(q*(-x1 + x2)*Derivative[1][c][x1])
  8.  
  9. z = Series[-q (c[x1] - c[x2]), {x2, x1, 1}]
  10. (* q c'[x1] (x2 - x1) + O[x2 - x1]^2 *)
  11.  
  12. Exp[z] // Normal // Simplify
  13. (* 1 + q (-x1 + x2) c'[x1] *)
  14.  
  15. (Exp[z // Normal]) // Simplify
  16. (* E^(q (-x1 + x2) c'[x1]) *)
  17.  
  18. Series[Exp[-q (c[x1] - c[x2])], {x2, x1, 1}]
  19. (* 1 + q (-x1 + x2) c'[x1] *)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement