-1

我想在方形格子上模拟一个自我避免的二维随机游走并绘制路径。

到目前为止，我已经写出了这个问题的代码：

n <- 100
x <- 0
y <- 0 

randomwalkx <- 0
randomwalky <- 0

for(i in 1:n){

  random <- sample(0:3, 1)

  if(random == 0){x <- x+1}
  if(random == 1){x <- x-1}
  if(random == 2){y <- y+1}
  if(random == 3){y <- y-1}

  xcheck <- x %in% randomwalkx
  ycheck <- y %in% randomwalky


  if(ycheck == "TRUE" && xcheck == "TRUE"){

    if(random==0){x<-x-1}
    if(random==1){x<-x+1}
    if(random==2){y<-y-1}
    if(random==3){y<-y+1}

  }else{
    randomwalkx <- c(randomwalkx, x)
    randomwalky <- c(randomwalky, y)
  }

}


  plot(randomwalkx,randomwalky,xlab='x',ylab='y')
  lines(randomwalkx,randomwalky,type='b')

然而，该路径仅沿一个对角线方向行进。谁能看到我犯的错误或解决这个问题？

4

1 回答 1

2

问题出在这一行：

if(ycheck=="TRUE"&&xcheck=="TRUE"){

那条线正在做的是让你的步行不能“倒退”。假设您的行走是 randomwalkx=(0,1,1,2), randomwalky=(0,0,-1,-1) 并且您的下一次滚动给您 x = x-1：下一个坐标是 1，- 1. x=1 和 y=-1 都存在于您的随机游走历史中，因此您的循环将重新滚动，直到您对 x 或 y 保持相同的方向。

您可以通过将行更改为类似的内容来解决此问题

if(paste(x,y) %in% paste(randomwalkx, randomwalky)){
于 2015-03-16T18:52:40.063 回答