| Author |
Comment/Response |
Donna Taylor
|
 07/19/00 07:09am
I am generating a huge table using the following command
Table[Sum[Subscripted[c[i,k,l,m]]*Subscripted[n[k]]*Subscripted[n[l]];{k,3},{l,3}],{i,3},{m,3}]
This generates a 3 by 3 with long terms. But, I am trying to condense the subscripts down using the
following information:
Convert C[i,k,l,m] to C[n,q] where:
If i=k, then n=i, otherwise n=9-(i+k)
If l=m, then q=l, otherwise q=9-(l*m)
How do I tell Mathematica to do this?
An example: The first term should condense to C[1,1]*n[1]^2 + C[1,6]*n[2]*n[1] + C[1,5]*n[3]*n[1] + C[1,6]*n[1]*n[2] + C[6,6]*n[2]^2+.......
URL: , |
|
