Tugas 6

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

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

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

library(matlib)
A <- matrix(c(1,-2,-1,2,3,2,3,-2,1), nrow = 3, ncol = 3)
inv(A)

##             [,1]       [,2]       [,3]
## [1,]  0.58333333  0.3333333 -1.0833333
## [2,]  0.33333333  0.3333333 -0.3333333
## [3,] -0.08333333 -0.3333333  0.5833333

library(MASS)
fractions(inv(A))

##      [,1]   [,2]   [,3]  
## [1,]   7/12    1/3 -13/12
## [2,]    1/3    1/3   -1/3
## [3,]  -1/12   -1/3   7/12

library(matlib)
A <- matrix(c(1,-2,-1,2,3,2,3,-2,1), nrow = 3, ncol = 3)
solve(A)

##             [,1]       [,2]       [,3]
## [1,]  0.58333333  0.3333333 -1.0833333
## [2,]  0.33333333  0.3333333 -0.3333333
## [3,] -0.08333333 -0.3333333  0.5833333

library(pracma)

## 
## Attaching package: 'pracma'

## The following objects are masked from 'package:matlib':
## 
##     angle, inv

rref(A)

##      [,1] [,2] [,3]
## [1,]    1    0    0
## [2,]    0    1    0
## [3,]    0    0    1

C <- cbind(A)
C

##      [,1] [,2] [,3]
## [1,]    1    2    3
## [2,]   -2    3   -2
## [3,]   -1    2    1

E <- rref(C)
E

##      [,1] [,2] [,3]
## [1,]    1    0    0
## [2,]    0    1    0
## [3,]    0    0    1

E <- E[-11,]
E

##      [,1] [,2] [,3]
## [1,]    1    0    0
## [2,]    0    1    0
## [3,]    0    0    1

G1 <- eye(8)
G2 <- matrix(rep(0, 80), 8, 10)
b2 <- c(266, 223, 140, 264, 137, 67, 130, 24)
G <- cbind(G1, G2, b2)
M <- rbind(E) 
M

##      [,1] [,2] [,3]
## [1,]    1    0    0
## [2,]    0    1    0
## [3,]    0    0    1

library(pracma)
rref(A)

##      [,1] [,2] [,3]
## [1,]    1    0    0
## [2,]    0    1    0
## [3,]    0    0    1

 inv(M[,-19])

##      [,1] [,2] [,3]
## [1,]    1    0    0
## [2,]    0    1    0
## [3,]    0    0    1