>
|

|
Set the global environment variable _EnvExplicit to true to insure that the adapted null tetrads are free of
expressions.
>
|
|
Example 1. Type I
We calculate an adapted null tetrad for a type
spacetime. First define the coordinates to be used and then define the metric.
>
|
|
| (2.1) |
M >
|
|
| (2.2) |
Here is an initial null tetrad.
>
|
|
| (2.3) |
We check that this is indeed a null tetrad for the given metric using GRQuery.
M >
|
|
| (2.4) |
Compute the Newman-Penrose coefficients and check that the Petrov type is I. The coefficients are not in normal form for type I (for example,
), so
is not an adapted null tetrad.
M >
|
|
| (2.5) |
M >
|
|
| (2.6) |
Calculate an adapted null tetrad and simplify.
>
|
|
![[_DG([["vector", M, []], [[[1], (1/2)*2^(1/2)], [[2], -(1/2)*2^(1/2)/t]]]), _DG([["vector", M, []], [[[1], (1/2)*2^(1/2)], [[2], (1/2)*2^(1/2)/t]]]), _DG([["vector", M, []], [[[3], (1/2-(1/2)*I)/x], [[4], -1/2-(1/2)*I]]]), _DG([["vector", M, []], [[[3], (1/2+(1/2)*I)/x], [[4], -1/2+(1/2)*I]]])]](/support/helpjp/helpview.aspx?si=5653/file05849/math250.png)
| (2.7) |
Calculate the Newman-Penrose coefficients for the new null tetrad. We obtain the correct normal form (with
since 
and
.
M >
|
|
| (2.8) |
Example 2. Type II
We calculate an adapted null tetrad for a type
spacetime. First define the coordinates to be used and then define the metric.
>
|
|
| (2.9) |
M >
|
|
| (2.10) |
Here is an initial null tetrad.
M >
|
![NT2 := evalDG([D_r, (3*x*r+m)*D_r/r+D_u, I*sqrt(2)*x^(3/2)*D_x/r+sqrt(2)*x^(3/2)*D_y/r, -I*sqrt(2)*x^(3/2)*D_x/r+sqrt(2)*x^(3/2)*D_y/r])](/support/helpjp/helpview.aspx?si=5653/file05849/math300.png)
|
![[_DG([["vector", M, []], [[[1], 1]]]), _DG([["vector", M, []], [[[1], (3*x*r+m)/r], [[2], 1]]]), _DG([["vector", M, []], [[[3], I*2^(1/2)*x^(3/2)/r], [[4], 2^(1/2)*x^(3/2)/r]]]), _DG([["vector", M, []], [[[3], -I*2^(1/2)*x^(3/2)/r], [[4], 2^(1/2)*x^(3/2)/r]]])]](/support/helpjp/helpview.aspx?si=5653/file05849/math303.png)
| (2.11) |
We check that this is indeed a null tetrad for the given metric.
M >
|
|
| (2.12) |
Compute the Newman-Penrose coefficients and check that the Petrov type is II. The coefficients are not in normal form for type II (for example,
), so
is not an adapted null tetrad.
M >
|
|
| (2.13) |
M >
|
|
| (2.14) |
Calculate an adapted null tetrad. We use the third calling sequence so that the Weyl tensor, or equivalently, the Newman-Penrose Weyl scalars need not be computed. Moreover, all computations are then algebraic and we can use Maple's assuming feature to simplify all intermediate calculations.
>
|
|

| (2.15) |
Calculate the Newman-Penrose coefficients for the new null tetrad. We obtain the correct normal form (with
) since 
and
.
M >
|
|
| (2.16) |
Example 3. Type III
We calculate an adapted null tetrad for a type
spacetime. First define the coordinates to be used and then define the metric.
>
|
|
| (2.17) |
M >
|
|
| (2.18) |
Here is an initial null tetrad.
>
|
![NT3 := evalDG([(3*x*(1/8)+1/2)*D_r+(1/2)*D_u+sqrt(2)*x^(3/2)*D_y/(2*r), (3*x*(1/8)+1/2)*D_r+(1/2)*D_u-sqrt(2)*x^(3/2)*D_y/(2*r), (-3*x*(1/8)+1/2)*D_r-(1/2)*D_u+I*sqrt(2)*x^(3/2)*D_x/(2*r), (-3*x*(1/8)+1/2)*D_r-(1/2)*D_u-I*sqrt(2)*x^(3/2)*D_x/(2*r)])](/support/helpjp/helpview.aspx?si=5653/file05849/math408.png)
|
![[_DG([["vector", M, []], [[[1], (3/8)*x+1/2], [[2], 1/2], [[4], (1/2)*2^(1/2)*x^(3/2)/r]]]), _DG([["vector", M, []], [[[1], (3/8)*x+1/2], [[2], 1/2], [[4], -(1/2)*2^(1/2)*x^(3/2)/r]]]), _DG([["vector", M, []], [[[1], -(3/8)*x+1/2], [[2], -1/2], [[3], ((1/2)*I)*2^(1/2)*x^(3/2)/r]]]), _DG([["vector", M, []], [[[1], -(3/8)*x+1/2], [[2], -1/2], [[3], -((1/2)*I)*2^(1/2)*x^(3/2)/r]]])]](/support/helpjp/helpview.aspx?si=5653/file05849/math411.png)
| (2.19) |
We check that this is indeed a null tetrad for the given metric.
M >
|
|
| (2.20) |
Compute the Newman-Penrose coefficients and check that the Petrov type is III. The coefficients are not in normal form for type III (for example,
), so
is not an adapted null tetrad.
M >
|
|
![table( [( "Psi4" ) = -(3/32)*x*((4*I)*2^(1/2)*x^(1/2)-3*x)/r^2, ( "Psi2" ) = (9/32)*x^2/r^2, ( "Psi3" ) = (3/32)*(-3*x^(1/2)+(2*I)*2^(1/2))*x^(3/2)/r^2, ( "Psi0" ) = (3/32)*x*((4*I)*2^(1/2)*x^(1/2)+3*x)/r^2, ( "Psi1" ) = -(3/32)*(3*x^(1/2)+(2*I)*2^(1/2))*x^(3/2)/r^2 ] )](/support/helpjp/helpview.aspx?si=5653/file05849/math447.png)
| (2.21) |
>
|
|
| (2.22) |
Calculate an adapted null tetrad.
>
|
|
![[_DG([["vector", M, []], [[[1], (3/8)*x^(3/2)*2^(1/2)/r^2]]]), _DG([["vector", M, []], [[[1], (11/8)*2^(1/2)*r^2/x^(1/2)], [[2], (4/3)*2^(1/2)*r^2/x^(3/2)], [[3], r*2^(1/2)*x^(1/2)]]]), _DG([["vector", M, []], [[[1], (3/8)*2^(1/2)*x^(1/2)], [[3], (1/2)*2^(1/2)*x^(3/2)/r], [[4], ((1/2)*I)*2^(1/2)*x^(3/2)/r]]]), _DG([["vector", M, []], [[[1], (3/8)*2^(1/2)*x^(1/2)], [[3], (1/2)*2^(1/2)*x^(3/2)/r], [[4], -((1/2)*I)*2^(1/2)*x^(3/2)/r]]])]](/support/helpjp/helpview.aspx?si=5653/file05849/math465.png)
| (2.23) |
Calculate the Newman-Penrose coefficients for the new null tetrad. We obtain the correct normal form since ![Psi[0] =](/support/helpjp/helpview.aspx?si=5653/file05849/math470.png)
and
.
M >
|
|
| (2.24) |
Example 4. Type D
We calculate an adapted null tetrad for a type
spacetime. First define the coordinates to be used and then define the metric.
>
|
|
| (2.25) |
M >
|
|
| (2.26) |
Here is an initial null tetrad.
>
|
![NT4 := evalDG([-(1/2)*sqrt(2)*(sqrt(2)-1)*D_t+exp(-x)*D_z, (1/2)*sqrt(2)*(1+sqrt(2))*D_t-exp(-x)*D_z, (1/2)*sqrt(2)*D_x+I*sqrt(2)*D_y*(1/2), (1/2)*sqrt(2)*D_x-I*sqrt(2)*D_y*(1/2)])](/support/helpjp/helpview.aspx?si=5653/file05849/math513.png)
|
![[_DG([["vector", M, []], [[[1], -(1/2)*2^(1/2)*(2^(1/2)-1)], [[4], exp(-x)]]]), _DG([["vector", M, []], [[[1], (1/2)*2^(1/2)*(1+2^(1/2))], [[4], -exp(-x)]]]), _DG([["vector", M, []], [[[2], (1/2)*2^(1/2)], [[3], ((1/2)*I)*2^(1/2)]]]), _DG([["vector", M, []], [[[2], (1/2)*2^(1/2)], [[3], -((1/2)*I)*2^(1/2)]]])]](/support/helpjp/helpview.aspx?si=5653/file05849/math516.png)
| (2.27) |
We check that this is indeed a null tetrad for the given metric.
M >
|
|
| (2.28) |
Compute the Newman-Penrose coefficients and check that the Petrov type is D. The coefficients are not in normal form for type D (for example,
), so
is not an adapted null tetrad.
M >
|
|
| (2.29) |
M >
|
|
| (2.30) |
Calculate an adapted null tetrad.
>
|
|
![[_DG([["vector", M, []], [[[1], 2^(1/2)], [[3], -2^(1/2)]]]), _DG([["vector", M, []], [[[1], (1/4)*2^(1/2)], [[3], (1/4)*2^(1/2)]]]), _DG([["vector", M, []], [[[1], -I], [[2], (1/2)*2^(1/2)], [[4], I*exp(-x)]]]), _DG([["vector", M, []], [[[1], I], [[2], (1/2)*2^(1/2)], [[4], -I*exp(-x)]]])]](/support/helpjp/helpview.aspx?si=5653/file05849/math566.png)
| (2.31) |
Calculate the Newman-Penrose coefficients for the new null tetrad. We obtain the correct normal form since 
= 0.
M >
|
|
| (2.32) |
Example 5. Type N
We calculate an adapted null tetrad for a type
spacetime. First define the coordinates to be used and then define the metric.
>
|
|
| (2.33) |
M >
|
|
| (2.34) |
Here is the initial null tetrad.
>
|
![NT5 := evalDG([-(1/4)*(exp(3*z)-2)*exp(z)*D_u+(1/2)*exp(z)*D_x+(1/2)*sqrt(2)*D_z, -(1/4)*(exp(3*z)-2)*exp(z)*D_u+(1/2)*exp(z)*D_x-(1/2)*sqrt(2)*D_z, (1/4)*(exp(3*z)+2)*exp(z)*D_u-(1/2)*exp(z)*D_x+I*sqrt(2)*exp(z)*D_y*(1/2), (1/4)*(exp(3*z)+2)*exp(z)*D_u-(1/2)*exp(z)*D_x-I*sqrt(2)*exp(z)*D_y*(1/2)])](/support/helpjp/helpview.aspx?si=5653/file05849/math610.png)
|
![[_DG([["vector", M, []], [[[1], -(1/4)*(exp(3*z)-2)*exp(z)], [[2], (1/2)*exp(z)], [[4], (1/2)*2^(1/2)]]]), _DG([["vector", M, []], [[[1], -(1/4)*(exp(3*z)-2)*exp(z)], [[2], (1/2)*exp(z)], [[4], -(1/2)*2^(1/2)]]]), _DG([["vector", M, []], [[[1], (1/4)*(exp(3*z)+2)*exp(z)], [[2], -(1/2)*exp(z)], [[3], ((1/2)*I)*2^(1/2)*exp(z)]]]), _DG([["vector", M, []], [[[1], (1/4)*(exp(3*z)+2)*exp(z)], [[2], -(1/2)*exp(z)], [[3], -((1/2)*I)*2^(1/2)*exp(z)]]])]](/support/helpjp/helpview.aspx?si=5653/file05849/math613.png)
| (2.35) |
We check that this is indeed a null tetrad for the given metric.
M >
|
|
| (2.36) |
Compute the Newman-Penrose coefficients and check that the Petrov type is N. The coefficients are not in normal form for type N (for example,
), so
is not an adapted null tetrad.
M >
|
|
| (2.37) |
M >
|
|
| (2.38) |
Calculate an adapted null tetrad.
>
|
|
![[_DG([["vector", M, []], [[[1], (1/2)*exp((5/2)*z)*6^(1/2)]]]), _DG([["vector", M, []], [[[1], -(1/6)*6^(1/2)*exp(-(1/2)*z)*(exp(3*z)-2)], [[2], (1/3)*exp(-(1/2)*z)*6^(1/2)], [[4], (2/3)*3^(1/2)*exp(-(3/2)*z)]]]), _DG([["vector", M, []], [[[1], -exp(z)], [[3], ((1/2)*I)*2^(1/2)*exp(z)], [[4], -(1/2)*2^(1/2)]]]), _DG([["vector", M, []], [[[1], -exp(z)], [[3], -((1/2)*I)*2^(1/2)*exp(z)], [[4], -(1/2)*2^(1/2)]]])]](/support/helpjp/helpview.aspx?si=5653/file05849/math663.png)
| (2.39) |
Calculate the Newman-Penrose coefficients for the new null tetrad. We obtain the correct normal form since 
= 0 and
M >
|
|
| (2.40) |