"Source: Text/Geometry/Scheme.text";
"Line: 4247";
"Date: Fri May 26 16:23:18 2023";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/Scheme.text, line: 4247
// Example: H119E25 ()
print "Example: H119E25";
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);
