请问：# P; y; m. p8 ?2 b
随机产生的turtle 已经在patch的坐标上上下左右一格格运动，当turtle碰到一个随即分布的patch以一定概率粘合,patch变色，其他turtle经过也还是以一定概率粘合的，粘合后turtle的能量就会转变到patch上，并且以一定速率消耗它，怎么编写这个过程？下面是我编写的，运行时就出错了。怎么改正呢？
8 s; { t% q: `
5 R. f9 A4 p. e3 |. A9 T4 t+ \& t V- b& c ; _# e* \& G) o- Q2 F# \2 J
turtles-own [ energy ]
. _+ I# }. S$ U+ O2 L/ Y; ato setup
9 s+ ^" ^# F1 f9 kclear-all8 u6 `' v X8 u
set-default-shape turtles "square"9 I$ ]: s1 t K
crt nutrition
% m# ~$ D& ~" L& [ask turtles[3 \/ X- w6 b/ h3 p: G1 I
set color white% N- d0 X" h3 B" L
setxy random-pxcor random-pycor]
$ m. t' a& D5 B, G/ C
- {7 d- X% L& O% b! d1 S, k. `ask n-of microbes-initialization patches
1 Y0 _, }! A" {! @7 q- u. V- `1 L! W [ set pcolor green]
& U% o2 c0 \3 h$ c+ Q& c& N" m ask turtles [set energy 1]
, F+ V; _: O" Dend
& A9 g) N, k' o/ A6 a" x2 Q% d |+ k( d: U5 W
to go
& T* M( M- I# c: r& b/ T ask turtles [set heading 90 * random 4 fd 1]
; V9 x' V( C/ h! K, t P ask patches with [ any? turtles-here]. K, D9 ~0 w( L- P F
[ if pcolor = green and random 100 < chance-of-congregating [tt ]]8 \/ K- |4 J* @/ j+ [: L8 j
ask turtles [ if energy = 0 [die ]]
7 S1 [9 `. j' x6 r" D% k end
7 R. F9 L& B% i( q0 D# B. _7 |# L0 J$ c h. B
to tt
4 U; V- A( A. \# Oask patches [set pcolor gray ]
, A9 S# j3 A2 E$ r* jask turtles [set energy energy - 1]
9 v7 s; a% l6 } q Zend$ I7 |& k7 V2 w; u# C
3 W+ F# z } g |
发表于 2008-4-8 10:49:43
楼主
