INVERS

Sifat-Sifat Operasi Matriks dan Invers Matriks

library (matlib)
X <-  matrix(c(5,-1,-2,3,4,3,4,-3,1), nrow = 3, ncol = 3)

plotEqn(X)

##  5*x[1] + 3*x[2]  =   4 
##   -x[1] + 4*x[2]  =  -3 
## -2*x[1] + 3*x[2]  =   1

Kemudian kita balik matrix tersebut

B <-inv(X)
B

##            [,1]        [,2]       [,3]
## [1,] 0.12264151  0.08490566 -0.2358491
## [2,] 0.06603774  0.12264151  0.1037736
## [3,] 0.04716981 -0.19811321  0.2169811

visualisasikan melalui grafik

plotEqn(B)

## 0.12264151*x[1] + 0.08490566*x[2]  =  -0.23584906 
## 0.06603774*x[1] + 0.12264151*x[2]  =   0.10377358 
## 0.04716981*x[1] - 0.19811321*x[2]  =   0.21698113

library(MASS)
fractions(B)

##      [,1]    [,2]    [,3]   
## [1,]  13/106   9/106 -25/106
## [2,]   7/106  13/106  11/106
## [3,]   5/106 -21/106  23/106