"Source: Text/Geometry/CrvG3.text";
"Line: 351";
"Date: Tue May 18 11:09:21 2021";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/CrvG3.text, line: 351
// Example: H133E4 ()
print "Example: H133E4";
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);
