- #36
m4r35n357
- 658
- 148
Well, I got the Schwarzschild, Gullstrand-Painleve and Doran metrics "deconstructed" very easily. For some reason the Boyer-Lindquist metric seems unusually resistant to such analysis. I first tried mutating the Doran metric without success, the tried to factorize the metric into four squares by hand (again unsuccessfully).
Then I stumbled across this paper: http://casa.colorado.edu/~ajsh/phys5770_08/grtetrad.pdf . In section 5.22 it gives the factorization and the inverse vierbein just in precisely the form I was looking for! Unfortunately it does not seem to give the correct metric when applied to the Lorentz frame.
After much experimentation I went back to the ctensor documentation and found there is a way to do the calculation without relying explicitly on matrix multiplications, which I show below:
Unfortunately, the BL metric still looks wrong to me (in the g_{tt}{}^{} and g_{\phi\phi}{}^{} components). I tend to trust Hamilton's work ;) so I'm a bit puzzled about this. Can anyone spot my error(s)?
Then I stumbled across this paper: http://casa.colorado.edu/~ajsh/phys5770_08/grtetrad.pdf . In section 5.22 it gives the factorization and the inverse vierbein just in precisely the form I was looking for! Unfortunately it does not seem to give the correct metric when applied to the Lorentz frame.
After much experimentation I went back to the ctensor documentation and found there is a way to do the calculation without relying explicitly on matrix multiplications, which I show below:
Code:
kill(all)$
if get('ctensor,'version)=false then load(ctensor)$
cframe_flag:true$
verbose:true$
("Covariant frame metric");
lfg: matrix([-1, 0, 0, 0], [0, 1, 0, 0], [0, 0, 1, 0], [0, 0, 0, 1]);
("Inverse frame matrix to metric");
("Minkowski");
fri: matrix([1, 0, 0, 0], [0, 1, 0, 0], [0, 0, r, 0], [0, 0, 0, r * sin(%theta)]);
cmetric()$
lg;
("Schwarzschild");
fri: matrix([sqrt(1 - %beta^2), 0, 0, 0], [0, 1 / sqrt(1 - %beta^2), 0, 0], [0, 0, r, 0], [0, 0, 0, r * sin(%theta)]);
cmetric()$
lg;
("Gullstrand-Painleve");
fri: matrix([1, 0, 0, 0], [%beta, 1, 0, 0], [0, 0, r, 0], [0, 0, 0, r * sin(%theta)]);
cmetric()$
lg;
("Boyer-Lindquist");
fri: matrix([R*sqrt(1-%beta^2)/%rho,0,0,-R*sqrt(1-%beta^2)/%rho*a*sin(%theta)^2],[0,%rho/(R*sqrt(1-%beta^2)),0,0],[0,0,%rho,0],[-a*sin(%theta)/%rho,0,0,R^2*sin(%theta)/%rho]);
cmetric()$
lg;
("Doran");
fri: matrix([1, 0, 0, 0], [%beta * R / %rho, %rho / R, 0, - %beta * R / %rho * a * sin(%theta)^2], [0, 0, %rho, 0], [0, 0, 0, R * sin(%theta)]);
cmetric()$
lg;
Last edited by a moderator: