"Source: Text/LieTheory/RootDtm.text";
"Line: 1780";
"Date: Fri Sep 26 12:10:11 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/LieTheory/RootDtm.text, line: 1780
// Example: H107E17 ()
print "Example: H107E17";
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);
