"Source: Text/Geometry/GrdRng.text";
"Line: 707";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/GrdRng.text, line: 707
// Example: H128E3 ()
print "Example: H128E3";
ei := GetEchoInput();
SetEchoInput(true);
p := Point(7,[3,4]);    
p;
IsGorensteinSurface(p);
assert $1;
q := Point(5,2,[1,2,3]);  
q;
IsTerminalThreefold(q);
assert $1;
Eigenspace(q);
assert $1 eq 2;
p eq q;
assert not $1;
Eigenspace(p);
assert $1 eq -1;
SetEchoInput(ei);
