我编的程序如下turtles-own [energy]
% B! _- W1 J3 ~' ^* Z) Z: M8 dto setup
4 d% o w/ n" y* @/ M# H clear-all$ o" }6 g9 ?4 [$ |- X
setup-patches
# O$ T0 M5 W, g n1 V create-turtles 100/ h. b& ~1 H+ F; c6 T4 b! s
do-plots
* r4 P& x; d" E8 i) r$ Y3 G: S% N! w ask turtles [ setxy random-xcor random-ycor ]
% e& M+ Z' o4 i6 m( O* R0 tend
/ N1 n$ T0 g% z+ {* mto go- X" K, D) A [2 V% [
move-turtles
7 l& F1 @2 O0 N: S1 Q0 g8 | eat-grass
8 U5 u" S3 v* T/ ]. z7 Q reproduce/ N5 v$ |/ k% D
check-death
: D. d; e$ a( }. G ]; }1 E regrow-grass$ v4 i# I- k8 G% v# b# N# Y
do-plots
V* m( H) ]$ f8 o6 ]: ^ }end
( J7 Q6 T* a$ Nto move-turtles
+ _9 T" ]+ `* i- l* z ask turtles [) I+ _5 W; R0 T( z# j3 X
right random 3602 \/ n4 d: V! p5 Y5 F
forward 13 l. P6 c7 L# B: c0 m" U$ @2 q
set energy energy - 10 {9 o9 B7 {2 ^$ q
]
( W+ z! H/ Y" B. Fend
: p; b9 C. O4 d! d" t& P7 Kto setup-patches* R9 P& G8 m4 M) i I
ask patches [ set pcolor green ]
; }5 f/ r l+ z/ I! ~# w# U$ b5 |end
7 a1 B. g$ T5 ]to setup-turtles% O- Q o# m3 d& D$ n! S; j2 P$ Y
create-turtles 100- J) M$ K3 s, _& E
ask turtles [ setxy random-xcor random-ycor ]
$ @7 {( u( z: Z) T) pend
3 a) g% z: l; lto eat-grass
. f- Z% n V$ T8 H! |: H' q+ t ask turtles [
4 f4 W( w/ d/ _! T if pcolor = green [' u0 \8 y% H# j3 d Z' k( K3 i% v
set pcolor black( `7 t- q; @8 ~, n' v
set energy (energy + 10)
5 o' ~6 P2 b3 I7 C* N! e- ?& g( H# { ]- B6 m, h9 E% x% I! i6 h
ifelse show-energy?
7 m5 h; C& R( a v R% ~: W! x% \+ G [ set label energy ] k9 P% N, U8 _' L3 c
[ set label "" ]% T6 z# u+ j* D, ^, m# ]
]
K( O1 \, v0 Q% m: Y7 ~4 pend
' x( W: |! j, _' p5 C; {: dto reproduce
]3 S: Z* e( P0 F ask turtles [( e9 t: e$ h) c+ r& ^& k+ K9 O
if energy > 50 [
. O% V3 w! ]$ ^ z } set energy energy - 50
. F) Z, R8 ~/ h0 {; X/ Z1 q! l hatch 1 [ set energy 50 ]
) W" J+ @1 O7 t4 P$ b ]
4 u7 h1 D5 s1 F1 u8 ?$ \* p$ d" q9 X ]
9 I' T7 ]+ f& N5 n3 ?1 F7 n/ I) Cend, c; J# L7 K. K# t T: `7 B; G6 o: m
to check-death
2 h& ~; |' C" t+ Z- t ask turtles [
% e2 A9 H# a9 a9 G, V# y if energy <= 0 [ die ]$ F L5 F7 H" W/ Y+ x8 C+ h) R- c
]
2 ]; A+ k( V0 ~/ A* uend4 m5 u1 m! k( L" N. \
to regrow-grass/ _4 z! O! U+ B$ f1 W8 `
ask patches [
* p% N* r2 W0 A4 g8 ]# ] if random 100 < 3 [ set pcolor green ]
/ A" A* @2 e0 W* j ]& j0 l) r$ D2 X# f6 d
end
* k; a( l- O5 Y; u$ X% ]to do-plots. G' W; D$ l' K) F, U) F }4 z
set-current-plot "Totals"
/ E8 N$ B& u K- f" ` set-current-plot-pen "turtles"
& N, u- x+ \9 i$ d( w, k plot count turtles7 D) v9 N; Y% K/ b1 e
set-current-plot-pen "grass"3 b w. v+ b& b: V: ^* E6 N
plot count patches with [pcolor = green]7 Y/ C4 B+ P4 a- p. x, V9 a) _5 T- ?5 Y
end
' l7 p% ^2 V+ o4 {可是运行时提示no such plot: "Totals"
# j: A& m; v1 u% {error while observer running SET-CURRENT-PLOT
0 @6 T6 i7 v, Q; L called by procedure DO-PLOTS
2 _# c$ Y6 w; t. i called by procedure SETUP
5 g- O; p5 |0 E+ p$ u called by 按钮 'setup' U/ S$ h9 Z0 I+ G5 B+ H Q3 Q
求大神解答啊 |