turtle粘合patch的运动问题

lincw

请问：
随机产生的turtle 已经在patch的坐标上上下左右一格格运动，当turtle碰到一个随即分布的patch以一定概率粘合,patch变色，其他turtle经过也还是以一定概率粘合的，粘合后turtle的能量就会转变到patch上，并且以一定速率消耗它，怎么编写这个过程？下面是我编写的，运行时就出错了。怎么改正呢？


turtles-own [ energy ]
( c1 {; \3 y8 W$ X+ z" Jto setup
- s. x/ F8 w+ d) u  F1 W: Eclear-all
* k$ F5 W/ y2 oset-default-shape turtles "square"
crt nutrition
ask turtles[
3 B( `4 G/ v9 Q7 g$ t    set color white
    setxy random-pxcor random-pycor]
  
7 _  s0 s8 E9 Z! T( Rask n-of microbes-initialization patches
    [ set pcolor green]
ask turtles [set energy  1]
; }% E2 N$ k6 E; g; lend
! m5 E; k0 g. R4 N# w+ k* D: X
to go
    ask turtles [set heading 90 * random 4    fd 1]
     ask patches  with [ any? turtles-here]
    [  if pcolor = green and random 100 < chance-of-congregating [tt ]]
     ask turtles [ if energy = 0  [die ]]
end
! c" C8 ]/ ]" d6 ?% L# ?
to tt
ask patches [set pcolor gray ]
! I/ \2 Z5 Q8 m* t6 Wask  turtles [set energy energy - 1]
6 _) ~* I5 e5 ~0 v: f0 pend

lincw

谢谢楼上两位，后来自己用两种turtle来表示暂时把问题解决了，以后再出现难题再向你们请教啊