how do make multidimentional polynomials readable?

Hello!
This may be done  in two way, at least,
1) declaring needed variables as ratvars and doing ratsimp,
(D3) -d[1][1]*d[1][3]*a[4]+d[3][1]*d[1][2]*a[4]-d[1][1]*d[0][3]*a[3]
                          +d[2][1]*d[1][2]*a[3]+d[0][1]*a[1]*d[1][2]
                          -d[1][1]*d[2][1]*a[1]
(C4) ratvars(a[1],a[2],a[3],a[4]);
(D4) [a[1],a[2],a[3],a[4]]
(C5) ratsimp(d3);
(D5) (d[3][1]*d[1][2]-d[1][1]*d[1][3])*a[4]
      +(d[2][1]*d[1][2]-d[1][1]*d[0][3])*a[3]
      +a[1]*(d[0][1]*d[1][2]-d[1][1]*d[2][1])
or alternatively you could use functions from 'facexp' package
(C6) load(facexp);
Warning - you are redefining the MACSYMA function INTERSECTION
(D6) ?\/usr\/share\/maxima\/5\.9\.0\.1cvs\/share\/simplification\/facexp\.mac
(C7) collecttermsl(d3,[a[1],a[2],a[3],a[4]]);
(D7) (d[3][1]*d[1][2]-d[1][1]*d[1][3])*a[4]
      +(d[2][1]*d[1][2]-d[1][1]*d[0][3])*a[3]
      +a[1]*(d[0][1]*d[1][2]-d[1][1]*d[2][1])
(C8)

best wishes,
Valery
On Friday 03 October 2003 11:17, Joshua Scholar wrote:
>I remember that in Mathematica and in MuPad, when I was working with
>multidimentional polynomials there was a "collect()" function that would
>allow me to specify which variables I was interested in and it would collect
>all of the coefficients of those variables into sums.
>
>For instance: here's an example taken from a MuPad notebook.  I had a (in
>this case) linear eqn and I wanted to see the it organized around the
>variables (a[0]...a[4]).
>
>> t[2];
>
>d[1][2] (a[1] d[0][1] + a[2] d[1][1] + a[3] d[2][1] + a[4] d[3][1]) -
>d[1][1] (a[1] d[2][1] + a[2] d[1][2] + a[3] d[0][3] + a[4] d[1][3])
>
>> collect(expand(t[2]),[a[i]$i=1..4]);
>
>a[1] (d[0][1] d[1][2] - d[1][1] d[2][1]) + a[3] (- d[0][3] d[1][1] + d[1][2]
>d[2][1]) + a[4] (- d[1][1] d[1][3] + d[1][2] d[3][1])
>
>Is there some way to do this in Maxima?
>
>Joshua Scholar
>
>
>
>_______________________________________________
>Maxima mailing list
>Maxima@www.math.utexas.edu
>http://www.math.utexas.edu/mailman/listinfo/maxima