turtle粘合patch的运动问题

lincw

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


9 l$ |* J8 o4 K0 Aturtles-own [ energy ]
to setup
& F; @; U- g; U+ `5 Y$ Pclear-all
set-default-shape turtles "square"
crt nutrition
ask turtles[
$ R1 ^. E. w5 J, Z    set color white
" E8 O/ y5 H" E4 P    setxy random-pxcor random-pycor]
% y. i* o7 N0 [- W7 `( N- O  
ask n-of microbes-initialization patches
7 {$ T$ Q8 O& w2 @& S2 q3 S    [ set pcolor green]
' R$ }2 A: r. A* o" Y% ^3 }8 H: E ask turtles [set energy  1]
end

to go
- d6 z/ X4 Y* v3 J% W$ y    ask turtles [set heading 90 * random 4    fd 1]
     ask patches  with [ any? turtles-here]
! N; r% K; ~- L4 r    [  if pcolor = green and random 100 < chance-of-congregating [tt ]]
. F& {+ O7 a/ R# `- j# u     ask turtles [ if energy = 0  [die ]]
end

4 b: t) r( M' g. C1 w+ Oto tt
ask patches [set pcolor gray ]
4 F4 B: w% q0 _ask  turtles [set energy energy - 1]
end
5 [) h* c2 X5 c# o
! Y. j' R1 l  x

lincw

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