"Source: Text/Geometry/RieSrf.text";
"Line: 445";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/RieSrf.text, line: 445
// Example: H127E5 ()
print "Example: H127E5";
ei := GetEchoInput();
SetEchoInput(true);
 Qt<t> := PolynomialRing(Rationals());
 K<s> := NumberField(t^2 + 1);
 y<x,y> := PolynomialRing(K,2);
 f := -s^2*x^7 + 2*s*x^3*y + y^3;
 sigma := InfinitePlaces(K)[1];
 X := RiemannSurface(f,sigma : Precision:=100);

 BasePoint(X);

 Genus(X);

 BigPeriodMatrix(X);

 SmallPeriodMatrix(X); 

SetEchoInput(ei);
