// Genus 2 curves downloaded from the LMFDB on 09 May 2021.
// Query "{'cond': 720}" returned 2 curves.
// Below are two lists, one called labels, and one called data (in matching order).
// Each entry in the data list has the form:
// [[f coeffs],[h coeffs]]
// defining the hyperelliptic curve y^2+h(x)y=f(x).
//
// To create a list of curves, type "curves:= make_data();"
labels := [*\
"720.a.6480.1",
"720.b.116640.1"*];
data := [*\
[*[*5, 0, 7, 0, 2*], [*0, 1, 0, 1*]*],
[*[*-90, 0, 39, 0, -6*], [*0, 1, 0, 1*]*]*];
function make_data()
R:=PolynomialRing(Rationals());
return [HyperellipticCurve(R![c:c in r[1]],R![c:c in r[2]]):r in data];
end function;