Re: matrix manipulation
- To: mathgroup at smc.vnet.net
- Subject: [mg132425] Re: matrix manipulation
- From: dimanag78 at gmail.com
- Date: Wed, 12 Mar 2014 03:28:39 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-outx@smc.vnet.net
- Delivered-to: mathgroup-newsendx@smc.vnet.net
- References: <lfeio3$5r1$1@smc.vnet.net>
> Hello to all. > > > > I have the following 6x6 matrix > > > > Table[Subscript[C, k, j][i], {k, 1, 6}, {j, 1, 6}] > > > > I want this matrix to be symmetric, that is, > > Subscript[C, k, j][i] = Subscript[C, j, k][i] for j != k. > > > > In other words I want the matrix > > > > {{Subscript[C, 1, 1][i], Subscript[C, 1, 2][i], Subscript[C, 1, 3][i], > > Subscript[C, 1, 4][i], Subscript[C, 1, 5][i], > > Subscript[C, 1, 6][i]}, {Subscript[C, 1, 2][i], > > Subscript[C, 2, 2][i], Subscript[C, 2, 3][i], Subscript[C, 2, 4][i], > > Subscript[C, 2, 5][i], > > Subscript[C, 2, 6][i]}, {Subscript[C, 1, 3][i], > > Subscript[C, 2, 3][i], Subscript[C, 3, 3][i], Subscript[C, 3, 4][i], > > Subscript[C, 3, 5][i], > > Subscript[C, 3, 6][i]}, {Subscript[C, 1, 4][i], > > Subscript[C, 2, 4][i], Subscript[C, 3, 4][i], Subscript[C, 4, 4][i], > > Subscript[C, 4, 5][i], > > Subscript[C, 4, 6][i]}, {Subscript[C, 1, 5][i], > > Subscript[C, 2, 5][i], Subscript[C, 3, 5][i], Subscript[C, 4, 5][i], > > Subscript[C, 5, 5][i], > > Subscript[C, 5, 6][i]}, {Subscript[C, 1, 6][i], > > Subscript[C, 2, 6][i], Subscript[C, 3, 6][i], Subscript[C, 4, 6][i], > > Subscript[C, 5, 6][i], Subscript[C, 6, 6][i]}} > > > > > > Thank you very much, in advance, for yor help. Thank you all for your replies. Dimitris