我编的程序如下turtles-own [energy]
) Y1 q: e; v/ l! K0 |+ ito setup
7 b2 X6 u, g0 P' s$ m: o clear-all2 s, C/ h9 D1 P( `
setup-patches
0 H3 k4 E7 i. T) d% A# H7 g9 }2 a, ] create-turtles 100
4 Z% x% N6 \: a, u do-plots
. j1 ^/ l! Z: Y8 B Y5 G ask turtles [ setxy random-xcor random-ycor ]0 h# T8 @' I/ }4 E
end X+ k- }! K( {8 J, [( J
to go w1 b& a6 s4 n8 \5 `2 I
move-turtles
1 _2 K5 ~0 \+ i5 W eat-grass
$ @$ N6 D3 s9 H* l* H* `! y reproduce& x) z i9 B: r+ m% w* h
check-death6 G4 t# Q7 T2 F, `' M
regrow-grass8 q, k: T- U& m. R4 C" h+ {# c
do-plots
7 J2 M1 a% _0 ?- Qend o, n1 U+ W6 ?# A' p" M
to move-turtles
& z$ I/ K, B; r) j M2 n4 X ask turtles [$ q9 w; H. ~% E4 r: S+ ?5 u. S
right random 360$ p. v+ M( V' u$ ?
forward 1- r0 O, ~8 t; l) d1 ~
set energy energy - 1. c5 }0 J9 ~0 v5 f( e! R- M: }
]- y# ~: }) L8 \$ y6 z4 Y( V2 w
end8 G7 j$ A3 O$ ^: `- P8 C
to setup-patches
/ s& w& T' I) G" n$ ^2 a1 \ ask patches [ set pcolor green ]
3 }* e. U8 b% ?9 h% |+ l' Qend ~& z& m) D0 X; q6 E5 d6 ^( f
to setup-turtles) G5 x% E) y7 X, q* C
create-turtles 100
) ?7 u* F7 @5 N8 `' C* W" o ask turtles [ setxy random-xcor random-ycor ]
F/ C. a: n1 b) B& X; cend; Q9 s; O( K- k" [( q q: T
to eat-grass- |+ X3 I! {( K8 Q
ask turtles [' j- Q; P, ]$ o8 u$ ~
if pcolor = green [
# G' q9 ?. i. ]/ R- {, D8 T- P h set pcolor black
. r# E# i2 v5 \9 J3 | w3 q7 n5 L set energy (energy + 10)
8 i; o3 {' c. U) j# Q ]+ [" C% L$ N) i' R7 `* m- k
ifelse show-energy?( O y' @# q! g) Y
[ set label energy ]1 m$ P9 E! Q# v$ r
[ set label "" ]) a8 G' l1 L1 J* E: l( r6 Y) m. U
]
4 `) {; `. N' o% G8 ?$ a2 _end
- c% K8 [" E4 p, T V6 x8 Rto reproduce
0 J" p+ G/ I4 X6 x2 X ask turtles [
Y) H! E/ E: o3 t7 c. Y2 ?6 i- ] if energy > 50 [+ d( k& [6 Y0 f. Z3 W$ e
set energy energy - 501 P# K5 A9 C% G+ D2 h+ z
hatch 1 [ set energy 50 ]8 V- V/ f+ y& M
]
% o; |; j. e7 \ ]; u. W' S. N" E$ s
end4 v9 R0 ]: O& p9 r
to check-death+ G) x3 N* q! F0 A
ask turtles [
- B" h' c2 m0 s if energy <= 0 [ die ]
6 a# [! C, f) } ]
( J2 y5 ?# S3 s$ J2 Y& |: S$ G5 Nend
4 u% z2 t. D5 j9 @to regrow-grass* N& p6 v g; ?; a$ r4 X
ask patches [. s, A% O0 O9 f+ X1 S/ O% E0 W2 k8 r
if random 100 < 3 [ set pcolor green ]1 a5 {1 b/ K% s" ?' m
]( L5 U% Q$ E% J9 P9 x5 C, Y2 b
end7 ~) t; }1 h& }7 Q+ `9 c/ y
to do-plots
; Q9 l6 `# m8 v5 E! _+ x! P! c set-current-plot "Totals"2 A3 ^# ~; J |4 X% Q( o
set-current-plot-pen "turtles"- q0 d3 L3 l5 I; a9 }- G* ?2 `
plot count turtles
+ Z" D% p5 T5 q. L set-current-plot-pen "grass"! }- m4 T0 Y! z) f! q; M; {
plot count patches with [pcolor = green]" d9 p- p% |' E, u5 x6 F k
end7 E# \( V& G0 }' B6 @8 i
可是运行时提示no such plot: "Totals"
J; [) i5 y' S! S7 n! ?- J, f5 \5 q3 berror while observer running SET-CURRENT-PLOT
8 W6 A0 E. J. N' M/ K4 a called by procedure DO-PLOTS3 V2 f. T" M$ Z0 u' G- m$ D- F. D
called by procedure SETUP& f2 m, y4 A& h% F0 H
called by 按钮 'setup'
# `& e* t" I b6 a: j2 |/ r z求大神解答啊 |