2

Here is some code I wrote a while back:
ClearAll["Global`*"]
SetAttributes[Rs, Constant]
$Assumptions = Rs > 0;
Coordinates = {t, r, \[Theta], \[Phi]};
dim = Length[Coordinates];
MetricTensorLL = {{(1 - Rs/r), 0, 0, 0}, {0, -(1 - Rs/r)^-1, 0,
0}, {0, 0, -r^2, 0}, {0, 0, 0, -r^2 Sin[\[Theta]]^...