我编的程序如下turtles-own [energy]$ S% o8 W5 `9 Y3 W) {3 K; P% R V
to setup
w3 K% y$ l' `+ c0 S clear-all# V. h9 u3 o9 e: i3 J. z
setup-patches# i7 Z f' @5 K0 a8 d2 p
create-turtles 100
N* ^1 t6 z! C. u0 B do-plots( o @. Z8 V: p* M: I: P1 l8 s% D5 b
ask turtles [ setxy random-xcor random-ycor ]. I4 X' G& e) V3 {
end
8 N1 `( }% Z- o$ H5 ]& u; k2 Mto go+ y0 ]- m3 g# y% U
move-turtles
; V( F' G9 [/ J9 j: ^( ?3 T: C eat-grass
) j7 C w$ z* F/ I* D) k, U reproduce
/ b9 t: d8 ~6 x' s0 V, R; w check-death" x! y9 ?7 b5 F* h
regrow-grass6 d# d* p8 X, f3 R
do-plots- n9 h8 N; I7 L
end8 c3 ~2 r) Y( ?( V; E8 @7 w% t; b9 i
to move-turtles
, C6 E4 Q0 x7 R ask turtles [3 Q$ E: _: L n% e0 a& y8 r/ G
right random 3601 a& }1 v2 Q# i: F* f
forward 1
; N" D5 L2 h$ Z+ v. y+ L: t) p set energy energy - 1
8 e @. M+ k4 Y5 r" \9 S ]
+ U) A/ P. a9 s; c* m$ Pend4 n) j a3 U, T# n( |6 v. t
to setup-patches
5 N* Q* d t* E+ A1 J" F ask patches [ set pcolor green ]# X/ S& T' L3 E9 z; O7 w" M
end
0 Y; P u) w1 K3 fto setup-turtles3 t2 l% w- j" N. z! ?# N
create-turtles 100( x. [ r( W0 ^$ z
ask turtles [ setxy random-xcor random-ycor ]
* j' [1 d" N3 d8 X! Dend
* t( o% a ~" A9 zto eat-grass
- W3 @* @* n1 d5 C, a ask turtles [- {3 K" `. N4 f; W9 T! M
if pcolor = green [
, P$ O, c1 C$ \# m8 o. ] set pcolor black
0 r6 ~' z4 d" y6 v, [0 @- P set energy (energy + 10)& C3 Z4 p4 O* W( q
]5 e0 n3 w. b- }8 {
ifelse show-energy?
' B* Z% B; V, M' b7 Y1 z0 O [ set label energy ]
: n& f* e$ k9 p% g [ set label "" ]
4 ]% \1 S+ Q6 d, M2 s$ E9 V# X ]
5 h" z% `# w( b6 x5 iend
6 T7 b2 A& o5 |2 o$ Xto reproduce9 T+ `, `8 v% U; S" L, H
ask turtles [/ u$ d' l7 h& ~
if energy > 50 [& ~6 L/ _! B( P$ \
set energy energy - 503 D+ U1 k) L. v1 {* r0 \
hatch 1 [ set energy 50 ]
; h0 n" W$ ~' s3 i7 X9 y ]2 ] I9 B! z4 o8 _2 o) l
]
+ f, s# O3 o4 j6 s+ D3 jend
4 x* R" Q5 G5 c* dto check-death1 h$ t. M/ N$ t& n8 V
ask turtles [* S" F n3 x5 i; Y
if energy <= 0 [ die ]
- ]4 J/ @- Z. u ]
8 _" `, i% B3 H; L* I0 j4 I: hend+ k9 S6 G3 @4 |( E9 S% s
to regrow-grass
) u% [3 e) T) [1 i& A ask patches [
* m$ p3 T5 ^' I2 T if random 100 < 3 [ set pcolor green ]8 r: B- [( C/ r: o' l3 E& s
]1 u& [. z6 {4 ^" w- n3 b" H+ U
end
# `7 s% B/ u8 n$ v& hto do-plots
! c* [7 [2 I4 G6 ^ w set-current-plot "Totals"
* z: ~8 A8 m9 L: U$ d. \ set-current-plot-pen "turtles"+ n$ W: n* o: e* n: u8 u& u
plot count turtles, e: z/ Y b) O5 u" f' M
set-current-plot-pen "grass"2 i( p0 _1 s) _9 e# F
plot count patches with [pcolor = green]
$ k5 J4 P, y; ?5 Gend( U7 P8 |/ v |1 G0 v' y
可是运行时提示no such plot: "Totals"
& d4 _# ]$ S% Yerror while observer running SET-CURRENT-PLOT; W# d2 b9 X# @4 n. n
called by procedure DO-PLOTS
5 d4 z) X4 B" R- X called by procedure SETUP
0 I! y7 |$ o0 f$ p7 z called by 按钮 'setup'
: a5 K' @* }$ J/ d6 H求大神解答啊 |