Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*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 smc.vnet.net
  • Subject: [mg46865] RE: [mg46853] Creating a symmetric matrix
  • From: "tgarza01 at prodigy.net.mx" <tgarza01 at prodigy.net.mx>
  • Date: Fri, 12 Mar 2004 02:02:49 -0500 (EST)
  • Reply-to: tgarza01 at prodigy.net.mx
  • Sender: owner-wri-mathgroup at wolfram.com

In[1]:=
anyMat = {{a, b, c}, {d, e, f}, {g, h, i}}; 

In[2]:=
symMat = Table[If[m >= j, anyMat[[m,j]], 
    anyMat[[j,m]]], {m, 1, 3}, {j, 1, 3}]
Out[2]=
{{a,d,g},{d,e,h},{g,h,i}}

Tomas Garza
Mexico City

Original Message:
-----------------
From: Mark Coleman mark at markscoleman.com
To: mathgroup at smc.vnet.net
Subject: [mg46865] [mg46853] Creating a symmetric matrix


Greetings,

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 
symmetric?

Thanks,

Mark


--------------------------------------------------------------------
mail2web - Check your email from the web at
http://mail2web.com/ .



  • 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