>
|

|
Example 1.
First create a spinor bundle with space-time coordinates
and spinor coordinates
(Spinors are not needed for this first example but will be used in Example 2.)
>
|
|
| (2.1) |
Define a metric tensor
.
M >
|
|
| (2.2) |
Define a symmetric, trace-free, rank 2 tensor.
M >
|
|
| (2.3) |
Compute the Plebanski tensor of
M >
|
|

| (2.4) |
We check that the tensor
has the same algebraic properties as the Weyl tensor. We use the command SymmetrizeIndices to show that
is skew-symmetric on its 1st and 2nd indices
M >
|
|
| (2.5) |
The Plebanski tensor is skew-symmetric on its 3rd and 4th indices
M >
|
|
| (2.6) |
The Plebanski tensor satisfies the cyclic identity on its first 3 indices.
M >
|
|
| (2.7) |
The Plebanski tensor is also trace-free on its 1st and 3rd indices. To check this we use the commands InverseMetric and ContractIndices to evaluate
.
M >
|
|
| (2.8) |
M >
|
|
| (2.9) |
Example 2.
In this example we will convert the tensor S to a spinor
and compute the spinor form of the Plebanski tensor. We start by defining an orthonormal tetrad for the metric
and using this tetrad and the command SolderForm to construct a solder form
for the metric
.
M >
|
|
| (2.10) |
M >
|
|
![_DG([["tensor", M, [["cov_bas", "con_vrt", "con_vrt"], []]], [[[1, 5, 7], (1/2)*x*2^(1/2)], [[1, 6, 8], (1/2)*x*2^(1/2)], [[2, 5, 8], (1/2)*t*2^(1/2)], [[2, 6, 7], (1/2)*t*2^(1/2)], [[3, 5, 8], -((1/2)*I)*2^(1/2)], [[3, 6, 7], ((1/2)*I)*2^(1/2)], [[4, 5, 7], (1/2)*2^(1/2)], [[4, 6, 8], -(1/2)*2^(1/2)]]])](/support/helpjp/helpview.aspx?si=5616/file05904/math317.png)
| (2.11) |
The command RicciSpinor gives the spinor form of
M >
|
|
| (2.12) |
We calculate the Plebanski tensor in its spinor form.
M >
|
|
![_DG([["tensor", M, [["cov_vrt", "cov_vrt", "cov_vrt", "cov_vrt"], []]], [[[5, 5, 6, 6], (1/3)/t^2], [[5, 6, 5, 6], (1/3)/t^2], [[5, 6, 6, 5], (1/3)/t^2], [[6, 5, 5, 6], (1/3)/t^2], [[6, 5, 6, 5], (1/3)/t^2], [[6, 6, 5, 5], (1/3)/t^2]]])](/support/helpjp/helpview.aspx?si=5616/file05904/math351.png)
| (2.13) |
We can check the consistency of this result using the command WeylSpinor to calculate the spinor form of
M >
|
|
![_DG([["tensor", M, [["cov_vrt", "cov_vrt", "cov_vrt", "cov_vrt"], []]], [[[5, 5, 6, 6], (1/3)/t^2], [[5, 6, 5, 6], (1/3)/t^2], [[5, 6, 6, 5], (1/3)/t^2], [[6, 5, 5, 6], (1/3)/t^2], [[6, 5, 6, 5], (1/3)/t^2], [[6, 6, 5, 5], (1/3)/t^2]]])](/support/helpjp/helpview.aspx?si=5616/file05904/math373.png)
| (2.14) |
M >
|
|
| (2.15) |
Example 3.
In this example we will calculate the Newman-Penrose coefficients of the tensor
from the Newman-Penrose coefficients of the Plebanski tensor
For these calculations we need the NullTetrad determined by the orthonormal tetrad
.
M >
|
|
![[_DG([["vector", M, []], [[[1], (1/2)*2^(1/2)/x], [[4], (1/2)*2^(1/2)]]]), _DG([["vector", M, []], [[[1], (1/2)*2^(1/2)/x], [[4], -(1/2)*2^(1/2)]]]), _DG([["vector", M, []], [[[2], (1/2)*2^(1/2)/t], [[3], ((1/2)*I)*2^(1/2)]]]), _DG([["vector", M, []], [[[2], (1/2)*2^(1/2)/t], [[3], -((1/2)*I)*2^(1/2)]]])]](/support/helpjp/helpview.aspx?si=5616/file05904/math402.png)
| (2.16) |
M >
|
|
![table( [( "Phi12" ) = 0, ( "Phi11" ) = 0, ( "Phi10" ) = 0, ( "Phi02" ) = ((1/2)*I)/t, ( "Phi01" ) = 0, ( "Phi20" ) = -((1/2)*I)/t, ( "Phi21" ) = 0, ( "Phi00" ) = 0, ( "Lambda" ) = 0, ( "Phi22" ) = 0 ] )](/support/helpjp/helpview.aspx?si=5616/file05904/math409.png)
| (2.17) |
M >
|
|
| (2.18) |
We can check the consistency of this result using the command NPCurvatureScalars
to calculate the Newman-Penrose coefficients of
M >
|
|
| (2.19) |