我编的程序如下turtles-own [energy]$ h" X# c# M5 ]8 F2 R: i
to setup! d5 C1 A7 I7 @1 X
clear-all
3 `" Y1 J6 W: F2 c& Q" e setup-patches
* W/ I7 _9 B- p create-turtles 100
: a3 ]8 R# _0 \- Y! G% E do-plots
& i4 y2 m- m( ]4 q ask turtles [ setxy random-xcor random-ycor ]
- C0 f/ q |# ^1 J6 Y: j) kend
9 I7 A- K0 X6 c1 D- [7 kto go+ d( B: V8 v% y6 Y3 W
move-turtles- @4 [/ H9 O) ]+ @
eat-grass
5 C+ q$ X7 J* E9 w# ^8 v: A reproduce5 ^1 U! V% \6 n3 Y; @* v7 I- E
check-death
7 ~% b; F& v' n; A" f J! r regrow-grass3 d7 }+ l5 N' }6 J9 A* O5 K
do-plots
( N' V7 A9 I I- e! A4 ?' ~end" c$ Z; z* y' Q" u9 T: e) |
to move-turtles
2 s+ o" L( I8 _7 r$ P ask turtles [
9 m! n6 ^( I* k4 m' e right random 360& u3 O8 i- s7 n) B6 X) S* Z: L
forward 1
" x9 c3 J% b E: J6 | set energy energy - 1
* b' F) _- F( b; l: _ ]
# X& M7 d( a" A, `) Tend5 |% U8 W4 V2 h% d$ s1 X+ ]/ ~
to setup-patches" p* ~( h; z$ o& @% ]6 E& U
ask patches [ set pcolor green ]
. N5 _' o# h1 k5 v! kend
' k6 }5 A$ b& G' y/ Q) Yto setup-turtles
9 W* k5 k. e' j" S& x2 F create-turtles 100
5 V/ L% Q1 p, W/ T f& r7 U ask turtles [ setxy random-xcor random-ycor ]. p! d! b# N, H/ t+ w* Z+ E
end
5 e0 T- @& a5 { Qto eat-grass
! c6 z9 e6 A. q! o J3 y) o ask turtles [
. r- n, m+ J. _' f- | if pcolor = green [
2 l- C1 ]0 Q" f8 r9 g set pcolor black
3 A I. t) V R4 e4 @ set energy (energy + 10)
3 G- z1 X$ y6 }; T( U1 K# A ], g- y7 o' ?# V. }, P* N
ifelse show-energy?$ n; m/ h# Y" E. L
[ set label energy ]
2 c! H C/ T- d" u+ B [ set label "" ]' t7 c7 @& Z, ? J1 L# V
]
( w+ v# J4 p6 ~end
$ M& }, C, m( ^* ?) V2 E& fto reproduce' {& |( |; \; p% |& g4 } Z) @ E R
ask turtles [8 g1 z1 I4 y6 F# `
if energy > 50 [; M# O- f/ l& i9 ~% t# s% m
set energy energy - 50
! Q4 U$ @# I: S* N3 F hatch 1 [ set energy 50 ]
% J6 q6 Y: n6 p: u( U. \ ]! \1 `0 b+ v- K8 o8 b
]
) W& x0 d5 O# X# a5 Yend" v+ j" |! h+ A3 V5 n! U
to check-death
- q/ n% |! ]$ Y% u0 \ ask turtles [: [9 M1 _ e* f
if energy <= 0 [ die ] |$ I5 f. U3 q8 \' s
]
# s+ ^, `7 @2 Q+ hend
7 _, z# r4 D2 x( Gto regrow-grass: A7 u4 @5 t5 P6 L/ \6 k( M
ask patches [
) Z: \5 Z9 K8 S" a* Z2 S) O if random 100 < 3 [ set pcolor green ]
* p u. s" i8 L+ u ]1 `8 g+ V! }1 e: Y
end8 v% f# M6 g5 n& I' h7 x
to do-plots
* ?3 h6 u. L" n6 J/ g set-current-plot "Totals"
4 A% r& c U$ ~8 B" ~ set-current-plot-pen "turtles") _9 [+ W% m- [$ H* [# t
plot count turtles" u' e; u ^' _6 h ?+ f
set-current-plot-pen "grass"
* q, o% }2 ^ N1 q- u plot count patches with [pcolor = green]8 j. q2 y3 i, B2 ~5 g. ]( y X+ e0 O
end
8 T7 } \9 z" v V( t7 d |' j可是运行时提示no such plot: "Totals"1 i4 ]/ l$ R h4 \; p+ n! h
error while observer running SET-CURRENT-PLOT+ C" D/ Y+ L v) [$ U6 T5 B: V5 i
called by procedure DO-PLOTS
+ N. o5 O7 ?9 y called by procedure SETUP
7 _7 K! s3 J; S# ~ called by 按钮 'setup'
, P- S* l0 {0 z! m7 S求大神解答啊 |