>
|
with(DifferentialGeometry): with(Tensor):
|
Example 1.
First create a vector bundle with base coordinates and fiber coordinates .
>
|
DGsetup([x, y, z, t], [z1, z2, w1, w2], M);
|
Define a contravariant rank 1 spinor and lower its indices, that is, convert it to a covariant rank 1 spinor .
M >
|
S1 := evalDG(a*D_z1 + b*D_z2);
|
| (2.2) |
M >
|
T1 := RaiseLowerSpinorIndices(S1, [1]);
|
| (2.3) |
Define the covariant epsilon spinor and check that this result coincides with the contraction of and .
M >
|
epsilon1 := EpsilonSpinor("cov", "spinor");
|
| (2.4) |
M >
|
ContractIndices(epsilon1, S1, [[1, 1]]);
|
Convert back to a contravariant rank 1 spinor, recovering .
M >
|
RaiseLowerSpinorIndices(T1, [1]);
|
Example 2.
Define a rank 4 spinor-tensor and raise its 2nd index and lower its 4th index.
M >
|
S2 := evalDG(a*D_t &t dz1 &t D_w2 &t D_w1 + b*D_x &t dz2 &t D_w1 &t D_w2);
|
| (2.7) |
M >
|
RaiseLowerSpinorIndices(S2, [2, 4]);
|
| (2.8) |