Z4co: formatting Z4c_rhs.wl

EinsteinToolkit · Jul 3, 2024 · 58572ae · 58572ae
1 parent 180aa48
commit 58572ae
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/Z4co/wolfram/wl/Z4c_rhs.wl b/Z4co/wolfram/wl/Z4c_rhs.wl
@@ -61,11 +61,9 @@ SetEQN[Ss[i_, j_], eT[i, j]];
 
 SetEQN[trSs[], invgam[k, l] Ss[-k, -l]];
 
-SetEQN[trdexAtUU[i_],
-  - invgamt[i, l] exAtUU[j, m] dgamt[-j, -l, -m]
-  - invgamt[j, l] exAtUU[i, m] dgamt[-j, -l, -m]
-  +
-   invgamt[i, l] invgamt[j, m] dexAt[-j, -l, -m]];
+SetEQN[trdexAtUU[i_], -invgamt[i, l] exAtUU[j, m] dgamt[-j, -l, -m] - invgamt[
+  j, l] exAtUU[i, m] dgamt[-j, -l, -m] + invgamt[i, l] invgamt[j, m] dexAt[
+  -j, -l, -m]];
 
 (* (13) *)