ADMconstraints: add ADM_vars.wl

EinsteinToolkit · Nov 18, 2024 · a29c293 · a29c293
1 parent 70949f4
commit a29c293
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/ADMconstraints/wolfram/wl/ADM_vars.wl b/ADMconstraints/wolfram/wl/ADM_vars.wl
@@ -0,0 +1,19 @@
+(* ::Package:: *)
+
+(* ADM_vars.wl *)
+
+(* (c) Liwei Ji, 07/2024 *)
+
+(* ADM variables *)
+
+ADMVarlist =
+  GridTensors[
+    {ADMgam[-i, -j], Symmetric[{-i, -j}], PrintAs -> "\!\(\*SuperscriptBox[\(\[Gamma]\), \((ADM)\)]\)"},
+    {ADMK[-i, -j], Symmetric[{-i, -j}], PrintAs -> "\!\(\*SuperscriptBox[\(K\), \((ADM)\)]\)"},
+    {ADMalpha[], PrintAs -> "\!\(\*SuperscriptBox[\(\[Alpha]\), \((ADM)\)]\)"},
+    {ADMbeta[i], PrintAs -> "\!\(\*SuperscriptBox[\(\[Beta]\), \((ADM)\)]\)"}
+    (*,
+    {ADMdtalpha[], PrintAs -> "\!\(\*SubscriptBox[\(\[PartialD]\), \\(t\)]\)\!\(\*SuperscriptBox[\(\[Alpha]\), \((ADM)\)]\)"},
+    {ADMdtbeta[i], PrintAs -> "\!\(\*SubscriptBox[\(\[PartialD]\), \\(t\)]\)\!\(\*SuperscriptBox[\(\[Beta]\), \((ADM)\)]\)"}
+    *)
+  ];