我编的程序如下turtles-own [energy]# J7 O( ], q8 m3 F4 q z. {5 @0 U
to setup
1 r/ k9 e$ n0 o9 ~ clear-all4 c" z0 `2 L! A9 U* ]
setup-patches3 ?% i9 b" n' r; X% |+ u
create-turtles 100
7 a/ T2 N, S4 M) T! ~. b7 q do-plots0 h# T2 \/ M; a, S5 O' j- E4 g
ask turtles [ setxy random-xcor random-ycor ]5 g( {8 K. Z+ {9 c
end. U' z2 q( i+ P
to go
# L9 ^, }- w' \7 S2 j1 D move-turtles8 u8 W; z$ K9 x" C# L: c# S
eat-grass
2 }/ [) d8 Z# P/ L. h; h0 y reproduce
& ~; X( @: j8 O! s check-death
# ~; Y& V3 T+ u/ q: h' W, `/ W regrow-grass# U3 C$ F% C; q
do-plots
: m7 Q5 E2 E* f: yend
$ _/ e0 {0 Z5 P# i7 @' \/ N0 ]to move-turtles G; d( s, F' b5 K! w8 c
ask turtles [0 f N# k* n0 J9 N: p, [
right random 360+ ~5 k# [2 t, |4 i9 H* P) q# _3 R
forward 17 j1 m6 v; |5 Q0 x: A+ ] X
set energy energy - 1
8 b6 |1 s( X% J ]. Y1 c; I: p. w7 G8 A
end2 g* h& e; c+ S
to setup-patches
; h, c! |* L8 C; i3 u4 w$ t# _8 @3 M1 `7 _ ask patches [ set pcolor green ]
& H) a$ I# E* ] F* P9 Eend6 f4 U& N' l7 n) q+ V/ s- X V
to setup-turtles
$ c& m3 o4 C4 j9 Q; N create-turtles 100
3 x! u4 Q9 S9 E6 z) L ask turtles [ setxy random-xcor random-ycor ]
+ {. v2 {& i" `- m S3 eend
; k& V3 N# Y# w" Uto eat-grass9 n: F# g6 B$ n
ask turtles [% u" V& P2 ~0 P0 Z A
if pcolor = green [ o1 s5 A6 P+ E% b' b0 o+ R* ?
set pcolor black
1 o4 y: n# u# [' \+ v set energy (energy + 10)# C5 h) y' X1 N% C2 K) X# R) }5 k4 ^+ V
]
4 F7 U7 ]9 s+ G: Z2 l: _" V ifelse show-energy?
/ k6 u! Z. j7 @+ x* V4 {! y [ set label energy ]9 `+ `% [9 V; t. { m
[ set label "" ]$ Y* l! w8 N7 Z' b1 e# Z! a
]
9 e1 _6 }4 J& `% @end B9 i( a1 w* U, Q! B* Y
to reproduce
( F0 C- n0 I0 ?; @3 p7 E* A0 s3 A ask turtles [3 B. x! _4 H G% j
if energy > 50 [; z Y6 \4 N2 ~+ a" z2 J
set energy energy - 505 B. r, T6 h2 U( [; i9 I2 Y
hatch 1 [ set energy 50 ]
/ v' M$ W; p* y; L% y) [% ] f1 e" L ]; `" s B0 B4 g. F! |" X
]/ i8 ]) H; n+ J; x7 X0 ^& K; W
end9 m4 [& ?1 H/ d' M: [* o' q
to check-death
* B2 g0 G6 g' p3 K ask turtles [- g# D) U- P# ~ S
if energy <= 0 [ die ]7 |# _2 j, p" W! }. E5 c( D1 E
]9 |# [" O' W6 t0 H0 q
end
+ H: m/ z7 f# @" n$ c1 W" |$ H) E) R+ Zto regrow-grass* Z* G6 |$ \6 m2 G* ~1 G* \
ask patches [; r4 ~: k& \6 k( A T
if random 100 < 3 [ set pcolor green ]8 q& d5 i! Z' z Y5 K$ I# C
]
8 N) t% Q) v5 G7 e, s( Rend: j _' O! h# j B6 W. D
to do-plots0 n0 O0 m7 r, B/ n/ w" D c
set-current-plot "Totals") d9 l8 \ m" `* W8 O- J
set-current-plot-pen "turtles"
1 n6 _, E1 O7 G. O4 R5 L plot count turtles
. u) C9 J4 m6 f! q. l set-current-plot-pen "grass"
# |8 t& t/ t5 R4 {- L% U ^ plot count patches with [pcolor = green]# y9 ^0 y1 E9 R: B7 p# o, K
end8 J+ u; M: ~- x1 N# Z/ |' s
可是运行时提示no such plot: "Totals"
& d$ m( K; Z. t! ]error while observer running SET-CURRENT-PLOT3 G" q) ^% Q7 L! `
called by procedure DO-PLOTS
( A$ T% c' V1 f3 a6 m7 z called by procedure SETUP. M/ M4 J/ o* ^' Q
called by 按钮 'setup'
^& ~) _7 P" E" L7 F求大神解答啊 |