It's my first time here, and it's the first time that I try to work with Mathematica, so I am a bit lost! If somebody could help me I'll always be grateful!
I need to define a generale basis for a metric
<< xActShowTime1
DefManifold[M, 4, {a, b, c, d, e, f, g, h, i, j, k}]
DefMetric[-1, gg[-a, -b], CovDer, CurvatureRelations -> True]
DefChart[
ChandraChart, M, {0, 1, 2, 3}, {t[], ϕ[], r[], θ[]},
FormatBasis -> {"Partials", "Differentials"}]
DefScalarFunction[nu]
DefScalarFunction[psi]
DefScalarFunction[mu2]
DefScalarFunction[mu3]
DefScalarFunction[omega]
DefConstantSymbol[mm]
DefConstantSymbol[aa]
MetricTensorArray
FullSimplify[
{{-Exp[2 nu[r[], θ[]]] + Exp[2 psi[r[], θ[]]] omega[r[], θ[]]^2,
-omega[r[], θ[]] Exp[2 psi[r[], θ[]]], 0, 0},
{-omega[r[], θ[]] Exp[2 psi[r[], θ[]]], Exp[2 psi[r[], θ[]]], 0, 0},
{0, 0, Exp[2 mu2[r[], θ[]]], 0},
{0, 0, 0, Exp[2 mu3[r[], θ[]]]}}]
MetricInBasis[gg, -ChandraChart, MetricTensorArray] // MatrixForm
DefBasis[ChCh, TangentM, {0, 1, 2, 3}, BasisColor -> Green]
BasisArray[ChCh][a]
tetrad
is the one given by Chandrasekar at page 68, i.e.
tetrad =
{{-Exp[ nu[r[], θ[]]], 0, 0, 0},
{-omega[r[], θ[]] Exp[psi[r[], θ[]]], Exp[psi[r[], θ[]]], 0, 0},
{0, 0, Exp[mu2[r[], θ[]]], 0},
{0, 0, 0, Exp[mu3[r[], θ[]]]}}
With DefBasis and BasisChange and AlllComponents I've been able to introduce the new basis and to write the metric in this basis. Now I'm dealing with computing the Christoffel symbols (which are no more symmetric) in the new metric but I Don't know how to make mathematica to compute them contracting the old Christoffel with the basis elements. I think, as it had developed the correct rules by the previous commands, the program should be able to compute them autonomously, do you know? Thank you
xActShowTime1
is a standard package; is it just something that loadsxCoba
, or are there other helper packages involved? $\endgroup$