Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- pdConv[f_] := TraditionalForm[ f /.Derivative[inds__][g_][vars__] :>
- Apply[Defer[D[g[vars], ##]] &,
- Transpose[{{vars}, {inds}}] /. {{var_, 0} :>
- Sequence[], {var_, 1} :> {var}}]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement