因为在函数内改变后,把矩阵作为局部变量,在函数外不改变。
随机在矩阵中选10个值,把0变为1,1保持不变。
function <- flip(){
h <- 600k <- 50
pq = 0 : h-1
pq <- sample(pq, size = 10)
pp <- xp[1] + pq
pq = 0 : k-1
pq <- sample(pq, size = 1)
qq <- yp[1] + pq
for (i in 1:10){
e = pp[i]
if(mm[e, qq] == 1){
mm[e, qq] = 1
}
if(mm[e, qq] == 0){
mm[e, qq] = 1
}
}
}