我编的程序如下turtles-own [energy]
. [/ A; p n/ q2 yto setup
" T# d3 U6 C/ @& j/ Z4 h$ O clear-all
9 `" _1 Q" ]! y; H' E. t7 Y( V/ G setup-patches
! E7 Q6 a# a2 f0 p create-turtles 100; G' y1 F6 q0 w4 s$ M9 v
do-plots% S$ `% J2 Y. N0 y K% l/ w
ask turtles [ setxy random-xcor random-ycor ]
! H) F/ ]3 H9 \; oend
; U* ~+ y$ d; T; K2 _* Zto go5 \- Z3 |$ @- l1 e( {% P5 g
move-turtles
8 e2 _; T$ R9 g/ ?# { eat-grass
* t1 @- }! R0 X) z8 p reproduce* E. l' u+ y5 [3 l6 g
check-death
* v+ g0 h# F7 w, }4 V4 \) J" f regrow-grass# a* j* ~+ B4 k2 J/ z# H
do-plots( C+ w8 L' X! \7 ~
end
, K1 G& p, A: S4 Nto move-turtles
8 N5 Y6 {/ B6 G7 w ask turtles [
$ Q" O/ O3 x- s* d8 b( a right random 360
$ n% E6 M: B: q. |9 c forward 18 f. t W: b2 ^3 f4 N
set energy energy - 1/ {! i! Q7 O* }1 j
]3 S3 f( o+ {6 A
end- K* R7 @- q3 r3 u4 J0 ^5 `
to setup-patches
2 z3 {7 K k! T* P ask patches [ set pcolor green ]
+ G* w! O+ y! F+ p& lend
* L4 Q$ o6 ~5 X, |# o xto setup-turtles2 h/ W0 w5 N3 n# T
create-turtles 100
8 d! b3 H2 L" `" `- B, l ask turtles [ setxy random-xcor random-ycor ]* v8 K+ {' V. W( u; m( n
end6 L( q- M& Z7 A: h1 `0 ]
to eat-grass
8 F+ t3 e3 Q! q( T' E/ S2 B ask turtles [
8 T% O. R" p7 s3 W! s$ X if pcolor = green [0 W B& ?' f3 d
set pcolor black. z& g" W0 P1 ^" k7 s* i* v
set energy (energy + 10)
; \# [5 K) i8 l/ V ]- _0 k; G- o3 e, g. H
ifelse show-energy?
9 \7 U+ [( X$ ]# |! N [ set label energy ]+ V5 S* w5 h0 A+ k7 c, Y* T
[ set label "" ]
6 d& ~: O6 y2 p1 h ]2 r0 Q; f, C2 N+ Z' X$ { \ X
end
( I/ r$ j/ i( k. ?to reproduce
' O: z, f- o" @' ?4 U/ h ask turtles [8 s& L/ Z( b/ x3 `. N6 T8 @6 E
if energy > 50 [
+ X# n) S1 }) S1 y0 j6 c set energy energy - 50- S5 ~* \$ [; i( @( ]* \4 [9 B5 p
hatch 1 [ set energy 50 ]. j7 W4 }- r+ n5 i5 g
]. c7 ?! f/ T+ c' M8 B4 v
]
3 w! P& R; r# U9 mend
, R, G" L5 W# a# cto check-death
c4 {7 I, @0 E% t9 C6 K ask turtles [
3 {/ _) F/ b9 N2 ^6 c0 _7 J if energy <= 0 [ die ], m2 \ q3 z2 k5 I
]; v- U3 X: c' w& t' Y4 j
end1 ]6 i" q- h% }: i) `7 Y- A1 C. A
to regrow-grass& x4 t0 I3 }; Y: G3 Y1 K) d* Y
ask patches [
4 T E2 K: S' i+ d* S+ k+ D: J if random 100 < 3 [ set pcolor green ]
4 X% X0 L. `8 }: C I% ^1 i ]" m6 _; `: S6 Q9 m5 w( h
end
* w& n/ f' @( P/ j8 C) L6 n3 {to do-plots
- E% g- O$ o% o* [ v' R; B set-current-plot "Totals"
: f) n' b- l9 b- f V9 d( x set-current-plot-pen "turtles"- _8 l' J3 t6 e8 e8 ^2 F; c
plot count turtles8 C9 ]3 A/ o- C4 @+ p: z4 E3 k) ^
set-current-plot-pen "grass"% R1 R3 {- B, `! O
plot count patches with [pcolor = green]3 r! O ]$ i* x! S M; @* {0 d# Z
end* B# W. h6 E( X1 v) V7 z1 i4 P
可是运行时提示no such plot: "Totals"/ p; ?4 v" Y& G4 _! \' w, [8 w9 G0 y, U
error while observer running SET-CURRENT-PLOT
# s0 M$ S. U5 k called by procedure DO-PLOTS
( t& I4 Y6 _. l+ k8 | called by procedure SETUP
! ~9 X+ k& S1 P/ B P called by 按钮 'setup'/ w* |, v3 s* Z" y9 w
求大神解答啊 |