在R中创建矩阵？

我想使用R语句生成下面的矩阵

(一)

(二)

(三)

---

我需要写一个函数吗？diag函数对第一个问题没有帮助。

a1请阅读R的许多介绍性教科书中的一本。这些不是对角矩阵。
a1 <- matrix(c(0,1,1,
               1,0,1,
               1,1,0),
             nrow=3, ncol=3, byrow=TRUE)

0 2 3
0 5 0
7 0 0

1  3  5  7
3  7 11 15
7 15 23 31

a1 <- matrix(c(0,1,1,
               1,0,1,
               1,1,0),
             nrow=3, ncol=3, byrow=TRUE)