我编的程序如下turtles-own [energy] i! T+ C( h7 E. a/ x
to setup
" A2 x j3 I1 x) y& |3 M7 _$ ^ clear-all" I% x9 V$ K4 n4 \0 d+ B0 }3 F+ y
setup-patches
m& P# _8 u" I$ Y# r create-turtles 100
) {, ^9 U& l2 V- Q/ u: \4 S do-plots
: g8 S0 ?. f+ P ask turtles [ setxy random-xcor random-ycor ]
, D: W+ [# i+ g7 Z6 L( `+ oend/ N9 z3 l( R! y6 j7 u# Z2 \9 s1 ^
to go
/ w6 d" b$ z) l. C2 ]( Q. [/ Z+ J2 H move-turtles
* b! o9 I$ k z eat-grass& O" H, M/ K4 o- f
reproduce4 M% j ^+ \ {3 |5 {. `
check-death
) b" B. W* J4 N0 k regrow-grass
! ]" ~" `0 E( p: s% j do-plots
1 e; u& A$ D. }- u0 Fend4 R' [) q) M6 X6 V2 R" B
to move-turtles, x- w# _& \9 v/ Z# N# h' r- d
ask turtles [, D, ^2 Y4 ]* G% a! U9 U; L' u
right random 360
9 G9 j- m6 m, z/ Z! L" r forward 1
4 @/ i1 S! R. n# z" [, B set energy energy - 1
4 S8 p# `! c2 V: ]/ i) ?6 Q8 L2 k ]
1 x# q+ T5 x/ Dend* y3 u5 m7 D2 E. L9 I& y
to setup-patches
0 k8 e! G1 N% @& |: \& [ ask patches [ set pcolor green ]
5 |* D1 l4 R. @, o; l5 O/ zend% d0 C* R/ r( w. P) i9 P$ C
to setup-turtles
0 P3 C! o- Y5 N/ c0 k6 b0 q4 r+ { create-turtles 100
/ J |: I% q3 X" A& H ask turtles [ setxy random-xcor random-ycor ]) H$ n0 {: \% I; I
end
' c3 q! k; ] D7 eto eat-grass2 M: R/ }7 D( B) j. j& F
ask turtles [$ [0 w1 Q! R3 y
if pcolor = green [ f% Y4 E. B9 G5 O
set pcolor black
2 R- {. n; j$ v' _$ X set energy (energy + 10): x$ Z- c2 o2 T5 @0 j7 z, T
]. h" g2 e9 c N6 J* A
ifelse show-energy?% ~& g# n% H1 L
[ set label energy ]8 K# G8 d* f c( h1 P; t# f
[ set label "" ]
- L" c, y M( N/ ~1 S, q ]
8 V4 `# z8 b8 D0 I) mend
1 ` g7 W, U2 k- |, uto reproduce
, g) ~- R( @1 I; X% W ask turtles [& ^' B# Y7 D& x4 c! G
if energy > 50 [; V3 g( [% u7 u, ?1 b' y
set energy energy - 50
H7 g0 v+ e% N7 _ hatch 1 [ set energy 50 ]2 P. B+ Y2 ~+ C. K. G" @: ?
]0 A' Y* C- z( d9 y" m
]
" ]% s: F9 D0 u$ }" j& v. o0 C2 Xend
3 o# `! p1 C& z6 hto check-death* h C3 v2 [* n4 k& `
ask turtles [% o: g2 w9 b3 R. Z, x
if energy <= 0 [ die ]
' V" X' G$ Z8 z& J! _' s/ V ]
/ ~4 s* g) F- d. B3 |) h, Send& E$ \3 f) [) R
to regrow-grass' J2 j2 @; ~6 C- B
ask patches [
; b' i" P0 E) @1 m1 k% U9 I4 q( w if random 100 < 3 [ set pcolor green ]
, W8 O+ N4 K4 u ]. a$ ^+ I: [! X8 U
end% i: b/ ]' J4 m
to do-plots
+ j. q5 b1 J3 k r set-current-plot "Totals"/ |: X( H& t, Q$ t
set-current-plot-pen "turtles"# [* @8 K2 f4 F: o4 O! Z; B# `
plot count turtles
, P2 y, L9 ~% W5 ]3 E+ x4 `; d& A/ L set-current-plot-pen "grass"+ h6 J9 n$ ~8 e8 l( l( B" l8 A
plot count patches with [pcolor = green]: S: d j3 K, @( z% I# N1 F% B1 C
end) ^: M, L7 \% G+ j9 Q
可是运行时提示no such plot: "Totals"! g- E# G' Z0 U$ a- M, S6 o. Y
error while observer running SET-CURRENT-PLOT
* ~' A& G( U2 K4 O& P: S$ k called by procedure DO-PLOTS
4 V3 c' D- K' Z called by procedure SETUP% C5 W {4 b0 u
called by 按钮 'setup'
3 K, }$ | R: k" Z/ r求大神解答啊 |