"Source: Text/Geometry/CrvG3.text";
"Line: 351";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/CrvG3.text, line: 351
// Example: H136E4 ()
print "Example: H136E4";
ei := GetEchoInput();
SetEchoInput(true);
P<x,y,z> := PolynomialRing(Rationals(), 3);
PP := ProjectiveSpace(P);
C := Curve(PP, x^3*y+y^3*z+z^3*x);
aut, phi := AutomorphismGroupOfPlaneQuartic(C : geometric:=true, 
                 explicit := true);
aut;
GroupName(aut);
[phi(aut.i) : i in [1..Ngens(aut)]];
SetEchoInput(ei);
