"Source: Text/Geometry/Scheme.text";
"Line: 8079";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/Scheme.text, line: 8079
// Example: H122E70 ()
print "Example: H122E70";
ei := GetEchoInput();
SetEchoInput(true);
K := Rationals();
A<x,y> := AffineSpace(K, 2);
J := LinearSystem(A, 3);
p := A![0,0];
m := [1,1,1,1,1,1,1,1];
t := [[1,1], [1,2], [1,3], [1,4], [1,5], [1,6], [1,7]];
L := LinearSystem(J, p, m, t);
#Sections(L);
C1 := Curve(A, Sections(L)[1]);
C2 := Curve(A, Sections(L)[2]);
Dimension(SingularSubscheme(C1));
Dimension(SingularSubscheme(C2));
SetEchoInput(ei);
