<< xAct`xPert`
$PrePrint = ScreenDollarIndices;
$CovDFormat = "Prefix";
$CommuteCovDsOnScalars = True;
(*Print the Perturbation Order in Blue Color*)
Unprotect[IndexForm];
IndexForm[LI[x_]] := ColorString[ToString[x], RGBColor[0, 0, 1]];
Protect[IndexForm];
(* Organize terms acoording to perturbation order *)
org[expr_] := Collect[ContractMetric[expr], $PerturbationParameter, ToCanonical];
(*Definitions*)
DefManifold[M, 4, {a, b, c, d, e, f, l, m, n}]
DefMetric[-1, g[-a, -b], CD, PrintAs -> "g", WeightedWithBasis -> AIndex,CurvatureRelations -> True]
(*HERE I TRY TO INTRODUCE THE TRACE-REVERSED PERTURBATION*)
DefMetricPerturbation[g, h, ε]
DefTensor[H[LI["order"], -a, -b], M, Symmetric[{-a, -b}]]
h[LI[ord_Integer?Positive], inds__] := H[LI[ord], inds] - 1/2 g[inds] Module[{c}, H[LI[order], c, -c]]
NOW THE PROBLEM!!!
When I try to calculate the perturbation of the Christoffel and the Riemann tensors this apparently works, but for the Ricci Tensor, Ricci Scalar and Einstein Tensor I get an ERROR. For example:
Perturbed[RicciCD[-a, -b] , 1] // ExpandPerturbation // Simplification // org
Validate::inhom : Found inhomogeneous indices: {IndexList[-a, -b], IndexList[-b, -n$35799]}.
Throw::nocatch : Uncaught Throw[Null] returned to top level.
I really need to solve this problem but I have no idea how to do it and I'm also not a Mathematica expert. Could you please help me??
Cheers,
Jorge Preciado
h[LI[ord_Integer?Positive], inds__] := H[LI[ord], inds] - 1/2 g[inds] Module[{c}, H[LI[order], c, -c]]
I Can't understand what this is for.
traceReverse = IndexRule[h[LI[ord_Integer?Positive], a_, b_], H[LI[ord], a, b] - 1/2 g[a, b] H[LI[order], c, -c]];
ExpandPerturbation[Perturbed[RicciCD[-a, -b], 1]] /. traceReverse // Simplification // org
Regards,
Barry
--
You received this message because you are subscribed to the Google Groups "xAct Tensor Computer Algebra" group.
To unsubscribe from this group and stop receiving emails from it, send an email to xact+uns...@googlegroups.com.
For more options, visit https://groups.google.com/groups/opt_out.
ExpandPerturbation[Perturbed[EinsteinCD[a, b] , 1]] /. traceReverse // ToCanonical // Simplification // org // ScreenDollarIndices