Here is the function generator that I am using.
CS1(s):=VECTOR(SUM((x SUB k_*r^k_)^n_/n_!,n_,0,s/k_),k_,1,s)
CS5(y):=LN(LIM(y/LIM(y,r,1),r,#e,0))
CS2(p1,p2,s):=SUM(SELECT(CS5(y_)<=s,y_,TERMS(EXPAND(p1*p2))))
CS4(v,s):=(ITERATE([CS2(v_ SUB 1,v SUB (v_ SUB 2),s),v_ SUB 2-1],v_,[1,s],s))~
SUB 1
CS6(v):=LIM(VECTOR([CS5(y_),y_],y_,v),r,1,0)
CS7(v,s):=VECTOR(SUM(VECTOR(t_ SUB 2,t_,SELECT(z_ SUB 1=k_,z_,v))),k_,0,s)
CS9(s):=CS7(CS6(TERMS(EXPAND(CS4(CS1(s),s),r))),s)
CS3(v,s):=SUM(VECTOR(t_ SUB 2,t_,SELECT(z_ SUB 1=s,z_,v)))
CS10(s):=CS3(CS6(TERMS(EXPAND(CS4(CS1(s),s),r))),s)
CS10(s) generates the function with only order s.
Quoting [log in to unmask]:
> Does anybody have an algorithm to generate symmetric functions?
> I have one in \user\c1999.mth. A better one should exist.
> Jim FitzSimons
>
|