我编的程序如下turtles-own [energy]& S; Q# S+ l% W4 `$ z
to setup
2 C4 H7 d- C l4 Y% Q4 i! W clear-all
1 W" D3 Y1 C: h1 m: C( a2 {* ?/ E setup-patches
, d1 H" _6 W# Y) u( R C7 B create-turtles 100
( i6 ~" g: n. l$ T7 G) \# o1 x do-plots2 J/ z9 d" h5 m* s% G) F
ask turtles [ setxy random-xcor random-ycor ]
' h) E$ \/ d& q7 W" hend6 [ c4 m. w5 f1 L2 u" O9 R
to go
& H, t. |3 D' |; }6 `- {9 R0 U move-turtles
3 `: M% t6 k, Q8 L# L eat-grass) i2 F8 A; B7 y
reproduce8 M* [' X9 q- K: O
check-death4 d# R6 Z2 Q. j/ p: B( x2 T
regrow-grass
! ?1 N% Z# I0 k7 P& `( ~: m, y do-plots7 p I# t9 R5 Z% `5 c
end
* U# F, {* m2 l2 f5 i. Nto move-turtles q9 w6 V; t! b$ y: ?$ s4 F" p
ask turtles [$ `8 E& M9 D6 G+ }9 Z J4 _8 D3 a
right random 360
1 ^; V( r7 U% A! L forward 1" t; |, K+ H6 {1 `5 D
set energy energy - 1
, ]( V. n: j; ^7 Z6 j ]( Q2 @; I( R! v/ ?( J) C f. g* L$ D, H
end
0 i: [! I9 F" p; rto setup-patches( n* u0 b2 D) X& |& @, E; T/ t
ask patches [ set pcolor green ]
1 m# n9 I m6 b5 J1 o" E, F. |( }8 Y! e uend
* L7 p4 u, j6 g% Z/ \' ]to setup-turtles" f7 R! N) P/ Q9 M- t$ c
create-turtles 100
) h; m0 Z4 z d9 E5 ] ask turtles [ setxy random-xcor random-ycor ]
; [: p9 ]% d6 Z& k$ Tend
" S/ v. q2 n+ M* }8 Z5 q, | hto eat-grass
7 A' K+ X( E; z& j8 F ask turtles [' j% \) w2 c; d0 p) p( u
if pcolor = green [8 S6 G& L8 p" p5 |, J6 I5 u
set pcolor black: N9 g2 d$ k* N+ |
set energy (energy + 10) _/ ~& q2 }8 B) P$ d
]
8 T5 }3 Q$ w/ j ifelse show-energy?
# {5 [1 z. N' [) J" _* m [ set label energy ]
( ?. C1 u! O) S [ set label "" ]7 A) ]& Q) Y4 m0 Y) C
]; K' E, R9 ?3 x9 x
end
$ J. [/ h H* Y" ?5 J; D& Fto reproduce
4 C5 z* E9 H# ~5 j ask turtles [) E& Y2 X% J7 X2 U4 j# H# [! D( D
if energy > 50 [
, v6 O% O$ D$ w; T set energy energy - 50
9 E8 p4 L8 t* v" O6 ~! e$ ^ hatch 1 [ set energy 50 ]8 Z& ^: w& s% P7 i& m/ `2 U0 H1 T
]5 p& I9 i+ {; z( J, d$ ?; W& p+ n
]
1 m2 x ~& r q+ L- rend
' j6 W% n y- q6 ?to check-death- Z' m& _$ P1 A( ~
ask turtles [
+ m8 y8 |# [. ? if energy <= 0 [ die ]
2 z2 b2 ^1 z1 R3 R. K) s; g3 N ]
# b6 i3 I( @6 B. k5 X5 F3 v$ {end
; @ g" U& D* C% uto regrow-grass
% ?2 C, `" f- b+ v t5 u ask patches [5 b* q# z# i1 ]" I7 X$ T/ U2 v' v
if random 100 < 3 [ set pcolor green ] w6 |. [: u" s! B5 U6 A
]
; B: B" W, {* X1 h& U* S0 Kend0 `& o W3 \8 B# ~# b( K' B
to do-plots: d# R5 H! B9 _- Y, {' D3 M
set-current-plot "Totals"- O" L: R: G! T" \$ @
set-current-plot-pen "turtles"
' O+ b% M! }7 @% Z/ Y+ X! w plot count turtles
6 y. E* ^* Y o" |% m% ? set-current-plot-pen "grass" Z; i3 B5 Q Z. L! P
plot count patches with [pcolor = green]
3 n1 p2 P, N" u( `6 A$ b/ ~end x; o3 S/ h" ~
可是运行时提示no such plot: "Totals"6 V* e0 _2 r- E! f, z- T
error while observer running SET-CURRENT-PLOT
$ ^3 j. J* M6 H4 L called by procedure DO-PLOTS
" c7 s! k+ P* I5 d1 a- ]4 }' y! \ called by procedure SETUP1 ^, H% N. B* _
called by 按钮 'setup'; C/ k0 A9 a# \$ \# }: x1 q1 @
求大神解答啊 |