我编的程序如下turtles-own [energy]
: h: r! y, B+ V9 a, a4 b9 q/ k Z1 Eto setup
7 f/ W3 y# L" _0 Y& n! E clear-all
' x/ z9 L. ^0 {& G. q R2 e3 q setup-patches
2 U9 L. G% g" W& s create-turtles 100# Y- g( f) N% _0 X- F
do-plots
. a1 \/ d0 V( Q/ D ask turtles [ setxy random-xcor random-ycor ]; w) p# Z, q2 I4 f
end, c5 N+ d: x) l
to go
$ l- J# o5 J) r move-turtles/ Z$ n% e! V# C7 n
eat-grass
$ j! {4 [5 x. S' _6 _: O reproduce0 O. S& J! s! m$ _/ e, |% t
check-death! @. R3 T6 M4 r# A+ e5 \2 i: t% f1 _9 p
regrow-grass) W: d$ z( U; A: n+ h6 Y
do-plots
. H. x5 ~8 J: Xend, B: J$ S2 i7 ^6 `' `3 S5 I
to move-turtles
; R7 P* ~0 y w7 g: D* M( o4 k ask turtles [
: R# G7 z0 X6 R8 c right random 3606 a6 o2 @! @, Z7 [, b
forward 1
6 F, l% \/ E. g set energy energy - 1
9 V' s Q& X/ q* z, | ]! ^; P5 p. \& b* |& c
end
# P/ [( U4 Z. d/ K4 r1 U7 I+ Jto setup-patches5 L) C ~1 |, k) E! \
ask patches [ set pcolor green ]
8 q* p3 T n, fend
+ R) w3 y1 X7 u1 M1 l7 dto setup-turtles7 d1 _# F$ J1 N
create-turtles 100
) h6 r# _% |. c9 l; ^5 C' a2 l% F ask turtles [ setxy random-xcor random-ycor ]" D7 l$ Q* ?8 G/ B; }( t
end5 g! A$ |% J4 @$ a) x! F$ f
to eat-grass/ p) @# r6 A9 e, f' p
ask turtles [
* S7 g( |0 D) z+ n if pcolor = green [4 l, G" W) T9 d0 M, I Y1 Z! N
set pcolor black
$ e+ U, h6 e. K+ A: a set energy (energy + 10)
) K' Q/ Q% y5 L+ W8 h7 E ]/ O( U: e* ]2 L: B# `
ifelse show-energy?
3 F, m$ |% l2 _, u! A, y! r [ set label energy ]" R% U8 D/ U3 [ F. I5 a
[ set label "" ]. c# E2 x3 \2 C" R, q" _9 Y
]1 h) P# A! B! C$ v! Z3 n6 E
end
! v# \5 p# \# ?to reproduce( E" J. {: ?! Z% P& Y
ask turtles [
, C; D6 {# |9 C$ q6 }: U if energy > 50 [
! F; r" ^9 E3 ~/ u% s, ~0 A* `" C: b set energy energy - 50$ c8 j4 z* s3 s& }
hatch 1 [ set energy 50 ]
* N$ G; V. b4 l9 m( c1 e: g6 d- E ] ]) u8 p# n7 W
]9 A7 D/ h Y/ H4 @" j; O. ]2 H
end
; H* m2 ^# H1 {to check-death
9 J6 [5 P' N3 e; b% e! Q# a ask turtles [+ V* x( J4 B4 V: l3 a/ c. Y
if energy <= 0 [ die ]; i4 |$ C7 [8 W$ p. A z' u5 ^6 z: d# m
]4 r% l; N) O7 w7 R2 E% m
end2 M3 u% E* _; k8 e8 ~' F
to regrow-grass, l& Z$ M) s/ ? g9 [9 H6 ^5 P; y
ask patches [( S3 ^9 g- s3 F* l9 j
if random 100 < 3 [ set pcolor green ]. F& D, Q( E5 N9 z) ^
]
, b i; [$ L& T2 n4 q; y. e- Rend
' g6 J" Q1 c' w* Jto do-plots
; d* y- A+ s+ B8 b6 Z set-current-plot "Totals" K, v: r0 A+ l) ]( c( e
set-current-plot-pen "turtles"
# u0 c) i8 p s) e: v" v1 _ plot count turtles
2 U% `3 N7 n2 R8 A- P Q! B set-current-plot-pen "grass"
; m, b# W# q6 X8 x plot count patches with [pcolor = green]9 v4 N: I! `+ O
end
: e% s4 s I1 R" ?* [" D可是运行时提示no such plot: "Totals"
2 [ N* W- \: D) E! Lerror while observer running SET-CURRENT-PLOT) u( \& l2 H0 t* P( j& ^' G/ w: c
called by procedure DO-PLOTS
& \* B3 K* A) _1 M called by procedure SETUP: P {5 i4 Z! V4 C
called by 按钮 'setup'
p C+ Y. k. m/ k' ]( l% O; `9 x7 {求大神解答啊 |