请问：
% M% y. N" l- B1 {6 P/ e随机产生的turtle 已经在patch的坐标上上下左右一格格运动，当turtle碰到一个随即分布的patch以一定概率粘合,patch变色，其他turtle经过也还是以一定概率粘合的，粘合后turtle的能量就会转变到patch上，并且以一定速率消耗它，怎么编写这个过程？下面是我编写的，运行时就出错了。怎么改正呢？) W5 N. u. V/ s$ D. l' @. w
m& n' B$ ^/ ]2 q9 P& Z
( O& s" m7 x2 R4 j/ t' E- Q
turtles-own [ energy ]
5 }5 a" n+ q) G) A" _5 U oto setup
1 b8 L( ^; l; c% c kclear-all
9 T& J8 I4 L m" s4 {# Xset-default-shape turtles "square"
1 `$ d* i+ s9 J' v- Kcrt nutrition
8 C' r' q; A8 @1 ^) eask turtles[& P. \! r9 K. F+ e
set color white
, p' @& H" G/ K setxy random-pxcor random-pycor]
3 ^7 s) m6 j7 Y9 P. N 0 }. i) z$ b# P- j& @" m
ask n-of microbes-initialization patches8 A9 _2 }+ g2 M
[ set pcolor green]1 Q5 ~: l8 b7 Y9 l/ O( H
ask turtles [set energy 1], @* h9 R7 U# e' N: {9 N: R. X! v
end; ^8 ]- q- G8 N" p
* @, x+ `5 C0 _7 jto go: h) m, I* O2 v0 n
ask turtles [set heading 90 * random 4 fd 1]9 m+ f" R# j. @& e
ask patches with [ any? turtles-here]
5 R8 W5 A) c# ]8 Y' \) _0 j [ if pcolor = green and random 100 < chance-of-congregating [tt ]]
U! U9 R. R2 }- `4 Q ask turtles [ if energy = 0 [die ]]
& [' k0 |6 l+ T end: D% M' r- u- x1 y( f
) m1 ^% T. y% c8 T+ } \2 E# C
to tt
( n" I2 i b |; U1 o6 }ask patches [set pcolor gray ]
1 I0 l, d3 d4 X, k' Zask turtles [set energy energy - 1]3 z) { n. B) {: g6 T
end
5 s# P+ M) b( B7 _3 \* w
! {5 Y, o, l& V( j* E! B |
发表于 2008-4-8 10:49:43
楼主
