我编的程序如下turtles-own [energy]$ L# A3 G+ Z3 }7 i9 X9 ?. W$ k
to setup/ E( J1 a. H4 C
clear-all
- g9 r- u1 V# m' c% ] setup-patches
, G0 ^. c J: ~! d' q0 C create-turtles 100; U3 U3 c: @7 k' [# d+ {
do-plots
A, f( r! C4 \7 u- { ask turtles [ setxy random-xcor random-ycor ]
( @% j0 f: T& \end; I( O- v7 O3 p! K( m$ m
to go
1 R6 c& u4 }& E5 J0 A move-turtles" g. q% U- |; `2 v; Q& g. C; D
eat-grass
# v1 E5 R5 l w3 ^7 e8 d reproduce# f3 C. n" G7 j. P: i# a
check-death
! ?* m' ]. w# w: K2 U, C- R regrow-grass
6 H$ R4 d' p7 n+ V. W; B do-plots
* [" y' j1 ]) \end% M2 a4 J& H! _9 R
to move-turtles
C! B/ Y' J/ k }# W5 a ask turtles [
4 P0 O+ V% l( b& e# s5 {) o right random 360
7 J! s3 p- ]7 `8 A N forward 1! S. g1 {* f" B5 B' U
set energy energy - 1
9 y) K& M9 u& \$ I: t( h ]; [1 z0 N2 b- Z" o
end5 \/ ]: v# G. }
to setup-patches
3 z8 ~0 j/ h* Q4 t2 P ask patches [ set pcolor green ]
* F& M& [6 L6 jend
( q/ b" ]8 ~7 Z% E, f4 hto setup-turtles7 I. r( e6 {! x \
create-turtles 100
* E: q$ U6 ]+ M n8 A ask turtles [ setxy random-xcor random-ycor ]. A O3 S7 _' y. k b
end
7 N9 G6 } Q2 |to eat-grass2 Z/ `2 U" m7 C# q! l
ask turtles [ I7 @) _ g+ b- Q% |: ~$ a$ x
if pcolor = green [
6 e, H' S2 [9 [' [" h+ p7 n; g set pcolor black4 o& t8 C0 i6 `9 b1 s% Z
set energy (energy + 10)
5 Z9 E: n( `- D# g ]
1 Q5 @9 A7 p4 j; D3 x% C" ` ifelse show-energy?
% |5 _0 c1 v4 K! m: {; s! x) l9 z7 o( J [ set label energy ]
' G& N E) | v' ^- K( G. e4 O [ set label "" ]
* x) t! M0 \# f3 t: V+ U$ o- i( u ]
- H8 R- b# ?" X$ {+ o4 jend) b7 b- L1 N" y/ U
to reproduce: n2 l. K. F2 @. X7 ?1 L. h* R
ask turtles [
0 O1 R* R( j, s if energy > 50 [
6 @& I6 d* O: }4 b( o5 L0 e4 j set energy energy - 50
; B* Q% a- Y$ t1 c4 K$ S; L" a* U hatch 1 [ set energy 50 ]- ~9 H+ c- o+ {' U6 K* W4 `
]
9 f, T$ E( m3 {7 l ], i/ A; [/ I0 ?- G
end
3 l% c4 F9 y* j2 z* N& E& wto check-death2 `& f5 |8 E. h4 t. h3 F& p$ [
ask turtles [# B3 X1 Z. G( c$ Q: C% `
if energy <= 0 [ die ]
9 f4 I& m% K0 n8 A ]
! Y% E: ^8 v- n6 l* T' A0 Q. q( {end
8 M$ Z$ P) g; m7 q& n( G: Y) [to regrow-grass
8 x7 q4 _ t+ S7 { ask patches [
+ D! h. |9 r, ? if random 100 < 3 [ set pcolor green ]$ l0 q9 a/ e; q8 u6 G+ |+ t
]3 U+ M$ q: K& @
end& S( j. {: D$ W& ^* p. W
to do-plots
7 }) U! T. k2 s( o- \ set-current-plot "Totals"& F0 p; N9 |" Q; N7 [5 t/ ?
set-current-plot-pen "turtles"
- {2 _, Y* G* O; c* _, f, ?- v plot count turtles" t, h6 N$ J8 C9 I' | m) F
set-current-plot-pen "grass"
) ], r) O! T5 p! D3 l, v+ f' }9 m* A: [ plot count patches with [pcolor = green]. `! V& J7 E# d2 U
end* p4 v( w9 }0 P
可是运行时提示no such plot: "Totals"
9 n8 {- t9 ]% U/ i/ e2 H$ terror while observer running SET-CURRENT-PLOT
/ ^4 I$ u- Z$ M called by procedure DO-PLOTS
8 j& p9 o4 R+ ~3 K+ O called by procedure SETUP
( q: D( S$ o9 F2 \6 p called by 按钮 'setup'
$ ?- [- w' U2 t) M# b求大神解答啊 |