EIGNWERT.txt

Lbl MS
ClrHome
Menu("Setup","A eingeben",IA,"Starten",GO)


Lbl IA
Input "Matrix A=",[A]
ClrHome
Disp "Matrix A="
Pause [A]>Frac
Goto MS


" Dimension bestimmen und Einheitsmatrix initialisieren
Lbl GO
dim([A])->|LDIM:|LDIM(1)->N
identity(N)->[I]


" Charakteristisches Polynom anzeigen
String>Equ("det([A]-X[I])",{Y0})
FnOff 
FnOn 0


" Eigenwerte zaehlen
0->K
Lbl RE
K+1->K
ClrHome


" Tipp eingeben und Gleichung loesen
Input 
solve({Y0},X,X,{~|E2,|E2})->L
Disp "lambda=",L>Frac


" Wiederholen, bis n Eigenwerte gefunden wurden
If K<N:Then
	Pause 
	Goto RE
End