我编的程序如下turtles-own [energy]
( N0 t t0 v& Z) j! \% D; }to setup
1 m8 v- }% b+ l& w9 V* W/ e G clear-all2 f* M; N1 ~$ ~# D, K7 `
setup-patches
! z! ^; Y* J9 s% D3 U create-turtles 100 C( c# l; L6 D! S3 y2 H0 z2 I
do-plots7 a. n2 E4 r' |8 @
ask turtles [ setxy random-xcor random-ycor ]
/ |2 f+ Q- y6 g' _end8 T$ C) x! T/ `. c
to go8 j2 m) h( Q4 ~1 E- a$ b9 q
move-turtles1 D) b: B0 y5 w
eat-grass
5 q. s5 c3 C$ I* ` reproduce$ U1 k! p5 ~+ i6 j0 H! q2 ~) S6 E
check-death
p) P4 _- O1 G" Q8 D$ { regrow-grass
& I4 B+ m1 j* m& C! M do-plots1 O- ]0 Z# {" B9 B, r4 F. a
end
6 `( X( }+ \ v4 V+ d) }2 lto move-turtles
- m; v- N0 e" n6 _( u+ i ask turtles [
5 S( b6 r& |- c: c* q right random 360
( l5 _8 K' Q0 L5 W+ ~& Y forward 1
" [( ~3 z M* n( k% `' r1 B set energy energy - 1* R" b7 k* I4 i! Y9 o$ O) q% q
] o" C) X% }3 _+ o; s8 W
end
4 [1 k3 M5 @4 j/ lto setup-patches
8 X& w$ P. b6 N" s9 M$ n ask patches [ set pcolor green ]
, Q6 U+ v; M f5 M) j+ m# Iend* E) L+ M6 ~( k5 B
to setup-turtles
, \' x& D- G) I# C# M create-turtles 100
9 }- Q$ R; |, U% b* i/ R* F ask turtles [ setxy random-xcor random-ycor ]
" x; O# |( Y: s2 C3 tend
) v: Z( ]# T! b1 Y2 K W! |to eat-grass0 X) U' m9 ~: Q$ u& g
ask turtles [, d6 H8 r% t9 G, O, r, C
if pcolor = green [
$ }4 Y5 A7 A' g1 }* X0 R4 g set pcolor black: ~* J- x3 a2 {/ N) y; L4 K* L0 R
set energy (energy + 10)
/ P: t+ ^8 Q( s8 P ]0 ^- X' x) n) ]8 C9 ]$ [; g
ifelse show-energy?
% Z" I W' T/ ? [ set label energy ]
- d. G- }: l$ J( M7 b% @! d" H [ set label "" ]
. [1 E" X6 a4 h4 V2 b ]7 j6 g$ \: u% k6 S& _
end9 r- S |0 j( _7 V7 A# M
to reproduce
/ X- Y- o* I. n% P4 n ask turtles [
& U7 g; z1 t# \. R' Y if energy > 50 [
6 ]% c9 F0 y1 F" N7 W# P C e set energy energy - 50# |- {* R* O& M4 h+ |" p
hatch 1 [ set energy 50 ]! E5 m0 o { ?. w5 m
]
# S+ O! O) @. l7 f {9 j ]
( c% \6 e: y8 T) X2 b& ~: H3 aend
4 i4 T& T+ q8 v2 A$ `% e: }2 d& ~to check-death' H2 E; R. O, H! ?1 j; w* W
ask turtles [- r: L: u% M+ b5 o7 `$ a" ^( K h
if energy <= 0 [ die ]/ ~8 f5 _* B0 {# Y# n: Y" d2 i- }
]
" v2 t7 r, P6 C( a& x1 Iend, F8 ]' ^/ l5 {
to regrow-grass' u2 d' m J/ M# A
ask patches [
6 n% d* y1 D% f, N6 S: \ if random 100 < 3 [ set pcolor green ]2 m x5 e" T2 z, O
]& K \2 p# P+ m4 ~0 G) U
end$ l4 l" q* c. _- ~6 m$ O; }
to do-plots
4 ]6 b( ], j1 G: L# p6 G. a set-current-plot "Totals": X5 r' y" U6 W, w9 y! V# ^
set-current-plot-pen "turtles"9 |0 | u% i; V% f4 K1 s
plot count turtles- X: O A! q: ?: I, p
set-current-plot-pen "grass"! m" z; I$ t4 g/ ?/ u
plot count patches with [pcolor = green]
* D$ f( Y$ w+ C: pend
p+ r; f4 x6 y% Z! h$ ]/ G可是运行时提示no such plot: "Totals"3 T% d& v# I! s: ?
error while observer running SET-CURRENT-PLOT
& r7 ^( o% x& v2 p- m called by procedure DO-PLOTS" O1 @; k9 D; d4 c h$ I
called by procedure SETUP. g$ Z$ a& [5 ]$ s
called by 按钮 'setup'
4 i z5 k! |5 M2 V9 I) y求大神解答啊 |