turtle粘合patch的运动问题

lincw

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

. J8 F  \. O$ @' f: y. q1 H
! z8 M6 j& `) y# v+ @  G4 c, Cturtles-own [ energy ]
" I  k( b. T, v1 m$ S! h8 Z1 dto setup
clear-all
set-default-shape turtles "square"
crt nutrition
ask turtles[
    set color white
% g- P" c! w( M) y    setxy random-pxcor random-pycor]
! N  c1 j( w7 k( q1 ^  
" i$ i% C0 Z( ~- yask n-of microbes-initialization patches
    [ set pcolor green]
& @3 G6 f. j9 F6 q, v3 u2 W+ O ask turtles [set energy  1]
end

to go
8 V9 l7 m7 B* Z2 O+ m! Q0 M    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 ]]
# Y* y$ D: l$ ^7 ~5 ~6 Q end

to tt
% M* H# ?8 o4 Q( E- P, s. t5 ^ask patches [set pcolor gray ]
3 c) T, N' a, y7 I% G  jask  turtles [set energy energy - 1]
end

lincw

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