Advertisement
Guest User

Untitled

a guest
May 5th, 2015
213
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.23 KB | None | 0 0
  1. pdConv[f_] := TraditionalForm[ f /.Derivative[inds__][g_][vars__] :>
  2. Apply[Defer[D[g[vars], ##]] &,
  3. Transpose[{{vars}, {inds}}] /. {{var_, 0} :>
  4. Sequence[], {var_, 1} :> {var}}]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement