我编的程序如下turtles-own [energy]1 V8 o$ L9 j3 O; k# h
to setup
5 r4 n5 w2 g! [: g clear-all
8 O% y4 g* |, x+ |, } setup-patches! u* G) U( i1 R& ^7 |
create-turtles 100
8 U! f/ V7 }8 p6 k0 R' F9 }* L( A do-plots
: i$ g( t; b) e" s6 K ask turtles [ setxy random-xcor random-ycor ]
7 k- {- |7 ^" S8 fend- e$ S7 k1 w) V ?* l+ x
to go: e) E* p" j D" x* s9 f
move-turtles
8 t4 z0 v& Z* X: h/ d" } t eat-grass6 \4 G0 @. C7 R1 j0 P
reproduce
% r, H& M+ M+ o; j; L1 j# O check-death
+ l8 ^: h, W# O( h! m' J% l' P regrow-grass
# G4 W$ C* Z; h2 G" Q do-plots
8 [* K }$ m" @6 o4 Q& A l* uend% @, w) a. n D { X
to move-turtles: H0 j& d @* E, D: z
ask turtles [
! C8 }) D( q) S* q8 Y right random 360+ c: B S. `, L. D
forward 1
# E1 u/ S$ [+ @ set energy energy - 1. x1 I+ q2 ]6 \ B/ J; z
]
" F9 k [2 A0 H$ {end4 o. q2 J, B' H; @/ p5 P
to setup-patches5 `- q8 @% J% L
ask patches [ set pcolor green ]
" t3 \4 e' v. T- G9 Rend
# c3 [' x% f8 U' z9 gto setup-turtles8 Y) O- o3 G- C3 D! [7 n6 Y: f1 Q
create-turtles 100
$ _2 f: o8 K9 ^1 D3 g+ q ask turtles [ setxy random-xcor random-ycor ]. V/ _, [$ V- c: K0 {9 A) i8 L
end
, o! j d2 R3 {& Z% ito eat-grass$ Y( S1 y3 ^; d
ask turtles [
3 n0 m. v# r8 G0 j2 E6 O. u) L if pcolor = green [# V6 w( E% z0 Q( x4 m
set pcolor black* T" c) T# Z& [) ?8 T& p
set energy (energy + 10)$ q* I9 G4 E E$ M, v
]
T1 `; Y6 D; _9 M7 G ifelse show-energy?/ {: L% W+ G* H: o
[ set label energy ]
! }6 j7 \$ i" I" C- }6 t [ set label "" ]% L5 h" v- K; a& ~" @% _
]
$ ?3 o0 c$ i; T& `) Y% uend
: [; P. ?( H1 C# k: fto reproduce
U! T) m. }% v5 Y/ H' S; N H: C. G) M ask turtles [
% x, r' o( Q! H# H if energy > 50 [& b, }) ]# p g: l
set energy energy - 50, C" z7 v5 p/ U2 @
hatch 1 [ set energy 50 ]
/ d) Y5 O$ h2 {( @% E- ^% x ]7 d$ U; [% a- E a$ X1 _
]
+ S. I6 C: l- j8 pend
1 f" `9 k0 a, w% o- ^( Fto check-death
7 r$ \; K+ q: q" l; f! q ask turtles [
0 B. o5 a$ |, c: e. i3 ~ if energy <= 0 [ die ]
# i9 |- h X0 e- {+ n* Q) n7 E( F ]
8 ^* x6 Y7 y& X5 y: Oend
4 n$ W) j. w+ o/ n# L. R Bto regrow-grass% A/ Z9 }4 ^1 @3 k! r3 g6 L
ask patches [' h6 ?. Z7 }: b, {
if random 100 < 3 [ set pcolor green ]
3 u3 p4 x3 N+ O& `4 ~+ E ]
; H, `% h* o- A/ n2 y3 Kend0 V' s) c5 d* \, d$ ]3 [5 p
to do-plots% M: o* g8 d' H* I6 [, O8 l- T
set-current-plot "Totals"# |; d5 Y" g7 u: D0 }
set-current-plot-pen "turtles"
: T" ~" L, o5 A5 }6 o plot count turtles2 w; ?6 n# c9 v8 O* |8 l& C
set-current-plot-pen "grass"
/ ~! W" L$ i; C plot count patches with [pcolor = green]
9 n7 S. s0 [5 O' D0 tend9 B6 d, v0 C5 s- s
可是运行时提示no such plot: "Totals"
/ s9 B+ I0 n0 {4 ^ w" Werror while observer running SET-CURRENT-PLOT
3 A5 W; |7 b' g0 v* W9 |8 A+ n& ~ called by procedure DO-PLOTS" ]4 H; v+ x8 G9 _! g
called by procedure SETUP% I" |- q$ {7 N$ E$ g8 g3 @
called by 按钮 'setup'
3 c/ w n: w: H求大神解答啊 |