diff options
Diffstat (limited to 'm/McLachlan_ADMConstraints.m')
-rw-r--r-- | m/McLachlan_ADMConstraints.m | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/m/McLachlan_ADMConstraints.m b/m/McLachlan_ADMConstraints.m index 19346e7..eaddae6 100644 --- a/m/McLachlan_ADMConstraints.m +++ b/m/McLachlan_ADMConstraints.m @@ -82,14 +82,10 @@ ddetgExpr[la_] = Sum [D[Det[MatrixOfComponents[g[la, lb]]], X] PD[X, la], {X, Union[Flatten[MatrixOfComponents[g[la, lb]]]]}]; -pi = N[Pi,40]; - (******************************************************************************) (* Groups *) (******************************************************************************) -SetGroupTimelevels[g_,tl_] = Join[g, {Timelevels -> tl}]; - evolvedGroups = {}; evaluatedGroups = {SetGroupName [CreateGroupFromTensor [H ], prefix <> "Ham"], @@ -163,9 +159,9 @@ ADMConstraintsCalc = (* ADM constraints *) H -> + trR - Km[ua,lb] Km[ub,la] + trK^2 - - addMatter 16 pi rho, + - addMatter 16 Pi rho, M[la] -> + gu[ub,uc] (CD[K[lc,la], lb] - CD[K[lc,lb], la]) - - addMatter 8 pi S[la] + - addMatter 8 Pi S[la] } }; |