"Source: Text/LieTheory/RootDtm.text";
"Line: 1127";
"Date: Fri Sep 26 12:10:11 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/LieTheory/RootDtm.text, line: 1127
// Example: H107E10 ()
print "Example: H107E10";
ei := GetEchoInput();
SetEchoInput(true);
R := RootDatum( "A3" : Twist := < {{2}}, 2 > );
GammaAction(R);
PositiveGammaOrbitsOnRoots(R);
NegativeGammaOrbitsOnRoots(R);
ZeroGammaOrbitsOnRoots(R);
&+[ Root(R,r) : r in ZeroGammaOrbitsOnRoots(R)[1] ];
GammaActionOnSimples(R);
OrbitsOnSimples(R);
DistinguishedOrbitsOnSimples(R);
AbsoluteRank(R);
assert $1 eq 3;
RelativeRank(R);
assert $1 eq 1;
TwistingDegree(R);
assert $1 eq 2;
R;
A := AnisotropicSubdatum(R); A;
GammaAction(A)`perm_ac;
SetEchoInput(ei);
