display the Satake diagram for a non-compact, real, simple matrix algebra - Maple Programming Help

Home : Support : Online Help : Mathematics : DifferentialGeometry : LieAlgebras : DifferentialGeometry/LieAlgebras/SatakeDiagram

LieAlgebras[SatakeDiagram] - display the Satake diagram for a non-compact, real, simple matrix algebra

Calling Sequences

SatakeDiagram(AT)

Parameters

AT   - a string, specifying the type of a classical, non-compact, real simple matrix algebra



Description

 • The Satake diagram for a non-compact, real, semi-simple algebra g is a refinement of Dynkin diagram for the associated complex Lie algebra. We describe the construction of the Satake diagram as follows.
 • Let g be a semi-simple real Lie algebra. Then g is called compact if the Killing form of g is negative-definite, otherwise g is called non-compact. Every non-compact ,real, semi-simple algebra g admits a Cartan decomposition g = t ⊕p. In this vector space decomposition t is a subalgebra, p a subspace, [t, p] ⊆ p and [p, p] ⊆ t, that is, t and p define a symmetry pair. Moreover, the Killing form is negative-definite on t and positive-definite on p.
 • Let h be a Cartan subalgebra for g and let be the associated root system. Set a = h ⋂ p. Then the set of compact roots is defined to be

This means that if we chose a basis for a and extend to a basis  for h, then the components of a complex root in the directions are 0. If   determines the root space for then  for  With respect to the standard Cartan algebras for the non-compact, real, simple matrix algebras we consider here, the compact roots are precisely those which are pure imaginary.

 • In a Satake diagram, the complex roots are designed by a solid black circle, the other roots are designed by a circle. Sometimes, the compact roots appear adjacent to one-another; for other algebras the compact roots alternate with the non-compact roots.
 • There is one more important piece of information encoded in the Satake diagrams. For this one needs to choose a set of positive roots ${\mathrm{Δ}}^{+}$such that non-compact positive roots ${\mathrm{Δ}}^{+}/{\mathrm{Δ}}_{{c}^{}}^{+}$ are closed under complex conjugation. Let be the corresponding simple roots and put  Then for each root there is a unique root such that

We call the Satake associate of In the Satake diagram one draws a line connecting each root  to its associate.

 • The command plots the Satake diagram for each of the following real simple Lie algebras:
 • See Details for Satake Diagrams for a complete list of the different types of all Satake diagrams.



Examples

 > with(DifferentialGeometry): with(LieAlgebras):

Example 1.

Here are a few examples of Satake diagrams.

 > SatakeDiagram("su(9, 4)");
 > SatakeDiagram("su(6, 6)");

 > SatakeDiagram("sp(10, 6)");

 > SatakeDiagram("so(12, 4)");

Example 2.

We make a detailed study of the root structure and the Satake diagram for We shall calculate the simple roots and check that these roots have the properties indicated by the Satake Diagram.

 > SatakeDiagram("su(6, 2)");

If we ignore the coloring of the dots and the red lines we see that the Dynkin diagram of coincides with the Dynkin diagram of root type ${A}_{7}$.

 > DynkinDiagram("A", 7);

According to the Satake diagram we see that there are 3 compact roots which appear adjacent to each. Each non-compact root has a Satake associate different from itself.

Let us verify these facts by explicitly constructing the simple roots for

First we use the command SimpleLieAlgebraData to initialize the Lie algebra

 > LD := SimpleLieAlgebraData("su(6, 2)", su62, labelformat = "gl", labels = ['E', 'theta']):
 > DGsetup(LD);
 ${\mathrm{Lie algebra: su62}}$ (2.1)

The Lie algebra elements corresponding to the diagonal matrices in the standard representation of define a Cartan subalgebra.

 su62 > CSA := [E11, E22, Ei11, Ei22, Ei55, Ei66, Ei77];
 ${\mathrm{CSA}}{:=}\left[{\mathrm{E11}}{,}{\mathrm{E22}}{,}{\mathrm{Ei11}}{,}{\mathrm{Ei22}}{,}{\mathrm{Ei55}}{,}{\mathrm{Ei66}}{,}{\mathrm{Ei77}}\right]$ (2.2)

