我编的程序如下turtles-own [energy]
# F1 x* t- `5 @: t$ P5 Fto setup6 ?& b$ w8 ?8 [6 |
clear-all) G# r, ]$ k& j6 W- `
setup-patches
% Y: S8 e; o8 M$ T+ @' ~' g% f/ m. P, x create-turtles 100$ {5 Z" y1 N8 u. f/ ^
do-plots% w% K4 p/ ?# d2 C1 D
ask turtles [ setxy random-xcor random-ycor ]4 l6 ^3 o; ^4 ?
end# x+ b4 p- a0 K
to go
. `6 E7 O4 Y& Z( i0 { move-turtles
1 E8 ]$ }% Z: f/ b eat-grass
: a" K7 s) W% W6 ~2 O reproduce
) I4 q6 ^) q+ P0 D9 |* o; U check-death
. D' [7 r9 G& e7 m/ k regrow-grass) Q) m, A( g, n. T" r7 t; `/ I
do-plots& L9 z9 q8 A* Y7 I5 M
end+ B* Z% Z- D% q0 e. Y
to move-turtles
. f6 y# Y) V1 I! a ask turtles [1 S/ D7 B: K; y6 g
right random 360" t; c; w( ~5 a9 W/ I7 o& ~% {; F
forward 18 p& b9 Q' O; w8 P5 B
set energy energy - 1# Z! m2 J! ]4 q! A: C2 |6 A0 a& }
]
: y5 n; |! m7 vend. L& s+ i+ \& X! S5 v8 y
to setup-patches
: r: {' K' h7 F+ i. C! }9 o ask patches [ set pcolor green ]
/ X% t: A3 C' J* Eend, ?2 Q6 M5 k0 U4 D
to setup-turtles
" w5 H J1 m6 t+ T1 Q/ i& J create-turtles 100. ?# U+ n0 _$ l; }1 a+ p7 L7 U
ask turtles [ setxy random-xcor random-ycor ]; V' t8 U! H. B0 z* h2 I
end
1 k( q4 t5 _ K/ T+ B( w9 O5 T3 cto eat-grass" Q( S4 ~4 ~. D1 j2 C3 J, b
ask turtles [
: o1 R( Y$ Q2 _0 s8 F if pcolor = green [0 h0 Q% y) H- d" t
set pcolor black2 ~+ L% m/ q; ~
set energy (energy + 10)& t& B4 k+ H$ M7 N! f
]+ w' m4 @; r* P" r0 ], z
ifelse show-energy?
' n+ ~" o. C9 L# N7 z& u" N [ set label energy ]- m' y3 @0 t2 S% e/ V3 v' z- }
[ set label "" ]
. Z$ X* {% M# v% y1 p" d6 _% ] ]) S, Z& W: s$ |# e/ z8 e1 R
end
1 w8 a8 a: V3 P$ j8 E( Wto reproduce7 s4 F3 U) ~, P U; I3 P# \* Q% a
ask turtles [
2 Y [* ~8 J" v. a8 k2 N5 I if energy > 50 [& A$ r' g2 n0 Y$ p& T) F
set energy energy - 50
; x) Q% d( l2 F hatch 1 [ set energy 50 ]$ E) [* c. f% Z+ H7 r, q a; I
]
& \- v2 F! c' V0 r2 s" C8 G ]
$ ~. m2 B" m( j6 ^" ]* A Uend
& X8 P; E6 w# rto check-death
9 L* x, w) `- U+ T ask turtles [
" x" f, y) b4 h7 b( x if energy <= 0 [ die ]
: ?* e, _ Z# z. H8 G2 x h ], h% b' U2 U/ A, a0 D/ t6 p& Z% x
end1 k7 i: M+ g) W0 i" [
to regrow-grass
' a% }4 h3 Q2 V# C! { ask patches [/ f: d3 s i0 z
if random 100 < 3 [ set pcolor green ]! @+ b- M! ]3 W. R3 p4 {" [
]
4 U, {/ |1 W1 k' M8 iend1 j0 J+ A+ V" ?" l
to do-plots, y, V; L' Y6 E& N4 {4 N
set-current-plot "Totals"0 k3 O! e& E7 D* `
set-current-plot-pen "turtles"
4 _! z+ X5 K- K; q( v4 c plot count turtles% z# L/ k, O U8 S( J5 v/ J6 q
set-current-plot-pen "grass"- g+ {+ h/ g% U. Z. k
plot count patches with [pcolor = green]- b9 T# f+ N# J/ i" l
end
, C1 M% E+ C6 G: k p可是运行时提示no such plot: "Totals"6 B. c; H f$ c/ B
error while observer running SET-CURRENT-PLOT* @9 r/ F1 ~2 J. L7 _5 y% N
called by procedure DO-PLOTS
' d- v: }; W2 d! [* a" @ called by procedure SETUP* Q7 {8 c6 P' c6 v7 r6 d9 W& j
called by 按钮 'setup'
+ ^) h6 L3 |+ F) H求大神解答啊 |