Hi everyone,
I have been trying to do some computations with xCoba but I'm not sure I'm doing it correctly. As an example, I have successfully calculated the Pontryagin density, defined as {}^*RR=\varepsilon^{cdmn}R^{a}{}_{bmn}R^{b}{}_{acd}on a slowly rotating black hole spacetime.
This seems to work if I use the code
1/2 epsilongg[a, b, c, d] RiemannCD[-e, f, -a, -b] RiemannCD[-f,e, -c, -d] /. epsilonToetaUp[gg, Kerr] //SeparateMetric[gg] // SeparateMetric[gg] // ToBasis[Kerr] // ToBasis[Kerr] // CovDToChristoffel // TraceBasisDummy // ComponentArray // ToValues // ToValues // TruncateToOrder[#, aa, expansionOrder] & // FullSimplify
I tried doing the same calculation defining CTensors of the Dual Riemann and Riemann tensors instead, when I do this my code looks like
DualRiemannCtensor[-f, e, a, b] RiemannCTensor[-e, f, -a, -b] //ToBasis[Kerr] // ToBasis[Kerr] // CovDToChristoffel //TraceBasisDummy // ComponentArray // ToValues // ToValues //TruncateToOrder[#, aa, expansionOrder] & // FullSimplify
However this seems to yield a different result and I'm not sure what's going wrong.
The reason I'm doing it in this way is because later on I want to calculate things like
$\frac{\alpha}{2\kappa}\nabla_f \nabla_c \Phi\Big(g_{ah}\varepsilon^{hcde}R^f{}_{bde}+g_{bh}\varepsilon^{hcde}R^f{}_{ade} \Big)$,
However this is not computing using the first method, and my computer crashes because the Dual Riemann has many abstract components, I have done the calculation by defining it as CTensors, however I'm not sure I can trust them since they don't seem to recover the result for the Pontryagin density.
If someone could have a look at my code and tell me if there are better ways of doing it, it would be really helpful. The bits I am interested in are in the Test 1 and Test 2 sections in the notebook I'm attaching.
Cheers,
Alejandro