我编的程序如下turtles-own [energy]
! {+ @: u2 |* g& v6 X1 E1 rto setup* c; R* I! [' r' Y) }! D
clear-all
R4 D' M& ]% r$ W1 j" A setup-patches
0 r0 K* Y& @8 O9 B( ~' E/ C create-turtles 100. M; f( B6 `2 ~2 H% z
do-plots
7 s/ @$ z0 Z# K3 d ask turtles [ setxy random-xcor random-ycor ]
+ ]7 t- I& W5 a7 ?) i9 Iend
) t! c# G* W7 B! i( d! x7 S, ito go
- }- Q8 |" |/ o/ X( c7 ] t$ n4 u2 Z! k move-turtles
- W% F J4 n( k. K: Q5 T4 x( ? eat-grass, f( h' K6 ^% C
reproduce! H4 t" @; H; k" H( |5 }; j" x
check-death
1 a/ m) p3 } X: u" w2 C7 H regrow-grass
" O2 ~0 |9 @3 Y N8 F8 \ do-plots& C+ v6 A0 ]( S* ]
end h( T# b/ ?% `# D' i) P) ^3 U( F
to move-turtles
7 F! t" u) Q& w2 ]! n ask turtles [
& `) O d) S( ?+ m right random 360
6 B b+ u/ D5 y5 L- m- e6 R! G7 T) a forward 1. P, y' j8 l6 x4 ~$ i4 v
set energy energy - 1
& t- h" V+ x9 R" ]+ F ]
+ R8 {& \' s0 u4 |- ]& \- Bend# e0 g' k$ j; Y0 o
to setup-patches
! @2 n. R- I2 E( h ask patches [ set pcolor green ]+ o& B( N- u2 F! P1 O, h* c$ O
end
( x6 W7 X( \4 ^1 {/ Cto setup-turtles' L* d4 }& B; s. q) o/ r
create-turtles 100
6 C1 q/ n5 V& M3 N ask turtles [ setxy random-xcor random-ycor ]3 `8 X1 ]) ]! n g
end' ?1 B0 z9 T3 r+ M, M* u: D, \
to eat-grass
8 T4 [3 x( W$ k# ?. ~+ t3 d ask turtles [
0 C3 d# E3 A/ o% x- W if pcolor = green [) a& N1 X# u9 A6 e1 ]2 a9 ?+ f
set pcolor black% x) |# h# N& d3 n" D _3 _" L
set energy (energy + 10)
+ |% X% l; h4 |( q- } ]
5 W3 X7 b* I2 k5 \4 W/ s F ifelse show-energy?3 D/ S4 J# I! h2 g0 f
[ set label energy ]: N: _# Y3 t4 o; J6 W4 g4 i1 o
[ set label "" ]0 Y3 g, F& s3 Z- i6 s" [, g
]3 J6 J& }, f6 H1 m# c7 Z0 |4 F
end
& {% q# b5 c: L% ^) | C$ ato reproduce
9 m3 P" m9 ^/ c: @$ a ask turtles [
( \1 x. ^7 E5 K) ] if energy > 50 [" Z: j# i) p8 g1 j5 I5 ~6 r4 ^
set energy energy - 50& I' T, L4 E& s% g. E+ W
hatch 1 [ set energy 50 ]
) V: j' g$ C; c ]2 L: j; p; m7 }% x5 s5 H
]
E8 c8 a1 J R3 W5 e. V7 oend
4 C. u0 x& P; U8 l& Tto check-death
4 ?4 u2 h: M- l2 r- U! b3 s6 D6 B ask turtles [
- ^ j" I) u+ B/ {9 b if energy <= 0 [ die ]
* \7 }. Z L. q- r' a" c8 S ]
/ U; O; {; Q9 F" W' O6 B! {/ Yend
% |) c9 _: G" }# s3 s4 e, T4 L, r! }/ fto regrow-grass
& h( z! T* U8 f' ^3 K ask patches [
; P( E7 N- N7 n3 n if random 100 < 3 [ set pcolor green ]' y4 A8 j6 d5 K) p
]
; t5 P4 z" |% f& v5 z4 ~( }. G1 D. T9 Aend
( I6 |0 @% O, z0 B0 Rto do-plots# _6 x& M G: S
set-current-plot "Totals"
2 A- }; L8 i3 ~2 K set-current-plot-pen "turtles"
" p4 h* J8 Z5 g plot count turtles
8 ]7 [6 i7 @, X; e/ C' [0 a5 b9 p set-current-plot-pen "grass") I8 k4 x( ]% S
plot count patches with [pcolor = green]
9 L: a, f9 o/ v& ~+ Z5 Bend
) p1 E: T: }4 Y& u: \% y n1 H5 O可是运行时提示no such plot: "Totals"" ~2 {; G5 ]8 D2 F5 P* ?: w- t" b
error while observer running SET-CURRENT-PLOT* h d }2 ^( ^, x- o
called by procedure DO-PLOTS
% ] s4 u4 C. E' L6 ]( o+ }1 D called by procedure SETUP/ b6 ^# T+ H# q
called by 按钮 'setup'
4 r" z* y) Y- H; c) p8 |4 b求大神解答啊 |