[code]---Kern der Abbildung Ax=0[br]A:={{1,1,-2,-6},{1,-1,-4,2},{2,1,-5,-8},{3,2,-7,-14}}[br]nc:=Element( Dimension(A),1)[br]nr:=Element( Dimension(A),2)[br]n:=MatrixRank(A)[br]X:=Take({{x1},{x2},{x3},{x4},{x5},{x6},{x7},{x8},{x9}},1,nr);[br]A_{Gauss}:=ReducedRowEchelonForm(A)[br]ker_A:=Solutions(Flatten(A_{Gauss} X),Flatten(X))[br]Basis_{Kern}:=Transpose(Sequence(Flatten(Substitute(ker_f,Flatten(X) = Flatten(Take(Identity(nr),k,k)))),k,1,nr) \ {Sequence(0,k,1,nr)})[br]Pivots:=RemoveUndefined(Sequence(IndexOf(Flatten(Element(Identity(nc),j)), Transpose(A_{Gauss})),j,1,nc))[br]Basis_{img}:=Transpose(Sequence(Element(Transpose(A), Pivots( j)),j,1,Length(Pivots) ))[br][br][br][/code][br]---[br]Anpassen A: Copy to [url=https://www.geogebra.org/classic#cas]https://www.geogebra.org/classic#cas[math]\nearrow[/math][/url]