我编的程序如下turtles-own [energy]( ~% B- Y' g/ a: l- r8 n
to setup
3 V9 c7 g# ?. ^6 ^3 j clear-all n# h) H7 }- ^, S1 E
setup-patches3 k) F: ~0 F4 G1 ~4 c! S
create-turtles 100) \% X/ Y: o7 h( K
do-plots5 z9 w2 z& X1 {9 S. Y* j
ask turtles [ setxy random-xcor random-ycor ]
6 T6 q6 v1 ~3 S" q% bend
0 c& l- A) ^( l) {' M, Ito go0 p; G/ k. |" T5 C* J+ G
move-turtles
* m6 A; ]8 Y1 N eat-grass
a, t' {; I% _( e+ w0 k! r reproduce
J' m) G" \/ O% r; `$ A check-death1 g- b3 I4 y& i2 a) N8 Z
regrow-grass- R# J% r/ _! v1 ^9 f/ F
do-plots
; _5 |) s6 [& W9 Mend
5 x' b; Y) }: u( j2 ]/ r( tto move-turtles
9 P- s: b- p, w1 u, B ask turtles [! f. F- g" Y0 |
right random 360* G3 V( H' A9 Y7 M# h% W* h! [
forward 1
% Q& P* b2 _7 y; s% X$ z set energy energy - 1
- R0 a1 A P& x. f8 p; Z ]
$ J$ S, p% s* \4 w6 T9 gend
2 d% P* [, h. B$ ~ ^ R! z0 ]to setup-patches
( X0 w" D3 ?( W+ ` ask patches [ set pcolor green ] ~- V% ~, |* Q
end
- [. y Z/ m/ t. V! Xto setup-turtles6 [0 Z; T4 B. n+ |4 L+ x
create-turtles 100
! c" v4 Y( _* t ask turtles [ setxy random-xcor random-ycor ]/ `/ X5 l/ G/ l! o, w: A
end
, q2 p# Y) _/ G J) u4 uto eat-grass
9 v+ V8 w% D) }$ ` ask turtles [) t7 x5 i& r+ O m7 B
if pcolor = green [
% G+ I3 O4 K, M4 [* } set pcolor black
) d) \: [" m, x set energy (energy + 10)
7 i3 u4 y. q) L& G$ U ]
( g, [% b8 `# p7 A s* W' M" S ifelse show-energy?- d v1 f) G# G' \& u0 i, }
[ set label energy ]& Q6 ~8 t$ @7 j
[ set label "" ]
1 `7 k7 S6 [$ }* [ ]
2 A" k' O4 K. D7 Vend! }* H( A5 S& n% i. a
to reproduce
& V1 v" T2 k- ? ask turtles [
& S! B! f' I8 N1 d" a if energy > 50 [7 o3 a! `* S6 V9 {6 w) A
set energy energy - 50
0 g# r* S3 n: s# g( N/ d8 {* K* g hatch 1 [ set energy 50 ]" I8 I1 _* R" f, @# Z
]6 G' b3 T9 e$ n9 C0 e6 x
]6 k, I3 q9 @" l
end5 }6 M9 H, r, l0 F: M0 _$ C
to check-death/ V! _3 J6 f' q7 B* g
ask turtles [3 l0 Z) ~) `7 { s# T
if energy <= 0 [ die ]
6 j9 [2 e# j+ L3 Y% V# ~ ]
5 S3 i7 L8 ^7 B* K. w: Fend/ B0 A" |& ]# n, o+ g; G
to regrow-grass
0 I- Q' R, S2 g- U ask patches [0 y+ [+ J2 D! z6 f/ Y! Q0 W) F
if random 100 < 3 [ set pcolor green ], R2 j$ t( j7 v' [
]
! l; y0 X! K: U' j: Q8 [' }end: j0 L' G* C" L
to do-plots" x: D# m6 d$ W" @9 k: t
set-current-plot "Totals"; l# q& ^( m) H8 G
set-current-plot-pen "turtles"" G- J4 K7 m c+ P- K( f
plot count turtles
! N* Z0 n1 E( _( F set-current-plot-pen "grass"/ n4 M4 H5 n( _2 b& B2 G' j
plot count patches with [pcolor = green]- Q. ^8 B% B# ?( J9 [; B( H
end. N6 G6 n2 |+ s& q: }: l
可是运行时提示no such plot: "Totals"
* m1 g# _) G1 r$ i$ A/ Ferror while observer running SET-CURRENT-PLOT
* q; N; {& g% ]% P m called by procedure DO-PLOTS
6 a; B1 v, I% y' ^6 y5 I called by procedure SETUP8 [ |8 G" Z: R# Y
called by 按钮 'setup'
$ y: h4 O3 n7 [! q0 Y$ Q$ V2 q求大神解答啊 |