turtle粘合patch的运动问题

lincw

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


turtles-own [ energy ]
to setup
# V7 Q7 U: Y1 Y: w# f" xclear-all
" P- `! S3 L$ k$ s* sset-default-shape turtles "square"
3 k7 Q- |$ Q8 k5 y& Z: H( Acrt nutrition
) {* m) @5 o; X0 i( Sask turtles[
    set color white
' \) c3 h7 `( ^" J( P    setxy random-pxcor random-pycor]
! L; q3 T- a: A" h  
* c* f6 U7 O; M) f1 s/ h: pask n-of microbes-initialization patches
, \8 F; z/ M8 N! ?7 L. \    [ set pcolor green]
ask turtles [set energy  1]
end

( i( M0 d: S' f" F$ _3 Eto go
    ask turtles [set heading 90 * random 4    fd 1]
7 b9 r6 n  v- c; M% o0 c! x3 A     ask patches  with [ any? turtles-here]
7 c9 H& h5 G3 P    [  if pcolor = green and random 100 < chance-of-congregating [tt ]]
2 n3 f7 U' H* b     ask turtles [ if energy = 0  [die ]]
6 z6 t, `- ~  W; u; Q" _, _4 `2 E- ~ end

6 Q6 y" t7 A) G0 X5 p% }; d/ }to tt
ask patches [set pcolor gray ]
ask  turtles [set energy energy - 1]
end

lincw

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