"Source: Text/Geometry/Scheme.text";
"Line: 8370";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/Scheme.text, line: 8370
// Example: H122E73 ()
print "Example: H122E73";
ei := GetEchoInput();
SetEchoInput(true);
P<x,y,z> := ProjectiveSpace(Rationals(),2);
L := LinearSystem(P,6);
p1 := P ! [1,0,0];
p2 := P ! [0,1,0];
p3 := P ! [0,0,1];
L1 := LinearSystem(L,p1,4);
L2 := LinearSystem(L1,p2,3);
L3 := LinearSystem(L2,p3,2);
Sections(L3);
BaseComponent(L3);
MinimalPrimeComponents(BaseScheme(L3));
L4 := Reduction(L3);
Sections(L4);
MinimalPrimeComponents(BaseScheme(L4));
[ RationalPoints(Z) : Z in $1 ];
SetEchoInput(ei);
