"Source: Text/Geometry/Scheme.text";
"Line: 4293";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/Scheme.text, line: 4293
// Example: H122E25 ()
print "Example: H122E25";
ei := GetEchoInput();
SetEchoInput(true);
P := ProjectiveSpace(Rationals(),[2,3,4,5]);
A,phi := WeightedAffinePatch(P,1);
A;
phi;
bs := ReducedSubscheme(BaseScheme(phi));
Dimension(bs); Degree(bs);
Support(bs);
P := ProjectiveSpace(Rationals(),[1,2,2]);
A,phi := WeightedAffinePatch(P,1);
A;
phi;
GroebnerBasis(BaseScheme(phi));
SetEchoInput(ei);
