aboutsummaryrefslogtreecommitdiff
path: root/m
diff options
context:
space:
mode:
authorIan Hinder <ian.hinder@aei.mpg.de>2011-11-17 17:47:43 +0100
committerIan Hinder <ian.hinder@aei.mpg.de>2011-11-18 17:13:29 +0100
commit5fd1f73f9ca35f0852c0cb61f77abc8b053f5aff (patch)
treed3a62c9b64b23c48aeabc1fe61a670dce5acc7b1 /m
parent5859ce9074941ed0f52f5200d0adde8fed1d9012 (diff)
McLachlan_ADMConstraints.m: Fix index errors
Diffstat (limited to '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],