我编的程序如下turtles-own [energy]# l/ M% A$ m2 I; u. y1 _5 s
to setup
# u/ ^2 O. g# Q- x: E clear-all
+ x8 j9 i' r2 q5 y! z setup-patches
: w6 L: m% R# K1 k% M create-turtles 100
& h- M3 r; r' B do-plots- M/ T% X7 z- w: G% f: N' z1 Y
ask turtles [ setxy random-xcor random-ycor ]
) ]# G" r7 m0 N, V$ y/ R5 Dend
7 Z+ ?& w* z xto go
$ h8 X8 B9 c. E5 P4 U& B move-turtles. f( R1 \( O9 o4 T
eat-grass
# ^ t+ t" F: s; J3 T' n reproduce/ E- _; q$ ^3 A8 F2 D$ \ I& y
check-death
8 W6 Z. u+ d$ @; b& l regrow-grass( K, W3 N2 C# _/ w7 L; O
do-plots: D3 g/ y1 t) k" B% A; @3 x
end' b1 h7 ]0 P) g
to move-turtles
+ F% l: Y+ c4 X; h! `8 L ask turtles [* q! I4 {9 @# [0 P( n6 p
right random 360& |; ~" n& w# z/ V
forward 1
& P; R( T) S8 l/ F$ ~$ _$ o2 B set energy energy - 1
6 Z. P% n- D) G$ w8 P ]8 c( i2 U4 a7 b: r2 j3 k/ o
end4 ?5 |& `9 ~+ S I6 z5 q9 M; c3 L# X
to setup-patches
! s( P- a; {; ~* w( r% j: X3 ]6 u ask patches [ set pcolor green ]
3 l- C( w) C4 h0 zend- ~$ L+ f$ Z. l% V+ n5 b
to setup-turtles
6 S: o) ], ]9 d& O+ p6 p create-turtles 100
( w6 B+ H* U( f3 f9 N4 p ask turtles [ setxy random-xcor random-ycor ]
4 y% M: k E/ h" x5 Wend
7 W+ E* x- I( L h9 ~/ n5 sto eat-grass) Z% C+ X) Z. j' Z2 n$ ?
ask turtles [! q: \. A" Z' q2 T: V
if pcolor = green [5 C1 D2 q* l; y5 Q5 R
set pcolor black
4 @5 f& C7 k$ K) b; n# c set energy (energy + 10). R% ?; _/ |. I& u' V
]
4 ^. N6 K! ?& ~7 [ ifelse show-energy?, f9 E3 M5 i7 H% g) v% k
[ set label energy ]: g+ x$ o$ h6 J. c+ x, ~
[ set label "" ]
; R' v/ K+ z) D8 f6 L6 T9 { ]
1 j. H2 w2 j* t* J4 Vend: Z9 w. E. }1 x" d+ c% K* |& U# t
to reproduce5 G1 F5 u5 [$ n5 ~, ]9 y3 o* W4 g
ask turtles [
# J) G% k# l# Z! W" p; z' F+ [" P if energy > 50 [: D, w' T; d8 Z+ n* m
set energy energy - 50& s, l1 G/ Y0 _3 T8 y
hatch 1 [ set energy 50 ]# M9 n# r8 D% J( ]1 E1 K2 l
]
: G/ O7 p/ O7 S5 A8 F3 r2 p. F ]
) Q% G, y* W& @, K1 `( P, gend8 X! h3 p$ K) m1 o. }- f* w6 B
to check-death
% ^; g* z1 {+ P) n" W( V4 W ask turtles [
( e7 y) _% L0 C# d1 I9 \4 ~. M* r if energy <= 0 [ die ]
% e) M9 w1 W5 P+ f ]
- I* ^3 J2 V5 h+ g8 [& Jend
% I: n6 P7 k3 C; s! uto regrow-grass
5 G! R; z! ^3 [: o( S ask patches [
) H9 V3 K# w/ m if random 100 < 3 [ set pcolor green ]
- i A" h! A: M$ h ]
+ t; R) Z/ C# \6 x5 E) m+ b5 Dend
- C" D6 N" A z; o0 h4 tto do-plots
6 _( s/ m8 y u+ f' {8 l set-current-plot "Totals"6 r$ y0 [6 @4 i, p2 G) V
set-current-plot-pen "turtles"8 b2 h8 r* ~$ x: v7 y6 n+ b" E
plot count turtles4 T5 Q. {3 N5 r) x/ M4 K) s
set-current-plot-pen "grass"
, D! X8 _% x4 X% }; a plot count patches with [pcolor = green]6 @# I( Z3 b& l7 r, c
end
' m4 L" d5 o$ ~* x- A r- w" E可是运行时提示no such plot: "Totals"* e/ t9 i7 }/ L
error while observer running SET-CURRENT-PLOT
' Z% V: G) H, ~" `# S# ]5 q called by procedure DO-PLOTS
: a5 |1 c+ O/ G% {# A7 C2 _ called by procedure SETUP
6 M: Z; ~$ Y& s0 X' P, s# m8 G called by 按钮 'setup', d3 T2 q$ H9 n# K
求大神解答啊 |