请问:' @: B4 K; p# K; i$ M8 k: y# _
随机产生的turtle 已经在patch的坐标上上下左右一格格运动,当turtle碰到一个随即分布的patch以一定概率粘合,patch变色,其他turtle经过也还是以一定概率粘合的,粘合后turtle的能量就会转变到patch上,并且以一定速率消耗它,怎么编写这个过程?下面是我编写的,运行时就出错了。怎么改正呢?
3 ~4 W P9 a/ Y) Q$ i9 e9 P+ N8 f& u7 B% ^1 I
# Y6 j: a$ O0 y# F+ ?; Fturtles-own [ energy ]7 o2 j, Q& a& x. l
to setup9 u9 l$ \6 _8 \: O
clear-all
$ a8 g( t) t' R7 {6 k/ a+ {set-default-shape turtles "square". n9 c) F5 \% m4 K6 Z3 ~% ^9 J2 P
crt nutrition
3 [/ {/ ]! \, W; \ask turtles[
: g0 s. i4 Z' \3 [* l- Q' q& C set color white
+ _% }) D/ T- Z' e setxy random-pxcor random-pycor]
/ h9 J, S* j7 u3 R4 \; c
2 o$ Y, [9 N9 Z1 Uask n-of microbes-initialization patches' A6 ?3 Q, E' F$ s b
[ set pcolor green]% Z+ B' t. ~$ g' Y+ t, I0 }
ask turtles [set energy 1]
: h( y% B& p" m( v& ^, oend5 O0 |8 R8 ~% c% B% h* w
0 ~$ V- k1 d. ?
to go Q$ T, z% u& K$ t
ask turtles [set heading 90 * random 4 fd 1]
" r- z; g& P0 x3 v. ~$ @9 W ask patches with [ any? turtles-here]
$ \# ?% e2 l5 ~/ Z+ M [ if pcolor = green and random 100 < chance-of-congregating [tt ]] f8 Z; C4 z( @+ X2 @+ Z
ask turtles [ if energy = 0 [die ]]( Q |+ H- [2 y0 ~/ n* F
end! d4 ^ n. K# y5 ~. J
! |$ `. H! V. K6 ]# A% p2 L9 X( nto tt
- e" A9 D& _! p- yask patches [set pcolor gray ]
" N' S4 L- M& |! v5 e$ @8 q7 m4 t! Bask turtles [set energy energy - 1]) g4 W. W1 \2 k7 |+ h
end
& p$ [: O" d; N( L* ^( o' A- `6 L
|