diff options
| -rw-r--r-- | tensors.mac | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/tensors.mac b/tensors.mac index e8e5a4f..6e9cf8d 100644 --- a/tensors.mac +++ b/tensors.mac @@ -20,3 +20,5 @@ cdiff(func, coord) := diff(func, ct_coords[coord])$ box_op(func) := ( expand(contr(ug[μ,ν] * cdiff(cdiff(func, ν), μ), [μ,ν]) - contr(ug[μ,ν] * mcs[μ,ν,ρ] * cdiff(func, ρ), [μ,ν,ρ])))$ + +mappend(f, list) := apply(append, map(f, list)); |