"Source: Text/Geometry/Scheme.text";
"Line: 7731";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/Scheme.text, line: 7731
// Example: H122E61 ()
print "Example: H122E61";
ei := GetEchoInput();
SetEchoInput(true);
K := Rationals();
A := AffineSpace(K, 2);
M := [2,2,2,2,2,2,3,3,3,3,3,5,5,5,7,7,8,9];
P := [A![Random(1,40), Random(1, 40)] : i in [1..#M]];
time L := LinearSystem(LinearSystem(A, 20), P, M);
#Sections(L);
C := Curve(A, &+Sections(L));
[Multiplicity(C, x): x in P];
SetEchoInput(ei);
