我编的程序如下turtles-own [energy]) [# I0 g9 w8 E1 _. \; K
to setup4 ^- t5 `. V& x9 F
clear-all! ` ]7 I! a! F$ t8 q: l* W" H
setup-patches( ^+ K8 q. `* E4 @
create-turtles 1007 U; ~# x- W; j5 Z3 J: G- J/ G. [# s
do-plots
; P- n' c- g) H _1 o1 a ask turtles [ setxy random-xcor random-ycor ]
* K% {, [/ g M0 A/ jend8 J4 s! p6 L1 J; v6 Y b
to go! O0 u! [$ R# f# a2 ^5 r* m. o
move-turtles
& Q! j% N* v4 w2 q4 q* D8 V eat-grass) N# W- L5 _5 I7 q" Z( M1 y
reproduce
+ e( ^* [% R% h6 R$ I Q& z check-death
5 J7 Y+ v5 k9 t! |: H+ O+ a1 a J regrow-grass4 C( |" n- g" f' z; m" h+ B$ e- K
do-plots" f" f* Z' ^8 o- P
end
6 S* P u9 ]% _0 i+ _ ^4 H! K8 c. Pto move-turtles
1 A3 x8 M4 M1 H0 C, ~ ask turtles [4 f( x4 N5 k; k' b2 B6 A- f
right random 360- p4 |. F3 ?& x0 F9 | M
forward 1
7 e T6 P( s! a" ? set energy energy - 1
+ V/ i! l9 l6 r% M3 D$ ] ]
; a$ } }8 O% kend
7 j. g! D+ @3 H* k5 Z/ tto setup-patches
8 m1 q" @/ L0 a ask patches [ set pcolor green ]
6 f) w( d5 X; z2 P9 J. R3 i% Q" gend# O! S2 p! e3 i' Z2 P
to setup-turtles; a# S8 x% a8 Q. M5 q/ ^+ F, k' X0 z; [
create-turtles 100
0 P6 Z3 h" p @ ask turtles [ setxy random-xcor random-ycor ]
) d( b& R+ Y6 D& _( Pend) \8 w( k; D O x0 c& l
to eat-grass9 t9 d3 f, C+ x& M/ ]8 ^
ask turtles [1 x% J0 Z4 c( C8 A, ~; _3 b* L$ U* m% k
if pcolor = green [
: e2 N- x# W, U& K set pcolor black
& U4 ~ J) m5 R3 X5 _' o) o+ p set energy (energy + 10). i' J7 b" k: X: O; k& Z
]
( s- J! E. c! k" l3 I( p9 T' x! k ifelse show-energy?
# l6 L+ ?4 s: Q @7 F _3 s, C [ set label energy ] i- N7 H' A% l: Z9 ~4 V" I
[ set label "" ]9 f6 Y2 a9 c1 {
]
, W; Z0 K6 d! h/ |! \end0 i6 r: H) t7 ^4 b1 P$ z8 v
to reproduce Y! i; P6 q# N i( O0 \
ask turtles [4 P5 U5 {! J c
if energy > 50 [1 X: P" W2 ^% L
set energy energy - 50
* L! [. s6 \! J8 S3 E hatch 1 [ set energy 50 ]
: ]( r' c) s+ Y3 ]0 e# w% A! d ]7 j# U H: a2 Z2 Y6 Z0 j. c
]
. k9 M- v9 d: o3 Z$ m6 zend
3 _- v- ~8 F4 Jto check-death d* A/ ~' a8 {' C, K
ask turtles [* k8 E1 \ u% R# s8 O! @
if energy <= 0 [ die ]
* P0 E! {% H% z" y+ }3 r3 @ ]5 H9 i, }8 n7 c4 g/ a9 d M
end+ d0 G5 T. X& c2 h. G% i, S. I
to regrow-grass
. Y( m5 ^! y& x( P" F, H- D5 I ask patches [# Z U$ Q% F5 I7 l5 r5 ~9 m- V
if random 100 < 3 [ set pcolor green ]; E& |. e# F; \
]! v3 U+ m+ |) T: O" }+ W
end
- d" M. T7 c" X& n4 R8 @) Q Rto do-plots
) S9 T2 M6 d$ R2 {4 r( I1 @ set-current-plot "Totals"
& `$ N+ A, Z6 ?$ F set-current-plot-pen "turtles"& }0 O2 b+ [* [+ G5 N4 }- `. M
plot count turtles' g# f: z; u( E: V* I! X1 `3 _' _2 _
set-current-plot-pen "grass"* G. I- |! o0 v- z* [
plot count patches with [pcolor = green]6 x) r) G- z0 o8 P1 N( r, N: k
end
1 k( \% R( o& b' R# \2 i y可是运行时提示no such plot: "Totals"
) r! a& ~6 R% k) Zerror while observer running SET-CURRENT-PLOT4 k* x7 y* P' n
called by procedure DO-PLOTS
' T) U& k; N( [) S& U9 d6 B, G! [5 O; q l called by procedure SETUP7 |5 x9 r$ a# s* S9 u( o% Z; ]* [! M
called by 按钮 'setup'
9 c& i* e) q# u4 t求大神解答啊 |