// Genus 2 curves downloaded from the LMFDB on 26 September 2021.
// Query "{'cond': 1047}" returned 1 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 := [*\
"1047.a.3141.1"*];
data := [*\
[*[*0, 1*], [*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;