我编的程序如下turtles-own [energy]
# C& Q. K" ~; A Uto setup
/ S- I, @7 ?2 r3 p' ` clear-all
! p% _7 D% j2 o+ Y( S setup-patches; E: Z% ?: f8 d6 P4 e2 g; M
create-turtles 100
7 N7 b1 U7 K( q# [9 f do-plots
2 g' T3 h- C8 R5 L% R7 |6 _ ask turtles [ setxy random-xcor random-ycor ]
$ j2 D7 L/ O! y. Lend: n2 H9 h7 _7 q% X9 ?
to go
- E; y, [5 {" m8 q5 | move-turtles
8 U( r; ]2 ^8 K3 m eat-grass$ j, _3 ^( z( H$ L
reproduce4 Z4 T+ Y0 Z" h i' q2 L; y" K
check-death
- z: e* J: s S; i" p! Z0 ] regrow-grass
. Z8 e% c0 I6 j; l& [6 ^ do-plots
; |' K! i+ B. k* Jend$ K" n+ T3 ?' `* o+ L
to move-turtles1 {0 v( Y2 J) x; d: P5 q; \# s' H
ask turtles [
" R+ i& a$ e% s8 c2 v8 z right random 360
: L, ?# A5 o6 s7 H; l) {; `% C; i forward 1: p! P; I! V# i/ D9 c6 h( \5 A% h
set energy energy - 19 n0 g% i$ I, p
]
% m4 s* C- b9 G( h1 r% Eend; T. G) I9 g0 U V d! T/ C, ?& O: Z
to setup-patches! A( u* l& {+ N7 f7 K s
ask patches [ set pcolor green ]' j3 j! T& c' p! O' r
end
4 T' y/ e2 Y% tto setup-turtles/ T- m% }2 C4 U0 P8 ?
create-turtles 1001 n1 S; v: l b" g2 X' _
ask turtles [ setxy random-xcor random-ycor ]
8 O. O( Y" v. Cend U# n4 g! |% E# ~7 M' L+ p4 j# P+ F
to eat-grass
! z* \+ t6 q& i+ A6 X: l& o ask turtles [9 R: F$ q8 g9 {. j9 m
if pcolor = green [- B5 F5 Y: F2 M6 V; N$ M x
set pcolor black
) j( Z! i* }$ | set energy (energy + 10)
, G% S+ X7 B/ E6 W ]0 g* ?9 C2 ?, U+ [. h
ifelse show-energy?
8 P$ {# X5 |0 v# H. |' K" H: B4 z [ set label energy ]
* Z6 t) x1 x$ n0 n: p% v [ set label "" ]
+ z# ~$ a0 K1 s M4 Z; s- H ]! p3 X" a! A$ N9 e; x
end
4 f& u5 O& e; T& l: @; nto reproduce% N( N3 n" F8 ]* \
ask turtles [, R7 ?- h$ [" ^1 Z4 c6 ^1 p( w4 ]! e
if energy > 50 [
6 t* K' G2 v, M set energy energy - 50
4 K7 E1 C: D7 t* ^: {5 x hatch 1 [ set energy 50 ]
* x/ o1 H) R1 P1 a! K' a+ q& N4 ^/ p- v ]
/ i8 T5 X5 N5 n ?6 s ]
" S) I0 O/ s+ T+ N& P- B Mend
2 z5 K. U, c: F ^3 Q2 cto check-death
: I5 G. ~* r, V ~ ]) g5 N3 t8 v ask turtles [% U0 }: u: ~) h* ?8 N0 l6 Q; j9 ]
if energy <= 0 [ die ]
0 A% m6 U, ~7 s1 D ]
& j. C. X$ _2 R6 u6 uend
; b8 l, I9 u9 r$ g! H0 Jto regrow-grass9 W6 @# c5 C6 _: z( O" f; k9 u
ask patches [* J4 S9 ^! Q+ r! g' ]7 r# L
if random 100 < 3 [ set pcolor green ]
/ P R N( U. |: j ], X, R, X- L! l* N4 `
end
1 \7 N6 c) H* Q( @) z- V" Vto do-plots9 U( H: G$ i0 @
set-current-plot "Totals"
" F, n1 n: V* B2 }9 v- i set-current-plot-pen "turtles"
$ O; J) x6 Q2 O+ {. n4 m! G% k+ e" { plot count turtles
9 W5 F+ f! {9 d2 K) b, W$ r set-current-plot-pen "grass"
4 H3 e. E$ I$ v5 Q6 n; G plot count patches with [pcolor = green]) i" D7 ~, C! Y/ J3 p$ h' @
end' ]: m+ d! `, y7 n* }
可是运行时提示no such plot: "Totals"2 o0 d/ F$ r7 j6 ^# Q! l9 z9 t
error while observer running SET-CURRENT-PLOT4 t- A6 O8 ^) |* \ Y
called by procedure DO-PLOTS; q! F5 [3 F4 B; ~" j
called by procedure SETUP
0 k+ j5 g8 x% o: ~9 ? called by 按钮 'setup'
' ]) @" P- b5 K求大神解答啊 |