Полином получен из базиса Гребнера и является достаточно длинным.
Для преобразования кода из Maple в Fortran есть команда
Код:
with(CodeGeneration):
F:=Fortran(poly);
В случае когда код большой рекомендуют пользоваться командами split/makeproc
Код:
with(codegen):
F1:=makeproc(poly);
F2:=split(F1);
Тем не менее, выражение полиномиального вида разбивается крайне нерационально.
С принципиальной точки зрения, разбить полином на части крайне просто.
Странно, что Maple занимается каким-то непотребством.
Может как-то можно с умом перевести?