\[ \matrix{ x_1 & + & 2x_2 & = & 5 \cr 3x_1 & - & 4 x_2 & = & 6 } ~~ \Leftrightarrow \begin{bmatrix} 1 & 2 \\ 3 & -4 \end{bmatrix} \begin{bmatrix} x_1 \\ x_2 \end{bmatrix} = \begin{bmatrix} 5 \\ 6 \end{bmatrix} \]
\[ \matrix{ x_1 & + & 2x_2 & = & 5 \cr 3x_1 & - & 4 x_2 & = & 6 } ~~ \Leftrightarrow \begin{bmatrix} 1 & 2 & 5 \\ 3 & -4 & 6 \end{bmatrix} \]
swaprows <- function (m, row1 , row2 ) {
row.tmp <- m[row1 ,]
m[row1 ,] <- m[row2 ,]
m[row2 ,] <- row.tmp
return (m) }
scalerow <- function (m, row , k) {
m[row ,] <- m[row ,] * k
return (m) }
replacerow <- function (m, row1 , row2 , k) {
m[row2 ,] <- m[row2 ,] + m[row1 ,] * k
return (m) }
(A <- matrix(c(2,1,-6,8,1,2,-4,5,4,-1,-12,13),3))
[,1] [,2] [,3] [,4]
[1,] 2 8 -4 -1
[2,] 1 1 5 -12
[3,] -6 2 4 13
swaprows(A,1,2)
[,1] [,2] [,3] [,4]
[1,] 1 1 5 -12
[2,] 2 8 -4 -1
[3,] -6 2 4 13
(A <- matrix(c(2,1,-6,8,1,2,-4,5,4,-1,-12,13),3))
[,1] [,2] [,3] [,4]
[1,] 2 8 -4 -1
[2,] 1 1 5 -12
[3,] -6 2 4 13
scalerow(A,2,2)
[,1] [,2] [,3] [,4]
[1,] 2 8 -4 -1
[2,] 2 2 10 -24
[3,] -6 2 4 13
(A <- matrix(c(2,1,-6,8,1,2,-4,5,4,-1,-12,13),3))
[,1] [,2] [,3] [,4]
[1,] 2 8 -4 -1
[2,] 1 1 5 -12
[3,] -6 2 4 13
replacerow(A,1,3,3)
[,1] [,2] [,3] [,4]
[1,] 2 8 -4 -1
[2,] 1 1 5 -12
[3,] 0 26 -8 10