Re: (Numerisches?) Problem beim Bestimmen der Eigenvektoren

["Udo und Susanne Krause" <su.krause@XXXXXXX.ch>]

Man kann auf den Arnoldi auch noch verzichten, aber eine Extradimension  
braucht es:

In[132]:= Clear[w]
w = Take[#, 4] & /@ (Eigenvectors[messmerM[M, 1], 4] // Chop)

Out[133]= {{-0.0568049, -0.0568049, -0.0592536, 0.995005},
        {-0.58598, -0.58598, -0.550739, -0.0997043},
        {0.707107, -0.707107, 0, 0},
        {-0.391663, -0.391663, 0.832572, 0.00486037}}

> Hat jemand von euch eine Idee, <snip> wie man es umgehen kann?

++Gruss
Udo.