我编的程序如下turtles-own [energy]' {. ` D) }9 T7 U
to setup$ f9 W$ B0 O% ]) i6 v
clear-all
1 _+ O/ M" F% K7 j+ k$ {) M! l setup-patches
6 u' v1 O2 l) p$ ? create-turtles 100
5 M& N0 F2 ?6 d1 ^3 h- N do-plots, _2 h( Z( h& q% ?3 J
ask turtles [ setxy random-xcor random-ycor ]# ^4 K. t5 h' Y; L& H" ]5 O
end$ o9 M5 X2 M9 p8 G
to go, D h" p; @# ~! W* V
move-turtles
: E+ ^# f# J, R- x. O/ [1 G eat-grass8 e2 q5 X/ L8 k. S8 D X; c
reproduce5 k+ F2 V. _: J* H5 e
check-death, i2 f# O/ W! O5 B
regrow-grass
, I- F0 r' G$ r$ i. Z do-plots/ T p+ U# m0 X! C+ ~: B8 A2 m
end
3 o5 J$ v- c- _4 T% J6 f1 gto move-turtles
! j5 r' @! v9 c4 W# p ask turtles [
; B/ M7 J" D3 \. E, A7 U right random 360
, F% C/ T: g: h" ]) ^ forward 1' O5 g2 D* @; Q: \ b" r+ i+ v
set energy energy - 1
( U2 x5 ?' a4 [& { ]
~ ~: P- l. k$ `9 f( P0 K; {end
, u, b) P, r* D$ Kto setup-patches
) S6 s3 w1 I) i6 V1 G: j) ? ask patches [ set pcolor green ] m. q! v! g- W1 L/ r e) W; c" @' ^
end
) d# u R, T% k' A( `3 v( Qto setup-turtles
& h' O B4 Y0 V8 e9 V9 r create-turtles 100- r7 ?' g o2 q* R7 [
ask turtles [ setxy random-xcor random-ycor ]6 |3 M* x5 V( n L, g
end
: X" f J+ \; Z+ X4 A3 T2 d& xto eat-grass) i5 u4 d. p1 h+ D) g; g
ask turtles [8 S7 T0 R1 h2 j9 S( z
if pcolor = green [
1 x0 V3 H: g+ E- t3 R; ~! g set pcolor black
! r- T8 E6 n( H4 l5 x f' ] set energy (energy + 10)( U$ q& K& G. A! l( U
]
. O/ `& b/ e" M/ d8 A3 c ifelse show-energy?
# g6 L; K3 W, v( w, c6 R [ set label energy ]
" T% a- u2 z0 t0 c+ N, k9 Q5 C [ set label "" ]; N& u I" l! J4 K& ~
]
5 ~9 `! A; \! i: e# V" mend" }0 p0 t& ?0 {3 E* @
to reproduce
. o" t6 T% ~' {# ~" k2 _ ask turtles [7 y) y# Y6 w3 Y5 X
if energy > 50 [0 y9 {5 b- R) e- I5 a
set energy energy - 50
1 ?+ Z! j8 U5 { |' z# L% { hatch 1 [ set energy 50 ]
1 h: `& B r, [" u+ A/ R! V2 e ]
4 R6 ^3 k+ s/ M$ a# c/ }+ ] ]4 @9 E: V3 x, M* B% U/ t3 M0 p7 s
end8 x6 A! a: j+ P% o; ?
to check-death
- }( `; H. Z h: m2 o- v0 H2 d% j" k ask turtles [
p9 K1 t% i3 W% e! h- ]( y* x if energy <= 0 [ die ]
0 e; D# s( k" b4 |: ~+ F6 G6 ] ]- X" _0 r) b$ O: @3 F7 E! Z5 c
end H! Y% L+ w3 m* y; S
to regrow-grass
6 }: b* o% l% H* Y; F4 N ask patches [
1 x; i/ t5 C+ e$ f$ c$ F if random 100 < 3 [ set pcolor green ]
: K/ K) k) i5 g; [* | g ]
7 B3 {5 Y1 _- x0 t- Y( E1 \4 s6 X7 Wend
0 X! K* C j, L9 W9 Mto do-plots
$ w0 K) G' M+ _* I N" k1 x set-current-plot "Totals" `( ~; Q Q7 R9 g# Z. c
set-current-plot-pen "turtles"
6 e4 e% q# h& _" k plot count turtles
- v* X" I ]" `4 Y" _2 N' }; \0 y set-current-plot-pen "grass" `* B" |3 r; A# @" \7 o% z
plot count patches with [pcolor = green]
* H9 [6 V; B5 n, y0 D8 s0 y: Eend
7 T3 Q5 `# F l( V+ l可是运行时提示no such plot: "Totals"' P; A2 ?$ x8 V2 |4 g! x/ A$ |) b
error while observer running SET-CURRENT-PLOT
0 G. Z- _4 N7 ?$ Z" [9 I1 u called by procedure DO-PLOTS
, \5 h; s1 N8 t& D: b called by procedure SETUP
" j3 l, m# s: \6 e3 e: ^ called by 按钮 'setup'
0 t# s& |! o) ~% U+ U, V求大神解答啊 |