请问：
$ L& g8 X O8 r$ q* O# d3 {随机产生的turtle 已经在patch的坐标上上下左右一格格运动，当turtle碰到一个随即分布的patch以一定概率粘合,patch变色，其他turtle经过也还是以一定概率粘合的，粘合后turtle的能量就会转变到patch上，并且以一定速率消耗它，怎么编写这个过程？下面是我编写的，运行时就出错了。怎么改正呢？5 N; M0 M6 X, l
! z, u- f3 W) ` i1 T* g6 _( @
& i! F) |/ {- H* `
turtles-own [ energy ]1 _5 A+ S2 l' P; v
to setup
, ~" @ b/ Y; Q2 _4 x. Sclear-all
. ^( }: {" u/ V# G uset-default-shape turtles "square"# E+ _& `2 j, Y6 _$ m
crt nutrition; \/ a7 m `+ y
ask turtles[) O# R v# ~4 d
set color white
/ e- {# Q: v/ T6 r- a) t- f) K setxy random-pxcor random-pycor]5 l0 b \6 S7 X5 {( G
9 n3 F9 H' u! G$ q
ask n-of microbes-initialization patches% K9 i& B$ `! F; R
[ set pcolor green]
) J, v( E+ \) H" k4 Q7 K- `# f! M ask turtles [set energy 1]+ k& H7 E' E# ]$ c" B
end
3 ~& c7 b' W7 Z! T7 [' f2 g% j% P: b
to go
5 B6 _$ [2 F6 b: j! K& a ask turtles [set heading 90 * random 4 fd 1]
2 I4 a6 O, H0 P% l# j8 x ask patches with [ any? turtles-here]
( f" H, Y. w1 b' u! J0 o [ if pcolor = green and random 100 < chance-of-congregating [tt ]]
o3 q7 Y& Q; U ask turtles [ if energy = 0 [die ]]
$ w4 S- [& b, U$ l( G end7 Y8 K5 P0 r, n+ @: y
u6 ?( o; ~- sto tt& \; Y8 W0 e! J; H
ask patches [set pcolor gray ]
2 W- [4 }% K/ h; o7 t F# q ?ask turtles [set energy energy - 1]
& U( M; F; Q3 ]' i- ]! Pend
# w) m% t7 s L$ n2 L% t0 e1 m; k, w2 N: L: o2 e+ _
|
发表于 2008-4-8 10:49:43
楼主
