请问:2 K B {& \! G8 [6 [2 J
随机产生的turtle 已经在patch的坐标上上下左右一格格运动,当turtle碰到一个随即分布的patch以一定概率粘合,patch变色,其他turtle经过也还是以一定概率粘合的,粘合后turtle的能量就会转变到patch上,并且以一定速率消耗它,怎么编写这个过程?下面是我编写的,运行时就出错了。怎么改正呢?
- Q- O5 ~2 `- O1 _- F' ^, |, _8 ~7 Q6 f. Q& ]* [
* c$ m6 V) U6 a' o5 ?" Uturtles-own [ energy ], k$ W6 k& C |# y' u7 {6 x
to setup
9 i! N" k2 X. Kclear-all
! O+ O, S( ^5 u: K% C/ ^set-default-shape turtles "square"1 G! w; M! M; f- {
crt nutrition) P4 o" J* l; M4 S
ask turtles[
% h6 @+ @2 P* l: u" g: Y. k set color white
% w* W3 W! r/ a: p setxy random-pxcor random-pycor]
?5 U! S; g1 q+ `( t: Q
, b H! g) R% Nask n-of microbes-initialization patches! J# U9 Y5 v+ y Q6 a+ n
[ set pcolor green]
9 [0 _4 E# L T+ b ask turtles [set energy 1]
' o i1 ~; o: Iend2 E! v; f: i% A, {5 c8 j* f* D- b
! C$ U+ c( N) L1 m( N( w
to go
& ]# ~; f& J& J3 a# N. G" H' w! Q$ n ask turtles [set heading 90 * random 4 fd 1]
* x: S8 O8 f" i* ^7 g3 t ask patches with [ any? turtles-here]- t# r- s; v. `1 N) _0 ?3 H
[ if pcolor = green and random 100 < chance-of-congregating [tt ]]
* c# F% Q6 x( K/ n" }1 O ask turtles [ if energy = 0 [die ]]) \. u( ~! {4 K5 P+ @
end- `2 D2 K' N9 t4 b& ?
$ ]- B& k) \; l8 x9 Jto tt
8 e" T0 A3 n& Gask patches [set pcolor gray ]# m, o+ _( X) I
ask turtles [set energy energy - 1]1 F) \, k3 w/ V5 O4 Q
end
6 j6 J, ` @& i/ H8 k
8 ?2 Y2 S! L2 l1 y |