Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

RE: Creating a symmetric matrix

  • To: mathgroup at
  • Subject: [mg46865] RE: [mg46853] Creating a symmetric matrix
  • From: "tgarza01 at" <tgarza01 at>
  • Date: Fri, 12 Mar 2004 02:02:49 -0500 (EST)
  • Reply-to: tgarza01 at
  • Sender: owner-wri-mathgroup at

anyMat = {{a, b, c}, {d, e, f}, {g, h, i}}; 

symMat = Table[If[m >= j, anyMat[[m,j]], 
    anyMat[[j,m]]], {m, 1, 3}, {j, 1, 3}]

Tomas Garza
Mexico City

Original Message:
From: Mark Coleman mark at
To: mathgroup at
Subject: [mg46865] [mg46853] Creating a symmetric matrix


How can I efficiently build a symmetric matrix from an upper triangular 
one, i.e., extract the upper triangular elements and insert them into 
the lower triangle in such a way as to make the resulting square matrix 



mail2web - Check your email from the web at .

  • Prev by Date: Re: Font size
  • Next by Date: Integrate vs NIntegrate
  • Previous by thread: Re: Creating a symmetric matrix
  • Next by thread: RE: Creating a symmetric matrix