User Portlet
| Discussions |
|---|
| Hi Nasser, I rediscover basically the same solution: DerivativeForm[expr_] := Module[{funcvar, lisubs}, funcvar[n_][var_] := Select[Flatten[Transpose[{var, n}], {1}], #[[2]] != 0 &] /. {x_, 1} -> x; ... |