我编的程序如下turtles-own [energy]
6 r6 q- R k4 m& [! i* i) l* bto setup
' P! u ]" i3 ^$ {7 ^4 ] clear-all
% h6 r9 X9 G6 P* I& e2 m# a( h setup-patches
3 N) h) H: R) \6 S" w( m4 u) m create-turtles 100
6 }; {: ^+ y$ t# y5 ^: p do-plots( F& L* l& U% \1 q, T3 H4 P
ask turtles [ setxy random-xcor random-ycor ]3 Q3 `3 m3 q) j- F$ r3 F
end
n1 _% J, t6 i4 d, a' wto go
3 ~6 r' l. y# |: K move-turtles8 _- F: s/ D6 I" v9 Z6 ` K
eat-grass5 a& ?0 i8 i# @% T& M
reproduce/ i$ N: {7 [1 e) I- G. D3 I
check-death; l# e& X2 b9 z. f' M
regrow-grass
+ u$ A3 `' C. g) |2 R! i, F do-plots
. ^0 L' n+ r ]. w4 z1 x% Mend! P- w( X, q1 j0 H
to move-turtles
7 p$ K+ i% G I8 Y/ l/ X# O ask turtles [+ m; Z1 n1 Y5 e
right random 360, |, @2 B/ @) s, `2 d0 a6 e
forward 1
* y8 w2 B) X" F# ? set energy energy - 1
) p5 p5 w8 E3 D, X ]
; I( }8 l6 {2 K9 t% ~end/ O3 X! T; {8 g$ g6 G; a5 W
to setup-patches0 |/ ^9 d* x, D
ask patches [ set pcolor green ]
8 _6 A2 |# A' N. e) b' Gend# n9 t5 R; r4 \1 _6 |
to setup-turtles/ B! L5 K5 P' k; u* X) ?- S8 j
create-turtles 100/ G6 q3 V% R7 V
ask turtles [ setxy random-xcor random-ycor ]5 z( v- u+ ~8 ^7 b7 T
end, W! k7 s' T! H: q, J
to eat-grass) l0 c, W8 a; _5 q
ask turtles [. g# }) b! v3 `) C8 ~4 c
if pcolor = green [+ G0 G& ]- [* L+ ~& W. Z& s) h0 W
set pcolor black" u& z' O! s6 z
set energy (energy + 10)
/ ^/ Y8 c% ~4 V' e. K4 E) t ]& _+ `1 Y6 Y2 k6 s2 ?
ifelse show-energy?
9 R: X! l2 T9 ?+ N0 b9 u) \( |) Q [ set label energy ]
1 C' h; h: t/ ?8 E) \ [ set label "" ]# u) H% \( W$ e# p" V: o0 a' C* D0 ?
]' N. v( r y* d0 i
end, v8 \' R" W3 ~# _) S* ^
to reproduce0 u p1 D M+ u) e; c/ h! W
ask turtles [* e$ ?- P9 c* G+ X! ~
if energy > 50 [
) I6 B3 f$ P1 w set energy energy - 50
0 O1 |" R9 ]+ i& E5 b# M hatch 1 [ set energy 50 ]
g6 a; m$ H# @, E7 _; d4 {3 i W0 W ]
1 s J4 V# C+ k" O; Y7 X% I ]
) \5 w: j+ N2 E% g. R$ Iend0 [$ m2 s% {5 y- E
to check-death" C6 \% n! g$ N h n% h
ask turtles [( M6 @1 O9 J: P! W( ^- M) a- E" [
if energy <= 0 [ die ]& F" J. ]0 }3 \6 }- F4 B* p( g$ h
]
" T+ r+ i* o0 D' [, Rend
: K! }) A% T& K& [: {1 wto regrow-grass5 P5 X* |5 ]% X0 q
ask patches [
+ D# V6 W$ l3 v, ?9 ]4 B if random 100 < 3 [ set pcolor green ] V7 p! z& Z4 j( d5 v5 y
]) h2 |2 P' ~# ]' z; D$ B
end
# [' G+ c4 I2 X. L& t F4 m8 pto do-plots% X9 N# V* o3 U# d& l
set-current-plot "Totals"6 V5 M x: i8 a) u- Z
set-current-plot-pen "turtles"
3 M; h# M; t, p plot count turtles: D8 ^7 i; `7 c2 n; m, I! V: b
set-current-plot-pen "grass"
; r1 w S. l2 g5 ?+ Q7 ]. P3 g7 r plot count patches with [pcolor = green]
, c$ s' m9 W' P4 o) ~end
& \5 |1 a: a/ @/ m E& h5 |2 m* j可是运行时提示no such plot: "Totals": z/ k1 N' u! O
error while observer running SET-CURRENT-PLOT
# V5 z! d$ U0 T& |$ d+ v# O; K! y called by procedure DO-PLOTS: i$ b- E8 w6 k/ u
called by procedure SETUP( k5 \5 D% o9 V" F; ]: U; z
called by 按钮 'setup'
- E. e- \+ K" _9 G$ i/ F4 T* D( l求大神解答啊 |