我编的程序如下turtles-own [energy]
3 r- e; [$ R/ N8 Cto setup
# x5 G3 z7 r) N clear-all
0 @; R1 j) O" M' d+ x, q" }6 t6 k setup-patches% Z) k" E. ]3 m; h* [) e% I
create-turtles 100
* `5 Z) Z1 S: b2 u$ |4 u do-plots2 C |9 T, l9 n1 G5 z8 o! G
ask turtles [ setxy random-xcor random-ycor ]. j3 ~4 B# l: a( L7 ~% a
end$ M0 k* i1 y) O8 s
to go% T6 ?9 y5 e- K; m% S- |9 x; h
move-turtles
7 W& e0 E3 Y i- o% |, }! h/ w8 `* y eat-grass
5 c5 e. g U1 P8 A4 C9 W reproduce7 p' ^1 l- q6 g" \ A; S w) J
check-death; ]* [7 y+ t8 t: g3 ?3 t
regrow-grass
7 b# m' k/ ]# A6 @ do-plots
. _" \: ?. ^1 X4 ~7 Aend
1 `) q- e! l- u8 {1 Gto move-turtles
; s4 ~0 P0 Q, N ask turtles [! S, L2 a" ? Y: K) a3 `1 Y
right random 360
! }& b" I& Z2 c forward 15 y0 T x0 ^0 C
set energy energy - 1
) q8 U( q- b9 {* G7 z+ c ]
) \7 A- ?5 S+ _+ t: wend4 i8 X* |8 }2 y8 o5 U& N1 \7 d
to setup-patches
: D! F+ m L% G' e ask patches [ set pcolor green ]: X: Q8 X9 H6 _- ^+ N( ?, e
end
! x; A/ Y' ^6 H% h3 v! Fto setup-turtles
/ \/ [- t9 o* j. |' q# h create-turtles 1000 \1 E% N. l, {4 R- g8 Y
ask turtles [ setxy random-xcor random-ycor ]
. Z# t, u( ?' z# |$ H3 @# [( R' ]) ^end
* W/ i: x1 x8 Gto eat-grass
$ q. t' s' B8 E* q& K( t ask turtles [$ j- j: F- C) r; T& z
if pcolor = green [ Y @* V9 [* Q4 e/ j
set pcolor black7 Y& Z- y" f2 C" [) v
set energy (energy + 10)
+ J+ u# h6 M3 Y ]
, Q$ t* B! Q% E I ifelse show-energy?
2 T. {) p7 J8 d* b; o# K [ set label energy ]
$ h2 H! f: V7 M) g( R7 ? [ set label "" ]
0 D+ b" H d# R) i6 ]# A ]
* S* q; M. R0 V# {end+ `" T+ u* C/ H% f# I
to reproduce" E* G, \& T9 M# N+ `
ask turtles [- {8 e/ |: p& l0 C+ R. ~
if energy > 50 [
, o3 b& y" A. f3 S8 @6 g3 z' R set energy energy - 505 \/ Z; v( N0 p4 U
hatch 1 [ set energy 50 ]
$ Q' f1 Q& \ U7 R ]8 E/ k. \5 e+ t( ]$ Z: I
]
4 J; h- ?% Y# K7 x2 pend
' y, f M" R0 z. g; Zto check-death
( E; ?9 p; H5 c5 f/ Q1 l ask turtles [; h) ?3 T* F* [
if energy <= 0 [ die ]( G2 H! \( a L: ~
]
+ P' B0 c/ a: O# X$ k; j" ]end
6 Z C8 f4 r/ h7 ^1 Q; y, kto regrow-grass
* ~8 h1 P, V) Z" y. n7 S o ask patches [
! L5 k# W/ B2 f+ H, i( R5 V if random 100 < 3 [ set pcolor green ]
3 ~# \+ D) _5 Z ]
' u( w& Q' _# d9 A, Zend7 x; {7 T8 O8 x$ a" D/ @
to do-plots- k' H2 m! K5 g0 T3 U; a: p) C
set-current-plot "Totals"
* ^9 p+ A7 \! u& {: \. i. [2 D set-current-plot-pen "turtles"; g/ ]7 g( t: D) X0 `/ c
plot count turtles
: a. X* h( T$ n set-current-plot-pen "grass"
6 r- W0 D, }: S plot count patches with [pcolor = green]5 T( I" n, M* t! m2 f7 t: _
end
" \% U& D9 _" f+ i7 D5 } U& ?可是运行时提示no such plot: "Totals"* Q$ J0 q$ b% I; k' W
error while observer running SET-CURRENT-PLOT
8 \' g2 P0 M0 B called by procedure DO-PLOTS
: l# {8 Y2 H9 | called by procedure SETUP
* u S3 Q; ^. B9 I0 h3 v u' Y called by 按钮 'setup'3 G( e( ~9 d) D- T+ S9 n
求大神解答啊 |