请问：
( n! b- @+ i8 d( O' v \随机产生的turtle 已经在patch的坐标上上下左右一格格运动，当turtle碰到一个随即分布的patch以一定概率粘合,patch变色，其他turtle经过也还是以一定概率粘合的，粘合后turtle的能量就会转变到patch上，并且以一定速率消耗它，怎么编写这个过程？下面是我编写的，运行时就出错了。怎么改正呢？
( K# |( Y1 m! S2 m
O7 M; g+ \' n2 u; X1 ?) T& A- f $ B* }7 C* j" K" r' ]( g* t
turtles-own [ energy ]
, d) ]' _+ C0 E! C1 |to setup
8 r, h0 J# T& G" d6 X& G/ Y$ Gclear-all3 g7 V- i/ i3 p) m+ [# c8 g
set-default-shape turtles "square"
' w# g+ ?, i. _6 Ocrt nutrition
2 b" l/ g- |& Task turtles[$ T- z0 z1 e, g' }0 S# n
set color white* ~* u/ j. f! P/ e/ A
setxy random-pxcor random-pycor]- |, V: e9 W- T8 S- C
: `/ M- i. M% Q' [* q
ask n-of microbes-initialization patches
% }, ?. Y$ s: G1 Y [ set pcolor green]+ l6 Q) O) @6 m" _' j6 _
ask turtles [set energy 1]- y; X, Z8 z8 u& A
end& c. @# j3 I2 ]% \/ J7 N
8 H T7 M1 o3 U3 Yto go0 P# C3 I4 q6 o$ C" d" h4 Z" w. R
ask turtles [set heading 90 * random 4 fd 1]6 u! B( J* L* k! }
ask patches with [ any? turtles-here]. L2 X. H# d0 L9 {) l; k+ G6 Q, `
[ if pcolor = green and random 100 < chance-of-congregating [tt ]]
" E6 [6 j9 d0 K9 l7 r! W0 {( f ask turtles [ if energy = 0 [die ]]- z( X" E9 Y" B6 P4 j
end% M7 N O( i; o) v! {
" Y/ c, ]5 `) `: o9 B* z( Qto tt
. w" b5 w& g- F# R" l; z4 rask patches [set pcolor gray ]
4 W3 ^. y; f; _$ L$ Z8 F. {ask turtles [set energy energy - 1]8 T$ F; A3 z2 `8 I" e
end
5 {, k$ Y1 q2 m8 b% B1 p& N5 }
% q0 B+ ?& w; K0 p) l3 X |
发表于 2008-4-8 10:49:43
楼主
