"Source: Text/Geometry/Scheme.text";
"Line: 6413";
"Date: Fri May 26 16:23:18 2023";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/Scheme.text, line: 6413
// Example: H119E49 ()
print "Example: H119E49";
ei := GetEchoInput();
SetEchoInput(true);
A<x,y,z> := AffineSpace(Rationals(),3);
f := Automorphism(A,2*y+3*z) * Translation(A,A ! [2,3,5]);
l,t := AffineDecomposition(f);
l,t;
f eq l * t;
assert $1;
p := A ! [1,2,3];
f(p);
t(l(p));
SetEchoInput(ei);
