"Source: Text/Geometry/CrvEll.text";
"Line: 274";
"Date: Wed Sep 19 23:00:01 2018";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/CrvEll.text, line: 274
// Example: H131E2 ()
print "Example: H131E2";
ei := GetEchoInput();
SetEchoInput(true);
P2<X, Y, Z> := ProjectiveSpace(Rationals(), 2);
C := Curve(P2, X^3 + Y^2*Z - X*Y*Z - Z^3);
pt := C![0, 1, 1];
time E1, phi1 := EllipticCurve(C, pt);
E1;
time E2, phi2 := EllipticCurve(C, Place(pt));
E2;
phi1;
phi2;
SetEchoInput(ei);
