diff options
| author | knarf <knarf@4f5cb9a8-4dd8-4c2d-9bbd-173fa4467843> | 2011-12-14 04:21:01 +0000 |
|---|---|---|
| committer | knarf <knarf@4f5cb9a8-4dd8-4c2d-9bbd-173fa4467843> | 2011-12-14 04:21:01 +0000 |
| commit | 42ff62fadff7f55845ea8f1177c57923e4b3c8b6 (patch) | |
| tree | 95d03f779347efe9506bdfd2aba84ed18bd0e731 | |
| parent | 6074c29751d3213bd8d27f31875da12cf61bed0c (diff) | |
Add-comments-to-describe-the-order-of-orthonormalisa
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/WeylScal4/trunk@93 4f5cb9a8-4dd8-4c2d-9bbd-173fa4467843
| -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], |