Re: Exact real parts

*To*: mathgroup at smc.vnet.net*Subject*: [mg31226] Re: Exact real parts*From*: bghiggins at ucdavis.edu (Brian Higgins)*Date*: Fri, 19 Oct 2001 03:12:31 -0400 (EDT)*References*: <9qjjv7$j8i$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Mark, Try this, h = Table[1/(i + j - 1), {i,3}, {j,3}]; p=Eigenvalues[h]; Map[ComplexExpand[#] &, p] Cheers, Brian "DIAMOND Mark R." <dot at dot.dot> wrote in message news:<9qjjv7$j8i$1 at smc.vnet.net>... > Is it possible to get Mathematica to provide the exact real parts of > something like the 3x3 Hilbert matrix? > > h = Table[1/(i + j - 1), {i, 3}, {j, 3}]; > Eigenvalues[h] > > N and Chop will obviously give their approximations. > > Cheers