Коллеги, как бы вы нашли S1? r set.seed(1) w <- matrix(sample(c(0,

Question

Коллеги, как бы вы нашли S1? r set.seed(1) w <- matrix(sample(c(0,

1), size = 16, replace = TRUE), nrow = 4)
diag(w) <- 0
w
#> [,1] [,2] [,3] [,4]
#> [1,] 0 1 1 0
#> [2,] 1 0 1 0
#> [3,] 0 0 0 0
#> [4,] 0 0 0 0
S1 <- 0.5 * sum((w + t(w))^2)
S1
#> [1] 6

<sup>Created on 2021-10-07 by the [reprex package](https://reprex.tidyverse.org) (v2.0.1)</sup>

#programming #r #russian

0

07.10.2021

2 ответов

20 просмотров

Yuriy Saraykin Автор вопроса

Vladimir Volokhonsky
Ну, я не глядел в то, что там, моё решение было бы...

Спасибо, так же как и я находил

0

07.10.2021

Vladimir Volokhonsky · Accepted Answer

Vladimir Volokhonsky

Ну, я не глядел в то, что там, моё решение было бы такое: sum((w+t(w))^2)/2

0

07.10.2021

169 похожих чатов

Коллеги, как бы вы нашли S1? r set.seed(1) w <- matrix(sample(c(0,

2 ответов

Похожие вопросы