diff options
| -rw-r--r-- | 01-bondi.mac | 6 |
1 files changed, 5 insertions, 1 deletions
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 ( |