diff options
| -rw-r--r-- | tensors.mac | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tensors.mac b/tensors.mac index dea722a..6d7248a 100644 --- a/tensors.mac +++ b/tensors.mac @@ -19,3 +19,8 @@ contr(expr, var) ::= ( /* Differentiate with respect to nth coordinate */ cdiff(func, coord) := diff(func, ct_coords[coord])$ + +/* Wave operator */ +box_op(func) := ( + expand(contr(ug[μ,ν] * cdiff(cdiff(func, ν), μ), [μ,ν]) + - contr(ug[μ,ν] * mcs[μ,ν,ρ] * cdiff(func, ρ), [μ,ν,ρ])))$ |