我编的程序如下turtles-own [energy]$ F! J0 P7 y# W! E
to setup9 \9 I/ W* P4 O& p# W; _
clear-all
0 b: _; x; n) p0 B setup-patches
) A c# I5 b& e$ A/ t! {7 X1 W create-turtles 100
/ U [3 `5 O. ]* {& n7 ^: q2 ? do-plots" I4 ?6 K$ Z$ e2 o/ p3 s' P. b, n+ ~
ask turtles [ setxy random-xcor random-ycor ]/ ]. B" [, r3 D: w2 W" u* a6 g. K
end# _. b* h5 X( Q* S' |; ^+ ~
to go
- |$ i. E4 B0 X( f! }$ K move-turtles* @- K0 N$ V# V% J
eat-grass8 T2 H. f I7 K$ @
reproduce
- b1 e k7 r# Y1 ~: |8 {3 D check-death
4 ?- ^9 P/ u* y; u6 h4 E regrow-grass+ i1 v& c, u( s! a$ V: L
do-plots% i" F. z2 l; _. c$ ~# S
end
9 y( Y: b- k$ S- v+ q- ato move-turtles1 X6 {7 c' A0 _4 T$ C
ask turtles [% M. f2 u1 w7 n6 `3 n( ?, j
right random 360
: _& b x' s5 C/ e$ \& B8 u forward 1 m# w* L4 i, ?$ z
set energy energy - 1/ ?1 ]3 x; [7 a: x6 \
]
' r- z! ^8 @: E- t, Kend) q+ `% m* v$ o
to setup-patches0 c; I7 V# T# Y& `
ask patches [ set pcolor green ]* A! r9 G2 h4 }' e
end
1 I q# m U& D1 C5 d5 Eto setup-turtles
$ c% e( p' q; C' N; V1 I" u/ }$ _ create-turtles 100
. g1 R; I' t8 W ask turtles [ setxy random-xcor random-ycor ]
4 @3 B6 Z, R, b: A) R. }1 d" S$ ?end; n5 ]7 K! v0 S. g
to eat-grass2 Y9 x* q3 K& Y4 r
ask turtles [( F( t. ]6 c6 f* Q! q4 R
if pcolor = green [
( Z4 K' I3 {0 n6 H: T set pcolor black
$ U) K/ h" K& N( z( A( z' l$ p set energy (energy + 10)
4 g* [! D0 R8 } M8 h% w: K- P ]% v; t$ p8 m- I' h" y
ifelse show-energy?% I( {3 \6 }6 M$ g+ V. a
[ set label energy ]5 ~' d8 S# f/ s" K L
[ set label "" ]
3 P2 I$ e+ k/ x( F c | ]' d, E ?. g2 I. r
end5 ], z+ i6 ~! k$ L3 V
to reproduce
Y2 s, g' g4 E+ _% g ask turtles [# ^# e( p: ]& j3 \! z6 J, Z
if energy > 50 [: g [, t% q, z
set energy energy - 50# d6 ^9 |! \% B% O( z
hatch 1 [ set energy 50 ]6 q8 C" S% u% L/ `$ N0 `
]0 \9 W0 A( w% E1 w' j
]& l# S. |- V4 c% u3 G9 L
end B, G& T4 A: Q3 ?: q2 L
to check-death) D) A7 b8 W+ ^% i S
ask turtles [
# o( S% N4 `( E4 q6 Q if energy <= 0 [ die ]7 i& g, R: t3 i p3 f
]6 E' d( h7 k: ` o
end" s( `1 `! J! ]: |4 j% a9 @0 \
to regrow-grass
& F6 T. ^! R5 y/ R ask patches [
, s- @4 v: c. A; t if random 100 < 3 [ set pcolor green ]5 Z4 m5 K+ E% q# `0 O
]/ S3 `( w5 z% d. }
end, I* _1 b) X& ^4 G9 W
to do-plots
7 {9 y4 s2 ]+ p" [& K% W set-current-plot "Totals"
' D3 X/ j$ j: I4 g6 ]! [ set-current-plot-pen "turtles"1 q6 x M9 P2 q8 }3 f2 N
plot count turtles% D9 N1 A5 d% [9 G: R! m. s+ B
set-current-plot-pen "grass"& i/ P1 D: x' ?* ~7 q9 y
plot count patches with [pcolor = green]
8 y. q% N# }; \* D5 L5 ~8 i/ X4 gend
, S% f. N9 j1 {: o- ^可是运行时提示no such plot: "Totals"* u0 S; x+ h2 O; G3 z
error while observer running SET-CURRENT-PLOT
. {1 O- h8 x( A called by procedure DO-PLOTS
3 Z7 ]# R$ v8 c i called by procedure SETUP
7 N+ Q; [( o# F$ j- W& A, C: A called by 按钮 'setup'
. M8 h) R* Y. X求大神解答啊 |