Visualization of the geometry

library(matlib)

## Warning: package 'matlib' was built under R version 4.2.2

membuat matriks koefisien A

A <- matrix(c(1,-2,-1,2,34,2,3,-2,1), nrow = 3, ncol = 3)

mencetak A

A

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

membuat vektor untuk b

b <- c(6, -1, 2)

mencetak b

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

plotEqn3d(A,b, xlim=c(0,4), ylim=c(0,4))