Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Simplifying from 4 subscripts to 2' topicStudent Support Forum > General > Archives > "Simplifying from 4 subscripts to 2"

Next Comment >Help | Reply To Topic
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: ,

Subject (listing for 'Simplifying from 4 subscripts to 2')
Author Date Posted
Simplifying from 4 subscripts to 2 Donna Taylor 07/19/00 07:09am
Re: Simplifying from 4 subscripts to 2 Aaron Honecker 08/02/00 12:44pm
Next Comment >Help | Reply To Topic