From d590d54167ddf2d1d44723cf1f0b74a7b3fa72ef Mon Sep 17 00:00:00 2001 From: Thomas Guillermo Albers Raviola Date: Mon, 3 Aug 2026 21:31:28 +0200 Subject: Fix sign in q_mcs and h_mcs --- setup.mac | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/setup.mac b/setup.mac index 1c4483a..2c210e4 100644 --- a/setup.mac +++ b/setup.mac @@ -83,7 +83,7 @@ for i : 3 thru 4 do for j : 3 thru 4 do for k : 3 thru 4 do ( h_mcs[i, j, k] : sum(uh_AB[k,C]*( cdiff(h_AB[j, C], i) + cdiff(h_AB[i, C], j) - + cdiff(h_AB[i, j], C))/2, C, 3, 4)); + - cdiff(h_AB[i, j], C))/2, C, 3, 4)); /* Riemann tensor of 2-sphere */ for i : 3 thru 4 do for j : 3 thru 4 do for k : 3 thru 4 do for l : 3 thru 4 do ( @@ -119,6 +119,6 @@ for i : 3 thru 4 do for j : 3 thru 4 do for k : 3 thru 4 do ( q_mcs[i, j, k] : sum(uq_AB[k,C]*( cdiff(q_AB[j, C], i) + cdiff(q_AB[i, C], j) - + cdiff(q_AB[i, j], C))/2, C, 3, 4)); + - cdiff(q_AB[i, j], C))/2, C, 3, 4)); print("Setup done!"); -- cgit v1.3