Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

Re: Eigensystem

  • To: mathgroup at smc.vnet.net
  • Subject: [mg73323] Re: Eigensystem
  • From: dh <dh at metrohm.ch>
  • Date: Mon, 12 Feb 2007 05:03:10 -0500 (EST)
  • References: <eqmcbn$bbe$1@smc.vnet.net>


Hi Vadim,

you simply must ensure that your input has at least the required 

precision + (a couple of "safety digits"). Here is an example:

m = Table[Random[Integer, {0, 100}], {3}, {3}]

t = Eigensystem[N[m, 50]]

m.Transpose[t[[2]]] - Transpose[t[[1]] t[[2]]]



Daniel



Vadim N. Smelyanskiy wrote:

> Dear Sir/Madam:

> 

>  

> 

> I am a user of Mathematica 5.2 for Windows.

> 

> Please can you advice me how to run Eigensystem function so that its result

> has precision (say 50)

> 

> that is much higher then the Machine Precision. 

> 

>  

> 

> Thank you

> 

> Vadim

> 

>  

> 

> Vadim N. Smelyanskiy, PhD

> 

> NASA Ames Research Center

> 

> Discovery and System Health Area

> 

> Intelligent Systems Division

> 

> Mail Stop 269-3

> 

> Moffett Field, CA 94035-1000

> 

> Tel.: 650-604-2261

> 

> Fax: 650-604-4036

> 

>  

> 




  • Prev by Date: Re: Eigensystem
  • Next by Date: Re: Eigensystem
  • Previous by thread: Re: Eigensystem
  • Next by thread: Re: Eigensystem