diff options
| -rw-r--r-- | setup.mac | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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!"); |