我编的程序如下turtles-own [energy]+ z P. z8 H+ b" _! _( @ I/ P
to setup
4 K# z" m+ v( k6 j1 n9 z clear-all
6 N4 l5 a, ]0 v, W! q setup-patches* H4 |1 y, H: F! `/ T$ t
create-turtles 100
! b9 R! W" r1 V4 S" y do-plots
~9 k8 ~1 ]/ Z: c! i6 E6 x ask turtles [ setxy random-xcor random-ycor ]
7 v" i6 i# p1 o, z+ Fend' U6 [3 H5 V# ]! F
to go" o5 ?7 n: Z& p" E, c
move-turtles
) [9 A; V6 U% T9 v9 A& M4 w eat-grass
& ^8 L4 {' r& Y* A, o, F$ O reproduce
" L' l: [9 f/ T u" A% e check-death' e0 E* |3 D3 t W
regrow-grass* W! y( }# l0 J, Q: b! M& M
do-plots" h/ a- \# s& e$ Q: B5 {
end( W1 y0 U, W$ X2 z5 }6 I
to move-turtles3 Z9 k: W: k2 a, e* l$ ]
ask turtles [
4 D: d" B- h2 ^7 Y/ ^1 N right random 360
n) S/ C- R4 I3 `# {& ^ f% V forward 1
! M8 N2 `+ c6 T$ D set energy energy - 1
0 K: j- u) V% s% Q* y! c: T3 \0 v2 W ]( v$ {9 G( U; `6 Q0 _/ ]
end
' Z3 v: L1 W/ V0 R6 p) i) P3 [! Mto setup-patches
, R; j% E9 v" ?( J7 \ ask patches [ set pcolor green ]
' U) T: Z8 \. {2 m/ f6 c4 Tend9 B* R, w6 k& C, `
to setup-turtles. ` e$ l w& t- w- |
create-turtles 100
* i s3 M0 v% S9 g8 x ask turtles [ setxy random-xcor random-ycor ]- S2 z8 h# w5 E! Q. w
end
3 `3 D# i5 ]: [to eat-grass
2 a- ^+ c! [7 q" H ask turtles [: z. o2 }% i! {0 o6 \
if pcolor = green [
6 X# X$ v* x8 O3 j2 ]$ i0 c set pcolor black
6 @" W# ?! r- k, `7 E) a set energy (energy + 10)
9 U' {7 K: g0 v, r/ l7 @ ]
2 s$ e6 \8 y9 U/ C A ifelse show-energy?: h2 n( A& U. x/ i2 \7 O
[ set label energy ]
: P+ g8 i$ `7 L% _; m [ set label "" ]& I. O( G+ u0 ^
]
4 B2 o/ L! H U- v8 Uend7 y* z( s- S- Y; O: B
to reproduce
) |: S# C8 J2 l8 T) G* k$ T ask turtles [
; s2 Q9 [; V- f. p. m/ F if energy > 50 [
K f- u" C# ]$ F, h6 a set energy energy - 50- x/ P' s1 A+ Q+ @$ p2 E
hatch 1 [ set energy 50 ]
% U3 Y9 u8 v( A1 q K o$ f. c ]( g- o9 S' h2 M! i; ~
]& g8 \( }6 }; w0 g/ V! H
end5 |/ \' C: E, N/ T" w+ f
to check-death# X y9 C" F, W2 c/ j
ask turtles [
. t2 h" S A4 {( S* ] if energy <= 0 [ die ]9 q+ j$ F$ l! j9 l
]9 P1 o! M& ^9 F S
end
4 K! R1 \, B- M4 V3 F, w1 U" f) cto regrow-grass
1 H% Z- G3 n+ X7 L& \3 o) P ask patches [0 h, g1 U8 z$ t" W2 K2 v0 {
if random 100 < 3 [ set pcolor green ]
" T0 `0 f5 Y, V- u4 d/ z ]: R# S k) x4 {
end
: d- F0 Y: D$ F3 ito do-plots/ X6 O9 X8 k% ?6 P% X2 g; F" n9 V3 B
set-current-plot "Totals"* D+ G" j3 C) u
set-current-plot-pen "turtles" q6 ]* C* a+ ]0 u
plot count turtles% x" V' r' X }9 I' ~0 x [, J0 l
set-current-plot-pen "grass"4 T( h. k" u5 f+ W# z8 H! h9 f
plot count patches with [pcolor = green]" x1 K! R- p5 H# y) T# a$ w2 F! k9 a
end8 T6 \/ ~0 z& F. m! M
可是运行时提示no such plot: "Totals"7 R# g3 _$ N% E* H! [" ~ M* n) n
error while observer running SET-CURRENT-PLOT
9 u2 z1 R: I; ^ called by procedure DO-PLOTS3 s" w4 U$ {' B# o4 N
called by procedure SETUP
- c7 @5 N, Z6 Q' F+ t* P% @ called by 按钮 'setup'9 q8 z) ^' ^ H5 R- [+ u2 r! u, z
求大神解答啊 |