我编的程序如下turtles-own [energy]9 g, F) z u5 j, u$ R- I
to setup
4 u! h! u9 W. a# O5 l7 t clear-all% m1 B ]2 z( M4 }0 V- M/ H
setup-patches9 J/ T0 {$ _* B# f
create-turtles 100; B& L2 _) s- _6 z P
do-plots
- G* y& M; F- G | r$ [8 w' z ask turtles [ setxy random-xcor random-ycor ] e5 b: f- Z% e' g; v: j# P
end/ i2 z6 m" r6 l4 U6 @: L8 I
to go- y4 O' L! n0 Q0 o) U* P% C) U
move-turtles
3 g1 J+ `) u. }" s' `: w2 }) l9 U eat-grass
! S6 o( u$ U }# u% C( k% j6 c reproduce. a& s. u& g1 k% u! c0 I* F
check-death2 T, P) @% \( @+ U+ Z
regrow-grass7 k m' q2 f a; [9 T. Y& ?5 b0 N6 Z
do-plots
) Z- U# F9 u+ w1 _end. A1 a) g" F w7 }) s
to move-turtles
4 e$ K9 g6 j5 X- u& w" C ask turtles [
% }. _' N" W$ _5 i right random 360
% P: t @. K0 f+ u forward 1
1 a2 y l1 Q+ g+ D set energy energy - 1
3 X% ^7 r# z; I0 @5 W ]
5 V' N. ]) W0 {) jend
7 m2 C. Z- j( u- wto setup-patches
" n0 h5 r8 q4 o4 i3 K9 M0 d" ^ ask patches [ set pcolor green ]
1 p4 ^8 ]$ z# t( mend' |8 R, W: e2 r# P ~
to setup-turtles+ e! `, E# p3 \- i) X
create-turtles 100
& X9 F$ f4 o: D3 A& r ask turtles [ setxy random-xcor random-ycor ]
4 h3 f) P* f# zend
& T/ H R$ P+ n" [7 }to eat-grass- ~3 t, y4 u- y/ c, b. q
ask turtles [# b9 N0 j6 |& _/ |# i4 R# R6 O
if pcolor = green [) k' |! r2 S6 u5 G' d- W. C
set pcolor black
0 s0 Z+ w* V& l3 q set energy (energy + 10)1 n+ B" E& ~/ _2 V
]
7 u9 q2 S) Z% Y; G- H; a6 k4 V* Y2 _ ifelse show-energy?
& h- ]! L0 C0 H% A [ set label energy ] e5 |4 w5 W" O5 i/ r$ v
[ set label "" ]
8 }& e8 M+ T0 y9 }6 G ]; F$ {0 l: c* y7 {) T" O8 d& f
end, D9 `* l% O" }) R, `
to reproduce8 R* O( [& T* k5 m- t8 x0 b
ask turtles [2 H7 N# d: P) C# U8 ]1 f8 T7 s
if energy > 50 [$ H, [" R* c* X
set energy energy - 50) E+ ]: s$ v3 D! O
hatch 1 [ set energy 50 ]8 {1 N( O, `. O9 @
]
( Y S4 z# d8 A2 _4 W ]& S' C0 A8 ?5 k) G) B; k6 V6 G4 I7 R
end+ i( | E# p f5 n( w- T
to check-death1 c# Q9 h/ l4 x; _+ m
ask turtles [( ~$ b4 [3 s( c, t( v* i
if energy <= 0 [ die ]3 ]5 V! I. y5 m6 Z6 J! r% I
]
5 P) p9 }9 u# u# p7 ]" i1 Oend/ F. D7 f! _: J, K5 K
to regrow-grass3 _' k* z/ u! c) N, M( }5 i
ask patches [, H5 ^5 w6 @8 D8 u+ P( }) @ ^5 J
if random 100 < 3 [ set pcolor green ]: |* }6 u" d' ^; ^
]
, b. z/ u3 m7 _5 Qend8 g1 H3 v! R5 i" u4 d2 G
to do-plots
3 I& _: E9 h$ E' r% r6 I3 j5 l6 u set-current-plot "Totals"
7 w) v; {% B \+ n1 ]+ P E: W0 N% ~ set-current-plot-pen "turtles"% F: }8 q. a# u. C @ c( g
plot count turtles
% ^$ b* Z! V) o! M) i& O set-current-plot-pen "grass"
, f, q8 D5 c3 @, G' N& X7 G% G; H/ C plot count patches with [pcolor = green]
+ \' w7 j# C9 l Fend$ y! ]6 z; O" j3 S. R0 j! k
可是运行时提示no such plot: "Totals", W, p3 h5 q9 b- G0 H
error while observer running SET-CURRENT-PLOT
! L! T" \! P3 V* V; E called by procedure DO-PLOTS1 R' _' h3 e) J [
called by procedure SETUP. O0 N; }* ~# E, G$ e/ x. m
called by 按钮 'setup'2 c. v$ t7 |2 v- F# R5 X
求大神解答啊 |