패치를 원점에 가까운 빈 패치로 이동하는 방법?

Question

슬라이더에 주어진 거북이의 양에 따라 코드를 더 압축하고 원점에 포커스를 집중시키고 싶습니다. 이것이 내 코드 인 경우

to solid 
    set color blue 
    set xcor random sqrt number-of-particles - number-of-particles/2 
    set ycor random sqrt number-of-particles - number-of-particles/2 
    ifelse any? patches with [pcolor = black and count turtles-here = 0] 
    [move-to one-of patches with [pcolor = black and count turtles-here = 0]] 
    [die] 
end 

거북이 기원과 가장 가까운 빈 패치로 이동할 수 있도록 어떻게 포함할까요? 지금까지 내가 그 가정

if number-of-particles < volume * volume 
    [move-to one-of patches with [ 

Answer 1

는 "기원"에 의해 가지고, 당신은 patch 0 0을 의미, 여기 할 수있는 방법은 다음과 같습니다

to move-near-origin 
    let free-patches patches with [pcolor = black and not any? turtles-here] 
    ifelse any? free-patches [ 
    move-to min-one-of free-patches [ distance patch 0 0 ] 
    ] 
    [ die ] 
end 

두 가지 핵심은 min-one-of 및 distance이다.

또한 count turtles-here = 0은 not any? turtles-here으로 바뀌 었습니다. 기본적으로 똑같지 만 더 읽기 쉽습니다. 또한 을 free-patches 변수에 저장 했으므로 반복하지 않아도되고 조건에 대한 모든 패치를 두 번 테스트 할 필요가 없습니다.