我编的程序如下turtles-own [energy]6 D, s/ `1 u, X9 q5 _. _. a
to setup
- z( P# G* G. ~; |! t clear-all
# N0 L7 R: Y6 ]' L setup-patches! J( I' v- m! ~/ u6 S; M
create-turtles 100% F& i7 u! V' Q. z: S
do-plots
9 \* w2 ]% R3 m6 ?6 v5 d2 \ ask turtles [ setxy random-xcor random-ycor ]
2 b/ p, R$ d# \# oend
# A7 b9 z1 n& g1 y# r; Nto go
( ~9 e6 S- p9 F& q( X" E! q move-turtles
8 n! D" z2 H! A; U! z# {' g; H% ] eat-grass
" M% O( N' \: h; u reproduce5 P% j1 p# V, Q0 I) z
check-death
9 N! s( H8 I$ X$ O, s regrow-grass
\5 s* E9 ?! b' t do-plots
0 k1 y4 v6 X8 C/ h3 Zend
, o L' A/ u9 |# w/ g) qto move-turtles
: @8 M1 G9 _: o" m1 _+ \5 M+ T ask turtles [
8 s+ D0 r* f, M$ J, [7 } q8 P; r right random 360
- s+ W) k0 ?/ U+ J6 L4 I forward 1
# ^ D: `' |& H' W6 \0 V' W set energy energy - 1( T3 L; d: W. P3 \, E
]7 n. j7 z0 m! N6 ]
end! q3 c: H$ ~& q& C
to setup-patches, g+ {# P3 [, z' ^% u
ask patches [ set pcolor green ]
/ S& Z6 Y* J, u) B$ Dend
7 ]( G k/ T- k7 w; v; h/ Qto setup-turtles
' v$ t+ G: t4 f5 a$ i r create-turtles 100$ y6 B( Q# g ]
ask turtles [ setxy random-xcor random-ycor ]& `" ]' a2 L; G
end
; [2 K: S2 r- X9 N. j( Rto eat-grass$ V+ ~) l. U- c" }6 L- |$ d
ask turtles [
0 B9 L! X7 u2 ]( J if pcolor = green [
. W) K; w. n4 G. s set pcolor black
* G1 K" z' ?( s8 K( C* q4 @ m set energy (energy + 10), v2 g+ G$ V+ V! \4 m
]( ~$ t% R* w# N h' B
ifelse show-energy?
4 L0 d( D! ], w1 g [ set label energy ]. g9 n1 B$ b# T5 Z0 [
[ set label "" ]
$ a) }2 x. f0 `' m ]- C, ]4 q) g! m, Q) l3 Z- Q
end+ r- }6 X3 r- \1 @% ~! |
to reproduce
, c% }# c+ ]- r8 N, E ask turtles [
' B, ]" h6 w/ E' i9 G% C' O( s if energy > 50 [
6 g; ^+ h" J1 A set energy energy - 50
# ~1 V3 W! q, l7 g- t hatch 1 [ set energy 50 ]+ M" N" j3 t& W! V
]" E9 y' N) f% ] K
]+ x4 A/ O1 C7 Y$ y4 H1 C+ _
end
6 z( l x9 Q9 `; X0 g0 Y( A- Tto check-death/ F3 c) q) K9 `5 g# A6 d) E
ask turtles [
: Y( H7 ^2 I/ o if energy <= 0 [ die ]4 q0 y* G6 C* J- V' k+ U$ f
]
7 B( P- \8 m1 E, J( gend
+ Z) x5 h# U4 ~6 G: z2 i4 Nto regrow-grass
" M/ Q* `& c* t: [3 e& o% u7 x ask patches [
' V" A4 O6 }- [5 l1 Z" h if random 100 < 3 [ set pcolor green ]; J5 m( g5 N. x4 w- T' K
]
4 m) G6 B% ?- W+ _8 P! Aend: s, u* i" D. X7 @
to do-plots4 f6 N$ H( g: X0 P; e% t7 L# D
set-current-plot "Totals"4 P0 b8 I3 i1 S- @$ Z. p2 r
set-current-plot-pen "turtles"
( f2 f: J6 K3 Z! N' d5 ] plot count turtles, {, G( o% p9 N
set-current-plot-pen "grass"
/ W& K$ K' q2 c; L plot count patches with [pcolor = green] ^" Y" I0 f* \# z5 l2 |& `
end: F3 I$ w5 i, `1 O! M* m
可是运行时提示no such plot: "Totals"
! D( l% ?) K, k; _$ D& t7 z. j3 }error while observer running SET-CURRENT-PLOT5 G; W& t/ f+ I* o# R$ c
called by procedure DO-PLOTS
8 e% ]3 |+ S5 B0 ~4 O( N; m* B called by procedure SETUP
1 l$ A' A! g% ^( s" l- c p0 v called by 按钮 'setup'
& |8 K# a5 B6 d `求大神解答啊 |