arqady писал(а):
Оно тривиально, например, согласно критерию Мюрхеда ( Muirhead ):
Да, неравенство Мюрхеда я как-то проглядел. Оно на самом деле очень полезное, особенно потому, что его применение можно автоматизировать (надо будет написать программку на досуге). Например, я мог бы его также сразу применить к полученной симметрической функции, выразив ее числитель через полиномы m[]:
Код:
> dual_basis(m,h);
Okay
> tom( numer( 4 * ((p1*e2+p3)/(p1*e2-e3)+1)^2 - 11*p2/e2 - 14 ) );
4*m[7,1] + 5*m[6,2] + 14*m[6,1,1] - 4*m[5,3] + 12*m[5,2,1] + 48*m[5,1,1,1] - 10*m[4,4] - 14*m[4,3,1] + 64*m[4,2,1,1] + 272*m[4,1,1,1,1] - 10*m[3,3,2] + 68*m[3,3,1,1] + 192*m[3,2,2,1] + 688*m[3,2,1,1,1] + 2040*m[3,1,1,1,1,1] + 424*m[2,2,2,2] + 1340*m[2,2,2,1,1] + 3744*m[2,2,1,1,1,1] + 9800*m[2,1,1,1,1,1,1] + 24640*m[1,1,1,1,1,1,1,1]
и здесь на самом деле те m[], у которых размерность аргумента больше 3, можно просто отбросить (интересно, можно ли в SF это сделать автоматически, задав дополнительные параметры?). Получается:
Код:
4*m[7,1] + 5*m[6,2] + 14*m[6,1,1] - 4*m[5,3] + 12*m[5,2,1] - 10*m[4,4] - 14*m[4,3,1] - 10*m[3,3,2]
И это на самом деле в точности, что написано у вас:
Код:
4*(m[7,1] - m[5,3]) + 5*(m[6,2] - 2*m[4,4]) + 7*(2*m[6,1,1] - m[4,3,1]) + 7*(m[5,2,1] - m[4,3,1]) + 5*(m[5,2,1] - 2*m[3,3,2])
где каждая из скобок положительна, согласно неравенству Мюрхеда.