> R:= RootDatum("G2");
> U:= QuantizedUEA(R);
> b:= BarAutomorphism(U);
> b(U.3);
(q^10 - q^6 - q^4 + 1)/q^4*F_1^(2)*F_6 + (q^4 - 1)/q^2*F_1*F_5 + F_3
A known result states that T
αr - 1 = τ

T
αr

τ. We check that for the quantum group of type C
3, and
the third simple root.
> U:= QuantizedUEA(RootDatum("C3"));
> t:= AntiAutomorphismTau(U);
> T:= AutomorphismTalpha(U, 3);
> Ti:= Inverse(T);
> f:= t*T*t;
> &and[ Ti(U.i) eq f(U.i) : i in [1..21] ];
true
A diagram automorphism maps the canonical basis into itself. We check
that for the set of elements of the canonical basis of the quantized
enveloping algebra of type D
4 of weight
α
1 + 3α
2 + 2α
3 + 2α
4. (Here α
i is the i-th
simple root.) The chosen diagram automorphism maps this weight to
2α
1 + 3α
2 + α
3 + 2α
4. Therefore we also compute
the elements of the canonical basis of that weight.
> U:= QuantizedUEA(RootDatum("D4"));
> p:= SymmetricGroup(4)!(1,3,4);
> d:= DiagramAutomorphism(U, p);
> e1:= CanonicalElements(U, [1,3,2,2]);
> e2:= CanonicalElements(U, [2,3,1,2]);
> &and[ d(x) in e2 : x in e1 ];
true
[Next][Prev] [Right] [Left] [Up] [Index] [Root]