我编的程序如下turtles-own [energy]( Q* q. o. ~2 V; y) `2 Q. m9 K g
to setup
8 h5 z. ?) E* s+ Z" @5 k+ C3 k clear-all
$ C3 x4 a/ Y/ x7 q& C/ p6 w& M5 H. r setup-patches" v* M4 B% r9 j0 a
create-turtles 100& Z5 x$ F A% X9 l
do-plots
4 c7 K* c7 d' s& i% S' b ask turtles [ setxy random-xcor random-ycor ]$ J8 p( C! t+ b$ |" X- p/ t* g$ e6 g
end6 X; i' o$ ?4 [
to go2 i7 _$ | y, f& @6 Q4 b! t, G2 i
move-turtles1 g2 \3 O* Y# e6 `
eat-grass
: k+ `# s! B* ~% m" a) g7 U reproduce! T$ Q6 O0 s' n+ B
check-death
* g$ D$ N1 D) b6 p. ~ regrow-grass
! X4 J$ j3 B6 h) R/ M do-plots" G2 _; H- W; k6 l& l' a; l
end$ Y, j* V9 ]' W) W1 h
to move-turtles
( n; { @# b" \$ `# M. [. S ask turtles [
0 k, u( J1 W# L- u7 m right random 360
, \9 x0 U+ q, h7 R1 f; H8 K forward 1+ X! p+ s$ l* j' _% ]
set energy energy - 1
# t( z! L( k2 t( t u ]
# ?9 [. U* p0 M! U2 s( rend
1 H. u$ L V3 P$ G; Vto setup-patches
( A: C' m* Q/ A. C8 N5 n2 k6 A& X( K ask patches [ set pcolor green ]) s7 g- h# m4 z- H9 a+ z- }7 j( m
end
/ d7 k. }+ a- s) k5 R2 _to setup-turtles" t2 p3 Z, V+ R" z- q
create-turtles 1004 Q6 n5 D" y$ q
ask turtles [ setxy random-xcor random-ycor ]* m, g) ~8 q ^
end
" N8 e+ L& Q+ g3 O8 Hto eat-grass
+ m$ s/ h7 r4 r" ]: S ask turtles [
& N( @' S) z4 r! d H if pcolor = green [
: ]& p( g& d: g C9 g. C2 n set pcolor black* H* t$ F' h+ q2 Y: ~4 y
set energy (energy + 10)/ u" }0 Q" g; u" z
]
0 Y" D1 _9 o: X% n7 Q. W5 v ifelse show-energy?& v3 `2 c; Y; u. b4 f% F
[ set label energy ]. _! \: k; j" T& D- h
[ set label "" ]' i! G: S* A0 v8 S3 b* Z$ ^) W8 G% s
]1 m& E' Y; }4 }, S, b
end
( ]" |0 L4 C) H: Nto reproduce; F# h/ \- U" |- [: I$ ]
ask turtles [
?: y6 Y7 s7 H0 @: Y6 E) W if energy > 50 [, H/ L# N: y$ o9 j3 |' `
set energy energy - 50: @' Y" C$ W6 a) D
hatch 1 [ set energy 50 ]" i5 F: j8 i& |- w' S7 W0 {
]$ z: k8 {: g' U" N
]: z' @$ t5 R5 e2 y1 _0 {
end- F1 x/ I# c9 _0 ?4 }; D* y. K
to check-death
( b8 [( l* y0 Z0 { ask turtles [! U: c6 ]8 m, {2 i
if energy <= 0 [ die ]/ F5 D8 W/ m: E* j& K
]
/ J: G, m4 [% m+ M; \1 Fend& f" X6 e) z6 J3 r7 h# y- r
to regrow-grass
( T, w( [& ]/ T ask patches [
7 D7 ?$ F' P1 v1 ]! T2 S5 u if random 100 < 3 [ set pcolor green ]
. K4 v# }$ c3 K9 _7 a7 p7 W' s ]
1 z a6 f$ C4 k! g$ Cend
6 z: N. ] p# L" y# j' L" V, fto do-plots
9 [+ p' J5 J* u7 D* J set-current-plot "Totals"4 L" N; q/ m8 E+ p% ?) Y& V+ K$ B, B }
set-current-plot-pen "turtles"1 g5 b( E! J1 m$ V" n* d6 K& W
plot count turtles
: }, m% B, A4 X# T( u' G! p set-current-plot-pen "grass"- m& m. \6 D' Q3 Y) ^
plot count patches with [pcolor = green]
& l& T x, d) K" \end2 v7 Y! k5 @% n% x
可是运行时提示no such plot: "Totals"; {/ e- l, ~- c/ H: F6 y+ t3 w* D
error while observer running SET-CURRENT-PLOT
- K8 s2 c$ H A# L" b' _ called by procedure DO-PLOTS
: b0 P! {, E( F" r called by procedure SETUP
: B) k6 \ e# d( @' B$ N4 v called by 按钮 'setup'6 |" `& M' b' h, ]! p7 }" |6 R; g4 y
求大神解答啊 |