turtle粘合patch的运动问题

lincw

请问：
+ D0 A5 t  Y2 \0 t; C( R$ V+ q& D随机产生的turtle 已经在patch的坐标上上下左右一格格运动，当turtle碰到一个随即分布的patch以一定概率粘合,patch变色，其他turtle经过也还是以一定概率粘合的，粘合后turtle的能量就会转变到patch上，并且以一定速率消耗它，怎么编写这个过程？下面是我编写的，运行时就出错了。怎么改正呢？
% ?# x8 p& B0 Q8 e6 S# L# I/ T
( q$ Q9 ^- U2 G, z- D$ F
turtles-own [ energy ]
to setup
clear-all
set-default-shape turtles "square"
crt nutrition
/ |1 G8 D: b9 O+ W" q4 {: ~ask turtles[
) D1 U8 @, z3 v    set color white
1 P1 U  e' d0 s- f5 \8 J    setxy random-pxcor random-pycor]
, v1 Q+ s2 R& a- e( z  
; J. D! T9 i# n4 o: p6 }8 g/ lask n-of microbes-initialization patches
    [ set pcolor green]
6 [6 w9 ?' s0 T8 X; \ ask turtles [set energy  1]
end
6 k% B; d5 L4 H! ~# H3 _* a
# y/ M1 J" W. w7 r0 Z6 y* K, Sto go
    ask turtles [set heading 90 * random 4    fd 1]
     ask patches  with [ any? turtles-here]
/ @  |3 X, g8 s0 v8 x% }+ w    [  if pcolor = green and random 100 < chance-of-congregating [tt ]]
6 _5 J2 Q1 ?% R' g4 n& c     ask turtles [ if energy = 0  [die ]]
6 J, b) \# H0 g2 p$ F end
% K% P& n, _( o) {1 l
to tt
+ g1 b- C; Q( task patches [set pcolor gray ]
5 v! ~% r9 Q0 Qask  turtles [set energy energy - 1]
! r; S/ w6 r- W6 n5 r$ j% W8 vend

! x$ U8 T5 H& A

lincw

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