我编的程序如下turtles-own [energy]
% `1 A3 d! b. z; n) e, R) Vto setup
3 M0 B' ]" m3 Q& g clear-all
2 o/ E% U( F+ q& e setup-patches0 K5 y- ~; ^+ s0 G
create-turtles 100/ K/ Q+ Y. b& y' t" Z4 M
do-plots
% w9 p' @& l. O: t" S# ~ c" C ask turtles [ setxy random-xcor random-ycor ]6 K: {# K& T i- U U8 S. C
end: ]/ V% O7 z$ `8 u" k2 P7 n: I
to go' [: U6 D( R2 `! v! X6 w/ `
move-turtles5 M9 n% w; T; z9 t* x
eat-grass( @3 _- [" Y6 K# G/ g2 z3 r
reproduce
2 E+ z& U. ?1 J0 k% | check-death2 _2 _3 e+ K6 p7 e
regrow-grass
- |8 T' |8 t, Q3 h& n1 H& ?/ j/ n do-plots
$ ]. E B) Y( B/ iend5 [( ], o2 [# ]+ C0 ?. r
to move-turtles
8 p: X* i/ M4 n d& a ask turtles [# P: N U! y6 {6 L( L- n
right random 3605 H; C/ `; U0 H
forward 15 y7 B! E$ c! O. n( w
set energy energy - 1
. s5 X) F% F! c( o- `' f s ]3 L( |" y- k% Q' L. N7 h# X+ E6 t0 W
end7 l4 b, i; z0 b' `) C1 ?2 \
to setup-patches
q1 D( ~2 j# ?3 ^( I ask patches [ set pcolor green ]
, l! `+ R4 M4 x& t n: l3 U3 w7 Bend7 n# g7 I+ k+ W+ H$ ^! e
to setup-turtles& T1 N- Z, y9 P+ G1 C/ m& L
create-turtles 100
! ]* T# p9 P( E' e. [ ask turtles [ setxy random-xcor random-ycor ]
5 Q0 G3 `& F) V3 C) G3 F5 }end
$ b2 q! }" R% [$ Q! [to eat-grass9 E: ~/ `, Y6 x- v+ E3 J7 t. K
ask turtles [
5 C7 ]1 u' p- i/ p% U4 B if pcolor = green [$ y5 F8 K' y0 i4 {) Q
set pcolor black" I3 c- r' ^! _. n, J9 I
set energy (energy + 10)
1 d+ y% e( N9 Z( P. X7 c& @+ d2 I$ ? ]& ]2 U! p( g( S* s7 m
ifelse show-energy?9 H4 y) O5 o; F. W: {7 k: Y6 j
[ set label energy ] a. D/ [! H: @7 v! D" A M8 z1 }% Q
[ set label "" ]; b9 l! i# g8 F6 D% C) W5 A9 n2 n$ {
]
2 B( r# w w% @! ~9 Gend
4 i( E! z) z" A9 \9 }, Fto reproduce' p3 k* K6 r* L. f
ask turtles [0 {! T' F& M, R4 c g
if energy > 50 [% s6 ^# t! W" q/ v5 J4 q0 y
set energy energy - 507 x& g, E# \3 E$ _% u
hatch 1 [ set energy 50 ]2 \4 P0 P; ]* c m8 L, j- s0 O9 y
]
* t5 `1 Z! Q, U: o. a( F ]
# o* s+ p4 E: B3 yend
1 H9 ~: r K. S* Z- }0 zto check-death E# n$ s8 W7 t
ask turtles [
: D+ N4 Q% F6 `0 e k1 \ if energy <= 0 [ die ]
" e8 A( G% ]' B" ?8 Y2 I- E+ V ]) l% e" l- O R( c5 N: |2 U
end; d( A! G9 ^- y
to regrow-grass
~8 ], I2 U w7 l ask patches [* v: g) \' I% U9 n# G7 k
if random 100 < 3 [ set pcolor green ]2 F, ?7 w% c. L: N/ v5 P& x
]# N* f6 q f7 L6 B+ [' X8 H% Y
end" X9 E/ v9 y5 ~
to do-plots8 c, r2 {( c0 g8 O6 O: P1 L2 Z: f
set-current-plot "Totals"
0 f6 V# E6 P! T8 d* g7 M set-current-plot-pen "turtles"
$ s' ?5 d( p/ `* Q# O plot count turtles
/ h; q" L, e! B: Z. d7 I set-current-plot-pen "grass"
8 C% Q9 |: |1 U. D+ [5 x# d: e; D- c plot count patches with [pcolor = green]8 ~1 E% S5 ]0 @7 O) z
end" ]) j# t3 k- `) Y$ f: W
可是运行时提示no such plot: "Totals") [1 Q& k+ O3 X. V
error while observer running SET-CURRENT-PLOT
/ ?' y6 i/ U# m called by procedure DO-PLOTS
1 {4 b+ r# y5 U" x* ^ called by procedure SETUP
6 w' q7 p$ @4 ^0 ?! ~" { called by 按钮 'setup'
6 X" X/ n; h/ i- W1 x求大神解答啊 |