"Source: Text/Geometry/Scheme.text";
"Line: 7876";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/Scheme.text, line: 7876
// Example: H122E66 ()
print "Example: H122E66";
ei := GetEchoInput();
SetEchoInput(true);
K := Rationals();
R<x,y,z,w,t> := PolynomialRing(K, 5, "grevlex");
A := AffineSpace(R);
d := 9;
s := [&+[R.i^(d+j) : i in [1..5]]:j in [1..3]];
X := Scheme(A,[s[1], s[2]]) join Scheme(A, [s[2], s[3]]);
L := LinearSystem(A, d+2);
time J := LinearSystem(L, X);
#Sections(J);
K := Rationals();
R<x,y,z,w,t> := PolynomialRing(K, 5, "grevlex");
A := AffineSpace(R);
d := 9;
s := [&+[R.i^(d+j) : i in [1..5]] : j in [1..3]];
X := Scheme(A, [s[1], s[2]]) join Scheme(A, [s[2], s[3]]);
X := ProjectiveClosure(X);
A := Ambient(X);
L := LinearSystem(A, d+2);
time J := LinearSystem(L, X);
#Sections(J);
SetEchoInput(ei);
