"Source: Text/Geometry/Crv.text";
"Line: 2580";
"Date: Thu May 12 11:26:16 2022";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/Crv.text, line: 2580
// Example: H121E15 ()
print "Example: H121E15";
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);
