aboutsummaryrefslogtreecommitdiff
path: root/m/McLachlan_ADMConstraints.m
diff options
context:
space:
mode:
Diffstat (limited to 'm/McLachlan_ADMConstraints.m')
-rw-r--r--m/McLachlan_ADMConstraints.m2
1 files changed, 1 insertions, 1 deletions
diff --git a/m/McLachlan_ADMConstraints.m b/m/McLachlan_ADMConstraints.m
index 8a63258..9d26a2b 100644
--- a/m/McLachlan_ADMConstraints.m
+++ b/m/McLachlan_ADMConstraints.m
@@ -144,7 +144,7 @@ ADMConstraintsCalc =
gu[ua,ub] -> 1/detg detgExpr MatrixInverse[g[ua,ub]],
G[ua,lb,lc] -> 1/2 gu[ua,ud]
(PD[g[lb,ld],lc] + PD[g[lc,ld],lb] - PD[g[lb,lc],ld]),
- R[la,lb] -> G[uc,ld,la] G[lc,lb,ud] - G[uc,la,lb] G[lc,ld,ud]
+ R[la,lb] -> gu[us,ur](G[um,la,lr] G[uk,ls,lb] g[lk,lm] - G[um,la,lb] G[uk,ls,lr] g[lk,lm])
+ 1/2 gu[uc,ud] (- PD[g[lc,ld],la,lb] + PD[g[lc,la],ld,lb]
- PD[g[la,lb],lc,ld] + PD[g[ld,lb],lc,la]),
trR -> R[la,lb] gu[ua,ub],