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