"Source: Text/LieTheory/RootDtm.text";
"Line: 1780";
"Date: Thu Jun 16 15:04:46 2022";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/LieTheory/RootDtm.text, line: 1780
// Example: H104E17 ()
print "Example: H104E17";
ei := GetEchoInput();
SetEchoInput(true);
R := RootDatum("A3" : Isogeny := 2);
Roots(R);
PositiveCoroots(R);
#Roots(R) eq 2*NumPosRoots(R);
assert $1;
Coroot(R, 4);
Coroot(R, 4 : Basis := "Root");
CorootPosition(R, [1,1,-1]);
assert $1 eq 4;
CorootPosition(R, [1,1,0] : Basis := "Root");
assert $1 eq 4;
BasisChange(R, [1,0,0] : InBasis:="Root");
BasisChange(R, [1,0,0] : InBasis:="Root", Coroots);
SetEchoInput(ei);
