我编的程序如下turtles-own [energy]
" ~: }( d9 g0 ]1 Z# |, {0 N! e) A# C cto setup
2 v* Z( f+ ]- F! W0 ?, @ clear-all, _1 c: n, T; d3 `
setup-patches( Y# w+ \, r* w* q4 s
create-turtles 100
) j* B/ {$ n9 k: T: I4 l do-plots( i9 U) u5 b( C
ask turtles [ setxy random-xcor random-ycor ]: j7 M6 q4 ~% O
end- Y; Z# M: O, G" E( |% ~9 ?- d8 p
to go
5 b6 k w3 f( }% u: d move-turtles( ]( S1 w2 Z' g7 t
eat-grass
- u) _4 ], P5 H: y0 T* Z; j reproduce, \; X7 R+ n! @8 |! c& F
check-death
7 Q# x. S1 f9 m ~ regrow-grass
$ S/ Q/ C5 D. N do-plots# c: ]* }6 u5 D5 O
end0 O$ p" Q4 f: Z2 f& D9 g( u
to move-turtles
3 A1 ~! Z( m+ Q" H% K$ X* S5 ` ask turtles [- v! \% H9 u3 |# p1 i4 q
right random 360
/ R9 ~( a% e$ f4 T2 e2 f% A3 T" }# j forward 1
) M% F: b, G8 k8 \- v4 g, J; f set energy energy - 1" u$ z! c$ d0 s% r% Y1 }3 f, P$ ^
]+ S# j& W$ ~9 t1 u& v5 H+ O$ p
end' p+ ]2 J2 I) H# z1 V8 \
to setup-patches
2 x; f l. y+ G$ \/ Y5 g ask patches [ set pcolor green ]& [: r; }2 `! m2 _
end
5 r1 d( G, g8 V5 Eto setup-turtles
! D5 V# ]% d1 G( m create-turtles 100
; q) f& V5 B$ ?! s) O+ @0 `+ [& M ask turtles [ setxy random-xcor random-ycor ]
) }6 m* C" ~2 ~7 S- H/ Xend: k2 H* T+ `1 m, n I
to eat-grass
- e; z" B" K9 |( w3 g5 Q4 w ask turtles [
% _* y7 y# j. y5 y if pcolor = green [6 p' P( {1 R' p! G1 B3 w Z
set pcolor black
+ \6 J) a0 }) Z! G# e8 |* G! W. x. N set energy (energy + 10)$ }2 {) [) m' W, {
]
7 Q6 p8 v( Q+ y; n# f7 C/ G% | ifelse show-energy?
# U" B; K. z: q& Z7 O [ set label energy ]* O; Y- U! \2 S( y
[ set label "" ]! u1 [' ?% F+ e- {
]5 {) t3 u* Y8 I2 D4 s
end+ W/ [) w0 _5 `* a( U5 P" T% A
to reproduce4 g! I5 d$ S' X! p; H# s
ask turtles [9 Y* C" D( V& U/ v5 @, V% z+ S! o
if energy > 50 [# g" E# h* p# s3 p$ Q
set energy energy - 50
0 {7 p q8 `( g M% I hatch 1 [ set energy 50 ]
/ d( T( e) p6 t) d! X+ g ]
; o5 T4 X! `/ d2 k' e4 ` ]
# I' O; B1 Q5 x' D7 Zend, @& ~* y3 g) s' l
to check-death- P8 b6 \. ~* ?
ask turtles [3 |0 J; B- y, R$ x4 W
if energy <= 0 [ die ]
9 R, Q0 u- ?! U2 h6 W# }: b9 H+ s. G ]) g( O( `4 E4 t9 t! s
end L" U' n+ ?+ {" F# j( Z& X/ t v. [1 d+ _! G
to regrow-grass% a% e( j/ b% ]& d2 _& z: c
ask patches [6 p! f; G7 O3 U/ v: B& u
if random 100 < 3 [ set pcolor green ]
9 `8 z$ f! L* h" v ]0 H# `2 |9 s9 _, q- |4 }9 ]& Z
end
0 O% h1 z- d( dto do-plots: e2 [+ w& L+ M. G8 {: n5 i
set-current-plot "Totals"* ]8 ~) @, d# |+ J% @
set-current-plot-pen "turtles"
2 b/ f1 a+ e7 T7 b7 d plot count turtles; G0 v6 X% ~ b4 n( h. G
set-current-plot-pen "grass"$ ]9 e8 g/ ^( J3 m) H+ u2 r
plot count patches with [pcolor = green]
- e( v5 k6 j" V' S. M8 Fend
* a+ M3 Y5 [* A+ a( x8 q可是运行时提示no such plot: "Totals"+ z1 |' |" ?) k3 z! t
error while observer running SET-CURRENT-PLOT9 f( n0 H. K( g6 P" M2 N; x$ U
called by procedure DO-PLOTS
& O0 `2 b; _/ u) u7 N4 w) A called by procedure SETUP# X, n) b- m" V! I! G; @
called by 按钮 'setup'; `5 O/ j j- d
求大神解答啊 |