turtle粘合patch的运动问题

lincw

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


turtles-own [ energy ]
to setup
# j" P# _) P. ^, u) P0 k2 m. cclear-all
set-default-shape turtles "square"
2 ~% A6 M' q) S( Lcrt nutrition
; s: e8 K/ \8 i2 _. ]+ Fask turtles[
0 K7 u5 t0 _0 e1 Y    set color white
    setxy random-pxcor random-pycor]
* o. t9 R  t( H# l6 o* g  
! M. s" E9 [/ v8 J  b* sask n-of microbes-initialization patches
0 V( R/ G" U3 T; |' M3 I. m    [ set pcolor green]
ask turtles [set energy  1]
end
5 L5 k, L1 T1 j# u0 A5 p
to go
8 R) u+ F9 t$ W/ O    ask turtles [set heading 90 * random 4    fd 1]
& X! u0 B# h9 o. T4 \3 Y     ask patches  with [ any? turtles-here]
    [  if pcolor = green and random 100 < chance-of-congregating [tt ]]
     ask turtles [ if energy = 0  [die ]]
end
$ y/ P- \9 J1 w* f; s
8 e  B7 q; R9 t- w8 Oto tt
ask patches [set pcolor gray ]
1 e5 w' j! _' R8 v0 _ask  turtles [set energy energy - 1]
end
) m, x( ~" k; I' u' g
) z4 {* z4 y/ o2 Q9 W5 ^

lincw

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