我编的程序如下turtles-own [energy]; R2 ]+ r$ A t R% b
to setup
7 R8 U' E6 U! |6 D8 s4 v clear-all& ]0 [; ^5 ]) M( @6 p4 T& v
setup-patches2 B$ B# D2 @$ V
create-turtles 100
" P% g4 ~; n6 M. Z% W5 Z! _! F do-plots4 ^6 m2 f1 K8 Y; Q+ G0 v. Q
ask turtles [ setxy random-xcor random-ycor ]% ^$ k/ _( g/ y( d/ A5 A
end" k; ^4 p% z1 @) E+ Z" p- d
to go! j: K" ^& G( P o+ W; I% C" b- R% s" n2 v
move-turtles
! m! ]3 ^ c1 j. H) n eat-grass2 p( j+ g& @. d; a, a7 o
reproduce
/ L2 U2 i$ M2 _ check-death4 V7 s- i% n3 G- ^
regrow-grass
2 S" E i% z/ n! C7 e do-plots
3 ^- ] N1 I9 b8 D+ x9 kend
' F/ C- M2 M6 u! _2 \) {1 yto move-turtles
/ M9 q3 e$ i; g( R* V: @% }+ d( b9 C) b ask turtles [
$ D) n) [9 N9 s0 Y& C9 T right random 3602 H3 j7 z" o8 @, D- y( r$ A
forward 1
{: W+ f1 P/ m d set energy energy - 1. S; y& s; H' U* J E/ n' W
]. B0 b3 S" `0 l& x* Y
end
3 p( j, i; ?- G7 j' L1 Xto setup-patches
I$ n- h7 ]! y4 c ask patches [ set pcolor green ]
1 |* B9 C3 A- bend" i; \4 j% U0 P5 A' M% p
to setup-turtles
1 ^/ T* x% I+ P& t create-turtles 100
' E/ G, A/ z1 Y- I$ a) c ask turtles [ setxy random-xcor random-ycor ]5 V1 v8 P$ k& r
end
' Q/ q2 r0 G! W- Sto eat-grass
: a6 e5 J q6 y o$ ?$ Y ask turtles [% S4 N- C4 d; x0 l5 g
if pcolor = green [
1 r3 m% ?0 s# O1 e) F set pcolor black
: s0 _0 }' T" h# r$ }- O set energy (energy + 10)) \2 P0 O' g& b9 O ?) E, |: w
]' `/ s( _( N& c7 w( k+ ^6 `; \
ifelse show-energy?0 |* l& F/ r s7 i
[ set label energy ]; K! [6 k6 |& Q! M; a
[ set label "" ]
. o) Z# r! M( [# K% _- u$ X ]% R+ _$ G! D) `$ D9 h1 t0 @
end' G; }, p/ }% @4 l( M) [
to reproduce, N( P' r. S' s" V3 ?2 m. O5 M) P* G
ask turtles [
) i2 v4 X; J2 w- z if energy > 50 [
" X, }" w1 x5 H( x; v* ~9 X/ D set energy energy - 50
8 a. N0 d/ P N% P1 _ hatch 1 [ set energy 50 ]1 r, r# w2 ]2 W! i& X
]* \1 _0 U! ]: ?/ M5 b1 E& L
]
9 ~5 o n* x/ J$ k {end
* `7 I" X7 ]6 ]- S1 ~to check-death
) o* `* O5 d3 ~. u ask turtles [# O: ~( S7 x w$ I1 D6 U% u
if energy <= 0 [ die ]" e/ Z* n* }; n+ l: Y
]" p" a& c2 i1 }! P t
end- B( D. E5 C; k3 B6 i, A* N
to regrow-grass
! b0 n) x2 a- i1 \7 R ask patches [4 C7 N0 C6 `; K
if random 100 < 3 [ set pcolor green ]5 E% g8 [, ^1 [
]( _$ a+ a4 h3 C" E9 |3 _. O1 y+ J
end* U+ e$ K; X3 p& w s- s D
to do-plots8 Y( r2 ~7 b0 D2 C* Y( i3 y) D
set-current-plot "Totals"/ k) j# l9 A; j' Q
set-current-plot-pen "turtles"
/ m1 G7 L8 B d6 g4 x, F W plot count turtles H) |; x# I: f5 Q8 F
set-current-plot-pen "grass" i$ o4 V8 r( a2 ]
plot count patches with [pcolor = green]
+ J9 U2 t! B% {) L& N7 P5 Pend: [- Q6 `+ ~' l/ z ?9 Y
可是运行时提示no such plot: "Totals"
3 b1 M+ B8 v' a8 Aerror while observer running SET-CURRENT-PLOT
4 I4 J' q* O! f called by procedure DO-PLOTS
6 ]1 s" m. f6 y, Z. u6 Q called by procedure SETUP- R9 u; o- H) ^$ t: n# z) f
called by 按钮 'setup'
* I% A! u8 t6 p1 y$ V$ I求大神解答啊 |