"Source: Text/Geometry/GrdRng.text";
"Line: 707";
"Date: Mon Jan 20 11:08:12 2020";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/GrdRng.text, line: 707
// Example: H125E3 ()
print "Example: H125E3";
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);
