我编的程序如下turtles-own [energy]% u+ W0 T4 E5 U" }% F
to setup
" C# j" l, _5 V7 o/ \0 u clear-all1 A: c! }+ g, t& X) u; P
setup-patches) a1 M% V6 x+ S
create-turtles 100% U# C7 F, U- F) D' r
do-plots
/ V4 O) r6 i- M0 |: F ask turtles [ setxy random-xcor random-ycor ]7 D: _# e6 G: d$ ]; b3 x: e
end
* o* ^ K8 D; Eto go
% t# L: M% i9 H' K" p3 C2 f move-turtles
! i$ U; h) H, I: o( B eat-grass
% X* R1 O/ N- h% d" D% y4 N' o( ? reproduce7 l3 }, K( h0 S8 d$ _, f
check-death; ^5 e+ m$ U2 X% T( X9 q
regrow-grass ~5 \+ \/ n' ^+ J
do-plots8 G+ R" Y% F/ s; e& [: y$ [
end
0 `# k r" W8 [1 j0 N: _2 m$ `: Oto move-turtles% ?. J1 Z, D4 b& @
ask turtles [5 P; R# o% R* o/ D- e( T% j, K2 j! K
right random 360
/ A5 M+ @3 T$ o1 _4 u, r forward 15 _6 L4 `0 v( a, x. ]; }
set energy energy - 1
1 X3 m: J! \8 v- { ]
6 Z8 C8 o# B0 H: U5 w9 M! E" }end
5 n9 y& H* C; t) Dto setup-patches
O! n5 j$ Y! Y: ^: R8 {" x ask patches [ set pcolor green ]
3 \+ F; {3 h s$ z# F; z# Mend
+ y% t0 Z5 J' ato setup-turtles
0 Z7 @; g% G* f1 T; `1 g* N create-turtles 1006 [; V# f) Y' y8 H
ask turtles [ setxy random-xcor random-ycor ]& s+ l* K) u+ I, t
end
1 v' s5 U) Q/ m* lto eat-grass- F. Q% J7 x# U/ z
ask turtles [# Y$ }+ \& `2 b# Q
if pcolor = green [# r9 M0 f' j; m. x$ }& P6 M
set pcolor black
; f& f9 k4 Y" C! V2 _8 ? set energy (energy + 10)
* @4 Z, j, _, K: ]; j ]
# F$ a1 U" H- {+ m0 m1 r# I ifelse show-energy?* y x4 ?6 f! E: Q& Y! t
[ set label energy ]
) M6 g6 B/ N! f# w- x9 z2 J [ set label "" ]. y; m' }! J! E% m E% F4 e. t' z) n5 |
]
5 p4 k2 z3 M$ e4 T# W5 rend
4 ^) B: P6 X0 b: Q2 |. _7 ^to reproduce& c3 t* `9 I; q* S
ask turtles [$ t( p7 J3 c' Z7 K5 {
if energy > 50 [
+ Q% A8 B! L7 y! M3 b set energy energy - 50
& Q% m+ I0 r2 Y( E4 v hatch 1 [ set energy 50 ]
# B7 U* ~9 a1 o ]
: I+ O2 W. Z* ~6 y3 ~+ w, j& q ]
+ p3 r( v3 m" Y! ^1 a9 cend
7 y$ ^$ [( Q' P1 Z- p( f7 ato check-death; s- k0 ^, Q" T6 ]4 ^ x5 H* S2 F4 U. y
ask turtles [8 Q* A5 K* L$ V9 M$ n7 E$ @' n
if energy <= 0 [ die ]
& R# Y$ e% N: t! k; p; @ ]
6 D% U( U& Z6 ?; d2 z( Xend
9 L" H6 W7 o- Q. t$ {to regrow-grass
6 T0 f& k+ @' R+ Z5 T) C4 a8 P9 A ask patches [5 v% E) A6 _# o0 p4 G
if random 100 < 3 [ set pcolor green ]
3 ~, t/ [' k- X: Q! ? ]
; f$ H+ n# j( j% x# E* h* U0 N0 mend. g$ e0 Y2 p0 y0 q$ R2 o+ s
to do-plots
) C0 u& t: t a- n$ } set-current-plot "Totals"
h% ?/ c2 V# x F4 _- x6 G set-current-plot-pen "turtles"
) S6 |4 A1 I1 \ plot count turtles
1 \: ]5 y' v3 |/ B) f5 e: Y, I6 p set-current-plot-pen "grass"2 N1 T6 m9 J+ z& r
plot count patches with [pcolor = green]
t Y( G& h2 T0 ^end* r% T) L7 Y9 }- }- l
可是运行时提示no such plot: "Totals"! s( y( G9 R9 ?& @ Y0 q
error while observer running SET-CURRENT-PLOT
: p& @1 a; p( h; K4 m called by procedure DO-PLOTS
- J, h3 l% k$ g1 p2 t called by procedure SETUP
0 d. D8 J4 o& t% Q called by 按钮 'setup'
. A# K* |4 O; w5 A) I- {( |& k求大神解答啊 |