"Source: Text/Geometry/Crv.text";
"Line: 6931";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/Crv.text, line: 6931
// Example: H124E41 ()
print "Example: H124E41";
ei := GetEchoInput();
SetEchoInput(true);
_<x,y,z> := PolynomialRing(Integers(), 3);
C := -3*x^4 + 7*x^3*y - 2*x^3*z + 6*x^2*y^2 + 9*x^2*y*z - 9*x^2*z^2 
      + 10*x*y^3 - 7*x*y^2*z + 5*x*y*z^2 - 6*x*z^3 - 3*y^4 + 5*y^3*z 
      - 3*y^2*z^2 + 4*y*z^3 + 6*z^4;
C2 := Evaluate(C,[45*x+346*y,74*y+43*z,62324*z+3462*x]);
C2;
MinRedTernaryForm(C2); 
SetEchoInput(ei);
