我编的程序如下turtles-own [energy]9 H" z# v( Y# d; _5 e1 V1 `
to setup
* D; R o! c9 [% d, t+ ]' x6 V clear-all
/ s* j4 ?& z) P# W8 C setup-patches
0 V( F/ F, T$ W( X% b; _( ~ create-turtles 100
' @6 `% e8 t& I( z( D+ T do-plots
+ ]7 m: z* Q/ [9 e; F/ S ask turtles [ setxy random-xcor random-ycor ]
4 ?- f. ?+ @: M4 k i! ~& e& cend% N, I) Q$ B; w$ l4 Z
to go, y( y' D3 V3 x; H) G! b( R
move-turtles/ O! X! d2 @% n0 i, w( e0 s
eat-grass9 @" O% @- ?8 H
reproduce
$ h$ m& v! V* l+ u' K! ? check-death3 Q* k! e2 ^2 D0 v8 q- ^* g3 p
regrow-grass9 v. j. V# q7 U6 z
do-plots
+ C) Z: ?% d: V- I5 p0 fend
2 q, _9 v3 i, `' ?2 z$ B3 ]" a8 ^to move-turtles
2 W$ v* t: U3 U" R' i ~& V$ I7 v ask turtles [& F4 ~) R; k' B7 i6 u% ^1 Q4 \2 e
right random 360" o/ G' [' `, a) r8 X3 m0 C. ?
forward 14 Q8 `3 C, t9 H. I, a! q3 w
set energy energy - 1
( l5 a; Y) W/ _& ~, r$ M ]
! {7 z6 c1 C: t& z7 zend
/ N' W" U$ E9 X; c/ x3 O4 mto setup-patches: d5 ?+ l- ^5 f3 C- L: G! P/ q
ask patches [ set pcolor green ]
8 A u7 B$ |) o1 y% o: i3 |end' w9 R# n: I" M
to setup-turtles
" q5 X3 T0 L( t7 _" m! y! f( h create-turtles 100" B3 g/ f7 R* C! o
ask turtles [ setxy random-xcor random-ycor ]' l* F" h0 R- N& x9 D3 e( M
end g* v7 _3 ?5 S2 J6 r
to eat-grass
: C% H6 q% I# t5 N% l, u5 ? ask turtles [. T* Q) W: Z8 x) b, D
if pcolor = green [
4 F5 j% X! y! A/ P6 d set pcolor black6 u, {) H1 u' f i- ^
set energy (energy + 10)
$ x; U" j7 S! t. n' [ ]
( n% B, b% W5 L+ W$ y3 x* {% t ifelse show-energy?
0 T% E3 |9 Z( c9 U7 O/ H4 }5 b: ]1 [$ \, }2 m [ set label energy ]
+ c) ~; d; d$ P+ S2 J [ set label "" ]- }) A+ J- j: T2 S
]
" R; V! h( J7 j8 k1 ~' Lend t, c* I6 C3 c1 S) Y! R
to reproduce
- [/ {- p3 [6 J& Y" i- w( K# g. d/ t ask turtles [" q! n- v) ^& s
if energy > 50 [0 q, t7 }8 g9 J5 e
set energy energy - 50: W# j4 J! p6 ^
hatch 1 [ set energy 50 ]
. v2 g$ @$ i$ l- e& @9 O! t ]) \0 L: A {; ?6 Q, p/ S
]
5 v3 T% }+ f2 q* A5 eend/ F! L/ v+ }2 A! Y! \% D1 d& J
to check-death$ t# Q5 B8 {: ?! W& E& }
ask turtles [4 }% v: y& M! f) W. z0 h+ v# ?" _- i
if energy <= 0 [ die ]
9 O# j" T4 g7 B" {" B5 Q1 Y: G ]2 ?9 q; t5 f0 J3 Q6 T2 l0 {' S3 A
end
+ B2 \* ?7 F* A) f* Q0 z2 D/ F# ato regrow-grass8 C3 D& a$ e" d
ask patches [
% O1 [$ K) ~6 T! T if random 100 < 3 [ set pcolor green ] c! w$ Q! s: W2 @8 G4 @4 x
]1 k7 z% b. u5 }! a# {( @
end
7 q; L' A2 L( L2 }; x0 t* A- Uto do-plots
7 f! `- v1 \( E/ v* N set-current-plot "Totals"
" U' w) I5 I/ |; E set-current-plot-pen "turtles"3 Q& H1 U) i; U- d
plot count turtles$ i; u$ J1 b; u/ E: }* {) \; k9 F; m
set-current-plot-pen "grass"4 I0 v# `* i- D# j `
plot count patches with [pcolor = green]
. L) i3 |; H/ _- U+ D2 A( h- Aend! D6 L8 \; i) l8 G7 f8 C
可是运行时提示no such plot: "Totals"
5 a0 M& _+ h" Ierror while observer running SET-CURRENT-PLOT- i6 `3 b7 x$ z) g. P! w: v
called by procedure DO-PLOTS' f$ _7 k2 h0 A; d
called by procedure SETUP
X; J' O2 C* h0 g called by 按钮 'setup'
# `# M" W0 w: [' v5 D求大神解答啊 |