NAMA : ZULFA ULINNUHA
NIM : 220605110075
KELAS : LINEAR ALGEBRA C
DOSEN PENGAMPU : PROF. Dr. SUHARTONO, M.Kom
JURUSAN TEKNIK INFORMATIKA
FAKULTAS SAINS DAN TEKNOLOGI
UNIVERSITAS ISLAM NEGERI MAULANA MALIK IBRAHIM MALANG
DETERMINAN
A <- matrix(c(0, 1, 3, -1, -1, 1, -4, 0, 1, 0, 2, 4, 0, 1, 0, -4),
nrow = 4, ncol = 4, byrow = TRUE)
b <- c(1, 1, 5, -2)
# Define A1(b)
A1 <- A
A1[, 1] <- b
# Define A2(b)
A2 <- A
A2[ ,2] <- b
# Define A3(b)
A3 <- A
A3[ ,3] <- b
# Define A4(b)
A4 <- A
A4[ ,4] <- b
x1 <- det(A1)/det(A)
x1
## [1] 1
x2 <- det(A2)/det(A)
x2
## [1] 2
x3 <- det(A3)/det(A)
x3
## [1] 7.401487e-17
x4 <- det(A4)/det(A)
x4
## [1] 1
solve(A,b)
## [1] 1 2 0 1