The restriction of the Killing form to the diagonal matrices with imaginary entries is negative-definite. The restriction of the Killing form to the diagonal matrices with real entries is positive-definite.

 su62 > K1 := Killing([Ei11, Ei22, Ei55, Ei66, Ei77]);
 ${\mathrm{K1}}{:=}\left[\begin{array}{rrrrr}{-}{64}& {-}{32}& {0}& {16}& {16}\\ {-}{32}& {-}{64}& {0}& {16}& {16}\\ {0}& {0}& {-}{32}& {-}{16}& {-}{16}\\ {16}& {16}& {-}{16}& {-}{32}& {-}{16}\\ {16}& {16}& {-}{16}& {-}{16}& {-}{32}\end{array}\right]$ (2.3)
 su62 > LinearAlgebra:-IsDefinite(K1, query = 'negative_definite');
 ${\mathrm{true}}$ (2.4)
 su62 > A := [E11, E22];
 ${A}{:=}\left[{\mathrm{E11}}{,}{\mathrm{E22}}\right]$ (2.5)
 su62 > K2 := Killing(A);
 ${\mathrm{K2}}{:=}\left[\begin{array}{rr}{32}& {0}\\ {0}& {32}\end{array}\right]$ (2.6)

The subalgebra (2.5) is therefore our subalgebra as described above. Note that we have listed the elements of a first in the basis for the Cartan subalgebra.

