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