我编的程序如下turtles-own [energy]
4 t) c9 q4 r4 p0 ^0 }+ e1 p" Bto setup# ?9 ?% s3 L: J. X/ N' t
clear-all! j) Y5 j( {. o7 t# ^& H
setup-patches. ?( T/ l$ \+ d- l7 s
create-turtles 100
! F* K5 k1 T$ E0 J# m$ g' } do-plots
7 S1 I) h- H, Y+ g0 E8 V* l" d ask turtles [ setxy random-xcor random-ycor ]5 e3 {: t0 b; z: P' H, c5 h$ Y/ z
end
0 {& L# j! O/ Q2 E. t- Xto go9 C4 Y' Q3 _1 z" L. |) a) A6 z: n7 H
move-turtles: o3 g" Y, H1 c% o* ?6 G. O
eat-grass+ a; e# h" ^4 \3 o/ \- C9 N9 {: L
reproduce/ k+ I! i3 Q$ V( F/ k& f" M
check-death* _% l6 n' R0 U9 W0 ~% h2 Y
regrow-grass$ _1 H/ |4 X/ Y! S' N% ?3 `+ L$ w1 S
do-plots
* r) J$ s' e ~# }) b' g, p, Dend' ] B6 E. H# }0 w( s' `; ^) s% ^. H
to move-turtles7 I( L/ p* Q* _, l" w1 A9 j; O
ask turtles [
) x) N; R$ s+ T; }1 N right random 360
. |1 o6 ?) S" G# I forward 16 ]; K" m6 O/ S
set energy energy - 1
m0 {$ i; T; _, J( w& j ]& L& A9 m* x( i7 y5 n$ T$ d. n
end
+ ^. F5 Z% Y2 o {) T6 @to setup-patches
8 C' A/ O2 l" c; J/ T+ e) n7 z) j ask patches [ set pcolor green ]
/ V6 w% H" W& k8 Fend
$ w7 m- i2 z# P$ f4 ?- G% Vto setup-turtles
R4 M0 @3 s, ~' G$ j8 _ create-turtles 1007 F+ ]: n" @( S& ^ _1 C0 } Q
ask turtles [ setxy random-xcor random-ycor ]
' T8 a3 _# f9 Cend
6 S- l: R8 h/ M1 Jto eat-grass
- D5 B4 s4 M$ E* h% p ask turtles [
- G) k9 M' I1 x& ?) j( r if pcolor = green [ @5 e0 e+ G% w1 v
set pcolor black- r1 ?6 T7 J1 ?" A, @( W
set energy (energy + 10)6 P# E. `3 C6 t% H0 w
]
( f) X! h8 p ^( a" s9 Q( t1 j ifelse show-energy?
" q. I5 G) n2 A [ set label energy ]
- z* E5 {9 o6 y) k! |1 n. R [ set label "" ]" g% a6 j" r4 L
]
0 W9 e. c) U7 _3 ]4 L \end: Q: w* k: h; o7 S' ]* G: x* g
to reproduce
& q+ ]& ^% J% v* O0 C Z, Z b5 S! k ask turtles [6 P" z$ }% C' s0 @5 ?' ^
if energy > 50 [
: N7 Q) m. b" |. w set energy energy - 50
7 W0 M3 {9 @' N5 i4 W hatch 1 [ set energy 50 ]
/ O0 u5 |/ j9 E5 G2 ^: q$ l$ ^ ]0 c) U2 _3 c' b: P8 i3 q% k$ H9 Y
]
) S! w/ `- a) }end; X _' ?. U: |* K+ D
to check-death; ?" k1 T" [8 B, Y A* K: b
ask turtles [
* H: L7 }+ V _* D" @$ l( G if energy <= 0 [ die ]
5 z6 z+ e2 O# d/ X7 `- b ]
4 M' }% ~- o" R+ X6 zend' U% A: K+ {. u& ~
to regrow-grass
9 U0 A+ `1 l0 `5 | ask patches [% Q: H8 w/ |) p; ^7 `! O4 f
if random 100 < 3 [ set pcolor green ]
}' O8 f% S+ W$ L% l0 U" ~4 F ]4 F9 z, {7 O5 T ]" c
end
/ p3 R9 H3 l0 [4 zto do-plots& B" Y8 F9 _# y' Z% e
set-current-plot "Totals"( d, }1 L+ ?; b# ^/ K
set-current-plot-pen "turtles"
2 q# F; W( W7 U plot count turtles
$ a8 q5 d$ I' @& k set-current-plot-pen "grass"0 G" v4 K5 M. j9 p% n# h5 C) N
plot count patches with [pcolor = green], K& A, P/ B2 [* f' |! j ~
end3 i5 H% f: P9 E* ]
可是运行时提示no such plot: "Totals"
* k6 B4 X/ F i2 K" oerror while observer running SET-CURRENT-PLOT
0 s$ H4 g: n V called by procedure DO-PLOTS' { {+ d; _8 h' x$ q( |
called by procedure SETUP# T# O3 T% O4 @& q8 `8 u
called by 按钮 'setup'
- ^2 C% B$ {5 `) |' N求大神解答啊 |