我编的程序如下turtles-own [energy]
4 }# I" Q9 s2 ^* l2 @- F$ t5 rto setup: c9 p5 ]/ R9 C' W' e7 H2 ]; b2 D
clear-all9 c9 J8 _1 \# O) d" M% ~+ B0 Z
setup-patches1 ~9 X7 h( b3 A* h' i3 W3 p5 U$ [% B
create-turtles 100
8 M. K; Q$ R$ r do-plots
* Q) z! l8 V; H ask turtles [ setxy random-xcor random-ycor ]9 F5 K% n- k0 n/ N9 | e: r% B
end
+ ?% p, N# J6 N9 f* J4 y6 cto go
" p0 o% O! b! A# R. K7 m. t move-turtles
7 B8 ^* g1 [. M0 K eat-grass
( `- C) y/ q1 ?9 v reproduce4 E: l9 H. C5 e8 O* t; a
check-death* {: W. b+ e# ~: ?9 Z7 r
regrow-grass
$ i/ b8 ?( e4 k0 J do-plots
) W* }& t8 C: S. p" ^7 u0 Wend$ G4 K: s. ?: h/ N
to move-turtles, T4 O% G* |3 `* C5 f% {
ask turtles [' J# W- Y4 ^! j* h) V9 a
right random 360+ n/ \) P+ N" R# B- ~; g
forward 1
" t; J& E: ^# e0 Y& Z6 A' q, H set energy energy - 18 A3 N; G4 L& m4 x
]- x4 d0 J2 _# E! S* W9 B2 y
end5 A! Z0 ]0 S5 Y. T" s% t6 G
to setup-patches
1 p, j- E7 p4 ~8 y6 k ask patches [ set pcolor green ]: w$ F: Q# z& D, Z
end/ K+ v$ G- K5 ~2 ^+ G
to setup-turtles
' U4 E' s6 {" U ?# J3 h T" O create-turtles 100- |) D6 x. e3 u8 G
ask turtles [ setxy random-xcor random-ycor ]
% o) z1 _9 o6 v% P: n+ r- Vend2 [& g, m% h0 o' O6 |1 \6 @
to eat-grass
|4 w- x8 g# [; T$ t6 G) P$ U ask turtles [
+ x. K* o* U2 x if pcolor = green [
5 T# D8 C3 ~( t% p. f0 q set pcolor black, }1 Q& [/ L( h) p
set energy (energy + 10)
# w6 |4 n& R" U4 e, | ]0 }* S6 k7 G/ e8 K! u: }1 L
ifelse show-energy?
. I6 Y! D& [* I. i9 a [ set label energy ]2 S0 k, `: h7 c
[ set label "" ]3 D9 }- v! }0 O& j
] s. ~2 u) G" N3 U& E( C* W
end
) e% k. n" H) C" g6 {to reproduce
4 f- Z/ n( T6 ]& w3 @0 K* g+ O ask turtles [
# ^/ r$ L7 m+ q) X1 w. k c" f if energy > 50 [+ G/ \" z; |4 j* H9 L! R
set energy energy - 50
3 L( F d- E. b7 T6 k hatch 1 [ set energy 50 ]
7 h9 U# K) H# B+ @9 O3 q ]
# r5 X0 r5 D1 x& l9 t3 h$ I ]
) `7 M( q. B7 x* Vend" k C ^+ }% a6 z/ u# K# J- @( B7 J
to check-death
' x! y, k5 `( ?/ Q4 z ask turtles [
% ]' x. }. z: Y3 W& ` if energy <= 0 [ die ]! G. `8 t. Q* U5 p2 j" }" V
]
0 H1 U9 s+ ^) send
) P+ e0 ~" N4 ]1 {7 H! U2 mto regrow-grass
9 c- r, Y7 T5 p0 i+ P ask patches [
( f+ z. ~4 t+ D if random 100 < 3 [ set pcolor green ]
* G' N) s B6 ?2 s' e ]
6 i, ]8 B* \: |/ mend. F) S1 S* j. V( R3 K3 s2 b c
to do-plots1 c, ^ i5 a5 P1 X/ D+ G0 l
set-current-plot "Totals" {4 v& w3 }/ z _# ]; p
set-current-plot-pen "turtles". k- S9 r6 c4 Y4 D% [% X
plot count turtles( K' d9 ^, D4 I- p* w2 L
set-current-plot-pen "grass"
) p5 y t B, P( U1 l plot count patches with [pcolor = green]+ z( y x0 c( C$ ?
end
; |) w( O$ d# v1 `+ I5 F可是运行时提示no such plot: "Totals"# a5 D6 M3 C/ }8 r) E. m0 G
error while observer running SET-CURRENT-PLOT
5 x. r! Y- N t. f$ z called by procedure DO-PLOTS
, W, F0 ?" G. ~9 F called by procedure SETUP$ |5 f* I5 W7 V
called by 按钮 'setup'3 x0 v7 X3 @9 S. \9 n) {6 y# R; P
求大神解答啊 |