我编的程序如下turtles-own [energy]
0 a- }1 I% b5 ^, `( Q6 _2 V0 K8 Ato setup
1 F7 S- V$ t$ N1 S2 |# a clear-all
: s6 {+ g+ r$ r7 s% B; U1 v; g setup-patches
" \/ j F. Q K* t, ^$ E' k4 f create-turtles 100/ z) C5 Y9 Z0 K, H
do-plots# s W, T8 G) i5 A, Z8 \) h C
ask turtles [ setxy random-xcor random-ycor ]. ^$ C3 P) ?4 Z2 Y4 x! B0 m4 O/ Z
end# J8 ^" m5 D8 n. d: f1 u
to go4 p# n+ U; V7 m2 C
move-turtles* C0 Z* ]' k( h% n8 ?. m6 a- e- m
eat-grass" _/ b5 ]- f" c, x* L5 |% J
reproduce
. U. F8 O* U6 o7 Q& t: R check-death& E9 q ^: N! b& x
regrow-grass
. e9 {5 \5 D b; K0 n; ~4 B5 {3 Y do-plots
: u: c/ c9 W! S6 _* S: Zend
7 F6 S$ M H1 h3 |6 A3 Qto move-turtles
, _: X3 r# Y, j6 o' e! L ask turtles [
5 I; E/ B5 G! M9 c( e. h% g7 N right random 3609 B! g c. T3 @! ]% W. Z% c4 q
forward 1, a6 Q5 K4 S! G5 M( p
set energy energy - 12 e8 k+ s! K* T# t3 v1 h$ y# v8 x
]
2 D, G$ Z" Z) \! y: ?2 K' M3 Bend
8 f) s5 z. M2 h9 B `3 o+ Bto setup-patches% D$ Q, {3 D8 e- r
ask patches [ set pcolor green ]3 k# z) u/ P4 R" e& y7 X1 i
end- Q' `6 w7 b3 w$ d$ J7 M
to setup-turtles
! |$ p/ d" _5 L: u. }3 s$ T create-turtles 100
( \/ O% q" L+ b+ m ask turtles [ setxy random-xcor random-ycor ]
! ?2 }) L T: e0 Cend! W! F( h+ G7 a7 v( D
to eat-grass3 W8 D/ w+ L. j9 j
ask turtles [1 }2 o' x! I0 _6 ]9 B+ }( H
if pcolor = green [
( ]6 p; @8 F0 p' r3 t% v: H& P* k0 @9 n set pcolor black
. J( r: n& r6 @7 c1 Z' ]. l/ @) } set energy (energy + 10)
4 e- c" p) j9 q3 i9 U+ J ]3 i3 F( @7 k4 D# |; r6 s
ifelse show-energy?* y5 v9 x9 O( e' c5 s1 Z0 O2 H
[ set label energy ]: d) b' Z% N7 b- g2 H0 t' e8 i
[ set label "" ]! F8 n$ w# a* ^4 b: a* D5 x$ {
], s! D3 I3 f: S7 s9 W
end
3 J- D( k: w3 h) ?& {5 s9 I8 m! Oto reproduce
- \4 g# Q, ?6 Z7 F7 H( P1 j ask turtles [ [* l8 i; @6 Z
if energy > 50 [& X* [* V) s u* _; n: ]7 [
set energy energy - 50# x; r) |( u) f+ ~
hatch 1 [ set energy 50 ]0 f9 k" \; R$ O9 h6 l5 P1 s
]. |2 ?7 ]* u' w5 O9 D- R: L
]0 z5 A+ u& i! b
end5 @, C$ B* ]1 a) x" l5 x3 c
to check-death: |- x [& o4 z6 s, K% y
ask turtles [
& I0 t' a( B/ N: P/ K+ l" {3 ?( w if energy <= 0 [ die ], h, l) J e4 U" k3 m/ M
]
$ O' u% T$ [- @. Q, T# iend5 E# c4 p1 b/ w( t) D2 z
to regrow-grass
+ C6 ~) M, Z9 b1 M! K ask patches [
( Q( S1 o) v9 f' J/ S2 ~; X& q if random 100 < 3 [ set pcolor green ]- u, P* |) G5 a* L+ b% O
]
" k/ X. {3 I' z y7 Xend
6 z' ]- T$ @. h+ {to do-plots1 Z' Y8 ^% P+ b7 X
set-current-plot "Totals"# K h/ `. K' p3 A4 b! c
set-current-plot-pen "turtles"+ `8 I# u/ z+ t' T# P6 g( d( t
plot count turtles
! X" a0 m9 y/ m- ` set-current-plot-pen "grass"
- d. w# i+ r* L% E0 H( O plot count patches with [pcolor = green]) `$ r( h, P9 l' T6 O1 G
end! ]8 |3 b. r7 w( @
可是运行时提示no such plot: "Totals", n _; w% W1 B% \
error while observer running SET-CURRENT-PLOT1 J$ u6 l: j& U& `7 `/ S
called by procedure DO-PLOTS
2 G2 q( s) |6 P, R5 X3 g4 N called by procedure SETUP4 o& n) f5 x* j$ f, b* D( I6 D
called by 按钮 'setup'# W8 J3 D' [$ l0 o
求大神解答啊 |