Next we find the root space decomposition, the root system, and the positive roots. The root space decomposition is computed using the command RootSpaceDecomposition. The root system is then obtained using the LieAlgebraRoots command. For efficiency, we have saved the result we need.

 su62 > # RSD := RootSpaceDecomposition(CSA):
 su62 > RSD := map( evalDG, table([[0, 1, 0, I, 0, 0, I] = E28-I*Ei28, [1, 1, I, -I, 0, 0, 0] = E14+I*Ei14, [1, 0, 3*I, 2*I, -I, 0, 0] = E15-I*Ei15, [0, -1, 0, -I, 0, -I, I] = E47+I*Ei47, [0, 0, 2*I, 2*I, -I, -I, I] = E57-I*Ei57, [0, 0, 0, 0, I, -I, -I] = E68-I*Ei68, [-1, -1, I, -I, 0, 0, 0] = E32+I*Ei32, [0, -1, 0, I, I, -I, 0] = E46-I*Ei46, [2, 0, 0, 0, 0, 0, 0] = Ei13, [0, -1, 0, -I, -I, I, 0] = E46+I*Ei46, [0, 0, 0, 0, 0, -I, 2*I] = E78+I*Ei78, [-1, 0, -3*I, -2*I, I, 0, 0] = E35+I*Ei35, [-1, -1, -I, I, 0, 0, 0] = E32-I*Ei32, [0, 0, 0, 0, -I, I, I] = E68+I*Ei68, [-1, 0, -I, 0, 0, -I, I] = E37+I*Ei37, [1, -1, -I, I, 0, 0, 0] = E12+I*Ei12, [0, 2, 0, 0, 0, 0, 0] = Ei24, [-1, 1, -I, I, 0, 0, 0] = E21-I*Ei21, [0, 0, 2*I, 2*I, -I, 0, -I] = E58-I*Ei58, [0, -1, 0, I, 0, I, -I] = E47-I*Ei47, [0, 0, 0, 0, I, -2*I, I] = E67-I*Ei67, [0, 1, 0, -I, 0, 0, -I] = E28+I*Ei28, [0, 0, 0, 0, 0, I, -2*I] = E78-I*Ei78, [-1, 0, I, 0, I, -I, 0] = E36-I*Ei36, [-1, 0, -I, 0, -I, I, 0] = E36+I*Ei36, [1, 0, I, 0, 0, 0, I] = E18-I*Ei18, [-1, 0, -I, 0, 0, 0, -I] = E38+I*Ei38, [0, 0, 2*I, 2*I, -2*I, I, 0] = E56-I*Ei56, [0, -2, 0, 0, 0, 0, 0] = Ei42, [0, -1, 2*I, 3*I, -I, 0, 0] = E45-I*Ei45, [-1, 1, I, -I, 0, 0, 0] = E21+I*Ei21, [0, 1, 0, -I, 0, -I, I] = E27+I*Ei27, [0, 1, 2*I, 3*I, -I, 0, 0] = E25-I*Ei25, [1, 0, -I, 0, 0, -I, I] = E17+I*Ei17, [0, -1, 0, I, 0, 0, I] = E48-I*Ei48, [-2, 0, 0, 0, 0, 0, 0] = Ei31, [0, 1, 0, I, 0, I, -I] = E27-I*Ei27, [1, -1, I, -I, 0, 0, 0] = E12-I*Ei12, [0, 1, -2*I, -3*I, I, 0, 0] = E25+I*Ei25, [-1, 0, I, 0, 0, 0, I] = E38-I*Ei38, [1, 0, -3*I, -2*I, I, 0, 0] = E15+I*Ei15, [0, -1, 0, -I, 0, 0, -I] = E48+I*Ei48, [1, 0, I, 0, 0, I, -I] = E17-I*Ei17, [0, 1, 0, -I, -I, I, 0] = E26+I*Ei26, [0, 1, 0, I, I, -I, 0] = E26-I*Ei26, [0, 0, -2*I, -2*I, I, I, -I] = E57+I*Ei57, [-1, 0, I, 0, 0, I, -I] = E37-I*Ei37, [1, 0, -I, 0, 0, 0, -I] = E18+I*Ei18, [1, 0, -I, 0, -I, I, 0] = E16+I*Ei16, [0, 0, -2*I, -2*I, I, 0, I] = E58+I*Ei58, [-1, 0, 3*I, 2*I, -I, 0, 0] = E35-I*Ei35, [1, 1, -I, I, 0, 0, 0] = E14-I*Ei14, [1, 0, I, 0, I, -I, 0] = E16-I*Ei16, [0, 0, -2*I, -2*I, 2*I, -I, 0] = E56+I*Ei56, [0, -1, -2*I, -3*I, I, 0, 0] = E45+I*Ei45, [0, 0, 0, 0, -I, 2*I, -I] = E67+I*Ei67])):
 su62 > RT := LieAlgebraRoots(RSD);
 ${\mathrm{RT}}{:=}\left[\left[\begin{array}{c}{0}\\ {1}\\ {0}\\ {-}{I}\\ {0}\\ {0}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {0}\\ {I}\\ {-}{2}{}{I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {-}{2}{}{I}\\ {-}{2}{}{I}\\ {2}{}{I}\\ {-}{I}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {I}\\ {0}\\ {I}\\ {-}{I}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{-}{1}\\ {0}\\ {I}\\ {0}\\ {I}\\ {-}{I}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{-}{1}\\ {0}\\ {3}{}{I}\\ {2}{}{I}\\ {-}{I}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{-}{1}\\ {0}\\ {-}{I}\\ {0}\\ {-}{I}\\ {I}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {1}\\ {-}{I}\\ {I}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {-}{2}{}{I}\\ {-}{2}{}{I}\\ {I}\\ {0}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{-}{1}\\ {0}\\ {-}{I}\\ {0}\\ {0}\\ {0}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {I}\\ {0}\\ {0}\\ {0}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{-}{1}\\ {1}\\ {-}{I}\\ {I}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {0}\\ {I}\\ {0}\\ {0}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {-}{2}{}{I}\\ {-}{2}{}{I}\\ {I}\\ {I}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {2}{}{I}\\ {2}{}{I}\\ {-}{I}\\ {0}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {1}\\ {I}\\ {-}{I}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{r}{0}\\ {2}\\ {0}\\ {0}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {3}{}{I}\\ {2}{}{I}\\ {-}{I}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {-}{1}\\ {0}\\ {-}{I}\\ {0}\\ {-}{I}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {-}{1}\\ {-}{2}{}{I}\\ {-}{3}{}{I}\\ {I}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {-}{I}\\ {2}{}{I}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {I}\\ {-}{2}{}{I}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {-}{1}\\ {0}\\ {I}\\ {0}\\ {I}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {2}{}{I}\\ {2}{}{I}\\ {-}{I}\\ {-}{I}\\ {I}\end{array}\right]{,}\left[\begin{array}{r}{-}{2}\\ {0}\\ {0}\\ {0}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {0}\\ {-}{I}\\ {2}{}{I}\end{array}\right]{,}\left[\begin{array}{c}{-}{1}\\ {0}\\ {I}\\ {0}\\ {0}\\ {0}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {-}{1}\\ {0}\\ {-}{I}\\ {-}{I}\\ {I}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {-}{1}\\ {I}\\ {-}{I}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {-}{2}{}{I}\\ {-}{3}{}{I}\\ {I}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{r}{2}\\ {0}\\ {0}\\ {0}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {0}\\ {I}\\ {0}\\ {I}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {2}{}{I}\\ {3}{}{I}\\ {-}{I}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {I}\\ {0}\\ {0}\\ {I}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {-}{1}\\ {0}\\ {I}\\ {I}\\ {-}{I}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {-}{1}\\ {0}\\ {-}{I}\\ {0}\\ {0}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {-}{I}\\ {0}\\ {0}\\ {-}{I}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {I}\\ {-}{I}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{-}{1}\\ {-}{1}\\ {I}\\ {-}{I}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {-}{3}{}{I}\\ {-}{2}{}{I}\\ {I}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {-}{1}\\ {0}\\ {I}\\ {0}\\ {0}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {0}\\ {-}{I}\\ {0}\\ {-}{I}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{-}{1}\\ {0}\\ {-}{I}\\ {0}\\ {0}\\ {-}{I}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {0}\\ {-}{I}\\ {-}{I}\\ {I}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {-}{I}\\ {I}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {-}{1}\\ {-}{I}\\ {I}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{-}{1}\\ {1}\\ {I}\\ {-}{I}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {0}\\ {I}\\ {I}\\ {-}{I}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {-}{1}\\ {2}{}{I}\\ {3}{}{I}\\ {-}{I}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {-}{I}\\ {0}\\ {0}\\ {0}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{r}{0}\\ {-}{2}\\ {0}\\ {0}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{-}{1}\\ {0}\\ {-}{3}{}{I}\\ {-}{2}{}{I}\\ {I}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{-}{1}\\ {0}\\ {I}\\ {0}\\ {0}\\ {I}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {-}{I}\\ {0}\\ {-}{I}\\ {I}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{-}{1}\\ {-}{1}\\ {-}{I}\\ {I}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {2}{}{I}\\ {2}{}{I}\\ {-}{2}{}{I}\\ {I}\\ {0}\end{array}\right]\right]$ (2.7)

The compact roots are:

 su62 > CompactRoots(RT, A, CSA);
 $\left[\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {0}\\ {I}\\ {-}{2}{}{I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {-}{2}{}{I}\\ {-}{2}{}{I}\\ {2}{}{I}\\ {-}{I}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {-}{2}{}{I}\\ {-}{2}{}{I}\\ {I}\\ {0}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {-}{2}{}{I}\\ {-}{2}{}{I}\\ {I}\\ {I}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {2}{}{I}\\ {2}{}{I}\\ {-}{I}\\ {0}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {-}{I}\\ {2}{}{I}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {I}\\ {-}{2}{}{I}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {2}{}{I}\\ {2}{}{I}\\ {-}{I}\\ {-}{I}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {0}\\ {-}{I}\\ {2}{}{I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {I}\\ {-}{I}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {-}{I}\\ {I}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {2}{}{I}\\ {2}{}{I}\\ {-}{2}{}{I}\\ {I}\\ {0}\end{array}\right]\right]$ (2.8)

Note that these roots all have pure imaginary components.

Now find a set of positive roots. We use the second calling sequence for the command PositiveRoots. For this we need a basis for the space of roots for which the components are all real.

 su62 > B := [<1, 0, 0, 0, 0, 0, 0>, <0, 1, 0, 0, 0, 0, 0>,<0,0,I, 0, 0, 0, 0>, <0, 0,0,I, 0, 0, 0>, <0, 0, 0,0,I, 0, 0>, <0, 0,0,0, 0, I, 0>, <0, 0, 0, 0, 0, 0, I>];
 ${B}{:=}\left[\left[\begin{array}{r}{1}\\ {0}\\ {0}\\ {0}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{r}{0}\\ {1}\\ {0}\\ {0}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {I}\\ {0}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {I}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {I}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {0}\\ {I}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {0}\\ {0}\\ {I}\end{array}\right]\right]$ (2.9)
 su62 > PR := PositiveRoots(RT, B);
 ${\mathrm{PR}}{:=}\left[\left[\begin{array}{c}{0}\\ {1}\\ {0}\\ {-}{I}\\ {0}\\ {0}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {0}\\ {I}\\ {-}{2}{}{I}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {I}\\ {0}\\ {I}\\ {-}{I}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {1}\\ {-}{I}\\ {I}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {I}\\ {0}\\ {0}\\ {0}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {0}\\ {I}\\ {0}\\ {0}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {2}{}{I}\\ {2}{}{I}\\ {-}{I}\\ {0}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {1}\\ {I}\\ {-}{I}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{r}{0}\\ {2}\\ {0}\\ {0}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {3}{}{I}\\ {2}{}{I}\\ {-}{I}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {I}\\ {-}{2}{}{I}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {2}{}{I}\\ {2}{}{I}\\ {-}{I}\\ {-}{I}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {-}{1}\\ {I}\\ {-}{I}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {-}{2}{}{I}\\ {-}{3}{}{I}\\ {I}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{r}{2}\\ {0}\\ {0}\\ {0}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {0}\\ {I}\\ {0}\\ {I}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {2}{}{I}\\ {3}{}{I}\\ {-}{I}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {I}\\ {0}\\ {0}\\ {I}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {-}{I}\\ {0}\\ {0}\\ {-}{I}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {I}\\ {-}{I}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {-}{3}{}{I}\\ {-}{2}{}{I}\\ {I}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {0}\\ {-}{I}\\ {0}\\ {-}{I}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {0}\\ {-}{I}\\ {-}{I}\\ {I}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {-}{1}\\ {-}{I}\\ {I}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {0}\\ {I}\\ {I}\\ {-}{I}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {-}{I}\\ {0}\\ {0}\\ {0}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {-}{I}\\ {0}\\ {-}{I}\\ {I}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {2}{}{I}\\ {2}{}{I}\\ {-}{2}{}{I}\\ {I}\\ {0}\end{array}\right]\right]$ (2.10)

We check (using Query) that the non-compact roots are closed under complex conjugation. This is important if we hope to get a set of simple roots which match with the Satake diagram.

 su62 > NC := CompactRoots(PR, A, CSA, output = "noncompact");
 ${\mathrm{NC}}{:=}\left[\left[\begin{array}{c}{0}\\ {1}\\ {0}\\ {-}{I}\\ {0}\\ {0}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {I}\\ {0}\\ {I}\\ {-}{I}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {1}\\ {-}{I}\\ {I}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {I}\\ {0}\\ {0}\\ {0}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {0}\\ {I}\\ {0}\\ {0}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {1}\\ {I}\\ {-}{I}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{r}{0}\\ {2}\\ {0}\\ {0}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {3}{}{I}\\ {2}{}{I}\\ {-}{I}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {-}{1}\\ {I}\\ {-}{I}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {-}{2}{}{I}\\ {-}{3}{}{I}\\ {I}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{r}{2}\\ {0}\\ {0}\\ {0}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {0}\\ {I}\\ {0}\\ {I}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {2}{}{I}\\ {3}{}{I}\\ {-}{I}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {I}\\ {0}\\ {0}\\ {I}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {-}{I}\\ {0}\\ {0}\\ {-}{I}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {-}{3}{}{I}\\ {-}{2}{}{I}\\ {I}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {0}\\ {-}{I}\\ {0}\\ {-}{I}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {0}\\ {-}{I}\\ {-}{I}\\ {I}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {-}{1}\\ {-}{I}\\ {I}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {0}\\ {I}\\ {I}\\ {-}{I}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {-}{I}\\ {0}\\ {0}\\ {0}\\ {-}{I}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {0}\\ {-}{I}\\ {0}\\ {-}{I}\\ {I}\\ {0}\end{array}\right]\right]$ (2.11)
 su62 > Query(NC, "ClosedUnderConjugation");
 ${\mathrm{true}}$ (2.12)

Here are the simple roots.

 su62 > SR := SimpleRoots(PR);
 ${\mathrm{SR}}{:=}\left[\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {0}\\ {I}\\ {-}{2}{}{I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {0}\\ {I}\\ {0}\\ {0}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {I}\\ {-}{2}{}{I}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {-}{1}\\ {I}\\ {-}{I}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {-}{2}{}{I}\\ {-}{3}{}{I}\\ {I}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {-}{1}\\ {-}{I}\\ {I}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {2}{}{I}\\ {2}{}{I}\\ {-}{2}{}{I}\\ {I}\\ {0}\end{array}\right]\right]$ (2.13)

Finally, we have to put the simple roots in the order that renders the Cartan matrix in standard form. For this we use CartanMatrixToStandardForm.

 su62 > CM := CartanMatrix(SR, RSD);
 ${\mathrm{CM}}{:=}\left[\begin{array}{rrrrrrr}{2}& {-}{1}& {-}{1}& {0}& {0}& {0}& {0}\\ {-}{1}& {2}& {0}& {-}{1}& {0}& {0}& {0}\\ {-}{1}& {0}& {2}& {0}& {0}& {0}& {-}{1}\\ {0}& {-}{1}& {0}& {2}& {0}& {0}& {0}\\ {0}& {0}& {0}& {0}& {2}& {-}{1}& {-}{1}\\ {0}& {0}& {0}& {0}& {-}{1}& {2}& {0}\\ {0}& {0}& {-}{1}& {0}& {-}{1}& {0}& {2}\end{array}\right]$ (2.14)
 su62 > newCM, newSR, RootType := CartanMatrixToStandardForm(CM, SR);
 ${\mathrm{newCM}}{,}{\mathrm{newSR}}{,}{\mathrm{RootType}}{:=}\left[\begin{array}{rrrrrrr}{2}& {-}{1}& {0}& {0}& {0}& {0}& {0}\\ {-}{1}& {2}& {-}{1}& {0}& {0}& {0}& {0}\\ {0}& {-}{1}& {2}& {-}{1}& {0}& {0}& {0}\\ {0}& {0}& {-}{1}& {2}& {-}{1}& {0}& {0}\\ {0}& {0}& {0}& {-}{1}& {2}& {-}{1}& {0}\\ {0}& {0}& {0}& {0}& {-}{1}& {2}& {-}{1}\\ {0}& {0}& {0}& {0}& {0}& {-}{1}& {2}\end{array}\right]{,}\left[\left[\begin{array}{c}{1}\\ {-}{1}\\ {I}\\ {-}{I}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {0}\\ {I}\\ {0}\\ {0}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {0}\\ {I}\\ {-}{2}{}{I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {I}\\ {-}{2}{}{I}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {2}{}{I}\\ {2}{}{I}\\ {-}{2}{}{I}\\ {I}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {-}{2}{}{I}\\ {-}{3}{}{I}\\ {I}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{1}\\ {-}{1}\\ {-}{I}\\ {I}\\ {0}\\ {0}\\ {0}\end{array}\right]\right]{,}{"A"}$ (2.15)
 su62 > newSR;
 $\left[\left[\begin{array}{c}{1}\\ {-}{1}\\ {I}\\ {-}{I}\\ {0}\\ {0}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {0}\\ {I}\\ {0}\\ {0}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {0}\\ {I}\\ {-}{2}{}{I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {0}\\ {0}\\ {I}\\ {-}{2}{}{I}\\ {I}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {0}\\ {2}{}{I}\\ {2}{}{I}\\ {-}{2}{}{I}\\ {I}\\ {0}\end{array}\right]{,}\left[\begin{array}{c}{0}\\ {1}\\ {-}{2}{}{I}\\ {-}{3}{}{I}\\ {I}\\ {0}\\ {0}\end{array}\right]\right]$