In[1]:= << xAct`xCoba`
In[2]:= DefManifold[M, 4, {a, b, c, d, e, f}]
$PrePrint = ScreenDollarIndices;
DefChart[BL, M, {0, 1, 2, 3}, {t[], r[], \[Theta][], \[Phi][]},
FormatBasis -> {"Partials", "Differentials"}]
$Assumptions =
t[] \[Element] Reals && r[] > 0 && 0 < \[Theta][] < Pi &&
0 < \[Phi][] < 2 Pi;
DefConstantSymbol[Mass, PrintAs -> "M"]
DefConstantSymbol[Rotation, PrintAs -> "a"]
metricBL = {{-(1 - 2 Mass r[]/(r[]^2 + Rotation^2 Cos[\[Theta][]]^2)),
0, 0, -2 Mass r[] Rotation Sin[\[Theta][]]^2/(r[]^2 +
Rotation^2 Cos[\[Theta][]]^2)}, {0, (r[]^2 +
Rotation^2 Cos[\[Theta][]]^2)/(r[]^2 - 2 Mass r[] + Rotation^2),
0, 0}, {0, 0, r[]^2 + Rotation^2 Cos[\[Theta][]]^2,
0}, {-2 Mass r[] Rotation Sin[\[Theta][]]^2/(r[]^2 +
Rotation^2 Cos[\[Theta][]]^2), 0,
0, ((r[]^2 + Rotation^2)^2 - (r[]^2 - 2 Mass r[] +
Rotation^2) Rotation^2 Sin[\[Theta][]]^2) \
Sin[\[Theta][]]^2/(r[]^2 + Rotation^2 Cos[\[Theta][]]^2)}}
metricBL = CTensor[metricBL, {-BL, -BL}, 0];
SetCMetric[metricBL, BL, SignatureOfMetric -> {3, 1, 0}];
MetricCompute[metricBL, BL, All, Verbose -> True];
cdBL = CovDOfMetric[metricBL];
In[17]:= cdBL[a][metricBL[b, c]]
Out[17]= 0
In[18]:= cdBL[{1, -BL}][metricBL[{1, BL}, {1, BL}]]
Out[18]= (-2 Mass + 2 r[])/(Rotation^2 Cos[
\[Theta][]]^2 + r[]^2) - (
2 r[] (Rotation^2 - 2 Mass r[] + r[]^2))/(Rotation^2 Cos[
\[Theta][]]^2 + r[]^2)^2
In[19]:= metricBL[{1, BL}, {1, BL}]
Out[19]= (Rotation^2 - 2 Mass r[] + r[]^2)/(Rotation^2 Cos[
\[Theta][]]^2 + r[]^2)
I thought cd represent the covariant derivative, but now I feel if I specify a coordinate to the command, then it becomes a partial derivative . If I want to calculate the real covariant derivate of the metric in a coordinate, which command should I use ?