"Source: Text/Geometry/CrvEll.text";
"Line: 312";
"Date: Wed Sep 19 23:00:01 2018";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/CrvEll.text, line: 312
// Example: H131E3 ()
print "Example: H131E3";
ei := GetEchoInput();
SetEchoInput(true);
P2<X, Y, Z> := ProjectiveSpace(Rationals(), 2);
C := Curve(P2, X^3*Y^2 + X^3*Z^2 - Z^5);
Genus(C);
assert $1 eq 1;
pt := C![1, 0, 1];
E, toE := EllipticCurve(C, pt);
E;
toE;
SetEchoInput(ei);
