"Source: Text/Geometry/AlgSrf.text";
"Line: 3938";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/AlgSrf.text, line: 3938
// Example: H126E19 ()
print "Example: H126E19";
ei := GetEchoInput();
SetEchoInput(true);
Q := Rationals();
Qxy<x,y> := PolynomialRing(Q, 2, "glex");
f := (y^2-x^3)*(x^2-y^2-y^3);
NCs, EXs, DCs := ResolveAffineCurve(f : Factors := Factorization(f));
#NCs, #EXs, #DCs;
NCs[2]; EXs[3]; DCs[1];
NCs[2][1](x), NCs[2][1](y);
NCs, EXs, DCs := ResolveAffineCurve(f : Focus := [x,y]);
#NCs, #EXs, #DCs;
assert #NCs eq 5; assert #EXs eq 3; assert #DCs eq 0;
SetEchoInput(ei);
