=====================================================

Nama Mahasiswa : โ€™Izzan Nuha Zamroni

NIM : 220605110082

Kelas : C

Mata Kuliah : Linear Algebra

Dosen Pengampuh : Prof.Dr.Suhartono,M.Kom

Jurusan : Teknik Informatika

Universitas : UIN Maulana Malik Ibrahim Malang

=====================================================

seq(0, 1, by = 0.1)
##  [1] 0.0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0
s <- seq(1, 100, by = 1)
k <- 1/s
for(i in 2:100){
Ak <- matrix(c(k[i], k[i]^2, k[i]^3, k[i]^2, 2*k[i]^4, 3*k[i]^6,
k[i]^3, 2*k[i]^6, 3*k[i]^9), 3, 3)
print(det(Ak))
}
## [1] -0.0002441406
## [1] -1.003561e-05
## [1] -8.270144e-07
## [1] -1.087898e-07
## [1] -1.990706e-08
## [1] -4.635643e-09
## [1] -1.295575e-09
## [1] -4.175411e-10
## [1] -1.5084e-10
## [1] -5.982886e-11
## [1] -2.565116e-11
## [1] -1.174589e-11
## [1] -5.690421e-12
## [1] -2.894674e-12
## [1] -1.536687e-12
## [1] -8.470474e-13
## [1] -4.827683e-13
## [1] -2.83492e-13
## [1] -1.710046e-13
## [1] -1.056869e-13
## [1] -6.67753e-14
## [1] -4.304796e-14
## [1] -2.82682e-14
## [1] -1.888025e-14
## [1] -1.280887e-14
## [1] -8.816605e-15
## [1] -6.150738e-15
## [1] -4.344938e-15
## [1] -3.105318e-15
## [1] -2.243706e-15
## [1] -1.637818e-15
## [1] -1.207075e-15
## [1] -8.976873e-16
## [1] -6.733068e-16
## [1] -5.090864e-16
## [1] -3.878562e-16
## [1] -2.976297e-16
## [1] -2.299571e-16
## [1] -1.788271e-16
## [1] -1.399259e-16
## [1] -1.101317e-16
## [1] -8.716812e-17
## [1] -6.936216e-17
## [1] -5.547581e-17
## [1] -4.458657e-17
## [1] -3.600254e-17
## [1] -2.920157e-17
## [1] -2.37872e-17
## [1] -1.945673e-17
## [1] -1.597773e-17
## [1] -1.317082e-17
## [1] -1.089684e-17
## [1] -9.047294e-18
## [1] -7.537232e-18
## [1] -6.299803e-18
## [1] -5.28219e-18
## [1] -4.442479e-18
## [1] -3.74728e-18
## [1] -3.169884e-18
## [1] -2.68885e-18
## [1] -2.286898e-18
## [1] -1.950057e-18
## [1] -1.66699e-18
## [1] -1.428468e-18
## [1] -1.226952e-18
## [1] -1.056267e-18
## [1] -9.113383e-19
## [1] -7.879846e-19
## [1] -6.827492e-19
## [1] -5.927674e-19
## [1] -5.156591e-19
## [1] -4.494411e-19
## [1] -3.92457e-19
## [1] -3.433198e-19
## [1] -3.008655e-19
## [1] -2.641148e-19
## [1] -2.322419e-19
## [1] -2.045491e-19
## [1] -1.804454e-19
## [1] -1.594293e-19
## [1] -1.410745e-19
## [1] -1.250174e-19
## [1] -1.109478e-19
## [1] -9.860048e-20
## [1] -8.774788e-20
## [1] -7.819482e-20
## [1] -6.977336e-20
## [1] -6.233886e-20
## [1] -5.576647e-20
## [1] -4.994829e-20
## [1] -4.479087e-20
## [1] -4.02132e-20
## [1] -3.614491e-20
## [1] -3.252478e-20
## [1] -2.929951e-20
## [1] -2.642256e-20
## [1] -2.385331e-20
## [1] -2.15562e-20
## [1] -1.950009e-20
A <- matrix(c(4, 0, 0, 1, 1, 2, 5, 1, 3, 5, 1, 1, 0, 3, 0, 1),
nrow=4, ncol=4, byrow=TRUE)
det(A)
## [1] -86
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)
A1 <- A
A2 <- A
A3 <- A
A4 <- A
x1 <- det(A1)/det(A)
x2 <- det(A2)/det(A)
x3 <- det(A3)/det(A)
x4 <- det(A4)/det(A)
x1
## [1] 1
x2
## [1] 1
 x3
## [1] 1
 x4
## [1] 1
 solve(A,b)
## [1] 1 2 0 1