"Source: Text/Geometry/RieSrf.text";
"Line: 265";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/RieSrf.text, line: 265
// Example: H127E4 ()
print "Example: H127E4";
ei := GetEchoInput();
SetEchoInput(true);
Q<x> := PolynomialRing(Rationals());                                       
p := x^5 - 5/2*x^4 + 5/3*x^3 - 1/6*x;   
m := 7;
IntMeth := Random(["Mixed","GJ","DE"]);                                                          
X1 := RiemannSurface(p,m : IntMethod := IntMeth, Precision:=100);
Genus(X1);
X1;
C<I> := ComplexField(100);
X2 := RiemannSurface(ChangeRing(p,C),m);
pRts := Roots(ChangeRing(p,C));
L := [ r[1] : r in pRts ] cat [ 1 ];
X3 := RiemannSurface( L, m );
X3;
SetEchoInput(ei);
