"Source: Text/Ring/FldFunG.text";
"Line: 2287";
"Date: Fri Sep 26 13:15:42 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Ring/FldFunG.text, line: 2287
// Example: H46E18 ()
print "Example: H46E18";
ei := GetEchoInput();
SetEchoInput(true);
k<x>:= FunctionField(Rationals());
R<y>:= PolynomialRing(k);
f:= y^14 - 3234*y^12 + (8*x + 123480)*y^11 + (-696*x - 1152480)*y^10 + 
(27672*x - 43563744)*y^9 + (-663544*x + 1795525424)*y^8 + (10660416*x - 
 33905500608)*y^7 + (-120467088*x + 409661347536)*y^6 + (976911040*x - 
 3428257977088)*y^5 + (-5684130144*x + 20264929189344)*y^4 + (23251514496*x -
 83582683562112)*y^3 + (-63672983360*x + 229899367865216)*y^2 + 
 (105037027200*x - 380160309247488)*y - 79060128000*x + 286518963720192;
F:= FunctionField(f);
Subfields(F);
SetEchoInput(ei);
