"Source: Text/Geometry/CrvEll.text";
"Line: 2752";
"Date: Wed Sep 19 23:00:01 2018";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/CrvEll.text, line: 2752
// Example: H131E24 ()
print "Example: H131E24";
ei := GetEchoInput();
SetEchoInput(true);
E := EllipticCurve([GF(97) | 1, 2]);
K<x, y> := FunctionField(E);
EK := BaseChange(E, K);
P := EK![x, y, 1];
P;
2*P;
m2 := MultiplicationByMMap(E, 2);
P := E![ 32, 93, 1 ];
m2(P);
2*P;
SetEchoInput(ei);
