"Source: Text/Geometry/HypGeomMot.text";
"Line: 784";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/HypGeomMot.text, line: 784
// Example: H138E3 ()
print "Example: H138E3";
ei := GetEchoInput();
SetEchoInput(true);
H := HypergeometricData([3],[4]); // Phi_3 and Phi_4
GammaList(H);
H2 := HypergeometricData([* -2, 4, 6, -8 *]);
IsPrimitive(H2);
PrimitiveData(H2) eq H;
assert $1;
H3 := HypergeometricData([* -3, 6, 9, -12 *]);
IsPrimitive(H3);
PrimitiveData(H3) eq H;
assert $1;
aInvariants(EllipticCurve(H));
aInvariants(EllipticCurve(H2));
aInvariants(EllipticCurve(H3));
SetEchoInput(ei);
