v1 <- matrix(c(2,-1,1,3), ncol=2, nrow=2)
v2 <- matrix(c(0,4,-1,2), ncol=2, nrow=2)
v3 <- matrix(c(4,2,1,3), ncol=2, nrow=2)
sol <- matrix(c(0,0,0,0), ncol=2, nrow=2)
v <- matrix(c(v1, v2, v3, sol), ncol=4, nrow=4)
v
## [,1] [,2] [,3] [,4]
## [1,] 2 0 4 0
## [2,] -1 4 2 0
## [3,] 1 -1 1 0
## [4,] 3 2 3 0
v[1,] <- v[1,]/v[1,1]
v[2,1] <- v[2,1] - (v[2,1] * v[1,1])
v[2,2] <- v[2,2] - (v[2,1] * v[1,2])
v[2,3] <- v[2,3] - (v[2,1] * v[1,3])
v[2,4] <- v[2,4] - (v[2,1] * v[1,4])
v[3,1] <- v[3,1] - (v[3,1] * v[1,1])
v[3,2] <- v[3,2] - (v[3,1] * v[1,2])
v[3,3] <- v[3,3] - (v[3,1] * v[1,3])
v[3,4] <- v[3,4] - (v[3,1] * v[1,4])
v[4,1] <- v[4,1] - (v[4,1] * v[1,1])
v[4,2] <- v[4,2] - (v[4,1] * v[1,2])
v[4,3] <- v[4,3] - (v[4,1] * v[1,3])
v[4,4] <- v[4,4] - (v[4,1] * v[1,4])
v
## [,1] [,2] [,3] [,4]
## [1,] 1 0 2 0
## [2,] 0 4 2 0
## [3,] 0 -1 1 0
## [4,] 0 2 3 0
v[2,] <- v[2,]/v[2,2]
v[3,2] <- v[3,2] - (v[3,2] * v[2,2])
v[3,3] <- v[3,3] - (v[3,2] * v[2,3])
v[3,4] <- v[3,4] - (v[3,2] * v[2,4])
v[4,2] <- v[4,2] - (v[4,2] * v[2,2])
v[4,3] <- v[4,3] - (v[4,2] * v[2,3])
v[4,4] <- v[4,4] - (v[4,2] * v[2,4])
v
## [,1] [,2] [,3] [,4]
## [1,] 1 0 2.0 0
## [2,] 0 1 0.5 0
## [3,] 0 0 1.0 0
## [4,] 0 0 3.0 0
v[3,] <- v[3,]/v[3,3]
v[4,3] <- v[4,3] - (v[4,3] * v[3,3])
v[4,4] <- v[4,4] - (v[4,3] * v[3,4])
v
## [,1] [,2] [,3] [,4]
## [1,] 1 0 2.0 0
## [2,] 0 1 0.5 0
## [3,] 0 0 1.0 0
## [4,] 0 0 0.0 0
.
.