我编的程序如下turtles-own [energy]
4 }% f- c! `! d' I. j; Tto setup* T1 g# U8 c0 y, I! I
clear-all0 M6 \$ i% a0 R i% O& f5 D
setup-patches
`. G, D! }( s& ` create-turtles 100/ m, w/ B7 P k* o5 ^0 u
do-plots
* L) m( W, Q# z ask turtles [ setxy random-xcor random-ycor ]
: O$ H% n% h1 v; ~end
- i* m6 N7 S9 {/ q/ [. ]to go
, m5 J& R7 T1 F# ~0 ` move-turtles6 ^ {* ]% E6 n
eat-grass* J2 w! n6 L0 N6 r1 Q' A. X
reproduce
% F- [: G. k# S) w check-death
1 x& @! ?& h5 }( G regrow-grass k1 @1 s/ p' T* B
do-plots
, h a! ^0 ?+ E W) Y: e; r5 O9 D dend
0 T- K7 ], I+ M( Nto move-turtles0 e `4 l' q6 f. ]
ask turtles [. n% _* L* e. Q* K
right random 360
y" e1 |0 o" x3 E- u forward 19 ]/ I& B6 K6 p7 C C
set energy energy - 1
# ^, {/ R' _1 k* O0 P1 [ ]" B: l0 ~+ ?% v6 {' p& _0 V6 F& i1 [
end
, E" N' p: a1 c \6 \to setup-patches3 Q/ \& x+ l; n/ o& F6 H# T
ask patches [ set pcolor green ]
5 ^8 \$ z2 R1 B( _4 u, ^end
% ]: k, a x0 R8 `0 Rto setup-turtles+ t1 Z7 F& O! c# M( G/ a: ]% C1 `
create-turtles 1001 D- V- d2 C$ R' [7 V
ask turtles [ setxy random-xcor random-ycor ]
8 y8 r" A6 V9 f, Nend: e, [7 x; k$ q( |* R O/ ^! |
to eat-grass. O' o8 Y* O% o4 U
ask turtles [0 n8 _ P- e6 ^% V+ K, M1 g; O
if pcolor = green [
- J6 {7 V/ f. v7 g% w0 {1 d set pcolor black
9 e$ I7 U/ Z- J7 k set energy (energy + 10)6 ~4 O7 m: M& ]/ n
]
# x8 C6 h: |& S3 R0 I ifelse show-energy?
1 t+ A/ J7 `1 c& L8 z [ set label energy ]
4 v1 s' @. c }6 | ` [ set label "" ]
4 E; y, y; E% K' x8 \ ]
( S1 L, K* F( p* G9 F" @2 Eend2 J+ G$ s* k( x3 |, c6 N
to reproduce
) ] p0 P) ^1 h ask turtles [
- q ~3 D$ O- _% \. P if energy > 50 [6 g: ]1 W# b# Z7 v$ F
set energy energy - 509 c# n# s' s5 m8 F2 s9 z9 n
hatch 1 [ set energy 50 ]6 X. j& Z3 w" a {4 ~
]
& j4 j' Z+ @5 d5 M, m# s ]" y+ i+ e/ o& o0 d( P
end
% x0 _: L& U2 w& x0 N/ ?( i0 \to check-death
- [) f( R( f6 F. k6 e/ D ask turtles [
% p9 p% P: W4 ~: x I% a if energy <= 0 [ die ]3 W3 Q- [) X+ ^$ w* J$ G# e1 G
]7 g5 W9 c, O% d6 w8 Q2 h4 E
end
9 ]: |# b) J- E- h1 x0 ~to regrow-grass
0 q$ X2 g9 q; }+ Z ask patches [
% F' x9 X& ~0 U2 V, b% { if random 100 < 3 [ set pcolor green ]
; C) V3 W& Z$ y. z: M5 t ]
' I7 o. C5 K3 _1 jend
6 ~# P% g5 A& p4 f. G+ hto do-plots
% Y7 R# I J. U; \7 W, Z4 I set-current-plot "Totals"
* G8 T9 v. N6 y1 |8 R7 r" _ set-current-plot-pen "turtles"- ~* ~% m& ]) I' G. k7 K
plot count turtles# z# r* z$ @, F" z" w, o
set-current-plot-pen "grass": j( t2 A: b3 x
plot count patches with [pcolor = green]
$ m8 I* \4 D" ~ E. Vend( y4 E4 a3 A8 Z, K5 Y" S
可是运行时提示no such plot: "Totals"$ P8 u0 |9 c$ u0 h7 |$ n( f
error while observer running SET-CURRENT-PLOT! S4 J- d5 ~; v2 s
called by procedure DO-PLOTS
- T% o% d2 @9 _& M4 j called by procedure SETUP
+ P; X& X, k+ {. S; X. H: b9 | called by 按钮 'setup') Y/ R% C8 e1 l, m# { y
求大神解答啊 |