请高手帮忙啊，非常感谢

大概想想不是多难的嘛，在这个问题里面，逻辑与和普通乘法是等价的，逻辑或的问题和普通加法也是可以相互转化的，只需要使用普通矩阵乘法就可以了，最后再把正值替换为1就好了。

就像楼上说的

> A <- matrix(sample(c(0, 1), 20, replace = T), 4, 5)
> B <- matrix(sample(c(0, 1), 20, replace = T), 4, 5)
> A
     [,1] [,2] [,3] [,4] [,5]
[1,]    1    1    1    0    1
[2,]    0    1    1    0    0
[3,]    0    1    0    1    0
[4,]    0    1    0    1    0
> B
     [,1] [,2] [,3] [,4] [,5]
[1,]    1    1    1    0    1
[2,]    0    1    1    0    0
[3,]    1    0    0    0    1
[4,]    0    0    0    1    0
> A * B
     [,1] [,2] [,3] [,4] [,5]
[1,]    1    1    1    0    1
[2,]    0    1    1    0    0
[3,]    0    0    0    0    0
[4,]    0    0    0    1    0