我编的程序如下turtles-own [energy]5 c \0 }* k; `2 n5 Z
to setup! U+ z: P4 U8 f# M# C
clear-all
3 Q! a) k! C x9 r1 u setup-patches5 f' F6 r3 k) [& b
create-turtles 100
6 ^- ]! L/ `0 K! w5 T do-plots. l7 X5 N6 z+ S; F$ z
ask turtles [ setxy random-xcor random-ycor ]
2 ^9 m& l; _, Zend
9 z8 ^" N8 ~0 a; Zto go+ l7 w2 ^9 R' S7 z1 [
move-turtles4 U' U6 V8 `5 u7 m5 U, _
eat-grass
! Q2 e! d; s; [0 ]& I reproduce
; J* Y# z- [( \1 ~ check-death
! \* W: T5 k; S) l `) u0 } regrow-grass$ ?! | K& g. d% _! _( D% J. x
do-plots
% P) R6 X. q" p4 |5 o) e% Mend
* {1 L# f$ X* H: G, s# k$ qto move-turtles
8 V2 `. I. [( G' c7 p, J1 x ask turtles [
7 D3 v( e. ]$ h5 K right random 360
1 |) y- y; V9 i; Y! D forward 1
0 y' @& Q7 W; S8 E set energy energy - 19 u* r1 e! J. }1 s/ U
]
' T1 n( G. O& d3 X6 Q# F4 D' Kend
1 I# H2 x) u# C0 Uto setup-patches
" q) p& ]/ D( `7 p8 V ask patches [ set pcolor green ]: B" E) I! @ V1 Y0 J
end0 J! ]0 O) `" j) F4 E$ U, N
to setup-turtles) `/ v: L7 Z! M1 j+ M
create-turtles 100# k/ ^* p$ d- q U
ask turtles [ setxy random-xcor random-ycor ] n! s3 \' T# E5 j1 ?/ U- C8 i
end
3 o6 \: F; S. T# t- C k: ~to eat-grass, f! n% I8 t/ \+ k+ T+ w& K
ask turtles [3 c; R2 f L5 E3 h$ y5 a$ y4 T& |4 m4 n
if pcolor = green [- y4 U/ p1 F% j7 y- T7 {
set pcolor black7 X- d( A. }2 }+ Y/ i5 L
set energy (energy + 10)
# A. ]- H8 s, P* f) F( M) g ]
6 `0 i n$ N& P. v3 Z' r! a& h ifelse show-energy?
, q- o8 k$ w$ x$ J% S) U5 a+ T [ set label energy ]3 }1 ?8 j% p: N1 s \) `6 q
[ set label "" ]
; a9 ?2 U( e' c0 ^% Q5 K' y ]- X$ j- b5 R+ q1 A
end9 D5 I3 k1 N6 ~3 X/ H$ E% S3 c% n2 X
to reproduce) ?$ j: K1 B% \" O/ X+ R
ask turtles [
) g6 c# K. ~; _6 i! @. I' e" d if energy > 50 [5 U# t# B* F. Y
set energy energy - 50
8 G+ C. b1 I7 x8 u# }: N9 y/ c! X hatch 1 [ set energy 50 ]! ?! Y% l; V% m9 g" T" J
]- c. v! H% ~0 q
]0 q; z4 T( M9 q+ t
end
) L7 {, _3 ^( q C% qto check-death
6 J, X. _0 G2 @) l ask turtles [8 c/ A3 f: e+ F" w) b0 q
if energy <= 0 [ die ]
+ M5 G% Q5 F0 t0 O" I) U ]
$ v8 L2 ~* D0 u6 k ?) vend
; o$ J! J- v7 v& ]6 }to regrow-grass2 p I G3 |- B) U$ e0 f/ m+ _
ask patches [
5 }+ b+ `7 j/ D$ p5 h* h8 G if random 100 < 3 [ set pcolor green ]$ i( ]4 ~7 |1 \6 i$ k9 y
]$ f! x# _: ]( W+ ]
end6 ~# B7 o# P! U3 O
to do-plots( `9 R. M/ `8 }+ O8 n1 A; D" }9 a
set-current-plot "Totals"
* R- K R0 X; k7 {( x0 S- g& r set-current-plot-pen "turtles"( K3 [5 \) V4 ?3 d. @ C3 Y
plot count turtles
/ [( T: s9 `+ h% o set-current-plot-pen "grass"/ _- S4 k; A! _5 \/ s
plot count patches with [pcolor = green]
0 S- x0 |: \# C+ |' S7 f6 P! \1 `end7 d" [: ?1 O* H; u, I2 ~
可是运行时提示no such plot: "Totals"- P1 B3 ~) P9 c, ~ J+ m
error while observer running SET-CURRENT-PLOT+ m4 N4 |; x8 J9 N5 @
called by procedure DO-PLOTS; |) B# S# L. N$ G+ C+ x6 e8 y
called by procedure SETUP
9 |3 J( A) @. U8 i4 f6 N% k called by 按钮 'setup'
5 O: Z9 ?0 w% w$ |求大神解答啊 |