diff options
| author | Thomas Guillermo Albers Raviola <thomas@thomaslabs.org> | 2026-07-22 12:19:02 +0200 |
|---|---|---|
| committer | Thomas Guillermo Albers Raviola <thomas@thomaslabs.org> | 2026-07-22 12:19:02 +0200 |
| commit | bf3c49ef7d1e4ea97b1f1f5828b1fc9f4e1cb6ca (patch) | |
| tree | bb870c7eea7d6ba576b0f0de96724ed3c6e8c3df /01-bondi.mac | |
| parent | 69d299196d1834a5eae3c87b3c9ac809d6e2e620 (diff) | |
Use Einstein tensor
Diffstat (limited to '01-bondi.mac')
| -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 ( |