The following curve f is copied from page 6 in "Determining Simple Points on Rational Algebraic Curves" from J. Rafael Sendra and Franz Winkler, RISC-Linz Report Series No. 93-23. f:=x3^5*x1*x2^4+x3^4*x1*x2^5+x3^5*x1^2*x2^3+x3^3*x1^5*x2^2-19*x3^3*x1^2*x2^5 -53*x3^3*x1^3*x2^4+x3^4*x1^5*x2+x1^5*x2^5+x3^5*x1^5+43*x3^4*x1^3*x2^3 +x3^3*x1^4*x2^3+12*x3^2*x1^4*x2^4+57*x3^2*x1^3*x2^5-19*x3^2*x1^5*x2^3 -36*x3*x1^4*x2^5+x3^5*x2^5+21*x3*x1^5*x2^4-15*x3^5*x1^3*x2^2; read(IntBasis); f:=subs(x1=x,x2=y,x3=1,f); 4 5 2 3 5 2 2 5 3 4 5 5 5 5 f := x y + x y + x y + x y - 19 x y - 53 x y + x y + x y + x 3 3 4 3 4 4 3 5 5 3 4 5 5 + 43 x y + x y + 12 x y + 57 x y - 19 x y - 36 x y + y 5 4 3 2 + 21 x y - 15 x y genus(f,x,y,`parametrization`,t); 5 4 3 2 [11 (t - 49247000 t + 662563814000000 t - 1426558353055000000000 t - 20886240847078255000000000000 t + 61159090448414546291000000000000000) / 5 4 3 2 / (t + 307461000 t - 4072818739000000 t + 3138428376721000000000 t / + 45949729863572161000000000000 t + 672749994932560009201000000000000000) , 5 4 3 2 11 (t - 49247000 t + 662563814000000 t - 1426558353055000000000 t - 20886240847078255000000000000 t + 61159090448414546291000000000000000) / 5 4 3 / (t + 453871000 t - 16505633837000000 t / 2 + 169475132342934000000000 t - 229748649317860805000000000000 t - 3363749974662800046005000000000000000) ]