MathGroup Archive 2014

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

Search the Archive

Re: matrix manipulation

  • To: mathgroup at smc.vnet.net
  • Subject: [mg132409] Re: matrix manipulation
  • From: "Harker, Anthony" <a.harker at ucl.ac.uk>
  • Date: Mon, 10 Mar 2014 04:39:33 -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: <20140308074331.2B3106A1D@smc.vnet.net>

Do I see elasticity theory?

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

  Tony

]-> -----Original Message-----
]-> From: dimanag78 at gmail.com [mailto:dimanag78 at gmail.com]
]-> Sent: 08 March 2014 07:44
]-> To: mathgroup at smc.vnet.net
]-> Subject: matrix manipulation
]->
]-> 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.
]->




  • Prev by Date: Re: FindFit and LeastSquares
  • Next by Date: Re: FindFit and LeastSquares
  • Previous by thread: Re: matrix manipulation
  • Next by thread: Re: matrix manipulation