Symmetric Function Example

Input is in RED.

Read in SF library

>    read `/home/faculty/psa/maple/SF2.4v.txt`; 

SF 2.4v loaded. Run 'withSF()' to use abbreviated names.

>    withSF(); 

Warning: new definition for  conjugate

[tos, evalsf, omega, toh, dominate, top, itensor, char2sf, hooks, nextPar, subPar, sf2char, skew, toe, Par, theta, dual_basis, conjugate, stdeg, scalar, plethysm, jt_matrix, varset, zee, add_basis]
[tos, evalsf, omega, toh, dominate, top, itensor, char2sf, hooks, nextPar, subPar, sf2char, skew, toe, Par, theta, dual_basis, conjugate, stdeg, scalar, plethysm, jt_matrix, varset, zee, add_basis]

Define m basis

>    dual_basis(m,h);

Okay

>    tos(p1^5);

s[5]+4*s[4,1]+5*s[3,2]+6*s[3,1,1]+5*s[2,2,1]+4*s[2,1,1,1]+s[1,1,1,1,1]

>    tom(p2*s[3,2]);

m[5,2]+m[5,1,1]+m[4,3]+2*m[4,2,1]+3*m[4,1,1,1]+2*m[3,3,1]+4*m[3,2,2]+4*m[3,2,1,1]+5*m[3,1,1,1,1]+6*m[2,2,2,1]+6*m[2,2,1,1,1]+5*m[2,1,1,1,1,1]
m[5,2]+m[5,1,1]+m[4,3]+2*m[4,2,1]+3*m[4,1,1,1]+2*m[3,3,1]+4*m[3,2,2]+4*m[3,2,1,1]+5*m[3,1,1,1,1]+6*m[2,2,2,1]+6*m[2,2,1,1,1]+5*m[2,1,1,1,1,1]

>    tos(s[2,1]*s[5,4]);

s[7,5]+s[7,4,1]+s[6,6]+2*s[6,5,1]+s[6,4,2]+s[6,4,1,1]+s[5,5,2]+s[5,5,1,1]+s[5,4,2,1]

>