Displaying 1 result from an estimated 1 matches for "anuli".
Did you mean:
anull
2010 Dec 15
0
Problems with the borders (High difficulty)
...t order the position of the seed dispersed, they are:
neighb <- aperm(apply(aperm(outer(king,IJ,'+'),c(2,4,1,3)),3:4,diag),c(2,1,3)) #Seed going back into source cell???
for(i in 1:nrow(IJ)) SB[matrix(neighb[,,i],nc=2)]<- SR1[matrix(IJ[i,],1,2)]/8 + SB[neighb[,,i]] #Seed going to anuli 1 neighbor cells from all possible sources
neighb <- aperm(apply(aperm(outer(queen2,IJ,'+'),c(2,4,1,3)),3:4,diag),c(2,1,3))
for(i in 1:nrow(IJ)) SB[matrix(neighb[,,i],nc=2)]<- SR2[matrix(IJ[i,],1,2)]/8 + SB[neighb[,,i]] #Seed going to anuli 2 neighbor cells from all possible sourc...