我编的程序如下turtles-own [energy]$ l8 r7 r% w z6 l0 E
to setup$ X2 X! t" s* x: h* R& f) H6 N
clear-all
7 ~. `0 W! s' h9 P3 T8 q setup-patches( t: y7 A/ w( Q, N0 D
create-turtles 100; Q' J0 U& }% c2 [4 N
do-plots) g6 _# P( L4 P
ask turtles [ setxy random-xcor random-ycor ]
) k. D( m6 o; W6 ~5 Lend$ ^# e, {' n+ {9 U9 V! u
to go
9 w9 ^2 Q2 o) T. T6 ~$ V% { move-turtles
" F* }- Q5 t7 C6 W eat-grass$ {0 L5 t c5 f6 W" l
reproduce
- A3 o5 w$ V7 z check-death
4 `: m' _" K! G/ s+ d$ r regrow-grass5 Z5 u8 Z+ C% Q9 e
do-plots
$ w" T, B* B( B ?( S# d, V) cend
2 h4 Y& o' F: `3 ~/ U( |to move-turtles% P' k- {9 ?: }3 Q8 `
ask turtles [' H% z# D) A5 ]& A
right random 360
5 o) x% d1 o0 [: r% C% [ forward 1 U3 v/ b, ^# C0 W0 _9 z& M; P) `
set energy energy - 1( H4 \2 T9 E7 U( q) {! `: R& E$ `
]
{( ]. f* c/ {4 `1 F- B4 D# |end9 I# w7 z* n3 B0 `9 J. W% m8 n$ `: v
to setup-patches
# M! C( u: F* \7 C ask patches [ set pcolor green ]
! z3 H9 j4 p, d' @. Qend
+ P/ @( n; d* D& U- Nto setup-turtles# p2 O% q9 s' @& a% v2 H
create-turtles 100! h3 u& `0 Q1 M& z' L2 v7 O, `
ask turtles [ setxy random-xcor random-ycor ]% R9 `6 R% w/ _- H" \) E( U
end) ?: ^5 B! Q6 f" B) S
to eat-grass+ j! j8 Z6 u Q7 U+ C! @- L9 n5 J
ask turtles [
; ]6 ~; w0 Z: j& { if pcolor = green [$ C- ~: b8 o! a4 K r
set pcolor black4 o6 A0 ^: J( c( m4 W
set energy (energy + 10)
% f# r' i Z7 K5 Y7 ?+ h# m5 A Z ]9 u6 J6 G0 `4 n
ifelse show-energy?
* K( d3 J2 t& v! m% A; x [ set label energy ] f1 D6 r6 O' V+ ?. r% @4 k& q q& V- l
[ set label "" ]
4 T+ R. N% l I6 j ]
: q% `. _' B# W& w7 g xend- e/ I) r V! f2 k) U
to reproduce
, }$ K1 T+ K+ f9 c1 M ask turtles [$ C4 H0 Z/ ^8 O' g; B/ D' h5 {
if energy > 50 [
' a1 K* I0 Z) X7 T1 J# C6 Z set energy energy - 50
. d4 @; ?4 g7 v/ h# k p hatch 1 [ set energy 50 ]
8 v- _* k7 R' s% Q ]$ r: ^ I/ \% k4 o- m5 S9 H
]
( f6 Z5 l' q; I* qend
# R, J3 o; o- J4 mto check-death' R5 s" }/ x3 w! }9 P9 J" u( L; _. F
ask turtles [
$ D' \1 f6 }# C if energy <= 0 [ die ]
9 l* ?4 E0 `! S( Y( [- ]( E ]+ O: f3 U0 z E7 m
end
5 v2 I$ B. r6 L/ D2 ]8 d: z& ~+ o9 K6 hto regrow-grass6 B4 E4 v2 o& E' g
ask patches [# d8 v2 l- n G9 y5 P
if random 100 < 3 [ set pcolor green ]
% x6 ~1 J" {" g. Y9 U% m ]1 V; b9 j* ?7 ^6 |
end
' g+ Y9 [( _" R4 q$ R- eto do-plots3 d+ Q3 T! n* X$ D+ C& S) U5 [2 i
set-current-plot "Totals"
0 A5 k' w5 ~% f+ E+ A) S set-current-plot-pen "turtles"
4 e! u8 U; v' X7 W( J0 Z plot count turtles
8 @0 c& B/ J% I+ {4 E set-current-plot-pen "grass"
5 C0 Y1 i0 {0 q* C1 w0 p& u plot count patches with [pcolor = green]
* C! B: b- B4 v4 L4 ?% m oend& a- u, C6 `7 o
可是运行时提示no such plot: "Totals"+ }8 l2 o, H0 f0 O O5 |
error while observer running SET-CURRENT-PLOT: N; ^' S6 \8 d# J; R) a9 u
called by procedure DO-PLOTS
: F5 ~* o" C* `- c% \3 w% m* ? called by procedure SETUP
" V) q' M( ]% x3 |6 i called by 按钮 'setup'
g9 R* I) ?: D* `; m( w6 L5 N求大神解答啊 |