我编的程序如下turtles-own [energy]
0 \1 ]3 h# G( c4 u Lto setup
6 t; A" ~+ B0 L9 X, F& b clear-all" {% E9 q: u9 l( l& d8 {
setup-patches6 v# F4 |2 h# T" }
create-turtles 100
( z1 m/ E0 s- l do-plots8 L y3 w1 `- l# W* \6 J2 E
ask turtles [ setxy random-xcor random-ycor ]
2 b3 n# f* w% y, lend2 p) u: F- x; e+ l- X/ O. `
to go" d/ j2 a- L3 ?+ }$ p _ b Y$ i( M! R
move-turtles9 D6 ?! S" x/ X z) i5 h" Y
eat-grass
0 |, [/ \+ f6 M( z reproduce- a( p. K% ]! N" y5 \% Y
check-death$ E* g( c, U# W3 D4 u
regrow-grass
0 w5 h$ d }9 j2 D, u/ K do-plots
/ H& g% `0 ^6 @# H, d( z( @end
# b5 I3 _' D) S$ c& a! e- Ato move-turtles/ P' ~' r, d* O5 B
ask turtles [) @0 ~3 L: H9 p6 \, O
right random 3604 j9 r: E. A3 B7 u
forward 15 m1 [, V' v3 X6 R" g& }, P6 d
set energy energy - 11 J Y* P* q3 T( X
]
h# X5 ~5 @. }6 q/ t7 _end
) d3 }* Z4 [* t7 E; h+ E6 L) ito setup-patches
/ U" |; S+ ]! { P0 `2 F ask patches [ set pcolor green ]
! m5 b2 J$ X+ e+ e7 uend( {$ U0 X- V) ?$ k/ c: j: T5 X C) K
to setup-turtles
; p q* f6 V$ b create-turtles 100
B+ J; a: U! |8 B6 W' I ask turtles [ setxy random-xcor random-ycor ]6 @$ c! M1 l \( Y( b O6 g# Q
end# {, ~! B( ]5 i
to eat-grass
- ~7 I( `. z: r+ u/ o ask turtles [, ~3 X8 G5 M5 O) y
if pcolor = green [
, u# Q$ B/ p1 a8 E% |1 W set pcolor black
0 w8 D( W" `0 H7 J. p4 V1 ]: f1 i& K set energy (energy + 10)
7 K- a- O+ i/ p7 u- N ]
. C! H3 d1 M& R) `4 L5 n- l ifelse show-energy?
# D5 R0 [/ n8 l [ set label energy ]
* |9 y% G: U T& { [ set label "" ]* W2 F: x7 K) ~- e& T* ?, q; W
]% ^2 B i$ M4 z4 K
end
" K K8 ~/ S' U+ f- X/ ~to reproduce) ]& o5 C3 L; w+ m3 j
ask turtles [
1 w) o. W0 D0 h* N. z if energy > 50 [6 M1 r. O( Z; l E* r& v. p
set energy energy - 50
: W' K8 e2 `& L- v hatch 1 [ set energy 50 ]
* R v i( s/ I8 H3 E+ X8 R5 S. F ]
# q+ o0 ^2 V6 Q, z0 C5 G ]" O. m) m' P* Y* l
end
) D7 \( z1 b5 f) l/ Q2 Q' r: cto check-death4 ?# ]) g: P1 B5 A
ask turtles [) R% e# D* E: \6 w, f
if energy <= 0 [ die ]
4 Q" X. s5 U d6 E6 z9 M/ {% X ]7 b- ^6 o$ h- L4 v3 x( F# y
end5 ^, g+ q( @( ^; {- U2 P0 `
to regrow-grass9 ]) c) |3 f4 K# l2 t2 B9 W
ask patches [) T# u% B0 B; T# c& V
if random 100 < 3 [ set pcolor green ]
- a8 q7 @/ A8 b9 c; u& | ]
: C' X) a% O3 w- `5 u+ pend& _) W3 j, f7 e* I! y$ d2 \ ]5 G
to do-plots
: ?9 l* K9 p/ `& W0 r, a set-current-plot "Totals"( A6 Q) F( p0 x1 _8 R( @4 r: s* I6 N
set-current-plot-pen "turtles"
8 N+ o* a. O2 z) @ plot count turtles' f% j! M0 c2 }# a& W! ?8 C
set-current-plot-pen "grass"
1 `! l+ D& K6 k plot count patches with [pcolor = green]
% C0 U$ i% n! Qend
# b. z0 y* w$ I% j可是运行时提示no such plot: "Totals"! V/ H% d/ L, s
error while observer running SET-CURRENT-PLOT
- y- J, c5 V0 ^3 _$ C& g/ ~& v8 ? called by procedure DO-PLOTS
' A6 y$ M5 J1 y% v- Y called by procedure SETUP
& d) |# Z. ?3 M# z( ` O4 q- e called by 按钮 'setup'; C! k" c0 |& H( u& {
求大神解答啊 |