我编的程序如下turtles-own [energy]
7 q. g' z, f6 }; hto setup N, [3 t6 V6 b; f: G
clear-all1 U& v5 f8 k0 d/ ?5 W
setup-patches
' L; \# T, R- T ~9 a- y create-turtles 100# d* W! v0 g* V0 A! t' A
do-plots
0 d! x3 S0 [5 g6 |. w0 @$ ] ask turtles [ setxy random-xcor random-ycor ]) [4 j; q! U! G5 ~9 i
end
, X+ w4 ?& n6 {4 U$ P2 Oto go6 z3 c: |3 g, [3 d3 S: G
move-turtles
0 C. D4 I& ?) W3 u4 e- _& {4 ^- ]: t eat-grass
9 N* O. f n# a reproduce. Z) b0 Q3 j* w
check-death
# a/ `+ e8 q; ^0 [( v6 Q regrow-grass5 L4 U0 N8 v& K4 w0 n
do-plots6 d9 N: E# a3 ]6 d$ c) c/ M
end$ I8 v! p- I7 a! `# U3 N
to move-turtles% I# B$ {: c8 u: J9 u2 A
ask turtles [& J: D D5 k t1 v* f- j, j
right random 360/ @7 B! k( v0 t( o6 L+ s( F) L
forward 1: F$ S' u' W% W$ l7 ?: t
set energy energy - 1
! T5 M/ g7 e5 C9 t |3 x ]3 t8 F1 w! i: V. @9 w& K' n
end; ^* ^# a N0 }8 S7 P
to setup-patches2 c8 U9 a) d2 D; g4 W
ask patches [ set pcolor green ]' V. S! z( r4 t9 P8 \, ~5 i! j4 u3 }
end3 s! X) O' O! J
to setup-turtles8 X' }) T) y! r: s" }
create-turtles 100+ y. z# G! b( P$ J2 v+ U' B! U
ask turtles [ setxy random-xcor random-ycor ]
+ Y2 P6 W: V r0 @4 W( z' Zend
3 Q9 R6 f3 c4 {to eat-grass
' Y. Z6 P' H6 C! ~ ask turtles [8 }* G( }: Q$ b
if pcolor = green [
* R5 j/ i6 n6 {5 W set pcolor black( i% H$ L8 Q- o! _) L* D; c
set energy (energy + 10)
* C5 @2 Q3 W& W' y' e( Z ]" a4 x5 {* c, d, O8 @4 O, y
ifelse show-energy?, C% y0 ]: b5 X E" W, Z r, q
[ set label energy ] q* h0 {# j; w! x# Y2 v0 ]. y* ?' A
[ set label "" ]
( f6 j$ q2 u6 I ]) C. @1 z! ]9 K) X# U
end
0 [- i; D0 Z" G$ ^0 }to reproduce' K, O. J' y& Q; u: L, r
ask turtles [
4 M/ X2 k0 N6 B& Q% d c if energy > 50 [! u/ `* R, v4 g
set energy energy - 50
* X/ z+ [% ^$ S0 ~9 O hatch 1 [ set energy 50 ]
1 f2 f1 p7 ~2 ?) p6 @+ K* {- R ]$ _! e# b0 C+ |0 i
]2 a" q3 y* G# b* _0 ?- C9 M
end( U) B9 A! O3 e# j
to check-death" o3 l; D! w" j# i( e
ask turtles [0 A* K0 u+ s6 r+ }6 @. O2 O; k
if energy <= 0 [ die ]
# r6 @" L6 ^4 H, U8 B; m ]
, X) s. O& H, T+ ^ A" Q; M* e$ Wend
8 r0 z7 r8 P, O$ e, ?4 r$ A6 N. zto regrow-grass
1 R9 }+ v' }& d ask patches [4 ]. W! E9 F1 p6 R- I" k7 Z
if random 100 < 3 [ set pcolor green ]
9 U" S1 \* u& ?/ M Z' G ^ ]
5 T# f9 C1 ~7 E# u6 B7 Uend
& V- g. _) O; E" V3 }! xto do-plots! C+ |3 W9 ]5 c
set-current-plot "Totals"1 o) `' Z4 x- r! K$ ~
set-current-plot-pen "turtles"
2 m; t1 f) P" r' ?5 l- ~ plot count turtles" _' V6 E& v( S) }4 J/ o
set-current-plot-pen "grass"
: W! s" F1 h% R+ g( h4 e plot count patches with [pcolor = green]6 D+ F: K* \6 p
end0 D0 a6 W( w# c/ m: h
可是运行时提示no such plot: "Totals"
3 I. b1 N1 r6 a- p' {9 ^error while observer running SET-CURRENT-PLOT6 j- t% C- A& ]! x; n7 Y' h2 m/ t
called by procedure DO-PLOTS1 ]& V! P& d- `) g- a
called by procedure SETUP) r9 f' E, k" c! U% L' m& s
called by 按钮 'setup'
0 w/ i+ I7 |; t( d3 v p* D求大神解答啊 |