我编的程序如下turtles-own [energy]% }. N! s- Q6 R& D. [
to setup. j5 \% Y/ Y0 P1 U- a" [
clear-all7 i$ Z" z! ~( I5 D7 c1 N& T& M) M5 Z
setup-patches+ l+ r0 o: t7 a
create-turtles 100
0 Y2 u! o) D1 r' A do-plots
' [* b. b4 _6 ` e1 o' Y* t ask turtles [ setxy random-xcor random-ycor ]$ Y' o j! q7 x" J
end
( }# I D3 y* pto go
& m! D8 [/ S6 } move-turtles
! ?4 ?/ l) B* K# n# ]: r# x6 x eat-grass
% w2 R6 `* D% O: p+ `. `% H( K reproduce8 Z5 }, c+ Q; h0 l9 ]* w1 f
check-death
0 A. D7 U9 h* b' P regrow-grass: R3 f* b! R' L/ J, e
do-plots
0 N) J8 w* L. F5 S2 }end$ [( n' L: V6 Y$ ?8 `
to move-turtles
9 C* I! c% ~+ Q, t' v( z ask turtles [0 G! s! B3 {$ l
right random 360
) Q7 j; Y3 M- v forward 19 ?! j; i: F5 Z' b* D# P0 r U
set energy energy - 1
6 y6 |; S! m& s) J) }1 c ]
* b: ^. e% i' @- v! S! Qend
0 D! M/ Y/ k1 m- |5 L" Y1 ]2 I9 v" Q# B! dto setup-patches
& D( Z) {8 b- K ask patches [ set pcolor green ]
" H* j5 {6 J* r, Tend
+ Q' X- I% ?- \$ D' r: r' k9 [to setup-turtles* u0 _: Y* W. B3 S0 r8 C6 q
create-turtles 100
6 j4 S+ Z& i% H( ^$ ~ ask turtles [ setxy random-xcor random-ycor ]0 Q: D$ ^5 K" f+ E% U
end$ d: B4 V* t' u5 b8 y
to eat-grass
' ^% l+ w {% B7 p e" |) x9 o6 C ask turtles [
8 h+ m4 q- p2 {: { if pcolor = green [+ [* U" ]$ F; y4 ?9 D7 b* S) y
set pcolor black9 B, E! R% } a, R& }5 m
set energy (energy + 10)) ] M o6 }% F4 f0 {# }
]0 |% f1 r. \0 J
ifelse show-energy?8 M- A {( A( |6 `2 M" h5 t
[ set label energy ]/ D" x1 q: p7 v. P; p7 y& M6 v
[ set label "" ]
% k8 J1 t" n; ?0 \2 H5 O ]& V p6 h2 s- ~
end2 i- G. G% D4 _$ o1 [
to reproduce: |3 _! U* v1 ? ~: C
ask turtles [
# l5 G6 o9 W' [5 i* {! | if energy > 50 [- Y0 @' N; Y7 F" Y
set energy energy - 50( J c% B# z- a
hatch 1 [ set energy 50 ]" o) w+ @- W {* w! }: i
]& Q& ~ H; e, w
]( @0 C: L9 } x. N, o2 D- D
end
2 K6 r6 w( g. a8 o! o3 Uto check-death
3 j& ~2 a( _' G1 m ask turtles [
1 h# K; F$ C* h. r3 _ if energy <= 0 [ die ]
, Y# m* _ T% r( r ]8 R2 H* q: z2 k& _& v. c o
end% f! f, J( C2 A0 l& m& z9 s1 \; G
to regrow-grass
4 W: o( h9 B! j. ]. i6 p+ {! W ask patches [
# @: q, p9 f* B+ R9 L# k0 [' p( z' s if random 100 < 3 [ set pcolor green ]
. B/ y; ]$ B1 o ]
0 X% v( r( W0 eend1 a: L V( X& D! v
to do-plots
) {2 Q/ |. h7 F7 B6 ]) z set-current-plot "Totals"
, w, t0 K6 o; i7 u! a. m6 o set-current-plot-pen "turtles": a0 f+ W, g {) j( M# F
plot count turtles- Q. B/ U3 Y7 X1 w5 [- E7 m
set-current-plot-pen "grass"% e/ M8 e1 g) z; p9 q$ v
plot count patches with [pcolor = green]
: B! q, m, ]9 Y% T4 fend; T7 x! |. k$ u7 O# r6 `/ ?
可是运行时提示no such plot: "Totals"# _5 W0 S; }. @# M
error while observer running SET-CURRENT-PLOT) I0 U5 ^% {" f3 u6 x
called by procedure DO-PLOTS
* k) l5 g% X8 r2 a7 k# J: M( T called by procedure SETUP
5 D4 s# ~% `5 F' H# v called by 按钮 'setup'
4 A; [$ J1 f, ^. a( v0 R' |) |6 b7 _求大神解答啊 |