我编的程序如下turtles-own [energy]0 @0 }5 H7 ^: ~
to setup/ j8 G# g6 J! m" z3 r L$ L. Z) \( Z
clear-all' o6 N0 M0 x: R+ E
setup-patches
, v, e K4 W3 g3 W- Q* S) F, s& r) ` create-turtles 100
- J6 v2 z# l2 X do-plots: t7 }- z2 e! I+ v
ask turtles [ setxy random-xcor random-ycor ]1 }+ N# V* n' T N `% g
end( ]# o" }3 R3 |* m% d6 A
to go/ h* b$ o7 W: E f6 ^" O4 Y
move-turtles/ `9 d% X2 S* t+ e
eat-grass
( Q/ P! V5 @5 N" L |! V reproduce6 U) A, ?& A. ]
check-death
( m, {( l9 ~& Q+ Y: B6 V# q regrow-grass- P# g5 h; V% W# ?* |% E
do-plots
/ K! H' }0 A* v6 ]' e2 n$ q5 n8 xend# r3 x: N" U B L
to move-turtles" \3 E9 p+ t* o3 [7 w; s4 y
ask turtles [: F7 I/ \6 m! |6 m5 Q* w
right random 3606 S2 X1 `- Q8 H* u+ t
forward 15 @! @8 @3 b8 `( X) |6 e1 x. |* X
set energy energy - 1
$ s* q& @+ _ q n H/ o% ^ ]
+ S" N0 Y6 n3 v# w- hend7 ] |9 |7 z; i9 i8 g' k9 V! N, c
to setup-patches
" f' h/ C2 a. l4 c) X ask patches [ set pcolor green ]$ s+ E, K1 W$ J1 v4 M
end
$ @0 I& B1 U7 H/ P* U+ q1 e: Qto setup-turtles! W' d* K: Y- K; s3 v! I
create-turtles 100% `5 t; M7 N- p' ?- N" ^, U& k' z0 ]
ask turtles [ setxy random-xcor random-ycor ]6 S0 k1 @' t6 f! k/ c
end; r; a% e& Y5 T6 g5 K5 o
to eat-grass
7 I3 J1 }; y9 d |% _0 I6 N ask turtles [
. Q4 j$ _4 `+ E# f7 ]- O if pcolor = green [; c# p ?* P5 K/ `$ D5 S# u
set pcolor black9 f- B7 }3 C4 L( y( L+ v) M9 M0 k! F7 w
set energy (energy + 10)) u: E. {' d! d$ v) [% X" y
]% ~; S" y8 Q9 @; \7 W0 w
ifelse show-energy?. y" x9 a% r* F% m
[ set label energy ]- }7 p4 T: T. X, Y% B% U! D, k' d
[ set label "" ]9 \2 C. o- r7 c
]
/ _8 ]; ~1 y) q. n3 G" a N y: X. nend
1 |- f. X3 o" o9 W( M+ Y# cto reproduce
2 N3 K+ O$ @( T, c' e p ask turtles [
" [1 s6 l- d D) y' r/ g if energy > 50 [
% {9 t% s( V1 Y& j6 J9 }/ W! M( a set energy energy - 50
- e% @0 d6 g/ E J hatch 1 [ set energy 50 ]
5 |" X3 H1 [9 V- Z6 V: \ ]0 k; |0 W/ L4 @! c. H% u
]
1 v+ ]- e" @4 Y/ e. yend1 l- e1 |( E. F
to check-death
& Q, P8 j2 n2 O' F9 k ask turtles [
+ z& A$ ?# Q2 \7 I& H if energy <= 0 [ die ]$ Y3 @6 Q0 a' r
]" }4 L; m3 [ w( j6 R2 F8 E
end
$ F5 _! _7 P1 c8 C/ v- [) xto regrow-grass( w& W! A2 H' H
ask patches [$ k' ~( j7 e; _
if random 100 < 3 [ set pcolor green ]$ j; l$ N7 q0 J$ t" E
]# A* b7 p, ^- R/ C" b" B$ K/ X
end
# p$ |/ o$ Z7 Y: X, Uto do-plots. Q7 ^& d X# \" @* r) J+ S' n
set-current-plot "Totals"
4 m+ X$ [: k% x5 J0 p2 Y' q% L set-current-plot-pen "turtles"1 \# K! H: j: m$ k s( }: {
plot count turtles
/ @; q3 z1 a; I! M0 J set-current-plot-pen "grass"
3 {7 D% w% D. h' z& z* a plot count patches with [pcolor = green]
; U; o: u3 g0 |5 p& N$ Send) z* Z( J# c2 ~7 O) E7 {$ s$ c
可是运行时提示no such plot: "Totals"
" t8 D. q! h& n- n0 [( ^error while observer running SET-CURRENT-PLOT
% N4 V2 p2 @% W4 _8 y called by procedure DO-PLOTS+ A$ a7 s5 S, ~
called by procedure SETUP
' ~& [; R- m8 P* |7 C/ l6 g |& B called by 按钮 'setup'
% n, z# x, R8 }5 c) e F) [) u求大神解答啊 |