Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- myExpand[expr_] :=
- Assuming[Cases[expr, _Symbol, All] [Element] Reals,
- Simplify[TensorExpand@expr]];
- myExpand[(k*f[a] + f[b]).(f[a, b] + g[a, b])]
- (* Out: k f[a].f[a, b] + k f[a].g[a, b] + f[b].f[a, b] + f[b].g[a, b] *)
Add Comment
Please, Sign In to add comment