"Source: Text/Geometry/Crv.text";
"Line: 2580";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/Crv.text, line: 2580
// Example: H124E15 ()
print "Example: H124E15";
ei := GetEchoInput();
SetEchoInput(true);
P<a,b,c,d,e,f> := ProjectiveSpace(Rationals(),5);
C := Curve(P,[
a^2 + a*c - c*e + 3*d*e + 2*d*f - 2*e^2 - 2*e*f - f^2,
a*c - b^2,
a*d - b*c,
a*e - c^2,
a*e - b*d,
b*e - c*d,
c*e - d^2
] );
boo,hy,mp := IsHyperelliptic(C);
boo;
assert $1;
hy;
mp;
SetEchoInput(ei);
