我编的程序如下turtles-own [energy] n) c/ i* U1 \5 A3 A; e) a
to setup9 E+ y3 C5 Y. p z5 ~' Y; B& y' p
clear-all
& _$ n- B* l Y$ L, X' R) Y% I setup-patches- ~ ^. R* W8 f, T
create-turtles 100/ k/ T9 ~- p# K: S
do-plots$ d- _/ ?( Z) C) _5 \% H" I
ask turtles [ setxy random-xcor random-ycor ]* f1 n& e5 w) n7 |6 s. N( ?# E6 f
end; T& O j! S- p* y4 c) M- h: v
to go4 ]' R# @, x4 h2 ^2 T
move-turtles% m+ V) s( a; @& Y& L
eat-grass
5 k: ?3 h* s% B( t! a. E8 Z reproduce& ^: [& K3 P) S6 _% L1 x
check-death
. h2 q0 k: k7 z* h0 N6 v: W regrow-grass8 y- E- ~2 B2 o* G" H
do-plots
% `# u" g/ g- C% s' p$ F3 y- tend. X, F) G K2 @; ?
to move-turtles
' N# ?9 G# _' B4 H* B1 Z- L ask turtles [- r5 N- n, X4 b& P4 I @8 i
right random 360
+ g- q+ V# L5 H6 t. l. y# g forward 1
: a. ]/ P' K c2 p set energy energy - 1
5 d" ]4 k5 Q- k& @! P1 N' j ]
" a& V) r: K& }" hend6 B1 _5 t. Q9 u8 h2 Z9 \ J) ~- i
to setup-patches
" ^1 D. J' X: @) X9 Y7 k% }& w ask patches [ set pcolor green ]/ p( `" `: ^2 @' k/ u0 ^
end4 Q( W4 N: J) [% J* {2 ?
to setup-turtles8 L. U1 w2 r# r4 @4 i/ ?) V- L
create-turtles 100
k$ W* L* b$ x6 O& w% k ask turtles [ setxy random-xcor random-ycor ]4 r; `9 b) m* ?
end
l; F* \4 y+ yto eat-grass; O( `: _) B+ j; A
ask turtles [! i2 C- h9 n$ P4 o5 ~( t _ a
if pcolor = green [
+ d- e. T7 Z0 I- K8 | set pcolor black$ |7 ]- r, h( G. p7 E
set energy (energy + 10)
6 B) S$ K* a J0 F ]
- Y9 m. O, L, }6 |/ ?7 {6 h2 J ifelse show-energy?
g1 T5 `! m4 g K" n/ p) h [ set label energy ]
! k: W# }0 k; x) E7 W [ set label "" ]
5 D1 D) F: V2 I2 Z/ d ]
& z( N: ^4 w- [* \8 I3 ]! M5 \end
; O/ B% t* J) S, Bto reproduce
' J! s2 r- n6 L; U! V ask turtles [
0 S+ p: i6 E! X0 V% { if energy > 50 [: f6 r. M+ w! ?4 I' w& J
set energy energy - 509 [: O4 O$ Z9 D/ R* u# W h1 u: k8 y$ [
hatch 1 [ set energy 50 ]8 f* Q' H& z) a
]' I3 I8 R$ K3 \' R% f( u0 _! B
]
6 y6 E g) g. M/ b1 r4 [3 N2 Y9 Fend
; n$ F7 T1 M: h8 s6 J( cto check-death
% t/ |! A% ~9 |( ~ ask turtles [0 t4 a6 Q/ ^7 Y4 s4 Z
if energy <= 0 [ die ]1 L' f) N% B) i$ C+ o
]8 G5 I8 A4 F/ E5 s) F
end
( ?) g0 t9 c1 |2 V6 l$ d" _to regrow-grass
( x9 A* Q; a/ z: L& s4 n8 R ask patches [; w, S/ j2 W C- B: A( `1 G
if random 100 < 3 [ set pcolor green ]7 J+ e9 J* S4 r; t0 @- L
]
( i+ G! g9 S' xend- B8 X+ p, U' T) D# ?
to do-plots
. D7 {" U+ c5 |1 }( |' j1 ]) U1 O+ ~ set-current-plot "Totals"
: J, w) g+ l+ _9 \; r set-current-plot-pen "turtles": `. A" B) j0 k* H
plot count turtles* k; Q) k0 D- A* }
set-current-plot-pen "grass"
0 _" K: J5 j6 P/ h plot count patches with [pcolor = green]
8 Q; G9 z( z. \end8 K& q/ [# E; T1 b
可是运行时提示no such plot: "Totals"
. X \- \) D8 p0 |error while observer running SET-CURRENT-PLOT9 x, f! x) x! y7 R
called by procedure DO-PLOTS: \9 b* D e, w! F' J3 F
called by procedure SETUP
' } ]* B. ^- E5 v! | called by 按钮 'setup'
% J" `. M& {) b! j( u; ~* t求大神解答啊 |