MathGroup Archive 2004

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

Search the Archive

RE: Creating a symmetric matrix


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