请问：
* \( b/ Y1 [# v9 G随机产生的turtle 已经在patch的坐标上上下左右一格格运动，当turtle碰到一个随即分布的patch以一定概率粘合,patch变色，其他turtle经过也还是以一定概率粘合的，粘合后turtle的能量就会转变到patch上，并且以一定速率消耗它，怎么编写这个过程？下面是我编写的，运行时就出错了。怎么改正呢？
# [6 ~3 j# r K3 b% Z# S
# O* M2 ?/ q& [# K 0 s4 H i( k* u5 b2 X, o1 n
turtles-own [ energy ]
6 G2 M) y7 @) L% ?5 dto setup4 r% P0 ~/ H1 r. `2 i% r# [
clear-all. W# g# X: J4 b, E4 C P$ j
set-default-shape turtles "square"
! p/ q4 Z: P4 K' D: ?$ rcrt nutrition K' I, x- ~3 {# k
ask turtles[: `2 K' ?* i! ~$ Z7 H) P( }! I
set color white
& V6 D5 `( R! j" K2 ~ setxy random-pxcor random-pycor]
e- q0 [3 m% `0 M$ [% [ 7 ~! Y& ?4 N+ v9 C: [2 v
ask n-of microbes-initialization patches
1 ^+ |, m* c7 c1 K7 X8 y7 e3 \, Q [ set pcolor green]
' q3 \. u$ [: M' `7 v ask turtles [set energy 1]9 N( F T4 m" @ I# Z3 J9 t
end
) g4 l7 I9 ]: T! L5 C# v
, [7 A# |, E1 O0 y: _to go
" D7 S* O7 C! D1 Y8 X9 | ask turtles [set heading 90 * random 4 fd 1]
3 N1 e8 |7 u# \% T" r! }" V ask patches with [ any? turtles-here]2 H6 E* L. X; I; {* F% E/ ~
[ if pcolor = green and random 100 < chance-of-congregating [tt ]]
- R* D# G1 {5 S) C& d ask turtles [ if energy = 0 [die ]]8 R4 b/ {* ~& U9 U7 R( S3 N0 h
end
- X! f+ r# H7 @5 s9 f2 R W
9 l+ V* m$ I2 m7 k, F9 pto tt
. G. c( _; ?) l' task patches [set pcolor gray ]: n# j% N* s8 @. q m+ R
ask turtles [set energy energy - 1]3 B/ t2 M. N6 {% T
end& a6 {' z! z2 |; ]( e+ Y
# V3 y% K# ^" O; ^' a; R. P: u* X |
发表于 2008-4-8 10:49:43
楼主
