Stabilisator algebras

Stabilisator groups and algebras are perhaps the most important concept in the theory of Lie groups and algebras. The command glAlgebra is the key command to determine a stabilisator algebra, which is considered to be a subalgebra of _nR or _nC.
glAlgebra returns a basis of the vector space of matrices determined by a set of linear equations. The equations have to be linear in the coefficients of the matrices.
In the following example, we lists upper-triangular matrices with trace 0.

ShowMat[mats = Algebra[3, {Tr[#1] &, inv}, ]]

An element X of the algebra could be of the form below. Since we have enforced Tr X=0 and X upper triangular, we guarantee g=exp X has determinant 1 and is upper triangular.

MF[g = EXP[X = {a, 0, 0, 0, c} . mats]]

Det[g]

( {{^(-c), (a ^(-c) (-1 + ^c))/c, 0}, {0, 1, 0}, {0, 0, ^c}} )

1

We remark that invt is defined by DGkernel as

inv

{Table[Pr[#1[[k]], k - 1], {k, ℓ[#1]}] &}

The next line produces a subalgebra of _2R with entry X_ (2, 1)=0. The function that you would like to annihilate is #1[[2,1]]&

ShowMat[mats = Algebra[2, {#1[[2, 1]] &}, ]]

{( {{1, 0}, {0, 0}} ), ( {{0, 1}, {0, 0}} ), ( {{0, 0}, {0, 1}} )}

The equations you set up, should determine a subspace of matrices that is closed under the bracket operation. If you are not sure, apply glClose afterwards!

ShowMat[mats = Algebra[3, {#1[[2, 1]] &, #1[[3, 2]] &}, ]]

ShowMat[Close[mats]]

glAlgebra can determine a basis of the Lie algebra of the vectorspace isomorphisms exp X that leave a given (r,s)-tensor A invariant. The strategy is to solve Τdα[A,r,X]=0 to guarantee Τα[A,r,g]=A with g=exp X. If the rank is r=0 and A is a symmetric bilinear form this corresponds to the familiar constellation
    X^T.A+A.X=0 leads to g^T.A.g=A.
Note, X^T.A+A.X=0 is linear in the coefficients of X. Lets produce the matrices for so(2,1).

ShowMat[mats = Algebra[3, Τdα[({{-1, 0, 0}, {0, 1, 0}, {0, 0, 1}}), 0, #1] &, ]]

{( {{0, 1, 0}, {1, 0, 0}, {0, 0, 0}} ), ( {{0, 0, 1}, {0, 0, 0}, {1, 0, 0}} ), ( {{0, 0, 0}, {0, 0, -1}, {0, 1, 0}} )}

The stabilisator algebra is determined by gl2ad.

ShowAd[ad = 2ad[mats]]

adKilling[ad]//Det

( {{0, -e_3, -e_2}, {e_3, 0, e_1}, {e_2, -e_1, 0}} )

-8

The stabilisator algebra is simple. The killing form is non-degenerated. The set of derivations of an algebra g determined by ad is the Lie algebra of the stabilizator Lie group of ad. We confirm, that all derivations are inner derivations by determining the Lie algebra of the stabilizator Lie group of ad. The dimension of the vector space of inner derivations equals the dimension of the algebra, which is 3. This matches the dimension of the matrix algebra derived by the last command line. Thus all derivations are inner derivations.

ShowMat[mats = Algebra[3, Τdα[ad, 1, #1] &, ]]

{( {{0, -1, 0}, {1, 0, 0}, {0, 0, 0}} ), ( {{0, 0, 1}, {0, 0, 0}, {1, 0, 0}} ), ( {{0, 0, 0}, {0, 0, 1}, {0, 1, 0}} )}

DKkernel features the standard equations that are of common interest. Note, that glAlgebra finds matrices over R or C.

inv

ShowMat[Algebra[2, inv, ]]

ShowMat[Algebra[2, inv, ]]

{Tr[#1] &}

{( {{0, 1}, {0, 0}} ), ( {{0, 0}, {1, 0}} ), ( {{-1, 0}, {0, 1}} )}

{( {{0, 1}, {0, 0}} ), ( {{0, 0}, {1, 0}} ), ( {{-1, 0}, {0, 1}} ), ( {{0, }, {0, 0}} ), ( {{0, 0}, {, 0}} ), ( {{-, 0}, {0, }} )}

Lets spend the remaing part of the section, to pace through an example of mild complexity. Lets be interested in those transformations g=exp X, that leave the commutator tensor ad of the Heisenberg algebra invariant.

ShowAd[ad = adℋℯ[1], {p, h, q}]

( {{0, 0, h}, {0, 0, 0}, {-h, 0, 0}} )

On group level, the equation g^*ad=ad is formulated using Τα. However, the equations are not very pratical to solve.

E0[Τα[ad, 1, Τ★[x, {3, 3}]] - ad] ;

Instead of determining the matrices of the stabilizer group of the ad tensor, we determine the stabilisator algebra. The function Τdα is the derivative d_texp t X^*ad| _0.

myInv = {Τdα[ad, 1, #1] &}

{Τdα[ad, 1, #1] &}

The list of matrices below shows a basis of the lie algebra of the transformations group we are looking for. We also output its corresponding ad tensor together with Killing-Form.

ShowMat[mats = Algebra[3, myInv]]

{ShowAd[αad = 2ad[mats]], adKilling[αad]//MF}

The one-parameter subgroups exp t X where X is an element of the basis of the lie algebra are

ShowMat[G = EXP[#1 x] &/@mats]

Indeed, basis transformation with any of these matrices - and thus any product thereof - leaves the components of the tensor ad fix.

ShowAd[Τα[ad, 1, #1], {p, h, q}] &/@G

glAlgebra applies to several important applications. The chapter on Homogeneous spaces, pairs and triples features advanced illustrations of the command.


Created by Mathematica  (September 30, 2006) Valid XHTML 1.1!