给定方程：
x + 2y + 3z = 20  
2x + 2y + 3z = 100  
3x + 2y + 8z = 200

用方程系数求解的矩阵A和B:
A->
1   2   3
2   2   3
3   2   8
B->
20
100
200

# create matrix A and B using given equations
A <- rbind(c(1, 2, 3), 
           c(2, 2, 3), 
           c(3, 2, 8))
B <- c(20, 100, 200)
  
# Solve them using solve function in R
solve(A, B)

80 -36 3.99999999999999

给定方程:
19x + 32y + 31z = 1110  
22x + 28y + 13z = 1406  
31x + 12y + 81z = 3040

用方程系数求解的矩阵A和B:
A->
19   32   31
22   28   13
31   12   81
B->
1110
1406
3040

# Load package MASS
library(MASS)
  
# create matrix A and B using given equations
A <- rbind(c(19, 32, 31), 
           c(22, 28, 31), 
           c(31, 12, 81))
B <- c(1110, 1406, 3040)
  
# Solve them using solve
# function wrapped in fractions
fractions(solve(A, B))

[1] 159950/2243 -92039/4486  29784/2243

# create matrix A and B using given equations
A <- matrix(c(4, 7, 3, 6), ncol = 2)
print(A)
  
print("Inverse matrix")
  
# Solve them using solve function in R
print(solve(A))

     [,1] [,2]
[1,]    4    3
[2,]    7    6
[1] "Inverse matrix"
          [,1]      [,2]
[1,]  2.000000 -1.000000
[2,] -2.333333  1.333333