请问：
* v1 h: s% x p* D: J0 g' N& E" M8 N随机产生的turtle 已经在patch的坐标上上下左右一格格运动，当turtle碰到一个随即分布的patch以一定概率粘合,patch变色，其他turtle经过也还是以一定概率粘合的，粘合后turtle的能量就会转变到patch上，并且以一定速率消耗它，怎么编写这个过程？下面是我编写的，运行时就出错了。怎么改正呢？
$ g6 \1 l. }- l* e2 y4 P0 T/ h/ o- d! p) C3 R& K7 H3 @# t6 J! E. {
/ H; O6 u) ^2 r6 P" Y7 Q2 j' r
turtles-own [ energy ]: b3 n7 ?% F( P
to setup
9 ^3 A6 p8 D5 O. p& i6 D# yclear-all
" E5 f8 w% E' `" F5 xset-default-shape turtles "square"
' x0 F5 E: i1 N3 l& n/ N3 Ocrt nutrition
! a, X/ V6 J' v2 b3 m0 X; e' l9 Qask turtles[/ U0 m: y' Q3 H* w
set color white, h1 g# E7 y8 H* x- ~
setxy random-pxcor random-pycor]& W0 ~8 S/ J! H1 ]! D& h
/ X- b2 x# n, p4 @5 Uask n-of microbes-initialization patches! k+ }8 y p! Z; k; z
[ set pcolor green]
6 K6 L) o% V x2 P' x; O. H9 _ ask turtles [set energy 1]
4 Z. m9 p! q# l/ o; Eend
3 w7 D; P. M2 e+ B* O; X% m/ `4 j& }
to go% L/ |, N) }/ ^" _! F. j4 z
ask turtles [set heading 90 * random 4 fd 1]
+ g3 T0 ?7 v6 G: o" K. d9 @5 U0 m ask patches with [ any? turtles-here]
3 y$ ]% ?0 {# J. d+ w. A! G' n- f2 e [ if pcolor = green and random 100 < chance-of-congregating [tt ]]
) o6 g) R/ P# R& V1 p$ C# E5 j; } ask turtles [ if energy = 0 [die ]]& K0 G+ ]* h0 d7 ]6 S$ Q
end! l+ p3 U6 {/ A
4 p' ]1 `; ]0 O
to tt
7 l0 @8 x, g: D, l) kask patches [set pcolor gray ]
2 B. S* s1 u. Y7 q7 R0 U% o+ ^ask turtles [set energy energy - 1]! z# t! q. t: j' U+ X1 H. ]
end
: t4 E: e5 i4 y
4 C/ V; S( @+ @+ [ |
发表于 2008-4-8 10:49:43
楼主
