Jordan-Normalform Hauptvektor ℝ⁴ (parameter)
2. Sufe nach
HVλ2:=1; Wahl des abzuarbeitenden Eigenwertes
LGHV2:=(A - Element(EW,HVλ2) * E)^(N-1 )
LHV2:=Solutions( LGHV2 X,X)
HV2Kandidaten:=Transpose(If(LHV2 ≠ {},Substitute(Sequence(If(Element(LHV2,1,j) ≟ Element(X,j),Flatten(Substitute(LHV2,Element(X,j) = 1)),0),j,1,n) \ {0},X = X0),{}))
KernHV2:=(A - Element(EW,HVλ2) E)^(N-2) HV2Kandidaten
hv2:=2; Wahl der Spalte (kern != 0)
HV21:=(A - Element(EW,HVλ2) * E) HV2Kandidaten
HV11:=(A - Element(EW,HVλ2) * E) HV21;