我编的程序如下turtles-own [energy]" r3 w4 }' H6 I) _# D# E
to setup! X; J/ c6 {& c5 T: S# \1 z
clear-all0 l4 Y+ D2 U& g; x2 N
setup-patches& J9 T3 D9 {, x' X
create-turtles 100) {* x! b9 B# \
do-plots
% F$ R, y. X& i5 {, P% f0 \) M3 s* C ask turtles [ setxy random-xcor random-ycor ]6 G- U( f6 {+ y9 w/ R; Q9 \: _
end! G9 j' m5 A9 {" s. d0 l5 n
to go7 o% y" j. d+ j1 n
move-turtles
+ |7 E0 v$ U6 I0 @& v) z8 [+ p3 m eat-grass
5 e1 ]- |1 }9 d' p. j reproduce
; k# f0 S6 _8 V: ^, A! N check-death2 | D- c: ?7 X& A& t) Y
regrow-grass
@; y3 o3 u0 h& ]: p do-plots
) N# Q) R; ?$ zend
L8 ~* H. m* Q2 A( f: fto move-turtles
: M6 Y+ k7 R/ H. b$ a$ i ask turtles [2 b% |/ W: g" x) D! i
right random 360
6 ^# {1 U) ?( m1 C3 X forward 1: d P; B- j8 u' |- p
set energy energy - 1
/ m3 Y& w4 q: D# z) y9 B8 G ]
) b7 x' Q; c4 I' f2 B5 |end
6 I. N% h2 w2 q: nto setup-patches
2 g/ r! a |$ U. D' ]1 s1 l/ @ ask patches [ set pcolor green ]
: \( p5 H( X# L' B7 mend0 l( r% P" b b! B
to setup-turtles/ q0 i: @6 D* D4 A
create-turtles 1006 Y( X3 s1 P. |/ g4 } A
ask turtles [ setxy random-xcor random-ycor ]+ P5 _0 w( c3 Q& V" k9 }
end
/ Q5 ]& J- A2 Z7 }& tto eat-grass
3 Q- r; ^" k% v( n ask turtles [3 {% {9 z6 g+ g; M! U3 y/ X
if pcolor = green [4 |. v [" b: e5 q: y
set pcolor black X) J0 K- c2 j0 B: l# o
set energy (energy + 10)( b& p# f8 a" ]1 A6 p7 X
]; \, F0 V6 N+ X( l! Z* Z, U
ifelse show-energy?7 K& z- c" ~2 U* p
[ set label energy ]% t6 E2 ~+ f9 n3 H/ f
[ set label "" ]0 _6 r+ c* y( P7 C6 u7 A( b
]' l L; |- x, s! ]: M& f
end
5 D. w9 }5 X8 e2 O8 Zto reproduce% K D4 |" R: q$ \0 o1 D( x
ask turtles [( \# e2 j Q) ~( }6 X) E4 `, I8 F G1 H
if energy > 50 [
* z4 x$ L0 o6 f+ d" \2 G set energy energy - 50
8 l% N1 {9 ?1 z% _5 Y( q1 l( Y hatch 1 [ set energy 50 ]
" D* c" y* x$ ^9 A, B ]
5 z) t7 N+ z( ^+ {4 x/ { ]
" e; I2 a9 r$ }6 R3 ~end
0 t w1 T9 J& ]4 q8 a6 V: B$ L- O& ato check-death
: L9 c( s# ~, U7 e" H2 ~ ask turtles [
; B" a* M9 O8 J if energy <= 0 [ die ]
9 k; |6 X4 Z% j ]% ]: s# w$ q/ X" ] x0 `
end3 C& ]; o+ Q5 ~" @. N
to regrow-grass0 h# _. b; K- A" _1 j
ask patches [
+ j$ p) e" {& R: A+ e1 m9 [ if random 100 < 3 [ set pcolor green ]
3 r+ P( y4 w' V6 M: w$ @$ i ]; R, h: t" H+ ?9 u* o6 y
end7 m1 y7 X* k, b2 x l& P. C e
to do-plots
% X; I0 _- T8 V set-current-plot "Totals"# {. e+ F3 D7 Y5 G+ p$ I5 N0 T8 Q
set-current-plot-pen "turtles"
- L7 X) H2 M$ F. K plot count turtles: ~+ D; m, a) K% ]" ]
set-current-plot-pen "grass". ]1 e# C- v- I) G
plot count patches with [pcolor = green]
# c I* k/ B$ `. `end: v/ ?# q+ i; k3 q
可是运行时提示no such plot: "Totals"
* T7 A! y; A5 e" ?error while observer running SET-CURRENT-PLOT" [7 Z5 G$ y' l9 t9 q
called by procedure DO-PLOTS" l6 u5 r- H$ j' o
called by procedure SETUP! a/ w2 E1 d# M, u$ o- ]4 y! @' Q- t$ @) D
called by 按钮 'setup'
R% e2 |' _, N: V求大神解答啊 |