Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: matrix manipulation
Replies: 4   Last Post: Mar 10, 2014 4:42 AM

 Messages: [ Previous | Next ]
 Bob Hanlon Posts: 906 Registered: 10/29/11
Re: matrix manipulation
Posted: Mar 10, 2014 4:41 AM

Table[Subscript[C, k, j][i], {k, 1, 6}, {j, 1,
6}] /. (Subscript[C, k_, j_] /; k > j) -> Subscript[C, j, k]

SymmetricMatrixQ[%]

True

Bob Hanlon

2014-03-08 2:43 GMT-05:00 <dimanag78@gmail.com>:

> 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.
>
>

Date Subject Author
3/10/14 Itai Seggev
3/10/14 Dr A.H. Harker
3/10/14 Bob Hanlon
3/10/14 Murray Eisenberg