Polynomial constructing
- To: mathgroup at smc.vnet.net
- Subject: [mg43686] Polynomial constructing
- From: "S.Myslivets" <sam at iph.krasn.ru>
- Date: Tue, 30 Sep 2003 16:42:34 -0400 (EDT)
- Organization: Institute of physics
- Reply-to: "S.Myslivets" <sam at iph.krasn.ru>
- Sender: owner-wri-mathgroup at wolfram.com
Hello,
I am a beginner in Mathematica and need a help. It is necessary to
generate a set of n uniform polynomials of k_i-th order (i=1,...,n) of
n variables. For example for n=3 (vars={x1,x2,x3}), k={0,2,1} they should
look as
Pol1=a[1,0,0,0]
Pol2=a[2,2,0,0]x1^2+a[2,0,2,0]x2^2+a[2,0,0,2]x3^2+a[2,1,1,0]x1x2+a[2,1,0,1]x1x3+a[2,0,1,1]x2x3
Pol3=a[3,1,0,0]x1+a[3,0,1,0]x2+a[3,0,0,1]x3
Thanks for any suggestions
Serg mailto:sam at iph.krasn.ru