Guest User

Untitled

a guest
Jun 19th, 2014
196
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. d[v_Plus] := d /@ v;
  2. d[v_] := v /. {
  3. x_^n_?NumberQ :> n x^(n - 1) d[x],
  4. (n_?NumberQ^x_) :> Log[n] n^x d[x],
  5. x_ y__ :> d[x] y + d[y] x, n_?NumberQ :> 0, x :> 1
  6. }
RAW Paste Data