Services & Resources / Wolfram Forums / MathGroup Archive

MathGroup Archive 2010

[Date Index] [Thread Index] [Author Index]

Search the Archive

Question about subscripts and polynomial

  • To: mathgroup at smc.vnet.net
  • Subject: [mg107355] Question about subscripts and polynomial
  • From: Luca Zanotti Fragonara <Luca.Zanottifragonara at polito.it>
  • Date: Wed, 10 Feb 2010 03:36:40 -0500 (EST)
Hello everybody,

I would like to write a Polynomial, in this way:

Poly = d^2*v
Subscript[q, 1] =
 Poly /. {d -> Sum[Subscript[d, i], {i, 1, 3}]} /. {v ->Sum[Subscript[v, 
i], {i, 1, 3}]}
Expand[Subscript[q, 1]]

In this way I will obtain a polynomial in this form:

d_1^2 v_1+2 d_1 d_2 v_1+d_2^2 v_1+2 d_1 d_3 v_1+2 d_2 d_3 v_1+d_3^2 
v_1+d_1^2 v_2+2 d_1 d_2 v_2+d_2^2 v_2+2 d_1 d_3 v_2+2 d_2 d_3 v_2+d_3^2 
v_2+d_1^2 v_3+2 d_1 d_2 v_3+d_2^2 v_3+2 d_1 d_3 v_3+2 d_2 d_3 v_3+d_3^2 v_3

I would like to reorder the expanded polynomial in a way such that the 
terms with lower subcripts indexes will be at the beginning of the 
polynomial, and the terms with higher order of subscripts will be at the 
end (a sort of order due to the subscript instead of the power terms). 
So the order should be something:

Order 3: d_1^2 v_1
Order 4: 2 d_1 d_2 v_1+d_1^2 v_2+...
Order 5: d_2^2 v_1+2 d_1 d_3 v_1+...
Order 6: 2 d_2 d_3 v_1+...

I've tried to figure it out but I don't know which way to turn!!!

Thank you in advance.

Luca
  • Prev by Date: Re: Bug? Analytical integration of cosines gets the sign wrong
  • Next by Date: Re: Exception message from java: MathLink connection was lost.
  • Previous by thread: Re: GUIKit: How to set up a "tableHeader" in table
  • Next by thread: Re: Question about subscripts and polynomial