rm(list=ls())
#################################################
####################Aufgabe 3####################
#################################################
#Teil a
numbers<-c(2,0,-1,-4,-3,1,3,0,2,0,-1,-2,1,0,-1,3)
A<-matrix(numbers,ncol=4,nrow=4,byrow=T)
A
cat("Die Spur von A ist: ",sum(diag(A)),"\n")
eigen(A,symmetric=FALSE)$values
round(eigen(A,symmetric=FALSE)$values)
#Teil b
b<-c(0,2,4,1)
library(MASS)
GI<-ginv(t(A)%*%A)
solve(GI%*%t(A),b)