我编的程序如下turtles-own [energy]
" L: P/ K$ K+ q5 p+ [to setup. |, Y$ e7 I3 E, \1 N
clear-all4 ?+ |0 ?, e5 @1 Y4 g) i, a
setup-patches I3 U" H+ b/ V, p( g
create-turtles 100
Z8 P# \7 n" M do-plots
2 x: G% L& m+ u* E ask turtles [ setxy random-xcor random-ycor ]7 l$ z. x% y, u4 Y$ D) w0 E
end) Y$ c- U% ~' w, K w* Z
to go" `% H) K! R0 Q+ d5 {
move-turtles
. S8 V6 W# v* Y. A" d9 M eat-grass& F& A# P3 U& F/ S; m
reproduce/ ^) ^0 T y. O+ i
check-death8 d4 T& v8 K6 k9 w" X3 h- q
regrow-grass
: n, Y w7 c ^ do-plots' m/ K9 q# d! }& E6 C2 t
end
1 o, P# W- K- ?4 l2 e: Hto move-turtles
- i* C& Z' |) \* A1 n ask turtles [
* T' m+ c: o& y9 S right random 3606 j# W4 W5 C& G p) g8 ~) l* L
forward 1$ n' `) l" ^5 W
set energy energy - 1* u* k) I; V4 N" e1 B
]
3 C! @+ ?: d0 n9 E. [, x5 tend
& ?! N4 H, E$ U$ Dto setup-patches, D3 P9 t8 |/ F
ask patches [ set pcolor green ]( n6 X2 w8 F: F+ `7 s
end
$ |: `" V* g& s# @5 ]6 M8 t$ Ato setup-turtles6 A! t" S' O$ A' B! x: N: M
create-turtles 100
5 x. D+ V/ O: ^; P ask turtles [ setxy random-xcor random-ycor ]4 o" }/ U: m1 S) q" l1 a: F
end
4 P$ L& ~# A: M" r; ^% P( @; ?to eat-grass/ Y$ b3 z! O% a
ask turtles [
' J! `* `# ~" j5 \ if pcolor = green [% m. ^# f! i5 \
set pcolor black
7 @9 _; Y( p' T- t set energy (energy + 10)
2 M& y0 g2 B: }% \" u/ _2 ?" q! Y ], h' t% Z1 H. b o! _
ifelse show-energy?
' h# {/ w; J! C( y [ set label energy ]
; K5 } \ b" w `8 J [ set label "" ]
' G" V) U- R5 r+ F7 w- ~% [ ] _8 g) N% r7 f0 D
end" D/ K$ |6 _* H! v
to reproduce
7 E0 c; M/ Y, `$ h5 ]: i ask turtles [( `/ r3 x/ T" Y9 V; H! G
if energy > 50 [4 M6 G: T6 f3 C
set energy energy - 50. K; `$ ]2 T& s4 m/ ~) I' i$ Q, k* z
hatch 1 [ set energy 50 ]: s9 m1 g" d( T( {' ]% ]
]
Q0 r+ d6 k% g( I5 p ]0 N/ E' r6 a5 T+ R) `" O5 K
end
6 n6 W) T+ x* G7 Y9 |1 F* y( Mto check-death
: a z: W$ L& V) p. ]3 e ask turtles [* b4 a0 z( f4 l% A$ J, a
if energy <= 0 [ die ]
% A/ _2 S* U. h' }2 Q6 O% H" b ]
/ N+ x: Z6 T( e% ~$ e g( e) n+ Yend0 K7 o) k/ [# ?8 v/ @
to regrow-grass
! Q' l& L9 w- r ask patches [
. \0 c+ Z9 ~- M- ]* q5 x u* K& Z" S if random 100 < 3 [ set pcolor green ]
+ N) [2 x$ d. k& y* D% \ ]
! N3 e. S% Q3 ?4 E" [2 w. l) Xend
' d: ~- {& [: \! ?( ]to do-plots6 |0 Y+ P4 s# a0 {7 z7 N( }0 w5 B
set-current-plot "Totals"
1 p" O, X, u5 W) |' @1 W set-current-plot-pen "turtles"5 S, l' q* m! d# R
plot count turtles
2 {: w) ]' R4 v7 X set-current-plot-pen "grass"
$ W4 e! B/ L% L# y# b% e9 e8 M plot count patches with [pcolor = green]- p; C u B6 l- e( t2 ]0 R* C$ N$ f
end
+ i) q6 H0 h3 C L可是运行时提示no such plot: "Totals"
& t0 _3 I; [5 merror while observer running SET-CURRENT-PLOT8 }8 v; _9 f% p# \" I8 Z
called by procedure DO-PLOTS3 I# x! S6 g4 L# Z
called by procedure SETUP
) m+ S. v+ b/ t$ E9 p called by 按钮 'setup'
' |) W* {1 U2 S0 Q求大神解答啊 |