membuat matriks koefisien A
library(matlib)
A <- matrix(c(1,-2,-1,2,34,2,3,-2,1), nrow = 3, ncol = 3)
A
## [,1] [,2] [,3]
## [1,] 1 2 3
## [2,] -2 34 -2
## [3,] -1 2 1
membuat vektor b
b <- c(6, -1, 2)
b
## [1] 6 -1 2
untuk mennyelesaikan sistem persamaan linear kita menggunakan fungsi Solve()
Solve(A,b)
## x1 = 0.08823529
## x2 = 0.08823529
## x3 = 1.91176471
A <- matrix(c(1,-2,-1,2,3,2,3,-2,1), nrow = 3, ncol = 3)
A
## [,1] [,2] [,3]
## [1,] 1 2 3
## [2,] -2 3 -2
## [3,] -1 2 1
Sekarang kita membuat vektor untuk sisi kanan dari sistem persamaan linearpersamaan:
b <- c(6, -1, 2)
b
## [1] 6 -1 2
Kemudian, untuk menyelesaikan sistem persamaan linear dengan paket matlib cukup ketik saja:
Solve(A, b)
## x1 = 1
## x2 = 1
## x3 = 1
Sekali lagi, paket ini tidak hanya dapat memplot geometri dimensi tetapi juga dapat memplot geometri tiga dimensi dari sistem persamaan linear. Jika Anda mengetik sebagai berikut:
plotEqn3d(A,b, xlim=c(0,4), ylim=c(0,4))