seeing simpler expressions for products



Dear list,

I am using the factor command to get a nice expression for a
certain s-dimensional function, for example with s=3 i can have:

(%i10)                      factor(f_periodized(x))
(%o10) 
      4       2                 4       2                 4       2
  (6 x  - 12 x  + 6 x  + 1) (6 x  - 12 x  + 6 x  + 1) (6 x  - 12 x  + 6 x  + 1)
      1       1      1          2       2      2          3       3      3
  -----------------------------------------------------------------------------
                                        8

This output is already very nice, but it would even be nicer if Maxima could
'discover' that the polynomials in x[1], x[2] and x[3] are in fact all three
the same, and write the output as

                           3      4       2
                         /===\ 6 x  - 12 x  + 6 x  + 1
                          ! !     i       i      i
(%o1)                     ! !  -----------------------
                          ! !             2
                         i = 1


Is this possible with Maxima and if 'yes', how do i do it?

Thanks,
Bart

-- 
	"Share what you know.  Learn what you don't."