"Source: Text/Geometry/Scheme.text";
"Line: 1558";
"Date: Fri May 26 16:23:18 2023";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/Scheme.text, line: 1558
// Example: H119E12 ()
print "Example: H119E12";
ei := GetEchoInput();
SetEchoInput(true);
A2<x,y>:=AffineSpace(Rationals(),2);
C:=Scheme(A2,(x*y)); //union of the x- and y-axis
X2:=Scheme(A2,x^2);  //y-axis with double multiplicity
Difference(X2,C); //y-axis with mult. 1.
O:=Scheme(A2,[x,y]);
Difference(C,O);   
Difference(C,A2);     
A3<x,y,z>:= AffineSpace(Rationals(),3);
C:=Scheme(A3,Ideal([x,z])*Ideal([y,z])); //again, union of x- and y-axis
Z:=Scheme(A3,[z]); //the x,y plane
Difference(C,Z); 
SetEchoInput(ei);
