Groups > comp.soft-sys.math.mathematica > #16645

Re: matrix manipulation

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 <steve@smc.vnet.net>, Moderator
Message-ID	<lfp2ct$md$1@smc.vnet.net> (permalink)
References	<lfeio3$5r1$1@smc.vnet.net>
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

Show key headers only | View raw

> 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

Back to comp.soft-sys.math.mathematica | Previous | Next — Previous in thread | Find similar

Thread

matrix manipulation dimanag78@gmail.com - 2014-03-08 08:01 +0000
  Re: matrix manipulation Roland Franzius <roland.franzius@uos.de> - 2014-03-10 08:44 +0000
  Re: matrix manipulation dimanag78@gmail.com - 2014-03-12 07:29 +0000

csiph-web