Цитата:
Сообщение от Havrosh
Кстати, реально, каждый второй из приходящих на собеседование программистов, не может перемножить вектор на матрицу
|
Код:
> x <- 1:4
> (y <- diag(x))
[,1] [,2] [,3] [,4]
[1,] 1 0 0 0
[2,] 0 2 0 0
[3,] 0 0 3 0
[4,] 0 0 0 4
> (z <- matrix(1:12, ncol = 3, nrow = 4))
[,1] [,2] [,3]
[1,] 1 5 9
[2,] 2 6 10
[3,] 3 7 11
[4,] 4 8 12
> y %*% z
[,1] [,2] [,3]
[1,] 1 5 9
[2,] 4 12 20
[3,] 9 21 33
[4,] 16 32 48
> y %*% x
[,1]
[1,] 1
[2,] 4
[3,] 9
[4,] 16
> x %*% z
[,1] [,2] [,3]
[1,] 30 70 110