Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

matrix manipulation

• To: mathgroup at smc.vnet.net
• Subject: [mg132396] matrix manipulation
• From: dimanag78 at gmail.com
• Date: Sat, 8 Mar 2014 02:43:31 -0500 (EST)
• 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

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.

• Follow-Ups:
  • Re: matrix manipulation
    • From: Murray Eisenberg <murray@math.umass.edu>
  • Re: matrix manipulation
    • From: Bob Hanlon <hanlonr357@gmail.com>
  • Re: matrix manipulation
    • From: "Harker, Anthony" <a.harker@ucl.ac.uk>
  • Re: matrix manipulation
    • From: Itai Seggev <itais@wolfram.com>