Path: csiph.com!newsfeed.hal-mli.net!feeder3.hal-mli.net!newsfeed.hal-mli.net!feeder1.hal-mli.net!newspeer1.nac.net!newspump.sol.net!posts.news.twtelecom.net!nnrp3.twtelecom.net!not-for-mail From: dimanag78@gmail.com Newsgroups: comp.soft-sys.math.mathematica Subject: Re: matrix manipulation Date: Wed, 12 Mar 2014 07:29:33 +0000 (UTC) Sender: steve@smc.vnet.net Approved: Steven M. Christensen , Moderator Message-ID: References: Lines: 65 Organization: Time-Warner Telecom NNTP-Posting-Date: 12 Mar 2014 07:35:14 GMT NNTP-Posting-Host: 773e4ab2.news.twtelecom.net X-Trace: DXC=8hdl_PRi28VXg:DhlW=laUC_A=>8kQj6];[h;PUXBgbTPm3bW^Q9cmVEFiONJ7[GoV8\Phcd70T0^ X-Complaints-To: abuse@twtelecom.net Xref: csiph.com comp.soft-sys.math.mathematica:16645 > 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