我编的程序如下turtles-own [energy]9 u9 w5 N2 k! N- Z+ L; v% p4 C
to setup
, I: w/ n" \) X: N4 D8 h clear-all+ r! F# x I+ B0 E( [7 P
setup-patches
r' ^1 t# s6 T3 @6 Y7 L create-turtles 100
7 ~! B) A. i% s5 r8 p do-plots
( N3 y7 T+ j1 r# A ask turtles [ setxy random-xcor random-ycor ]0 P H2 _# ?4 ?, }7 j' z3 w
end: H* `( W( G4 s y# x- e
to go% r1 M0 c$ ?5 r: N6 k
move-turtles; g& w! c8 a8 z! s. c1 h+ L4 Z" d' b
eat-grass
9 w- P$ M/ G' l: C5 S% | reproduce
" Q6 L _8 g4 `" h2 y2 B2 j check-death ^. w# L4 `+ e* a1 A/ ]* s
regrow-grass
7 Y7 ^6 M- x9 v& h/ d do-plots
* [, v5 X! }/ B% fend: u' S5 Z- n7 {& F8 C4 q0 }
to move-turtles7 X/ K1 j% @- o1 Z5 Y( s$ Y" M/ c
ask turtles [
9 b" Z4 g5 X, W right random 360
# e; M d7 e. G6 i forward 1) g. K+ \/ N- l2 @; p( ?; o
set energy energy - 1
2 y. r) T; y$ j0 {$ Z! X ]
& T- @! o1 U, f9 W0 ^+ }2 Z) t* Dend/ p* s& b# A5 b* \0 g m; q' I8 z/ E
to setup-patches) @. E4 k9 |# b
ask patches [ set pcolor green ]
, [, Y! I" v/ ~8 R$ s0 S8 gend
# S2 N8 {7 X$ O0 g+ A* t. c5 Dto setup-turtles
# l# w0 V, T: M* \ create-turtles 100
. S! I1 d, ~5 U- c" a: I, a* n7 J ask turtles [ setxy random-xcor random-ycor ]7 c% T- w/ m9 s+ X0 t( u
end" u: H. G3 e# a5 G
to eat-grass
3 Q- a( d( m. E5 | ask turtles [6 ]1 g/ N0 @# S4 `% g: v) U- J6 N
if pcolor = green [
* `1 s$ }: y0 R) d g. R set pcolor black
, `* O4 u( _( g9 q9 C& k set energy (energy + 10)
& {' ]+ s3 G, ~0 Y" |" Q* q ]
4 S1 _% R$ v* S3 H8 ? ifelse show-energy?
/ ~9 E- c/ L1 f" f$ R9 D* n; E [ set label energy ]
$ @6 Z/ t# j+ K$ k/ u! x1 e [ set label "" ]- \. ]6 G+ O3 `1 {
]
, X& U: V6 K! E. o: ^* ~end9 u1 z( x: X) R/ V o
to reproduce
6 l j+ J- x+ q$ {- O0 _3 |8 ]. k' ? ask turtles [) W* t& I+ O! R8 {
if energy > 50 [% y) m3 c. a" [3 M7 n2 B* c, Y
set energy energy - 50
, z$ H3 b& d" v, B9 j hatch 1 [ set energy 50 ]7 A9 @: C) F' s% @ v8 r
]
* N, D( P3 }& l! X( ` ]9 e& q. ?4 |5 l
end& |, E/ O* S# ~) x% Q0 y
to check-death% t2 i4 m" u# F2 ?9 d. |
ask turtles [
3 o6 p G" a! @( b" F+ X* R if energy <= 0 [ die ]
& Z* I9 `/ Z+ f0 c* g$ { ]
9 E0 I. o* Z5 jend. h0 ~2 A+ A# k0 w/ s7 ~
to regrow-grass9 Y3 ~8 v9 z2 f/ B& y3 d; k
ask patches [
8 K( d% Q {, j( F if random 100 < 3 [ set pcolor green ]
# ?2 N& u$ X8 S$ w. `6 E" H ]
0 @7 v! B; |( Jend3 m8 C) E+ N, O2 H- J
to do-plots- g: b/ l8 j) ]* E8 ]1 ]
set-current-plot "Totals"2 j1 j6 P& o' j; h
set-current-plot-pen "turtles"& B) i+ L8 j- e* T; C2 f
plot count turtles
- n0 i% F7 o6 @; d- g% z/ Q; s set-current-plot-pen "grass"
+ X; r4 N9 C, G( Q6 M$ r plot count patches with [pcolor = green]
% \, Z9 K% Q& C% |; ^$ \* Nend- R( Q) b0 l8 a$ l
可是运行时提示no such plot: "Totals"* _6 p/ [) m- K* [( X+ P0 J# s" N
error while observer running SET-CURRENT-PLOT
' `0 B+ x/ V9 ~ N' w/ V* I8 r& ^ called by procedure DO-PLOTS/ m& P! m9 T" F8 p
called by procedure SETUP
h: u3 r) b; ?& ?6 x called by 按钮 'setup'- p2 t# |: f' Y4 a. h
求大神解答啊 |