我编的程序如下turtles-own [energy]4 G1 P8 G3 r$ k+ k4 L
to setup# ~& K% a( o7 v9 E
clear-all
1 Q( m6 H8 O2 r! ?" J setup-patches
R7 T( d' _! q9 n9 q create-turtles 100
9 d+ K3 {( M1 r9 [ do-plots
1 i9 M6 i/ L& a ] ask turtles [ setxy random-xcor random-ycor ]
; \' F& ]# u3 @end% C* S; A. M- _ }3 p
to go$ _ h. ~8 G. D5 `
move-turtles, H+ G! |' x4 {' z/ g& o
eat-grass' P! ?, T7 \5 ^) n6 x! a
reproduce$ f2 ]- X: a# e3 l
check-death
* `2 R1 D/ ^; F3 K3 V# ?& Q regrow-grass' ~$ u8 ? |$ \8 \& F
do-plots/ Y; r7 y; h- E
end
; x' t }% N$ ?to move-turtles
/ u+ o" Q) d& _! m ask turtles [
5 e8 R0 L2 s a& V( ~ right random 360% j- C4 x6 E2 E0 N _
forward 1, g* v/ X( ^5 _3 t0 f) F+ s
set energy energy - 1
; H* v R7 K* L8 K0 I9 c1 i. Y5 \ ]
1 }* i, O0 {$ ^end
2 A, r" t1 a6 B$ fto setup-patches
9 {6 m B4 }$ T/ e ask patches [ set pcolor green ]
; A: ~: P# o8 x( Q5 `# Eend
7 j& t& b: R) `to setup-turtles
1 ^6 K3 b* o! a9 f create-turtles 100( K4 E$ p" F7 L
ask turtles [ setxy random-xcor random-ycor ]
7 S, x, n( N8 C* X' \end
/ W+ z7 p0 l$ Dto eat-grass" V! q# c* q8 W7 n, l! c0 N
ask turtles [
7 A. T/ g/ i6 A2 J6 n" E$ g1 m if pcolor = green [" z* x c$ g4 v+ L
set pcolor black. L/ }/ e! ~! g5 b' V- R
set energy (energy + 10)
5 k @* C/ m' v ]
/ X6 g+ \' u. ^$ z% \ ifelse show-energy?
- b5 W) H3 X" a/ @. G4 F [ set label energy ]$ Z& W9 C8 } B3 T
[ set label "" ]9 t! p9 p" M; i" u* x. K3 |9 R
]3 ^- C s+ B: U1 N8 ]
end0 I3 h; Q/ y- B% t5 G+ K. @7 {, T. z
to reproduce; ]1 L0 |( e! s* ~/ M
ask turtles [
* v( `, z$ |2 |! b if energy > 50 [
. u% x4 L c4 v) _9 p' k set energy energy - 50$ L' |% h/ z' Q# I/ v8 s
hatch 1 [ set energy 50 ] _) Z3 h& m {5 d
]/ V) Q- r' Q% b! J' A4 d' \
]
8 l* z9 O1 {2 D$ Aend( M0 a: w* F' c, u! \4 S( I0 ~! j! n+ @
to check-death
2 g4 U9 u& ~* D# j4 v! D ask turtles [, I4 x" S' y# H: c |
if energy <= 0 [ die ]1 a+ @0 d- J, X L& X' T
]8 b! w& K& X) U/ K1 Y0 W7 `
end8 w% C2 w: ]: a$ {9 i! G3 ~, x
to regrow-grass8 x% o0 f) @% E4 c5 ~' [* W
ask patches [
3 r/ K& _% C: V' F- n& S# t if random 100 < 3 [ set pcolor green ]5 y; _) X" }4 i0 L, k
]. V! Z _8 m0 k" w& g( Y
end" p1 X. H! n$ Y9 q, {3 r$ z
to do-plots
$ b: t5 G# V5 N6 m* h) F* h1 a set-current-plot "Totals"7 _0 l4 Q6 C2 t/ \" x
set-current-plot-pen "turtles"
\% r! |; x9 l/ U4 o plot count turtles
6 i, w$ q. a5 c% V1 x, }, w! J set-current-plot-pen "grass"/ D' l" Q5 e1 O! q6 n
plot count patches with [pcolor = green]2 j# ~5 d& h1 ?' _' ?* ]% P+ n6 o
end& P8 W2 ^8 {# a+ @5 O2 P
可是运行时提示no such plot: "Totals"0 g2 Y4 Q( V( I" _& X# J
error while observer running SET-CURRENT-PLOT
- N4 w: x& g( R9 j7 K; I) N called by procedure DO-PLOTS: R8 _/ z/ c7 O: P+ |2 f( U$ d
called by procedure SETUP
0 g2 c' j6 V4 Z& M$ h* z$ y called by 按钮 'setup'
p& ? l8 E1 g& M9 L7 c求大神解答啊 |