我编的程序如下turtles-own [energy]
4 ]1 X& e) k3 z8 D. T( }# Z* y6 bto setup
% x& M1 H8 T- i- |& y clear-all
+ ~6 t/ \1 `3 o8 {3 N0 X setup-patches& f: w( V+ b r Q7 m6 Q2 Y
create-turtles 100
H$ w. ~6 ^, O! r2 O: D4 w" \% ~ do-plots
5 `2 f; N9 ` K3 x ask turtles [ setxy random-xcor random-ycor ]( O3 t+ U% u9 I4 N$ o
end
& v- @1 k9 M% J; Q v- W3 l0 Fto go* J) f1 e1 d2 ?: w# b4 X
move-turtles
5 c' {) Q B' f% r5 h( `" n eat-grass. w0 R- u7 j" \- r x2 p, U8 V- Z
reproduce
' f7 I0 p# [, f check-death
+ W) l! R; h) Q$ N0 t1 R& g regrow-grass
5 s+ w5 |( y4 [* x( b# l do-plots
}2 ]5 v( _' v+ Jend, I. k7 l- {% G" E
to move-turtles: e, m) F: T8 u& }& G, P$ c7 ]) _
ask turtles [
4 t- K/ J+ Z- }, J. c0 _; W right random 360! M. V# z) a0 d! e1 w
forward 1
0 }, O9 |3 Y3 r. Y set energy energy - 1
2 v& v4 h1 r7 @+ L ]# ^8 ~& i1 a6 H% a( T, h0 `2 d& Z4 \
end6 a! x3 o4 |3 I, i* ]2 z' `
to setup-patches' B3 [' { n! H, Y% ]
ask patches [ set pcolor green ]! m2 u; j ^) f& M% R& d. e4 T" T
end2 g& h0 [/ P) {& Q& V) N
to setup-turtles
. \" r0 I7 d" E! f3 k create-turtles 100
( _6 h6 d/ a* N& B5 e; G& E7 ~ ask turtles [ setxy random-xcor random-ycor ]
5 e' k& R5 ~9 a, mend- t- ?, d0 V5 V- V5 i7 f
to eat-grass4 N) P2 A% A6 m3 X- m! W
ask turtles [
# t3 K- L; g# f' F$ W if pcolor = green [
' I" N4 M7 Q% P6 v0 S% I0 G set pcolor black" o4 c% C( N* e9 Q/ J0 }
set energy (energy + 10)
+ a; s7 T+ J$ @5 B/ Q+ C ]
8 y( \( i) C0 K- I ifelse show-energy?
7 c2 Q- t" R% K; D2 W2 { [ set label energy ]# ~% k# g! k2 O5 f1 K# R/ O
[ set label "" ]
' `# x g( G0 b7 m" v ]+ K. L8 S5 O' [$ d9 b
end( x- x* c6 R; B# E+ H& g
to reproduce; u" [* B$ P: I% A
ask turtles [
D3 d, Y- T. Y: U0 o' J- z+ M if energy > 50 [, h+ b0 g& X7 a1 z2 U0 G8 \
set energy energy - 50: ~+ d L; z9 [
hatch 1 [ set energy 50 ]& R( j k/ T; A; g' ], `
]5 J8 |8 x! s! X! X! X9 L( ^8 B
]2 V: P% @: K( Z# m7 x
end2 |2 n v) B3 t3 E% {6 z/ k
to check-death1 q. U" I+ E" r3 D( w
ask turtles [
# |/ Y3 X. ?, j4 G( e$ v2 w if energy <= 0 [ die ]" f( W( O1 @; E
]3 T, _6 E( X! h- W0 ^# L# @; f8 P& ^
end
9 X4 R- c; L: P9 Ito regrow-grass
4 b% O' d, y/ l1 h* q( x ask patches [
& e6 ^0 E# |2 c$ X$ x. p if random 100 < 3 [ set pcolor green ]
5 C$ H( k' @: [+ [6 C# u- P* F ]
& x1 @, g' D( p! g) |0 Jend' G. c9 o$ _1 u: p, U$ ?
to do-plots6 h9 K1 ~* g; g, B I
set-current-plot "Totals"
1 o" n5 p) ^- z4 c set-current-plot-pen "turtles") k3 s2 C" R% y1 J h) D
plot count turtles
) L3 h8 m* d$ v R: o) `1 Q set-current-plot-pen "grass"
2 u4 }% _8 | q+ a& r( }1 X" y plot count patches with [pcolor = green]3 M- y+ A9 L, |+ f. M
end1 G$ S2 Y. C: d3 u7 @# o
可是运行时提示no such plot: "Totals"
8 O* U5 P& _% b/ y( f6 uerror while observer running SET-CURRENT-PLOT
J' x' [6 ~: k6 U* I6 ` called by procedure DO-PLOTS
( o6 I2 {2 }: |9 ?' n' d called by procedure SETUP
6 _& r: ~- b/ W, s- ~, w# W called by 按钮 'setup'. ~7 l6 _7 _! T0 Y+ ]0 `& U: W
求大神解答啊 |