diff options
Diffstat (limited to 'm/WeylScal4.m')
| -rw-r--r-- | m/WeylScal4.m | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/m/WeylScal4.m b/m/WeylScal4.m index ac86d90..fab4589 100644 --- a/m/WeylScal4.m +++ b/m/WeylScal4.m @@ -134,12 +134,18 @@ PsisCalc[fdOrder_, PD_] := Compute the local tetrad ****************************************************************************) + (* azmuthal *) va1 -> -ymoved, va2 -> xmoved+offset, va3 -> 0, + + (* radial *) vb1 -> xmoved+offset, vb2 -> ymoved, vb3 -> zmoved, + + (* polar *) vc[ua] -> Sqrt[detg] gInv[ua,ud] Eps[ld,lb,lc] va[ub] vb[uc], (* Orthonormalize using Gram-Schmidt*) + (* Orthonormalize in the order phi, r, theta *) wa[ua] -> va[ua], omega11 -> wa[ua] wa[ub] g[la,lb], ea[ua] -> wa[ua] / Sqrt[omega11], |