"Source: Text/Geometry/CrvEll.text";
"Line: 2984";
"Date: Wed Sep 19 23:00:01 2018";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/CrvEll.text, line: 2984
// Example: H131E27 ()
print "Example: H131E27";
ei := GetEchoInput();
SetEchoInput(true);
E := EllipticCurve([0, -3]);
E;
P1, P2, P3 := Explode(ThreeTorsionPoints(E));
P1;
Parent(P1);
Parent(P2);
Qmu3 := Ring(Parent(P1));
K<w> := CompositeFields(Ring(Parent(P1)), Ring(Parent(P2)))[1];
wp := WeilPairing( E(K)!P1, E(K)!P2, 3 );
wp;
Qmu3!wp;
SetEchoInput(ei);
