Re: Polynomial constructing
- To: mathgroup at smc.vnet.net
- Subject: [mg43726] Re: Polynomial constructing
- From: Paul Abbott <paul at physics.uwa.edu.au>
- Date: Thu, 2 Oct 2003 02:51:22 -0400 (EDT)
- Organization: The University of Western Australia
- References: <blcps0$p0l$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
In article <blcps0$p0l$1 at smc.vnet.net>,
"S.Myslivets" <sam at iph.krasn.ru> wrote:
> 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
You can construct these with the assistance of functions in
<<Algebra`SymmetricPolynomials`
Cheers,
Paul
--
Paul Abbott Phone: +61 8 9380 2734
School of Physics, M013 Fax: +61 8 9380 1014
The University of Western Australia (CRICOS Provider No 00126G)
35 Stirling Highway
Crawley WA 6009 mailto:paul at physics.uwa.edu.au
AUSTRALIA http://physics.uwa.edu.au/~paul