From bf3c49ef7d1e4ea97b1f1f5828b1fc9f4e1cb6ca Mon Sep 17 00:00:00 2001
From: Thomas Guillermo Albers Raviola <thomas@thomaslabs.org>
Date: Wed, 22 Jul 2026 12:19:02 +0200
Subject: Use Einstein tensor

---
 01-bondi.mac | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to '01-bondi.mac')

diff --git a/01-bondi.mac b/01-bondi.mac
index c7cd02b..9240820 100644
--- a/01-bondi.mac
+++ b/01-bondi.mac
@@ -8,9 +8,13 @@ load("series.mac")$
 /* Stress-energy tensor of the theory */
 T_ab : zeromatrix(4,4)$
 
+/* Einstein tensor */
+for i : 1 thru 4 do for j : 1 thru 4 do (
+  G_ab[i,j] : expand(ric[i,j] - ric_s*lg[i,j]/2));
+
 /* Einstein equations tensor */
 for i : 1 thru 4 do for j : 1 thru 4 do (
-  E_ab[i,j] : expand(ric[i,j] - ric_s*lg[i,j]/2 - 8*%pi*T_ab[i,j]))$
+  E_ab[i,j] : expand(G_ab[i,j] - 8*%pi*T_ab[i,j]))$
 
 /* Einstein equations tensor with mixed indices */
 for i : 1 thru 4 do for j : 1 thru 4 do (
-- 
cgit v1.3