turtle粘合patch的运动问题

lincw

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

( h4 `; ]- K* f, R9 ^: g6 p( G( A! u
3 s5 f- `: A5 y7 I" H( H# K# jturtles-own [ energy ]
to setup
1 @0 }" v! f( H. kclear-all
set-default-shape turtles "square"
7 q! @5 @! N- z% ]$ x( O) f+ J: |# lcrt nutrition
* s- j' q% O3 E3 {ask turtles[
1 c* N1 ?9 H+ _& ]& C    set color white
& O( y2 j2 @. f8 L5 U    setxy random-pxcor random-pycor]
" v* m1 }, k, }9 y' ?  _  
# t) @% |9 q! {1 @1 V2 d9 @" oask n-of microbes-initialization patches
: N1 \. T/ X. R; f    [ set pcolor green]
ask turtles [set energy  1]
8 e4 J6 \! Y  Z: s  U6 S" j0 b* M& hend
5 X, z0 B) Q/ `1 I
" J  H4 P& v* r  y5 s) `5 h0 l, u0 Cto go
    ask turtles [set heading 90 * random 4    fd 1]
1 E8 X) Y" C! k7 ]% U% P     ask patches  with [ any? turtles-here]
/ V  \6 y1 T7 j- I4 I. ^    [  if pcolor = green and random 100 < chance-of-congregating [tt ]]
: s3 `% k6 j' ^     ask turtles [ if energy = 0  [die ]]
2 b' N- f: l. W end

$ h+ x& J2 U0 J# }/ n- eto tt
) h! S1 B( F- d) Q# W+ wask patches [set pcolor gray ]
ask  turtles [set energy energy - 1]
end
8 p( S& P* i8 [

lincw

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